if ($window(@giris) == $null) { window -ne @giris }

 
echo 13 -t @giris

[20:03:24] Bağlanan  Şırnakli_kız  IP Adresi  95.12.36.***  Önceki KuLandığı Nickler:  Şırnakli_kız  Son Görülen Zaman  02/09/2023 20:03:24
[20:03:26] Bağlanan  Sevcan  IP Adresi  78.190.22.***  Önceki KuLandığı Nickler:  Sevcan  Son Görülen Zaman  02/09/2023 20:03:26

[95.12.36.218]
nicks=Şırnakli_kız
seentime=02/09/2023
20:03:24
[78.190.22.218]
nicks=Sevcan
seentime=02/09/2023
20:03:26

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 | write giris.txt $time
    window -e @Giris
    echo @Giris $timestamp 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 $time )
    halt
  }
}
raw 315:*: {
  if %tkp. [ $+ [ $2 ] ] {
    unset %tkp. [ $+ [ $2 ] ]
    halt
  } 
} 

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