This is non-commercial site, its content is based on Atari 8-bit home computer contents and references.
If you feel your rights are violated by showing/using any part of contents of your product represented on this page,
please contact me immediatelly so I can remove it!
Atari 8-bit Source code
|
|
|
-
Entry name:Moonlander
-
Category:Games
-
Publisher/Developer:BASIC 10-liner Contest 2013 (NOMAM 2013)
-
Year:2013
Listing 1
1 GRAPHICS 7:POKE 752,1:COLOR 3:PLOT 0,79:DRAWTO 0,0:DRAWTO 159,0:DRAWTO 159,79:DRAWTO 0,79:? "Moonlander Shields: ";2-C;" Score: ";S:J=52 2 SETCOLOR 0,0,4:COLOR 1:FOR I=1 TO 158:PLOT I,J:DRAWTO I,78:J=J-2+4*(RND(0)+(J<35)-(J>70)):NEXT I:F=80-INT(S/200)*10:G=F:X=7:Y=7:V=3:W=0 3 T=STICK(I>9):SOUND 0,10,8,4*(F>0):ON T=15 OR F=0 GOTO 5:IF T<12 THEN SOUND 0,10,8,10:V=V-0.2+0.4*(T<8):F=F-1:IF F=0 THEN T=6:F=1 4 IF T=14 OR T=10 OR T=6 THEN SOUND 0,20,8,10:W=W-0.2:F=F-1:IF F=0 THEN SOUND 0,50,10,10:? "Out of fuel":POKE 656,1 5 COLOR 0:PLOT X,Y-1:PLOT X-1,Y:PLOT X+1,Y:X=X+V:Y=Y+W:IF X<2 OR X>157 OR Y<2 THEN ? "Out of range! Game over":S=0:GOTO 10 6 LOCATE X-1,Y,P:LOCATE X+1,Y,Q:COLOR 2:PLOT X,Y-1:PLOT X-1,Y:PLOT X+1,Y:W=W+0.1:C=C+P+Q:ON C>2 GOTO 9:LOCATE X-1,Y+1,P:LOCATE X+1,Y+1,Q 7 I=P*Q=0 OR W>1.4000000000000001 OR V>1.4000000000000001:IF S<500 THEN SETCOLOR 2,9-5*(W>1.4000000000000001)+(V=0),4:IF S<300 AND F OR F=G THEN ? "Fuel: ";F;" ":POKE 656,1 8 ON I GOTO 3:F=F+100-G:? "The EAGLE has landed, ";F;" points":FOR I=5 TO 49:SOUND 0,INT(I/5)*10,10,10:NEXT I:S=S+F:GOTO 10 9 ? "Crash! Game over":PLOT X-2,Y-1:PLOT X,Y-2:PLOT X+2,Y-1:FOR I=15 TO 0 STEP -0.05:SOUND 0,50,0,I:SETCOLOR 1,14,I:NEXT I:SETCOLOR 1,14,10:S=0 10 SOUND 0,0,0,0:POKE 656,2:? "Press button to continue":C=2:ON STRIG(0) GOTO 10:C=(S>99)+(S>199):POKE 77,0:GOTO 1:REM (p)by STD
References
Listing downloads
Downloads
Copyright holder