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:Slice
-
Category:Games
-
Publisher/Developer:BASIC 10-liner Contest 2014 (NOMAM 2014), New Breed Software
-
Year:2014
Short description
The player controls a blue block moving around the screen, using a touch tablet (or paddle controllers.) Yellow squares appear at the bottom and fly up, and the goal is to catch the squares before they reach the top of the screen. Two bars at the top show the number of successfully caught yellow blocks, and the number of blocks which you failed to catch in time; when either bar reaches its maximum length (40), the game is over, and the score is tallied. A point is earned for catching a block, and lost for missing a block. Catching or missing 40 blocks results in a bonus or penalty of 100 points. As the player catches the yellow squares, the background changes in color, and the rate at which the blocks appear increases. Link to description source
Listing 1
0 REM S."D:SLICE.TBS":RUN 10 GRAPHICS 19:SC=DPEEK(88):Y=3:SZ=SC+30:SPD=3:IT=0:RAT=10:OK=1 20 POKE SZ,0:POKE SZ+10,0:Q=Q+1:IF Q>=SPD THEN Q=0:MOVE SC+30,SC+20,220:OK=1:IT=(IT+1) MOD 10:IF IT=0 THEN SPD=SPD-1 30 PX=PADDLE(0):PY=PADDLE(1):IF PX<228 AND PY<228:X=INT(PX/6):Y=22-INT(PY/11):ENDIF:SZ=SC+Y*10+INT(X/4) 40 IF PEEK(SZ)+PEEK(SZ+10):V=15:PT=PT+1:COLOR 3:PLOT PT MOD 40,0:ENDIF:COLOR 3:PLOT X,Y 70 FOR XX=0 TO 9:IF PEEK(SC+20+XX):POKE SC+20+XX,0:BD=BD+1:COLOR 2:PLOT 39-(BD MOD 40),1:SOUND 0,100,12,8:ENDIF:NEXT XX 80 IF RAND(RAT)=0 AND OK:COLOR 1:PLOT RAND(30)+5,22:OK=0:ENDIF:IF SPD=0 THEN SPD=3:RAT=RAT-1:POKE 712,(10-RAT)*16:IF RAT<1 THEN RAT=1 90 SOUND 0,255-PT*6,10,V:V=V-1:IF V<0:V=0:ENDIF:IF BD>=40 OR PT>=40:GOTO 1000:ENDIF:GOTO 20 1000 GRAPHICS 18:? #6;"hit +";PT:? #6;"miss -";BD:IF BD>=40:? #6;"loss -100":PT=PT-100:ELSE:? #6;"win +100":PT=PT+100:ENDIF 1010 ? #6;"total ";PT-BD:SOUND 0,0,0,0:PAUSE 600:RUN
References
Downloads
Copyright holder