Help needed with Tcl trigger script

scorchin · Post by **scorchin** » Mon Jun 07, 2004 5:33 am

Hi, i am trying to make a trigger script for my clan channel. It will get info about a username that is placed after the !whatis command. But so far, its just fubarred up my Eggdrop, can anyone help? Here is the code...

Code: Select all

bind pub - !whatis pub:definition

proc pub:definition {n u h c t} {
  if {[string match -nocase "" $text]} { putserv "PRIVMSG $chan :Please specify a member you want info about" } { return 0 }
  if {[string match -nocase "scorchin" $text]} { putserv "PRIVMSG $chan :Scorchin is a nublet...." } { return 0 }
}

puffi · Post by **puffi** » Mon Jun 07, 2004 5:48 am

Code: Select all

bind pub - !whatis pub:definition 

proc pub:definition {n u h c t} { 
  set honk [split $t]
  if {[llength $honk] == 0} {
    putserv "PRIVMSG $chan :Please specify a member you want info about"
    return 0
  }
  set honk [lindex $honk 0]

  if {[string match -nocase "scorchin" $honk]} {
    putserv "PRIVMSG $chan :Scorchin is a nublet...."
    return 0
  } 

}

It checks if the user gave an argument. Repeat the

Code: Select all

  if {[string match -nocase "scorchin" $honk]} {
    putserv "PRIVMSG $chan :Scorchin is a nublet...."
    return 0
  }

for each user/member you want to give information about.
If i got you right, that is what you want.

scorchin · Post by **scorchin** » Mon Jun 07, 2004 5:51 am

thanks that brilliant

Papillon · Post by **Papillon** » Mon Jun 07, 2004 5:52 am

you forgot to change the $chan to $c

Code: Select all

bind pub - !whatis pub:definition 

proc pub:definition {n u h c t} { 
  set honk [split $t] 
  if {[llength $honk] == 0} { 
    putserv "PRIVMSG $c :Please specify a member you want info about" 
    return 0 
  } 
  set honk [lindex $honk 0] 

  if {[string match -nocase "scorchin" $honk]} { 
    putserv "PRIVMSG $c :Scorchin is a nublet...." 
    return 0 
  } 

}

also it would be better to use the switch command or make a global list of names and do lsearch on it

scorchin · Post by **scorchin** » Mon Jun 07, 2004 5:55 am

Thanks all, will test script when Eggdrop comes online!

puffi · Post by **puffi** » Mon Jun 07, 2004 6:02 am

An array might be not wrong there too.
Then you fill it once (maybe from a file) and access the description(value) by accessing $member_description_array(membername) only.