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:Paddleship
-
Category:Games
-
Publisher/Developer:BASIC 10-liner Contest 2014 (NOMAM 2014), New Breed Software
-
Year:2014
Short description
The player controls a spaceship, and the goal is to reach another ship in a random location on the screen. The player's ship can only be moved via a paddle controller. The position of the paddle knob determines the speed of the ship's rotation, and pressing the fire button causes the ship to fly forward in its facing direction. There is a time limit, and once it is reached, the game ends and the score is displayed. Link to description source
Listing 1
10 GRAPHICS 23:PM=(PEEK(106)-32):POKE 54279,PM:POKE 53277,3:POKE 559,46:H=53248:DPOKE 704,16522:PM=(PM+2)*256:MS=32 11 DIM F$(136),D$(24):F$="6>6>z>>t|8 `x|s|x` 8|t>>z>6>6":F=ADR(F$) 12 F$(81)=" x|lX`@ 8||^>._>>_.>^||8 @`Xl|x 8":D$="":FOR I=0 TO 256 20 DPOKE PM+I*2,0:COLOR RAND(3)+1:PLOT RAND(160),RAND(96):PLOT I/2,0:NEXT I:X=80:Y=24:XM=0:YM=0:SC=0:D=4:T=0:COLOR 0:GOSUB 1000:V=0 100 POKE H,X+48:MOVE F+8+INT(D)*8,PM+16+Y,8:MOVE F,PM+8+Y,8:MOVE F,PM+24+Y,8:DPOKE 708,RAND(65536):POKE 710,RAND(255) 110 SOUND 1,100,10,V:D=D-(PADDLE(0)-128)/128:IF D<0:D=D+16:ELSE:IF D>=16:D=D-16:ENDIF:ENDIF:ID=INT(D+1):IF PTRIG(0)=0 120 XM=XM+ASC(D$(ID))-2:YM=YM-ASC(D$(ID+4))+2:SOUND 0,0,0,10:ELSE:SOUND 0,0,0,0:ENDIF:IF ABS(XM)>MS:XM=SGN(XM)*MS:ENDIF 130 IF ABS(YM)>MS:YM=SGN(YM)*MS:ENDIF:X=X+XM/8:Y=Y+YM/8:IF Y<0:Y=0:ENDIF:T=T+0.25:PLOT 128-T,0:IF T=128 THEN ? SC:DPOKE H,0:END 140 IF Y>96:Y=96:ENDIF:IF X<0:X=0:ENDIF:IF X>160:X=160:ENDIF:IF PEEK(53261):SC=SC+1:GOSUB 1000:ENDIF:V=V-SGN(V):GOTO 100 1000 MOVE F,PM+16+YY+128,8:POKE H+1,RAND(160)+48:YY=RAND(96):MOVE F+8,PM+16+YY+128,8:POKE 53278,0:V=15:RETURN
References
Downloads
Copyright holder