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)
        }
      }
    }
  }
}