Çevrimdışı

Merhaba arkadaşlar eski bir konu hakkında yardımınıza ihtiyacım var.
Cycle bot tcl içerisinde sadece giriş ve çıkış olsun istiyordum ama bir türlü işin içinden çıkamadım
botların sadece join ve quit yapmaları için bir tcl mevcutmudur.

 

Çevrimdışı

Cycle Tcl,Botları;
Services Bot Olarak Oluşturuyor.
Eggdrop'unuz Oper Yetkilerini Kullanıyor.
Bu Cycle Eden Services
Botlarını Konuşturmak İçin
OperServ Komutlarını Kullanacaktır.


Buradaki Cycle.Tcl'ye Bakınca:
putserv "os raw :$n privmsg $c $a"
$n = Nick Oluşturulmuş Servis Bot Rumuzu
$c = Bulunduğu Kanal
$a = Argüman,Burada Yazacakları Anlamında..
Script'te Bu Satırı Yada Satırları Bulup
Başlarına "#" Ekleyip Etkisizleştirebilirsiniz.
# putserv "os raw :$n privmsg $c $a" .. Gibi!

Böylece Bu Satırlar İşlenmez Ve
Oluşturulmuş Botun Konuşmasını /
Dosyadan Okutulan Metni,
#Kanala Os Raw Kullanılarak
Postalamasını Engellemiş Olursunuz.
Geride Kalan ; #Kanala Girme - Çıkma
İşleri,Bot Oluşturma İşleri Devam Eder!

__________________
Beş Tas Has Hoş Hoşaf.

 

Çevrimdışı

Heart Gayet güzel Anlatmış : ))

 

Çevrimdışı

Teşekkür ederim Heart ama yine sonuç alamadım

 

Çevrimdışı

Değişikliği Yaptıktan Sonra Sadece:
.rehash Etmek Yeterli Gelmeyebilir.
.restart Etmeyi Denemeniz Gerekir,
Değişikliği Görmesi,Eski Hafızada Saklananların
Temizlenmesi İçin!


Diğer Yollar :
Cycle Log Dosyasından
Konuşturma Komutu Satırlarını
Bulup,Temizlemek.
Yada Log Aldırırken Kullanılan,
Sanırım LogAl .Tcl Scriptindeki;
bind pubm ..
Bindini Etkisizleştirmek, Buna Bağlı
Prosedürün Çalışmamasına,
İstenen Konuşmaları Loglama İşini

Yapmamasına,Oluşturulan Logda
Bunların Yer Almamasına Neden Olacaktır.
Bir Bind Satırını Etkisizleştirmek İçin:
Bind Komutunu unbind Olarak Değişmek Yeterli
Yahut Başına # Eklemek

İşletilmemesini Sağlar!

__________________
Beş Tas Has Hoş Hoşaf.

 

Çevrimdışı

Malesef Heart hocam tam olarak istediğimi alamıyorum tcl içerisinde değişiklik yaptığım zaman sadece giriş oluyor oyle kalıyor


proc pwjoin {what what2 what3 what4 what5 what6 what7 what8 what9} {
global kanal logit logchany
if {$logit == 1} {
puthelp "PRIVMSG $logchany :$what Kanala sokuluyor --> $what9"
}
putquick "operserv :raw :$what join $what9 "
utimer $what2 "pwpart $what $what3 $what $what2 $what3 $what4 $what5 $what6 $what7 $what8 $what9"
}

proc pwpart {whad whad2 oldu1 oldu2 oldu3 oldu4 oldu5 oldu6 oldu7 oldu8 oldu9} {
global kanal logit logchany
if { $logit == 1 } { puthelp "PRIVMSG $logchany :$whad Kanaldan cikartiliyor --> $oldu9" }
putquick "operserv :raw :$whad part $oldu9 "
putquick "kill $oldu4 :this is a bot nick. u cant use it."
putquick "operserv :raw :$whad nick $oldu4"
if { $logit == 1 } { puthelp "PRIVMSG $logchany :$whad Nick degistiriliyor --> $oldu4" }
utimer $whad2 "pwjoin2 $oldu4 $whad2 $oldu1 $oldu2 $oldu3 $oldu4 $oldu5 $oldu6 $oldu7 $oldu8 $oldu9"
}

