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

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)
-   TCL Scriptler (https://www.ircforumlari.net/tcl-scriptler/)
-   -   kontrol.tcl !uza nick (https://www.ircforumlari.net/tcl-scriptler/47010-kontroltcl-uza-nick.html)

GhostLy 11 Ocak 2008 15:03

kontrol.tcl !uza nick
 
Öncelikle [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 'e Tşk ediyorum.. globalat.tcl'sinden yola cıkırak duzenlemis olduğum ve eklemiş olduğum. bolumle birleştirilmiş ve ortaya guzel kullanişli bir tcl ortaya çıkmıştir.
#Sohbet kanalında 2 dk bir join part eder oto reklamcilari takip eder.
Botun atttiği mesajda yakaladiği Reklamlari #opers kanalına yansıtmasini sağliyor. yakaladiğimiz reklamlarda #opers kanalında
!uza nick yaptiğimizda kullaniciyi sunucudan uzaklaştiriyoruz. killclones ile cezalandiriliyor. ayrica botumuza çekilen hello ile oper çalma işlemini olduruyoruz:) fazla soze gerek yok. can sıkıntısından böyle bir tcl ortaya çıkarttım. umarim işinize yarar. kendinize gore reklam kontrol mesajlari duzenleye bilirsiniz.



goruntu.
[KBSC] 15::03 (Ask-Net) bu mesaj sunucumuza izinsin yapilan reklamlari denetlemek için atilmiştir lütfen dikkate almayınız.
[KBSC] 15::01 (Ask-Net) Bu Bir Reklam Kontrol Mesaj'ıdır. Lütfen Cvp vermeyiniz.
[KBSC] 19::32 <10Ask-Net> Nick: xXx - Mesaj: hello mello 2Reklam Yapiliyorsa 5!uza 4nick 2yapiniz.
[KBSC] 19::41 <10Ask-Net> Nick: Kelebekv5Script989 - Mesaj: naber 0,7| © 0,6| KELEBEK v5.2 |0,7 © | 2Reklam Yapiliyorsa 5!uza 4nick 2yapiniz.

duzenleyeceğiniz. bolumler.
Kod:

zaman_araligi "5"
o_login "botunnicki"
o_pass "opernicki operşifresi"
b_ipass "botunnickşifresi"
putserv "privmsg $*askodam.net $reklam_rmsg"
set admin_chan "#opers"
putserv "privmsg #opers :Nick: $nick - Mesaj: $things Reklam Yapiliyorsa !uza nick yapiniz. "
putserv "PART #sohbet"
putserv "JOIN #sohbet"

Kod:


##########################
# IRCHostum.Net Internet Teknolojileri
# msn :
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

# server : /server IRC.IRCHostum.Net
# web :
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
size="2"># duzenleyen : GhostLy

##########################
######## Reklam Kontrol Bolumu #########
set admin_chan "#opers"
#Konusma icin zaman sureci (Dk cinsinden)
set zaman_araligi "5"
 
 
#Uygulamanin calismasi icin
#botun oper login ve nick login paslari
 
#oper login
set o_login "botunnicki"
 
#Oper Login sifresi
set o_pass "opernick şifre"
 
#Nick identify
set b_ipass "nickşifresi"
 
 
#bind
bind evnt - init-server baglanti:ayari
 
#mesajlar
set reklam_msg {
"Bu Bir Reklam Kontrol Mesaj'ıdır. Lütfen Cvp vermeyiniz."
"bu mesaj sunucumuza izinsin yapilan reklamlari kontrol etmek amaçlı içatilmiştir lütfen dikkate almayınız."
}
 
if {![string match "*konusma_zamani*" [timers]]} {
timer $zaman_araligi konusma_zamani
}
 
 
proc konusma_zamani {} {
global reklam_msg zaman_araligi
set reklam_rmsg [lindex $reklam_msg [rand [llength $reklam_msg]]]
putserv "privmsg $*askodam.net $reklam_rmsg"
timer $zaman_araligi konusma_zamani
return 1
}
proc baglanti:ayari {type} {
putserv "NICKSERV IDENTIFY $b_ipass
putserv "OPER $o_login $o_pass"
putserv "WALLOPS :Reklam mesaj sistemi aktif!"
}
 
bind pub - !uza killclone
proc killclone {nick uhand host chan text} {
global admin_chan
if {$chan==$admin_chan && [isop $nick $admin_chan]==1} {
putquick "operserv killclones $text"
putquick "privmsg $chan Başarıyla Uzaklaştirdiniz. : $nick !"
}
}

set pwhcode "Oto Mesaj"
set atma "kill"
set ktime ""
set txt "1Reklam/Küfür tespit edildi. Auto Kline!"
set cikgir 1
set host "Orumcek.Gonlum.Org"
set bnick botnicki
set hst 1
set colornum 0
bind msgm - "*h*e*l*l*o*" tara
bind msgm - "hello" tara
 
 
proc pwhjoin {hod} {
putserv "JOIN #sohbet"
utimer 120 "pwhpchans hehe"
}
proc pwhpchans {blah} {
putserv "PART #sohbet"
utimer 2 "pwhjoin hehehe"
}
proc baslasana {nebuya} {
utimer 120 "pwhpchans neyys"
}
proc reklamcheck {nick host hand things} {
global pwhcode
if {[string match "*" $things]} {
putserv "privmsg #test :Nick: $nick - Mesaj: $things 2Reklam Yapiliyorsa 5!uza 5$nick 2yapiniz."
putserv "privmsg $nick :Lutfen Oto mesaj'inizi Kapatiniz. Aksi Taktirde Uzaklaştirilacaksiniz.."
return 0
}
putserv "privmsg #test :Nick: $nick - Mesaj: $things 2Reklam Yapiliyorsa 5!uza 5$nick 2yapiniz."
putserv "privmsg $nick :Lutfen Oto mesaj'inizi Kapatiniz. Aksi Taktirde Uzaklaştirilacaksiniz.."
}
proc tara {nick uhost hand thinks} {
global colornum txt atma botnick ktime
putserv "$atma $nick $ktime: $txt"
}
baslasana neoo
bind msgm - * reklamcheck
putlog "Reklam mesaj atma sistemi yuklendi"
putlog "Bot OPER ve Reklam kullanma izni olmadigi surece"
putlog "Calismayacaktir!"
putlog "mail:
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
"

putlog "kontrol.tcl by GhostLy"
putlog "mail:
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
"


PauL 11 Ocak 2008 15:16

Cevap: kontrol.tcl !uza nick
 
Maşallah Maşallah Ellerine Sağlık Kardeşim

DuZCe 11 Ocak 2008 15:51

Cevap: kontrol.tcl !uza nick
 
abi yapabılırsem hemen kullanıcam elıne saglık. Super:)

DuZCe 11 Ocak 2008 18:16

Cevap: kontrol.tcl !uza nick
 
Erkan ABı ısın yoksa 2dk acıklamalı olarak nereye ve nasıl koyucaz bunu bılgılendırırmısın rica etsem..

GhostLy 11 Ocak 2008 19:22

Cevap: kontrol.tcl !uza nick
 
Alıntı:

DuZCeM Nickli Üyeden Alıntı (Mesaj 321786)
Erkan ABı ısın yoksa 2dk acıklamalı olarak nereye ve nasıl koyucaz bunu bılgılendırırmısın rica etsem..

ilk once vermiş olduğum tcl i bir txt içine koy ismini belirle txt'in
ftp yoluyla bağlan hesabına ilk gireceğin yer eggdrop klasor'ü sonra scripts ve txt'i oraya at. attiğin txt'e tikla bir sefer sağ tıkla ad değiştir de. kontrol.tcl aynen bunu yaz. tcl'e donusecektir. sonrasi confunu ayarlamak. örnek koruma.conf telnet'ine bağlan

cd eggdrop
pico koruma.conf

buna benzer satirlar göreceksin conf'unda

source scripts/alltools.tcl

hemen bunun altina ekle aşşağidaki şekilde.

source scripts/kontrol.tcl

ctrl + x y ile kaydet

botunu sunucudan çıkart sok işlem gormus olacakdir. tcl içindeki değişecek yerleri değişmeyi unutma botun oper olmasina dikkat et /os admin add botnick olarak admin liste ekle.:) takıldığın yer olursa yaz yardımcı olurum.

