kistaro/vacation
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

the sea looks pretty cool now

Browse Source
This commit is contained in:
Kistaro Windrider 2024-02-04 20:16:46 -08:00
parent a2fa6c0202
commit 5b997936f0
Signed by: kistaro
SSH Key Fingerprint: SHA256:TBE2ynfmJqsAf0CP6gsflA0q5X5wD5fVKWPsZ7eVUg8
1 changed files with 15 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
vacation.p8
View File

@ -228,6 +228,9 @@ function _init()
-- outside of game mode
poke(0x5f5c, 255)
-- complex fill API mode
poke(0x5f34, 1)
mainview = newtitle()
end
@ -402,8 +405,11 @@ end
game_nrm_pal = {
[0] = 1, 0, 2, 140, 4, 5, 6, 7, 8, 9, 10, 132, 12, 12, 14, 7
}
-- undersea palette local decisions:
-- 4: deeper sea blue (129)
game_uw_pal = {
[0]=1, 0, 130, 140, 4, 5, 6, 13, 8, 9, 10, 132, 131, 12, 141, 7
[0]=1, 0, 130, 140, 129, 5, 6, 13, 8, 9, 10, 132, 131, 12, 141, 7
}
function setup_arcade_pal()
@ -431,8 +437,15 @@ mknew(sea)
function sea:draw()
local w = wave()
rectfill(0, 72+w, 128, 84, 0)
rectfill(0, 72+w, 128, 80+w, 0)
poke2(0x5f78, 0xFF00.00FF <<> w)
rectfill(0, 81+w, 128, 89+w, 0x1040.a842)
rectfill(0, 90+w, 128, 97+(w>>1), 0x1004.e169)
rectfill(0, 98+(w>>1), 128, 104+(w>>2), 0x1004.a842)
rectfill(0, 104+(w>>2), 128, 110+(w>>2), 0x1004)
rectfill(0, 111+(w>>2), 128, 118+(w>>3), 0x1041.e169)
rectfill(0, 119+(w>>3), 128, 124+(w>>3), 0x1041.a842)
rectfill(0, 125+(w>>3), 128, 128, 0x1001)
end
arcade_level = {