IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası
  sohbet

12Beğeni(ler)

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 30 Temmuz 2012, 23:45   #1
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
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
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.


Kullanım:

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
!rezilet Nick

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


 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları sohbet odaları Benimmekan Mobil Sohbet
Alt 08 Ağustos 2012, 07:42   #2
Çevrimiçi
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: RezilEt Tcl - Written by aLoNe - Lamerlerle kafa bulun :)




iLviiR Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
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
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.


Kullanım:

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
!rezilet Nick

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

 
Alıntı ile Cevapla

Alt 08 Ağustos 2012, 07:49   #3
Supernova
Guest
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Yüzdesi:(%)
Cevap: RezilEt Tcl - Written by aLoNe - Lamerlerle kafa bulun :)




@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] hakikaten süper olmus
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
eline sağlık.

 
Alıntı ile Cevapla

Alt 08 Ağustos 2012, 08:02   #4
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: RezilEt Tcl - Written by aLoNe - Lamerlerle kafa bulun :)




eline sağlık.

 
Alıntı ile Cevapla

Alt 22 Eylül 2013, 16:43   #5
Çevrimiçi
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
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?

 
Alıntı ile Cevapla

Alt 22 Eylül 2013, 17:24   #6
Çevrimiçi
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
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:   Kodu kopyalamak için üzerine çift tıklayın!
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:   Kodu kopyalamak için üzerine çift tıklayın!
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..

__________________
-
 
Alıntı ile Cevapla

Alt 20 Aralık 2015, 20:20   #7
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
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
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
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.

 
Alıntı ile Cevapla

Alt 22 Ekim 2018, 18:38   #8
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
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ı

 
Alıntı ile Cevapla

Alt 22 Ekim 2018, 19:38   #9
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: RezilEt Tcl - Written by aLoNe - Lamerlerle kafa bulun :)




AkMaN Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
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:   Kodu kopyalamak için üzerine çift tıklayın!
# 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" }


 
Alıntı ile Cevapla

Alt 22 Ekim 2018, 19:57   #10
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: RezilEt Tcl - Written by aLoNe - Lamerlerle kafa bulun :)




No_FeaR Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Ö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:   Kodu kopyalamak için üzerine çift tıklayın!
# 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

 
Alıntı ile Cevapla

Cevapla


Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)
 
Seçenekler
Stil

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Kapalı
Pingbacks are Açık
Refbacks are Açık


Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
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