RezilEt Tcl - Written by aLoNe - Lamerlerle kafa bulun :) - Sayfa 2 - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

No_FeaR · 22 Ekim 2018, 20:23

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

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"
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: Kodu kopyalamak için üzerine çift tıklayın!

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

AkMaN · 22 Ekim 2018, 23:32

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

rascoLn · 24 Ekim 2018, 17:04

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

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
Bebeklerde kafa yamukluğu ve sivriliği neden olur? Kafa şekillenmesi ne zamana kadar sürer?	Tanem	Aile Evlilik ve Çocuklar	0	29 Aralık 2022 13:54
Services Bot TCL v1.0 - Written By CLubber	CLubber	TCL Scriptler	9	25 Aralık 2012 07:05
IrcForumları TCL v1.0 - Written By CLubber	CLubber	TCL Scriptler	14	07 Eylül 2012 08:48

Konuyu Toplam 5 Üye okuyor. (0 Kayıtlı üye ve 5 Misafir)

Etiketlenen Kullanıcılar
Etiketlemek istediğiniz kullanıcılar arasına virgül koyunuz. Örnek: nokta,sukunet,NucLear

5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı yasaktır. Yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.