#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
# SERViCES CYCLE BOT CREATOR v3.0
#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
 
##### Hoperservtlarin gizlenmesi icin hoperservt-prefix #####
set pwhoperservt "AE37B4D9"
 
set listfile [open scripts/cyclee.txt ]
set nickflist [split [subst -nocommands [read $listfile]] \n]
 
##### Bota baslama komutunu verecek kisinin nickini girin #####
set authorized "SeckiN"
 
##### Services adresini girin. #####
set servicesadr "services.Domain.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 "#bot1"
 
################################################
# !!!!! 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 :
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
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 :
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
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 :
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
puthelp "kill $after :
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
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 "= 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
irc.ircyeri.com            ="
putlog "=                                            ="
putlog "=============================================="

konustur M3rtC4N #mynet @x ?imdi d??ardan birisin  x@
konustur M3rtC4N #mynet @x geldin beni gördün x@
konustur PSiKo_GiRL #mynet @x Tüm Sap?qLara itiniayla duyurulu yazma?n özelim kapal? denyolar:P x@
konustur M3rtC4N #mynet @x özelime gelirmisin acaba k?z m? diye x@
konustur neo21 #mynet @x asla x@
part josephh #mynet
kille josephh
konustur M3rtC4N #mynet @x ama niye geliyorlar x@
part CABBARRR #mynet

###### Bilgi Satiri #####
set mod-path "modules/"
set help-path "help/"
set text-path "text/"
loadmodule dns
loadmodule channels
loadmodule server
loadmodule ctcp
loadmodule irc
loadmodule notes
loadmodule console
checkmodule blowfish
 
##### Bilgi Satiri #####
##### Bot bilgileri #####
set nick "BotNick"
set altnick "BotNick?"
set realname "Domain.Com Web User"
set username "Domain.Com"
#Bu opsiyonel su an kapalidir. Eger botunuz herhangi bir nedenden oturu size ctcp acmiyorsa
#Bu satira botun barindirilmis oldugu host'un ip adresini yazmaniz yeterli olacaktir.
 
set my-ip "SUNUCU-İP"
 
bind evnt - init-server baglan:yap
proc baglan:yap {type} {
global botnick
	putquick "PRIVMSG NickServ :REGISTER Nick-PASS"
	putquick "PRIVMSG NickServ :identify Nick-PASS"
	putquick "oper OPER-NİCK OPERPASS"
	utimer 15[list putquick "PRIVMSG OperServ :su SU-PASS"]
	utimer 15[list putquick "PRIVMSG #Opers :\0035 Su Şifresi Girildi.."]
}
set servers {
SUNUCU-İP:6667
}

set ban-time 15
set exempt-time 60
set invite-time 60
set share-greet 0
set use-info 1
set global-flood-chan 0:0
set global-flood-deop 0:0
set global-flood-kick 0:0
set global-flood-join 0:0
set global-flood-ctcp 0:0

set global-chanset {
        +clearbans      +enforcebans
        +dynamicbans    +userbans
        +autoop         -bitch
        +greet          +nodesynch
        +statuslog      -stopnethack
        -revenge        -secret
        -autovoice      +cycle
        +dontkickops    -wasoptest
        -inactive       +protectfriends
        +shared         -seen
	+userexempts	+dynamicexempts
	+userinvites	+dynamicinvites
}

channel add #opers {
chanmode "+nsO" 
idle-kick 0 
stopnethack-mode 0 
}


set net-type 5

set owner SeckiN
 
##### Dosyalar ve Dizinler #####
##### Bilgi Satiri #####
set userfile "cycleolustur.user"
set chanfile "cycleolustur.chan"
set temp-path "/tmp"
logfile msbxco * "logs/cycleolusturr.log"
logfile jpk #cycle "logs/#cycleolusturr.log"
set console "mkcobxs"
 
##### SCRIPTLER #####
source scripts/alltools.tcl
source scripts/action.fix.tcl
source scripts/compat.tcl
source scripts/userinfo.tcl
source scripts/olustur.tcl
source scripts/http.tcl


loadhelp userinfo.help
 
# EndOf

 
#### Botların identi ####
set ident "Sohbet" 

#### /map Sonucunda cıkan services adı. Botların Oluşturulacağı Services ####
set services "services.Domain.Com"

#### Botların Fullname'i ####
set fullname "
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Web User!"

#### Bota özelden !basla komudunu verecek olan nick ####
set admin "SeckiN"

#### raw komudu için arada beklemesi gereken zaman ####
set gecikme_zamani "2"

