;redcode-94 verbose ;name Silccon ;author M. J. Pihlaja ;strategy Trying to regain some foothold on the hill. ;strategy Switch a scanner, a clear, and a stone. ;strategy I'll tinker some more later. ;assert CORESIZE==8000 load0 z for 0 rof ;***** There may still be some bugs in this ;***** ; ; SDIST equ 1650 sboot mov clptr pscan jmz.f scan , @scan slt scan , #send+1-scan chg mov.i @pscan , @mv chk jmn scan , scan mov.f dclr , >chk djn.f kdst mov b , >kdst ksrc spl @kdst , clear mov >ksrc , >kdst mov >ksrc , >kdst mov >ksrc , >kdst mov >ksrc , >kdst djn ksrc , #2 kdst div.f #0 , load0+KDIST+gate-clear z for 7 dat 0 , 0 rof ; Clobbers most 3-pt stone/imps. gateins spl #0 , clend+2 gate equ (clear-5) ; dat 0 , 0 ; dat 0 , 0 ; dat <-2666 , <2667 b dat <-2666 , <2667 clear spl #0 , gate mov b , >gate djn.f -1 , {gate spl #0 , gate mov b , >gate djn.f -1 , {gate clend z for 6 dat 0 , 0 rof ;***** Stone ;***** ; ; Alladin-like stone picked up from CW 65 ; stboot mov Stone+2 ,