Çevrimdışı

#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
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
"
putserv "sendraw $c ::$a PRIVMSG $c
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
en çok öküzüm :V"
putserv "sendraw $c ::$a PRIVMSG $c :Hani nasıl desem, semer vurup deh deseniz ayıp olmaz ühühüüü
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
"
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
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
"
putserv "sendraw $c ::$a PRIVMSG $c :Özür dilerim hepinizden. Allah belamı vereydi benim
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
"
putserv "sendraw $c ::$a PRIVMSG $c :Vay arkadaş ne malım ben yaa..."
putserv "sendraw $c ::$a PRIVMSG $c :Affedin beni
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
"
putserv "sendraw $c ::$a PRIVMSG $c :Nickimi değişim de kafa bulun azcık
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
"
putserv "os raw svsnick $a YilinAngutu$rdlck :1"
putserv "sendraw $c ::$a PRIVMSG $c
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
uyrun hep beraber atlayın abi
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
"
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
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
"
}
}
putlog "Rezilet.Tcl v1.0 - Written by aLoNe"



Kod ALone Hocamızdan alıntıdır bunu mırce gore nasıl ayarlayabılırız coderlerımız yardım ederse sevınecem mırcıme eklemek ıstıyorum