Apple-2-SW/prog8
1
0
Fork 0
mirror of https://github.com/irmen/prog8.git synced 2024-07-09 17:29:46 +00:00
Code Issues Projects Releases Wiki Activity

tweaked tetriz speedup

Browse Source
This commit is contained in:
Irmen de Jong 2019-03-10 05:24:07 +01:00
parent 0fc3071a21
commit 3af7d4c930
3 changed files with 4 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
examples/compiled/examples.d64
View File

Binary file not shown.

BIN
examples/compiled/tehtriz.prg Normal file
View File

Binary file not shown.

13
examples/tehtriz.p8
View File

@ -14,13 +14,12 @@
const ubyte boardHeight = 20 const ubyte boardHeight = 20
const ubyte startXpos = boardOffsetX + 3 const ubyte startXpos = boardOffsetX + 3
const ubyte startYpos = boardOffsetY - 2 const ubyte startYpos = boardOffsetY - 2
const ubyte startSpeedLevel = 30
uword lines uword lines
uword score uword score
ubyte xpos ubyte xpos
ubyte ypos ubyte ypos
ubyte nextBlock ubyte nextBlock
ubyte speedlevel = startSpeedLevel ubyte speedlevel = 1
sub start() { sub start() {
@ -36,7 +35,7 @@ newgame:
spawnNextBlock() spawnNextBlock()
waitkey: waitkey:
if c64.TIME_LO>=speedlevel { if c64.TIME_LO>=(60-4*speedlevel) {
c64.TIME_LO = 0 c64.TIME_LO = 0
drawBlock(xpos, ypos, 32) ; hide block drawBlock(xpos, ypos, 32) ; hide block
@ -177,11 +176,7 @@ waitkey:
lines += num_lines lines += num_lines
uword[4] scores = [10, 25, 50, 100] ; can never clear more than 4 lines uword[4] scores = [10, 25, 50, 100] ; can never clear more than 4 lines
score += scores[num_lines-1] score += scores[num_lines-1]
word speed = startSpeedLevel-(lines as word)/10 speedlevel = 1+lsb(lines/10)
if speed>0
speedlevel = lsb(speed)
else
speedlevel = 0
drawScore() drawScore()
} }
} }
@ -300,7 +295,7 @@ waitkey:
c64scr.PLOT(30,15) c64scr.PLOT(30,15)
c64scr.print_uw(score) c64scr.print_uw(score)
c64scr.PLOT(9,22) c64scr.PLOT(9,22)
c64scr.print_ub(startSpeedLevel+1-speedlevel) c64scr.print_ub(speedlevel)
} }
sub drawNextBlock() { sub drawNextBlock() {