on ^*!:Join:#sohbet: {
  if $regex($usermode,o) {
    set %tkp. [ $+ [ $nick ] ] 1
    who +I $nick
  }
}

on ^*!:nick: {
  if $regex($usermode,o) {
    set %tkp. [ $+ [ $newnick ] ] 1
    who +I $newnick
  }
}

raw 352:*: {
  if %tkp. [ $+ [ $6 ] ] {
    var %ip = $4
    var %nicks = $readini(%dosya, %ip, nicks)

    if (%nicks) {
      if ($window(@giris) == $null) { window -ne @giris }
      echo 13 -t @giris Bağlanan $6 IP Adresi $4 Önceki Kullanıldığı Nickler: %nicks
    }

    var %nicks = $addtok(%nicks, $6, 32)
    writeini -n %dosya %ip nicks %nicks
    writeini -n %dosya %ip seentime $date
    halt
  }
}