on $*:text:/[!.]hediye\s+\S+$/SAi:#: {
  if $hget(hediye,$nick) { notice  $nick $hget(hediye,$nick).unset Saniye içersinde, Yalnız 1 defa [!]hediye Komutunu Kullanabilirsiniz. | return }
  if ($2 ison $chan) { msg $chan $nick Tarafından $2 Nickine Hediye Yollandı. Hediyeniz: $read(hediye.txt) }
  .hinc -msu10 hediye $nick 
}
else { msg # $2 Nicki Kanalda Bulunmuyor.
}

on $*:text:/[!.]s(o|ö)z\s+\S+$/SAi:#: {
  if $hget(soz,$nick) { notice  $nick $hget(soz,$nick).unset Saniye içersinde, Yalnız 1 defa [!]söz Komutunu Kullanabilirsiniz. | return }
  if ($2 ison $chan) { msg $chan $nick Tarafından $2 Nickine Söz Yollandı. Sözünüz: $read(söz.txt) }
  .hinc -msu10 soz $nick 
}
else { msg # $2 Nicki Kanalda Bulunmuyor.
}

var %senyor $rand(101,9999)

var %senyor $+($r(a,z),$r(a,z),$r(a,z),$r(a,z),$r(a,z))

on *:text:*:?: { 
  if $1 == !sozekle && $3 || $1 == !sözekle && $3 || $1 == .sözekle && $3 || $1 == .sozekle && $3 {
    var %senyor2 $replace($2-,$chr(32),+) $+ $chr(0229) $+ $nick 
    var %senyor $+($r(a,z),$r(a,z),$r(a,z),$r(a,z),$r(a,z))
    hadd -m soz %senyor %senyor2 
    msg #kanal 4 $gettok($replace($hget(soz,%senyor),+,$chr(32)),1,$asc(å)) 1Sözü Onay Listesine Alindi. Bu Sözü Onaylamak İçin4 !onay %senyor 1Yaziniz. (Ekleyen Nick:13 $gettok($replace($hget(soz,%senyor),+,$chr(32)),2,$asc(å)) )
    msg $nick Talebiniz İlgililere İletilmiştir, Sözünüz Onaylandiğinda Veya Reddedildiğinde Size Memo Yoluyla Bilgi Verilecektir. Haberdar Olabilmek İçin Nickinizin Kayitli Oldugundan Emin Olunuz.
  }
}
on *:text:*:#kanal: { 
  if $chan == #kanal { 
    if $1 == !silsoz && $2 { 
      if $hget(soz,$2) {
        msg #kanal 4 $2 1Kod Numaralı4 $gettok($replace($hget(soz,$2),+,$chr(32)),1,$asc(å)) 1Sözü İsteğiniz Üzere 4Silinmiştir
        ms send $gettok($hget(soz,$2),2,$asc(å)) Sayin $gettok($hget(soz,$2),2,$asc(å)) Gönderdiğiniz $2 Onay Numarali Söz Uygun Bulunmamiştir.. İlginize Teşekkür Ederim.
        hdel -s soz $2 
      }
    }
    if $1 == !listeleonayli && !$2 { 
      var %i 1 
      while %i <= $lines(onaylisoz.txt) { 
        msg # $read(onaylisoz.txt,%i)
        inc %i
      }
    }
    if $1 == !listelesoz && !$2 { 
      var %i 1 
      while %i <= $hmatch(soz,*,*) { 
        msg #Snape 4Söz:10 $gettok($replace($hget(soz,$hmatch(soz,*,%i)),+,$chr(32)),1,$asc(å)) 7Onay Kodu:12 $hmatch(soz,*,%i)
        inc %i
      }
    }
    if $1 == !onay && $2 {
      if $hget(soz,$2) { 
        write onaylisoz.txt $gettok($replace($hget(soz,$2),+,$chr(32)),1,$asc(å)) 1Gönderen Nick:4 $gettok($hget(soz,$2),2,$asc(å))  | msg #kanal 4 $gettok($replace($hget(soz,$2),+,$chr(32)),1,$asc(å)) 1Sözü Onaylanmiştir.
        ms send $gettok($hget(soz,$2),2,$asc(å)) Sayin $gettok($hget(soz,$2),2,$asc(å)) Gönderdiğiniz $2 Onay Numarali Söz Onaylanmiştir. İlginize Teşekkür Ederim.
        hdel soz $2 
      }
    }
  }
  if $regex($1,/^[.!]s[oö][zZ]$/Si) {
    if (%x = var) { msg $chan $nick 0,9Bu komutu 60 saniyede 1 kez kullanabilirsiniz. | return }
    set -u60 %x var
    msg # $upper ~7  $nick  ~ 4Sizin için gelen söz: 2 12 $read(onaylisoz.txt)
  }
}

Kodun Sahibi Coder @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] tur. 
Kendimce bir şeyler yapmaya çalıştım. 
Eklenenler:
!söz yazınca (söz onaylandıktan sonra !söz yazınca tekrar çıkan) örnek: "onay kodu: 45451" kısmı kaldırılmıştır.
Bu Sözü Onaylamak İçin !onay wfedj Yaziniz. <- Bazı serverlarda spama takılmaması için rakam yerine harf yapıldı. Bunu da @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] e sormuşlardı o da cevaplamıştı. Eklemiş olalım.
Söz ekleme kısmı !soz yerine .!soözekle yapılmıştır.
60 Sn içinde 1 kez kullanım hakkı var.
!söz nick yerine bu versionda sadece !söz yapılmıştır. 
Örnek:
[04:51] <Wazted> !söz
[04:51] <@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]n> ~  Wazted  ~ Sizin için gelen söz:   Her şeyin sonunda olduğumu, önümde hiçbir şey kalmadığımda değil, içimde hiç bir şey kalmadığında anlamıştım.. Gönderen Nick: FatLady

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 05:23 -->-> Daha önceki mesaj 04:51 --

