From d55b27caab1d67ab416cb29017524d61a4c2d646 Mon Sep 17 00:00:00 2001
From: d_m <d_m@plastic-idolatry.com>
Date: Wed, 7 Aug 2024 21:12:17 -0400
Subject: [PATCH] display message on winning

---
 kodiak.tal   |  73 ++++++++++++++++++++++++++++++++++++++++++---------
 logo.chr     | Bin 4096 -> 4096 bytes
 logo.chr.nmt | Bin 0 -> 768 bytes
 3 files changed, 60 insertions(+), 13 deletions(-)
 create mode 100644 logo.chr.nmt

diff --git a/kodiak.tal b/kodiak.tal
index 64d2946..5b593ba 100644
--- a/kodiak.tal
+++ b/kodiak.tal
@@ -403,7 +403,7 @@
     #8a .Screen/sprite DEO JMP2r
 
 @restart-button-addr ( -> addr* )
-    game-won ?&won ;restart-button JMP2r
+    is-game-won ?&won ;restart-button JMP2r
     &won ;new-game-button JMP2r
 
 @audio-button-addr ( -> addr* )
@@ -415,7 +415,23 @@
     #0030 #00b4 ;quit-button draw-button
     #0058 #00b4 audio-button-addr draw-button
     #0080 #00b4 ;about-button draw-button
-    JMP2r
+    is-game-won ?draw-you-win JMP2r
+
+@draw-you-win
+    #0048 .Screen/x DEO2
+    #c6 .Screen/auto DEO
+
+    #8f #0008 draw-you-win/draw
+    #80 #0020 draw-you-win/draw
+    #85 #0038 draw-you-win/draw
+    #8a #0050 draw-you-win/draw
+    #85 #0068 draw-you-win/draw
+    #80 #0080 draw-you-win/draw
+    #8f #0098 !draw-you-win/draw
+
+    &draw ( tint^ y* -> )
+        .Screen/y DEO2 ;you-win .Screen/addr DEO2
+        .Screen/sprite DEOk DEO JMP2r
 
 @draw-decorations ( -> )
     #00e8 #0098 #80 !draw-bear
@@ -996,7 +1012,10 @@
     &audio POP2 toggle-audio #01 JMP2r
     &about POP2 open-about #01 JMP2r
 
-@game-won ( -> bool^ )
+@on-game-win ( -> )
+    !draw-buttons
+
+@is-game-won ( -> bool^ )
     .foundation #04 OVR ADD SWP   ( lim^ start^ )
     &loop                         ( lim^ pos^ )
         LDZk #0f AND #0d NEQ ?&no ( lim^ pos^ )
@@ -1066,7 +1085,7 @@
     SWP #0f AND SWP STZ JMP2r   ( ; zp<-face )
 
 @post-move ( -> )
-    auto-move game-won ?draw-buttons JMP2r
+    auto-move is-game-won ?on-game-win JMP2r
 
 @on-click-up ( -> )
     .Mouse/state DEI #ff EOR    ( not-state^ )
@@ -1093,55 +1112,55 @@
 
 @sprites ~sprites.tal
 
-@restart-button
+@restart-button ( 4x1 tiles )
     7f ff ff ff ff ff ff 7f 7f ce d5 cc d5 d6 ff 7f
     ff ff ff ff ff ff ff ff ff 62 df 67 fb 47 ff ff
     ff ff ff ff ff ff ff ff ff 36 6a 62 6a 6a ff ff
     fe ff ff ff ff ff ff fe fe 63 b7 77 b7 b7 ff fe
 
-@quit-button
+@quit-button ( 4x1 tiles )
     7f ff ff ff ff ff ff 7f 7f ff ff ff ff ff ff 7f
     ff ff ff ff ff ff ff ff ff cd b5 b5 b5 cc f7 ff
     ff ff ff ff ff ff ff ff ff 51 5b 5b 5b 5b ff ff
     fe ff ff ff ff ff ff fe fe ff ff ff ff ff ff fe
 
