home *** CD-ROM | disk | FTP | other *** search
/ PC Gamer 6 / 1995-05_Disc_6.iso / bioforge / script / brian.scp < prev    next >
Text File  |  1994-12-21  |  4KB  |  395 lines

  1.  
  2.  
  3. { BRIAN
  4. < BEACH = -4308 -4033 -75 >
  5. < CHAOS = 75 -218 54 >
  6. < TOWER = 134 -217 280 >
  7. < CONTROL = 158 -322 19 >
  8. < LANDPAD = -112 -274 101 >
  9. < DIGSITE = 248 125 177 >
  10. < TANKS = 112 -745 -12 >
  11. < TUNROOM = 45 -123 107 >
  12. }
  13. { BOMBBLAST
  14. @Çè ^éÑ +1 0 14 2 
  15. }
  16. { BRIAN_TEST0
  17.  ^烠
  18. }
  19. { SHOWBATT
  20. I @Çó ^àï THEN
  21. Q "The battery is being drained by the Reflect Suit" CONTINUE
  22. W 1 SECOND
  23. I @ÇÜ MY_BATTERY != 1 THEN
  24. {
  25. Q "cant find my_battery!"
  26. é 
  27. }
  28. Q "Battery Charge: %d" .ÇüÇÇ 
  29. }
  30.  
  31. { SETTEMPLESCENE
  32. ^äü = 1
  33. ^êÇ = $üâ 
  34. ^ç╖ = $üâ 
  35.  
  36. a ^é░ 1
  37. e WTALKY
  38. f INVENTORY
  39. @Ç¥ SETUPMARINES
  40. }
  41. { LEXMOTION
  42. :TOP
  43. I ^çí == 0 THEN é 
  44. â 
  45. I ^ç₧ > 0 THEN
  46. {
  47. I @Çö STAND OR @Çö COMBAT_STAND THEN
  48. {
  49. J #Çå
  50. }
  51. {
  52. I @Çó ^烠== $üâ THEN
  53. {
  54.  ^烠
  55. }
  56. }
  57. }
  58. }
  59. { DIEFLUFFY
  60. P ~ÇÇ 
  61. ~ÇÇ = 280
  62. ^äù = 0
  63. @Çì CS_GUNNERYSTATIONMONITOR
  64. I @Ç¢ ACIDD != 1 THEN
  65. {
  66. Q "Can't find Fluffy! Quitting current process!" 
  67. é 
  68. }
  69. @Çå `Çá 
  70.  
  71. @Çå `åû 150 1024 
  72.  
  73. @Çì EXPLODEFLUFFY
  74. G BEAST_5
  75. £ -90 GRADUAL
  76. M DIE CONTINUE
  77. W ~ÇÇ 
  78.  
  79. @Çì SPLASH
  80. W 20
  81.  
  82. G BEAST_1
  83. W 5
  84. ^äù = 1
  85. }
  86. { RESETUSEBOT
  87. F NURSEBOT 6666 6666 6666
  88. n CURFIG USE_BOT
  89. I @Ç¢ USE_BOT THEN
  90. {
  91. A OFF
  92. r CURFIG OFF
  93. Z CURFIG OFF
  94. u CURFIG ON
  95. è ON
  96. ï PLAYER
  97.  
  98. G UBOTLOC
  99.  
  100.  
  101.  
  102. ª USEALTI MAXIMUM
  103.  
  104. I ^ïá = 0 THEN
  105. {
  106. £ 0
  107. q DEACTIVATED 0
  108. }
  109. ¥ AVDBAR1 100
  110. ¥ AVDBAR2 100
  111. ¥ AVDBAR3 100
  112. ¥ AVDBAR4 100
  113. ¥ WAY_PT2 180
  114. ¥ GETMEAT 80
  115. }
  116. E Q "Can't find Use_BOT!" 
  117. }
  118. { BRIAN_TEST1
  119. @Ç¢ PLAYER
  120. e BLOCK
  121. @ÇÜ BLOCK
  122. f RTHAND
  123. e BLASTER
  124. @ÇÜ BLASTER
  125. f INVENTORY
  126. }
  127. { BRIAN_TEST2
  128. ^ç╖ = 1
  129. @Ç¢ B_GUARD
  130. ï PLAYER
  131. ¥ BLAST_1 150
  132. ¥ BLAST_2 150
  133. }
  134. { BRIAN_TEST3
  135. P ~ÇÇ 
  136. P ~Çü 
  137. P ~Çé 
  138. P ~Çâ 
  139. P ~Çä 
  140. ~ÇÇ = 900
  141. ~Çä = 0
  142. :LOOP
  143. ~Çü = ~ÇÇ / 100
  144. ~Çü = 10 - ~Çü 
  145. ~Çé = ~ÇÇ % 100
  146. ~Çé = ~Çé / 10
  147. ~Çé = 10 - ~Çé 
  148. ~Çâ = ~ÇÇ % 10
  149. ~Çâ = 10 - ~Çâ 
  150. ~Çä ++
  151. ~ÇÇ --
  152. I ~Çä < 900 THEN J #Çî 
  153. }
  154. { BRIAN_TEST4
  155. @Ç¢ PLAYER
  156. G FIREBTN1
  157. }
  158. { BRIAN_TEST5
  159. ^àÿ = 900
  160. @Ç¢ PLAYER
  161. .ÇéÇÇ = 100
  162. A ON
  163. @ÇÜ BOMB
  164. f RTHAND
  165. ^àû = @Çì WARHEAD_TIMER 
  166. }
  167. { BRIAN_TEST6
  168. @Ç¢ ACID
  169. C BCHR
  170. G -4935 -4195 -100
  171. £ 180
  172. M RISE CONTINUE
  173. W 2
  174.  
  175.  
  176. }
  177. { BRIAN_TEST7
  178. @Ç¢ ACID
  179. Q "2D Distance from Fluffy to Beast_1: %d" @Ç╗ CURFIG BEAST_1
  180. }
  181. { BRIAN_TEST8
  182. @Ç¢ ACID
  183. Q "Distance from Fluffy to Lex: %d" @Çò 
  184. }
  185. { FORM
  186. I @Ç⌐ HARD THEN ù LEX
  187. E ù HARD
  188. @Ç¢ PLAYER
  189. }
  190. { MOVEFORKBOT
  191. @Ç¢ CR_BOT
  192. G AL1_AUTO
  193. }
  194. { FORKCAM
  195. @Ç¢ CR_BOT
  196.  AIR1 AIR2 ELC2 HLC1 HLC2 HLC3 HLC4 HLC5
  197.  OPR1 OPR5 RTR6
  198. }
  199. { RESETBOMB
  200. I @Çó ^àû == $üâ THEN
  201.  ^àû 
  202. I @Çó ^àò == $üâ THEN
  203.  ^àò 
  204. I @Çó ^àù == $üâ THEN
  205.  ^àù 
  206. e BOMB
  207. f RTHAND
  208. ^é¿ = 1 
  209. ^àÉ = 0 
  210. ^àæ = 0 
  211. ^àÆ = 0 
  212. ^àô = 0 
  213. ^àö = 0 
  214. ^àò = 0 
  215. ^àû = 0 
  216. ^àù = 0 
  217. ^àÿ = 900 
  218. ^àû = @Çì WARHEAD_TIMER 
  219. }
  220. { GOTOMB
  221. @Ç¢ PLAYER
  222. G TOMB_LOC
  223. £ -59
  224. }
  225. { RESETTOMB
  226. ^Ī = 1 
  227. ^Ī = 0
  228. ^âö = 1
  229. ^âò = 1
  230. ^âù = 0
  231. ^âÄ = 0
  232. ^âÅ = 1
  233. @Çì TOMB_SPARKLE
  234. f INVENTORY
  235. }
  236. { BRIAN_TEST_OLD 
  237. I @Ç¢ PLAYER THEN
  238. {
  239.  
  240. I @Çæ ANYWHERE MONBAT = 0 THEN
  241. {
  242.  
  243. I @ÇÜ DANEBAT THEN
  244. {
  245. n CURITEM MONBAT
  246. M REMOVE_BATT
  247. i "Lex" "dane" 
  248. Q "Lex now has the battery"
  249. f CARRY
  250.  
  251. I @Ç¥ DANE_DEAD = 1 THEN
  252. é 
  253.  
  254. {
  255. I @Ç¢ DANE THEN
  256. {
  257. M DEATH
  258. .ÇéÇÇ = 0
  259. A OFF
  260. }
  261. E Q "Can't find Dane" 
  262. }
  263. }
  264. E Q "Can't find DaneBat" 
  265. }
  266. E Q "Lex already has the battery"
  267. }
  268. E Q "Can't find player" 
  269. { BRIAN_TEST2_OLD
  270. P ~ÇÇ 
  271. P ~Çü 
  272. P ~Çé 
  273. P ~Çâ 
  274. P ~Çä 
  275. P ~Çà 
  276. P ~Çå 
  277. ~Çâ = @Ç╝ CURFIG DEMO
  278. ~Çå = ~Çâ 
  279. ~ÇÇ = @Ç¿ CURFIG DEMO
  280. I ~ÇÇ == 180 THEN ~ÇÇ = -180
  281. ~Çü = ~ÇÇ - 90
  282. ~Çé = ~ÇÇ + 90
  283. ~Çä = ~ÇÇ + 180
  284. ~Çà = ~ÇÇ - 180
  285. Q "Demo is %d degrees relative to Lex" ~ÇÇ CONTINUE
  286.  
  287. I @Ç╝ CURFIG DEMO > 300 THEN é 
  288.  
  289. I ~ÇÇ IN -60 60 THEN
  290. {
  291. £ ~ÇÇ GRADUAL
  292. G DEMO WALK
  293. M STAND
  294. }
  295.  
  296. I ~ÇÇ NOTIN -120 120 THEN
  297. {
  298. I ~ÇÇ < 0 THEN
  299. {
  300. £ ~Çä GRADUAL
  301. J #ÇÜ 
  302. }
  303. I ~ÇÇ >= 0 THEN
  304. {
  305. £ ~Çà GRADUAL
  306. J #ÇÜ 
  307. }
  308. }
  309.  
  310. I ~ÇÇ IN 60 120 THEN
  311. {
  312. £ ~Çü GRADUAL
  313. J #Ç₧ 
  314. }
  315.  
  316. I ~ÇÇ IN -120 -60 THEN
  317. {
  318. £ ~Çé GRADUAL
  319. J #Ç£ 
  320. }
  321.  
  322. :WALK_BACKWARDS
  323. M WALK_BACK CONTINUE
  324. :LOC_B
  325. â 
  326.  
  327. ~Çâ = @Ç╝ CURFIG DEMO
  328. ! ~Çâ 
  329. ! ~Çå 
  330. I ~Çâ >= ~Çå THEN
  331. {
  332. Q "Went too far!" CONTINUE
  333. M STAND
  334. é 
  335. }
  336. ~Çå = ~Çâ 
  337. I @Ç╝ CURFIG DEMO > 20 THEN J #Ç¢ 
  338. M STAND
  339. é 
  340.  
  341. :SIDESTEP_RIGHT
  342. M SIDESTEP_RIGHT CONTINUE
  343. :LOC_SR
  344. â 
  345.  
  346. ~Çâ = @Ç╝ CURFIG DEMO
  347. ! ~Çâ 
  348. ! ~Çå 
  349. I ~Çâ >= ~Çå THEN
  350. {
  351. Q "Went too far!" CONTINUE
  352. M STAND
  353. é 
  354. }
  355. ~Çå = ~Çâ 
  356. ! ~Çâ 
  357. I @Ç╝ CURFIG DEMO > 20 THEN J #Ç¥ 
  358. M STAND
  359. é 
  360.  
  361. :SIDESTEP_LEFT
  362. M SIDESTEP_LEFT CONTINUE
  363. :LOC_SL
  364. â 
  365.  
  366. ~Çâ = @Ç╝ CURFIG DEMO
  367. ! ~Çâ 
  368. ! ~Çå 
  369. I ~Çâ >= ~Çå THEN
  370. {
  371. Q "Went too far!" CONTINUE
  372. M STAND
  373. é 
  374. }
  375. ~Çå = ~Çâ 
  376. ! ~Çâ 
  377. I @Ç╝ CURFIG DEMO > 20 THEN J #ǃ 
  378. M STAND
  379. é 
  380. }
  381.  
  382. //$ 26 - version number
  383.