elseif $regex($2,/(PRIVMSG)/Si) && $regex($3,/^#/Si) {
  if $regex($remove($4,:),/^([!.&]s[oöÖ]z)$/Si) && ($yönetimbul($3) == 0) { 
    if $hget(Söz,$_nick($1)) { swbot notice $_nick($1) $+(4,$remove($4,:),) komut'unu kullanmanız için $hget(Söz,$_nick($1)).unset saniye beklemeniz gerek. | return }
    if $hget($3,Söz) { swbot notice $_nick($1) $+(4,$remove($4,:),) komut'unu kullanmanız için $hget($3,Söz).unset saniye beklemeniz gerek. | return }
    .hinc -msu150 Söz $_nick($1) | .hinc -msu30 $3 Söz
    var %:söz $read(soz.txt), %:sıra $readn
    swbot notice $_nick($1) 4,0Bilgi: $iif($token(%:söz,2,191),$token(%:söz,2,191),Anonim) Nickinin Eklediği Söz Hakkında Şikayetiniz Varsa Eğer, 4 %:sıra  Söz Numarasıyla 4 $_operhelp Ile Irtibata Geçiniz.
    swbot privmsg $3 :-
    swbot privmsg $3 : 0,4 / SÖZ \  -> $token(%:söz,1,191)  $+(,$chr(40),Ekleyen: $iif($token(%:söz,2,191),$token(%:söz,2,191),Anonim),,$chr(41))
    swbot privmsg $3 :-
    swbot privmsg $3 :Sizde sözünüzü göndermek istiyorsanız,4 $_bot botunun özelinde !söz <ekle> <Sözünüz> yazarak bildirebilirsiniz. (Söz Sayısı : $lines(soz.txt) $+ )
    _logs $sockname $+(4,$_nick($1),) nick'i $3 kanal'ında $remove($4,:) komutunu uyguladı. 
  }
  elseif $regex($right($4,-1),/^[!.&]s[oöÖ]z$/Si) {
    if !$regex($5,/^ekle$/Si) { swbot privmsg $_nick($1) :Lütfen4 [!.]söz <ekle> <Sözünüz> olarak belirtiniz. | return }  
    elseif $regex($5,/^ekle$/Si) {
      if !$6 { swbot privmsg $_nick($1) :Lütfen4 [!.]söz <ekle> <Sözünüz> olarak belirtiniz. | return }   
      if $regex($6-,/./Sg) <= 15 { swbot privmsg $_nick($1) :Eklemek istediğiniz söz çok kısa.(15 Harf'dan fazla olması gerek.) | return }
      if $read(soz.txt,w,$+($strip($6-),¿*)) { swbot privmsg $_nick($1) :Bu söz listemde ekli farklı bir söz ekleyiniz. | return }
      .hadd -ms ÖSözz $_nick($1) $6-
      swbot ns status $_nick($1)
    }
    elseif $regex($remove($4,:),/^([!.&]s[oöÖ]z)$/Si) { 
      if ($rootbul($_nick($1)) == 0) { swbot privmsg $3 :Master/Root listesinde ekli olmadığınızdan bu komut'u kullanamazsınız. | return }      
      elseif !$regex($5,/^(onay|s[ıiİ]l|l[ıiİ]st|all|del)$/Si) { swbot privmsg $3 :Lütfen 2[!.&]4söz 2<onay|sil|list|all|del> olarak kullanınız. | return }
      elseif $regex($5,/^onay$/Si) {
        if !$regex($6,/\d/S) { swbot privmsg $3 :Lütfen 2[!.&]4söz 2<onay> <ID> olarak belirtiniz. | return }
        elseif !$hget(Sözonay,$strip($6)) { swbot privmsg $3 :Bu ID'e ait bir söz bulunamadı. | return }
        swbot privmsg $3 $+(,$strip($6),) ID'e ait söz onaylanmıştır.
        .write soz.txt $hget(Sözonay,$strip($6))
        .hdel -ms Sözonay $strip($6)
      }
      elseif $regex($5,/^s[ıiİ]l$/Si) {
        if !$regex($6,/\d/S) { swbot privmsg $3 :Lütfen 2[!.&]4söz 2<sil> <ID> olarak belirtiniz. | return }
        elseif !$hget(Sözonay,$strip($6)) { swbot privmsg $3 :Bu ID'e ait bir söz bulunamadı. | return }
        swbot privmsg $3 $+(,$strip($6),) ID'e ait söz silinmiştir.
        .hdel -ms Sözonay $strip($6)
      }
      elseif $regex($5,/^l[ıiİ]st$/Si) {
        if ($hget(Sözonay,0).data == 0) { swbot privmsg $3 :Söz onay listesinde kayıt bulunmamaktadır. | return }
        swbot privmsg $3 :Söz Onay listesi
        swbot privmsg $3 :
        var %m = 1 | while (%m <= $hget(Sözonay,0).data) {
          swbot privmsg $3 $+(%m,-4,$chr(41),) ID: $hget(sözonay,%m).item - Söz: $token($hget(sözonay,%m).data,1,191) - Ekleyen: $token($hget(sözonay,%m).data,2,191)
          inc %m
        }
        swbot privmsg $3 :
        swbot privmsg $3 :Sözler'i onaylamak için:4 [!.]söz 2<onay> <ID> olarak belirtiniz.
      }
      elseif $regex($5,/^all$/Si) {
        if ($hget(Sözonay,0).data == 0) { swbot privmsg $3 :Söz onay listesinde kayıt bulunmamaktadır. | return }
        var %m = 1 | while (%m <= $hget(Sözonay,0).data) {
          .write soz.txt $hget(sözonay,%m).data
          inc %m
        }
        .hfree -sw sözonay
        swbot privmsg $3 :Sözler onaylanmıştır.
      }
      elseif $regex($5,/^del$/Si) {
        if !$regex($6,/\d/S) { swbot privmsg $3 :Lütfen 2[!.&]4söz 2<del> <Sıra> olarak belirtiniz. | return }
        elseif $lines(soz.txt) < $strip($6) { swbot privmsg $3 :Bu Sıra'ya ait bir söz bulunamadı. Toplam söz sayısı; $lines(soz.txt) | return }
        swbot privmsg $3 $+(,$strip($6),) Sırası`na ait söz silinmiştir.
        .write $+(-,dl,$strip($6)) soz.txt
      }
    }
  }
}