egghelp/eggheads community

Help with some TCL scripts..

2003-11-21T10:01:40-04:00

instead of

Code:

if { validuser [lindex [split $text] 0] = 1 } {

use

Code:

if {[validuser [lindex [split $text] 0]]} {

and the command is .finduser

Statistics: Posted by Sir_Fz — Fri Nov 21, 2003 10:01 am

Help with some TCL scripts..

2003-11-21T00:14:21-04:00

Find user doesnt seem to be working

Statistics: Posted by Guest — Fri Nov 21, 2003 12:14 am

Help with some TCL scripts..

2003-11-20T22:23:08-04:00

Code:

bind pub n .addmaster sb_addmaster proc sb_addmaster { nick uhost hand chan text } {   set newmaster [lindex [split $text] 0]  adduser $newmaster  chattr $newmaster +mo   putserv "privmsg $nick :You have added\:$newmaster To the master list."   putserv "privmsg $newmaster :You have been added to my master list." } bind pub - .finduser sb_finduser proc sb_finduser { nick uhost hand chan text } {   if { validuser [lindex [split $text] 0] = 1 } {     set finduser [lindex [split $text] 0]     set botfl [getuser $finduser botfl]    set handle [getuser $finduser handle]    putserv "privmsg $nick :(Info For \[$finduser\])"     putserv "privmsg $nick :Flags\: $botfl"     putserv "privmsg $nick :Handle\: $handle"   }   else {     putserv "privmsg $nick :Could not find user (\[$finduser\])"   } }

Think that should work, untested though, but a start.

Statistics: Posted by Darkj — Thu Nov 20, 2003 10:23 pm

Help with some TCL scripts..

2003-11-20T20:02:10-04:00

Code:

bind pub n .addmaster sb_addmasterproc sb_addmaster { nick uhost hand chan text } {  adduser [lindex $text 0]  chattr [lindex $text 0] +mo  putserv "privmsg $nick :You have added:[lindex $text 0] To the master list."  putserv "privmsg [lindex $text 0] :You have been added to my master list."}bind pub - .finduser sb_finduserproc sb_finduser { nick uhost hand chan text } {  if { validuser [lindex $text 1] = 1 } {    set finduser [lindex $text 1]    set botfl getuser $finduser botfl    set handle getuser $finduser handle    putserv "privmsg $nick :(Info For [$finduser])"    putserv "privmsg $nick :Flags: $botfl"    putserv "privmsg $nick :Handle: $handle"  }  else {    putserv "privmsg $nick :Could not find user ([$finduser])"  }}

It isnt adding people and messaging them.. and then the find user isnt working either.. thanks

Statistics: Posted by Guest — Thu Nov 20, 2003 8:02 pm