on *:SNOTICE:*Client connecting*:if $read(identd.txt,w,$remove($right($gettok($10,1,64 ),-1),~)) { chgident $9 Sohbet }
menu * {
  identd Koruması
  .ekle:write identd.txt $$?="Ysak identd örnk ahmet:"
  .çıkart:write $+(-ds,$$?="Silinecek identd örnk ahmet:") $shortfn($mircdiridentd.txt)
  .listele:liste
}
alias liste {
  var %ntc 1
  while %ntc <= $lines(identd.txt) {
    echo -a $read(identd.txt,%ntc) $1-
    inc %ntc
  }
}