if !$sock(chancontrolA) {
    sockopen chancontrolA $qsunucu $qsunucuport
  } 
  if !$sock(chancontrolL) {
    sockopen chancontrolL $qsunucu $qsunucuport
  }
  if !$sock(chancontrolX) {
    sockopen chancontrolX $qsunucu $qsunucuport
  }
  if !$sock(chancontrolZ) {
    sockopen chancontrolZ $qsunucu $qsunucuport
  }

on *:SOCKOPEN:chancontrol*: {
  %ccnick. [ $+ [ $right($sockname,1) ] ] = Auxv1- $+ $r(100,9999)
  sw $sockname NICK %ccnick. [ $+ [ $right($sockname,1) ] ]
  sw $sockname USER Ircbook "" " $+ $iif($host,$host,$ip) $+ " : $+  $qlogo Aux
}

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 $qoperpass
  }
  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) ] ] +s
    sw $sockname join 0,
    sw NoMercy os raw svskill $right($sockname,1) $+ -SunucuAdı- Reconnect 
    .timer 1 2 sw $sockname NICK $right($sockname,1) $+ -Aux-Kontrol
    .timer 1 5 sw $sockname chghost $right($sockname,1) $+ -Aux-Kontrol $+($right($sockname,1),-Ircd.Aux.Security)
  }
  if $2 == NICK {
    if *MuafNick* iswm $right($3,-1) && $left($right($3,-1),1) == $right($sockname,1) {
      sw $sockname MODE $right($3,-1) +BH-h
       sw $sockname MODE $right($3,-1) +s
       sw $sockname MODE $right($3,-1) -s
      sw $sockname MODE $right($3,-1) +s
      sw $sockname LIST
      .timer 1 5 sw $sockname setident Ircbook
      .timerlist $+ $sockname 0 50 sw $sockname LIST
      .timerkontrolmsgA 0 $r(600,1500) botkontrolA
      .timerkontrolmsgL 0 $r(600,1500) botkontrolL
      .timerkontrolmsgX 0 $r(600,1500) botkontrolX
      .timerkontrolmsgZ 0 $r(600,1500) botkontrolZ
    }
  }
  if $2 == 352 {
    sw NoMercy PRIVMSG #Aux : $+ %reklamchan reklam botu: Clonelari: $8
    sw $sockname WHOIS $8
  }
  if $2 == 319 {
    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 NoMercy PRIVMSG #Aux : $+ $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 NoMercy PRIVMSG #Aux :.kill $4
        }
      }
      inc %i
    }
  }
  if $2 == 322 {
    if $5 < 25 {
      $+(.timercont,join,$4,$right($sockname,1)) off
    }
    if i !isincs $6 && s !isincs $6 && O !isincs $6 && $5 >= 25 && $4 != #Aux && $4 != #Opers && $4 != #Operhelp  && $4 != #Radyo {
      $+(.timercont,join,$4,$right($sockname,1)) 1 $r(10,40) sw $sockname JOIN $4
    }
  }
  if $2 == JOIN && *-Aux-* iswm $remove($gettok($1,1,33),:) && $left($remove($gettok($1,1,33),:),1) == $right($sockname,1) {
    $+(.timercont,cycle,$right($3,-1),$right($sockname,1)) -o 1 $r(500,1000) sw $sockname PART $right($3,-1)
    $+(.timercont,part,$right($3,-1),$right($sockname,1)) off
  }
  if $2 == PART && *-Aux-* 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 {
    if *-Aux-* iswm $3 && *.*.* !iswm $botfnick($1) {
      var %::text $remove($gettok($4-,1,33),:)
      inc -u5 %qflood. [ $+ [ $+($sockname,($strip(%::text)),32) ] ]
      if %qflood. [ $+ [ $+($sockname,($strip(%::text)),32) ] ] == 3 {
        sw NoMercy privmsg #Aux : $+ $sockname $+  [Nick]:  $+ $botfnick($1) $+  [Mesaj]: $remove($gettok($4-,1,33),:)
      }
    }
  }
  if $2 == PRIVMSG {
    if *-Aux-* iswm $3 && *.*.* !iswm $botfnick($1) {
      var %::qtext $remove($gettok($4-,1,33),:)
      var %deneme $remove($gettok($4-,1,33),:)
      if !$oyunnick($botfnick($1)) {
        if $len(%::qtext) >= 15  {
          if *flood* !iswm %::qtext {
            if *girisme*istegi* !iswm %::qtext || *ozel*mesajlarim*kapa* !iswm %::qtext || *ozel*mesajlarim* !iswm %::qtext  || *s*l*m* !iswm %::qtext || *s*c*r*i*p*t* !iswm %::qtext || *CouraG* !iswm %::qtext || *Degerlendiriliyor.* !iswm %::qtext ||  *JAVASCRIPT*nudge*  !iswm  %::qtext ||  *Fenerba*  !iswm  %::qtext  ||  *KaSıRqa ScRipT*  !iswm  %::qtext  ||  *Veremiyeceqim*  !iswm  %::qtext {
              if *selam*nas?ls?n* !iswm %::qtext {
                hinc -mu60 SwatFlood $+($deneme,.,$deneme) 1
                if $hget(SwatFlood,$+($deneme,.,$deneme)) == 5 {
                  sw $sockname spamfilter add ap gzline 1h 2Spam/Reklam_[Aux-Swat-System] $yildiztemizle($strip(%::qtext))
                  sw NoMercy privmsg #Aux :Swat-System tarafindan spamfilter (gzline) edildi: $yildiztemizle($strip(%::qtext))
                  hadd -m Spamaddx $r(1000,999999) $yildiztemizle($strip(%::qtext))
                  hsave -i Spamaddx Spam/Spamaddx.bastard
                  .hdel -s SwatFlood $+($deneme,.,$deneme))
                  sw $sockname privmsg Nick'in :Spam mesaji ; $botfnick($1) %::qtext
                  .timer 1 120  sw $sockname spamfilter del ap gzline 1h 2Spam/Reklam_[Aux-Swat-System] $yildiztemizle($strip(%::qtext))
                }
              }
            }
          }
        }
      }
    }
  }
  if $2 == PRIVMSG || $2 == NOTICE {
    if *-Aux-* 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 Bhedee
      }
      if $4 == :
FINGER
 {
        sw $sockname NOTICE $botfnick($1) 
FINGER $fullname (bot) Idle 0 seconds
      }
      if $4 == :
DCC {
        _gline $botfnick($1) DCC exploit tespit edilmistir!
      }
      elseif *serv !iswm $botfnick($1) {
        if !$oyunnick($botfnick($1)) {
          mesajkontrol $botfnick($1) $strip($right($4-,-1))
          if $chr(35) isin $strip($right($4-,-1)) && $botfnick($1) != NoMercy && !$oyunnick($botfnick($1)) {
            var %rk $strip($right($4-,-1))
            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 NoMercy USERHOST $botfnick($1)
            killnick $botfnick($1)
          }
        }
      }
    }
  }
}