Code:

<eggdrop> [14:56:21] Tcl error [registered:first]: can't read "user": no such variable<eggdrop> [14:56:21] Tcl error [registered:match]: can't read "user": no such variable

Statistics: Posted by Sydneybabe — Thu Oct 20, 2011 3:08 am

Statistics: Posted by Sydneybabe — Thu Sep 22, 2011 7:06 am

Code:

bind join * * registered:joinbind raw - 307 registered:matchbind raw - 311 registered:firstbind raw - 318 registered:lastproc registered:join {nick uhost hand chan} {if {[isbotnick $nick]} returnputhelp "WHOIS $nick"}proc registered:first {from key text} {global registeredset user [lindex [split $text] 1]set registered($user) 0}proc registered:match {from key text} {global registeredset user [lindex [split $text] 1]set registered($user) 1# user has identified for this nick# use $user to do whatever you need with it}proc registered:last {from key text} {global registeredset user [lindex [split $text] 1]if {!$registered($user)} {# user didn't identified for this nick# use $user to do whatever you need with it}# don't remove the following linearray unset registered $user}

Statistics: Posted by caesar — Wed Aug 10, 2011 4:22 am