-@audio-off-button
+@audio-off-button ( 4x1 tiles )
     7f ff ff ff ff ff ff 7f 7f da aa 8a aa a8 ff 7f
     ff ff ff ff ff ff ff ff ff 9b aa aa aa 9b ff ff
     ff ff ff ff ff ff ff ff ff 3e d5 dd d5 3e ff ff
     fe ff ff ff ff ff ff fe fe c9 5b 49 5b db ff fe
 
-@audio-on-button
+@audio-on-button ( 4x1 tiles )
     7f ff ff ff ff ff ff 7f 7f da aa 8a aa a8 ff 7f
     ff ff ff ff ff ff ff ff ff 9b aa aa aa 9b ff ff
     ff ff ff ff ff ff ff ff ff 3e d5 dd d5 3e ff ff
     fe ff ff ff ff ff ff fe fe cf 57 57 57 d7 ff fe
 
-@about-button
+@about-button ( 4x1 tiles )
     7f ff ff ff ff ff ff 7f 7f fe fd fc fd fd ff 7f
     ff ff ff ff ff ff ff ff ff ce 55 4d 55 4e ff ff
     ff ff ff ff ff ff ff ff ff d4 56 56 56 c6 ff ff
     fe ff ff ff ff ff ff fe fe 7f ff ff ff ff ff fe
 
-@new-game-button
+@new-game-button ( 4x1 tiles )
     7f ff ff ff ff ff ff 7f 7f 99 ab a9 ab a9 ff 7f
     ff ff ff ff ff ff ff ff ff 57 56 56 56 af ff ff
     ff ff ff ff ff ff ff ff ff 37 ea a2 aa 2a ff ff
     fe ff ff ff ff ff ff fe fe 59 ab a9 ab a9 ff fe
 
-@start-button
+@start-button ( 4x1 tiles )
     7f ff ff ff ff ff ff 7f 7f fe fd fe ff fc ff 7f
     ff ff ff ff ff ff ff ff ff 23 f6 76 b6 76 ff ff
     ff ff ff ff ff ff ff ff ff 66 ab 27 ab ab ff ff
     fe ff ff ff ff ff ff fe fe 3f 7f 7f 7f 7f ff fe
 
-@resume-button
+@resume-button ( 4x1 tiles )
     7f ff ff ff ff ff ff 7f 7f e7 ea e6 ea eb ff 7f
     ff ff ff ff ff ff ff ff ff 31 ef 33 fd 23 ff ff
     ff ff ff ff ff ff ff ff ff 5a 55 55 55 15 ff ff
     fe ff ff ff ff ff ff fe fe e7 5f 47 5f 67 ff fe
 
-@logo
+@logo ( 11x2 tiles )
  6c fe 38 38 38 39 3b 7f 48 a4 20 20 20 21 22 40
  6c fe 38 70 e0 c0 80 00 48 a4 20 40 80 00 00 00
  00 07 1c 38 38 38 38 7c 00 04 10 20 20 20 20 40
@@ -1165,6 +1184,34 @@
  3f 3b 39 38 38 38 fe 6c 20 22 21 20 20 20 a4 48
  00 80 c0 e0 70 38 fe 6c 00 00 00 80 40 20 a4 48
 
