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 ªg 15Üå14r 8¬M0a15s14t8e r 14P15i0 ëce 1_ 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åM 4»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,1e0R 4,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 ;
;---------------------------------------------------------------------------;
