CycLe Bot Yeni.. - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

Gecemavisi02 · 28 Haziran 2007, 18:20

Arkadaşlar Cycle Bot Kendim Tarafından Editlenmiştir. Giriş İpleri
Degişmiştir. İsteyenLer benimLe irtibata gecebiLirler.
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Biraz Kısa Ve Oz oLdu ama
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
İdare edin
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Bir Kaç Ornek..

Kod: Kodu kopyalamak için üzerine çift tıklayın!

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

tAMAMDA nERDE botların CycLer

Tebessum · 29 Haziran 2007, 03:20

Msn Den Dagıtacagına Burda paylaş Herkes Faydalansın . Reklam kokuyo bence .

ByZehirX · 29 Haziran 2007, 05:42

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

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

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

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 {(.+):
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 "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 {(.+):
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 "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 {(.+):
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 :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
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
otlar Siliniyor. "
if { $logit == 1 } { puthelp "PRIVMSG $logchany
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
otlar yok ediliyor.." }
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
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
estroyed by $authorized"
puthelp "kill $after
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
estroyed 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

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
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

ThornDike · 30 Haziran 2007, 10:15

" [10:12] *** Giriş: lalin (
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
) "

" ->> Nick: lalin <<-
Adres ...=
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

İ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
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

30 Haziran 2007, 12:38

Ellerine saglık ama arkadasında dedigi gibi biraz daha uras

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
Cycle 3.0 Yeni version	byottoman	TCL Scriptler	28	26 Aralık 2013 06:13
Cycle bot	Furkan TURAN	Eggdrop, NeoStats, BNC	2	05 Aralık 2012 08:23
Cycle bot.	SeVDiYaR34	Eggdrop, NeoStats, BNC	0	07 Ağustos 2010 21:01
Cycle J/p	codepLus	Eggdrop, NeoStats, BNC	2	01 Eylül 2008 18:23
Cycle	KnOuCK	Eggdrop, NeoStats, BNC	8	18 Ocak 2008 05:23

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)

Etiketlenen Kullanıcılar
Etiketlemek istediğiniz kullanıcılar arasına virgül koyunuz. Örnek: nokta,sukunet,NucLear

5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı yasaktır. Yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.