+@you-win ( 13x2 tiles )
+ 6c fe 38 1c 0e 07 03 03 24 5a 18 0c 06 03 01 01
+ 6c fe 38 70 e0 c0 80 80 24 5a 18 30 60 c0 80 80
+ 00 07 1c 38 38 38 38 7c 00 03 0c 18 18 18 18 3c
+ 00 c0 70 38 38 38 38 7c 00 c0 30 18 18 18 18 3c
+ 6c fe 38 38 38 38 38 7c 24 5a 18 18 18 18 18 3c
+ 6c fe 38 38 38 38 38 7c 24 5a 18 18 18 18 18 3c
+ 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
+ 6c fe 38 38 38 38 38 7c 24 5a 18 18 18 18 18 3c
+ 6c fe 38 38 38 38 38 7c 24 5a 18 18 18 18 18 3c
+ 6c fe 38 38 38 38 38 7c 24 5a 18 18 18 18 18 3c
+ 6c fe 38 38 38 38 38 7c 24 5a 18 18 18 18 18 3c
+ 6c fe 3c 3e 3f 3b 39 38 24 5a 1c 1e 1b 19 18 18
+ 6c fe 38 38 38 b8 f8 f8 24 5a 18 18 18 98 d8 78
+ 03 03 03 03 03 03 0f 06 01 01 01 01 01 01 05 02
+ 80 80 80 80 80 80 e0 c0 80 80 80 80 80 80 a0 40
+ 38 38 38 38 38 1c 07 00 18 18 18 18 18 0c 03 00
+ 38 38 38 38 38 70 c0 00 18 18 18 18 18 30 c0 00
+ 38 38 38 38 38 1c 07 00 18 18 18 18 18 0c 03 00
+ 38 38 38 38 38 70 c0 00 18 18 18 18 18 30 c0 00
+ 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
+ 38 38 1c 0e 07 03 0f 06 18 18 0c 06 03 01 05 02
+ 38 38 7c ee c7 83 ef c6 18 18 3c 66 c3 81 a5 42
+ 38 38 70 e0 c0 80 e0 c0 18 18 30 60 c0 80 a0 40
+ 38 38 38 38 38 38 fe 6c 18 18 18 18 18 18 5a 24
+ 38 38 38 38 38 38 fe 6c 18 18 18 18 18 18 5a 24
+ 78 38 38 38 38 38 fe 6c 38 18 18 18 18 18 5a 24
+
 @corner 00 00 00 1f 1f 18 18 18
 @vert   18 18 18 18 18 18 18 18
 @horiz  00 00 00 ff ff 00 00 00
diff --git a/logo.chr b/logo.chr
index f527bf5bd1ab17645b5c11f5508be6917618f711..bc1d4b0e4fe20e6f4a6c27d4633d1e5c2f5f183d 100644
GIT binary patch
delta 793
zcmah{Jx{|h5Or#r6o}F_Z7s-<g)O72Mh)T@kf~LsOiURvcBm91{s12fV}-;{H%3cH
z^e-^x7r>gKN;zLLRN*7HSnuBXeD|J(Bb-$)OG?i9c#^r14KWA+r@0gauouHg3<d>!
zNvNp`d?M2dOAm3p^AS5UR`a<kSP~hl0w4PWuKL@)H8L#5icCMGx@pe6Ab*j0nohUz
zE!^;i+m?YI*2m$!*2_)@>bb}z0<QBiffF8#Tr~`522reSQi3>@74~F>{auVan>mVy
zg^`DaD<1kG5B&;kP$qLsMDDc0XUVWm1d}nO%H*$sVBpKAqXQ*0vkXc>2vet;Rtqg^
zp+%d}O(C0@G@`+WKb&Y3{KETFwVWHVlM$$m^{+*NPCkAt?$%yLG5WfO(d`Hf_&*q{
za}=x1jeq#YPT-Exu&;x)pkX)cz|Z>J+<d*mPrG`%e!f66MJ{dpz4ZWlcH%&Lc!7yB
J;kBEv)Hhu^(dYmG

delta 19
ZcmZorXi!+dv51Lf^8s!LCLnQu5dc7>29N*%

diff --git a/logo.chr.nmt b/logo.chr.nmt
new file mode 100644
index 0000000000000000000000000000000000000000..e52c44535a052fcdab311e6fbad1d86c7a224d8c
GIT binary patch
literal 768
zcmeIuI}HFZ3<FUspFI!)p%jmK5mYjOdVYg-A!3Ln4l<S^hg{P0C2FXpJl~>+UfT1<
K<xhTrXMqb>A_>U=

literal 0
HcmV?d00001