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

- TCL Scriptler (https://www.ircforumlari.net/tcl-scriptler/)

- - Cycle 3.0 Yeni version (https://www.ircforumlari.net/tcl-scriptler/446198-cycle-30-yeni-version.html)

Cycle 3.0 Yeni version

Evet arkadaşlar CycLe user hostlu sürümü cıkmıs bunu nerden bulabilirim çok aradım yardım lütfen..

Cevap: Cycle 3.0 Yeni version

Kod:

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

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

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

 
 ##### Services adresini girin. #####
 set servicesadr "services.alanadi.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 {(.+)::(.+)::(.+)::(.+)::(.+)::(.+)::(.+)::(.+)::(.+)::(.+)::(.+)} $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 {(.+)::(.+)::(.+)::(.+)::(.+)::(.+)::(.+)::(.+)::(.+)::(.+)::(.+)} $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 "kill $olsun1 :Lütfen kurallara uyunuz."
 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 {(.+)::(.+)::(.+)::(.+)::(.+)::(.+)::(.+)::(.+)::(.+)::(.+)::(.+)} $i tmp botident before after botadi wait partwait joinwait yenisi quitmes cikmadan kanallar]} {
 puthelp "kill $before :oldbot"
 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 :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

Örnek bir host.txt dosyası oluşturup scripts klasörüne atın.

Botun nicki kayıtlı admin listte ve en az services administrator olması gerekir.

Raw komutlarının açık olduğundan ve botun kullanabildiğinden emin olun.

Cevap: Cycle 3.0 Yeni version

paylaştıgın kod cycle.tcl olması lazın confu ayarlıyoruz kendimize göre felan, peki bu host.txt içerisnde neler olcak boş bi şekildemi kalıcak CLubber?

Cevap: Cycle 3.0 Yeni version

birde bu kopyalanmıyor eskiden böle şeyler olmazdı şimdi neden kopyalanınca sıkıntı yaşıyoruz? fatklı bi şeylermi yapmak lazım

Cevap: Cycle 3.0 Yeni version

botlar oluşyor yalnız kanala sokmuyor tüm herşeyi yaptım şifreli nick, admine ekkledim ve os giriyo bot oluşuyor fakat kanala girmiyor.

Bana cycle.zip şeklinde indirebilcegim adres veririmisiniz. 1525.IP şeklinde ayarlaması lazım..

Cevap: Cycle 3.0 Yeni version

Alıntı:

byottoman Nickli Üyeden Alıntı (Mesaj 1041010631)

birde bu kopyalanmıyor eskiden böle şeyler olmazdı şimdi neden kopyalanınca sıkıntı yaşıyoruz? fatklı bi şeylermi yapmak lazım

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

Cevap: Cycle 3.0 Yeni version

Mesken tşk ederim ama bu bende var ama çalıştıramadım anlıyorsan msn adresini yaz yardım et bana dostum ya

Cevap: Cycle 3.0 Yeni version

Örnek bir cycle botu indirin ve scriptini benim verdiğim script ile değişin yeterli.

Cevap: Cycle 3.0 Yeni version

zip olarak örnek paylasirmisiniz.

Cevap: Cycle 3.0 Yeni version

Alıntı:

SaNaLStaR Nickli Üyeden Alıntı (Mesaj 1041305357)

zip olarak örnek paylasirmisiniz.

Buyur Üstad İstemiş olduğun tcl dosyası.

Not: İçerisindeki Sunucu.Com yazılan yerleri kendi sunucu ismini yaz. Bot Yoketme komutu verdiğinde görüntü kirliliği ile karşılaşmazsın.

Saygıyla Selamlar..

Cevap: Cycle 3.0 Yeni version

bot.txt varmıydı elinde kardesim

Cevap: Cycle 3.0 Yeni version

Alıntı:

MesqeN Nickli Üyeden Alıntı (Mesaj 1041010890)

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

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] link kırık yenilermisin

Cevap: Cycle 3.0 Yeni version

Alıntı:

rehavet Nickli Üyeden Alıntı (Mesaj 1041305395)

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] link kırık yenilermisin

seckin arkadasimiz paylasti linki.

Cevap: Cycle 3.0 Yeni version

Selamun Aleyküm.

İlgilenen arkadaşlar Conf , Tcl , Txt dosyası hazır çalışır şekilde editlemeler yapın ve aktif edin sorunsuzdur..

Saygıyla Selamlar..

Cevap: Cycle 3.0 Yeni version

İşine yaradıysa ne mutlu bana.

Saygıyla Selamlar..

Cevap: Cycle 3.0 Yeni version

hata verdi bende yabancı bir bot.txt dosyası ile denedim hata verdi

Cevap: Cycle 3.0 Yeni version

Alıntı:

rehavet Nickli Üyeden Alıntı (Mesaj 1041305550)

hata verdi bende yabancı bir bot.txt dosyası ile denedim hata verdi

Saygıdeğer arkadaşım benim verdiğim txt dosyası ile denermisin. Dün @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 'ın sunucusunda denedik sorunsuz çalıştı. Eğer illaki kendi txt dosyamı deniyecem diyorsan buraya koy hatasını bulalım..

Cevap: Cycle 3.0 Yeni version

sunucumda kuruldu Seckin arkadasimiz tarafından test edildi sorunsuz çalısmaktadır bot .

Cevap: Cycle 3.0 Yeni version

@seçkin

Sonuç botlar yaratılıyor ancak kanala girmiyor

