menu channel,menubar,nicklist {
Address Tracking
.$iif($group(#Addtrack) == on,$style(1)) Show used nicks on join: {
var %status = $iif($group(#Addtrack) == on,Disable,Enable)
$+(.,%status) #Addtrack
echo 7 -at * 4[09Nick04-09Tracker04]12 Users previous nicks will $iif(%status == Disable,no longer,now) be shown when they join.
}
.-
.$iif($1,Check nicks for $1):CheckNicks $1
.Check nicks for an address: {
CheckNicks $+(*!,$$?="Enter the hostmask you want to check in the format NICK!IDENT@HOST*")
}
}
on *:start: {
hmake Addtrack 100
if ($isfile(Addtrack.hsh)) hload Addtrack Addtrack.hsh
}
on *:exit: if ($hget(Addtrack)) hsave -o Addtrack Addtrack.hsh
on *:join:#: {
if ($wildsite iswm $address($me,5)) return
var %mask = $mask($fulladdress,3)
if ($hget(Addtrack,%mask)) {
var %usednicks = $ifmatch
if (%usednicks != $nick) && ($group(#Addtrack) == on) echo 10 -t $chan 4[09Nick04-09Tracker04]12 $nick $+ $chr(40) $+ $address $+ $chr(41) has also used the nick(s): $remtok(%usednicks,$nick,1,44) $+ .
if (!$istok(%usednicks,$nick,44)) hadd -m Addtrack %mask $addtok(%usednicks,$nick,44)
if ($numtok(%usednicks,44) > 10) hadd -m Addtrack %mask $deltok(%usednicks,1,44)
}
else {
hadd -m Addtrack %mask $nick
}
}
on *:nick: {
if ($wildsite iswm $address($me,5)) return
var %mask = $mask($fulladdress,3)
if ($hget(Addtrack,%mask)) {
var %usednicks = $ifmatch
if (!$istok(%usednicks,$newnick,44)) hadd -m Addtrack %mask $addtok(%usednicks,$newnick,44)
if ($numtok(%usednicks,44) > 10) hadd -m Addtrack %mask $deltok(%usednicks,1,44)
}
else {
hadd -m Addtrack %mask $newnick
}
}
alias CheckNicks {
if (*!*@* iswm $1) {
var %mask = $mask($1,3)
if (!$hget(Addtrack,%mask)) echo 4 -ta No entry found for $1
else echo 10 -ta 4[09Nick04-09Tracker04]12 Address $1 $+ $chr(40) $+ $address $+ $chr(41) has used the nick(s): $hget(Addtrack,$1) $+ .
}
elseif (!$hget(Addtrack,$address($1,3))) echo 4 -ta No Entry found for $1
elseif ($hget(Addtrack,$address($1,3)) != $1) {
var %usednicks = $ifmatch
echo 10 -ta 4[09Nick04-09Tracker04]12 $1 has also used the nick(s): $remtok(%usednicks,$1,1,43) $+ .
}
else echo 10 -ta 4[09Nick04-09Tracker04]12 $1 has not been seen on any other nicks.
}