#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 yonet "nickinizi girin"

set rdlck [rand 9999999]
set admin_chan "#Opers"
bind pub - !rezilet rezalet

proc rezalet { n u h c a } {

    global botnick admin_chan rdlck yonet

    if {[onchan $n $admin_chan]==1 & [string match -nocase $n $yonet]} {
    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"
    } else {
    putserv "privmsg $c :Hop dedik. Ağır ol bakalım :)"
}
}
putlog "Rezilet.Tcl v1.0 - Written by aLoNe"