;redcode-b quiet ;name Pretentious v0.2 ;author Ian Oversby ;strategy v0.1 Scanner -> Paper ;strategy v0.2 (Hopefully) improved scanner ;assert 1 res LDP.AB #0, #0 str LDP.A #111, str1 ; load strategy in use LDP.A #157, str2 ; have we lost before? SNE.AB #0, res ; check result JMP.B lost win STP.AB #0, #157 JMP.B sel lost JMN.A change, str2 ; two losses in a row STP.AB #1, #157 JMP.B sel change STP.AB #0, #157 ADD.A #1, str1 ; lost change sel MOD.A #2, str1 ; secure result STP.AB str1, #111 str1 JMP.B @0, auntie DAT.F 0, pboot str2 DAT.F 0, 0 pboot MOV.I pstart+10, -1, }-1 MOV bomb, }2421 ; anti-vamp MOV bomb, {3517 ; more anti-vamp MOV 1, }1 DAT >1, }1 auntie MOV.I loop+14, cptr JMP.B -1, <-10 b2 DAT.F #4, #5 cons DAT.F #3359, #3359