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