Nick Tracking

By SaNCaKx on Nov 08, 2016

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.
}

Comments

Sign in to comment.
Are you sure you want to unfollow this person?
Are you sure you want to delete this?
Click "Unsubscribe" to stop receiving notices pertaining to this post.
Click "Subscribe" to resume notices pertaining to this post.