Switch Help

daltonc · Post by **daltonc** » Sat May 07, 2005 4:02 pm

Hey, I am kinda new to the switch function, anyone wanna help? This isnt working..

proc command:global {nick uhost hand chan arg} {
global botnick
if {[isop $nick #nrbots]} {
  switch [lindex $arg 1] {
    "rehash" {
     rehash
     if {[${botnick} == "nrbot-01"]} {
     putnotc $nick "Rehashing Complete"
     }
    }
    "cycle" {
     putserv "PART $chan :cycle"
     putserv "JOIN $chan"
   }
   default {
     putnotc $nick "Error(1): You didnt specify a global command."
   }
  }
 } else {
    putnotc $nick "Error(1): You lack access to the bot network"
    putnotc $nick "Error(2): Unable to 'global'"
  }
}

Its giving me.. the "You didnt specify a global command."

^DooM^ · Post by **^DooM^** » Sat May 07, 2005 5:28 pm

Try this

Code: Select all

proc command:global {nick uhost hand chan arg} {
global botnick
    if {[isop $nick #nrbots]} {
        set command [lindex [split $arg] 1]
        
        switch -- $command {
            "rehash" {
                 rehash
                 if {$botnick == "nrbot-01"} {
                     putnotc $nick "Rehashing Complete"
                 }
            }
        
            "cycle" {
                putserv "PART $chan :cycle"
                putserv "JOIN $chan"
            }
       
            default {
                putnotc $nick "Error(1): You didnt specify a global command."
            }
        }
     
    } else {

        putnotc $nick "Error(1): You lack access to the bot network"
        putnotc $nick "Error(2): Unable to 'global'"
    }
}

daltonc · Post by **daltonc** » Sat May 07, 2005 5:53 pm

Doesnt seem to work, when I do @global rehash. It gives me the error saying I didnt specify a command.

^DooM^ · Post by **^DooM^** » Sat May 07, 2005 5:58 pm

Change this

Code: Select all

set command [lindex [split $arg] 1]

To this

Code: Select all

set command [lindex [split $arg] 0]

$arg 1 would be the second element in the list after you called the proc so the first one which is what your matching it to should be 0

daltonc · Post by **daltonc** » Sun May 08, 2005 10:40 am

Hey, thanks! It works now, got another question, how can I find out if there is a certin element in an array?

De Kus · Post by **De Kus** » Sun May 08, 2005 5:32 pm

daltonc wrote:Hey, thanks! It works now, got another question, how can I find out if there is a certin element in an array?

1st: this isnt an array, it's a list. arrays are used like: $array(element)
2nd: count the spaces or the {} expressions if present
example:
ex: 1 2 3 4 5
this has 5 elements

ex: {1 2} {3 4} 5
this has 3 elements

also remember, the first element has the index 0 ^-^.