on *:text:*:?: { 
  if $1 == !sozekle && $3 || $1 == !sözekle && $3 || $1 == .sözekle && $3 || $1 == .sozekle && $3 {
    var %senyor2 $replace($2-,$chr(32),+) $+ $chr(0229) $+ $nick 
    var %senyor $+($r(a,z),$r(a,z),$r(a,z),$r(a,z),$r(a,z))
    hadd -m soz %senyor %senyor2 
    msg #kanal 4 $gettok($replace($hget(soz,%senyor),+,$chr(32)),1,$asc(å)) 1Sözü Onay Listesine Alindi. Bu Sözü Onaylamak İçin4 !onay %senyor 1Yaziniz. (Ekleyen Nick:13 $gettok($replace($hget(soz,%senyor),+,$chr(32)),2,$asc(å)) )
    msg $nick Talebiniz İlgililere İletilmiştir, Sözünüz Onaylandiğinda Veya Reddedildiğinde Size Memo Yoluyla Bilgi Verilecektir. Haberdar Olabilmek İçin Nickinizin Kayitli Oldugundan Emin Olunuz.
  }
}
on *:text:*:#kanal: { 
  if $chan == #kanal { 
    if $1 == !silsoz && $2 { 
      if $hget(soz,$2) {
        msg #kanal 4 $2 1Kod Numaralı4 $gettok($replace($hget(soz,$2),+,$chr(32)),1,$asc(å)) 1Sözü İsteğiniz Üzere 4Silinmiştir
        ms send $gettok($hget(soz,$2),2,$asc(å)) Sayin $gettok($hget(soz,$2),2,$asc(å)) Gönderdiğiniz $2 Onay Numarali Söz Uygun Bulunmamiştir.. İlginize Teşekkür Ederim.
        hdel -s soz $2 
      }
    }
    if $1 == !listeleonayli && !$2 { 
      var %i 1 
      while %i <= $lines(onaylisoz.txt) { 
        msg # $read(onaylisoz.txt,%i)
        inc %i
      }
    }
    if $1 == !listelesoz && !$2 { 
      var %i 1 
      while %i <= $hmatch(soz,*,*) { 
        msg #Snape 4Söz:10 $gettok($replace($hget(soz,$hmatch(soz,*,%i)),+,$chr(32)),1,$asc(å)) 7Onay Kodu:12 $hmatch(soz,*,%i)
        inc %i
      }
    }
    if $1 == !onay && $2 {
      if $hget(soz,$2) { 
        write onaylisoz.txt $gettok($replace($hget(soz,$2),+,$chr(32)),1,$asc(å)) 1Gönderen Nick:4 $gettok($hget(soz,$2),2,$asc(å))  | msg #kanal 4 $gettok($replace($hget(soz,$2),+,$chr(32)),1,$asc(å)) 1Sözü Onaylanmiştir.
        ms send $gettok($hget(soz,$2),2,$asc(å)) Sayin $gettok($hget(soz,$2),2,$asc(å)) Gönderdiğiniz $2 Onay Numarali Söz Onaylanmiştir. İlginize Teşekkür Ederim.
        hdel soz $2 
      }
    }
  }
  if $regex($1,/^[.!]s[oö][zZ]$/Si) { 
if (%x = var) { msg $chan $nick bu komutu 60 saniyede 1 kez kullanabilirsiniz. | return }
  set -u60 %x var
  if ($2 ison $chan) {
    msg # ~7  $2  ~ 4Sizin için gelen söz: 2 12 $read(onaylisoz.txt)
  }
  else { msg $chan 0,1 $nick 3 $2 4 Nicki 3Kanalda4 Bulunmuyor. }
}

!söz nick versiyonu

Kodun Sahibi Coder @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] tur. 
Kendimce bir şeyler yapmaya çalıştım. 
Eklenenler:
Bu Sözü Onaylamak İçin !onay wfedj Yaziniz. <- Bazı serverlarda spama takılmaması için rakam yerine harf yapıldı. Bunu da @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] e sormuşlardı o da cevaplamıştı
!söz yazınca "onay kodu: 45451" kısmı kaldırılmıştır.
Söz ekleme kısmı !soz yerine .!soözekle yapılmıştır.
60 Sn içinde 1 kez kullanım hakkı var.
!söz nick yazıldığında kanalda o nick yoksa "Falanca Nick kanalda değil" uyarısı verir. 
Örnek:[05:16] <Fatman> !söz Kintos [05:16] <@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]n> Kintos Nicki Kanalda Bulunmuyor.

on *:text:*:?: { 
   if $1 == !soz && $3 {
     var %senyor2 $replace($2-,$chr(32),+) $+ $chr(0229) $+ $nick 
     var %senyor $rand(101,9999)
     hadd -m soz %senyor %senyor2 
    msg #opers  $gettok($replace($hget(soz,%senyor),+,$chr(32)),1,$asc(å)) Sözü Onay Listesine Alindi. Bu Sözü Onaylamak İçin !onay %senyor Yaziniz. (Ekleyen Nick: $gettok($replace($hget(soz,%senyor),+,$chr(32)),2,$asc(å)) )
     msg $nick Talebiniz İlgililere İletilmiştir, Sözünüz Onaylandiğinda Veya Reddedildiğinde Size Memo Yoluyla Bilgi Verilecektir. Haberdar Olabilmek İçin Nickinizin Kayitli Oldugundan Emin Olunuz.
   }
 }