Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ; #################################################################
- ; ## Address/Nick Tracking ##
- ; ## Written by Urza (Urza23@hotmail.com) ##
- ; ## Written and tested in mIRC 6.21 ##
- ; #################################################################
- 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 * 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
- #Addtrack on
- 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 [Nick Tracking] $nick has also used the nicks: $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
- }
- }
- #addtrack end
- 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 Address $1 has used the nicks: $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 $1 has also used the nicks $remtok(%usednicks,$1,1,43)
- }
- else echo 10 -ta $1 has not been seen on any other nicks
- }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement