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:Shmup
-
Category:Games
-
Publisher/Developer:BASIC 10-liner Contest 2014 (NOMAM 2014), New Breed Software
-
Year:2014
Short description
The player controls a ship flying to the right, with enemies randomly appearing from the other side, the more frequently the longer the game is running. The player can move up and down, and shoot lasers with the joystick's Fire button. Enemies are destroyed instantly when hit by a laser, and each destroyed enemy raises the score by a single point. Collision with an enemy ship takes away one life. When all lives run out, the score and progress is displayed, and the game can be restarted. Link to description source
Listing 1
0 REM S."D:SHMUP.TBS":RUN 10 GRAPHICS 17:SC=DPEEK(88):SC1=SC+1:SC440=SC+440:SC420=SC+420:YSC=SC+220:Z479=479:Z19=19:Z20=20:SOUND 1,200,0,4:LV=3 100 POKE SC+Z19+RAND(23)*Z20,14:FOR I=SC TO SC440 STEP Z20:POKE I,%0:NEXT I:IF RAND(12-WV)=0:BSC=SC+Z19+RAND(22)*Z20 110 POKE BSC,74:POKE BSC+Z20,126:ENDIF:MOVE SC1,SC,Z479:IF EX=0:C=PEEK(YSC+1):DPOKE YSC,40669:S=PEEK(632):F=STRIG(%0) 120 IF C<>%0 AND C<>14 THEN EX=30:LV=LV-%1:IF LV=%0 THEN ? #6;"SC:";PT;" WV:";WV:PAUSE 2:WHILE STRIG(%0):WEND:RUN 130 IF S=14 AND YSC>SC:YSC=YSC-Z20:ENDIF:IF S=13 AND YSC<SC420 THEN YSC=YSC+Z20 140 IF F=%0:FOR X=2 TO 18 STEP 2:LX=X:C=DPEEK(YSC+X):IF C<>%0 AND C<>14 AND C<>3584 AND C<>3598:GOSUB 1000:ENDIF 150 DPOKE YSC+LX,65535:DPOKE YSC+LX-2,%0:NEXT X:DPOKE YSC+LX,%0:ENDIF:ELSE:DPOKE YSC,RAND(65536):EX=EX-1 999 SOUND 0,R,12,EX/%2:ENDIF:R=PEEK(53770):DPOKE 708,(R&15)+R*256:IF WV<10:WV=WV+0.01:ENDIF:GOTO 100 1000 ESC1=YSC+X:X=18:ESC2=ESC1:IF YSC>SC:ESC2=ESC1-Z20:ENDIF:FOR I=%0 TO 7:DPOKE ESC1,I*257:DPOKE ESC1+Z20,I*257 1010 DPOKE ESC2,I*257:SOUND %0,PEEK(53770),8,14-I*%2:NEXT I:DPOKE ESC1,%0:DPOKE ESC1+Z20,%0:DPOKE ESC2,%0:PT=PT+1:RETURN
References
Downloads
Copyright holder