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

Alıntı:

eprom Nickli Üyeden Alıntı (Mesaj 209283)

editledim çalışıyor sadece swatbotlar cycle yapmıyor tek sorun ooo

Kod:

on *:SOCKOPEN:chancontrol*: {

  %ccnick. [ $+ [ $right($sockname,1) ] ] = ZzL- $+ $r(100,9999)

  sw $sockname NICK %ccnick. [ $+ [ $right($sockname,1) ] ]

  sw $sockname USER $rands "" " $+ $iif($host,$host,$ip) $+ " : $+ 9,1 monitor bot(s) 4 X 9 Muhabbet.NET Security

}

on *:SOCKREAD:chancontrol*: {

  var %q

  sockread %q

  tokenize 32 %q

  if $1 == PING {

    sw $sockname PONG $2

  }

  if $2 == 376 || $2 == 422 {

    sw $sockname oper ** ***

  }

  if $2 == 381 {

    sw $sockname MODE %ccnick. [ $+ [ $right($sockname,1) ] ] -s

    sw $sockname MODE %ccnick. [ $+ [ $right($sockname,1) ] ] +s

    sw $sockname MODE %ccnick. [ $+ [ $right($sockname,1) ] ] -s

    sw $sockname MODE %ccnick. [ $+ [ $right($sockname,1) ] ] +sB

    sw $sockname join 0,

    .timer 1 1 sw $sockname KILL $right($sockname,1) $+ -SwatBot SwatBots -  Baglantı Restartlanıyor

    .timer 1 2 sw $sockname NICK $right($sockname,1) $+ -SwatBot

    .timer 1 2 sw $sockname NICK $right($sockname,1) $+ -SwatBot

  }

  if $2 == NICK {

    if *swat* iswm $right($3,-1) && $left($right($3,-1),1) == $right($sockname,1) {

      sw $sockname MODE $right($3,-1) +H-h

      sw $sockname MODE $right($3,-1) +s

      sw $sockname MODE $right($3,-1) -s

      sw $sockname MODE $right($3,-1) +sB

      .timerlistbot1 0 50 sw chancontrola LIST

      .timerlistbot2 0 50 sw chancontrolx LIST

      .timer 0 500 sw chancontrolx join 0,

      .timer 0 300 sw chancontrola join 0,

    }

  }

  if $2 == 352 {

    if $8 != Sysop_KurtCobain && $8 != MNet && $8 != A-SwatBot && $8 != X-SwatBot && $8 != Sysop_Helping && $8 != Hosgeldiniz && $8 != Sysop_ControLBot && $8 != Sysop_Protection && $8 != ZzL* !iswm $8 { 

      sw Log PRIVMSG #opers : $+ %reklamchan reklam botu: Clonelari: $8

      sw $sockname WHOIS $8

    }

  }

  if $2 == 319 {

    if #opers !iswm $1- {

      var %c $right($5-,-1) , %i 1

      while %i <= $numtok(%c,32) {

        if % [ $+ [ $delprefix($gettok(%c,%i,32)) ] ] {

          if $left($gettok(%c,%i,32),1) != $chr(35) {

            sw log PRIVMSG #opers : $+ $delprefix($gettok(%c,%i,32)) reklam botu: Inviter clonelarindan $4 $delprefix($gettok(%c,%i,32)) kanalinda $left($gettok(%c,%i,32),1) olarak tespit edildi.

            sw log PRIVMSG #opers :.kill $4

          }

        }

        inc %i

      }

    }

  }

  if $2 == 322 { 

    if $5 > 1 {

      if $4 != $read(yonetimchans.txt,w,$4) {

        $+(.timercont,join,$4,$right($sockname,1)) -o 1 5 sw $sockname JOIN $4

      }

    }

  }

  if $2 == JOIN && *swat* iswm $remove($gettok($1,1,33),:) && $left($remove($gettok($1,1,33),:),1) == $right($sockname,1) {

    $+(.timercont,join,$right($3,-1),$right($sockname,1)) -o 1 $r(400,700) sw $sockname PART $right($3,-1)

    $+(.timercont,part,$right($3,-1),$right($sockname,1)) off

  }

  if $2 == PART && *swat* iswm $remove($gettok($1,1,33),:) && $left($remove($gettok($1,1,33),:),1) == $right($sockname,1) {

    $+(.timercont,part,$3,$right($sockname,1)) -o 1 5 sw $sockname JOIN $3

    $+(.timercont,join,$3,$right($sockname,1)) off

  }

  if $2 == PRIVMSG || $2 == NOTICE {

    if *swat* iswm $3 && *.*.* !iswm $botfnick($1) {

      if $4 == :TIME {

        sw $sockname NOTICE $botfnick($1) TIME $time

      }

      if $4 == :VERSION {

        sw $sockname NOTICE $botfnick($1) VERSION mIRC v6.16 Khaled Mardam-Bey

        sw $sockname NOTICE $botfnick($1) VERSION SwatBots v2.0 by SaNaLStaR

      }

      if $4 == :FINGER {

        sw $sockname NOTICE $botfnick($1) FINGER $fullname (bot) Idle 0 seconds

      }

      if $4 == :DCC {

        _tempshun $botfnick($1) DCC exploit tespit edilmistir!

      }

      elseif *serv !iswm $botfnick($1) && Hosgeldiniz !iswm $botfnick($1) && !$oyunnick($botfnick($1)) {

        mesajkontrol $botfnick($1) $strip($right($4-,-1))

        if $chr(35) isin $strip($right($4-,-1)) && !$oyunnick($botfnick($1)) {

          var %rk $strip($right($4-,-1))

          sw log PRIVMSG #opers :Inviter blok: < $+ $1 $+ > %rk

          var %i 1

          while %i <= $numtok(%rk,32) {

            if $left($gettok(%rk,%i,32),1) == $chr(35) {

              set -u15 % [ $+ [ $gettok(%rk,%i,32) ] ] 1

              set %reklamchan $gettok(%rk,%i,32)

            }

            inc %i

          }

          set %reklamsock $sockname

          sw Mnet USERHOST $botfnick($1)

          killnick $botfnick($1)

        }

      }

    }

  }

}

¤00:02:49¤ *** Ayrıldı: X-SwatBot ([Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]) (Left all channels)
¤00:03:00¤ *** Ayrıldı: X-SwatBot ([Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]) (Left all channels)
¤00:04:11¤ *** Ayrıldı: X-SwatBot ([Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]) (Left all channels)
¤00:04:13¤ *** Ayrıldı: A-SwatBot ([Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]) (Left all channels)
¤00:04:30¤ *** Ayrıldı: A-SwatBot ([Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]) (Left all channels)