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

1Beğeni(ler)

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 11 Ocak 2008, 15:03   #1
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
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
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
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:   Kodu kopyalamak için üzerine çift tıklayın!
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:   Kodu kopyalamak için üzerine çift tıklayın!
########################## # 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.
"


__________________
SANAL IRC - irc.sanal.org

Konu GhostLy tarafından (11 Ocak 2008 Saat 22:22 ) değiştirilmiştir. Sebep: Bota Yeni Eklemeler.
 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları reklam ver Benimmekan Mobil Sohbet
Alt 11 Ocak 2008, 15:16   #2
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: kontrol.tcl !uza nick




Maşallah Maşallah Ellerine Sağlık Kardeşim

 
Alıntı ile Cevapla

Alt 11 Ocak 2008, 15:51   #3
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: kontrol.tcl !uza nick




abi yapabılırsem hemen kullanıcam elıne saglık. Super
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

 
Alıntı ile Cevapla

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

 
Alıntı ile Cevapla

Alt 11 Ocak 2008, 19:22   #5
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: kontrol.tcl !uza nick




DuZCeM Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
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.
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
takıldığın yer olursa yaz yardımcı olurum.

__________________
SANAL IRC - irc.sanal.org
 
Alıntı ile Cevapla

Alt 11 Ocak 2008, 20:24   #6
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: kontrol.tcl !uza nick




Botun işleyişini Gormek isteyenler

/server irc.askodam.net ' girip 10 dk takılmalidirlar
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.


#sohbet ve #test kanalına giriniz.

__________________
SANAL IRC - irc.sanal.org
 
Alıntı ile Cevapla

Alt 11 Ocak 2008, 20:51   #7
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: kontrol.tcl !uza nick





Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
güzel calisma ghostly.

 
Alıntı ile Cevapla

Alt 11 Ocak 2008, 21:02   #8
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: kontrol.tcl !uza nick




basarilarinin devamini dilerim, umarim cok daha kapsamli calismalar yapar bu konuda ve benzeri 1 cok konuda ustaligini konusturursun.

__________________
Our brain is Our Weapon
 
Alıntı ile Cevapla

Alt 11 Ocak 2008, 21:09   #9
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
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.

__________________
SANAL IRC - irc.sanal.org
 
Alıntı ile Cevapla

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

Saygılar...

 
Alıntı ile Cevapla

Cevapla

Etiketler
nick, uza, kontroltcl


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
Nick list Kontrol TİGeR mIRC Scripting Sorunları 13 01 Kasım 2014 23:20
#Kontrol kanalı nick kayıdı Emrax mIRC Scripting Sorunları 5 16 Şubat 2011 23:58
Kayıtsız Nick Kontrol Sistemi uFuK mIRC Scripting Hazır Kodlar 10 03 Aralık 2010 19:04