;redcode-94 ;name RandomRevenge ;author Roy van Rijn ;strategy Pswicher with oneshot+solo+revenge ;strategy Paper good in large and small coresizes ;strategy Oneshot is good against the papers I expect ;strategy Solo is an all killer in coresizes between 2000<>6000 ;assert 1 ;constants for the coreclear paper nstep1 equ 1319 cstep1 equ 1871 tstep1 equ 1471 pAw1 equ 6000 pAw2 equ 2000 pGo spl 1, cp nothA spl @nothA, nothA nothB spl @nothB, nothB bomb mov.i #1, <1 cc djn -2, <2335 pEnd dat 0, 0 tPtr dat 100 ,4100-4 tGate dat 0,0 dat 0,0 dat 0,0 dat 0,0 dat 0,0 tWipe mov tSpl ,tPtr ,>tPtr jmn.f tWipe ,>tPtr tScan sub.x #-12 ,tPtr sne.x *tPtr ,@tPtr sub.x *pScan ,@tScan jmn.f tSelf ,@tPtr jmz.f tScan ,*tPtr pScan mov.x @tScan ,@tScan tSelf slt.b @tScan ,#tEnd+4-tPtr djn tWipe ,@tScan djn *pScan ,#12 tSpl spl #0 ,{0 tClr mov tEnd ,>tGate djn.f tClr ,{tGate tEnd dat >1 ,2-tGate for 12 dat 0,0 rof tDecoy equ (tWipe+1-219) tStart mov 3910+sOff-sDelet dat 0, 0 dat 0, 0 dat 0, 0 dat 0, 0 dat >3920-sDelet,{10 sBomb spl #20, <-100 sLoop mov sBomb, >sPtr mov sBomb, }sPtr sBack djn.a sLoop,