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 22 Ekim 2018, 20:23   #11
Ç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 :)




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


 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları sohbet odaları Benimmekan Mobil Sohbet
Alt 22 Ekim 2018, 23:32   #12
Ç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 :)




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

 
Alıntı ile Cevapla

Alt 24 Ekim 2018, 17:04   #13
Ç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 :)




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

 
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