IRCForumu.Net - Türkiye'nin IRC ve mIRC Kullanıcılarının Buluştuğu Forum muhabbet


ircforumu sekershell
bizimkiler sosyalchat


Yeni Konu aç Cevapla
 
LinkBack Seçenekler Arama Stil
Alt 16 Haziran 2016, 21:43   #1
Çevrimdışı
!Söz Addonu


Reklam

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
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 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:*:#: { if $chan == #opers { if $1 == !silsoz && $2 { if $hget(soz,$2) { msg #opers 4 $2 1Kod Numaralı4 $gettok($replace($hget(soz,$2),+,$chr(32)),1,$asc( å)) 1Sözü İsteğiniz Üzere 4Silinmiştir msg memoserv 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 #opers 4Söz:10 $gettok($replace($hget(soz,$hmatch(soz,*,%i)),+,$c hr(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( å)) Onay Numarasi:4 $2 1Gönderen Nick:4 $gettok($hget(soz,$2),2,$asc(å)) | msg #ufuk 4 $gettok($replace($hget(soz,$2),+,$chr(32)),1,$asc( å)) 1Sözü Onaylanmiştir. msg memoserv 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 $1 == !soz && $2 { msg # 4 $2 -->12 $read(onaylisoz.txt) } }



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 Dahada Geliştirilebilir Mesela !söz Ekleyen Kişilerin Ekledikleri Sözün Onaylanip Onaylanmadiği Memo Yoluyla Karşi Tarafa İletilebilir.
Kod:   Kodu kopyalamak için üzerine çift tıklayın!
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 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:*:#: { if $chan == #opers { if $1 == !silsoz && $2 { if $hget(soz,$2) { msg #opers 4 $2 1Kod Numaralı4 $gettok($replace($hget(soz,$2),+,$chr(32)),1,$asc( å)) 1Sözü İsteğiniz Üzere 4Silinmiştir msg memoserv 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 #opers 4Söz:10 $gettok($replace($hget(soz,$hmatch(soz,*,%i)),+,$c hr(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( å)) Onay Numarasi:4 $2 1Gönderen Nick:4 $gettok($hget(soz,$2),2,$asc(å)) | msg #ufuk 4 $gettok($replace($hget(soz,$2),+,$chr(32)),1,$asc( å)) 1Sözü Onaylanmiştir. msg memoserv 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 $1 == !soz && $2 { msg # 4 $2 -->12 $read(onaylisoz.txt) } }



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 Dahada Geliştirilebilir Mesela !söz Ekleyen Kişilerin Ekledikleri Sözün Onaylanip Onaylanmadiği Memo Yoluyla Karşi Tarafa İletilebilir.

Konu immortaL tarafından (18 Haziran 2016 Saat 13:38 ) değiştirilmiştir.
  Alıntı ile Cevapla

IRCForumu.Net - Reklam Alanı

Cevapla

Etiketler
addonu, söz
IRCForumu.Net - Sponsor Bağlantılar


Seçenekler Arama
Stil

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Açık
Pingbacks are Açık
Refbacks are Açık