alias opsecme { dialog -m opsecme opsecme }

dialog opsecme {
  title "opsecme"
  size -1 -1 123 103
  option dbu
  list  1, 15 8 94 55, size
  edit "", 2, 20 68 83 11
  button "ekle", 3, 16 86 37 12
  button "sil", 4, 71 86 37 12
}
ON *:dialog:opsecme:init:*:{ 
  var %i 1
  while (%i <= $lines(nickler.txt)) {
    did -a opsecme 1 $read(nickler.txt,%i)
    inc %i
  }
}
ON *:dialog:opsecme:sclick:*:{
  if ($did == 3)  { write nickler.txt $did(2) | did -a opsecme 1 $did(2) }
  if ($did == 4)  { write -d nickler.txt $did(1).seltext | did -d opsecme 1 $did(1).sel
  }
}

alias opol {
  inc %ims 1
  if (%ims > $lines(nickler.txt)) { .unset %ims | inc %ims 1 }
  set %yeninick $read(nickler.txt,%ims)
  nick $gettok(%yeninick,1,32)
  identify $gettok(%yeninick,2,32)
  unset %yeninick
  set %eskinick $me
}

alias geridon {
  nick %eskinick 
  unset %eskinick
}