ForumTEK.Net - IRC Forumu

Alıntı:

on *:text:*:?: {
if $1 == !soz && $3 {
var %ufuk $replace($2-,$chr(32),+)
var %senyor $rand(101,9999)
hadd -m soz %senyor uk
msg #Opers 4 $replace($hget(soz,%senyor),+,$chr(32)) 1Sözü Onay Listesine Alindi. Bu Sözü Onaylamak İçin4 !onay %senyor 1Yaziniz.
}
}

Alıntı:

on *:text:*:#: {
if $chan == #opers {
if $1 == !silsoz && $2 {
if $hget(soz,$2) {
msg #Opers 4 $2 1Kod Numaralı4 $replace($hget(soz,$2),+,$chr(32)) 1Sözü İsteğiniz Üzere 4Silinmiştir
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 #Opers 4Söz:10 $replace($hget(soz,$hmatch(soz,*,%i)),+,$chr(32)) 7Onay Kodu:12 $hmatch(soz,*,%i)
inc %i
}
}
if $1 == !onay && $2 {
if $hget(soz,$2) {
write onaylisoz.txt $replace($hget(soz,$2),+,$chr(32)) | msg #Opers 4 $replace($hget(soz,$2),+,$chr(32)) 1Sözü Onaylanmiştir.
hdel soz $2
}
}
}
if $1 == !soz && $2 {
msg # 4 $2 -->12 $read(onaylisoz.txt)
}
}

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Komutlar:

Botun Özeline: !soz eklenecek söz şeklinde yazilir.

#Opers Kanalına Eklenen Söz Onaya Onay Numarasıyla Beraber Düşer;

Onaylamak İçin: !onay onaynumarasi

Onaylanmamiş Sözleri Listelemek İçin: !listelesoz

Onaylanmiş Sözleri Listelemek İçin: !listeleonayli

Onay Bekleyen Fakat Onaylanmasi İstenmeyen Sözü Onay Listesinden Kaldirmak İçin: !silsoz onaynumarasi

Birine Kanalda Söz Göndermek İçin: !soz <nicki>

Resimden Komutlari Daha Net Anlayabilirsiniz.

Dipnot: 3 Kelimeden Daha Az Kelime Sayisina Sahip Sözler Eklenemez. !soz Naber Nasilsin Eklenmez. !soz Naber Nasilsin İyiyim Eklenir.

Onay Kanalı Default #Opers 'dir koddan kendinize göre değiştirebilirsin.

Kod yazarı: uFuK