proc proc_adduser { nick uhost hand chan text } {
set addusernick [nick2hand $text]
if {[validuser $addusernick]} {
putserv "PRIVMSG $chan :\002$text\002 Is Already In User Database As \002$addusernick\002"
} else {
unset addusernick
set addusermask *![getchanhost $text $chan]
adduser $text $addusermask
set addusernick [nick2hand $text]
putlog "\002$nick\002 Added \002$addusernick\($text\)\002 To User Database"
putserv "PRIVMSG $chan :$text has been added to the bot."
save
unset addusermask
unset addusernick
}
}
Last edited by cache on Wed Apr 22, 2009 10:13 pm, edited 1 time in total.