home *** CD-ROM | disk | FTP | other *** search
/ The Best of Select: Games 4 / CD_1.iso / bioforge / script / beachmon.scp < prev    next >
Text File  |  1995-02-21  |  3KB  |  393 lines
  1.  
  2.  
  3. { MISSLE_MONITOR
  4. P ~ÇÇ 
  5. P ~Çü 
  6. P ~Çé 
  7. P ~Çâ 
  8.  "masm"
  9. ~ÇÇ = 1
  10. ~Çü = 1
  11. ~Çé = 1
  12. ~Çâ = 1
  13.  "no1a" ~ÇÇ 
  14.  "no2a" ~Çü 
  15.  "no3a" ~Çé 
  16.  "no4a" ~Çâ 
  17. :LOOP
  18.  
  19. â 
  20. J #Çü 
  21. :ESCAPE_BUTTON
  22. @Çå `ü▓ 200 -1024 
  23.  
  24.  
  25. }
  26.  
  27.  
  28.  
  29. { WPN_MON_USE
  30. I @Çä IN 10 90 THEN
  31. {
  32. M LOOK_AT_MON FREEZE
  33. @Ç¥ CS_GUNNERYSTATIONMONITOR
  34. M STAND CONTINUE
  35. W 5 SECONDS
  36. i LEX DSMON
  37. }
  38. }
  39.  
  40. { CS_GUNNERYSTATIONMONITOR
  41. P ~ÇÇ 
  42. P ~Çü 
  43.  
  44. P ~Çé 
  45.  
  46. I @Çú THEN é 
  47. ^ê▒ = @Çç `åÖ 
  48.  ^ê▒ 0 
  49. I @Çó ^àÜ != 1 && ^àƒ == 1 THEN
  50. {
  51. ^àÜ = @Çì SHOW_STATIC
  52. }
  53.  
  54. ~ÇÇ = 0
  55. ~Çü = 0
  56. ^àÜ = 0
  57.  "wpnm"
  58.  
  59. C UNLOCK
  60. C "BCHM"
  61.  "VIEV" "BCHM"
  62.  
  63.  "RETA" 1
  64. ~Çé = @Çì XYRANDOMPROCESS
  65. :UPDATE
  66.  
  67.  
  68.  
  69.  
  70.  
  71.  
  72.  
  73.  
  74.  "AR1A" 2
  75.  "AR1L" $Ç▓ " "
  76.  "AR2A" 2
  77.  "AR2L" $Ç▓ " "
  78.  "AR3A" 2
  79.  "AR3L" $Ç▓ " "
  80.  "AR4A" 2
  81.  "AR4L" $Ç▓ " "
  82. N ~ÇÇ 
  83. {
  84. U 1
  85.  "AR1A" 1
  86.  "AR1L" $Ç│ "Armed/FArmé/GBereit"
  87. X ÇÇ 
  88. U 2
  89.  "AR2A" 1
  90.  "AR2L" $Ç│ "Armed/FArmé/GBereit"
  91. X ÇÇ 
  92. U 3
  93.  "AR3A" 1
  94.  "AR3L" $Ç│ "Armed/FArmé/GBereit"
  95. X ÇÇ 
  96. }
  97. I ~Çü = 0 THEN
  98. {
  99.  
  100.  "PRTB" $Ç│ "PORT/FBABORD/GLINKS" 
  101.  
  102.  "STRB" $Ç╖ "STARBOARD/FTRIBORD/GRECHTS" 
  103. }
  104. E 
  105. {
  106.  
  107.  "PRTB" $Ç╖ "PORT/FBABORD/GLINKS" 
  108.  
  109.  "STRB" $Ç│ "STARBOARD/FTRIBORD/GRECHTS" 
  110. }
  111.  
  112.  
  113.  
  114.  
  115. I @ÇÅ ^äÿ 1 AND ~Çü = 0 THEN
  116.  "MS1B" $Ç│ "1" 
  117. E 
  118.  "MS1B" $Ç╖ "1" 
  119. I @ÇÅ ^äÿ 2 AND ~Çü = 0 THEN
  120.  "MS2B" $Ç│ "2" 
  121. E 
  122.  "MS2B" $Ç╖ "2" 
  123. I @ÇÅ ^äÿ 3 AND ~Çü = 0 THEN
  124.  "MS3B" $Ç│ "3" 
  125. E 
  126.  "MS3B" $Ç╖ "3" 
  127.  
  128.  "MS4B" $Ç╖ "4" 
  129.  
  130.  
  131.  
  132. I ~ÇÇ != 0 THEN
  133.  "FIRB" $Ç│ "FIRE/FFEU/GFEUER" 
  134. E 
  135.  "FIRB" $Ç╖ "FIRE/FFEU/GFEUER" 
  136.  
  137.  
  138.  "XITB" $Ç│ "EXIT/FSORTIR/GZURÜCK" 
  139. :LOOP
  140.  
  141. â 
  142. J #Çå 
  143.  
  144.  
  145. :STRB_BUTTON
  146. @Çå `ü¡ 
  147.  
  148. ~Çü = 0
  149.  
  150. C UNLOCK
  151. C "BCHM"
  152.  "VIEV" "BCHM"
  153.  
  154. ~ÇÇ = 0
  155. I ^àƒ == $üé THEN
  156. {
  157.  ^ê▒ 0 
  158.  ^àÜ 
  159.  "STAA" 0
  160. }
  161. J #Çà 
  162.  
  163.  
  164. :PRTB_BUTTON
  165.  ^ê▒ 150 
  166. @Çå `ü¡ 
  167.  
  168. ~Çü = 1
  169.  
  170. ~ÇÇ = 0
  171.  
  172. ^àÜ = @Çì SHOW_STATIC
  173. J #Çà 
  174.  
  175.  
  176. :MS1B_BUTTON
  177. I ^䣠== $üâ THEN
  178. {
  179. @Çå `ü« 
  180. ~ÇÇ = 1
  181. }
  182. E 
  183. @Çå `ÇÄ 
  184. J #Çà 
  185.  
  186.  
  187. :MS2B_BUTTON
  188. I ^䣠== $üâ THEN
  189. {
  190. @Çå `ü« 
  191. ~ÇÇ = 2
  192. }
  193. E 
  194. @Çå `ÇÄ 
  195. J #Çà 
  196.  
  197.  
  198. :MS3B_BUTTON
  199. I ^䣠== $üâ THEN
  200. {
  201. @Çå `ü« 
  202. ~ÇÇ = 3
  203. }
  204. E 
  205. @Çå `ÇÄ 
  206. J #Çà 
  207.  
  208. :FIRB_BUTTON
  209. @Çå `ü» 
  210.  
  211. I ~ÇÇ != 0 THEN
  212. {
  213.  
  214. I ^䣠== $üâ THEN
  215. {
  216.  
  217. b ^äÿ ~ÇÇ 
  218.  
  219. ~ÇÇ = 0
  220. @Çì MISSLE_LAUNCH
  221. }
  222. }
  223. J #Çà 
  224.  
  225. :XITB_BUTTON
  226. :ESCAPE_BUTTON
  227. @Çå `ü▓ 200 -1024 
  228.  
  229. I ^àƒ == 1 THEN
  230. {
  231. I @Çó ^ࢠTHEN
  232.  ^ࢠ
  233.  
  234. I @Ç¢ ACIDD THEN @Çì REMOVEBEAST
  235. }
  236.  ^ê▒ 
  237. I @Çó ~Çé THEN  ~Çé 
  238. I @Çó ^àÜ THEN  ^àÜ 
  239.  
  240. C LND5
  241. C UNLOCK
  242. }
  243. { XYRANDOMPROCESS
  244. P ~ÇÇ 
  245. :LOOP
  246.  
  247. ~ÇÇ = @Çà 1 9
  248. N ~ÇÇ 
  249. {
  250. U 1
  251.  "RETL" $Ç│ "141, 33"
  252. X Çü 
  253. U 2
  254.  "RETL" $Ç│ "585,419"
  255. X Çü 
  256. U 3
  257.  "RETL" $Ç│ " 01,918"
  258. X Çü 
  259. U 4
  260.  "RETL" $Ç│ "674,825"
  261. X Çü 
  262. U 5
  263.  "RETL" $Ç│ "377,821"
  264. X Çü 
  265. U 6
  266.  "RETL" $Ç│ "102,508"
  267. X Çü 
  268. U 7
  269.  "RETL" $Ç│ "339,018"
  270. X Çü 
  271. U 8
  272.  "RETL" $Ç│ "222, 19"
  273. X Çü 
  274. U 9
  275.  "RETL" $Ç│ " 23,192"
  276. X Çü 
  277. }
  278. â 
  279. J #ÇÉ 
  280. }
  281.  
  282. { SHOW_STATIC
  283.  ^ê▒ 150 
  284. :LOOP
  285.  "STAA" 1
  286. â 
  287.  "STAA" 2
  288. â 
  289.  "STAA" 3
  290. â 
  291. I @Çú THEN J #ÇÆ 
  292.  ^ê▒ 0 
  293.  "STAA" 0
  294. }
  295.  
  296. { MISSLE_LAUNCH
  297. P ~ÇÇ 
  298. ^䣠= $üé 
  299.  
  300. ~ÇÇ = @Çà 0 2 * 1024
  301. @Çå `åÿ 255 ~ÇÇ 
  302.  
  303.  
  304.  
  305.  
  306.  
  307.  
  308. :LOOP
  309. ^äÖ ++
  310. â 
  311.  
  312. I ^äÖ = 48 THEN
  313. {
  314. I @Çó ^àí && ^àƒ == 0 THEN
  315. {
  316. ^àƒ = 1
  317. ^ࢠ= @Çì KILLFLUFFY
  318. @Ç¥ EXPLODEMISSILE
  319. }
  320. E 
  321. @Çì MISSLE_BOOM
  322. }
  323. L #Çö 106 
  324. ^äÖ = 0
  325. ^䣠= $üâ 
  326. }
  327.  
  328. { MISSLE_BOOM
  329.  
  330.  
  331. I ^àƒ != 0 THEN
  332. {
  333. @Ç¥ EXPLODEMISSILE
  334. é 
  335. }
  336.  
  337. I @Çó ^àú == $üé AND @Çó ^àí == $üé THEN
  338. {
  339.  
  340. I @Çó ^àó == $üé THEN
  341. ^àú = @Çì MISSILEGOBOOM
  342. }
  343.  
  344. @Çì SHOW_STATIC2 1 2
  345. @Ç¥ EXPLODEMISSILE
  346. }
  347. { EXPLODEMISSILE
  348.  
  349. P ~ÇÇ 
  350.  
  351.  
  352.  
  353. ~ÇÇ = @Çà 0 2 * 1024
  354. @Çå `åû 150 ~ÇÇ 
  355.  
  356.  
  357.  
  358.  
  359.  
  360. I ^àñ == 0 THEN @Çì MISSLE_DAMAGE
  361. }
  362.  
  363. { MISSLE_DAMAGE
  364.  
  365. ^àñ = 1
  366. :LOOP
  367. ^䢠++
  368. â 
  369. I ^䢠= 31 THEN
  370.  
  371. ^䢠= 2 
  372. L #Çÿ 
  373. ^䢠= 0
  374. }
  375. { MISSILE_LAUNCH2
  376. P ~ÇÇ 
  377. ^䣠= $üé 
  378. ^àƒ = 1
  379. :ANIM
  380. ^äÖ ++
  381. â 
  382. L #ÇÜ 24 
  383. ~ÇÇ = @Çà 0 2 * 1024
  384. @Çå `åû 150 ~ÇÇ 
  385.  
  386. ^ࢠ= @Çì KILLFLUFFY
  387.  
  388. ^䣠= $üâ 
  389. }
  390.  
  391.  
  392. //$ 26 - version number
  393.