on *:load: {
.echo -aq $input(Author: SaNCaK $+ $crlf $+ $crlf $+ Addon: NickTracking $chr(40) $+ v5.4 $+ $chr(41) $+ $crlf $+ $crlf $+ Released at: 04/22/2014 $+ $crlf $+ $crlf $+ Contact: sancak@outlook.com.tr $+ $crlf $+ $crlf $+ Thank you for using this Addon,igo,Addon: NickTracking $chr(40) $+ v5.4 $+ $chr(41))
.echo -s _____________________________________________________
.echo -s 0,1 Loading 9NickTracking0 Add-On...
.echo -s 0,1 You are running mIRC $version on Windows $+ $os $+ .
.echo -s ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
hmake NickTracking 10000
}
on *:unload: {
.echo -aq $input(Author: SaNCaK $+ $crlf $+ $crlf $+ Addon: NickTracking $chr(40) $+ v5.4 $+ $chr(41) $+ $crlf $+ $crlf $+ Released at: 04/22/2014 $+ $crlf $+ $crlf $+ Contact: sancak@outlook.com.tr $+ $crlf $+ $crlf $+ Unloading...,igo,Addon: NickTracking $chr(40) $+ v5.4 $+ $chr(41))
}
menu menubar,nicklist {
$iif($group(#NickTracking) == on,$style(1)) Nick Tracking
.$iif($group(#NickTracking) == on,$style(1)) Show used nicks on join (*@host): {
var %status = $iif($group(#NickTracking) == on,Disable,Enable)
$+(.,%status) #NickTracking
echo 7 -at * 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: {
if (!$hget(NickTracking)) { //hmake NickTracking }
if ($isfile(NickTracking.hsh)) hload -s NickTracking NickTracking.hsh
}
on *:exit: {
if (!$hget(NickTracking)) hsave -o NickTracking NickTracking.hsh
}
#NickTracking on
;on *:join:#: {
if ($wildsite iswm $address($me,5)) return
var %mask = $mask($fulladdress,2)
if ($hget(NickTracking,%mask)) {
var %usednicks = $ifmatch
if (%usednicks != $nick) && ($group(#NickTracking) == on) echo 14 -t $chan 14 [Nick Tracking] $nick has also used the nick[s]: 7 $+ $remtok(%usednicks,$nick,1,44)
if (!$istok(%usednicks,$nick,44)) hadd -m NickTracking %mask $addtok(%usednicks,$nick,44)
if ($numtok(%usednicks,44) > 10) hadd -m NickTracking %mask $deltok(%usednicks,1,44)
}
else {
hadd -m NickTracking %mask $nick
}
;}
on *:nick: {
if ($wildsite iswm $address($me,5)) return
var %mask = $mask($fulladdress,2)
if ($hget(NickTracking,%mask)) {
var %usednicks = $ifmatch
if (!$istok(%usednicks,$newnick,44)) hadd -m NickTracking %mask $addtok(%usednicks,$newnick,44)
if ($numtok(%usednicks,44) > 10) hadd -m NickTracking %mask $deltok(%usednicks,1,44)
}
else {
hadd -m NickTracking %mask $newnick
}
}
#NickTracking end
alias CheckNicks {
if (*!*@* iswm $1) {
var %mask = $mask($1,2)
if (!$hget(NickTracking,%mask)) echo 14 -ta No entry found for ( $+ $1 $+ )
else echo 14 -ta Address ( $+ $1 $+ ) has used the nick[s]: 7 $+ $hget(NickTracking,$1)
}
elseif (!$hget(NickTracking,$address($1,2))) echo 14 -ta No entry found for ( $+ $1 $+ )
elseif ($hget(NickTracking,$address($1,2)) != $1) {
var %usednicks = $ifmatch
echo 14 -ta ( $+ $1 $+ ) has also used the nick[s]: 7 $+ $remtok(%usednicks,$1,1,43)
}
else echo 14 -ta ( $+ $1 $+ ) has not been seen using any other nicks.
}