Kod

on 5*:text:*:#: {
  if ($1 == .oku && !$2) { msg $chan  hatalı kullanım | return }
  elseif $regex($1,/[.]oku/Si) && $2 && !$read(sozlerrr.txt,$readn) {
  msg $chan  Tanıma uygun soz bulunamadı. } 
  elseif ($1 == .oku && $2) { 
    msg $chan  Kelime algılandı kayıtlara bakılıyor. ( $2 )
    $read(sozlerrr.txt,w,$+(*,$2,*)) 
  msg $chan $read(sozlerrr.txt,$readn) } 
  if ($1 == .eklesoz && !$2) { msg $chan 4Hatalı kullanım; .eklesoz (eklemek istediğiniz soz) | return }
  elseif ($1 == .eklesoz && $2)  { 
    write sozlerrr.txt $2-
    msg $chan  $nick ,  sözünüz sisteme eklendi teşekkür ederiz.
  }
  if ($1 == .sozsil) {
    if ($2 == $null) { msg $chan 4Hatalı kullanım;  .sozsil (silenecekkısım) } 
    elseif ($regex($1,/^[.]s.zs[iı]l/Si) && $2) && ($nick != Kod) { msg $chan Yetkili değilsiniz. }
    elseif ($regex($1,/^[.]s.zs[iı]l/Si) && $2) && (!$read(sozlerrr.txt,$readn)) {
    msg $chan  Herhangi bir soz bulunmuyor. }
    else {
      write $+(-dl,$readn) sozlerrr.txt
    msg $chan işlem başarı ile gercekleştirildi. }
  }
}