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

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.