;; !authnick [nick]
;; look what happens
on *:text:!authnick*:#:{
if (!%auth [ $+ [ $iif($2,$2,$nick) ] ]) {
set %auth [ $+ [ $iif($2,$2,$nick) ] ] #
whois $iif($2,$2,$nick)
}
}
raw *:*:{
if (%auth [ $+ [ $2 ] ]) { haltdef }
if (($numeric == 330) && (%auth [ $+ [ $2 ] ])) { msg %auth [ $+ [ $2 ] ] $2 is authed as $chr(35) $+ $3 | set %auth [ $+ [ $2 ] ] %auth [ $+ [ $2 ] ] $2 }
if (($numeric == 401) && (%auth [ $+ [ $2 ] ])) { msg %auth [ $+ [ $2 ] ] $2 is not online. | set %auth [ $+ [ $2 ] ] %auth [ $+ [ $2 ] ] $2 }
if (($numeric == 318) && (%auth [ $+ [ $2 ] ])) { if ($gettok(%auth [ $+ [ $2 ] ],2,32) != $2) { msg %auth [ $+ [ $2 ] ] $2 is not authed. } | unset %auth [ $+ [ $2 ] ] }
}