proc pwjoin2 {whas whas2 oldud1 oldud2 oldud3 oldud4 oldud5 oldud6 oldud7 oldud8 oldud9} {
global kanal logit logchany
if { $logit == 1 } { puthelp "PRIVMSG $logchany :$whas Kanala tekrar sokuluyor --> $oldud9" }
putquick "operserv :raw :$whas join $oldud9 "
utimer $oldud2 "pwbquit $whas $oldud1 $oldud2 $oldud3 $oldud4 $oldud5 $oldud6 $oldud7 $oldud8 $oldud9"
}

proc pwbquit {whaaq oldukha1 oldukha2 oldukha3 oldukha4 oldukha5 oldukha6 oldukha7 oldukha8 oldukha9} {
global quitmsg kanal logit logchany listfile response botnick nickflist servicesadr pwhoperservt kanal logit logchany authorized
foreach iii $nickflist {
if {[regexp {(.+):
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
.+):
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
.+):
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
.+):
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
.+):
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
.+):
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
.+):
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
.+):
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
.+):
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
.+):
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
.+)} $iii tmppp botident3 before3 after3 botadi3 wait3 partwait3 joinwait3 yenisi3 quitmes3 cikmadan3 kanallar3]} {
if { $whaaq == $after3 } {
if { $cikmadan3 != 0 } {
putquick "operserv :raw :$whaaq privmsg $kanallar3 :$cikmadan3"
if { $logit == 1 } { puthelp "PRIVMSG $logchany :$whaaq Konusturuluyor." }
utimer 10 "pwquit $whaaq $oldukha1 $oldukha2 $oldukha3 $oldukha4 $oldukha5 $oldukha6 $oldukha7 $oldukha8 $oldukha9"
return


pwpart satırından direk pwquit satırına aktarmak istiyorum bunu yapma şansım varmıdır.

 

Çevrimdışı

Bu Scriptin Tamamı Değil!
Prosedürleri Silip ,
Bu Şekilde Mi Deniyorsunuz?
" putquick "operserv :raw :$whaaq privmsg $kanallar3 :$cikmadan3" "
Bunun Gibi " privmsg " İçeren Satırlar ,
Oluşturulmuş Botun Kanala Mesaj Atmasına Sebep!
Etkisizleştirmemişiniz Yukarıda Yazdığım Gibi!
Bunlar Oldukça Yazmaya Kanala Devam Ederler!


Aktarmaktan Kasıt;
Bir Prosedürden Diğerini Çağırmak,
İşletmekse Eğer:


ProsedürAdı Argümanları
Şeklinde Mümkün...


Örnek:


[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

__________________
Beş Tas Has Hoş Hoşaf.

 

Çevrimdışı

kodun tamamı



#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ~
# SERViCES CYCLE BOT CREATOR v3.0
#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ~

##### Hoperservtlarin gizlenmesi icin hoperservt-prefix #####
set pwhoperservt "AE37B4D9"

set listfile [open host.txt ]
set nickflist [split [subst -nocommands [read $listfile]] \n]

##### Bota baslama komutunu verecek kisinin nickini girin #####
set authorized "Max"

##### Services adresini girin. #####
set servicesadr "Services.Deneme.Com"


##### Eggdrop - bot icin log tutumu #####
# Eger eggdropinizin olusturdugu botlarin giris cikislarini
# bir kanala yazarak kaydetmesini istiyorsaniz, 0 isaretini 1 yapin.
#
set logit 1

##### Eggdropin log kanalini girin. #####
# Bu kanal botlarin giris cikislarinin yazilacagi kanaldir.
# Bu nedenle sadece adminlerin ve eggdropin girebilecegi bir kanal yazin.
#
set logchany "#Bot"

################################################
# !!!!! KODLAMA BASLIYOR !!!!! #
# BU SATIRDAN ITIBAREN YAPACAGINIZ DEGISIKLIKLER
# TCL SCRIPTIN BOZULMASINA YOL ACABILIR.
################################################


proc pwjoin {what what2 what3 what4 what5 what6 what7 what8 what9} {
global kanal logit logchany
if {$logit == 1} {
puthelp "PRIVMSG $logchany :$what Kanala sokuluyor --> $what9"
}
putquick "operserv :raw :$what join $what9 "
utimer $what2 "pwpart $what $what3 $what $what2 $what3 $what4 $what5 $what6 $what7 $what8 $what9"
}

proc pwpart {whad whad2 oldu1 oldu2 oldu3 oldu4 oldu5 oldu6 oldu7 oldu8 oldu9} {
global kanal logit logchany
if { $logit == 1 } { puthelp "PRIVMSG $logchany :$whad Kanaldan cikartiliyor --> $oldu9" }
putquick "operserv :raw :$whad part $oldu9 "
putquick "kill $oldu4 :this is a bot nick. u cant use it."
putquick "operserv :raw :$whad nick $oldu4"
if { $logit == 1 } { puthelp "PRIVMSG $logchany :$whad Nick degistiriliyor --> $oldu4" }
utimer $whad2 "pwjoin2 $oldu4 $whad2 $oldu1 $oldu2 $oldu3 $oldu4 $oldu5 $oldu6 $oldu7 $oldu8 $oldu9"
}

proc pwjoin2 {whas whas2 oldud1 oldud2 oldud3 oldud4 oldud5 oldud6 oldud7 oldud8 oldud9} {
global kanal logit logchany
if { $logit == 1 } { puthelp "PRIVMSG $logchany :$whas Kanala tekrar sokuluyor --> $oldud9" }
putquick "operserv :raw :$whas join $oldud9 "
utimer $oldud2 "pwbquit $whas $oldud1 $oldud2 $oldud3 $oldud4 $oldud5 $oldud6 $oldud7 $oldud8 $oldud9"
}

proc pwbquit {whaaq oldukha1 oldukha2 oldukha3 oldukha4 oldukha5 oldukha6 oldukha7 oldukha8 oldukha9} {
global quitmsg kanal logit logchany listfile response botnick nickflist servicesadr pwhoperservt kanal logit logchany authorized
foreach iii $nickflist {
if {[regexp {(.+):
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
.+):
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
.+):
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
.+):
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
.+):
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
.+):
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
.+):
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
.+):
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
.+):
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
.+):
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
.+)} $iii tmppp botident3 before3 after3 botadi3 wait3 partwait3 joinwait3 yenisi3 quitmes3 cikmadan3 kanallar3]} {
if { $whaaq == $after3 } {
if { $cikmadan3 != 0 } {
putquick "operserv :raw :$whaaq privmsg $kanallar3 :$cikmadan3"
if { $logit == 1 } { puthelp "PRIVMSG $logchany :$whaaq Konusturuluyor." }
utimer 10 "pwquit $whaaq $oldukha1 $oldukha2 $oldukha3 $oldukha4 $oldukha5 $oldukha6 $oldukha7 $oldukha8 $oldukha9"
return
}
}
}
}
if { $logit == 1 } { puthelp "PRIVMSG $logchany :$whaaq Konusturulamadi - Konusma modu kapali!" }
utimer 10 "pwquit $whaaq $oldukha1 $oldukha2 $oldukha3 $oldukha4 $oldukha5 $oldukha6 $oldukha7 $oldukha8 $oldukha9"
}

