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 30 Haziran 2016, 00:00   #1
Çevrimdışı
Gelme, burası çok derin.

immortaL - ait Kullanıcı Resmi (Avatar)
RezilEt Tcl


Reklam

Sunucunuzda küfreden veya "keşke atmadan önce kafa bulsak" dediğiniz zavallılar için kullanabiliceğiniz bir tcl yaptım. Yetkili kanalı #Opers olarak belirledim. Bu kanaldakiler kullanabilicek. Sunucuda sendraw modülünün kurulu olması gerek, bot raw komutlarını da kullanabilmeli. Gelelim amacı ve kullanımm şekline, ki gayet açık ve net aslında. Küfür eden biri olursa onun ağzından konuşmasını sağlayıp susturucak ve nickini değiştiriceksiniz. Mesajları kendinize göre değiştirebilirsiniz. Tamamen can sıkıntısından yazılmış bir TCL olup, bugün çoğumuzun gülse bile işine yarayabilicek bişey.

Kullanım:

PHP Kod:   Kodu kopyalamak için üzerine çift tıklayın!
!rezilet Nick 



Kod:   Kodu kopyalamak için üzerine çift tıklayın!
#RezilEt TCL - Written by aLoNe #Sunucunuzda m_sendraw.c modülü yüklenmiş olmalıdır. #Botun RAW yetkisi olması şarttır. #Öküzler için bire bir. #Kullanım: !rezilet Nick #Başlayalım..! set rdlck [rand 9999999] set admin_chan "#Opers" bind pub - !rezilet rezalet proc rezalet { n u h c a } { global botnick admin_chan rdlck if {[onchan $n $admin_chan]==1} { putserv "shun $a Sus!" putserv "sendraw $c ::$a PRIVMSG $c :Merhaba :(" putserv "sendraw $c ::$a PRIVMSG $c :Ben çok öküzüm :V" putserv "sendraw $c ::$a PRIVMSG $c :Hani nasıl desem, semer vurup deh deseniz ayıp olmaz ühühüüü :(" putserv "sendraw $c ::$a PRIVMSG $c :Rahatsız ettim sizleri de mallığımla." putserv "sendraw $c ::$a PRIVMSG $c :Ama ne demişler zayıf öküzün kıblesi olmazmış :c" putserv "sendraw $c ::$a PRIVMSG $c :Harbi malım ben yaa :(" putserv "sendraw $c ::$a PRIVMSG $c :Özür dilerim hepinizden. Allah belamı vereydi benim :(" putserv "sendraw $c ::$a PRIVMSG $c :Vay arkadaş ne malım ben yaa..." putserv "sendraw $c ::$a PRIVMSG $c :Affedin beni :(" putserv "sendraw $c ::$a PRIVMSG $c :Nickimi değişim de kafa bulun azcık :(" putserv "os raw svsnick $a YilinAngutu$rdlck :1" putserv "sendraw $c ::$a PRIVMSG $c :Buyrun hep beraber atlayın abi :(" putserv "privmsg $admin_chan :$a nickli zavallı başarıyla rezil edildi :Q" } if {[onchan $n $admin_chan]==0} { putserv "privmsg $c :Hop dedik. Admin ol gel yavru :)" } } putlog "Rezilet.Tcl v1.0 - Written by aLoNe"

Sunucunuzda küfreden veya "keşke atmadan önce kafa bulsak" dediğiniz zavallılar için kullanabiliceğiniz bir tcl yaptım. Yetkili kanalı #Opers olarak belirledim. Bu kanaldakiler kullanabilicek. Sunucuda sendraw modülünün kurulu olması gerek, bot raw komutlarını da kullanabilmeli. Gelelim amacı ve kullanımm şekline, ki gayet açık ve net aslında. Küfür eden biri olursa onun ağzından konuşmasını sağlayıp susturucak ve nickini değiştiriceksiniz. Mesajları kendinize göre değiştirebilirsiniz. Tamamen can sıkıntısından yazılmış bir TCL olup, bugün çoğumuzun gülse bile işine yarayabilicek bişey.

Kullanım:

PHP Kod:   Kodu kopyalamak için üzerine çift tıklayın!
!rezilet Nick 



Kod:   Kodu kopyalamak için üzerine çift tıklayın!
#RezilEt TCL - Written by aLoNe #Sunucunuzda m_sendraw.c modülü yüklenmiş olmalıdır. #Botun RAW yetkisi olması şarttır. #Öküzler için bire bir. #Kullanım: !rezilet Nick #Başlayalım..! set rdlck [rand 9999999] set admin_chan "#Opers" bind pub - !rezilet rezalet proc rezalet { n u h c a } { global botnick admin_chan rdlck if {[onchan $n $admin_chan]==1} { putserv "shun $a Sus!" putserv "sendraw $c ::$a PRIVMSG $c :Merhaba :(" putserv "sendraw $c ::$a PRIVMSG $c :Ben çok öküzüm :V" putserv "sendraw $c ::$a PRIVMSG $c :Hani nasıl desem, semer vurup deh deseniz ayıp olmaz ühühüüü :(" putserv "sendraw $c ::$a PRIVMSG $c :Rahatsız ettim sizleri de mallığımla." putserv "sendraw $c ::$a PRIVMSG $c :Ama ne demişler zayıf öküzün kıblesi olmazmış :c" putserv "sendraw $c ::$a PRIVMSG $c :Harbi malım ben yaa :(" putserv "sendraw $c ::$a PRIVMSG $c :Özür dilerim hepinizden. Allah belamı vereydi benim :(" putserv "sendraw $c ::$a PRIVMSG $c :Vay arkadaş ne malım ben yaa..." putserv "sendraw $c ::$a PRIVMSG $c :Affedin beni :(" putserv "sendraw $c ::$a PRIVMSG $c :Nickimi değişim de kafa bulun azcık :(" putserv "os raw svsnick $a YilinAngutu$rdlck :1" putserv "sendraw $c ::$a PRIVMSG $c :Buyrun hep beraber atlayın abi :(" putserv "privmsg $admin_chan :$a nickli zavallı başarıyla rezil edildi :Q" } if {[onchan $n $admin_chan]==0} { putserv "privmsg $c :Hop dedik. Admin ol gel yavru :)" } } putlog "Rezilet.Tcl v1.0 - Written by aLoNe"

  Alıntı ile Cevapla

IRCForumu.Net - Reklam Alanı

Alt 13 Nisan 2017, 18:38   #2
Çevrimdışı
Cevap: RezilEt Tcl



Keke Bilmeyenler in Nasl Yaplacanda Syleseniz

  Alıntı ile Cevapla

IRCForumu.Net - Reklam Alanı

Cevapla

Etiketler
rezilet, tcl
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