From 5b997936f04249a588022fb0558116b7be1aa545 Mon Sep 17 00:00:00 2001
From: Kistaro Windrider <kistaro@gmail.com>
Date: Sun, 4 Feb 2024 20:16:46 -0800
Subject: [PATCH] the sea looks pretty cool now

---
 vacation.p8 | 17 +++++++++++++++--
 1 file changed, 15 insertions(+), 2 deletions(-)

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 = {