6502/millfork
1
0
Fork 0
mirror of https://github.com/KarolS/millfork.git synced 2025-04-12 14:37:10 +00:00
Code Issues Projects Releases Wiki Activity

Quatari Landscape refactor

Browse Source
This commit is contained in:
zbyti 2020-09-25 11:20:16 +02:00
parent 560ed09439
commit 3364f8ab10
1 changed files with 3 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
examples/a8/landscape.mfk
View File

@ -7,7 +7,7 @@ alias prev_y = os_OLDROW
alias cursor_y = os_ROWCRS
alias color = os_ATACHR
byte tmp, i
byte i
array(byte) color_height = [
170,150,144,144,122,122,110,110,94,94,86,86,82,80
@ -28,17 +28,13 @@ void main(){
while color != $ff {
cursor_y = color_height[color]
tmp = color_height[color]
if (pokey_random & 1) != 0 {
tmp += 1
color_height[color] += 1
} else {
if (pokey_random & 1) != 0 {
tmp -= 1
color_height[color] -= 1
}
}
color_height[color] = tmp
drawto()
color -= 1
}