hi have a problem with this code:
Code: Select all
bind pub - !transferir pub:transferir
proc pub:transferir {nick uhost hand chan text} {
set cromo1 [lindex $text 0]
set cromo2 [lindex $text 1]
set resto [lindex $text 2]
if {![matchattr $nick o]} {
putserv "NOTICE $nick :No access!"; return 0}
if {$resto != "" || $cromo2 == ""} {
putserv "NOTICE $nick : make: !transferir <nick1> <nick2>"; return 0
} elseif {[matchattr $cromo2 o] || ![validuser $cromo1] || ![validuser $cromo2] } {
putserv "NOTICE $nick : ERRO: protech user / invalid user ";return 0
} else {
sumuser $cromo1 $cromo2
putserv "NOTICE $nick : Done"
}
}
[21:43] Tcl error [pub:transferir]: invalid command name "sumuser"
and the ideia is to do this:
### sumuser <user1> <user2>
transfers all stats from user2 to user1 and deletes user2
( stats.mod )
but, if i do the sumuser in the party line, we work's fine
(09:26:27pm) (vOdKa^Dj) .sumuser xblue oriety
(09:26:27pm) (Acessivel) Transferred stats from oriety to xblue and deleted oriety
hi have a tcl similar to this one, but whit "resetuser" and works fine
i not inderstand way this "sumuser" is only reconhece in the pary line and not outside, like the " resetsuser " and other's.
ty