proc pwquit {whaq olduk1 olduk2 olduk3 olduk4 olduk5 olduk6 olduk7 olduk8 olduk9} {
global quitmsg kanal logit logchany listfile response botnick nickflist servicesadr pwhoperservt kanal logit logchany authorized
foreach ii $nickflist {
if {[regexp {(.+):
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
.+):
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
.+):
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
.+):
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
.+):
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
.+):
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
.+):
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
.+):
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
.+):
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
.+):
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
.+)} $ii tmpp botident2 before2 after2 botadi2 wait2 partwait2 joinwait2 yenisi2 quitmes2 cikmadan2 kanallar2]} {
if { $whaq == $after2 } {
putquick "operserv :raw :$whaq quit :$quitmes2"
if { $logit == 1 } { puthelp "PRIVMSG $logchany :$whaq Serverdan cikartiliyor" }
utimer $olduk6 "olustur $olduk1 $olduk2 $olduk3 $olduk4 $olduk5 $olduk6 $olduk7 $olduk8 $olduk9"
return
}
}
}
if { $logit == 1 } { puthelp "PRIVMSG $logchany :$whaq SERVERDAN CIKARTILAMADI !" }
}

proc olustur {olsun1 olsun2 olsun3 olsun4 olsun5 olsun6 olsun7 olsun8 olsun9} {
global servicesadr pwhoperservt kanal logit logchany
if { $logit == 1 } { puthelp "PRIVMSG $logchany :$olsun1 Yeniden olusturuluyor." }
puthelp "Cikis $olsun1 :7« 12 [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 7»"
puthelp "operserv :raw nick $olsun1 1 1 $olsun8 A[rand 9][rand 9]E[rand 9]Z[rand 9].$pwhoperservt.[rand 9][rand 9]AE[rand 9][rand 9][rand 9]Z.IP $servicesadr :$olsun5"
utimer $olsun7 "pwjoin $olsun1 $olsun2 $olsun3 $olsun4 $olsun5 $olsun6 $olsun7 $olsun8 $olsun9"
}


