Cycle Bot

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

##### Hostlarin gizlenmesi icin host-prefix ##### 
set pwhost "mircstar.com" 

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

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

##### Services adresini girin. ##### 
set servicesadr "services.mircstar.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 "#CycleBot" 

################################################ 
# !!!!! 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 :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 2[rand 4][rand 9].[rand 9][rand 9][rand 9].[rand 9][rand 9][rand 9].$pwhost-[rand 9][rand 9][rand 9][rand 9][rand 9] $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 PowerUseR : $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 :Olusum basliyor. " 
   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 2[rand 4][rand 9].[rand 9][rand 9][rand 9].[rand 9][rand 9][rand 9].$pwhost-[rand 9][rand 9][rand 9][rand 9][rand 9] $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