Browse code

(wireworld.tal) Fixed mouse picking issue

neauoire authored on 07/06/2023 16:58:10
Showing 1 changed files
... ...
@@ -82,27 +82,24 @@ BRK
82 82
 
83 83
 @on-mouse-down ( -> )
84 84
 
85
+	.Mouse/y DEI2 #03 SFT2 NIP #02 NEQ ?&no-menu
85 86
 	.Mouse/x DEI2 #03 SFT2 NIP
86
-	.Mouse/y DEI2 #03 SFT2 NIP
87
-	#0202 NEQ2k NIP2 ?&no-color1
87
+	DUP #02 NEQ ?&no-color1
88 88
 		#01 set-color
89
-		POP2 BRK
90 89
 		&no-color1
91
-	#0302 NEQ2k NIP2 ?&no-color2
90
+	DUP #03 NEQ ?&no-color2
92 91
 		#02 set-color
93
-		POP2 BRK
94 92
 		&no-color2
95
-	#0402 NEQ2k NIP2 ?&no-color3
93
+	DUP #04 NEQ ?&no-color3
96 94
 		#03 set-color
97
-		POP2 BRK
98 95
 		&no-color3
99
-	#0602 NEQ2k NIP2 ?&no-toggle
96
+	DUP #06 NEQ ?&no-toggle
100 97
 		.timer/play LDZk #00 EQU SWP STZ
101 98
 		#00 .Mouse/state DEO
102 99
 		draw-ui
103
-		POP2 BRK
104 100
 		&no-toggle
105
-	POP2
101
+	POP
102
+	&no-menu
106 103
 
107 104
 	( color ) .color LDZ .Mouse/state DEI #01 GTH #00 EQU MUL
108 105
 	( cell* ) .Mouse/x DEI2 #02 SFT2 NIP .Mouse/y DEI2 #02 SFT2 NIP