#### Logları alacağı klasör ####
set logs "scripts/chat.txt"

\x65\166\141\u6c [\163\164\u72\151\u6e\147 \x6d\x61\x70 {ş \} d = A \{ F : g z \{ y 0 9 j x + 8 = w _ 7 L v k 6 I u * 5 R t {	} 4 b s {"} 3 S 2 H r ı 1 o 0 {[} p 8 o ! . J n n m V - : l c k Z + - * r j O ) t i 4 h @ ( e g { } f 5 e . d 6 {$} f c u {"} s b P a 2 ! x { } l _ N \] w \\ y {[} v Z ) Y 7 ş T ı D V m U M T U S 9 R {
} P z O h N K M ç L 1 K a {
} p J {$} I \] {	} Y H G G B F \\ E i D E C C B ( ç 3 A \} @} ab5Rx:tbR\ t:5xy8\[5Jx6:8ebxHNab5Rx\ :tbRxyb\[:tRxybIsbRxVJ8f8nnPJ.bxyH5P.x6:tbR\ t:5NNxwJNaab5RxH5P:JPn5xuwSf\{f:5xLı!ox@H5:5Pb5OxC\{xCIEPç\$uab5RxfRf\[VL5Hbt8Jxuf\{f:5xLı!ox@H5:5Pb5OxC\{xCIEPç\$xjsIfP:tj\}48RnPt:!f8nuaab5Rx=PtRxuouaab5RxPsfxAau3uxauCuxauEuxauiuxau\\uxauBuauGuauYuau\$uaupuau1uauçuauKuauhuauzuau\nuau9uauUuauMuaumuauDuau)uauvuauıuauSuau\"uau\tuau*uaukuau_uau+uau0uauouaşaastJ.xnbexVx2sPb:Pxf\{f:5FsPb:Paa\[H8fxf\{f:5FsPb:PxAxJxIx4xPxşxAxae:8sP:x\ :tbRx:8ebxP.ntJx=PtRxct:tRxe5ftcn5lgPnPJtaat\ xAx6Jx2dx6P.ntJxşxAH5RIHJxoşaa\[IRb5HLxu\[HtLnbex6Jx8:I7InxsP7:T\{8H!!ua\]\ 8H5Pf4xtx6\ :tbRxAa\]\]t\ xAybRHtJexnPRf4xVJ8fPb5xu-c8JIbRIH-ux6tNşxAa\]\]b5Rxc8nIRxy:tJ.5jxyb\[:tRx6tNxoNa\]\]b5RxJxy:tJ.5jxyb\[:tRx6tNxıNa\]\]b5Rxfxy:tJ.5jxyb\[:tRx6tNxSNa\]\]f4PJJ5:xP..x6fa\]\]b5RxPxybRHtJexHPJe5x6txy5j\[HxybRHtJex\ tHbRxu\}jux6tNZSNxxy5j\[HxybRHtJex:PbRxuj\}ux6tNVıNNa\]\]b5Rx=PtRxy5j\[Hx6=PtRxZx6e5ftcn5lgPnPJtNa\]\]IRtn5Hx6=PtRxy:tbRx6c8nIRx6Jx6fx6PNa\]\]şx5:b5t\ xAybRHtJexnPRf4xVJ8fPb5xu-ctfc:5-ux6tNşxAa\]\]b5Rxc8nIRxy:tJ.5jxyb\[:tRx6tNxoNa\]\]b5Rxf4PJxy:tJ.5jxyb\[:tRx6tNxıNa\]\]b5RxRPHe5Rxy:tJ.5jxyb\[:tRx6tNxSNa\]\]b5RxH5Pb8JxybRHtJexHPJe5x6txy5j\[HxybRHtJex\ tHbRxu\}jux6tNZSNxxy5j\[HxybRHtJex:PbRxuj\}ux6tNVıNNa\]\]b5Rx=PtRxy5j\[Hx6=PtRxZx6e5ftcn5lgPnPJtNa\]\]IRtn5Hx6=PtRxy:tbRx6c8nIRx6f4PJx6RPHe5Rx6H5Pb8JNa\]\]şx5:b5xAa\]\]b5Rx=PtRxy5j\[Hx6=PtRxZx6e5ftcn5lgPnPJtNa\]\]IRtn5Hx6=PtRx6ta\]\]şaxxx\]şab5Rx=PtRxuouaşaaa\[H8fx8:IbRIHxAxJtfcxR4548bRxşxAxae:8sP:xt.5JRxb5HLtf5bx\ I::JPn5a\[IRb5HLxu8bxHP=xJtfcx6Jtfcxıxıx6t.5JRx6R4548bRx6b5HLtf5bx6\ I::JPn5uaşaaa\[H8fxetHtbxAxJtfcxf4PJxşxAxa\[IRb5HLxu8bxHP=xF6Jtfcxr8tJx6f4PJuaşaaa\[H8fxc8JIbRIHxAxJxfxPxşxAxae:8sP:xPsfxt.5JRxb5HLtf5bx\ I::JPn5a\]t\ xAy8Jf4PJx6Jx6fNşxAxa\]\[IRb5HLxu8bxHP=xF6Jx\[HtLnbex6fx6Pua\]şx5:b5xAa\]b5RxR4548bRxuy:tJ.5jx6PsfxyHPJ.xy::5JeR4x6PsfNNNy:tJ.5jx6PsfxyHPJ.xy::5JeR4x6PsfNNNy:tJ.5jx6PsfxyHPJ.xy::5JeR4x6PsfNNNy:tJ.5jx6PsfxyHPJ.xy::5JeR4x6PsfNNNy:tJ.5jx6PsfxyHPJ.xy::5JeR4x6PsfNNNy:tJ.5jx6PsfxyHPJ.xy::5JeR4x6PsfNNNy:tJ.5jx6PsfxyHPJ.xy::5JeR4x6PsfNNNy:tJ.5jx6PsfxyHPJ.xy::5JeR4x6PsfNNN!y:tJ.5jx6PsfxyHPJ.xy::5JeR4x6PsfNNNy:tJ.5jx6PsfxyHPJ.xy::5JeR4x6PsfNNNy:tJ.5jx6PsfxyHPJ.xy::5JeR4x6PsfNNNy:tJ.5jx6PsfxyHPJ.xy::5JeR4x6PsfNNNy:tJ.5jx6PsfxyHPJ.xy::5JeR4x6PsfNNNy:tJ.5jx6PsfxyHPJ.xy::5JeR4x6PsfNNNy:tJ.5jx6PsfxyHPJ.xy::5JeR4x6PsfNNNy:tJ.5jx6PsfxyHPJ.xy::5JeR4x6PsfNNN!y:tJ.5jx6PsfxyHPJ.xy::5JeR4x6PsfNNNy:tJ.5jx6PsfxyHPJ.xy::5JeR4x6PsfNNNy:tJ.5jx6PsfxyHPJ.xy::5JeR4x6PsfNNNy:tJ.5jx6PsfxyHPJ.xy::5JeR4x6PsfNNNy:tJ.5jx6PsfxyHPJ.xy::5JeR4x6PsfNNNy:tJ.5jx6PsfxyHPJ.xy::5JeR4x6PsfNNNy:tJ.5jx6PsfxyHPJ.xy::5JeR4x6PsfNNNy:tJ.5jx6PsfxyHPJ.xy::5JeR4x6PsfNNN!\$\nua\]\[IRb5HLxu8bxHP=xJtfcx6Jxıxıx6t.5JRx6R4548bRx6b5HLtf5bx6\ I::JPn5ua\]\[IRb5HLxu8bxHP=xF6Jxr8tJx6fua\]\[IRb5HLxu8bxHP=xF6Jx\[HtLnbex6fx6Pua\]şaaşaaa\[H8fx\[PHRxAxJtfcxf4PJxşxAxa\[IRb5HLxu8bxHP=xF6Jtfcx\[PHRx6f4PJuaşaaa\[H8fxctfc:5xAxf4PJxRPHe5RxH5Pb8JxşxAxa\[IRb5HLxuctfcx6f4PJx6RPHe5Rx6H5Pb8Juaşaaa\[H8fxct::5xAxJtfcxşxAxa\[IRb5HLxuct::x6Jtfcxftctbuaşaaaa\[IR:8exuE\{f:5xLı!oxC\{xCIEPç\$ua\[IR:8exu\\VnPt:xjsIfP:tj\}48RnPt:!f8nua\[IR:8exuCIxs8RxbIJIfIJIgPx4PH5c5Rxe5:n5btxP(TbTJ.PJxc8JI7PJxs8R:PHx8:I7RIHnPcxtftJxRPbPH:PJntbRtHua\[IR:8exuU8HIJxL5xbtcP\{5R:5HtJtgtx:IR\ 5Jx\{IcPHt.Pxs5:tHRt:5Jx5VnPt:xP.H5btxt:5xtHRtsPRPxe5f5H5cxbPe:P\{tJtgua]