on *:dialog:nick:*:*:{
  if ($regex($devent,^init$)) { if ($read(nickler.txt)) { loadbuf -o $dname 3 nickler.txt } }
  if ($regex($devent,^sclick$)) {
    if ($regex($did,^5$)) { var %e = $did(4) | if (!%e) { $iif($input(Nick girmediniz.,y) == $true,halt,halt) | halt } 
      else { $iif($read(nickler.txt,w,%e),$iif($input(Eklediğiniz nick mevcut.,y) == $true,halt,halt),write nickler.txt %e) | did -a $dname 3 %e | did -r $dname 4 }
    }
    if ($regex($did,^6$)) { var %r = $did($dname,3).sel | if (!%r) { $iif($input(Herhangi bir nick seçmediniz.,y) == $true,halt,halt) | halt }
      else { var %- = $did($dname,3).seltext | did -d $dname 3 %r | write $+(-ds,%-) nickler.txt }
    }
  }
}