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

tehtriz example uses when statement

Browse Source
This commit is contained in:
Irmen de Jong 2019-07-09 23:39:03 +02:00
parent 2a0c3377f9
commit cc078503e3
3 changed files with 106 additions and 97 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
examples/cube3d-sprites.p8
View File

@ -161,7 +161,7 @@
else else
c64.SPRPTR[i] = $2000/64 ; small ball c64.SPRPTR[i] = $2000/64 ; small ball
c64.SPCOL[i] = spritecolors[zc>>13 as byte + 4] ; further away=darker color c64.SPCOL[i] = spritecolors[zc>>13 as byte + 4] ; further away=darker color TODO doesn't work anymore? ">>" seems broken.
} }
} }
} }

2
examples/primes.p8
View File

@ -43,8 +43,6 @@
while multiple < len(sieve) { while multiple < len(sieve) {
sieve[lsb(multiple)] = true sieve[lsb(multiple)] = true
multiple += candidate_prime multiple += candidate_prime
; c64scr.print_uw(multiple) ; TODO
; c4.CHROUT('\n') ; TODO
} }
return candidate_prime return candidate_prime
} }

35
examples/tehtriz.p8
View File

@ -75,33 +75,31 @@ waitkey:
} }
sub keypress(ubyte key) { sub move_left() {
if key==157 or key==',' {
; move left
drawBlock(xpos, ypos, 32) drawBlock(xpos, ypos, 32)
if blocklogic.noCollision(xpos-1, ypos) { if blocklogic.noCollision(xpos-1, ypos) {
xpos-- xpos--
} }
drawBlock(xpos, ypos, 160) drawBlock(xpos, ypos, 160)
} }
else if key==29 or key=='/' {
; move right sub move_right() {
drawBlock(xpos, ypos, 32) drawBlock(xpos, ypos, 32)
if blocklogic.noCollision(xpos+1, ypos) { if blocklogic.noCollision(xpos+1, ypos) {
xpos++ xpos++
} }
drawBlock(xpos, ypos, 160) drawBlock(xpos, ypos, 160)
} }
else if key==17 or key=='.' {
; move down faster sub move_down_faster() {
drawBlock(xpos, ypos, 32) drawBlock(xpos, ypos, 32)
if blocklogic.noCollision(xpos, ypos+1) { if blocklogic.noCollision(xpos, ypos+1) {
ypos++ ypos++
} }
drawBlock(xpos, ypos, 160) drawBlock(xpos, ypos, 160)
} }
else if key==145 or key==' ' {
; drop down immediately sub drop_down_immediately() {
drawBlock(xpos, ypos, 32) drawBlock(xpos, ypos, 32)
ubyte dropypos ubyte dropypos
for dropypos in ypos+1 to boardOffsetY+boardHeight-1 { for dropypos in ypos+1 to boardOffsetY+boardHeight-1 {
@ -120,7 +118,19 @@ waitkey:
drawScore() drawScore()
} }
} }
else if key=='z' { ; no joystick equivalent (there is only 1 fire button)
sub keypress(ubyte key) {
when key {
157 -> move_left()
',' -> move_left()
29 -> move_right()
'/' -> move_right()
17 -> move_down_faster()
'.' -> move_down_faster()
145 -> drop_down_immediately()
' ' -> drop_down_immediately()
'z' -> {
; no joystick equivalent (there is only 1 fire button)
; rotate counter clockwise ; rotate counter clockwise
drawBlock(xpos, ypos, 32) drawBlock(xpos, ypos, 32)
if blocklogic.canRotateCCW(xpos, ypos) { if blocklogic.canRotateCCW(xpos, ypos) {
@ -139,7 +149,7 @@ waitkey:
} }
drawBlock(xpos, ypos, 160) drawBlock(xpos, ypos, 160)
} }
else if key=='x' { 'x' -> {
; rotate clockwise ; rotate clockwise
drawBlock(xpos, ypos, 32) drawBlock(xpos, ypos, 32)
if blocklogic.canRotateCW(xpos, ypos) { if blocklogic.canRotateCW(xpos, ypos) {
@ -158,7 +168,7 @@ waitkey:
} }
drawBlock(xpos, ypos, 160) drawBlock(xpos, ypos, 160)
} }
else if key=='c' { 'c' -> {
; hold ; hold
if holdingAllowed { if holdingAllowed {
sound.swapping() sound.swapping()
@ -177,6 +187,7 @@ waitkey:
} }
} }
} }
}
sub checkForLines() { sub checkForLines() {
; check if line(s) are full -> flash/clear line(s) + add score + move rest down ; check if line(s) are full -> flash/clear line(s) + add score + move rest down