Program listing on 48K Spectrum. All additional concepts, implementation and optimisations for this version by Einar Saukas.
1 DIM p(10): LET b=0: FOR l=0 TO 4: RESTORE : READ w,s,m$,m$: FOR f=1 TO 10: LET p(f)=85-9*f: PRINT AT f,0;m$(f*w-11 TO f*w): NEXT f: LET m$(p(1)+1)="": LET k=CODE INKEY$-48: FOR a=1 TO l+2: LET g=p(a): LET u=g=28*(f>50): LET b=b+(a=u): LET f=f+1-1e9*u: LET i=8*RND-4: LET i=(a=1)*((k=7)-(k=6)+w*((k=8)-(k=9)))+SGN (ABS i-2+SGN (p(1)-g))*(1+11*(i>0))*(g<>p(1)): LET c=CODE m$(g+i+1)-45: LET p(a)=g+i*(c<2): PRINT AT g/w+.5,g-w*INT (g/w);m$(g+1);AT w,0;s+l*58+b*2;AT 3,4; INK a;"£" AND f>50;AT p(a)/w+.5,p(a)-w*INT (p(a)/w);"c@@@@@"(a): LET s=s+(a=c): IF a=1 OR p(a)-p(1) THEN NEXT a: POKE (s<58)*23620,10: NEXT l: DATA 12,0,"OOOOOOOOOOOOO..........OO..O OO.O..OO.O......O.OO...OOOO...",m$+m$(w TO )+m$ |
Rules of the Game
Hall of Fame |
---|
The following people have completed the game |
(No-one has yet been known to complete the game) |
The following high scores have been submitted |
(No high scores have yet been submitted) |
To submit a score to the hall of fame, please send a PM to "Digital Prawn" on the "World of Spectrum" Forums.