home *** CD-ROM | disk | FTP | other *** search
Text File | 1995-02-08 | 9.8 KB | 1,308 lines |
-
-
-
-
- { CTYMON_USE
- A OFF
-
- £ FCMON GRADUAL
- M LOOK_CONSOLE FREEZE
- @Ç¥ CITY_MONITOR
- M STAND CONTINUE
- A ON
- I ^ì╕ != $üâ THEN
- {
- W 5 SECONDS
- i LEX ACPUZ
- }
- }
-
- { GET_COLOR _INDEX
- I @ÇÅ ^ì╣ ~ÇÇ THEN
- {
- I @ÇÅ ^ì║ ~ÇÇ THEN
- é 5
- E I @ÇÅ ^ì╗ ~ÇÇ THEN
- é 7
- E
- é 6
- }
- I @ÇÅ ^ì║ ~ÇÇ THEN
- {
- I @ÇÅ ^ì╗ ~ÇÇ THEN
- é 3
- E
- é 4
- }
- I @ÇÅ ^ì╗ ~ÇÇ THEN
- é 2
- é 1
-
- }
-
- { SET_COLOR _INDEX _COLOR
- N ~Çü
- {
- U 1
- b ^ì╗ ~ÇÇ
- b ^ì║ ~ÇÇ
- b ^ì╣ ~ÇÇ
- X ÇÇ
- U 2
- a ^ì╗ ~ÇÇ
- b ^ì║ ~ÇÇ
- b ^ì╣ ~ÇÇ
- X ÇÇ
- U 3
- a ^ì╗ ~ÇÇ
- a ^ì║ ~ÇÇ
- b ^ì╣ ~ÇÇ
- X ÇÇ
- U 4
- b ^ì╗ ~ÇÇ
- a ^ì║ ~ÇÇ
- b ^ì╣ ~ÇÇ
- X ÇÇ
- U 5
- b ^ì╗ ~ÇÇ
- a ^ì║ ~ÇÇ
- a ^ì╣ ~ÇÇ
- X ÇÇ
- U 6
- b ^ì╗ ~ÇÇ
- b ^ì║ ~ÇÇ
- a ^ì╣ ~ÇÇ
- X ÇÇ
- U 7
- a ^ì╗ ~ÇÇ
- b ^ì║ ~ÇÇ
- a ^ì╣ ~ÇÇ
- X ÇÇ
- }
- }
-
- { UPDATE_CITY_GRID
- "G01A" @Ç¥ GET_COLOR 1
- "G02A" @Ç¥ GET_COLOR 2
- "G03A" @Ç¥ GET_COLOR 3
- "G04A" @Ç¥ GET_COLOR 4
- "G05A" @Ç¥ GET_COLOR 5
- "G06A" @Ç¥ GET_COLOR 6
- "G07A" @Ç¥ GET_COLOR 7
- "G08A" @Ç¥ GET_COLOR 8
- "G09A" @Ç¥ GET_COLOR 9
- "G10A" @Ç¥ GET_COLOR 10
- "G11A" @Ç¥ GET_COLOR 11
- "G12A" @Ç¥ GET_COLOR 12
- "G13A" @Ç¥ GET_COLOR 13
- "G14A" @Ç¥ GET_COLOR 14
- "G15A" @Ç¥ GET_COLOR 15
- "G16A" @Ç¥ GET_COLOR 16
- "G17A" @Ç¥ GET_COLOR 17
- "G18A" @Ç¥ GET_COLOR 18
- "G19A" @Ç¥ GET_COLOR 19
- "G20A" @Ç¥ GET_COLOR 20
- }
-
- { FLASH_NODES _STATE
- "G01A" ~ÇÇ
- "G02A" ~ÇÇ
- "G03A" ~ÇÇ
- "G04A" ~ÇÇ
- "G05A" ~ÇÇ
- "G06A" ~ÇÇ
- "G07A" ~ÇÇ
- "G08A" ~ÇÇ
- "G09A" ~ÇÇ
- "G10A" ~ÇÇ
- "G11A" ~ÇÇ
- "G12A" ~ÇÇ
- "G13A" ~ÇÇ
- "G14A" ~ÇÇ
- "G15A" ~ÇÇ
- "G16A" ~ÇÇ
- "G17A" ~ÇÇ
- "G18A" ~ÇÇ
- "G19A" ~ÇÇ
- "G20A" ~ÇÇ
- }
-
- { FLASH_TRAPS _STATE
- "E01A" ~ÇÇ
- "E02A" ~ÇÇ
- "E03A" ~ÇÇ
- "E04A" ~ÇÇ
- "E05A" ~ÇÇ
- "E06A" ~ÇÇ
- "E07A" ~ÇÇ
- "E08A" ~ÇÇ
- "E09A" ~ÇÇ
- "E10A" ~ÇÇ
- "E11A" ~ÇÇ
- "E12A" ~ÇÇ
- "E13A" ~ÇÇ
- "E14A" ~ÇÇ
- "E15A" ~ÇÇ
- "E16A" ~ÇÇ
- "E17A" ~ÇÇ
- "E18A" ~ÇÇ
- "E19A" ~ÇÇ
- "E20A" ~ÇÇ
- "E21A" ~ÇÇ
- "E22A" ~ÇÇ
- "E23A" ~ÇÇ
- "E24A" ~ÇÇ
- "E25A" ~ÇÇ
- "E26A" ~ÇÇ
- }
-
- { SET_TRAP _INDEX _STATE
- N ~ÇÇ
- {
- U 1
- "E01A" ~Çü
- X Çü
- U 2
- "E02A" ~Çü
- X Çü
- U 3
- "E03A" ~Çü
- X Çü
- U 4
- "E04A" ~Çü
- X Çü
- U 5
- "E05A" ~Çü
- X Çü
- U 6
- "E06A" ~Çü
- X Çü
- U 7
- "E07A" ~Çü
- X Çü
- U 8
- "E08A" ~Çü
- X Çü
- U 9
- "E09A" ~Çü
- X Çü
- U 10
- "E10A" ~Çü
- X Çü
- U 11
- "E11A" ~Çü
- X Çü
- U 12
- "E12A" ~Çü
- X Çü
- U 13
- "E13A" ~Çü
- X Çü
- U 14
- "E14A" ~Çü
- X Çü
- U 15
- "E15A" ~Çü
- X Çü
- U 16
- "E16A" ~Çü
- X Çü
- U 17
- "E17A" ~Çü
- X Çü
- U 18
- "E18A" ~Çü
- X Çü
- U 19
- "E19A" ~Çü
- X Çü
- U 20
- "E20A" ~Çü
- X Çü
- U 21
- "E21A" ~Çü
- X Çü
- U 22
- "E22A" ~Çü
- X Çü
- U 23
- "E23A" ~Çü
- X Çü
- U 24
- "E24A" ~Çü
- X Çü
- U 25
- "E25A" ~Çü
- X Çü
- U 26
- "E26A" ~Çü
- X Çü
- }
- }
-
- { GET_MOVE _INDEX
- N ~ÇÇ
- {
- U 1
- é ^ì╛
- X Çé
- U 2
- é ^ì┐
- X Çé
- U 3
- é ^ÄÇ
- X Çé
- U 4
- é ^Äü
- X Çé
- U 5
- é ^Äé
- X Çé
- U 6
- é ^Äâ
- X Çé
- U 7
- é ^Ää
- X Çé
- U 8
- é ^Äà
- X Çé
- U 9
- é ^Äå
- X Çé
- U 10
- é ^Äç
- X Çé
- U 11
- é ^Äê
- X Çé
- U 12
- é ^Äë
- X Çé
- U 13
- é ^Äè
- X Çé
- U 14
- é ^Äï
- X Çé
- U 15
- é ^Äî
- X Çé
- U 16
- é ^Äì
- X Çé
- U 17
- é ^ÄÄ
- X Çé
- U 18
- é ^ÄÅ
- X Çé
- U 19
- é ^ÄÉ
- X Çé
- U 20
- é ^Äæ
- X Çé
- }
- }
-
- { SET_MOVE _INDEX _MOVE
- N ~ÇÇ
- {
- U 1
- ^ì╛ = ~Çü
- X Çâ
- U 2
- ^ì┐ = ~Çü
- X Çâ
- U 3
- ^ÄÇ = ~Çü
- X Çâ
- U 4
- ^Äü = ~Çü
- X Çâ
- U 5
- ^Äé = ~Çü
- X Çâ
- U 6
- ^Äâ = ~Çü
- X Çâ
- U 7
- ^Ää = ~Çü
- X Çâ
- U 8
- ^Äà = ~Çü
- X Çâ
- U 9
- ^Äå = ~Çü
- X Çâ
- U 10
- ^Äç = ~Çü
- X Çâ
- U 11
- ^Äê = ~Çü
- X Çâ
- U 12
- ^Äë = ~Çü
- X Çâ
- U 13
- ^Äè = ~Çü
- X Çâ
- U 14
- ^Äï = ~Çü
- X Çâ
- U 15
- ^Äî = ~Çü
- X Çâ
- U 16
- ^Äì = ~Çü
- X Çâ
- U 17
- ^ÄÄ = ~Çü
- X Çâ
- U 18
- ^ÄÅ = ~Çü
- X Çâ
- U 19
- ^ÄÉ = ~Çü
- X Çâ
- U 20
- ^Äæ = ~Çü
- X Çâ
- }
- }
-
- { GET_ROT _INDEX
- N ~ÇÇ
- {
- U 1
- é ^ÄÆ
- X Çä
- U 2
- é ^Äô
- X Çä
- U 3
- é ^Äö
- X Çä
- U 4
- é ^Äò
- X Çä
- U 5
- é ^Äû
- X Çä
- U 6
- é ^Äù
- X Çä
- U 7
- é ^Äÿ
- X Çä
- U 8
- é ^ÄÖ
- X Çä
- U 9
- é ^ÄÜ
- X Çä
- U 10
- é ^Ä¢
- X Çä
- U 11
- é ^Ä£
- X Çä
- U 12
- é ^Ä¥
- X Çä
- U 13
- é ^Ä₧
- X Çä
- U 14
- é ^ă
- X Çä
- U 15
- é ^Äá
- X Çä
- U 16
- é ^Äí
- X Çä
- U 17
- é ^Äó
- X Çä
- U 18
- é ^Äú
- X Çä
- U 19
- é ^Äñ
- X Çä
- U 20
- é ^ÄÑ
- X Çä
- }
- }
-
- { SET_ROT _INDEX _DIR
- N ~ÇÇ
- {
- U 1
- ^ÄÆ = ~Çü
- X Çà
- U 2
- ^Äô = ~Çü
- X Çà
- U 3
- ^Äö = ~Çü
- X Çà
- U 4
- ^Äò = ~Çü
- X Çà
- U 5
- ^Äû = ~Çü
- X Çà
- U 6
- ^Äù = ~Çü
- X Çà
- U 7
- ^Äÿ = ~Çü
- X Çà
- U 8
- ^ÄÖ = ~Çü
- X Çà
- U 9
- ^ÄÜ = ~Çü
- X Çà
- U 10
- ^Ä¢ = ~Çü
- X Çà
- U 11
- ^Ä£ = ~Çü
- X Çà
- U 12
- ^Ä¥ = ~Çü
- X Çà
- U 13
- ^Ä₧ = ~Çü
- X Çà
- U 14
- ^ă = ~Çü
- X Çà
- U 15
- ^Äá = ~Çü
- X Çà
- U 16
- ^Äí = ~Çü
- X Çà
- U 17
- ^Äó = ~Çü
- X Çà
- U 18
- ^Äú = ~Çü
- X Çà
- U 19
- ^Äñ = ~Çü
- X Çà
- U 20
- ^ÄÑ = ~Çü
- X Çà
- }
- }
-
- { DETERMINE_DIRECTION _COLORDIR
- P ~Çü
-
- I ^ì╜ = 1 THEN
- {
- é ~ÇÇ
- }
- ~ÇÇ = ~ÇÇ - 2
-
- ~Çü = @Ç¥ GET_ROT ^ì╜
- ~ÇÇ = ~ÇÇ - ~Çü
- I ~ÇÇ < 0 THEN
- ~ÇÇ = ~ÇÇ + 6
- ~ÇÇ = ~ÇÇ + 2
- é ~ÇÇ
- }
-
- { CITY_MONITOR
- P ~ÇÇ
- P ~Çü
- P ~Çé
- P ~Çâ
- ~Çâ = $üé
- I @Çú THEN é
- "city"
- m
-
- "YELB" $Ç│
- "GRNB" $Ç│
- "BLUB" $Ç│
- "PURB" $Ç│
- "REDB" $Ç│
- "ORGB" $Ç│
-
- å 360 1
-
-
- ç 2 5 2
- I ^ì╕ THEN
- J #ÇÜ
-
- :START
- ^ì╣ = 0
- ^ì║ = 0
- ^ì╗ = 0
- ^ì╝ = 1
- ^ì╜ = 1
- @Ç¥ SET_COLOR 1 2
- @Ç¥ FLASH_NODES 0
- @Ç¥ SET_MOVE 1 1
- @Ç¥ SET_ROT 1 0
- :STARTLOOP
- @Ç¥ FLASH_TRAPS 1
- W 2
- â
- @Ç¥ FLASH_TRAPS 0
- W 2
- â
- L #ÇÄ 2
-
- :LOOP
- @Ç¥ UPDATE_CITY_GRID
- â
-
- ~ÇÇ = @Ç¥ GET_COLOR 1
- ~ÇÇ ++
- I ~ÇÇ = 7 THEN ~ÇÇ = 2
- @Ç¥ SET_COLOR 1 ~ÇÇ
-
- J #ÇÅ
-
- :YELB_BUTTON
- @Çå `é▓
- ~Çü = 2
- ~ÇÇ = @Ç¥ DETERMINE_DIRECTION 2
- J #Çû
-
- :GRNB_BUTTON
- @Çå `äå
- ~Çü = 3
- ~ÇÇ = @Ç¥ DETERMINE_DIRECTION 3
- J #Çû
-
- :BLUB_BUTTON
- @Çå `äê
- ~Çü = 4
- ~ÇÇ = @Ç¥ DETERMINE_DIRECTION 4
- J #Çû
-
- :PURB_BUTTON
- @Çå `ä¢
- ~Çü = 5
- ~ÇÇ = @Ç¥ DETERMINE_DIRECTION 5
- J #Çû
-
- :REDB_BUTTON
- @Çå `ëë
- ~Çü = 6
- ~ÇÇ = @Ç¥ DETERMINE_DIRECTION 6
- J #Çû
-
- :ORGB_BUTTON
- @Çå `ëè
- ~Çü = 7
- ~ÇÇ = @Ç¥ DETERMINE_DIRECTION 7
- J #Çû
-
- :PROCESS_RESULT
- N ^ì╝
- {
- U 1
- N ~ÇÇ
- {
- U 2
- ^ì╝ = 2
- J #Çù
- X Çç
- U 3
- ^ì╝ = 2
- J #Çÿ
- X Çç
- U 4
- ^ì╝ = 11
- J #Çù
- X Çç
- U 5
- ^ì╝ = 10
- J #Çù
- X Çç
- U 6
- ^ì╝ = 5
- J #Çù
- X Çç
- U 7
- ^ì╝ = 1
- J #Çù
- X Çç
- }
- X Çå
- U 2
- N ~ÇÇ
- {
- U 2
- ^ì╝ = 3
- J #Çù
- X Çê
- U 3
- ^ì╝ = 3
- J #Çÿ
- X Çê
- U 4
- ^ì╝ = 4
- J #Çÿ
- X Çê
- U 5
- ^ì╝ = 11
- J #Çù
- X Çê
- U 6
- ^ì╝ = 1
- J #Çÿ
- X Çê
- U 7
- ^ì╝ = 2
- J #Çù
- X Çê
- }
- X Çå
- U 3
- N ~ÇÇ
- {
- U 2
- ^ì╝ = 4
- J #Çù
- X Çë
- U 3
- ^ì╝ = 6
- J #Çù
- X Çë
- U 4
- ^ì╝ = 5
- J #Çÿ
- X Çë
- U 5
- ^ì╝ = 4
- J #Çÿ
- X Çë
- U 6
- ^ì╝ = 2
- J #Çÿ
- X Çë
- U 7
- ^ì╝ = 3
- J #Çù
- X Çë
- }
- X Çå
- U 4
- N ~ÇÇ
- {
- U 2
- ^ì╝ = 3
- J #Çÿ
- X Çè
- U 3
- ^ì╝ = 5
- J #Çÿ
- X Çè
- U 4
- ^ì╝ = 10
- J #Çÿ
- X Çè
- U 5
- ^ì╝ = 9
- J #Çÿ
- X Çè
- U 6
- ^ì╝ = 11
- J #Çù
- X Çè
- U 7
- ^ì╝ = 2
- J #Çÿ
- X Çè
- }
- X Çå
- U 5
- N ~ÇÇ
- {
- U 2
- ^ì╝ = 6
- J #Çù
- X Çï
- U 3
- ^ì╝ = 6
- J #Çÿ
- X Çï
- U 4
- ^ì╝ = 14
- J #Çù
- X Çï
- U 5
- ^ì╝ = 10
- J #Çÿ
- X Çï
- U 6
- ^ì╝ = 4
- J #Çÿ
- X Çï
- U 7
- ^ì╝ = 3
- J #Çÿ
- X Çï
- }
- X Çå
- U 6
- N ~ÇÇ
- {
- U 2
- ^ì╝ = 7
- J #Çù
- X Çî
- U 3
- ^ì╝ = 7
- J #Çÿ
- X Çî
- U 4
- ^ì╝ = 11
- J #Çÿ
- X Çî
- U 5
- ^ì╝ = 14
- J #Çù
- X Çî
- U 6
- ^ì╝ = 5
- J #Çÿ
- X Çî
- U 7
- ^ì╝ = 6
- J #Çù
- X Çî
- }
- X Çå
- U 7
- N ~ÇÇ
- {
- U 2
- ^ì╝ = 8
- J #Çù
- X Çì
- U 3
- ^ì╝ = 8
- J #Çÿ
- X Çì
- U 4
- ^ì╝ = 12
- J #Çÿ
- X Çì
- U 5
- ^ì╝ = 11
- J #Çÿ
- X Çì
- U 6
- ^ì╝ = 6
- J #Çÿ
- X Çì
- U 7
- ^ì╝ = 7
- J #Çù
- X Çì
- }
- X Çå
- U 8
- N ~ÇÇ
- {
- U 2
- ^ì╝ = 9
- J #Çù
- X ÇÄ
- U 3
- ^ì╝ = 12
- J #Çù
- X ÇÄ
- U 4
- ^ì╝ = 13
- J #Çÿ
- X ÇÄ
- U 5
- ^ì╝ = 12
- J #Çÿ
- X ÇÄ
- U 6
- ^ì╝ = 7
- J #Çÿ
- X ÇÄ
- U 7
- ^ì╝ = 8
- J #Çù
- X ÇÄ
- }
- X Çå
- U 9
- N ~ÇÇ
- {
- U 2
- ^ì╝ = 4
- J #Çÿ
- X ÇÅ
- U 3
- ^ì╝ = 10
- J #Çÿ
- X ÇÅ
- U 4
- ^ì╝ = 14
- J #Çÿ
- X ÇÅ
- U 5
- ^ì╝ = 16
- J #Çù
- X ÇÅ
- U 6
- ^ì╝ = 13
- J #Çù
- X ÇÅ
- U 7
- ^ì╝ = 11
- J #Çù
- X ÇÅ
- }
- X Çå
- U 10
- N ~ÇÇ
- {
- U 2
- ^ì╝ = 5
- J #Çÿ
- X ÇÉ
- U 3
- ^ì╝ = 14
- J #Çù
- X ÇÉ
- U 4
- ^ì╝ = 17
- J #Çù
- X ÇÉ
- U 5
- ^ì╝ = 14
- J #Çÿ
- X ÇÉ
- U 6
- ^ì╝ = 9
- J #Çÿ
- X ÇÉ
- U 7
- ^ì╝ = 4
- J #Çÿ
- X ÇÉ
- }
- X Çå
- U 11
- N ~ÇÇ
- {
- U 2
- ^ì╝ = 7
- J #Çÿ
- X Çæ
- U 3
- ^ì╝ = 12
- J #Çÿ
- X Çæ
- U 4
- ^ì╝ = 16
- J #Çÿ
- X Çæ
- U 5
- ^ì╝ = 15
- J #Çÿ
- X Çæ
- U 6
- ^ì╝ = 14
- J #Çù
- X Çæ
- U 7
- ^ì╝ = 6
- J #Çÿ
- X Çæ
- }
- X Çå
- U 12
- N ~ÇÇ
- {
- U 2
- ^ì╝ = 8
- J #Çÿ
- X ÇÆ
- U 3
- ^ì╝ = 13
- J #Çÿ
- X ÇÆ
- U 4
- ^ì╝ = 17
- J #Çÿ
- X ÇÆ
- U 5
- ^ì╝ = 16
- J #Çÿ
- X ÇÆ
- U 6
- ^ì╝ = 11
- J #Çÿ
- X ÇÆ
- U 7
- ^ì╝ = 7
- J #Çÿ
- X ÇÆ
- }
- X Çå
- U 13
- N ~ÇÇ
- {
- U 2
- ^ì╝ = 12
- J #Çù
- X Çô
- U 3
- ^ì╝ = 15
- J #Çù
- X Çô
- U 4
- ^ì╝ = 18
- J #Çù
- X Çô
- U 5
- ^ì╝ = 17
- J #Çÿ
- X Çô
- U 6
- ^ì╝ = 12
- J #Çÿ
- X Çô
- U 7
- ^ì╝ = 8
- J #Çÿ
- X Çô
- }
- X Çå
- U 14
- N ~ÇÇ
- {
- U 2
- ^ì╝ = 10
- J #Çÿ
- X Çö
- U 3
- ^ì╝ = 17
- J #Çù
- X Çö
- U 4
- ^ì╝ = 18
- J #Çÿ
- X Çö
- U 5
- ^ì╝ = 19
- J #Çù
- X Çö
- U 6
- ^ì╝ = 16
- J #Çù
- X Çö
- U 7
- ^ì╝ = 9
- J #Çÿ
- X Çö
- }
- X Çå
- U 15
- N ~ÇÇ
- {
- U 2
- ^ì╝ = 11
- J #Çÿ
- X Çò
- U 3
- ^ì╝ = 16
- J #Çÿ
- X Çò
- U 4
- ^ì╝ = 20
- J #Çù
- X Çò
- U 5
- ^ì╝ = 19
- J #Çÿ
- X Çò
- U 6
- ^ì╝ = 17
- J #Çù
- X Çò
- U 7
- ^ì╝ = 14
- J #Çù
- X Çò
- }
- X Çå
- U 16
- N ~ÇÇ
- {
- U 2
- ^ì╝ = 12
- J #Çÿ
- X Çû
- U 3
- ^ì╝ = 17
- J #Çÿ
- X Çû
- U 4
- ^ì╝ = 21
- J #Çù
- X Çû
- U 5
- ^ì╝ = 20
- J #Çù
- X Çû
- U 6
- ^ì╝ = 15
- J #Çÿ
- X Çû
- U 7
- ^ì╝ = 11
- J #Çÿ
- X Çû
- }
- X Çå
- U 17
- N ~ÇÇ
- {
- U 2
- ^ì╝ = 13
- J #Çÿ
- X Çù
- U 3
- ^ì╝ = 18
- J #Çù
- X Çù
- U 4
- ^ì╝ = 22
- J #Çù
- X Çù
- U 5
- ^ì╝ = 21
- J #Çù
- X Çù
- U 6
- ^ì╝ = 16
- J #Çÿ
- X Çù
- U 7
- ^ì╝ = 12
- J #Çÿ
- X Çù
- }
- X Çå
- U 18
- N ~ÇÇ
- {
- U 2
- ^ì╝ = 17
- J #Çù
- X Çÿ
- U 3
- ^ì╝ = 19
- J #Çÿ
- X Çÿ
- U 4
- ^ì╝ = 20
- J #Çÿ
- X Çÿ
- U 5
- ^ì╝ = 23
- J #Çù
- X Çÿ
- U 6
- ^ì╝ = 19
- J #Çù
- X Çÿ
- U 7
- ^ì╝ = 14
- J #Çÿ
- X Çÿ
- }
- X Çå
- U 19
- N ~ÇÇ
- {
- U 2
- ^ì╝ = 15
- J #Çÿ
- X ÇÖ
- U 3
- ^ì╝ = 20
- J #Çù
- X ÇÖ
- U 4
- ^ì╝ = 24
- J #Çù
- X ÇÖ
- U 5
- ^ì╝ = 20
- J #Çÿ
- X ÇÖ
- U 6
- ^ì╝ = 18
- J #Çÿ
- X ÇÖ
- U 7
- ^ì╝ = 17
- J #Çù
- X ÇÖ
- }
- X Çå
- U 20
- N ~ÇÇ
- {
- U 2
- ^ì╝ = 19
- J #Çÿ
- X ÇÜ
- U 3
- ^ì╝ = 24
- J #Çù
- X ÇÜ
- U 4
- ^ì╝ = 26
- J #Çù
- X ÇÜ
- U 5
- ^ì╝ = 25
- J #Çù
- X ÇÜ
- U 6
- ^ì╝ = 23
- J #Çù
- X ÇÜ
- U 7
- ^ì╝ = 18
- J #Çÿ
- X ÇÜ
- }
- X Çå
- }
-
- :FAILURE
- @Ç¥ SET_TRAP ^ì╝ 1
- @Çå `ëï
- â
- â
- @Ç¥ SET_TRAP ^ì╝ 0
- â
- â
- L #Çù 8
- @Ç¥ SET_TRAP ^ì╝ 1
- W 30
- J #Çì
-
- :ADVANCE
- @Çå `ëî
- I @Ç¥ GET_COLOR ^ì╝ > 1 THEN
- {
-
- ~Çé = ^ì╜ - 1
- ~Çé = @Ç¥ GET_MOVE ~Çé
- I ~Çé = ^ì╝ THEN
- {
- ~Çé = @Ç¥ GET_MOVE ^ì╜
- @Ç¥ SET_COLOR ~Çé 1
- ^ì╜ --
- J #ÇÅ
- }
-
- J #ÇÖ
- }
- ^ì╜ ++
- @Ç¥ SET_MOVE ^ì╜ ^ì╝
- @Ç¥ SET_COLOR ^ì╝ ~Çü
-
- ~ÇÇ = ~Çü - ~ÇÇ
- ~ÇÇ = ~ÇÇ + 3
- I ~ÇÇ < 0 THEN
- ~ÇÇ = ~ÇÇ + 6
- E I ~ÇÇ > 6 THEN
- ~ÇÇ = ~ÇÇ - 6
- @Ç¥ SET_ROT ^ì╜ ~ÇÇ
- I ^ì╜ = 20 THEN
- {
- @Ç¥ UPDATE_CITY_GRID
- â
- â
- J #ÇÜ
- }
- J #ÇÅ
-
- :FEEDBACK
- @Çå `ë╝
- @Ç¥ SET_COLOR ^ì╝ 2
- â
- @Ç¥ UPDATE_CITY_GRID
- @Ç¥ SET_COLOR ^ì╝ 3
- â
- @Ç¥ UPDATE_CITY_GRID
- @Ç¥ SET_COLOR ^ì╝ 4
- â
- @Ç¥ UPDATE_CITY_GRID
- @Ç¥ SET_COLOR ^ì╝ 5
- â
- @Ç¥ UPDATE_CITY_GRID
- @Ç¥ SET_COLOR ^ì╝ 6
- â
- @Ç¥ UPDATE_CITY_GRID
- @Ç¥ SET_COLOR ^ì╝ 7
- â
- @Ç¥ UPDATE_CITY_GRID
- L #ÇÖ 5
- J #Çì
-
- :WIN
- @Çå `ë╜
- @Ç¥ FLASH_NODES 2
- â
- @Ç¥ FLASH_NODES 3
- â
- @Ç¥ FLASH_NODES 4
- â
- @Ç¥ FLASH_NODES 5
- â
- @Ç¥ FLASH_NODES 6
- â
- @Ç¥ FLASH_NODES 7
- â
- L #ÇÜ 6
- ^ì╕ = $üâ
- I ^ç╖ THEN
- J #Ç¢
- ~Çâ = $üâ
-
-
- :ESCAPE_BUTTON
- @Çå `èÇ
-
- I ~Çâ == $üâ THEN
- {
- â
- â
- â
- â
- @Çì BRINGONTHEALIEN
- }
- }
-
-
- //$ 26 - version number
-