home *** CD-ROM | disk | FTP | other *** search
/ PC Gamer 6 / 1995-05_Disc_6.iso / bioforge / script / landmon.scp < prev    next >
Text File  |  1995-02-20  |  5KB  |  600 lines
  1.  
  2.  
  3.  
  4.  
  5.  
  6.  
  7.  
  8. { AIRLOCK_MONITOR
  9. I @Çú THEN é 
  10. I ^ç╗ THEN
  11. J #ÇÄ
  12. ^ç╜ = 4
  13.  "kypd"
  14. m 
  15.  
  16.  "clrb" $Ç│ "RESET/FCHANGER/GNEU"
  17.  "kyla" 2
  18.  
  19.  "ULTB" $Ç│ $Ç╕ 
  20.  "UCTB" $Ç│ $Ç╕ 
  21.  "URTB" $Ç│ $Ç╕ 
  22.  "CLTB" $Ç│ $Ç╕ 
  23.  "CCTB" $Ç│ $Ç╕ 
  24.  "CRTB" $Ç│ $Ç╕ 
  25.  "LLTB" $Ç│ $Ç╕ 
  26.  "LCTB" $Ç│ $Ç╕ 
  27.  "LRTB" $Ç│ $Ç╕ 
  28. W 45
  29.  
  30. å 360 1
  31.  
  32.  
  33. ç 10 5 10
  34. J #Çï 
  35.  
  36. :LOOP
  37. â 
  38.  
  39. J #Çü 
  40.  
  41. :ULTB_BUTTON
  42. @Çå `ü¡ 
  43. c ^ç╝ 0 
  44. I ^ç╖ = 0 THEN
  45. {
  46. c ^ç╝ 5 
  47. c ^ç╝ 7 
  48. }
  49. E 
  50. {
  51. N ^ç╜ 
  52. {
  53. U 0
  54. c ^ç╝ 1 
  55. c ^ç╝ 2 
  56. c ^ç╝ 3 
  57. c ^ç╝ 4 
  58. c ^ç╝ 6 
  59. c ^ç╝ 8 
  60. X ÇÇ 
  61. U 1
  62. c ^ç╝ 2 
  63. X ÇÇ 
  64. U 2
  65. c ^ç╝ 1 
  66. X ÇÇ 
  67. U 3
  68. c ^ç╝ 6 
  69. X ÇÇ 
  70. U 4
  71. c ^ç╝ 8 
  72. X ÇÇ 
  73. U 5
  74. c ^ç╝ 1 
  75. c ^ç╝ 4 
  76. X ÇÇ 
  77. U 6
  78. c ^ç╝ 3 
  79. X ÇÇ 
  80. U 7
  81. c ^ç╝ 3 
  82. c ^ç╝ 4 
  83. X ÇÇ 
  84. U 8
  85. c ^ç╝ 4 
  86. X ÇÇ 
  87. }
  88. ^ç╜ = 0
  89. }
  90. J #Çî 
  91.  
  92. :UCTB_BUTTON
  93. @Çå `ü¡ 
  94. c ^ç╝ 1 
  95. I ^ç╖ = 0 THEN
  96. {
  97. c ^ç╝ 6 
  98. c ^ç╝ 8 
  99. }
  100. E 
  101. {
  102. N ^ç╜ 
  103. {
  104. U 0
  105. c ^ç╝ 1 
  106. X Çü 
  107. U 1
  108. c ^ç╝ 0 
  109. c ^ç╝ 2 
  110. c ^ç╝ 4 
  111. c ^ç╝ 7 
  112. X Çü 
  113. U 2
  114. c ^ç╝ 0 
  115. X Çü 
  116. U 3
  117. X Çü 
  118. U 4
  119. c ^ç╝ 7 
  120. X Çü 
  121. U 5
  122. X Çü 
  123. U 6
  124. c ^ç╝ 3 
  125. c ^ç╝ 4 
  126. X Çü 
  127. U 7
  128. c ^ç╝ 4 
  129. X Çü 
  130. U 8
  131. c ^ç╝ 4 
  132. c ^ç╝ 5 
  133. X Çü 
  134. }
  135. ^ç╜ = 1
  136. }
  137. J #Çî 
  138.  
  139. :URTB_BUTTON
  140. @Çå `ü¡ 
  141. c ^ç╝ 2 
  142. I ^ç╖ = 0 THEN
  143. {
  144. c ^ç╝ 3 
  145. c ^ç╝ 7 
  146. }
  147. E 
  148. {
  149. N ^ç╜ 
  150. {
  151. U 0
  152. c ^ç╝ 1 
  153. X Çé 
  154. U 1
  155. c ^ç╝ 0 
  156. X Çé 
  157. U 2
  158. c ^ç╝ 0 
  159. c ^ç╝ 1 
  160. c ^ç╝ 4 
  161. c ^ç╝ 5 
  162. c ^ç╝ 6 
  163. c ^ç╝ 8 
  164. X Çé 
  165. U 3
  166. c ^ç╝ 1 
  167. c ^ç╝ 4 
  168. X Çé 
  169. U 4
  170. c ^ç╝ 6 
  171. X Çé 
  172. U 5
  173. c ^ç╝ 8 
  174. X Çé 
  175. U 6
  176. c ^ç╝ 4 
  177. X Çé 
  178. U 7
  179. c ^ç╝ 4 
  180. c ^ç╝ 5 
  181. X Çé 
  182. U 8
  183. c ^ç╝ 5 
  184. X Çé 
  185. }
  186. ^ç╜ = 2
  187. }
  188. J #Çî 
  189.  
  190. :CLTB_BUTTON
  191. @Çå `ü¡ 
  192. c ^ç╝ 3 
  193. I ^ç╖ = 0 THEN
  194. {
  195. c ^ç╝ 2 
  196. c ^ç╝ 8 
  197. }
  198. E 
  199. {
  200. N ^ç╜ 
  201. {
  202. U 0
  203. c ^ç╝ 6 
  204. X Çâ 
  205. U 1
  206. X Çâ 
  207. U 2
  208. c ^ç╝ 1 
  209. c ^ç╝ 4 
  210. X Çâ 
  211. U 3
  212. c ^ç╝ 0 
  213. c ^ç╝ 4 
  214. c ^ç╝ 5 
  215. c ^ç╝ 6 
  216. X Çâ 
  217. U 4
  218. c ^ç╝ 5 
  219. X Çâ 
  220. U 5
  221. c ^ç╝ 4 
  222. X Çâ 
  223. U 6
  224. c ^ç╝ 0 
  225. X Çâ 
  226. U 7
  227. X Çâ 
  228. U 8
  229. c ^ç╝ 4 
  230. c ^ç╝ 7 
  231. X Çâ 
  232. }
  233. ^ç╜ = 3
  234. }
  235. J #Çî 
  236.  
  237. :CCTB_BUTTON
  238. @Çå `ü¡ 
  239. c ^ç╝ 4 
  240. I ^ç╖ = 0 THEN
  241. {
  242. c ^ç╝ 0 
  243. c ^ç╝ 2 
  244. c ^ç╝ 6 
  245. c ^ç╝ 8 
  246. }
  247. E 
  248. {
  249. N ^ç╜ 
  250. {
  251. U 0
  252. c ^ç╝ 8 
  253. X Çä 
  254. U 1
  255. c ^ç╝ 7 
  256. X Çä 
  257. U 2
  258. c ^ç╝ 6 
  259. X Çä 
  260. U 3
  261. c ^ç╝ 5 
  262. X Çä 
  263. U 4
  264. c ^ç╝ 0 
  265. c ^ç╝ 1 
  266. c ^ç╝ 2 
  267. c ^ç╝ 3 
  268. c ^ç╝ 5 
  269. c ^ç╝ 6 
  270. c ^ç╝ 7 
  271. c ^ç╝ 8 
  272. X Çä 
  273. U 5
  274. c ^ç╝ 3 
  275. X Çä 
  276. U 6
  277. c ^ç╝ 2 
  278. X Çä 
  279. U 7
  280. c ^ç╝ 1 
  281. X Çä 
  282. U 8
  283. c ^ç╝ 0 
  284. X Çä 
  285. }
  286. ^ç╜ = 4
  287. }
  288. J #Çî 
  289.  
  290. :CRTB_BUTTON
  291. @Çå `ü¡ 
  292. c ^ç╝ 5 
  293. I ^ç╖ = 0 THEN
  294. {
  295. c ^ç╝ 0 
  296. c ^ç╝ 6 
  297. }
  298. E 
  299. {
  300. N ^ç╜ 
  301. {
  302. U 0
  303. c ^ç╝ 1 
  304. c ^ç╝ 4 
  305. X Çà 
  306. U 1
  307. X Çà 
  308. U 2
  309. c ^ç╝ 8 
  310. X Çà 
  311. U 3
  312. c ^ç╝ 4 
  313. X Çà 
  314. U 4
  315. c ^ç╝ 3 
  316. X Çà 
  317. U 5
  318. c ^ç╝ 2 
  319. c ^ç╝ 3 
  320. c ^ç╝ 4 
  321. c ^ç╝ 8 
  322. X Çà 
  323. U 6
  324. c ^ç╝ 4 
  325. c ^ç╝ 7 
  326. X Çà 
  327. U 7
  328. X Çà 
  329. U 8
  330. c ^ç╝ 2 
  331. X Çà 
  332. }
  333. ^ç╜ = 5
  334. }
  335. J #Çî 
  336.  
  337. :LLTB_BUTTON
  338. @Çå `ü¡ 
  339. c ^ç╝ 6 
  340. I ^ç╖ = 0 THEN
  341. {
  342. c ^ç╝ 1 
  343. c ^ç╝ 5 
  344. }
  345. E 
  346. {
  347. N ^ç╜ 
  348. {
  349. U 0
  350. c ^ç╝ 3 
  351. X Çå 
  352. U 1
  353. c ^ç╝ 3 
  354. c ^ç╝ 4 
  355. X Çå 
  356. U 2
  357. c ^ç╝ 4 
  358. X Çå 
  359. U 3
  360. c ^ç╝ 0 
  361. X Çå 
  362. U 4
  363. c ^ç╝ 2 
  364. X Çå 
  365. U 5
  366. c ^ç╝ 4 
  367. c ^ç╝ 7 
  368. X Çå 
  369. U 6
  370. c ^ç╝ 0 
  371. c ^ç╝ 2 
  372. c ^ç╝ 3 
  373. c ^ç╝ 4 
  374. c ^ç╝ 7 
  375. c ^ç╝ 8 
  376. X Çå 
  377. U 7
  378. c ^ç╝ 8 
  379. X Çå 
  380. U 8
  381. c ^ç╝ 7 
  382. X Çå 
  383. }
  384. ^ç╜ = 6
  385. }
  386. J #Çî 
  387.  
  388. :LCTB_BUTTON
  389. @Çå `ü¡ 
  390. c ^ç╝ 7 
  391. I ^ç╖ = 0 THEN
  392. {
  393. c ^ç╝ 0 
  394. c ^ç╝ 2 
  395. }
  396. E 
  397. {
  398. N ^ç╜ 
  399. {
  400. U 0
  401. c ^ç╝ 3 
  402. c ^ç╝ 4 
  403. X Çç 
  404. U 1
  405. c ^ç╝ 4 
  406. X Çç 
  407. U 2
  408. c ^ç╝ 4 
  409. c ^ç╝ 5 
  410. X Çç 
  411. U 3
  412. X Çç 
  413. U 4
  414. c ^ç╝ 1 
  415. X Çç 
  416. U 5
  417. X Çç 
  418. U 6
  419. c ^ç╝ 8 
  420. X Çç 
  421. U 7
  422. c ^ç╝ 1 
  423. c ^ç╝ 4 
  424. c ^ç╝ 6 
  425. c ^ç╝ 8 
  426. X Çç 
  427. U 8
  428. c ^ç╝ 6 
  429. X Çç 
  430. }
  431. ^ç╜ = 7
  432. }
  433. J #Çî 
  434.  
  435. :LRTB_BUTTON
  436. @Çå `ü¡ 
  437. c ^ç╝ 8 
  438. I ^ç╖ = 0 THEN
  439. {
  440. c ^ç╝ 1 
  441. c ^ç╝ 3 
  442. }
  443. E 
  444. {
  445. N ^ç╜ 
  446. {
  447. U 0
  448. c ^ç╝ 4 
  449. X Çê 
  450. U 1
  451. c ^ç╝ 4 
  452. c ^ç╝ 5 
  453. X Çê 
  454. U 2
  455. c ^ç╝ 5 
  456. X Çê 
  457. U 3
  458. c ^ç╝ 4 
  459. c ^ç╝ 7 
  460. X Çê 
  461. U 4
  462. c ^ç╝ 0 
  463. X Çê 
  464. U 5
  465. c ^ç╝ 2 
  466. X Çê 
  467. U 6
  468. c ^ç╝ 7 
  469. X Çê 
  470. U 7
  471. c ^ç╝ 6 
  472. X Çê 
  473. U 8
  474. c ^ç╝ 0 
  475. c ^ç╝ 2 
  476. c ^ç╝ 4 
  477. c ^ç╝ 5 
  478. c ^ç╝ 6 
  479. c ^ç╝ 7 
  480. X Çê 
  481. }
  482. ^ç╜ = 8
  483. }
  484. J #Çî 
  485.  
  486. :CLRB_BUTTON
  487. ^ç╝ = @Çà 0 511 
  488. I ^ç╝ = 495 THEN
  489. J #Çï 
  490. I ^ç╝ = 455 THEN
  491. J #Çï 
  492.  
  493. :UPDATE_GRID
  494. I @ÇÅ ^ç╝ 0 THEN
  495.  "ULTB" $Ç╡ $Ç╕ 
  496. E 
  497.  "ULTB" $Ç│ $Ç╕ 
  498. I @ÇÅ ^ç╝ 1 THEN
  499.  "UCTB" $Ç╡ $Ç╕ 
  500. E 
  501.  "UCTB" $Ç│ $Ç╕ 
  502. I @ÇÅ ^ç╝ 2 THEN
  503.  "URTB" $Ç╡ $Ç╕ 
  504. E 
  505.  "URTB" $Ç│ $Ç╕ 
  506. I @ÇÅ ^ç╝ 3 THEN
  507.  "CLTB" $Ç╡ $Ç╕ 
  508. E 
  509.  "CLTB" $Ç│ $Ç╕ 
  510. I @ÇÅ ^ç╝ 4 THEN
  511.  "CCTB" $Ç╡ $Ç╕ 
  512. E 
  513.  "CCTB" $Ç│ $Ç╕ 
  514. I @ÇÅ ^ç╝ 5 THEN
  515.  "CRTB" $Ç╡ $Ç╕ 
  516. E 
  517.  "CRTB" $Ç│ $Ç╕ 
  518. I @ÇÅ ^ç╝ 6 THEN
  519.  "LLTB" $Ç╡ $Ç╕ 
  520. E 
  521.  "LLTB" $Ç│ $Ç╕ 
  522. I @ÇÅ ^ç╝ 7 THEN
  523.  "LCTB" $Ç╡ $Ç╕ 
  524. E 
  525.  "LCTB" $Ç│ $Ç╕ 
  526. I @ÇÅ ^ç╝ 8 THEN
  527.  "LRTB" $Ç╡ $Ç╕ 
  528. E 
  529.  "LRTB" $Ç│ $Ç╕ 
  530. @Çå `üÉ 60 
  531.  
  532. :CHECK_WIN
  533. I ^ç╖ = 0 THEN
  534. {
  535. i LEX AIRLOCK1
  536. I ^ç╝ = 495 THEN 
  537. J #ÇÄ
  538. J #Çü 
  539. }
  540. E 
  541. {
  542. i LEX AIRLOCK2
  543. I ^ç╝ = 455 THEN 
  544. J #ÇÄ
  545. J #Çü 
  546. }
  547.  
  548. :WIN
  549.  "kyla" 1
  550.  
  551. :WIN_LOOP
  552.  "ULTB" $Ç│ $Ç╕ 
  553.  "UCTB" $Ç│ $Ç╕ 
  554.  "URTB" $Ç│ $Ç╕ 
  555.  "CLTB" $Ç│ $Ç╕ 
  556.  "CCTB" $Ç│ $Ç╕ 
  557.  "CRTB" $Ç│ $Ç╕ 
  558.  "LLTB" $Ç│ $Ç╕ 
  559.  "LCTB" $Ç│ $Ç╕ 
  560.  "LRTB" $Ç│ $Ç╕ 
  561. @Çå `ü▓ 
  562. â 
  563. â 
  564. I @ÇÅ ^ç╝ 0 THEN
  565.  "ULTB" $Ç╡ $Ç╕ 
  566. I @ÇÅ ^ç╝ 1 THEN
  567.  "UCTB" $Ç╡ $Ç╕ 
  568. I @ÇÅ ^ç╝ 2 THEN
  569.  "URTB" $Ç╡ $Ç╕ 
  570. I @ÇÅ ^ç╝ 3 THEN
  571.  "CLTB" $Ç╡ $Ç╕ 
  572. I @ÇÅ ^ç╝ 4 THEN
  573.  "CCTB" $Ç╡ $Ç╕ 
  574. I @ÇÅ ^ç╝ 5 THEN
  575.  "CRTB" $Ç╡ $Ç╕ 
  576. I @ÇÅ ^ç╝ 6 THEN
  577.  "LLTB" $Ç╡ $Ç╕ 
  578. I @ÇÅ ^ç╝ 7 THEN
  579.  "LCTB" $Ç╡ $Ç╕ 
  580. I @ÇÅ ^ç╝ 8 THEN
  581.  "LRTB" $Ç╡ $Ç╕ 
  582. @Çå `ü▓ 
  583. â 
  584. â 
  585. L #ÇÅ 4
  586. â 
  587. â 
  588. @Çå `ü▓ 
  589. W 30
  590. ^ç╗ = $üâ 
  591.  
  592.  
  593. :ESCAPE_BUTTON
  594. @Çå `ü▓ 
  595.  
  596. }
  597.  
  598.  
  599. //$ 26 - version number
  600.