alias giris {
  return giris
}
alias giris.txt {
  return giris.txt
}
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
    ; get the previous nicks
    var %nicks = $readini(giris.txt, %ip, nicks)
    ; add the new nick ($addtok will take care of duplicates)
    var %nicks = $addtok(%nicks,$6,32)
    ; update the nicks
    writeini -n giris.txt %ip nicks %nicks
    ; update the seen time
    writeini -n giris.txt %ip seentime $date
    if ($window(@giris) == $null) { window -ne @giris }
    echo 13 -t @giris 4Bağlanan 5 $6 4 IP Adresi 5 $4 4 Önceki KuLandığı Nickler: 12 $readini(giris.txt, %ip, nicks) 4 Son Görülen Zaman 5 $readini(giris.txt, %ip, seentime)
    halt
  }
}
raw 315:*: {
  if %tkp. [ $+ [ $2 ] ] {
    unset %tkp. [ $+ [ $2 ] ]
    halt
  } 
} 

menu nicklist {
  NickTrack: if $regex($usermode,o) { set %tkp. [ $+ [ $1 ] ] 1 | who +I $$1 }

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