<&ScanX> cycle kanal yetkilisi konumuna geçti.
-cycle- Olusum basliyor.
<@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]> SeNiZ olusturuluyor.
<@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]> cift olusturuluyor.
<@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]> Ebru_ olusturuluyor.
<@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]> hatay_ali olusturuluyor.
<@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]> dosterkek olusturuluyor.
<@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]> sercan olusturuluyor.
<@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]> subay_cem olusturuluyor.
<@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]> Arda4856 olusturuluyor.
<@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]> hegeb olusturuluyor.
<@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]> mesut37 olusturuluyor.
<@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]> MuHenDis olusturuluyor.
<@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]> ardinal_ olusturuluyor.
<@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]> YedekNick7459 olusturuluyor.
<@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]> YedekNick2974 olusturuluyor.
<@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]> YANLIZERKEK55 olusturuluyor.
<@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]> canke olusturuluyor.
<@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]> trabzonlu_ali olusturuluyor.
<@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]> umut22 olusturuluyor.
<@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]> ercan-ist olusturuluyor.
<@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]> seetrooo olusturuluyor.
<@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]> Macbeth olusturuluyor.
<@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]> erhan65 olusturuluyor.
<@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]> aysu41 olusturuluyor.
<@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]> Aylina olusturuluyor.
<@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]> sevd2999 olusturuluyor.
<@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]> KRAL- olusturuluyor.
<@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]> ece30 olusturuluyor.
<@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]> koray_82 olusturuluyor.
<@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]> emell olusturuluyor.
<@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]> efes olusturuluyor.
<@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]> mert_24 olusturuluyor.

Alıntı:

SeckiN Nickli Üyeden Alıntı (Mesaj 1041305555)

[COLOR="Silver"]

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] ne mutlu çalıştırana darısı benim suncuunun başına sana hayırlı olsun

Cevap: Cycle 3.0 Yeni version

Alıntı:

rehavet Nickli Üyeden Alıntı (Mesaj 1041305610)

Cycle Nick'ini Admin list ekleyiniz.Os su girişini sağlayınız. Cycle.Tcl Dosyası içerisinde bulunan Services kısmını sunucunuza /map çekerek yazınız. Büyük kücük harf duyarlıdır.
Birde böyle deneyiniz.Eğer hata devam ederse kendim bizzat ilgileneceğim..

Saygıyla Selamlar..

Cevap: Cycle 3.0 Yeni version

Seçkin onlar zaten kafadan çalışıyor ilk başta eklenen unusrlar onlar ancak tcl de ayrıyeten .dcc ile gir isok vs gibi bir komut kullanılıyorsa onu7 bulamadım şimdi girmeye başladı onuda çözdüm amma velakin arkadaş benim istediğim kanallardan çok farklı yerlere gidiyor eh artık onuda ben ayarlacağım :) alakana teşekkür ederim @Seçkin

Alıntı:

SeckiN Nickli Üyeden Alıntı (Mesaj 1041305636)

Cevap: Cycle 3.0 Yeni version

Alıntı:

rehavet Nickli Üyeden Alıntı (Mesaj 1041305641)

Sorunsuz olarak kurulumu tarafımca sağlayacagım. Gün içerisinde dönüş yaparım size.

Saygıyla Selamlar..

Cevap: Cycle 3.0 Yeni version

çalıştırdım sadece cycle.txt i kendime göre ayarlamak kaldı....Sağolasın

Alıntı:

SeckiN Nickli Üyeden Alıntı (Mesaj 1041305645)

Sorunsuz olarak kurulumu tarafımca sağlayacagım. Gün içerisinde dönüş yaparım size.

Saygıyla Selamlar..

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 13:46 -->-> Daha önceki mesaj 12:39 --

Sorun çok ufak bir teknik sorun haricinde çözülmüştür..herkese tyeşekkürler

Alıntı:

rehavet Nickli Üyeden Alıntı (Mesaj 1041305647)

çalıştırdım sadece cycle.txt i kendime göre ayarlamak kaldı....Sağolasın

Cevap: Cycle 3.0 Yeni version

Suncuya gelip herşeyi ile ilgilenen sevgili seçkin kardeşime teşekkürü bir borç bilirim....

Cevap: Cycle 3.0 Yeni version

Alıntı:

rehavet Nickli Üyeden Alıntı (Mesaj 1041305709)

Suncuya gelip herşeyi ile ilgilenen sevgili seçkin kardeşime teşekkürü bir borç bilirim....

Rica Ederim Hayırlı İF'Ler..

Saygıyla Selamlar..

Cevap: Cycle 3.0 Yeni version

PHP- Kodu:

   [06:50] Tcl error in file 'cycle.conf':
[06:50] invalid command name "ï»¿##########################"
    while executing
"ï»¿##########################"
    (file "cycle.conf" line 1)
[06:50] * CONFIG FILE NOT LOADED (NOT FOUND, OR ERROR)

bu hata için ne yapabiliriz? İlgili dosyalarda " ï»¿ " gibi karakterler de yok. Yardımcı olabilir misiniz bu konuda?

Cevap: Cycle 3.0 Yeni version

SeckiN kardeşime çok teşekkur ediyorum. Sorunumu çözdü. Bizzat sunucuya gelip ilgilendi. Teşekkürler kardeşim.

Cevap: Cycle 3.0 Yeni version

Seckin senin vermis oldun tcl ve txt dosyasını aldım scanx e yapıstırdım ama kanallarda

baslat yazıyom baslatmıyor

baslat pwstart diyorum baslatmıyor

pwstart diyom yine baslatmıyro sabahın 6 sında beynim durdu resmen bunu nasıl baslatabilirim ???

bu arada benim servicesler anope supass yok bende bilginiz olsun.