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 "bLack"

 

##### Services adresini girin. #####

set servicesadr "services.bizimsohbet.net"

 

 

##### 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