Jaguar Robotics Script Version 3 Volume 2

By Jaguar Traitor Member on Dec 15, 2010

Modern Shifting Against Many

;========================================
;WHATS NEW ON THIS SCRIPT:
;========================================
;
;Fishing Mode :
;-->Two Way of Fast/Quick scanning Enemy List (sockets and watcher)
;-->If Master nick or Socket bot is On War channel automatic Fast/Quick scanning Enemy List
;-->Recommended to used with Auto Ping Mode
;
;Advance RAW OP/DEOP Socket System :
;-->What is important in the war games is that the script has to know who's "op" and who's not.
;
;Auto Ping :
;-->Automatic Ping Master/Watcher nick to make it Fast/Quick scanning
;-->Recommended to used with Combine Mode
;
;Double Hash:
;-->using double hash is very Fast to retrieve hashtables items
;-->Fast add/update an hash item
;
;Multiple Sockets Reading System:
;-->Using Multiple Sockets Reading is good to avoid traffic of socket reading
;-->if u don't have any idea of multi-sock-read just look at the aliases (alias technology)
;
;New Anti lag System:
;-->refresh all sockets ID on socket ID have overloaded issuing of commands
;-->using this system ur Script is very stable and "fire at will"

;=================================================================================================================;
;                                                   ^DaRk^SoUl^                                                   ;
;                                                    2002-2010                                                    ;
;                                       Jaguar Team Interactive WarScript                                         ;
;=================================================================================================================;
; Script Author       | Ritchel a.k.a. ^DaRk^SoUl^ , |KARIT| , |LEGENDARY-WARRIOR| , ]xXx[                        ;
; Script Name         | Jaguar Robotics                                                                           ;
; Script Version      | 3.0 Volume 2                                                                              ;
; Script Upgrade      | Fishing mode 2, Auto Ping, multi hastable adding enemy, Quick Mode Updates                ;
;                     | altershifting helper canivalize from old Hex Robotics by Vieziex                          ;
;=================================================================================================================;
; Script Created      | December 01, 2010 04:06:02 PM (Philippine Time)                                            ;
; Script Description  | Modern Shifting Against Many                                                              ;
; Script Purpose      | Channel war kick games                                                                    ;
;                     | Channel war scripting educational material                                                ;
;=================================================================================================================;
; Script Copyright    | © 2002-2010 Davao City PhilippineS                                                        ;
;=================================================================================================================;
; Script Credits      | VeiZeix a.k.a. \HeXeN\, heXen, ||x|x||, azureus, EkEk (Zen3 Script Creator)               ;
;=================================================================================================================;
; Script Tester       | Henry a.k.a. IRCMasteR                                                                    ;
;                     | Rasul a.k.a. ^kamandag^                                                                   ;
;                     | Raiven a.k.a. Venets                                                                      ;
;                     | Chito a.k.a.  Lil`bone                                                                    :
;                     | Amer a.k.a.   Backdoor                                                                    ;
;                     | Carlo a.k.a.  Bok                                                                         ;
;                     | Ryan  a.k.a.  S_t_a_t_i_c                                                                 ;
;=================================================================================================================;
; Acknowledgements    | My thanks to many people who have contributed their War Script over the years, whether    ;
;                     | through bug reports, suggestions, technical advice, and for many others who have helped   ;
;                     | out on channels, or created WaR Scripts.                                                  ;
;=================================================================================================================;
; thanks to           | VeiZeix --> (Master/Teacher of all Pilipino WarscripterS)                                 ;
;                     | Frederick a.k.a. Fredfoxs --> (My Bestfriend in Real life)                                ;
;                     | Ronelo a.k.a. [DEMONS] --> (My Bestfriend in Real life)                                   ;
;                     | Ryan a.k.a Static --> (My Bestfriend in Real life)                                        ;
;                     | Rasul a.k.a. ^kamandag^ --> (My Bestfriend in mIRC)                                       ;
;                     | Eva a.k.a. ^eVaNg3L1n3^ --> (Co Teammate)                                                 ;
;                     | Rhea a.k.a. Aikes --> (Co Teammate/kumare)                                                ;
;                     | Carlo a.k.a Bok -- > (My Best in Real life)                                               ;
;                     | and to all unnamed warriors who played us, Thanks...!!!                                   ;
;=================================================================================================================;
; Author Says                                                                                                     ;
;                                 WINNER OR LOSERS                                                                ;
;                                                                                                                 ;
;                      1.    THE WINNER IS ALWAYS A PART OF THE ANSWER.                                             ;
;                            THE LOSER IS ALWAYS A PART OF THE PROBLEM.                                             ;
;                                                                                                                 ;
;                      2.  THE WINNER ALWAYS HAS A PROGRAM.                                                       ;
;                            THE LOSER ALWAYS HAS AN EXCUSE.                                                        ;
;                                                                                                                 ;
;                      3.  THE WINNER SAYS, "LET ME DO IT FOR YOU".                                               ;
;                            THE LOSER SAYS, " THAT'S NOT MY JOB".                                                  ;
;                                                                                                                 ;
;                      4.  THE WINNER SEES AN ANSWERE FOR EVERY PROBLEM.                                          ;
;                          THE LOSER SEES A PROBLEM FOR EVERY ANSWERE.                                              ;
;                                                                                                                 ;
;                      5   THE WINNER SAYS, "IT MAY BE DIFFICULT BUT ITS POSSIBLE".                               ;
;                            THE LOSER SAYS, "IT MAY BE POSSIBLE BUT IT'S TOO DIFFICULT".                           ;
;                                                                                                                 ;
;                                                                                                                 ;
;=================================================================================================================;
;                     | this is my last script I made, no more scripting, for irc.humblegath.biz.tm server ...    ;
;                     |                                                                                           ;
;                     | My home channel : #Enforce (dalnet server and humblegath server)                          ;
;=================================================================================================================;
;                                   DISTRIBUTE/MODIFY THIS SCRIPT                                                 ;
;                   JUST GIVE ME CREDIT (^DaRk^SoUl^) thanks.. MAn... PEACE...!!!                                 ;
;=================================================================================================================;
; Jaguar Team motto:  | "We Love Peace But Welcome War! JTI Rulez!!!"                                             ;
;=================================================================================================================;
;
; ** Script Roots
;
;   Jaguar Robotics 3  war logics is based on the 1st generation of WarGear Script
;
;   Jaguar Robotics 3  is an evolved
;   script from its root the 'WarGear' revenge add-on.
;
;   This is the evolution of Enforce Final The Modified:
;
;  ^DaRk^SoUl^   1. WarGear              (enhancement of WarGear; multi-server)
;  ^DaRk^SoUl^   2. WarGear Masterpiece  (engine; none Socket; enhancement and bug-fixes of WarGear; multi-server)
;  ^DaRk^SoUl^   3. Cycle 1              (engine; none Socket; enhancement and bug-fixes of WarGearmaster; multi-server)
;  ^DaRk^SoUl^   4. Cycle Final          (engine; cid/Socket; enhancement and adding Socket deoper/opper; multi-server)
;  ^DaRk^SoUl^   5. Metal                (enhancement of Cycle; Classic One Against Many; single-server) [ Socket experimental ]
;  ^DaRk^SoUl^   6. Metal 2              (engine; enhancement and bug-fixes of Metal 2; finalized)
;  ^DaRk^SoUl^   7. Enforce 1            (engine; none Socket; experimental; INVEX feature (INVited and EXcept; 'Ie' channel modes))
;  ^DaRk^SoUl^   8. Enforce 2            (engine; Pure Socket; INVEX feature (INVited and EXcept; 'Ie' channel modes))
;  ^DaRk^SoUl^   9. Enforce final        (engine; enhancement and bug-fixes of enforce 2 (finalized))
;  ^DaRk^SoUl^   10. Enforcerx            (engine; feature delay op and on join deop + spin kick)
;  ^DaRk^SoUl^   11. Enforce ultimate     (engine; enhancement and bug-fixes of enforce final)
;  ^DaRk^SoUl^   12. Enforce ultimate 2   (engine; enhancement add more feature; (finalized)) [ modified by: eva ]
;  ^DaRk^SoUl^   13. Enforce Gold         (engine; enhancement removed useless code)
;  ^DaRk^SoUl^   14. Enforce Unlimited    (engine; enhancement feature; multi shifter with 1 access used)
;  ^DaRk^SoUl^   15. Enforce Resurrection (engine; enhancement and bug-fixes of upgradded smart joining/deop/op (raw353 regex))
;  ^DaRk^SoUl^   16. Enforce Speed Skills (engine; enhancement and bug-fixes converted to REGEX/SIGNAL/HASHTABLES)
;  ^DaRk^SoUl^   17. Enforce Speed Skills 2 (engine; enhancement and bug-fixes/recoded
;  ^DaRk^SoUl^   18. Enforce Speed Skills Final (engine; enhancement and bug-fixes/recoded
;  ^DaRk^SoUl^   19. Enforce Ultimate Edition the Uprising  (engine; enhancement and recoded/hashtables up to 90 %/Regex up to 6 %/ Tokens up to 4 %)
;  ^DaRk^SoUl^   20. Enforce Resurrection 3 (engine; enhancement Upgraded)
;  ^DaRk^SoUl^   21. Enforce Resurrection 4 (engine; enhancement add op allied/fake nick joiner/next kicker ping fake nick joiner) Idea by Rasul
;  ^DaRk^SoUl^   22. Enforce Final The Modified  (engine; 2 Sockets Modified for irc.humblegath.biz.tm server)
;  ^DaRk^SoUl^   23. Enforce Final The Modified 2 (engine; multi Sockets using 1 access mode with altershift helper Modified for irc.humblegath.biz.tm server)
;  ^DaRk^SoUl^   24. Jaguar Robotics  (engine; canivalize from old Hex Robotics by Vieziex )
;  ^DaRk^SoUl^   25. Jaguar Robotics 2 (engine; update some features )
;  ^DaRk^SoUl^   25. Jaguar Robotics 3 (engine; upgrade fishing mode and some features updates )
;  ^DaRk^SoUl^   26. Jaguar Robotics 3 Volume 2 (engine; Double hashtables, Double fishing mode and some features updates )
;                                                                                                                     17
;     NOTE:  ¤ If you have a script you thought from ^DaRk^SoUl^ and not listed in the
;              evolution of Jaguar Robotics 3, then the script is not from me.                                        18
;                                                                                                                     19
;                                                                                                                     20
;======================================================================================================================================21

;========================================
;*Jaguar Robotics Version 3* - *Technique Help File*
;========================================

;========================================
;WHATS NEW ON THIS SCRIPT:
;========================================
;
;Fishing Mode                         :
;-->Two Way of Fast/Quick scanning Enemy List (sockets and watcher)
;-->If Master nick or Socket bot is On War channel automatic Fast/Quick scanning Enemy List
;-->Recommended to used with Auto Ping Mode
;
;Advance RAW OP/DEOP Socket System :
;-->What is important in the war games is that the script has to know who's "op" and who's not.
;
;Auto Ping                          :
;-->Automatic Ping Master/Watcher nick to make it Fast/Quick scanning
;-->Recommended to used with Combine Mode
;
;Double Hash:
;-->using double hash is very Fast to retrieve hashtables items
;-->Fast add/update an hash item
;
;Multiple Sockets Reading System:
;-->Using Multiple Sockets Reading is good to avoid traffic of socket reading
;-->if u don't have any idea of multi-sock-read just look at the aliases (alias technology)
;
;New Anti lag System:
;-->refresh all sockets ID on socket ID have overloaded issuing of commands
;-->using this system ur Script is very stable and "fire at will"

;========================================
;WARSCRIPT TIP'S                   :
;========================================
;War Mode                            :
;-->Enable / Disable War Engine
;
;Nick Changer                        :
;-->Bot change nick after kick an enemy
;-->Recommended to used with Combine Mode
;
;Nick Style  :
;-->Nick style designed for nick changer
;-->Recommended for rumble game
;
;Logo Style  :
;-->Logo style designed for kick messages
;
;-->List of logo:
;1. Robotics - Main kick messages of the script
;2. Darksoul - Dedication Logo from Ritchel to the People who Rip his Script
;3. CopyLogo - Clone Enemy's Kickmessages
;4. weblinks - obviously links of jti team
;5. binary   - Old school logo the matrix style
;6. defender - Canivalized from Enforce Uprising
;7. Enforce  - ^DaRk^SoUl^ Trade Mark kickmsgs
;8. attacker - Canivalized from Enforce Attacker
;9. JaguarMasterpiece - Canivalized from Enforce Masterpiece
;10. Jaguarteam - Canivalized from Fredfoxs Script the bazoka
;11. JagReveal  - Canivalized from Fredfoxs Script the jTi Revealed
;
;No. of Attacker :
;-->Set Number of Sockets you to connect
;-->All sockets you connected is auto devide into 2 part the attacker and helper
;-->Need 12 clones or more clones because it is designed to "fire at will"
;
;By Ritchel
;   Thanks
;
;=============================<------Script starts here------>====================================

;==============================< here are the Socket Events >===========================================
on *:sockopen:*: {
  if (!$sockerr) {
    SET -u %S $SOCKNAME
    sockwrite -nt $sockname USER ritchel $right($rn,-3) $left($rn,-3) * * 1,10Robo10,1tics4,1 3
    sockwrite -nt $sockname NICK %s
    sockwrite -nt $sockname %S MODE %S +iRxSUu
    se info $sockname is registering to %serv
  }
}
on *:sockread:*: {
  if ($sockerr) { return } | var %read | sockread %read
  if (!$sockbr) { return }
  tokenize 32 %read
  if     ($regex($1,^ERROR))      { sockclose $sockname }
  elseif ($regex($1,^PING$))      { sockwrite -nt $sockname PONG $2 }
  elseif ($regex($2,^(432|433)$)) { sockwrite -nt $sockname NICK $rn }
  elseif ($regex($2,^NICK$))      { sr $sockname $1- }
  elseif ($regex($2,^001$))       { sc $sockname $1- }
  else {
    if ($hsh(warmodex)) {
      var %g goto end
      if ($istok(%trig,$2,46)) { goto $left($2,3) }               | %g
      :kic | sfx | hshadd Eventx kick | technology $sockname $1-  | %g
      :mod | sfx | hshadd Eventx mode | technology $sockname $1-  | %g
      :joi | sfx | hshadd Eventx join | technology $sockname $1-  | %g
      :end
    }
  }
}
;===============================< Alias Multiple Socket Reading >========================================
alias technology {
  if ($hsh(Eventx) == mode) {
    var %n $sn($2), %sockets $left($5,2)
    if (%sockets == +o) && ($6 == $1) {
      if ($sockname ison $hsh(chan)) {
        var %temp.foes = $nick($hsh(chan),0)
        while %temp.foes {
          if (($hfind(foes,$nick($hsh(chan),%temp.foes),0,W)) && ($nick($hsh(chan),%temp.foes) != $gettok($sockname,%next,32))) {
            sockwrite -nt $sock(*,%next) kick $hsh(chan) $nick($hsh(chan),%temp.foes) $logo
            robotics op $hsh(chan) $sockname
            counter.kick | fishing.deop
          }
          dec %temp.foes
        }
      }
    }
    elseif (%sockets == -o) && ($6 == $1) { fishing.deop | robotics op $hsh(chan) $sockname }
    se mode %n sets mode: $5-
  }
  elseif ($hsh(Eventx) == join) {
    var %c $right($4,-1), %n $sn($2)
    if (!$istok(%ally,%n,32)) && ($hfind($hsh(dark),$mask($2,2),32)) && (%n != $1) {
      sockwrite -nt $1 kick %c %n $logo | robotics deop %c %n
      if (!$hfind(foes,%n,0,W)) { hadd -m foes %n }
    }
    elseif ($hfind(foes,%n,0,W)) && (%n != $1) { sockwrite -nt $1 kick %c %n $logo | robotics deop %c %n }
    se join %n joins %c
  }
  elseif ($hsh(Eventx) == kick) {
    var %n $sn($2), %p $right($4-,-1)
    if ($5 == $1) && (!$istok(%ally,%n,32)) && ($hsh(warmodeX) == $true) && ($4 == $hsh(chan)) {
      set %number_of_kickerx $sock(*,0)
      if (%number_of_kickerx <= $hsh(number_of_kicker)) { sockopen $rn $hsh(serv) $hsh(port) }
      if ($hsh(nickchanger)) { sx $1 nick $r_nick }
      if ($hsh(logo) == CopyLogo) { set %elogo $replace($fx($6-),$chr(32),$chr(160)) } | else { unset %elogo }
      if (!$hfind(foes,%n,0,W)) { hadd -m foes %n }
      if (!$hfind(dark,%n,32)) { hadd -m dark $mask($2,2),32) }
      inc %kick. 1 $+ %n
      sock.shift | check.ping
      fishing.deop | rejoin | counter.kick
    }
    else { if ($1 == %n) { inc %mine. $+ $5 | set %anti.lag 0 }
    }
    se kick $iif($5 == $1,You were,$5 was) kicked from $4 by %n $+($chr(40),$iif($left($6,1) == :,$right($6-,-1),$6-),,$chr(41))
  }
}
;==========-----------==========< Various Aliases of the script  >=======----------------================
alias fx { return $right($1,$calc($len($1) - 1)) }
alias rn { return HeX $+ $r(a,z) $+ $r(10,99) }
alias sx { sockwrite -nt $1- }
alias se { echo -ct $1 @Warfield * $2- }
alias sn { return $iif($pos($1,!),$mid($1,2,$calc($v1 - 2)),$right($1,-1)) }
alias sfx { if ($hget(eventx)) { hfree eventx } }
alias f12 { if (!$dialog(enforce_regex)) dialog -m enforce_regex enforce_regex }
alias hsh { return $hget(hashdatax,$1) }
alias spac { return $+($1,$str($chr(160),$calc(30 - $len($1)))) }
alias rnick { return Robotics|Helper $+ $r(10,99) $+ $r(a,z) $+ $r(10,99) }
alias hshadd { hadd hashdatax $1- }
alias hshdel { hdel hashdatax $1  }
alias hshdec { hdec hashdatax $1- }
alias rejoin { sockwrite -nt $sock(*,%next) join $hsh(chan) | return }
alias addfoes { hshadd foes $addtok($hsh(foes),$1,44) }
alias delfoes { hshadd foes $remtok($hsh(foes),$1,1,44) }
alias enforceON { hshadd warmodex $iif($hsh(warmodex),$false,$true) | echo -act info 4,1* War Mode is9,1 $hsh(warmodex) }
alias nickchanger_on { hshadd nickchanger $iif($hsh(nickchanger),$false,$true) | echo -act info 4,1* Nick Changer is9,1 $hsh(nickchanger) }
alias disconnect_all { sockclose * }
alias spac { return $+($1,$str($chr(160),$calc(30 - $len($1)))) }
alias enforce_regex { $iif(!$dialog(enforce_regex),dialog -m enforce_regex enforce_regex,dialog -v enforce_regex enforce_regex) }
alias f12 { if (!$dialog(enforce_regex)) dialog -m enforce_regex enforce_regex }
alias mixhybrid {
  hshadd sock_nick1 ]xXx[
  hshadd bpass1 password
  hshadd chan #war
  hshadd nickchanger $false
  hshadd warmodex $true
  hshadd serv 209.250.230.254
  hshadd port 4090
  hshadd logo robotics
  hshadd number_of_kicker 50
  hshadd klogo weblinks,darksoul,robotics,CopyLogo,binary,defender,Enforce,attacker,JaguarMasterpiece,Jaguarteam,JagReveal
  hshadd ally ^DaRk^SoUl^ ]xXx[ |LEGENDARY-WARRIOR|
  hshadd nickstylex robotics
  hshadd nickstyle robotics,Binary,Letter,Random,hexnielater
  window -en @Warfield
  window -en @Sockstats
  window -en @Lag
}
alias hybrid {
  if ($hget(hashdatax)) { hfree hashdatax | hmake hashdatax }
  else { hmake hashdatax }
  mixhybrid
}
alias sr { var %n $sn($2), %nn $right($4,-1)
  if ($1 == %n) {
    sockrename $1 %nn
    set %ally $reptok(%ally,%n,%nn,1,32)
  }
  elseif ($istok(%ally,%n,32)) { set %ally  $reptok(%ally,%n,$4,1,44) }
  else { if ($hfind(foes,%n,44)) { hshadd foes  $reptok($hsh(foes),%n,$4,1,44) } }
  .echo @Sockstats 2[Sockets Stats]10 nick %n is now known as %nn $+ .10 Socket
  return
}
alias check.ping {
  inc %ping 1
  if (%ping == 18) {
    ping $me
    .echo @Lag 4,1Auto Ping Master Nick
    set %ping 0
    clear $hsh(chan) | clear @warfield
  }
}
alias sc {
  var %n $sn($2)
  sx $1 ns identify $hsh(sock_nick1) $hsh(bpass1) | .echo @warfield 4,1nick $1 already Identified
  sx $1 nick $r_nick
  set %number_of_kickerx $sock(*,0)
  inc %number_of_kickerx 1
  if (%number_of_kickerx <= $hsh(number_of_kicker)) {
    sockopen $rn $hsh(serv) $hsh(port)
    se info $sockname is now trying to connect $hsh(serv)
    se notice $1 is now connected on server $hsh(serv)
    clear @Sockstats
    sockstats
  }
  if ($1 == $sockname) && (!$istok(%ally,$1,32))  {  set %ally $addtok(%ally,$1,32) }
}
alias sockstats {
  window -ae @Sockstats
  clear @Sockstats
  .echo @Sockstats 2[Sockets Stats]10 You Have Connected4 $sock(*,0) $+ .10 Sockets
}
alias sock.shift {
  inc %next 1
  set %number_of_kickerx $sock(*,0)
  %attacker = $calc(%number_of_kickerx / 2)
  if (%next > %attacker) { %next = 1 }
  return
}
alias Robotics {
  inc %helper
  if (%helper > $sock(*,0)) { set %helper $calc(%attacker + 1) }
  sockwrite -nt $sock(*,%helper) cs $1 $2 $replace($3-,$chr(44),$chr(32))
}

alias counter.kick {
  if ($sockname ison $hsh(chan)) {
    var %temp.foes.2 = $nick($hsh(chan),0)
    while %temp.foes.2 {
      if (($hfind(foes,$nick($hsh(chan),%temp.foes.2),0,W)) && ($nick($hsh(chan),%temp.foes.2) != $gettok($sockname,%next,32))) {
        sockwrite -nt $sock(*,%next) kick $hsh(chan) $nick($hsh(chan),%temp.foes.2) $logo
        robotics deop $hsh(chan) $nick($hsh(chan),%temp.foes.2)
      }
      dec %temp.foes.2
    }
  }
  return
}
alias fishing.deop {
  if ($me ison $hsh(chan)) {
    var %mass.deop = $nick($hsh(chan),0)
    while %mass.deop {
      if (($hfind(foes,$nick($hsh(chan),%mass.deop),0,W)) && ($nick($hsh(chan),%mass.deop) != $gettok($sockname,%next,32))) {
        robotics deop $hsh(chan) $nick($hsh(chan),%mass.deop)
      }
      dec %mass.deop
    }
  }
  return
}

alias part_clear {
  if ($hget(foes)) { hfree foes }
  if ($hget(dark)) { hfree dark }
  sockwrite -nt $sock * Part $hsh(chan) 4,1|Warlist||Clear|
}
alias attack-chan {
  if ($input(Do you want to attack chan)) {
    .echo -act ctcp * Attacking $hsh(chan) in 5 seconds...
    set %chan $hsh(chan)
    set %next 1
    sockwrite -nt $sock(*,1) Join $hsh(chan)
  }
  else { echo -act ctcp * Attacking channel $hsh(chan) was cancelled }
}
alias logo {
  if ($hsh(logo) == binary) {
    return 3,01 $+ $r(0,1) $+ 09 $+ $r(0,1) $+ 03 $+ $r(0,1) $+ 09 $+ $r(0,1) $+ 03 $+ $r(0,1) $+ 09 $+ $r(0,1) $+ 03 $+ $r(0,1) $+ 09 $+ $r(0,1) $+ 03 $+ $r(0,1) $+ 09 $+ $r(0,1) $+ 09 $+ $r(0,1) $+ 03 $+ $r(0,1) $+ 09 $+ $r(0,1) $+ 03 $+ $r(0,1) $+ 09 $+ $r(0,1) $+ 03 $+ $r(0,1) $+ 09 $+ $r(0,1) $+ 03 $+ $r(0,1) $+ 09 $+ $r(0,1) | halt
  }
  elseif ($hsh(logo) == CopyLogo) { return %elogo | halt }
  elseif ($hsh(logo) == JaguarMasterpiece) {
    return 8,1_]0ªg15Üå14r8¬M0a15s14t8er14P15i0ëce1_8,1[_ | halt
  }
  elseif ($hsh(logo) == enforce) {
    goto $r(1,5)
    :1 | return 4,1-=±0,1G14,1O15,1d4,1±0,1S15,1t14,1R0,1e14,1N15,1g14,1t0,1h4,1±=- | halt
    :2 | return 4,1-=±0K15i14l0l15i14n0g4,1±15S0,1p15,1r14,1e15,1e4,1±=- | halt
    :3 | return 4,1±0,1S15,1t15,1U0,1n4,1± | halt
    :4 | return 4,1±0E15n14F0o15r14c0E1504,1±0F15i14n15a0L4± | halt
    :5 | return 4,1±0G15o14dL14i0k15e4,1± | halt
  }
  elseif ($hsh(logo) == Jaguarteam) {
    return 14,1í¯15°0-4«14Jª15gÜ0årT15ë14åM4»0-15°14¯ì | halt
  }
  elseif ($hsh(logo) == robotics) {
    return 4,1\10Jaguar4\1,10Robo10,1tics4,1\10Technoloy4,1\104,1©\ 3\ | halt
  }
  elseif ($hsh(logo) == defender) {
    return 14,1í¯15°0-4« 14Jª15gÜ0år D154,1ë14f4,1e15n14d4,1e0R4,1 »0-15°14¯ì | halt
  }
  elseif ($hsh(logo) == JagReveal) {
    return 4,1JagReveal | halt
  }
  elseif ($hsh(logo) == attacker) {
    return 14,1í¯15°0-4« 14Jª15gÜ0år1 4,1S150p15e0ed1 4,1S0k15il0l4,1S1 14At15ta0ker8,1[X] 4,1 »0-15°14¯ì | halt
  }
  elseif ($hsh(logo) == darksoul) {
    goto $r(1,3)
    :1 | return 4,1±0^Ð15a14R0k^15S14o0U15l^4±0 9,1I dedicate this Script 4,1(To the People who Wanted to Learned) | halt
    :2 | return 4,1±0^Ð15a14R0k^15S14o0U15l^4±0 9,1I dedicate this Script 4,1(To the People who Called themselves the best) | halt
    :3 | return 4,1±0^Ð15a14R0k^15S14o0U15l^4±0 9,1I'm Not hoping that I'm Last4,1(I'm just making legacy) | halt
  }
  elseif ($hsh(logo) == weblinks) {
    return 4,1www.jaguarteam.im
  }
}
alias r_nick {
  if ($hsh(nickstylex) == binary) {
    return $chr(124) $+ $r(0,1) $+ $r(0,1) $+ $r(0,1) $+ $r(0,1) $+ $r(0,1) $+ $r(0,1) $+ $r(0,1) $+ $r(0,1) $+ $chr(124) $+ $r(0,1) $+ $r(0,1) $+ $r(0,1) $+ $r(0,1) $+ $r(0,1) $+ $r(0,1) $+ $r(0,1) $+ $r(0,1) $+ $chr(124)
  }
  elseif ($hsh(nickstylex) == letter) {
    var %v22 a.e.i.o.u, %c22 B.C.D.F.G.H.J.K.L.M.N.P.Q.R.S.T.V.W.X.Y.Z, %n22 1.2.3.4.5.6.7.8.9.0, %x22 $r(2,5), %r22
    while (%x22) {
      %r22 = $+(%r22,$gettok(%c22,$r(1,21),46),$gettok(%v22,$r(1,5),46),$gettok(%n22,$r(1,10),46))
      dec %x22
    }
    return %r22
  }
  elseif ($hsh(nickstylex) == random) {
    return $rn $+ $r(a,z) $+ $r(10,99)
  }
  elseif ($hsh(nickstylex) == hexnielater) {
    return \---\|HeX|\---\ $+ $r(10,99) $+ \---\|NieL|\---\ $+ $r(10,99) $+ \---\|ALtER|\---\
  }
  elseif (hsh(nickstylex) == robotics) {
    var %v22 a.e.i.o.u, %c22 B.C.D.F.G.H.J.K.L.M.N.P.Q.R.S.T.V.W.X.Y.Z, %x22 3, %r22
    while (%x22) {
      %r22 = $+(%r22,$gettok(%c22,$r(1,21),46),$gettok(%v22,$r(1,5),46))
      dec %x22
    }
    return $+(%r22,`,jTi-Robotics))
  }
}
alias sockcon {
  if ($?="Enter <Server>[(:| )][port]: (e.g: irc.humblegath.biz.tm) $+($crlf,If) no port is specified, port 6667 will be used.") {
    var %i $replace($v1,:,$chr(32)), %s $gettok(%i,1,32)
    sockopen $rn %s $iif($gettok(%i,2,32),$v1,7000)
    se info $sockname is now trying to connect %i
    hshadd serv %i
  }
  elseif ($hsh(serv)) {
    if ($rn) { sockopen $rn $hsh(serv) $hsh(port) }
    se info $sockname is now trying to connect $hsh(serv)
  }
  else { se info No server is specified. }
}
alias repo {
  var %m $var(%mine.*,0), %k $var(%kick.*,0), %e echo @Score .., %mt 0, %kt 0, %t
  window -ae @Score
  clear @Score
  %e $str(=,40)
  %e $str($chr(160),13) 4Stats Report
  %e $str(=,40)
  %e 10Total nicks you kicked: $+(04,%m)
  %e 14Details
  %e $str(-,40)
  while (%m) {
    set %t $var(%mine.*,%m).value
    %e $+(12,$spac($right($var(%mine.*,%m),-6))) » $+(04,%t)
    dec %m
    set %mt $calc(%mt + %t)
  }
  %e $str(-,40)
  %e 10Your total kicks: $+(04,%mt)
  %e
  %e $str(=,40)
  %e 10Total nicks who kicked you: $+(04,%k)
  %e 14Details
  %e $str(-,40)
  while (%k) {
    set %t $var(%kick.*,%k).value
    %e $+(12,$spac($right($var(%kick.*,%k),-6))) » $+(04,%t)
    dec %k
    set %kt $calc(%kt + %t)
  }
  %e $str(-,40)
  %e 10Your were kicked04 %kt 10times
  %e $str(=,40)
  %e $str($chr(160),12) End of Report
  %e $str(=,40)
}
alias clear_all_host { if ($hget(dark)) { hfree -w dark } | .echo $hsh(chan) 4,1|Host Enemy List||Clear| }
alias clear_all_enemy { if ($hget(foes)) { hfree -w foes } | .echo $hsh(chan) 4,1|Enemy List||Clear| }
alias clear_all_ally {
  unset %ally
  .echo $hsh(chan) 4,1|Ally List||Clear|
}
alias list_ally: {
  did -r $dname $1
  var %n = $numtok(%ally,32)
  while (%n) {
    did -a $dname $1 $gettok(%ally,%n,32)
    dec %n
  }
  did -z $dname $1
}
alias list_ip: {
  did -r $dname $1
  var %n = $hget(dark,0).item
  while (%n) {
    did -a $dname $1 $hget(dark,%n).item
    dec %n
  }
  did -z $dname $1
}
alias list_enemy: {
  did -r $dname $1
  var %n = $hget(foes,0).item
  while (%n) {
    did -a $dname $1 $hget(foes,%n).item
    dec %n
  }
  did -z $dname $1
}
;================================< here are the Script dialog codes >========================================
dialog enforce_regex {
  title "Robotics III + FinaL + The + Modified"
  size -1 -1 184 240
  option dbu
  tab "I", 1, 6 -2 174 173
  check "War Mode", 9, 17 18 36 10, tab 1
  box "Channel", 14, 116 94 59 66, tab 1
  edit "", 15, 120 104 49 10, tab 1 autohs
  box "Logo Style", 16, 115 54 58 26, tab 1
  combo 17, 124 64 45 30, tab 1 drop
  combo 62, 124 34 45 30, tab 1 drop
  box "Nick Style", 64, 115 24 58 26, tab 1
  box "", 65, 111 16 2 146, tab 1
  button "Attack channel", 69, 120 125 48 12, tab 1
  button "Part Clear Warlist", 70, 120 142 48 12, tab 1
  edit "", 20, 56 40 46 10, tab 1
  text "Sock Nick", 22, 15 42 33 8, tab 1 center
  text "Pass Word", 23, 15 52 33 8, tab 1 center
  edit "", 21, 56 50 46 10, tab 1 pass
  box "Socket Connection Setup", 72, 16 96 90 50, tab 1
  button "Connect Sockets", 73, 22 108 69 12, tab 1
  button "Disconnect Socket", 74, 22 127 69 12, tab 1
  button "Show Score", 4, 16 149 85 12, tab 1
  check "Nick Changer", 5, 57 18 42 10, tab 1
  box "Set Number of Sockets", 3, 13 72 90 24, tab 1
  box "", 19, 8 8 170 162, tab 1
  edit "", 13, 56 80 46 10, tab 1
  text "Numbers", 11, 15 80 33 8, tab 1 center
  box "Socket Access ", 10, 13 34 90 32, tab 1
  tab "II", 2
  list 308, 10 24 50 122, tab 2 size extsel hsbar vsbar
  list 309, 66 24 50 122, tab 2 size extsel hsbar vsbar
  list 310, 122 24 50 122, tab 2 size extsel hsbar vsbar
  button "clear", 313, 16 152 37 12, tab 2
  text "Ally Listed", 27, 16 16 33 8, tab 2 center
  text "Enemy Listed", 28, 66 16 41 8, tab 2 center
  text "Ip's  Listed", 29, 122 16 41 8, tab 2 center
  button "clear", 314, 74 152 37 12, tab 2
  button "clear", 315, 130 152 37 12, tab 2
  tab "III", 503
  text "Jaguar Robotics 3 vol. 2", 45, 17 23 153 8, tab 503 center
  box "About", 44, 12 14 163 36, tab 503
  box "Thanks", 48, 12 52 163 73, tab 503
  text "VeiZeix --> (Master/Teacher of all Pilipino WarscripterS) ,Frederick a.k.a. Fredfoxs --> (My Bestfriend in Real life),Ronelo a.k.a. [DEMONS] --> (My Bestfriend in Real life),Ryan a.k.a Static --> (My Bestfriend in Real life),Rasul a.k.a. ^kamandag^ --> (My Bestfriend in mIRC),Carlo a.k.a Bok,Eva a.k.a. ^eVaNg3L1n3^ --> (Co Teammate),and to all unnamed warriors who played us, Thanks...!!!", 49, 17 61 153 61, tab 503 center
  box "Creator", 50, 12 127 163 33, tab 503
  text "Ritchel a.k.a. ^DaRk^SoUl^", 51, 17 134 152 8, tab 503 center
  text "2002-2010", 52, 17 142 152 8, tab 503 center
  text "Jaguar Team Interactive WarScript ", 54, 17 149 152 8, tab 503 center
  text "The 3rd Edition", 46, 17 31 153 8, tab 503 center
  text "FinaL (Modified)", 47, 17 39 153 8, tab 503 center
  text "Jaguar Robotics Version 3, For The Endurance And Expectation Which Some Users Might Not See In Certain War Script. Capability And Efficiency Is Important In A Script, And This Script Was Made Accordingly Robotics Version 2. By Ritchel,  Work And Time Has Been Put In To Accomplish The Features Of This Script. To Team Members(ONLY!) This Script Will BE Authorize To Be Used, And Any Leak Might Happen, Users Will Be Accountable (YOU!)", 34, 8 176 169 48, center
  link "http://www.jaguarteam.net", 7, 46 230 84 8
  button "Exit", 6, 144 227 37 12, ok
}
on 1:dialog:enforce_regex:*:*:{
  var %x = $dname, %y = $did
  if ($devent == init) {
    if ($hsh(chan) != $null) { did -a %x 15 $hsh(chan) }
    if ($hsh(sock_nick1) != $null) { did -a %x 20 $hsh(sock_nick1) }
    if ($hsh(bpass1) != $null) { did -a %x 21 $hsh(bpass1) }
    if ($hsh(number_of_kicker) != $null) { did -a %x 13 $hsh(number_of_kicker) }
    if ($hsh(warmodeX) == $true) { did -c %x 9 } | else { did -u %x 9 }
    if ($hsh(nickchanger) == $true) { did -c %x 5 } | else { did -u %x 5 }
    hshadd klogo $remtok($hsh(klogo),$hsh(logo),1,44)
    hshadd nickstyle $remtok($hsh(nickstyle),$hsh(nickstylex),1,44)
    list_ally: 308 | list_enemy: 309 | list_ip: 310
    didtok %x 17 44 $hsh(klogo)
    didtok %x 62 44 $hsh(nickstyle)
    did -ca %x 17 $hsh(logo)
    did -ca %x 62 $hsh(nickstylex)
    hshadd klogo $addtok($hsh(klogo),$hsh(logo),44)
    hshadd nickstyle $addtok($hsh(nickstyle),$hsh(nickstylex),44)
  }
  if ($devent == sclick) {
    if (%y == 8) { sockcon2 | return }
    if (%y == 9) { enforceON | return }
    if (%y == 5) { nickchanger_on | return }
    if (%y == 17) { hshadd logo $$did(17).seltext | return }
    if (%y == 62) { hshadd nickstylex $$did(62).seltext | return }
    if (%y == 69) { attack-chan | return }
    if (%y == 70) { part_clear | return }
    if (%y == 73) { sockcon | return }
    if (%y == 74) { disconnect_all | return }
    if (%y == 4) { repo | return }
    if (%y == 313) { clear_all_ally | list_ally: 308 | did -b %x 308 | return }
    if (%y == 314) { clear_all_enemy | list_enemy: 309 | did -b %x 309 | return }
    if (%y == 315) { clear_all_host | list_ip: 310 | did -b %x 310 | return }
  }
  if ($devent == edit) {
    if (%y == 15) { hshadd chan $did(15) }
    if (%y == 20) { hshadd sock_nick1 $did(20) }
    if (%y == 21) { hshadd bpass1 $did(21) }
    if (%y == 13) { hshadd number_of_kicker $did(13) }
  }
}
;====================< here are the Script Menu Pop-up codes >=======================
menu * {
  -
  x--Robotics III + FinaL + The + Modified--x
  .Configure Enforce : f12
  .-
  .Add to Darklist & kick :{ addfoes $$1 } | { sockwrite -nt * kick $hsh(chan) $$1 7,1°4±14J154ª15g4Ü1514å15r4±7° }
  .-
  .Show Kick Status : repo
  .-
  .Show Sockets Status : sockstats
  .-
  .Reset Kick Status : unset %kick.* %mine.*
  .-
  .clear all Darklist : hfree foes | hfree dark
  .-
  .Part Warbot on Channel:{ sockwrite -nt $sock(*,%next) Part $hsh(chan) $logo }
  .-
}
;===============================< here are the Script Normal Event >====================================
on *:start: {
  hybrid
  window -e @Warfield
  window -e @Score
  window -e @Sockstats
  .fullname 1,10Robo10,1tics4,1 3
  .identd on ritchel
  .emailaddr rate_sale@yahoo.com
  .mnick ^DaRk^SoUl^
  .anick Ritchel
  set %trig kick.mode.join.nick
  set %ally ^DaRk^soUl^
  writeini popups.ini bpopup n0 [JAGUAR ROBOTICS TECHNOLOGY 3] | .load -pm popups.ini
  writeini mirc.ini fonts fstatus Courier New,412,0,0
  writeini mirc.ini fonts fquery Courier New,412,0
  writeini mirc.ini fonts fchannel Courier New,411,0,0
  .echo -a 4,1|10Jaguar4|1,10Robo10,1tics4,1|10Technoloy4,1|104,1© 3 0Loaded..
  .echo -a -
  .echo -a 0,1This War Script is a property of JTI team, Made by Ritchel.
  .echo -a -
  .echo -a 0,1This War Script is Dedicated to my Bestfriend, Henry a.k.a IRCMastEr (hehehe manyakis)
  .echo -a -
  .echo -a Don't try to rip it!! The risk will be yours... You have been warned...
  .echo -a -
}
on *:load: {
  if ($version < 6.35) {
    .echo -ac ctcp This script could not run on mIRC version $version due to
    .echo -ac ctcp dialog features only supported on versions 6.35 onwards.
    .echo -ac ctcp Please download the latest mIRC at www.mirc.com
    .unload -rs $nopath($script) 1,10Robo10,1tics4,1 3
  }
  else { echo -ac info $nopath($script) 1,10Robo10,1tics4,1 3 is now loaded.
  }
}
on *:unload: { unset %* | hfree hashdatax | sockclose * | echo -ac info $nopath($script) $logo has been unloaded. }
on *:connect: { identify |karit| xclshex | join -n #enforce }
on *:part:#enforce:{ if ($nick == $me) { .timerj -m 1 2 join #enforce | .timerjx -m 1 6 msg #enforce I'm Using 4,1|10Jaguar4|1,10Robo10,1tics4,1|10Technoloy4,1|104,1©| 3| } }
on *:join:%chan:{
  if ($hfind(foes,$nick,0,W)) && ($hsh(warmodex)) && ($sock(*,%next) ison %chan) {
    inc %anti.lag 1
    if (%anti.lag == 25) {
      sockwrite -nt * Part $hsh(chan) 9,1Anti.Lag.System.Activated
      unset %helper %attacker %next %number_of_kickerx
      .echo @sockstats 4,1Refresh Socket ID's
      set %next 1
      sock.shift
      fishing.deop | sockwrite -nt $sock(*,1) Join $hsh(chan) | counter.kick
      set %anti.lag 0
    }
  }
}
on *:join:#enforce: {
  if ($nick == $me) { cs op #enforce $me }
  else {
    mode #enforce +v $nick
    msg #enforce $nick is now gi 4,1Payong-payongan sa mga dagkong oten!
  }
}

;====================< Script Ends here >==================================

;---------------------------------------------------------------------------;
;                           ^DaRk^SoUl^                                     ;
;                            2002-2010                                      ;
;                Jaguar Team Interactive WarScript                          ;
;---------------------------------------------------------------------------;

Comments

Sign in to comment.
]RamZkiE[   -  Jun 17, 2011

bakit wala pangalan ko sa jaguars..huhuhuhuhuhu

 Respond  
FredFoxs   -  Jun 07, 2011

;=================================================================================================================;
; ^DaRk^SoUl^ ;
; 2002-2011 ;
; Jaguar Team Interactive WarScript ;
;=================================================================================================================;
; Script Author | Ritchel a.k.a. ^DaRk^SoUl^ , |KARIT| , |LEGENDARY-WARRIOR| , ]xXx[ ;
; Script Name | Jaguar Robotics ;
; Script Version | 5 (Volume 3) ;
; Script Upgrade | altershifting helper canivalize from old Hex Robotics by Vieziex ;
; Reconstruct By | FredFoxs aka Warlock ;
;=================================================================================================================;
; Script Created | January 28, 2011 10:11:09 AM (Philippine Time) ;
; Script Description | Modern Shifting Against Many ;
; Script Purpose | Channel war kick games ;
; | Channel war scripting educational material ;
;=================================================================================================================;
; Script Copyright | © 2002-2011 Davao City PhilippineS ;
;=================================================================================================================;
; Script Credits | VeiZeix a.k.a. \HeXeN\, heXen, ||x|x||, azureus, EkEk (Zen3 Script Creator) ;
;=================================================================================================================;
; Script Tester | Henry a.k.a. IRCMasteR ;
; | Rasul a.k.a. ^kamandag^ ;
; | Raiven a.k.a. Venets ;
; | Chito a.k.a. Lil`bone :
; | Amer a.k.a. Backdoor ;
; | Carlo a.k.a. Bok ;
; | Ryan a.k.a. S_t_a_t_i_c ;
;=================================================================================================================;
; Acknowledgements | My thanks to many people who have contributed their War Script over the years, whether ;
; | through bug reports, suggestions, technical advice, and for many others who have helped ;
; | out on channels, or created WaR Scripts. ;
;=================================================================================================================;
; thanks to | VeiZeix --> (Master/Teacher of all Pilipino WarscripterS) ;
; | Frederick a.k.a. FredFoxs --> (My Bestfriend in Real life) ;
; | Ronelo a.k.a. [DEMONS] --> (My Bestfriend in Real life) ;
; | Ryan a.k.a Static --> (My Bestfriend in Real life) ;
; | Rasul a.k.a. ^kamandag^ --> (My Bestfriend in mIRC) ;
; | Eva a.k.a. ^eVaNg3L1n3^ --> (Co Teammate) ;
; | Rhea a.k.a. Aikes --> (Co Teammate/kumare) ;
; | Carlo a.k.a Bok -- > (My Best in Real life) ;
; | and to all unnamed warriors who played us, Thanks...!!! ;
;=================================================================================================================;
; Author Says ;
; WINNER OR LOSERS ;
; ;
; 1. THE WINNER IS ALWAYS A PART OF THE ANSWER. ;
; THE LOSER IS ALWAYS A PART OF THE PROBLEM. ;
; ;
; 2. THE WINNER ALWAYS HAS A PROGRAM. ;
; THE LOSER ALWAYS HAS AN EXCUSE. ;
; ;
; 3. THE WINNER SAYS, "LET ME DO IT FOR YOU". ;
; THE LOSER SAYS, " THAT'S NOT MY JOB". ;
; ;
; 4. THE WINNER SEES AN ANSWERE FOR EVERY PROBLEM. ;
; THE LOSER SEES A PROBLEM FOR EVERY ANSWERE. ;
; ;
; 5 THE WINNER SAYS, "IT MAY BE DIFFICULT BUT ITS POSSIBLE". ;
; THE LOSER SAYS, "IT MAY BE POSSIBLE BUT IT'S TOO DIFFICULT". ;
; ;
; ;
;=================================================================================================================;
; | this is my last script I made, no more scripting, for unreal server\ server ... ;
; | ;
; | My home channel : #Enforce (dalnet server and humblegath server) ;
;=================================================================================================================;
; DISTRIBUTE/MODIFY THIS SCRIPT ;
; JUST GIVE ME CREDIT (^DaRk^SoUl^) thanks.. MAn... PEACE...!!! ;
;=================================================================================================================;
; Jaguar Team motto: | "We Love Peace But Welcome War! JTI Rulez!!!" ;
;=================================================================================================================;

Let's Play War @ Jaguar Team Network

/server 204.188.201.126 7000 -j #war

Powered by: FredFoxs "Try Us Then You Will See"

YOUR FUTURE ENDS HERE!!!

 Respond  
RamZkiE   -  May 19, 2011

Opps I Know Who Are You!!!!Stay tuned dude

 Respond  
FredFoxs   -  Mar 05, 2011

;=============================<------Credits Starts here------>====================================
;=================================================================================================================;
; ^DaRk^SoUl^ ;
; 2002-2011 ;
; Jaguar Team Interactive WarScript ;
;=================================================================================================================;
; Script Author | Ritchel a.k.a. ^DaRk^SoUl^ , |KARIT| , |LEGENDARY-WARRIOR| , ]xXx[ ;
; Script Modified | FredFoxs aka Warlock ;
; Script Name | Jaguar Robotics ;
; Script Version | 5 (Volume 2) ;
; Script Upgrade | altershifting helper canivalize from old Hex Robotics by Vieziex ;
;=================================================================================================================;
; Script Created | January 28, 2011 10:11:09 AM (Philippine Time) ;
; Script Modified | March 4, 2011 8:00:42 PM (Philippine Time) ;
; Script Description | Modern Shifting Against Many ;
; Script Purpose | Channel war kick games ;
; | Channel war scripting educational material ;
;=================================================================================================================;
; Script Copyright | © 2002-2011 Davao City PhilippineS ;
;=================================================================================================================;
; Script Credits | VeiZeix a.k.a. \HeXeN\, heXen, ||x|x||, azureus, EkEk (Zen3 Script Creator) ;
;=================================================================================================================;
; Script Tester | Henry a.k.a. IRCMasteR ;
; | Rasul a.k.a. ^kamandag^ ;
; | Raiven a.k.a. Venets ;
; | Chito a.k.a. Lil`bone :
; | Amer a.k.a. Backdoor ;
; | Carlo a.k.a. Bok ;
; | Ryan a.k.a. S_t_a_t_i_c ;
;=================================================================================================================;
; Acknowledgements | My thanks to many people who have contributed their War Script over the years, whether ;
; | through bug reports, suggestions, technical advice, and for many others who have helped ;
; | out on channels, or created WaR Scripts. ;
;=================================================================================================================;
; thanks to | VeiZeix --> (Master/Teacher of all Pilipino WarscripterS) ;
; | Frederick a.k.a. FredFoxs --> (My Bestfriend in Real life) ;
; | Ronelo a.k.a. [DEMONS] --> (My Bestfriend in Real life) ;
; | Ryan a.k.a Static --> (My Bestfriend in Real life) ;
; | Rasul a.k.a. ^kamandag^ --> (My Bestfriend in mIRC) ;
; | Eva a.k.a. ^eVaNg3L1n3^ --> (Co Teammate) ;
; | Rhea a.k.a. Aikes --> (Co Teammate/kumare) ;
; | Carlo a.k.a Bok -- > (My Best in Real life) ;
; | and to all unnamed warriors who played us, Thanks...!!! ;
;=================================================================================================================;
; Author Says ;
; WINNER OR LOSERS ;
; ;
; 1. THE WINNER IS ALWAYS A PART OF THE ANSWER. ;
; THE LOSER IS ALWAYS A PART OF THE PROBLEM. ;
; ;
; 2. THE WINNER ALWAYS HAS A PROGRAM. ;
; THE LOSER ALWAYS HAS AN EXCUSE. ;
; ;
; 3. THE WINNER SAYS, "LET ME DO IT FOR YOU". ;
; THE LOSER SAYS, " THAT'S NOT MY JOB". ;
; ;
; 4. THE WINNER SEES AN ANSWERE FOR EVERY PROBLEM. ;
; THE LOSER SEES A PROBLEM FOR EVERY ANSWERE. ;
; ;
; 5 THE WINNER SAYS, "IT MAY BE DIFFICULT BUT ITS POSSIBLE". ;
; THE LOSER SAYS, "IT MAY BE POSSIBLE BUT IT'S TOO DIFFICULT". ;
; ;
; ;
;=================================================================================================================;
; | this is my last script I made, no more scripting, for unreal server\ server ... ;
; | ;
; | My home channel : #Enforce (dalnet server and humblegath server) ;
;=================================================================================================================;
; DISTRIBUTE/MODIFY THIS SCRIPT ;
; JUST GIVE ME CREDIT (^DaRk^SoUl^) thanks.. MAn... PEACE...!!! ;
;=================================================================================================================;
; Jaguar Team motto: | "We Love Peace But Welcome War! JTI Rulez!!!" ;
;=================================================================================================================;
;
; ** Script Roots
;
; Jaguar Robotics 5 war logics is based on the 1st generation of WarGear Script
;
; Jaguar Robotics 5 is an evolved
; script from its root the 'WarGear' revenge add-on.
;
; This is the evolution of Enforce Final The Modified:
;
; ^DaRk^SoUl^ 1. WarGear (enhancement of WarGear; multi-server)
; ^DaRk^SoUl^ 2. WarGear Masterpiece (engine; none Socket; enhancement and bug-fixes of WarGear; multi-server)
; ^DaRk^SoUl^ 3. Cycle 1 (engine; none Socket; enhancement and bug-fixes of WarGearmaster; multi-server)
; ^DaRk^SoUl^ 4. Cycle Final (engine; cid/Socket; enhancement and adding Socket deoper/opper; multi-server)
; ^DaRk^SoUl^ 5. Metal (enhancement of Cycle; Classic One Against Many; single-server) [ Socket experimental ]
; ^DaRk^SoUl^ 6. Metal 2 (engine; enhancement and bug-fixes of Metal 2; finalized)
; ^DaRk^SoUl^ 7. Enforce 1 (engine; none Socket; experimental; INVEX feature (INVited and EXcept; 'Ie' channel modes))
; ^DaRk^SoUl^ 8. Enforce 2 (engine; Pure Socket; INVEX feature (INVited and EXcept; 'Ie' channel modes))
; ^DaRk^SoUl^ 9. Enforce final (engine; enhancement and bug-fixes of enforce 2 (finalized))
; ^DaRk^SoUl^ 10. Enforcerx (engine; feature delay op and on join deop + spin kick)
; ^DaRk^SoUl^ 11. Enforce ultimate (engine; enhancement and bug-fixes of enforce final)
; ^DaRk^SoUl^ 12. Enforce ultimate 2 (engine; enhancement add more feature; (finalized)) [ modified by: eva ]
; ^DaRk^SoUl^ 13. Enforce Gold (engine; enhancement removed useless code)
; ^DaRk^SoUl^ 14. Enforce Unlimited (engine; enhancement feature; multi shifter with 1 access used)
; ^DaRk^SoUl^ 15. Enforce Resurrection (engine; enhancement and bug-fixes of upgradded smart joining/deop/op (raw353 regex))
; ^DaRk^SoUl^ 16. Enforce Speed Skills (engine; enhancement and bug-fixes converted to REGEX/SIGNAL/HASHTABLES)
; ^DaRk^SoUl^ 17. Enforce Speed Skills 2 (engine; enhancement and bug-fixes/recoded
; ^DaRk^SoUl^ 18. Enforce Speed Skills Final (engine; enhancement and bug-fixes/recoded
; ^DaRk^SoUl^ 19. Enforce Ultimate Edition the Uprising (engine; enhancement and recoded/hashtables up to 90 %/Regex up to 6 %/ Tokens up to 4 %)
; ^DaRk^SoUl^ 20. Enforce Resurrection 3 (engine; enhancement Upgraded)
; ^DaRk^SoUl^ 21. Enforce Resurrection 4 (engine; enhancement add op allied/fake nick joiner/next kicker ping fake nick joiner) Idea by Rasul
; ^DaRk^SoUl^ 22. Enforce Final The Modified (engine; 2 Sockets Modified for irc.humblegath.biz.tm server)
; ^DaRk^SoUl^ 23. Enforce Final The Modified 2 (engine; multi Sockets using 1 access mode with altershift helper Modified for irc.humblegath.biz.tm server)
; ^DaRk^SoUl^ 24. Jaguar Robotics (engine; canivalize from old Hex Robotics by Vieziex )
; ^DaRk^SoUl^ 25. Jaguar Robotics 2 (engine; update some features )
; ^DaRk^SoUl^ 25. Jaguar Robotics 3 (engine; upgrade fishing mode and some features updates )
; ^DaRk^SoUl^ 26. Jaguar Robotics 3 Volume 2 (engine; Double hashtables, Double fishing mode and some features updates )
; ^DaRk^SoUl^ 27. Jaguar Robotics 4 (fixed many bugs and convert to hash/tokens )
; ^DaRk^SoUl^ 28. Android 1 (Experimental; classics scon )
; ^DaRk^SoUl^ 29. Android 2 (Experimental; classics scon combine robotics 4 )
; ^DaRk^SoUl^ 30. Jaguar Robotics 5 (socket: recode into none heavy command and some features updates )
; ^DaRk^SoUl^ 31. Jaguar Robotics 5 volume 2 (Ultimate)
;
; NOTE: ¤ If you have a script you thought from ^DaRk^SoUl^ and not listed in the
; evolution of Jaguar Robotics 5, then the script is not from me.
;
;
;======================================================================================================================================
;WHATS NEW ON THIS SCRIPT:
;========================================
;
;Advance RAW OP/DEOP Socket System :
;-->What is important in the war games is that the script has to know who's "op" and who's not.
;
;Double Hash:
;-->using double hash is very Fast to retrieve hashtables items
;-->Fast add/update an hash item
;
;Multiple Sockets Reading System:
;-->Using Multiple Sockets Reading is good to avoid traffic of socket reading
;-->if u don't have any idea of multi-sock-read just look at the aliases (alias technology)
;
;Ability To Change mIRC Version Reply
;
;By Ritchel
; Thanks
;Modified By: FredFoxs
;=============================<------Credits End here------>====================================

Grab Now A Copy: Availabe @ SM Department Store Near @ Your Place

Enjoy Ripping Guys! :)

 Respond  
Li|_bOnE   -  Feb 09, 2011

hehehehe....

@jethro & semut.... I'snt cute?childish look but real warrior kicking ass...lols

 Respond  
Jethro   -  Feb 09, 2011

Tell me your comment toward me isn't childish because you think I find that kid's facial expression hilarious an insult to you, and that results an offense to your vulnerable feelings. Perhaps you need some more growing up to do.

 Respond  
jefsthampied   -  Feb 09, 2011

Jethro wtf! kids kids kids~ come on Jethro open ur mind.!
and ur comment like a kiddie.

 Respond  
Jethro   -  Feb 09, 2011

LOL @ that kid's facial expression!

 Respond  
Ritchel   -  Feb 08, 2011

heheehehhehe no more comments
just play war at /server 211.35.19.15 5090
and join #war channel

 Respond  
Static   -  Feb 02, 2011

Love this script its a masterpiece!

 Respond  
Static   -  Feb 02, 2011

Enough of this Traitor..Let's have enjoy and have some fun playing war @ irc.jaguarteam.ph:5090 /server 211.35.19.15 5090 join #war

see yah!

 Respond  
Static   -  Feb 02, 2011

There is an update for this Version.. Hope it wont leak again like what happen in Robotics 3.

 Respond  
Li|_bOnE   -  Feb 02, 2011

=================================================================================================================;
; ^DaRk^SoUl^ ;
; 2002-2011 ;
; Jaguar Team Interactive WarScript ;
;=================================================================================================================;
; Script Author | Ritchel a.k.a. ^DaRk^SoUl^ , |KARIT| , |LEGENDARY-WARRIOR| , ]xXx[ ;
; Script Name | Jaguar Robotics ;
; Script Version | 5 (Volume 2) ;
; Script Upgrade | altershifting helper canivalize from old Hex Robotics by Vieziex ;
;=================================================================================================================;
; Script Created | January 28, 2011 10:11:09 AM (Philippine Time) ;
; Script Description | Modern Shifting Against Many ;
; Script Purpose | Channel war kick games ;
; | Channel war scripting educational material ;
;=================================================================================================================;
; Script Copyright | © 2002-2010 Davao City PhilippineS ;
;=================================================================================================================;
; Script Credits | VeiZeix a.k.a. \HeXeN\, heXen, ||x|x||, azureus, EkEk (Zen3 Script Creator) ;
;=================================================================================================================;
; Script Tester | Henry a.k.a. IRCMasteR ;
; | Rasul a.k.a. ^kamandag^ ;
; | Raiven a.k.a. Venets ;
; | Chito a.k.a. Lil`bone ;
; | Carlo a.k.a. Bok ;
; | Ryan a.k.a. S_t_a_t_i_c ;
;=================================================================================================================;

btw fellow warriors....we have another modified script of that version called robotics ver 6 and 7....its highly good performance than this post of the traitor......lets play war 24/7

Statement: Why LAG is ALWAYS the REASON?is there no any REASON? ACCEPT THE FACT

 Respond  
Li|_bOnE   -  Feb 02, 2011

wow...how does this it works?

can u teach me how to load this one....

i'm lil bit newbie....lols... :)

btw....this script is real awesome to kicking ass in war style....nice work bro ^dark^SouL^

 Respond  
FredFoxs   -  Jan 25, 2011

To: jaytea
well all script that u post i'm done play before.
rekick
3kick
unlimited kick
that is kick only technique... its old style and that style will work only if u have a best stable connection...

What u see on the script now that posted is using alter shifting technique with kick deop op styles using hash and reg expression...

Lets play war for fun.. fight for skills competition... lolz.z.z.z.z.z.z
i mean war scripting skills

Peace You All Man!!! :)

 Respond  
jaytea   -  Jan 05, 2011

the description of this script is rife with casuistry and nonsense. however, this submission does certainly bring back memories.

what i see here is a little excerpt from IRC history. back in the early 2000s, the network i used to frequent (WebNet) was inexplicably populated by a disproportionately large demographic of Malaysian and Thai users. apparently IRC went mainstream in these places, and of course the scripting scene saw an influx of foreign scripters.

the thing i've observed with these scripters (or, at least, the vocal ones who crossover to the English speaking communities and release their scripts) is that they unfailingly end up creating elaborate war scripts and pride themselves on being pseudo-hackers. here are a few examples of what i mean, just from this site:

http://www.hawkee.com/snippet/2705/ - ForeEver HeLLKick [For War]

http://www.hawkee.com/snippet/6045/ - X-Force War Script v1.0

http://www.hawkee.com/snippet/5390/ - Simple revenge kick war

http://www.hawkee.com/snippet/4404/ - Clone War Revenge Kick with Single and/or Shifting Socket

http://www.hawkee.com/snippet/6726/ - WATCHER WAR2 (counter kick on war channel)

i suppose the source of this misdirected enthusiasm for useless scripts will always be a mystery to me. unfortunately, there is usually a significant language barrier; i cannot hope to effectively communicate to Ritchel the futility of using double hashing in mIRC to optimize hash table data retrieval, for example. it's a shame, some of the code looks quite clever :P i've just never understood the appeal of malicious coding.

 Respond  
Ritchel   -  Jan 04, 2011

TO: lllogicTC PEACE...!!! i'm war

" .echo -a Don't try to rip it!! The risk will be yours... You have been warned...
"

What's with that line? He's threatening us! In a script! :O Blasphemy

well i'm not threatening all the people.... in a script way.. i'm just warning all my co-teammate.. in our script history in dalnet server some member used the my script and rip then they claim that they are the script author welll.... nevermind its just a brag of script... Bro... PEACE...!!!!

 Respond  
Ritchel   -  Jan 04, 2011

well... finaly i speak out.. about this Script leak for me.. nevermind about who leak the script and who use the script... in my side i just want to help my co-teamate as we play war kicking games in irc server...... and to the traitor member i know who you are... PEACE...!!!!

 Respond  
jibonanondodas   -  Dec 26, 2010

chudiyah muri khawaiya dimu ( VERY nice SCript i appreciate this )

 Respond  
IllogicTC   -  Dec 24, 2010

What on Earth is this thing anyway?

 Respond  
FredFoxs   -  Dec 24, 2010

hmmm.... this script is not the real code of jaguar robotics 3... coz all script of jaguar coder are relay first to me to verify and check before we release to the jaguar members...

To The Guy Who Post This Script! You Need To Learn How To Edit This Script Without Notice To The Real Author..

Have A Nice Day / Night

Merry Christmas! and Happy New Year!

ciao!

 Respond  
jefsthampied   -  Dec 20, 2010

bad work poster..
u cheat ur master.. :)
and ur so noob.. BAN is your in HumbleGath :D

 Respond  
IllogicTC   -  Dec 20, 2010

" .echo -a Don't try to rip it!! The risk will be yours... You have been warned...
"

What's with that line? He's threatening us! In a script! :O Blasphemy.

I dedicate this Script 4,1(To the People who Wanted to Learned)

What?

 Respond  
Dr4goN   -  Dec 19, 2010

http://www.hawkee.com/snippet/8213/ <----- who use them are THE LEGENDARY RIPPER Say By backD[o][o]r and A good statement By backD[o][o]r...!!!!

 Respond  
Jaguar Traitor Member   -  Dec 19, 2010

hahaahahahahahahha no comments...................

 Respond  
Dr4goN   -  Dec 16, 2010

where's the volume 3 ???? lets hunting....

 Respond  
Jethro   -  Dec 15, 2010

It's not the question of who he is but what he is. Isn't it obvious Jaguar a hater? :P

 Respond  
Dr4goN   -  Dec 15, 2010

Hmmm... who are you.? why do you share this SC..???

 Respond  
Dr4goN   -  Dec 15, 2010

wow... nice sc... and load in humble server... syalalallala~~~ :D

 Respond  
Jaguar Traitor Member   -  Dec 15, 2010

enough of that bullshit...!!!

 Respond  
Are you sure you want to unfollow this person?
Are you sure you want to delete this?
Click "Unsubscribe" to stop receiving notices pertaining to this post.
Click "Subscribe" to resume notices pertaining to this post.