if ($regex($nick(#,$nick).pnick,[&.~])) {

on *:text:!söz*:#:{
  if ($regex($nick(#,$nick).pnick,[&.~])) {
    if $2 == ekle && $3 {
      write sözler.txt numarali söz $nick tarafindan eklendi: " $+ $3- $+ " $+(,$chr(40),$date,$chr(41),) 
      msg # söz basariyla eklendi. !söz list yazarak sözleri listeleyebilirsiniz.
    }
    if $2 == sil {
      if $nick isop $chan {
        if !$3 {
          msg # söz silmek icin numara belirtmelisiniz.
          halt
        }
        else {
          write $+(,-dl,$3,) sözler.txt
          msg # $3 numarali söz silindi.
        }
      }
      else {
        msg # sözleri sadece yoneticiler silebilir.
        halt
      }
    }
    if $2 == list {
      if $lines(sözler.txt) = 0 { msg # söz bulunamadi. | halt }
      msg # sözler listeleniyor.
      var %massacre 1
      while (%massacre <= $lines(sözler.txt)) {
        msg # %massacre $read(sözler.txt,%massacre)
        inc %massacre
      }
    }
  } 
}