on *:rawmode:#op:if ($regex($1,\+(o|a|h))) { set -e %op [ $+ [ $2 ] ] $date * $time }
on *:part:#op:if %op [ $+ [ $nick ] ] { write op.txt $nick Tarih: $gettok(%op [ $+ [ $nick ] ],1,42) Giris: $gettok(%op [ $+ [ $nick ] ],2,42) Cıkıs: $time  | unset %op [ $+ [ $nick ] ]  }
on *:quit:if %op [ $+ [ $nick ] ] { write op.txt $nick Tarih: $gettok(%op [ $+ [ $nick ] ],1,42) Giris: $gettok(%op [ $+ [ $nick ] ],2,42) Cıkıs: $time  | unset %op [ $+ [ $nick ] ] }
on *:text:*:#op: {
  if ($regex($1,/[!.]bul/i)) {
    if (!$read(op.txt,w,$+($2,$chr(32),*))) { msg # $2 adinda kayıt bulunamadı! | halt }
    var %s 1 | while (%s <= $lines(op.txt)) { $iif($gettok($read(op.txt,%s),1,32) == $2,msg # $read(op.txt,%s)) | inc %belirt | inc %s }
    msg # Kayitlardaki Bilgi Sayısı, %belirt  olarak kayıtlardadir. | unset %belirt
  }
  if ($regex($1,/[!.]sil/i)) {
    if (!$read(op.txt,w,$+($2,$chr(32),*))) { msg # $2 adinda kayıt bulunamadı! | halt }
    var %s 1 | while (%s <= $lines(op.txt)) { $iif($gettok($read(op.txt,%s),1,32) == $2,write $(-dl,$readn) op.txt) | inc %s }
    msg # $2 Listeden Silindi! | unset %op [ $+ [ $2 ] ] 
  }
}