From 5e3ca803b766f7b597294cb4207705f8293619a9 Mon Sep 17 00:00:00 2001
From: Kistaro Windrider <kistaro@gmail.com>
Date: Sat, 17 Dec 2022 18:08:45 -0800
Subject: [PATCH] Replace multiple pal calls with a single pal-table call, or
 some pokes.

---
 chameleonic.p8 | 26 +++++++++++++++-----------
 1 file changed, 15 insertions(+), 11 deletions(-)

diff --git a/chameleonic.p8 b/chameleonic.p8
index 993918b..c4b8259 100644
--- a/chameleonic.p8
+++ b/chameleonic.p8
@@ -663,16 +663,18 @@ function player:draw()
 
  local setpal=function()
   -- base colors
-  pal(13,TAIL)
-  pal(14,TAIL)
-  pal(15,TAIL)
-  pal(4,BODY)
-  pal(5,BODY)
-  pal(12,BODY)
-  pal(2,HEAD)
-  pal(3,HEAD)
-  pal(9,IRIS)
-  pal(10,PUPIL)
+  pal{
+   [2]=HEAD,
+   [3]=HEAD,
+   [4]=BODY,
+   [5]=BODY,
+   [9]=IRIS,
+   [10]=PUPIL,
+   [12]=BODY,
+   [13]=TAIL,
+   [14]=TAIL,
+   [15]=TAIL,
+  }
 
   -- vanish colors
   local vanish=split"13,15,14,5,4,12,2,3,9,10"
@@ -681,7 +683,9 @@ function player:draw()
   end
 
   if self.fall_frame>3 then
-   for i=0,15 do pal(i,1) end
+   local zc=@0x5f00&0xf0
+   for i=0x5f00,0x5f0c,4 do poke4(i,0x0101.0101) end
+   poke(0x5f00,zc|0x01)
   end
  end