Loading

Address Tracker

Wrap Raw Revise
  1. ; #################################################################
  2. ; ## Address/Nick Tracking                                       ##
  3. ; ## Written by Urza (Urza23@hotmail.com)                        ##
  4. ; ## Written and tested in mIRC 6.16/6.17                        ##
  5. ; #################################################################
  6.  
  7. menu channel,menubar,nicklist {
  8.   Address Tracking
  9.   .$iif($group(#Addtrack) == on,$style(1)) Show used nicks on join: {
  10.     var %status = $iif($group(#Addtrack) == on,Disable,Enable)
  11.     $+(.,%status) #Addtrack
  12.     echo 7 -at * Users previous nicks will $iif(%status == Disable,no longer,now) be shown when they join
  13.   }
  14.   .-
  15.   .$iif($1,Check nicks for $1):CheckNicks $1
  16.   .Check nicks for an address: {
  17.     CheckNicks $+(*!,$$?="Enter the hostmask you want to check in the format NICK!IDENT@HOST*")
  18.   }
  19. }
  20.  
  21. on *:start: {
  22.   hmake Addtrack 100
  23.   if ($isfile(Addtrack.hsh)) hload Addtrack Addtrack.hsh
  24. }
  25. on *:exit: if ($hget(Addtrack)) hsave -o Addtrack Addtrack.hsh
  26.  
  27. on *:join:#: {
  28.   if ($wildsite iswm $address($me,5)) return
  29.   var %mask = $mask($fulladdress,3)
  30.   if ($hget(Addtrack,%mask)) {
  31.     var %usednicks = $ifmatch
  32.     if (%usednicks != $nick) && ($group(#Addtrack) == on) echo 10 -t $chan [Nick Tracking] $nick has also used the nicks: $remtok(%usednicks,$nick,1,44)
  33.     if (!$istok(%usednicks,$nick,44)) hadd -m Addtrack %mask $addtok(%usednicks,$nick,44)
  34.     if ($numtok(%usednicks,44) > 10) hadd -m Addtrack %mask $deltok(%usednicks,1,44)
  35.   }
  36.   else {
  37.     hadd -m Addtrack %mask $nick
  38.   }
  39. }
  40. on *:nick: {
  41.   if ($wildsite iswm $address($me,5)) return
  42.   var %mask = $mask($fulladdress,3)
  43.   if ($hget(Addtrack,%mask)) {
  44.     var %usednicks = $ifmatch
  45.     if (!$istok(%usednicks,$newnick,44)) hadd -m Addtrack %mask $addtok(%usednicks,$newnick,44)
  46.     if ($numtok(%usednicks,44) > 10) hadd -m Addtrack %mask $deltok(%usednicks,1,44)
  47.   }
  48.   else {
  49.     hadd -m Addtrack %mask $newnick
  50.   }
  51. }
  52. alias CheckNicks {
  53.   if (*!*@* iswm $1) {
  54.     var %mask = $mask($1,3)
  55.     if (!$hget(Addtrack,%mask)) echo 4 -ta No entry found for $1
  56.     else echo 10 -ta Address $1 has used the nicks: $hget(Addtrack,$1)
  57.   }
  58.   elseif (!$hget(Addtrack,$address($1,3))) echo 4 -ta No Entry found for $1
  59.   elseif ($hget(Addtrack,$address($1,3)) != $1) {
  60.     var %usednicks = $ifmatch
  61.     echo 10 -ta $1 has also used the nicks $remtok(%usednicks,$1,1,43)
  62.   }
  63.   else echo 10 -ta $1 has not been seen on any other nicks
  64. }
  65.  
  66. #Addtrack on
  67. #addtrack end
Posted by Joshua at 29 Jan 2015, 18:11:16 UTC
Language: mirc • Views: 1133

Comments