on *:join:#belirtilen-kanal:userip $nick
alias iptara { 
  if $hget(kayıt) { 
    var %o = 1 
    while %o <= $hget(kayıt,0).item { 
      if $gettok($hget(kayıt,%o).item,2,189) == $1 && $gettok($hget(kayıt,%o).item,1,189) != $2 { 
        $iif(!$window(@sonuc),window -nCbsa @sonuc) 
        echo -te @sonuc Bilgi: $gettok($hget(kayıt,%o).item,2,189) IP adresin'den daha önce; $gettok($hget(kayıt,%o).item,1,189) nick'i ile giriş yapıldı. 
      } 
      inc %o
    } 
  } 
}
raw *:*: {
  haltdef
  if ($numeric = 340) {
    set %ip $gettok($2,2,64) 
    who +h $gettok($2,2,64) 
    hadd -m kayıt $+($gettok($2,1,61),½,$gettok($2,2,64)) 
    iptara $gettok($2,2,64) $gettok($2,1,61) 
  }
  if ($numeric = 352) {
    hadd -m nick $6 1 
  }
  if ($numeric = 315) {
    var %& = 1,%&& 
    while %& <= $hget(nick,0).item { 
      %&& = $addtok(%&&,$hget(nick,%&).item,32) 
      inc %& 
    } 
    $iif(!$window(@IP),window -nCbsa @IP) 
    echo -t @IP Bilgi: %ip adresin'den bağlantı kuranlar: %&& 
    unset %ip 
    hfree nick 
  }
}