display message on winning
This commit is contained in:
parent
84b38e160f
commit
d55b27caab
73
kodiak.tal
73
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
|
||||
|
|
|
|||
Binary file not shown.
Loading…
Reference in New Issue