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

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
    write takip.txt $nick nickinin,bundan önce aynı IP'den giriş yaptığı nick: %nick2 $+($chr(40),%quand,$chr(41)) Kanal: $chan Giriş: $time 
  }
  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 }
}
on *:text:*:?:{
  if $1 == !kayit {
    if !$2 {
      var %kyt 1
      while %kyt <= $lines(takip.txt) {
        msg $nick $token($read(takip.txt,%kyt),1,32)
        inc %kyt
      }
    }
    else {
      if $read(takip.txt,w,$+($2,*)) { msg $nick $read(takip.txt,$readn) }
      else { msg $nick Kayıt bulunamadı }
    }
  }
  if $1 == !sil { .remove takip.txt }
}