proc pwornek {nick hoperservt hand {text ""}} {
global pwhoperservt
}

proc pworn {ornekcik} {
puthelp "NOTICE PowerUseR : $ornekcik snlikti. "
}

proc pwstart {nick hoperservt hand {text ""}} {
global listfile response botnick nickflist servicesadr pwhoperservt kanal logit logchany authorized
if {$nick == "$authorized"} {
puthelp "NOTICE $nick :Olusum basliyor. "
foreach i $nickflist {
if {[regexp {(.+):
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
.+):
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
.+):
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
.+):
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
.+):
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
.+):
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
.+):
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
.+):
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
.+):
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
.+):
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
.+)} $i tmp botident before after botadi wait partwait joinwait yenisi quitmes cikmadan kanallar]} {
puthelp "kill $before :Sunucu.Com"
puthelp "operserv :raw nick $before 1 1 $botident A[rand 9][rand 9]E[rand 9]Z[rand 9].$pwhoperservt.[rand 9][rand 9]AE[rand 9][rand 9][rand 9]Z.IP $servicesadr :$botadi"
if { $logit == 1 } { puthelp "PRIVMSG $logchany :$before olusturuluyor." }
utimer $wait "pwjoin $before $partwait $joinwait $after $botadi $yenisi $wait $botident $kanallar"
}
}
}
}

proc pwdestroy {nick hoperservt hand {text ""}} {
global listfile response botnick nickflist servicesadr pwhoperservt kanal logit logchany authorized
if {$nick == "$authorized"} {
puthelp "NOTICE $nick
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
otlar yok ediliyor. "
if { $logit == 1 } { puthelp "PRIVMSG $logchany :YOK ETME KOMUTU VERILDI ($authorized)." }
foreach i $nickflist {
if {[regexp {(.+):
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
.+):
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
.+):
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
.+):
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
.+):
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
.+):
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
.+):
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
.+):
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
.+):
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
.+):
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
.+)} $i tmp botident before after botadi wait partwait joinwait yenisi quitmes cikmadan kanallar]} {
puthelp "7« 12 [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 7»"
puthelp "7« 12 [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 7»"
if { $logit == 1 } { puthelp "PRIVMSG $logchany :$before - $after YOK EDiLiYOR." }
}
}
}
}

bind msg - baslat pwstart
bind msg - yoket pwdestroy
bind msg - ornek pwornek

putlog "================Cycle Bot v3.0================"
putlog "= ="
putlog "= OperServ raw -auto- bot control 2.0 ="
putlog "= [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] irc.Sunucu.Com ="
putlog "= ="
putlog "============================================= ="




örnek Host txt

Sohbet::Rox::Sohbet568::mIRC::104::202::205::480::Sunucudan Ayrıldı::0::#sohbet
Sohbet::CrazyBoy::Sohbet569::mIRC::109::237::246::595::Sunucudan Ayrıldı::0::#sohbet
Sohbet::Kare::Sohbet570::mIRC::114::272::287::710::Sunucudan Ayrıldı::0::#sohbet




kanalda part ve nick değişim sürelerini iptal etmek istiyorum

 

Çevrimdışı

utimer Komutu Saniye Cinsinden
Süre Belirler.
utimer <Kaç-Saniye> <Komut Ve Varsa Argümanları>
Gibidir.


Scriptteki:
utimer $wait "pwjoin $before $partwait $joinwait $after $botadi $yenisi $wait $botident $kanallar"
Gibi Satırlar Sözü Geçen Aralıkları,
Süreleri Belirliyor.

__________________
Beş Tas Has Hoş Hoşaf.

 

Çevrimdışı

oke Teşekkürler ilgin için Heartbroken