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)

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

Merhaba.

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:

Kod:

!rezilet Nick

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"

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"

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

Alıntı:

iLviiR Nickli Üyeden Alıntı (Mesaj 1041183910)

Kod:

!rezilet Nick

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"

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"

Emeğine SağLık Fatih.

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

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] hakikaten süper olmus :) eline sağlık.

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

Pekki bu tcl'yi Opers kanalında kullanıp sohbet kanalında işlemesi için ne yapabiliriz? örnegin : opers kanalında operler !rezilet nick dediginde sadece Sohbet kanalındaki rezil ettigi kullanıcıda işlesin?

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

En basit yolu, sadece #Sohbet kanalında çalışması için şu şekilde yapılabilir..

Örnek;

Kod:

putserv "sendraw $c ::$a PRIVMSG $c :Merhaba :("

Yukarıda ki satırı aşağıda'ki gibi değiştirirsen opers kanalında !rezilet nick yapıldığında, ilgili mesajları sadece sohbet kanalında gösterir..

Kod:

putserv "sendraw #Sohbet ::$a PRIVMSG #Sohbet :Merhaba :("

Pek anlamıyorum TCL Scripting'den anladığım kadarıyla yol gösterdim diğerlerinide örneklere bakarak düzeltirsiniz..

İyi forumlar..

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

Ne hikmetse baya bi geç gördüm konuyu. Ordaki $c zaten $chan yani aktif kanal :) Opers'ten komut vermek için;

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

satırının üstüne;

if {$c != $admin_chan} { return 0 }

eklerseniz yeterli olur.

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

Konuyu hortlaşmış gibi olucam ama bunu sadece belirli nickler yapabilsin istiyorum nasıl yaparım acaba yardımcı olabilecek birisi varmı

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

Alıntı:

AkMaN Nickli Üyeden Alıntı (Mesaj 1041993034)

Konuyu hortlaşmış gibi olucam ama bunu sadece belirli nickler yapabilsin istiyorum nasıl yaparım acaba yardımcı olabilecek birisi varmı

Öncelikle telefondan yaptım, eski kodlarla yaptım sonuç ne olur bilemiyorum..
ve yaklaşık 4/5 yıldır ara vermiştim. kodların yerini dahi zor hatırladım desem yeridir. (;

Kod:

# tcl yöneticisi

set owner "No_FeaR"

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

# Komutun işleyeceği kanal

set operchan "#opers"
 

# Kullanılacak komut

set reziletkomut "!rezilet NİCK"

}

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

Alıntı:

No_FeaR Nickli Üyeden Alıntı (Mesaj 1041993048)

Öncelikle telefondan yaptım, eski kodlarla yaptım sonuç ne olur bilemiyorum..
ve yaklaşık 4/5 yıldır ara vermiştim. kodların yerini dahi zor hatırladım desem yeridir. (;

Kod:

# tcl yöneticisi

set owner "No_FeaR"

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

# Komutun işleyeceği kanal

set operchan "#opers"
 

# Kullanılacak komut

set reziletkomut "!rezilet NİCK"

}

teşekkür ederim deneyip sonucu bildiricem

Edit: Maalesef olmamış hala diğer admin arkadaşlar komutu kullanabiliyor benim haricimde kimse kullanamasın istiyorum