on !*:join:#:{
set %nick $nick
set %mask $address($nick,2)
set %nick2 $readini profil.ini %mask nick
set %mask2 $readini profil.ini %mask mask
if %mask == %mask2 && %nick != %nick2 {
set %quand $readini profil.ini %mask quand | beep
$iif(!$window(@IP-Takip),window -z @IP-Takip)
aline -hp @IP-Takip - $- $+($time,-) $+($chr(40),#,$chr(41)) $nick nickinin,bundan önce aynı IP'den giriş yaptığı nick: %nick2 $+($chr(40),%quand,$chr(41))
}
if !$ini(profil.ini,mask) { hashtable }
}
alias hashtable { 
if !$hget(profil) { .hmake profil 5 } 
else { .hadd profil nick %nick | .hadd profil mask %mask | .hadd profil quand $+($time,-,$date) | .hsave -sai profil profil.ini $hget(profil,mask) | .hfree -s profil }
}

off !*:join:#: { 
  if ($hmatch(#,$+($site,*),0) >= 2) { 
    kntrl # $site $nick 
  } 
  hadd -m # $+($site,½,$nick) 1 
}
alias kntrl { 
  var %1 1,%2 
  while ($hmatch($1,$+($2,*),%1)) {
    var %& = $gettok($v1,2,189) 
    if (%& != $3) { 
      %2 = $addtok(%2,%&,32) 
    } 
    inc %1 
  } 
  $iif($gettok(%2,2,32),msg #opers 5*** Bilgi: $3 nick'i daha önce; %2 nicklerinden giriş yaptı.)
}