egghelp/eggheads community

Help needed with Tcl trigger script

2004-06-07T06:02:47-04:00

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.

Statistics: Posted by puffi — Mon Jun 07, 2004 6:02 am

Help needed with Tcl trigger script

2004-06-07T05:55:06-04:00

Thanks all, will test script when Eggdrop comes online!

Statistics: Posted by scorchin — Mon Jun 07, 2004 5:55 am

Help needed with Tcl trigger script

2004-06-07T06:00:47-04:00

you forgot to change the $chan to $c

Code:

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

Statistics: Posted by Papillon — Mon Jun 07, 2004 5:52 am

Help needed with Tcl trigger script

2004-06-07T05:51:50-04:00

thanks that brilliant

Statistics: Posted by scorchin — Mon Jun 07, 2004 5:51 am

Help needed with Tcl trigger script

2004-06-07T05:48:49-04:00

Code:

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:

  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.

Statistics: Posted by puffi — Mon Jun 07, 2004 5:48 am

Help needed with Tcl trigger script

2004-06-07T05:33:04-04:00

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:

bind pub - !whatis pub:definitionproc 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 }}

Statistics: Posted by scorchin — Mon Jun 07, 2004 5:33 am