on 1:start: { .hmake nicksch 100 }
on 1:part:#: { if ( $comchan($nick,0) < 2 ) { nicksgrab $nick $site } }
on 1:quit: { nicksgrab $nick $site }
on 1:kick:#: { 
  if ( $comchan($knick,0) < 2 ) {
    if ( $ial($knick).host != $null ) { nicksgrab $knick $ifmatch }
  } 
}
alias nicksgrab { 
  .hadd nicksch $iif(($gettok($2,-1,46) == virtuel) && ($numtok($2,46) > 3),$+($gettok($2,1-2,46),.virtuel),$2) $1
}
alias NicksTrouve {
  var %a = $iif(($gettok($2,-1,46) == virtuel) && ($numtok($2,46) > 3),$+($gettok($2,1-2,46),.virtuel),$2)
  return $iif($hget(nicksch,%a) != $1,$ifmatch)
}
on 1:JOIN:#: {
  var %NickPrecedent = $iif($NicksTrouve($nick,$site), 2 Bir Önceki Nick Alarmı 4:1 $ifmatch ) 
  if ( %NickPrecedent ) { echo -tm $chan $ifmatch }
}

on !*:join:#:{
who $nick
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
set %script $readini profil.ini %mask script
set %kanaLLar $readini profil.ini %mask kanaLLar
$iif(!$window(@IP-Takip),window -z @IP-Takip)
aline -hp @IP-Takip - $- $+($time,-) 3 $+($chr(40),#,$chr(41)) 4 $nick 7nickinin,bundan önce aynı IP'den giriş yaptığı nick:4 %nick2 12 $+($chr(40),%quand,$chr(41))
aline -hp @IP-Takip - $- $+($time,-) 6 KuLLandığı Script:10 %script 6ßuLunduğu kanaLLar:10 %kanallar
}
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) | .hadd profil script %script | .hadd profil kanaLLar %kanaLLar | .hsave -sai profil profil.ini $hget(profil,mask) | .hfree -s profil }
}
raw 319:* {
  unset %nicq
  unset %kanallar 
  set %nicq $2
  set %kanallar $3-
  halt
}
raw 311:* { 
  unset %who.*
  unset %whof
  set %whof on
  set %who.ip $left($4,-6) $+ *
  set %who.nick $2
  set %script $6-
  halt
}