;redcode ;name DoubleStormII ;Tournament: ICWST'90 ;Standard: CWS'88 ;author Matthew J. Chung ;Branch: Lisgar Collegiate Institute ;assert 1 ; start SPL start2 ; split to dwarf gun start1 MOV instr2, < move1 MOV instr1, < move1 SPL @ move1 ; spawn a new "double smash" SUB # 801, move1 move1 JMP start1, -100 start2 MOV instr8, < move2 MOV instr7, < move2 MOV instr6, < move2 SPL @ move2 ; spawn a new "dwarf" move3 SUB # 796, move2 move2 JMP start2, 100 instr1 MOV move3, < move3 ; ** double smash ** instr2 DJN instr1, move3 instr6 ADD # 60, instr8 instr7 MOV instr2, @ instr8 ; ** dwarf ** instr8 JMP instr6, instr2 END start