Question about an array

[darton]

Hello!
I have a question about an array. In one of my scripts I have this here:

Code: Select all

set reset [lrange [split $arg] 0 2]
if {[string match -nocase {text 1} $reset] || [string match -nocase {text 2} $reset]} {set case 1}

But now I want to replace the "text 1" and "text 2" with an array. So I made this:

Code: Select all

set case 0
set reset [lrange [split $arg] 0 2
set texts {
"text 1"
"text 2"
"text 3"
"text 4"
}

set texts2 {
"text 5"
"text 6" 
"text 7"
}
  foreach text $texts {
  if {[string match -nocase $text $reset]} {set case 1}
  }
  foreach text2 $texts2 {
  if {[string match -nocase $text2 $reset]} {set case 2}
  }  

But it don't set the variable "case" to 1 or 2. There must be something wrong with the foreach statements. Can anybody correct it for me?

[krimson]

try using

Code: Select all

foreach text [split $texts \n] {
  if {[string match -nocase $text $reset]} {set case 1} 
}

it should work

[darton]

No, it doesn't.

[Sir_Fz]

set reset [lrange [split $arg] 0 2

You need to close the bracket.

Code: Select all

set reset [lrange [split $arg] 0 2]

[darton]

Of course I closed the bracket, but forgot to post it here. I give you now my whole script so that you can see what is wrong.

Code: Select all

bind pubm - * reset:flag
proc reset:flag {nick uhost hand chan arg} {
  set reset [lrange [split $arg] 0 2]
  set reset [stripcodes bcruag $reset]  
  set case 0

  set 3er_maps {
  "C&C_Under.mix"
  "C&C_Hourglass.mix"
  }
  foreach map3 $3er_maps {
  if {[string match -nocase {Loading Level $map3} $reset]} {set case 1}
  }

  if {$case == 1} {
   putquick "PRIVMSG $chan :..."
}

If somebody in the channel writes "Loading level C&C_Under.mix" the variable "case" should be set to 1, but that does not happen.

[spock]

try

Code: Select all

if {[string match -nocase "Loading Level $map3" $reset]}

and maybe

Code: Select all

set reset [join [lrange [split $arg] 0 2]]

[darton]

No, that doesn't work, too.

[spock]

Yes, that does work, here.

edit: this works for me

Code: Select all

bind pubm - * reset:flag
proc reset:flag {nick uhost hand chan arg} {
  set reset [join [lrange [split $arg] 0 2]]
# set reset [stripcodes bcruag $reset]
  set case 0
  set 3er_maps {
    "C&C_Under.mix"
    "C&C_Hourglass.mix"
  }
  foreach map3 $3er_maps {
    if {[string match -nocase "Loading Level $map3" $reset]} {set case 1}
  }
  if {$case == 1} {
   putquick "PRIVMSG $chan :..."
  }
}

[darton]

OK, thank you, it works for me too now.