Kanala Girişte Nick/Address Uyarıcı

on *:load: { 
  .echo -aq $input(Yapımcı: SaNCaK $+ $crlf $+ $crlf $+ Addon: Nick/Address Uyarıcı $chr(40) $+ v5.4 $+ $chr(41) $+ $crlf $+ $crlf $+ Yapım: 17/10/2014 $+ $crlf $+ $crlf $+ Iletişim: sancak@outlook.com.tr $+ $crlf $+ $crlf $+ Kodu Kullandığınız için Teşekkür ederim,igo,Addon: Nick/Address Uyarıcı $chr(40) $+ v5.4 $+ $chr(41))
  echo -a _____________________________________________________________________________________
  echo -a 4,1[15,1 SaNCaK 4,1] 0,1 Add-On yükleniyor... 
  echo -a 4,1[15,1 SaNCaK 4,1] 0,1 Çalışan mIRC15 $version 0Sistem15 Windows $+ $os 
  echo -a 4,1[15,1 SaNCaK 4,1] 0,1 Coder: 15SaNCaK 0,1 E-Mail: 15sancak@outlook.com.tr 
  echo -a 4,1[00,01 SaNCaK 4,1] 15,1 Copyright 12©15 1999-2017 
  echo -a ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
  hmake addtrack 9999
}
on *:unload: { 
  .echo -aq $input(Author: SaNCaK $+ $crlf $+ $crlf $+ Addon: Nick/Address Uyarıcı $chr(40) $+ v5.4 $+ $chr(41) $+ $crlf $+ $crlf $+ Released at: 17/10/2016 $+ $crlf $+ $crlf $+ Contact: sancak@outlook.com.tr $+ $crlf $+ $crlf $+ Unloading...,igo,Addon: Nick/Address Uyarıcı $chr(40) $+ v5.4 $+ $chr(41))
}
menu channel,menubar,nicklist {
  Nick Uyarı
  .$iif($group(#Addtrack) == on,$style(1)) Girişte eski nickleri göster (*@host): {
    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 9999
  if ($isfile(addtrack.hsh)) hload addtrack addtrack.hsh
}

on *:exit: { 
  if ($hget(addtrack)) hsave -o addtrack addtrack.hsh
}

#Addtrack off
on *:join:#: {
  if ($wildsite iswm $address($me,5)) return
  var %mask = $mask($fulladdress,2)
  if ($hget(addtrack,%mask)) {
    var %usednicks = $ifmatch
    if (%usednicks != $nick) && ($group(#Addtrack) == on) echo 14 -t $chan 14 [Nick Uyarı]  $nick  daha önce kullandığı nick:: 7 $+ $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,2)
  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,2)
    if (!$hget(addtrack,%mask)) echo 4 -ta [Nick Uyarı (*@host)] No entry found for $1
    else echo 10 -ta Address $1 has used the nick[s]: 7 $+ $hget(addtrack,$1)
  }
  elseif (!$hget(addtrack,$address($1,2))) echo 4 -ta [Nick Uyarı (*@host)] No entry found for $1
  elseif ($hget(addtrack,$address($1,2)) != $1) {
    var %usednicks = $ifmatch
    echo 10 -ta [Nick Uyarı (*@host)] $1 has also used the nick[s]: 7 $+ $remtok(%usednicks,$1,1,43)
  }
  else echo 10 -ta [Nick Uyarı (*@host)] $1 has not been seen using any other nicks.
}