IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası - RezilEt Tcl - Written by aLoNe

- TCL Scriptler (https://www.ircforumlari.net/tcl-scriptler/)

- - RezilEt Tcl - Written by aLoNe - Lamerlerle kafa bulun :) (https://www.ircforumlari.net/tcl-scriptler/498239-rezilet-tcl-written-alone-lamerlerle-kafa-bulun.html)

Cevap: RezilEt Tcl - Written by aLoNe - Lamerlerle kafa bulun :)

Verdiğim kodu ekledim, Şu şekilde çalışması gerekiyor.
Deneme için sunucum yok. Hala olmazsa PM atın beraber bakalım.

Kod:

#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"

set owner "No_FeaR"

proc rezalet { n u h c a } {
 

    global botnick admin_chan rdlck
 

    if {[onchan $n $admin_chan]==1} {

    if { $::owner == $nick } {

    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"

Bunu Farklı olarak düzenledim birde bunu dene, Bu sadece kanal yetkilileri kullanabilmesi için.

Kod:

bind pub - !RezilEt reziletnick

set admin_chan "#Opers"

proc reziletnick {nick uhost handle chan text} {

 global admin_chan server op_chan

    if {[onchan $n $admin_chan]==1} {

    if {[isop $nick $chan] || [onchan $nick $admin_chan] || [onchan $nick $op_chan]} {

    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"

 }

}

Cevap: RezilEt Tcl - Written by aLoNe - Lamerlerle kafa bulun :)

iki kodda olmadı kardeşim hatta çalışmadı bile ana kodda da shun atmıyor ve nick değiştirmiyor

Not: PM atamıyorum mesaj sayım yetmiyor maalesef

Cevap: RezilEt Tcl - Written by aLoNe - Lamerlerle kafa bulun :)

Kod:

#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"

birde boyle dene "set yonet" kismina nickini girmeyi unutma