Jaguar Robotics Script Version 3 Volume 2

Platform:  mIRC
Published  Dec 15, 2010
Updated  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.


Code
 


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 shoot...!!!
 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.