Browse code
(wireworld.tal) Cleanup
neauoire authored on 21/01/2022 23:14:36
Showing 1 changed files
| ... | ... |
@@ -43,16 +43,16 @@ |
| 43 | 43 |
@pointer |
| 44 | 44 |
&x $2 &y $2 |
| 45 | 45 |
@timer |
| 46 |
- &frame $1 &pause $1 |
|
| 46 |
+ &frame $1 &play $1 |
|
| 47 | 47 |
|
| 48 | 48 |
( program ) |
| 49 | 49 |
|
| 50 | 50 |
|0100 ( -> ) |
| 51 | 51 |
|
| 52 | 52 |
( theme ) |
| 53 |
- #30ff .System/r DEO2 |
|
| 54 |
- #e00f .System/g DEO2 |
|
| 55 |
- #800f .System/b DEO2 |
|
| 53 |
+ #0ff0 .System/r DEO2 |
|
| 54 |
+ #0d0a .System/g DEO2 |
|
| 55 |
+ #040f .System/b DEO2 |
|
| 56 | 56 |
( size ) |
| 57 | 57 |
#00 WIDTH 4** .Screen/width DEO2 |
| 58 | 58 |
#00 HEIGHT 4** .Screen/height DEO2 |
| ... | ... |
@@ -61,6 +61,7 @@ |
| 61 | 61 |
;on-mouse .Mouse/vector DEO2 |
| 62 | 62 |
;on-button .Controller/vector DEO2 |
| 63 | 63 |
( setup ) |
| 64 |
+ #01 .timer/play STZ |
|
| 64 | 65 |
#01 .color STZ |
| 65 | 66 |
;redraw JSR2 |
| 66 | 67 |
|
| ... | ... |
@@ -68,10 +69,14 @@ BRK |
| 68 | 69 |
|
| 69 | 70 |
@on-frame ( -> ) |
| 70 | 71 |
|
| 71 |
- .timer/pause LDZ #00 = JMP BRK |
|
| 72 |
- |
|
| 72 |
+ .timer/play LDZ JMP BRK |
|
| 73 |
+ ( every 4th ) |
|
| 73 | 74 |
.timer/frame LDZk |
| 74 |
- #0f AND ,&no-run JCN ;run JSR2 &no-run |
|
| 75 |
+ #03 AND ,&no-run JCN |
|
| 76 |
+ ;run JSR2 |
|
| 77 |
+ ;future-world ;past-world #4000 ;mcpy JSR2 |
|
| 78 |
+ ;redraw JSR2 |
|
| 79 |
+ &no-run |
|
| 75 | 80 |
LDZk INC SWP STZ |
| 76 | 81 |
|
| 77 | 82 |
BRK |
| ... | ... |
@@ -84,25 +89,24 @@ BRK |
| 84 | 89 |
DUP #04 ! ,&no-select JCN #03 .color STZ &no-select |
| 85 | 90 |
DUP #08 ! ,&no-start JCN #00 .color STZ &no-start |
| 86 | 91 |
POP |
| 92 |
+ ( space ) |
|
| 87 | 93 |
.Controller/key DEI #20 ! ,&no-space JCN |
| 88 |
- .timer/pause LDZk #00 = SWP STZ &no-space |
|
| 94 |
+ .timer/play LDZk #00 = SWP STZ &no-space |
|
| 89 | 95 |
|
| 90 | 96 |
BRK |
| 91 | 97 |
|
| 92 | 98 |
@on-mouse ( -> ) |
| 93 | 99 |
|
| 94 | 100 |
;pointer-icn .Screen/addr DEO2 |
| 95 |
- |
|
| 96 | 101 |
( clear last cursor ) |
| 97 | 102 |
.pointer/x LDZ2 .Screen/x DEO2 |
| 98 | 103 |
.pointer/y LDZ2 .Screen/y DEO2 |
| 99 | 104 |
#40 .Screen/sprite DEO |
| 100 |
- |
|
| 101 | 105 |
( draw new cursor ) |
| 102 | 106 |
.Mouse/x DEI2 DUP2 .pointer/x STZ2 .Screen/x DEO2 |
| 103 | 107 |
.Mouse/y DEI2 DUP2 .pointer/y STZ2 .Screen/y DEO2 |
| 104 |
- #41 .Mouse/state DEI #00 ! + .timer/pause LDZ + .Screen/sprite DEO |
|
| 105 |
- |
|
| 108 |
+ #41 .Mouse/state DEI #00 ! + .timer/play LDZ + .Screen/sprite DEO |
|
| 109 |
+ ( paint ) |
|
| 106 | 110 |
.Mouse/state DEI #00 = ,&no-down JCN |
| 107 | 111 |
( color ) .color LDZ |
| 108 | 112 |
( cell* ) .Mouse/x DEI2 4// NIP .Mouse/y DEI2 4// NIP |
| ... | ... |
@@ -146,8 +150,6 @@ RTN |
| 146 | 150 |
POPr |
| 147 | 151 |
INC GTHk ,&ver JCN |
| 148 | 152 |
POP2 |
| 149 |
- ;future-world ;past-world #4000 ;mcpy JSR2 |
|
| 150 |
- ,redraw JSR |
|
| 151 | 153 |
|
| 152 | 154 |
RTN |
| 153 | 155 |
|
| ... | ... |
@@ -193,11 +195,15 @@ RTN |
| 193 | 195 |
|
| 194 | 196 |
JMP2r |
| 195 | 197 |
|
| 196 |
-@pointer-icn 80c0 e0f0 f8e0 1000 |
|
| 197 |
-@cell-icn e0e0 e000 0000 0000 |
|
| 198 |
- |
|
| 199 |
-@past-world |
|
| 198 |
+@pointer-icn |
|
| 199 |
+ 80c0 e0f0 f8e0 1000 |
|
| 200 |
+@cell-icn |
|
| 201 |
+ e0e0 e000 0000 0000 |
|
| 200 | 202 |
|
| 201 |
-$4000 |
|
| 203 |
+( |
|
| 204 |
+ I live in the atom with the happy protons and neutrons. |
|
| 205 |
+ I'm also so negative all the freakin time. |
|
| 206 |
+ What do I do? |
|
| 207 |
+ How do I find peace? ) |
|
| 202 | 208 |
|
| 203 |
-@future-world |
|
| 209 |
+@past-world $4000 @future-world |