Apple-2-SW/prog8
1
0
Fork 0
mirror of https://github.com/irmen/prog8.git synced 2024-07-05 22:29:04 +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 startXpos = boardOffsetX + 3
const ubyte startYpos = boardOffsetY - 2
const ubyte startSpeedLevel = 30
uword lines
uword score
ubyte xpos
ubyte ypos
ubyte nextBlock
ubyte speedlevel = startSpeedLevel
ubyte speedlevel = 1
sub start() {
@ -36,7 +35,7 @@ newgame:
spawnNextBlock()
waitkey:
if c64.TIME_LO>=speedlevel {
if c64.TIME_LO>=(60-4*speedlevel) {
c64.TIME_LO = 0
drawBlock(xpos, ypos, 32) ; hide block
@ -177,11 +176,7 @@ waitkey:
lines += num_lines
uword[4] scores = [10, 25, 50, 100] ; can never clear more than 4 lines
score += scores[num_lines-1]
word speed = startSpeedLevel-(lines as word)/10
if speed>0
speedlevel = lsb(speed)
else
speedlevel = 0
speedlevel = 1+lsb(lines/10)
drawScore()
}
}
@ -300,7 +295,7 @@ waitkey:
c64scr.PLOT(30,15)
c64scr.print_uw(score)
c64scr.PLOT(9,22)
c64scr.print_ub(startSpeedLevel+1-speedlevel)
c64scr.print_ub(speedlevel)
}
sub drawNextBlock() {