.ialmark -n $me list $addtok($ialmark($me,list).mark,$1,32)
; start the timer is not already set * 5 sec delay between whois'ing
; we want timer gone if we disconnect so don't use -o
if (!$timer(WhoisSnooper $+ $network)) .timerWhoisSnooper $+ $network 0 5 WhoisSnooper
; wait for next 5sec interval to do the /whois
return
}
var %nick $gettok($ialmark($me,list).mark,1,32)
; if list was empty then stop timer
if (%nick == $null) { .ialmark -nr $me list | return }
; remove from list if registered
if ($ialmark($1,registered)) {
var %list $gettok($ialmark($me,list).mark,2-,32)
if (%list == $null) { .ialmark -nr $me list | return }
else .ialmark -n $me list %list
return
}
whois %nick
}
raw 318:*:{
var %list $remtok($ialmark($me,list).mark,$2,1,32)
; removing them only after a successful end-of-/whois in case of network throttling
if (%list) ialmark -n $me list %list | else { ialmark -nr $me list }
if ($ialmark($2,registered)) return
else {
; do nothing if they are not in channel
if (!$nick(#Alessandra,$2)) return
echo -g #Alessandra not reg $2 --------------------------------????? here is where to put the command to deal with them ?????-----
return
if ($ialmark($2,warn)) { kick #Alessandra $2 | return }
notice $2 please change to a registered nick or identify to this nick
.timer 1 180 WhoisSnooper $unsafe($2)
.ialmark -n $2 warn 1
}
}
raw 307:*:{ .ialmark -n $2 registered 1 | .ialmark -nr $2 warn }
/*
---------->307 maroon othernick :is identified for this nick
---------->330 maroon othernick othernick :is logged in as
---------->318 maroon othernick :End of /WHOIS list.
*/
on *:NICK:{
; ialmarks migrate from oldnick to newnick, so deleting it
.ialmark -rn $newnick registered | .ialmark -nr $newnick warn
if ($nick(#Alessandra,$newnick)) WhoisSnooper $newnick
}