;redcode-94 ;name Clisson Lite ;kill Clisson Lite ;author P.Kline ;assert CORESIZE == 8000 ;strategy p-switching X with paper/imp PIN 1111 PFLAG equ 250 rstep equ 12 rincr dat -rstep,rstep*2 ; spray core to kill scanners raid mov rincr,@2 ; before launching paper mov rincr,*1 mov 150,*-150 sub rincr,-1 djn raid,#(8000/rstep)/3 jmp paperfx for 3 dat 0,0 rof imp equ 1143 space equ (2390) paperfx stp.ab #1,#PFLAG ; paper choice is permanent mov 0,-1 ; erase stp paper spl 1 mov -1,0 mov -1,0 s0 spl @0,space mov.i }s0,>s0 mov.i }s0,>s0 s1 spl @0,imp*2 mov.i }s1,>s1 spl #0 spl 1+imp mov.i #imp,*0 for 3 dat 0,0 rof Pmod equ 17 dat 0,+7820 ; first round PRESULT dat 0,+Pmod ; loss dat 0,-Pmod*2 ; win dat 1,0 ; tie start ldp.a #0,PRESULT ; pspace stuff PTEST ldp.ab #PFLAG,#0 ; get status add.b PTEST,*PRESULT ; update with result of last battle stp.b *PRESULT,#PFLAG ; store mov 0,-1 ; prevent accidental stores slt *PRESULT,#-(Pmod*2*200) ; status should never be less than this mod #Pmod,*PRESULT ; and it should always be mod this jmz wait1,*PRESULT ; if so - go to Clisson watch-for-bomb ; if too many losses or brainwash ; make permanent switch to paper jmz.a raid,*PRESULT ; after a win or loss, bomb core first jmp paperfx ; else start paper watch2 dat 0,0 dat 1,1 for 19 dat 0,0 rof q1 spl #0,<-10 ; this is the bomber-killer mov qb,