home *** CD-ROM | disk | FTP | other *** search
/ PC Gamer 6 / 1995-05_Disc_6.iso / bioforge / script / robocntl.scp < prev    next >
Text File  |  1995-02-22  |  6KB  |  625 lines
  1.  
  2.  
  3.  
  4.  
  5.  
  6.  
  7. { GR_ROBOTCONTROLPANEL _CHARACTER_ID
  8. P ~Çü 
  9. I @Çú THEN é 
  10. I ~ÇÇ = $âì THEN
  11. @Çì SHOW_USEBOT
  12. E 
  13. @Çì SHOW_FORKLIFT
  14. ~Çü = 0
  15. o 
  16.  "mlbt"
  17. @Çì USEBOTMESSAGE
  18. J #Çé 
  19. :LOOP
  20. I ^êé == 1 && ~ÇÇ == 1 THEN
  21. {
  22.  "lupb" "/!" $Ç╖ 
  23.  "ldnb" "/!" $Ç╖ 
  24.  "rtdb" "/!" $Ç╖ 
  25.  "ltdb" "/!" $Ç╖ 
  26.  "updb" "/!" $Ç╖ 
  27.  "dndb" "/!" $Ç╖ 
  28.  
  29. }
  30.  
  31. â 
  32. J #Çü 
  33.  
  34. :ENTER_BUTTONS
  35. m 
  36.  
  37.  
  38.  "pwrb" $Ç│ "POWER /FCONTACT /GSTROM" $Ç╕ 
  39. I ~ÇÇ == 1 THEN
  40. {
  41. I ^êé THEN
  42. {
  43.  "manb" "MANUAL /FMANUEL/GMANUELL" $Ç╖ 
  44.  "autb" "AUTOMATIC /FAUTO/GAUTOMATISCH" $Ç╖ 
  45. }
  46. E 
  47. {
  48.  "manb" "MANUAL /FMANUEL/GMANUELL" ^ïú $Ç╕ 
  49.  "autb" "AUTOMATIC /FAUTO/GAUTOMATISCH" ^ïñ $Ç╕ 
  50. I ^ïí == 0 THEN
  51. {
  52. ^ïú = $Ç│ 
  53. ^ïñ = $Ç│ 
  54.  "lupb" "/!" $Ç▓ 
  55.  "ldnb" "/!" $Ç▓ 
  56.  "rtdb" "/!" $Ç▓ 
  57.  "ltdb" "/!" $Ç▓ 
  58.  "updb" "/!" $Ç▓ 
  59.  "dndb" "/!" $Ç▓ 
  60. }
  61. }
  62. }
  63. E 
  64. {
  65. I ^åö THEN
  66. {
  67.  "manb" "MANUAL /FMANUEL/GMANUELL" ^ïú $Ç╖ 
  68.  "autb" "AUTOMATIC /FAUTO/GAUTOMATISCH" ^ïñ $Ç╖ 
  69. }
  70. E 
  71. {
  72.  "manb" "MANUAL /FMANUEL/GMANUELL" ^ïú $Ç╕ 
  73.  "autb" "AUTOMATIC /FAUTO/GAUTOMATISCH" ^ïñ $Ç╕ 
  74. }
  75. }
  76.  
  77.  
  78.  
  79. I ~ÇÇ == $âì THEN
  80. {
  81. I ^åö THEN
  82.  "CAMV" "GRD3" 
  83. E 
  84. {
  85. @Ç¢ USE_BOT 
  86.  
  87.  "CAMV" "CE42" 
  88. t USE_BOT 
  89. }
  90. }
  91. E 
  92. {
  93. I @Ç¢ CR_BOT == 0 THEN ! "No Robot!"
  94.  
  95.  "CAMV" "CTR4" 
  96. t CR_BOT 
  97. }
  98. I ^ïú = $Ç│ THEN
  99. J #Çü 
  100. :ADD_CONTROL_BUTTONS
  101. I ~ÇÇ == 1 THEN
  102. {
  103. I ^êé == 1 THEN
  104. {
  105.  "lupb" "/!" $Ç╖ 
  106.  "ldnb" "/!" $Ç╖ 
  107.  "rtdb" "/!" $Ç╖ 
  108.  "ltdb" "/!" $Ç╖ 
  109.  "updb" "/!" $Ç╖ 
  110.  "dndb" "/!" $Ç╖ 
  111.  
  112. }
  113. E 
  114. {
  115.  "rtdb" "/! "
  116.  "ltdb" "/! "
  117.  "updb" "/! "
  118.  "dndb" "/! "
  119.  "lupb" "/! " $Ç│ 
  120.  "ldnb" "/! " $Ç│ 
  121.  
  122. }
  123. }
  124. E 
  125. {
  126. I ^åö THEN
  127. {
  128.  "rtdb" "/! " $Ç╖ 
  129.  "ltdb" "/! " $Ç╖ 
  130.  "updb" "/! " $Ç╖ 
  131.  "dndb" "/! " $Ç╖ 
  132.  "copb" "/! " $Ç╖ 
  133.  "ccdb" "/! " $Ç╖ 
  134.  "hypb" "/! " $Ç╖ 
  135. }
  136. E 
  137. {
  138.  "rtdb" "/! "
  139.  "ltdb" "/! "
  140.  "updb" "/! "
  141.  "dndb" "/! "
  142.  "copb" "/! " $Ç│ 
  143.  "ccdb" "/! " $Ç│ 
  144.  "hypb" "/! "
  145. }
  146. }
  147. J #Çü 
  148. :RTDB_BUTTON
  149. @Çå `ü« 
  150.  
  151. I ~ÇÇ == $âì THEN
  152. {
  153. I ^ïá = 2 THEN
  154. J #Çü 
  155. }
  156. E 
  157. {
  158. I ^ïí = 2 THEN
  159. J #Çü 
  160. }
  161.  
  162. I ^êü == 0 THEN
  163. {
  164. I ^ïó = 1 AND ~ÇÇ != $âì THEN
  165. M TURN_RIGHT2 CONTINUE
  166. E 
  167. M TURN_RIGHT CONTINUE
  168.  
  169.  
  170.  
  171.  
  172. W 5
  173. }
  174. J #Çü 
  175. :LTDB_BUTTON
  176. @Çå `ü« 
  177.  
  178. I ~ÇÇ == $âì THEN
  179. {
  180. I ^ïá = 2 THEN
  181. J #Çü 
  182. }
  183. E 
  184. {
  185. I ^ïí = 2 THEN
  186. J #Çü 
  187. }
  188.  
  189. I ^êü == 0 THEN
  190. {
  191. I ^ïó = 1 AND ~ÇÇ != $âì THEN
  192. M TURN_LEFT2 CONTINUE
  193. E 
  194. M TURN_LEFT CONTINUE
  195.  
  196.  
  197.  
  198.  
  199. W 5
  200. }
  201. J #Çü 
  202. :UPDB_BUTTON
  203. @Çå `ü« 
  204.  
  205. I ~ÇÇ == $âì THEN
  206. {
  207. I ^ïá = 2 THEN
  208. J #Çü 
  209. }
  210. E 
  211. {
  212. I ^ïí = 2 THEN
  213. J #Çü 
  214. }
  215.  
  216. I ^êü == 0 THEN 
  217. {
  218. I ^ïó = 1 AND ~ÇÇ != $âì THEN
  219. M WALK2 CONTINUE
  220. E 
  221. M WALK CONTINUE
  222. }
  223. J #Çü 
  224. :DNDB_BUTTON
  225. @Çå `ü« 
  226.  
  227. I ~ÇÇ == $âì THEN
  228. {
  229. I ^ïá = 2 THEN
  230. J #Çü 
  231. }
  232. E 
  233. {
  234. I ^ïí = 2 THEN
  235. J #Çü 
  236. }
  237.  
  238. I ^êü == 0 THEN
  239. {
  240. I ^ïó = 1 AND ~ÇÇ != $âì THEN
  241. M WALK_BACK2 CONTINUE
  242. E 
  243. M WALK_BACK CONTINUE
  244. }
  245. J #Çü 
  246. :RTDB_RELEASED
  247. :LTDB_RELEASED
  248. :UPDB_RELEASED
  249. :DNDB_RELEASED
  250.  
  251. I ~ÇÇ == $âì THEN
  252. {
  253. I ^ïá = 2 THEN
  254. J #Çü 
  255. }
  256. E 
  257. {
  258. I ^ïí = 2 THEN
  259. J #Çü 
  260. }
  261. I ^êü == 0 THEN 
  262. {
  263. I ^ïó = 1 AND ~ÇÇ != $âì THEN 
  264. M STAND2 CONTINUE
  265. E 
  266. M STAND CONTINUE
  267. }
  268. J #Çü 
  269. :CCDB_BUTTON
  270. @Çå `ü« 
  271.  
  272. I ~ÇÇ == $âì THEN
  273. {
  274. I ^ïá = 2 THEN
  275. J #Çü 
  276. }
  277. E 
  278. {
  279. I ^ïí = 2 THEN
  280. J #Çü 
  281. }
  282.  
  283. M PICK_UP_RTHAND
  284. J #Çü 
  285. :COPB_BUTTON
  286. @Çå `ü« 
  287.  
  288. I ~ÇÇ == $âì THEN
  289. {
  290. I ^ïá = 2 THEN
  291. J #Çü 
  292. }
  293. E 
  294. {
  295. I ^ïí = 2 THEN
  296. J #Çü 
  297. }
  298.  
  299. M PUT_DOWN_RTHAND
  300. J #Çü 
  301. :LUPB_BUTTON
  302.  
  303.  
  304. I ^êü THEN
  305. J #Çü 
  306. @Çå `ü« 
  307.  
  308. I ~ÇÇ == $âì THEN
  309. {
  310. I ^ïá = 2 THEN
  311. J #Çü 
  312. }
  313. E 
  314. {
  315. I ^ïí = 2 THEN
  316. J #Çü 
  317. }
  318.  
  319. I ^ïó = 0 THEN
  320. {
  321. M LIFT
  322. ^ïó = 1
  323. M STAND2 CONTINUE
  324. }
  325. J #Çü 
  326. :LDNB_BUTTON
  327.  
  328.  
  329. I ^êü THEN
  330. J #Çü 
  331. @Çå `ü« 
  332.  
  333. I ~ÇÇ == $âì THEN
  334. {
  335. I ^ïá = 2 THEN
  336. J #Çü 
  337. }
  338. E 
  339. {
  340. I ^ïí = 2 THEN
  341. J #Çü 
  342. }
  343.  
  344. I ^ïó = 1 THEN
  345. {
  346. M LOWER
  347. ^ïó = 0
  348. M STAND CONTINUE
  349. }
  350. J #Çü 
  351. :HYPB_BUTTON
  352. @Çå `ü» 
  353.  
  354. I ~ÇÇ == $âì THEN
  355. {
  356. I ^ïá = 2 THEN
  357. J #Çü 
  358. }
  359. E 
  360. {
  361. I ^ïí = 2 THEN
  362. J #Çü 
  363. }
  364.  
  365. M EXTEND_SYRINGE
  366. W 30
  367. M RETRACT_SYRINGE
  368. J #Çü 
  369. :AUTB_BUTTON
  370. @Çå `ü░ 
  371.  
  372.  
  373.  
  374.  
  375. I ^ïá = 2 || ^ïí = 2 THEN J #Çü 
  376. ^ïú = $Ç│ 
  377. ^ïñ = $Ç╡ 
  378.  
  379. I ~ÇÇ == $âì THEN
  380. {
  381. I ^ïí = 1 THEN
  382. @Çì DEACTIVATE_FORKLIFT
  383. }
  384. E 
  385. {
  386. I ^ïá = 1 THEN
  387. @Çì DEACTIVATE_USE_BOT
  388. }
  389. J #Çé 
  390. :MANB_BUTTON
  391. @Çå `ü« 
  392.  
  393. I ~ÇÇ == $âì THEN
  394. {
  395. I ^ïá = 2 THEN
  396. J #Çü 
  397. }
  398. E 
  399. {
  400. I ^ïí = 2 THEN
  401. J #Çü 
  402. }
  403. ^ïú = $Ç╡ 
  404. ^ïñ = $Ç│ 
  405.  "manb" $Ç╡ $Ç╕ 
  406.  "autb" $Ç│ $Ç╕ 
  407.  
  408. I ~ÇÇ == $âì THEN
  409. {
  410. I ^ïá = 0 THEN
  411. @Çì ACTIVATE_USE_BOT
  412. }
  413. E 
  414. {
  415. I ^ïí = 0 THEN
  416. @Çì ACTIVATE_FORKLIFT
  417. }
  418.  
  419.  
  420.  
  421. J #Çâ 
  422. J #Çü 
  423.  
  424.  
  425.  
  426.  
  427.  
  428.  
  429.  
  430. :PWRB_BUTTON 
  431. :ESCAPE_BUTTON
  432. @Çå `ü▒ 
  433.  
  434. I ~ÇÇ == $âì THEN
  435. {
  436. I ^ïá = 2 THEN
  437. J #Çü 
  438. }
  439. E 
  440. {
  441. I ^ïí = 2 THEN
  442. J #Çü 
  443. }
  444. t PLAYER 
  445. o 
  446.  
  447.  `Ç« 
  448. C UNLOCK
  449.  
  450. I ^êé = 1 THEN é 
  451.  
  452. I @Ç¢ CR_BOT THEN
  453. {
  454. I @Ç¡ CURFIG CTR THEN Y CTR1 CTR2 CTR3 CTR4 CTR5 CTR6 CTR7
  455. I @Ç¡ CURFIG HLC THEN Y AIR2 ELC2 HLC1 HLC2 HLC3 HLC4 HLC5
  456. I @Ç¡ CURFIG AIR THEN Y AIR1 AIR2
  457. I @Ç¡ CURFIG RTR THEN Y AIR1 RTR1 RTR2 RTR3 RTR4 RTR5 RTR6
  458. }
  459. E ! "Can't find Cr_Bot (Forklift Bot)" 
  460. I @Ç¢ PLAYER THEN
  461. E ! "Can't find Player!"
  462. }
  463.  
  464.  
  465. { ACTIVATE_USE_BOT
  466.  
  467. @Ç¢ USE_BOT
  468.  
  469.  
  470.  
  471. ^ïá = 2 
  472. M ACTIVATE
  473. ^ïá = 1
  474. A OFF
  475. }
  476.  
  477. { DEACTIVATE_USE_BOT
  478.  
  479. @Ç¢ USE_BOT
  480.  
  481.  
  482. ^ïá = 2 
  483. M DEACTIVATE
  484. q DEACTIVATED 0
  485. o 
  486. ^ïá = 0
  487. A ON
  488. }
  489. { SHOW_USEBOT
  490.  
  491. I ^åö THEN é 
  492. I @Ç¢ USE_BOT THEN
  493. {
  494. Y CE11 CE12 CE21 CE22 CE23 CE24 CE31 CE32 CE33
  495.  CE41 CE42 CE43
  496.  BLK1 BLK2 BLK3 BLK4 BLK5 BLK6 BLK7
  497.  GRD1 GRD2 GRD3 GRD4 HAL1
  498. @Ç¥ NURSEBOT_WOUNDS
  499. }
  500. E 
  501. ! "Can't find USE_BOT" 
  502. }
  503. { PARTIALLY_HIDE_USEBOT
  504.  
  505. I ^åö THEN é 
  506. I @Ç¢ USE_BOT THEN
  507. {
  508. Y CE41 CE42 CE43 CE32 CE33
  509. @Ç¥ NURSEBOT_WOUNDS
  510. ¥ AVDGS 175
  511. }
  512. E 
  513. ! "Can't find USE_BOT" 
  514. }
  515. { HIDE_USEBOT
  516.  
  517. I ^åö THEN é 
  518. I @Ç¢ USE_BOT THEN
  519. Y CE41 CE42 CE43
  520. E 
  521. ! "Can't find USE_BOT" 
  522. }
  523. { LASER_HIT_USE_BOT
  524. ^åö = 1
  525. @Çå `ǽ 
  526. Ü 20 20 20 1 
  527. ú BOOM WHITE CURFIG 
  528. ú SPARKS MEDI CURFIG 
  529. K CURFIG
  530. l CURFIG CONTINUE
  531. }
  532. { TNFABOLT_HIT_USE_BOT
  533. ^åö = 1
  534. @Çå `ǽ 
  535. Ü 20 20 20 1 
  536. ú BOOM WHITE CURFIG 
  537. ú SPARKS MEDI CURFIG 
  538. K CURFIG
  539. l CURFIG CONTINUE
  540. }
  541.  
  542.  
  543. { ACTIVATE_FORKLIFT
  544.  
  545. @Ç¢ CR_BOT
  546.  
  547.  
  548.  
  549. ^ïí = 2 
  550. M ACTIVATE
  551. ^ïí = 1
  552. A OFF
  553. }
  554.  
  555. { DEACTIVATE_FORKLIFT
  556.  
  557. @Ç¢ CR_BOT
  558.  
  559.  
  560. ^ïí = 2 
  561. I ^ïó = 1 THEN
  562. {
  563. M LOWER
  564. ^ïó = 0
  565. }
  566. M DEACTIVATE
  567. q DEACTIVATED 0
  568. o 
  569. ^ïí = 0
  570. A ON
  571. }
  572. { NOACCESS_FORKLIFT
  573.  
  574.  "wrnl" $Ç│ "THIS IS A RESTRICTED AREA! /FENTREE INTERDITE /GVORSICHT: ZUTRITT VERWEIGERT!" 
  575. @Çå `Çç 
  576. W 60
  577.  "wrnl" 0 "/! "
  578. }
  579. { SHOW_FORKLIFT
  580. I ^êé = 1 THEN é 
  581.  
  582. I @Ç¢ CR_BOT THEN
  583. {
  584. ¥ VERBOTEN 150
  585. ¥ STAY_OUT 250
  586. I @Ç¡ CURFIG AIR THEN ^êö = 1
  587.  
  588.  
  589. }
  590. E ! "Can't find Cr_Bot (Forklift Bot)" 
  591. }
  592. { USEBOTMESSAGE
  593. P ~ÇÇ 
  594. :TOP
  595. I @Çú == 0 THEN é 
  596. I ^åö THEN é 
  597. â 
  598. ~ÇÇ = 0
  599. I @Ç¢ USE_BOT THEN
  600. {
  601.  
  602. I @Ç╗ CURFIG AVDBAR1 <= 110 && ~ÇÇ == 0 THEN
  603. ~ÇÇ = 1
  604. I @Ç╗ CURFIG AVDBAR2 <= 110 && ~ÇÇ == 0 THEN
  605. ~ÇÇ = 1
  606. I @Çó ^åæ THEN
  607. I @Ç╗ CURFIG AVDBAR3 <= 110 && ~ÇÇ == 0 THEN
  608. ~ÇÇ = 1
  609. I @Çó ^åÆ THEN
  610. I @Ç╗ CURFIG AVDBAR4 <= 110 && ~ÇÇ == 0 THEN
  611. ~ÇÇ = 1
  612. }
  613. I ~ÇÇ THEN
  614. {
  615.  "wrnl" $Ç│ "THIS IS A RESTRICTED AREA! /FENTREE INTERDITE /GVORSICHT: ZUTRITT VERWEIGERT!" 
  616. @Çå `Çç 
  617. W 60
  618.  "wrnl" 0 "/! "
  619. }
  620. J #Çí
  621. }
  622.  
  623.  
  624. //$ 26 - version number
  625.