Help with some TCL scripts..

m4dh4x0r · Post by **m4dh4x0r** » Thu Nov 20, 2003 8:02 pm

bind pub n .addmaster sb_addmaster
proc 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_finduser
proc 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

Darkj · Post by **Darkj** » Thu Nov 20, 2003 10:23 pm

Code: Select all

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.

m4dh4x0r · Post by **m4dh4x0r** » Fri Nov 21, 2003 12:14 am

Find user doesnt seem to be working

Post by **Sir_Fz** » Fri Nov 21, 2003 10:01 am

instead of

Code: Select all

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

use

Code: Select all

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

and the command is .finduser <user>