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

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

##### Services adresini girin. #####
set servicesadr "services.mircortam.org"
set logit 1
set logchany "#bot"
 
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

putlog "===============TCL CycLe ==============="
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.
style="color: #0000BB">putlog "=               by AlwaysGooD                ="
putlog "==============================================" 

 
set username "CycLe Botu"
set admin "eggdrop"
set network "mIRCOrtam"
set timezone "EST"
set max-logs 5
set log-time 1
set keep-all-logs 0
set my-ip "212.175.158.31"
set my-hostname "eggdrops.mIRCOrtam.Org"

checkmodule blowfish


set switch-logfiles-at 300
set console "mkcobxs"
set userfile "trbil.user"
set sort-users 0
set help-path "help/"
set temp-path "/tmp"
set motd "motd"
set botnet-nick "bot6"
listen 3334 all
set protect-telnet 1
set dcc-sanitycheck 0
set ident-timeout 30
set require-p 1
set open-telnets 0
set connect-timeout 15
# number of messages from a user on dcc before they are considered to be
# flooding (and therefore get booted)
set dcc-flood-thr 3
set telnet-flood 5:60

# how long should I wait (seconds) before giving up on hostname/address 
# lookup?
set resolve-timeout 15
set ignore-time 15
set debug-output 0
set hourly-updates 15
set notify-newusers "HQ"
set owner "berdush"
set default-flags "hpx"
set whois-fields "url birthday"
set remote-boots 2

# if you don't want people to unlink your share bots from remote bots
# set this to 0
set share-unlinks 1
set die-on-sighup 0
set die-on-sigterm 0

unbind dcc n tcl *dcc:tcl
unbind dcc n set *dcc:set

unbind dcc n simul *dcc:simul

set max-dcc 50
set enable-simul 1
set allow-dk-cmds 1

set mod-path "modules/"

#### CHANNELS MODULE #####

loadmodule channels

# the chanfile: where dynamic channel settings are stored
set chanfile "trbil.chan"
set ban-time 60
set share-greet 0
set use-info 1

channel add #bot {
chanmode "+nt"
idle-kick 0
need-unban { putserv "PRIVMSG ChanServ :unban #bot $botnick " }
flood-chan 4:4
flood-deop 5:10
flood-kick 3:10
flood-join 4:10
flood-ctcp 3:60
}

channel set #bot -clearbans
channel set #bot +enforcebans
channel set #bot +dynamicbans
channel set #bot +userbans
channel set #bot -autoop
channel set #bot -bitch
channel set #bot -greet
channel set #bot -protectops
channel set #bot -statuslog
channel set #bot -stopnethack
channel set #bot -revenge
channel set #bot -autovoice
channel set #bot -secret
channel set #bot -shared
channel set #bot +cycle
channel set #bot +dontkickops



loadmodule server


set nick "ELmas"
set altnick "BOT2"
set realname "Cycle BOTU by MoonsheLL"
set init-server {
putserv "PRIVMSG nickserv :IDENTIFY asf5asf5asx5sax4as45sac"
putserv "OPER BOT xxxxiiii29998131046iiiixxxx"
}



set servers {

212.175.158.31:7000

} 



set keep-nick 1
set strict-host 0
set quiet-reject 1
set lowercase-ctcp 0
set answer-ctcp 3
set flood-msg 5:60
set flood-ctcp 3:60
set never-give-up 1
set strict-servernames 0
set default-port 6667
set server-cycle-wait 60
set server-timeout 15
set servlimit 0
set check-stoned 1
set use-console-r 0
set serverror-quit 1
set max-queue-msg 300
set trigger-on-ignore 0
set use-silence 0
set handle-mode_r 1

##### CTCP MODULE #####

# this provides the normal ctcp replies that you'd expect *RECOMMENDED*
loadmodule ctcp



##### IRC MODULE #####

loadmodule irc

# [0/1] define this if you want to bounce all server bans 
set bounce-bans 0
set allow_desync 0
set kick-method 1
set kick-bogus 1
set learn-users 0
set wait-split 300
set wait-info 180
set modes-per-line 3
set mode-buf-length 200
set use-354 0


#unbind msg - hello *msg:hello
#bind msg - myword *msg:hello

unbind msg - ident *msg:ident
set no-chanrec-info 0

##### TRANSFER MODULE #####

loadmodule transfer

set max-dloads 1
set dcc-block 0
set copy-to-tmp 1
set xfer-timeout 300



##### SHARE MODULE #####

loadmodule share

set passive 1

set #sancak +share

set files-path "/home/mydir/filesys"
set incoming-path "/home/mydir/filesys/incoming"
set upload-to-pwd 0
set filedb-path ""
set max-file-users 20
set max-filesize 1024

##### NOTES MODULE #####

loadmodule notes

set notefile "wins.note"
set max-notes 50
set note-life 60
set allow-fwd 0
set notify-users 1

##### CONSOLE MODULE #####

# this module provides storage of console settings when you exit the bot 
# (or .store)
loadmodule console

set console-autosave 1
set force-channel 0
set info-party 0

##### SCRIPTS #####

# these are some commonly loaded (and needed) scripts.
source scripts/cycle.tcl


####End###########