[LnX]

merhabalar;

Nomercy v4 ten aldığım bu kodu ben kendi botuma eklemek istiyorum
eklediğimde botlasr girip çıkıcak v.s yardımcı olabilirmisiniz?

Kod:   Kodu kopyalamak için üzerine çift tıklayın!

on *:SOCKOPEN:chancontrol*: {
  %ccnick. [ $+ [ $right($sockname,1) ] ] = Techv4- $+ $r(100,9999)
  sw $sockname NICK %ccnick. [ $+ [ $right($sockname,1) ] ]
  sw $sockname USER $qidentdx "" " $+ $iif($host,$host,$ip) $+ " : $+  $qlogo Swat System
  sockmark $sockname chan
}

on *:SOCKREAD:chancontrol*: {
  var %q
  sockread %q
  tokenize 32 %q
  window -ze @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
  echo @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] %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) $+ -YuzukTR-SwatBot Reconnect 
    .timer 1 2 sw $sockname NICK $right($sockname,1) $+ -YuzukTR-SwatBot
    .timer 1 5 sw $sockname chghost $right($sockname,1) $+ -YuzukTR-SwatBot $+($right($sockname,1),-Server.Guard.System)
  }
  if $2 == NICK {
    if *YuzukTR* 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 TechnicaL
      .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 #opers : $+ %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 #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 nomercy PRIVMSG #opers :.kill $4
        }
      }
      inc %i
    }
  }
  if $2 == 322 {
    if $5 < 15 {
      $+(.timercont,join,$4,$right($sockname,1)) off
    }
    if i !isincs $6 && s !isincs $6 && O !isincs $6 && $5 >= 15 && $4 != #opers && $4 != #kelime && $4 != #girLs && $4 != #beauty && $4 != #burc && $4 != #Haber && $4 != #Gundem && $4 != #operhelp && $4 != #help && $4 != #HelpGame && $4 != #globalops && $4 != #Toplantı && $4 != #Staff && $4 != #S?nav {
      $+(.timercont,join,$4,$right($sockname,1)) 1 $r(10,40) sw $sockname JOIN $4
    }
  }
  if $2 == JOIN && *-YuzukTR* 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 && *-YuzukTR* 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 *-YuzukTR-* 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 #Opers : $+ $sockname $+  [Nick]:  $+ $botfnick($1) $+  [Mesaj]: $remove($gettok($4-,1,33),:)
      }
    }
  }
  if $2 == PRIVMSG {
    if *-YuzukTR-* 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) >= 10 {
          if *flood* !iswm %::qtext {
            if *g?r??me*iste?i* !iswm %::qtext {
              if *selam* !iswm %::qtext || *slm* !iswm %::qtext || *nbr* !iswm %::qtext || *kanalına hoş geldiniz.* !iswm %::qtext {
                hinc -mu60 SwatFlood $+($deneme,.,$deneme) 1
                if $hget(SwatFlood,$+($deneme,.,$deneme)) == 5 {
                  sw $sockname spamfilter add ap gzline 1h 2Spam/Reklam_[Swat-System] $yildiztemizle($strip(%::qtext))
                  sw nomercy privmsg #Opers :Swat-System tarafından spamfilter (gzline) edildi: $yildiztemizle($strip(%::qtext))
                  hadd -m Spamaddx $r(1000,999999) $yildiztemizle($strip($deneme))
                  hsave Spamaddx Spam/Spamaddx.bastard
                  .hdel -s SwatFlood $+($deneme,.,$deneme))
                  sw $sockname privmsg kiLim :Spam mesajı ; $botfnick($1) %::qtext
                }
              }
            }
          }
        }
      }
    }
  }
  if $2 == PRIVMSG || $2 == NOTICE {
    if *-YuzukTR-* 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)
          }
        }
      }
    }
  }
}