;redcode-94 ;name Rhino ;author Beppe Bezzi ;contact ;NSFCWT Round 1 ;strategy Slow, hard skinned and dangerous if molested ;strategy Tournament version of Jack in the box ;strategy with play_safe_in_multi switcher ;assert CORESIZE == 8000 org think PIN 1913 ;hide _RES equ #0 ;hide _STR equ #320 ;hide _MULTI equ #779 ;hide impsize equ 2667 impdspl equ 390 ;hide impsiz7 equ 1143 impdsp7 equ 490 ;hide step equ 85 count equ 533 away equ 3152 ;hide A0 equ 3488 A1 equ 1860 A2 equ 3740 att0a equ 123 att1a equ 1001 att2a equ 2042 b0 equ 2928 b1 equ 3312 b2 equ 944 marcia spl spiral, <1000 ;activate imp spiral spl 1, <300 ;\ spl 1, <600 ;-\ generate 16 spl 1, <500 ;-/ parallel processes spl 1, <400 ;/ silk spl @0, }A0 ;split mov.i }-1, >-1 ;copy att0 mov.i bomb1, >att0a ;bombing silk2 spl @0, }A1 ;split mov.i }-1, >-1 ;copy att1 mov.i bomb1, >att1a ;bombing att2 mov.i bomb , }att2a ;A-indirect bombing mov.i {silk2, A2 ;jmp new copy bomb dat.f >2667, >5334 ;anti-imp bomb bomb1 dat >1, }1 ;anti clear bomb for 5 dat 0,0 rof ;warrior for use in multi multiw spl spiral7 spl 1 mov -1, 0 ;6 processes spl 1 mw1 spl @0, }b0 ;split mov.i }-1, >-1 ;copy mw2 spl @0, }b1 ;split mov.i }-1, >-1 ;copy mov.i {mw2, b2 ;jmp new copy think res ldp.ab _RES, #0 multi ldp.ab _MULTI, #0 ;check if multi player jmn.b multiw, multi ;if multi -> replicator ;just hope not to brainwashed :-) sne.b res, #-1 ;check if multiplay jmp multiw ;first round multiw slt.b res, #3 ;check to set multiplay stp.ab res, _MULTI str ldp.a _STR, str1 ;load strategy in use duel sne.ab #0, res ;check result lost add.a #1, str1 ;lost change mod.a #2, str1 ;secure result win stp.ab str1, _STR str1 jmp @0, marcia dat 0, tornado for 6 dat 0,0 rof tornado tornado mov bm, djmp+away+31 mov bd, djmp+away+32 mov *tptr, @tptr mov {tptr,