home *** CD-ROM | disk | FTP | other *** search
/ PC Gamer 6 / 1995-05_Disc_6.iso / bioforge / script / citymon.scp < prev    next >
Text File  |  1995-02-08  |  10KB  |  1,308 lines

  1.  
  2.  
  3.  
  4.  
  5. { CTYMON_USE
  6. A OFF
  7.  
  8. £ FCMON GRADUAL
  9. M LOOK_CONSOLE FREEZE
  10. @Ç¥ CITY_MONITOR
  11. M STAND CONTINUE
  12. A ON
  13. I ^ì╕ != $üâ THEN
  14. {
  15. W 5 SECONDS
  16. i LEX ACPUZ
  17. }
  18. }
  19.  
  20. { GET_COLOR _INDEX
  21. I @ÇÅ ^ì╣ ~ÇÇ THEN
  22. {
  23. I @ÇÅ ^ì║ ~ÇÇ THEN
  24. é 5 
  25. E I @ÇÅ ^ì╗ ~ÇÇ THEN
  26. é 7 
  27. é 6 
  28. }
  29. I @ÇÅ ^ì║ ~ÇÇ THEN
  30. {
  31. I @ÇÅ ^ì╗ ~ÇÇ THEN
  32. é 3 
  33. é 4 
  34. }
  35. I @ÇÅ ^ì╗ ~ÇÇ THEN
  36. é 2 
  37. é 1
  38.  
  39. }
  40.  
  41. { SET_COLOR _INDEX _COLOR
  42. N ~Çü 
  43. {
  44. U 1 
  45. b ^ì╗ ~ÇÇ 
  46. b ^ì║ ~ÇÇ 
  47. b ^ì╣ ~ÇÇ 
  48. X ÇÇ 
  49. U 2 
  50. a ^ì╗ ~ÇÇ 
  51. b ^ì║ ~ÇÇ 
  52. b ^ì╣ ~ÇÇ 
  53. X ÇÇ 
  54. U 3 
  55. a ^ì╗ ~ÇÇ 
  56. a ^ì║ ~ÇÇ 
  57. b ^ì╣ ~ÇÇ 
  58. X ÇÇ 
  59. U 4 
  60. b ^ì╗ ~ÇÇ 
  61. a ^ì║ ~ÇÇ 
  62. b ^ì╣ ~ÇÇ 
  63. X ÇÇ 
  64. U 5 
  65. b ^ì╗ ~ÇÇ 
  66. a ^ì║ ~ÇÇ 
  67. a ^ì╣ ~ÇÇ 
  68. X ÇÇ 
  69. U 6 
  70. b ^ì╗ ~ÇÇ 
  71. b ^ì║ ~ÇÇ 
  72. a ^ì╣ ~ÇÇ 
  73. X ÇÇ 
  74. U 7 
  75. a ^ì╗ ~ÇÇ 
  76. b ^ì║ ~ÇÇ 
  77. a ^ì╣ ~ÇÇ 
  78. X ÇÇ 
  79. }
  80. }
  81.  
  82. { UPDATE_CITY_GRID
  83.  "G01A" @Ç¥ GET_COLOR 1 
  84.  "G02A" @Ç¥ GET_COLOR 2 
  85.  "G03A" @Ç¥ GET_COLOR 3 
  86.  "G04A" @Ç¥ GET_COLOR 4 
  87.  "G05A" @Ç¥ GET_COLOR 5 
  88.  "G06A" @Ç¥ GET_COLOR 6 
  89.  "G07A" @Ç¥ GET_COLOR 7 
  90.  "G08A" @Ç¥ GET_COLOR 8 
  91.  "G09A" @Ç¥ GET_COLOR 9 
  92.  "G10A" @Ç¥ GET_COLOR 10 
  93.  "G11A" @Ç¥ GET_COLOR 11 
  94.  "G12A" @Ç¥ GET_COLOR 12 
  95.  "G13A" @Ç¥ GET_COLOR 13 
  96.  "G14A" @Ç¥ GET_COLOR 14 
  97.  "G15A" @Ç¥ GET_COLOR 15 
  98.  "G16A" @Ç¥ GET_COLOR 16 
  99.  "G17A" @Ç¥ GET_COLOR 17 
  100.  "G18A" @Ç¥ GET_COLOR 18 
  101.  "G19A" @Ç¥ GET_COLOR 19 
  102.  "G20A" @Ç¥ GET_COLOR 20 
  103. }
  104.  
  105. { FLASH_NODES _STATE
  106.  "G01A" ~ÇÇ 
  107.  "G02A" ~ÇÇ 
  108.  "G03A" ~ÇÇ 
  109.  "G04A" ~ÇÇ 
  110.  "G05A" ~ÇÇ 
  111.  "G06A" ~ÇÇ 
  112.  "G07A" ~ÇÇ 
  113.  "G08A" ~ÇÇ 
  114.  "G09A" ~ÇÇ 
  115.  "G10A" ~ÇÇ 
  116.  "G11A" ~ÇÇ 
  117.  "G12A" ~ÇÇ 
  118.  "G13A" ~ÇÇ 
  119.  "G14A" ~ÇÇ 
  120.  "G15A" ~ÇÇ 
  121.  "G16A" ~ÇÇ 
  122.  "G17A" ~ÇÇ 
  123.  "G18A" ~ÇÇ 
  124.  "G19A" ~ÇÇ 
  125.  "G20A" ~ÇÇ 
  126. }
  127.  
  128. { FLASH_TRAPS _STATE
  129.  "E01A" ~ÇÇ 
  130.  "E02A" ~ÇÇ 
  131.  "E03A" ~ÇÇ 
  132.  "E04A" ~ÇÇ 
  133.  "E05A" ~ÇÇ 
  134.  "E06A" ~ÇÇ 
  135.  "E07A" ~ÇÇ 
  136.  "E08A" ~ÇÇ 
  137.  "E09A" ~ÇÇ 
  138.  "E10A" ~ÇÇ 
  139.  "E11A" ~ÇÇ 
  140.  "E12A" ~ÇÇ 
  141.  "E13A" ~ÇÇ 
  142.  "E14A" ~ÇÇ 
  143.  "E15A" ~ÇÇ 
  144.  "E16A" ~ÇÇ 
  145.  "E17A" ~ÇÇ 
  146.  "E18A" ~ÇÇ 
  147.  "E19A" ~ÇÇ 
  148.  "E20A" ~ÇÇ 
  149.  "E21A" ~ÇÇ 
  150.  "E22A" ~ÇÇ 
  151.  "E23A" ~ÇÇ 
  152.  "E24A" ~ÇÇ 
  153.  "E25A" ~ÇÇ 
  154.  "E26A" ~ÇÇ 
  155. }
  156.  
  157. { SET_TRAP _INDEX _STATE
  158. N ~ÇÇ 
  159. {
  160. U 1
  161.  "E01A" ~Çü 
  162. X Çü 
  163. U 2
  164.  "E02A" ~Çü 
  165. X Çü 
  166. U 3
  167.  "E03A" ~Çü 
  168. X Çü 
  169. U 4
  170.  "E04A" ~Çü 
  171. X Çü 
  172. U 5
  173.  "E05A" ~Çü 
  174. X Çü 
  175. U 6
  176.  "E06A" ~Çü 
  177. X Çü 
  178. U 7
  179.  "E07A" ~Çü 
  180. X Çü 
  181. U 8
  182.  "E08A" ~Çü 
  183. X Çü 
  184. U 9
  185.  "E09A" ~Çü 
  186. X Çü 
  187. U 10
  188.  "E10A" ~Çü 
  189. X Çü 
  190. U 11
  191.  "E11A" ~Çü 
  192. X Çü 
  193. U 12
  194.  "E12A" ~Çü 
  195. X Çü 
  196. U 13
  197.  "E13A" ~Çü 
  198. X Çü 
  199. U 14
  200.  "E14A" ~Çü 
  201. X Çü 
  202. U 15
  203.  "E15A" ~Çü 
  204. X Çü 
  205. U 16
  206.  "E16A" ~Çü 
  207. X Çü 
  208. U 17
  209.  "E17A" ~Çü 
  210. X Çü 
  211. U 18
  212.  "E18A" ~Çü 
  213. X Çü 
  214. U 19
  215.  "E19A" ~Çü 
  216. X Çü 
  217. U 20
  218.  "E20A" ~Çü 
  219. X Çü 
  220. U 21
  221.  "E21A" ~Çü 
  222. X Çü 
  223. U 22
  224.  "E22A" ~Çü 
  225. X Çü 
  226. U 23
  227.  "E23A" ~Çü 
  228. X Çü 
  229. U 24
  230.  "E24A" ~Çü 
  231. X Çü 
  232. U 25
  233.  "E25A" ~Çü 
  234. X Çü 
  235. U 26
  236.  "E26A" ~Çü 
  237. X Çü 
  238. }
  239. }
  240.  
  241. { GET_MOVE _INDEX
  242. N ~ÇÇ 
  243. {
  244. U 1
  245. é ^ì╛ 
  246. X Çé 
  247. U 2
  248. é ^ì┐ 
  249. X Çé 
  250. U 3
  251. é ^ÄÇ 
  252. X Çé 
  253. U 4
  254. é ^Äü 
  255. X Çé 
  256. U 5
  257. é ^Äé 
  258. X Çé 
  259. U 6
  260. é ^Äâ 
  261. X Çé 
  262. U 7
  263. é ^Ää 
  264. X Çé 
  265. U 8
  266. é ^Äà 
  267. X Çé 
  268. U 9
  269. é ^Äå 
  270. X Çé 
  271. U 10
  272. é ^Äç 
  273. X Çé 
  274. U 11
  275. é ^Äê 
  276. X Çé 
  277. U 12
  278. é ^Äë 
  279. X Çé 
  280. U 13
  281. é ^Äè 
  282. X Çé 
  283. U 14
  284. é ^Äï 
  285. X Çé 
  286. U 15
  287. é ^Äî 
  288. X Çé 
  289. U 16
  290. é ^Äì 
  291. X Çé 
  292. U 17
  293. é ^ÄÄ 
  294. X Çé 
  295. U 18
  296. é ^ÄÅ 
  297. X Çé 
  298. U 19
  299. é ^ÄÉ 
  300. X Çé 
  301. U 20
  302. é ^Äæ 
  303. X Çé 
  304. }
  305. }
  306.  
  307. { SET_MOVE _INDEX _MOVE
  308. N ~ÇÇ 
  309. {
  310. U 1
  311. ^ì╛ = ~Çü 
  312. X Çâ 
  313. U 2
  314. ^ì┐ = ~Çü 
  315. X Çâ 
  316. U 3
  317. ^ÄÇ = ~Çü 
  318. X Çâ 
  319. U 4
  320. ^Äü = ~Çü 
  321. X Çâ 
  322. U 5
  323. ^Äé = ~Çü 
  324. X Çâ 
  325. U 6
  326. ^Äâ = ~Çü 
  327. X Çâ 
  328. U 7
  329. ^Ää = ~Çü 
  330. X Çâ 
  331. U 8
  332. ^Äà = ~Çü 
  333. X Çâ 
  334. U 9
  335. ^Äå = ~Çü 
  336. X Çâ 
  337. U 10
  338. ^Äç = ~Çü 
  339. X Çâ 
  340. U 11
  341. ^Äê = ~Çü 
  342. X Çâ 
  343. U 12
  344. ^Äë = ~Çü 
  345. X Çâ 
  346. U 13
  347. ^Äè = ~Çü 
  348. X Çâ 
  349. U 14
  350. ^Äï = ~Çü 
  351. X Çâ 
  352. U 15
  353. ^Äî = ~Çü 
  354. X Çâ 
  355. U 16
  356. ^Äì = ~Çü 
  357. X Çâ 
  358. U 17
  359. ^ÄÄ = ~Çü 
  360. X Çâ 
  361. U 18
  362. ^ÄÅ = ~Çü 
  363. X Çâ 
  364. U 19
  365. ^ÄÉ = ~Çü 
  366. X Çâ 
  367. U 20
  368. ^Äæ = ~Çü 
  369. X Çâ 
  370. }
  371. }
  372.  
  373. { GET_ROT _INDEX
  374. N ~ÇÇ 
  375. {
  376. U 1
  377. é ^ÄÆ 
  378. X Çä 
  379. U 2
  380. é ^Äô 
  381. X Çä 
  382. U 3
  383. é ^Äö 
  384. X Çä 
  385. U 4
  386. é ^Äò 
  387. X Çä 
  388. U 5
  389. é ^Äû 
  390. X Çä 
  391. U 6
  392. é ^Äù 
  393. X Çä 
  394. U 7
  395. é ^Äÿ 
  396. X Çä 
  397. U 8
  398. é ^ÄÖ 
  399. X Çä 
  400. U 9
  401. é ^ÄÜ 
  402. X Çä 
  403. U 10
  404. é ^Ä¢ 
  405. X Çä 
  406. U 11
  407. é ^Ä£ 
  408. X Çä 
  409. U 12
  410. é ^Ä¥ 
  411. X Çä 
  412. U 13
  413. é ^Ä₧ 
  414. X Çä 
  415. U 14
  416. é ^ă 
  417. X Çä 
  418. U 15
  419. é ^Äá 
  420. X Çä 
  421. U 16
  422. é ^Äí 
  423. X Çä 
  424. U 17
  425. é ^Äó 
  426. X Çä 
  427. U 18
  428. é ^Äú 
  429. X Çä 
  430. U 19
  431. é ^Äñ 
  432. X Çä 
  433. U 20
  434. é ^ÄÑ 
  435. X Çä 
  436. }
  437. }
  438.  
  439. { SET_ROT _INDEX _DIR
  440. N ~ÇÇ 
  441. {
  442. U 1
  443. ^ÄÆ = ~Çü 
  444. X Çà 
  445. U 2
  446. ^Äô = ~Çü 
  447. X Çà 
  448. U 3
  449. ^Äö = ~Çü 
  450. X Çà 
  451. U 4
  452. ^Äò = ~Çü 
  453. X Çà 
  454. U 5
  455. ^Äû = ~Çü 
  456. X Çà 
  457. U 6
  458. ^Äù = ~Çü 
  459. X Çà 
  460. U 7
  461. ^Äÿ = ~Çü 
  462. X Çà 
  463. U 8
  464. ^ÄÖ = ~Çü 
  465. X Çà 
  466. U 9
  467. ^ÄÜ = ~Çü 
  468. X Çà 
  469. U 10
  470. ^Ä¢ = ~Çü 
  471. X Çà 
  472. U 11
  473. ^Ä£ = ~Çü 
  474. X Çà 
  475. U 12
  476. ^Ä¥ = ~Çü 
  477. X Çà 
  478. U 13
  479. ^Ä₧ = ~Çü 
  480. X Çà 
  481. U 14
  482. ^ă = ~Çü 
  483. X Çà 
  484. U 15
  485. ^Äá = ~Çü 
  486. X Çà 
  487. U 16
  488. ^Äí = ~Çü 
  489. X Çà 
  490. U 17
  491. ^Äó = ~Çü 
  492. X Çà 
  493. U 18
  494. ^Äú = ~Çü 
  495. X Çà 
  496. U 19
  497. ^Äñ = ~Çü 
  498. X Çà 
  499. U 20
  500. ^ÄÑ = ~Çü 
  501. X Çà 
  502. }
  503. }
  504.  
  505. { DETERMINE_DIRECTION _COLORDIR
  506. P ~Çü 
  507.  
  508. I ^ì╜ = 1 THEN
  509. {
  510. é ~ÇÇ 
  511. }
  512. ~ÇÇ = ~ÇÇ - 2 
  513.  
  514. ~Çü = @Ç¥ GET_ROT ^ì╜ 
  515. ~ÇÇ = ~ÇÇ - ~Çü 
  516. I ~ÇÇ < 0 THEN
  517. ~ÇÇ = ~ÇÇ + 6
  518. ~ÇÇ = ~ÇÇ + 2 
  519. é ~ÇÇ 
  520. }
  521.  
  522. { CITY_MONITOR
  523. P ~ÇÇ 
  524. P ~Çü 
  525. P ~Çé 
  526. P ~Çâ 
  527. ~Çâ = $üé 
  528. I @Çú THEN é 
  529.  "city"
  530.  
  531.  "YELB" $Ç│ 
  532.  "GRNB" $Ç│ 
  533.  "BLUB" $Ç│ 
  534.  "PURB" $Ç│ 
  535.  "REDB" $Ç│ 
  536.  "ORGB" $Ç│ 
  537.  
  538. å 360 1
  539.  
  540.  
  541. ç 2 5 2
  542. I ^ì╕ THEN
  543. J #ÇÜ
  544.  
  545. :START
  546. ^ì╣ = 0
  547. ^ì║ = 0
  548. ^ì╗ = 0
  549. ^ì╝ = 1
  550. ^ì╜ = 1
  551. @Ç¥ SET_COLOR 1 2
  552. @Ç¥ FLASH_NODES 0
  553. @Ç¥ SET_MOVE 1 1
  554. @Ç¥ SET_ROT 1 0
  555. :STARTLOOP
  556. @Ç¥ FLASH_TRAPS 1
  557. W 2
  558. â 
  559. @Ç¥ FLASH_TRAPS 0
  560. W 2
  561. â 
  562. L #ÇÄ 2
  563.  
  564. :LOOP
  565. @Ç¥ UPDATE_CITY_GRID
  566. â 
  567.  
  568. ~ÇÇ = @Ç¥ GET_COLOR 1
  569. ~ÇÇ ++
  570. I ~ÇÇ = 7 THEN ~ÇÇ = 2
  571. @Ç¥ SET_COLOR 1 ~ÇÇ 
  572. J #ÇÅ 
  573.  
  574. :YELB_BUTTON
  575. @Çå `é▓ 
  576. ~Çü = 2
  577. ~ÇÇ = @Ç¥ DETERMINE_DIRECTION 2
  578. J #Çû 
  579.  
  580. :GRNB_BUTTON
  581. @Çå `äå 
  582. ~Çü = 3
  583. ~ÇÇ = @Ç¥ DETERMINE_DIRECTION 3
  584. J #Çû 
  585.  
  586. :BLUB_BUTTON
  587. @Çå `äê 
  588. ~Çü = 4
  589. ~ÇÇ = @Ç¥ DETERMINE_DIRECTION 4
  590. J #Çû 
  591.  
  592. :PURB_BUTTON
  593. @Çå `䢠
  594. ~Çü = 5
  595. ~ÇÇ = @Ç¥ DETERMINE_DIRECTION 5
  596. J #Çû 
  597.  
  598. :REDB_BUTTON
  599. @Çå `ëë 
  600. ~Çü = 6
  601. ~ÇÇ = @Ç¥ DETERMINE_DIRECTION 6
  602. J #Çû 
  603.  
  604. :ORGB_BUTTON
  605. @Çå `ëè 
  606. ~Çü = 7
  607. ~ÇÇ = @Ç¥ DETERMINE_DIRECTION 7
  608. J #Çû 
  609.  
  610. :PROCESS_RESULT
  611. N ^ì╝ 
  612. {
  613. U 1
  614. N ~ÇÇ 
  615. {
  616. U 2
  617. ^ì╝ = 2
  618. J #Çù 
  619. X Çç 
  620. U 3
  621. ^ì╝ = 2
  622. J #Çÿ 
  623. X Çç 
  624. U 4
  625. ^ì╝ = 11
  626. J #Çù 
  627. X Çç 
  628. U 5
  629. ^ì╝ = 10
  630. J #Çù 
  631. X Çç 
  632. U 6
  633. ^ì╝ = 5
  634. J #Çù 
  635. X Çç 
  636. U 7
  637. ^ì╝ = 1
  638. J #Çù 
  639. X Çç 
  640. }
  641. X Çå 
  642. U 2
  643. N ~ÇÇ 
  644. {
  645. U 2
  646. ^ì╝ = 3
  647. J #Çù 
  648. X Çê 
  649. U 3
  650. ^ì╝ = 3
  651. J #Çÿ 
  652. X Çê 
  653. U 4
  654. ^ì╝ = 4
  655. J #Çÿ 
  656. X Çê 
  657. U 5
  658. ^ì╝ = 11
  659. J #Çù 
  660. X Çê 
  661. U 6
  662. ^ì╝ = 1
  663. J #Çÿ 
  664. X Çê 
  665. U 7
  666. ^ì╝ = 2
  667. J #Çù 
  668. X Çê 
  669. }
  670. X Çå 
  671. U 3
  672. N ~ÇÇ 
  673. {
  674. U 2
  675. ^ì╝ = 4
  676. J #Çù 
  677. X Çë 
  678. U 3
  679. ^ì╝ = 6
  680. J #Çù 
  681. X Çë 
  682. U 4
  683. ^ì╝ = 5
  684. J #Çÿ 
  685. X Çë 
  686. U 5
  687. ^ì╝ = 4
  688. J #Çÿ 
  689. X Çë 
  690. U 6
  691. ^ì╝ = 2
  692. J #Çÿ 
  693. X Çë 
  694. U 7
  695. ^ì╝ = 3
  696. J #Çù 
  697. X Çë 
  698. }
  699. X Çå 
  700. U 4
  701. N ~ÇÇ 
  702. {
  703. U 2
  704. ^ì╝ = 3
  705. J #Çÿ 
  706. X Çè 
  707. U 3
  708. ^ì╝ = 5
  709. J #Çÿ 
  710. X Çè 
  711. U 4
  712. ^ì╝ = 10
  713. J #Çÿ 
  714. X Çè 
  715. U 5
  716. ^ì╝ = 9
  717. J #Çÿ 
  718. X Çè 
  719. U 6
  720. ^ì╝ = 11
  721. J #Çù 
  722. X Çè 
  723. U 7
  724. ^ì╝ = 2
  725. J #Çÿ 
  726. X Çè 
  727. }
  728. X Çå 
  729. U 5
  730. N ~ÇÇ 
  731. {
  732. U 2
  733. ^ì╝ = 6
  734. J #Çù 
  735. X Çï 
  736. U 3
  737. ^ì╝ = 6
  738. J #Çÿ 
  739. X Çï 
  740. U 4
  741. ^ì╝ = 14
  742. J #Çù 
  743. X Çï 
  744. U 5
  745. ^ì╝ = 10
  746. J #Çÿ 
  747. X Çï 
  748. U 6
  749. ^ì╝ = 4
  750. J #Çÿ 
  751. X Çï 
  752. U 7
  753. ^ì╝ = 3
  754. J #Çÿ 
  755. X Çï 
  756. }
  757. X Çå 
  758. U 6
  759. N ~ÇÇ 
  760. {
  761. U 2
  762. ^ì╝ = 7
  763. J #Çù 
  764. X Çî 
  765. U 3
  766. ^ì╝ = 7
  767. J #Çÿ 
  768. X Çî 
  769. U 4
  770. ^ì╝ = 11
  771. J #Çÿ 
  772. X Çî 
  773. U 5
  774. ^ì╝ = 14
  775. J #Çù 
  776. X Çî 
  777. U 6
  778. ^ì╝ = 5
  779. J #Çÿ 
  780. X Çî 
  781. U 7
  782. ^ì╝ = 6
  783. J #Çù 
  784. X Çî 
  785. }
  786. X Çå 
  787. U 7
  788. N ~ÇÇ 
  789. {
  790. U 2
  791. ^ì╝ = 8
  792. J #Çù 
  793. X Çì 
  794. U 3
  795. ^ì╝ = 8
  796. J #Çÿ 
  797. X Çì 
  798. U 4
  799. ^ì╝ = 12
  800. J #Çÿ 
  801. X Çì 
  802. U 5
  803. ^ì╝ = 11
  804. J #Çÿ 
  805. X Çì 
  806. U 6
  807. ^ì╝ = 6
  808. J #Çÿ 
  809. X Çì 
  810. U 7
  811. ^ì╝ = 7
  812. J #Çù 
  813. X Çì 
  814. }
  815. X Çå 
  816. U 8
  817. N ~ÇÇ 
  818. {
  819. U 2
  820. ^ì╝ = 9
  821. J #Çù 
  822. X ÇÄ 
  823. U 3
  824. ^ì╝ = 12
  825. J #Çù 
  826. X ÇÄ 
  827. U 4
  828. ^ì╝ = 13
  829. J #Çÿ 
  830. X ÇÄ 
  831. U 5
  832. ^ì╝ = 12
  833. J #Çÿ 
  834. X ÇÄ 
  835. U 6
  836. ^ì╝ = 7
  837. J #Çÿ 
  838. X ÇÄ 
  839. U 7
  840. ^ì╝ = 8
  841. J #Çù 
  842. X ÇÄ 
  843. }
  844. X Çå 
  845. U 9
  846. N ~ÇÇ 
  847. {
  848. U 2
  849. ^ì╝ = 4
  850. J #Çÿ 
  851. X ÇÅ 
  852. U 3
  853. ^ì╝ = 10
  854. J #Çÿ 
  855. X ÇÅ 
  856. U 4
  857. ^ì╝ = 14
  858. J #Çÿ 
  859. X ÇÅ 
  860. U 5
  861. ^ì╝ = 16
  862. J #Çù 
  863. X ÇÅ 
  864. U 6
  865. ^ì╝ = 13
  866. J #Çù 
  867. X ÇÅ 
  868. U 7
  869. ^ì╝ = 11
  870. J #Çù 
  871. X ÇÅ 
  872. }
  873. X Çå 
  874. U 10
  875. N ~ÇÇ 
  876. {
  877. U 2
  878. ^ì╝ = 5
  879. J #Çÿ 
  880. X ÇÉ 
  881. U 3
  882. ^ì╝ = 14
  883. J #Çù 
  884. X ÇÉ 
  885. U 4
  886. ^ì╝ = 17
  887. J #Çù 
  888. X ÇÉ 
  889. U 5
  890. ^ì╝ = 14
  891. J #Çÿ 
  892. X ÇÉ 
  893. U 6
  894. ^ì╝ = 9
  895. J #Çÿ 
  896. X ÇÉ 
  897. U 7
  898. ^ì╝ = 4
  899. J #Çÿ 
  900. X ÇÉ 
  901. }
  902. X Çå 
  903. U 11
  904. N ~ÇÇ 
  905. {
  906. U 2
  907. ^ì╝ = 7
  908. J #Çÿ 
  909. X Çæ 
  910. U 3
  911. ^ì╝ = 12
  912. J #Çÿ 
  913. X Çæ 
  914. U 4
  915. ^ì╝ = 16
  916. J #Çÿ 
  917. X Çæ 
  918. U 5
  919. ^ì╝ = 15
  920. J #Çÿ 
  921. X Çæ 
  922. U 6
  923. ^ì╝ = 14
  924. J #Çù 
  925. X Çæ 
  926. U 7
  927. ^ì╝ = 6
  928. J #Çÿ 
  929. X Çæ 
  930. }
  931. X Çå 
  932. U 12
  933. N ~ÇÇ 
  934. {
  935. U 2
  936. ^ì╝ = 8
  937. J #Çÿ 
  938. X ÇÆ 
  939. U 3
  940. ^ì╝ = 13
  941. J #Çÿ 
  942. X ÇÆ 
  943. U 4
  944. ^ì╝ = 17
  945. J #Çÿ 
  946. X ÇÆ 
  947. U 5
  948. ^ì╝ = 16
  949. J #Çÿ 
  950. X ÇÆ 
  951. U 6
  952. ^ì╝ = 11
  953. J #Çÿ 
  954. X ÇÆ 
  955. U 7
  956. ^ì╝ = 7
  957. J #Çÿ 
  958. X ÇÆ 
  959. }
  960. X Çå 
  961. U 13
  962. N ~ÇÇ 
  963. {
  964. U 2
  965. ^ì╝ = 12
  966. J #Çù 
  967. X Çô 
  968. U 3
  969. ^ì╝ = 15
  970. J #Çù 
  971. X Çô 
  972. U 4
  973. ^ì╝ = 18
  974. J #Çù 
  975. X Çô 
  976. U 5
  977. ^ì╝ = 17
  978. J #Çÿ 
  979. X Çô 
  980. U 6
  981. ^ì╝ = 12
  982. J #Çÿ 
  983. X Çô 
  984. U 7
  985. ^ì╝ = 8
  986. J #Çÿ 
  987. X Çô 
  988. }
  989. X Çå 
  990. U 14
  991. N ~ÇÇ 
  992. {
  993. U 2
  994. ^ì╝ = 10
  995. J #Çÿ 
  996. X Çö 
  997. U 3
  998. ^ì╝ = 17
  999. J #Çù 
  1000. X Çö 
  1001. U 4
  1002. ^ì╝ = 18
  1003. J #Çÿ 
  1004. X Çö 
  1005. U 5
  1006. ^ì╝ = 19
  1007. J #Çù 
  1008. X Çö 
  1009. U 6
  1010. ^ì╝ = 16
  1011. J #Çù 
  1012. X Çö 
  1013. U 7
  1014. ^ì╝ = 9
  1015. J #Çÿ 
  1016. X Çö 
  1017. }
  1018. X Çå 
  1019. U 15
  1020. N ~ÇÇ 
  1021. {
  1022. U 2
  1023. ^ì╝ = 11
  1024. J #Çÿ 
  1025. X Çò 
  1026. U 3
  1027. ^ì╝ = 16
  1028. J #Çÿ 
  1029. X Çò 
  1030. U 4
  1031. ^ì╝ = 20
  1032. J #Çù 
  1033. X Çò 
  1034. U 5
  1035. ^ì╝ = 19
  1036. J #Çÿ 
  1037. X Çò 
  1038. U 6
  1039. ^ì╝ = 17
  1040. J #Çù 
  1041. X Çò 
  1042. U 7
  1043. ^ì╝ = 14
  1044. J #Çù 
  1045. X Çò 
  1046. }
  1047. X Çå 
  1048. U 16
  1049. N ~ÇÇ 
  1050. {
  1051. U 2
  1052. ^ì╝ = 12
  1053. J #Çÿ 
  1054. X Çû 
  1055. U 3
  1056. ^ì╝ = 17
  1057. J #Çÿ 
  1058. X Çû 
  1059. U 4
  1060. ^ì╝ = 21
  1061. J #Çù 
  1062. X Çû 
  1063. U 5
  1064. ^ì╝ = 20
  1065. J #Çù 
  1066. X Çû 
  1067. U 6
  1068. ^ì╝ = 15
  1069. J #Çÿ 
  1070. X Çû 
  1071. U 7
  1072. ^ì╝ = 11
  1073. J #Çÿ 
  1074. X Çû 
  1075. }
  1076. X Çå 
  1077. U 17
  1078. N ~ÇÇ 
  1079. {
  1080. U 2
  1081. ^ì╝ = 13
  1082. J #Çÿ 
  1083. X Çù 
  1084. U 3
  1085. ^ì╝ = 18
  1086. J #Çù 
  1087. X Çù 
  1088. U 4
  1089. ^ì╝ = 22
  1090. J #Çù 
  1091. X Çù 
  1092. U 5
  1093. ^ì╝ = 21
  1094. J #Çù 
  1095. X Çù 
  1096. U 6
  1097. ^ì╝ = 16
  1098. J #Çÿ 
  1099. X Çù 
  1100. U 7
  1101. ^ì╝ = 12
  1102. J #Çÿ 
  1103. X Çù 
  1104. }
  1105. X Çå 
  1106. U 18
  1107. N ~ÇÇ 
  1108. {
  1109. U 2
  1110. ^ì╝ = 17
  1111. J #Çù 
  1112. X Çÿ 
  1113. U 3
  1114. ^ì╝ = 19
  1115. J #Çÿ 
  1116. X Çÿ 
  1117. U 4
  1118. ^ì╝ = 20
  1119. J #Çÿ 
  1120. X Çÿ 
  1121. U 5
  1122. ^ì╝ = 23
  1123. J #Çù 
  1124. X Çÿ 
  1125. U 6
  1126. ^ì╝ = 19
  1127. J #Çù 
  1128. X Çÿ 
  1129. U 7
  1130. ^ì╝ = 14
  1131. J #Çÿ 
  1132. X Çÿ 
  1133. }
  1134. X Çå 
  1135. U 19
  1136. N ~ÇÇ 
  1137. {
  1138. U 2
  1139. ^ì╝ = 15
  1140. J #Çÿ 
  1141. X ÇÖ 
  1142. U 3
  1143. ^ì╝ = 20
  1144. J #Çù 
  1145. X ÇÖ 
  1146. U 4
  1147. ^ì╝ = 24
  1148. J #Çù 
  1149. X ÇÖ 
  1150. U 5
  1151. ^ì╝ = 20
  1152. J #Çÿ 
  1153. X ÇÖ 
  1154. U 6
  1155. ^ì╝ = 18
  1156. J #Çÿ 
  1157. X ÇÖ 
  1158. U 7
  1159. ^ì╝ = 17
  1160. J #Çù 
  1161. X ÇÖ 
  1162. }
  1163. X Çå 
  1164. U 20
  1165. N ~ÇÇ 
  1166. {
  1167. U 2
  1168. ^ì╝ = 19
  1169. J #Çÿ 
  1170. X ÇÜ 
  1171. U 3
  1172. ^ì╝ = 24
  1173. J #Çù 
  1174. X ÇÜ 
  1175. U 4
  1176. ^ì╝ = 26
  1177. J #Çù 
  1178. X ÇÜ 
  1179. U 5
  1180. ^ì╝ = 25
  1181. J #Çù 
  1182. X ÇÜ 
  1183. U 6
  1184. ^ì╝ = 23
  1185. J #Çù 
  1186. X ÇÜ 
  1187. U 7
  1188. ^ì╝ = 18
  1189. J #Çÿ 
  1190. X ÇÜ 
  1191. }
  1192. X Çå 
  1193. }
  1194.  
  1195. :FAILURE
  1196. @Ç¥ SET_TRAP ^ì╝ 1
  1197. @Çå `ëï 
  1198. â 
  1199. â 
  1200. @Ç¥ SET_TRAP ^ì╝ 0
  1201. â 
  1202. â 
  1203. L #Çù 8
  1204. @Ç¥ SET_TRAP ^ì╝ 1
  1205. W 30
  1206. J #Çì 
  1207.  
  1208. :ADVANCE
  1209. @Çå `ëî 
  1210. I @Ç¥ GET_COLOR ^ì╝ > 1 THEN
  1211. {
  1212.  
  1213. ~Çé = ^ì╜ - 1
  1214. ~Çé = @Ç¥ GET_MOVE ~Çé 
  1215. I ~Çé = ^ì╝ THEN
  1216. {
  1217. ~Çé = @Ç¥ GET_MOVE ^ì╜ 
  1218. @Ç¥ SET_COLOR ~Çé 1 
  1219. ^ì╜ --
  1220. J #ÇÅ 
  1221. }
  1222.  
  1223. J #ÇÖ 
  1224. }
  1225. ^ì╜ ++
  1226. @Ç¥ SET_MOVE ^ì╜ ^ì╝ 
  1227. @Ç¥ SET_COLOR ^ì╝ ~Çü 
  1228.  
  1229. ~ÇÇ = ~Çü - ~ÇÇ 
  1230. ~ÇÇ = ~ÇÇ + 3
  1231. I ~ÇÇ < 0 THEN
  1232. ~ÇÇ = ~ÇÇ + 6
  1233. E I ~ÇÇ > 6 THEN
  1234. ~ÇÇ = ~ÇÇ - 6
  1235. @Ç¥ SET_ROT ^ì╜ ~ÇÇ 
  1236. I ^ì╜ = 20 THEN
  1237. {
  1238. @Ç¥ UPDATE_CITY_GRID
  1239. â 
  1240. â 
  1241. J #ÇÜ
  1242. }
  1243. J #ÇÅ 
  1244.  
  1245. :FEEDBACK
  1246. @Çå `ë╝ 
  1247. @Ç¥ SET_COLOR ^ì╝ 2 
  1248. â 
  1249. @Ç¥ UPDATE_CITY_GRID
  1250. @Ç¥ SET_COLOR ^ì╝ 3 
  1251. â 
  1252. @Ç¥ UPDATE_CITY_GRID
  1253. @Ç¥ SET_COLOR ^ì╝ 4 
  1254. â 
  1255. @Ç¥ UPDATE_CITY_GRID
  1256. @Ç¥ SET_COLOR ^ì╝ 5 
  1257. â 
  1258. @Ç¥ UPDATE_CITY_GRID
  1259. @Ç¥ SET_COLOR ^ì╝ 6 
  1260. â 
  1261. @Ç¥ UPDATE_CITY_GRID
  1262. @Ç¥ SET_COLOR ^ì╝ 7 
  1263. â 
  1264. @Ç¥ UPDATE_CITY_GRID
  1265. L #ÇÖ 5
  1266. J #Çì 
  1267.  
  1268. :WIN
  1269. @Çå `ë╜ 
  1270. @Ç¥ FLASH_NODES 2
  1271. â 
  1272. @Ç¥ FLASH_NODES 3
  1273. â 
  1274. @Ç¥ FLASH_NODES 4
  1275. â 
  1276. @Ç¥ FLASH_NODES 5
  1277. â 
  1278. @Ç¥ FLASH_NODES 6
  1279. â 
  1280. @Ç¥ FLASH_NODES 7
  1281. â 
  1282. L #ÇÜ 6
  1283. ^ì╕ = $üâ 
  1284. I ^ç╖ THEN
  1285. J #Ç¢ 
  1286. ~Çâ = $üâ 
  1287.  
  1288.  
  1289. :ESCAPE_BUTTON
  1290. @Çå `èÇ 
  1291. I ~Çâ == $üâ THEN
  1292. {
  1293. â 
  1294. â 
  1295. â 
  1296. â 
  1297. @Çì BRINGONTHEALIEN
  1298. }
  1299. }
  1300.  
  1301.  
  1302. //$ 26 - version number
  1303.