| cinaryigit | 29 Aralık 2019 05:23 |
Cevap: !söz Addonu
Kod:
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.
|