GhostLy 11 Ocak 2008 20:24

Cevap: kontrol.tcl !uza nick
 
Botun işleyişini Gormek isteyenler

/server irc.askodam.net ' girip 10 dk takılmalidirlar :)

#sohbet ve #test kanalına giriniz.

BehroozWolf 11 Ocak 2008 20:51

Cevap: kontrol.tcl !uza nick
 
:) güzel calisma ghostly.

Brain 11 Ocak 2008 21:02

Cevap: kontrol.tcl !uza nick
 
basarilarinin devamini dilerim, umarim cok daha kapsamli calismalar yapar bu konuda ve benzeri 1 cok konuda ustaligini konusturursun.

GhostLy 11 Ocak 2008 21:09

Cevap: kontrol.tcl !uza nick
 
Teşekkürler Eskiden Codlari almıs arkadaşlar varsa tekrardan alsinlar. cod'a acele eklemeden eksik cod bırakmısım şimdi tamamiyle eklidir. gelişmesini sağliyacam bu tcl'in. iyi forumlar.

txf 11 Ocak 2008 22:39

Cevap: kontrol.tcl !uza nick
 
Güzel Bir Düşünce. Şimdi Bakalım Bunu Başka Ne Yapabiliriz Yada Ne Şekle Getirebiliriz.
Kurcalarsam Kızmazsın Değil mi ? :)
Saygılar...


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 22:12.

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2025 IRCForumlari.Net Sparhawk