diff --git a/vacation.p8 b/vacation.p8 index a04e6a4..7c14a6b 100644 --- a/vacation.p8 +++ b/vacation.p8 @@ -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 = {