home *** CD-ROM | disk | FTP | other *** search
/ PC Gamer 6 / 1995-05_Disc_6.iso / bioforge / script / common.scp < prev    next >
Text File  |  1995-02-24  |  4KB  |  339 lines
  1. { RUNDEMO
  2. :LOOP
  3. @Ç¥ RUNCHAOSDEMO
  4. @Ç¥ RUNTOWERDEMO
  5. @Ç¥ RUNCONTROLDEMO
  6. @Ç¥ RUNTUNROOMDEMO
  7.  
  8.  
  9. î $éï $é╕ 
  10. }
  11. { RUNCHAOSDEMO
  12. S CHAOS
  13. @Ç¥ DEMOCHAOS
  14. é 
  15. }
  16. { FIGUREHITBYMISSILE
  17. ║ ON
  18. I @Ç╖ CURITEM IN -45 45 THEN
  19. {
  20.  
  21.  
  22. @Ç¥ RECOILNORTH
  23. }
  24. E I @Ç╖ CURITEM IN 45 135 THEN
  25. {
  26. @Ç¥ RECOILEAST
  27. }
  28. E I @Ç╖ CURITEM IN -135 -45 THEN
  29. {
  30. @Ç¥ RECOILWEST
  31. }
  32. E 
  33. {
  34. @Ç¥ RECOILSOUTH
  35. }
  36. }
  37. { RECOILNORTH
  38. I @Çä IN -45 45 THEN
  39. {
  40.  
  41.  
  42. M KNOCKED_FORWARD
  43. @Çì RESETFALL
  44. M GET_UP_FORWARD
  45. }
  46. E I @Çä IN 45 135 THEN
  47. {
  48. M FALL_LEFT
  49. @Çì RESETFALL
  50. M GET_UP_LEFT
  51. }
  52. E I @Çä IN -135 -45 THEN
  53. {
  54. M FALL_RIGHT
  55. @Çì RESETFALL
  56. M GET_UP_RIGHT
  57. }
  58. E 
  59. {
  60. M FALL_BACKWARD
  61. @Çì RESETFALL
  62. M GET_UP_BACK
  63. }
  64. }
  65. { RECOILWEST
  66. I @Çä IN -45 45 THEN
  67. {
  68. M FALL_LEFT
  69. @Çì RESETFALL
  70. M GET_UP_LEFT
  71. }
  72. E I @Çä IN 45 135 THEN
  73. {
  74. M FALL_BACKWARD
  75. @Çì RESETFALL
  76. M GET_UP_BACK
  77. }
  78. E I @Çä IN -135 -45 THEN
  79. {
  80. M KNOCKED_FORWARD
  81. @Çì RESETFALL
  82. M GET_UP_FORWARD
  83. }
  84. E 
  85. {
  86. M FALL_RIGHT
  87. @Çì RESETFALL
  88. M GET_UP_RIGHT
  89. }
  90. }
  91. { RECOILEAST
  92. I @Çä IN -45 45 THEN
  93. {
  94. M FALL_RIGHT
  95. @Çì RESETFALL
  96. M GET_UP_RIGHT
  97. }
  98. E I @Çä IN 45 135 THEN
  99. {
  100. M KNOCKED_FORWARD
  101. @Çì RESETFALL
  102. M GET_UP_FORWARD
  103. }
  104. E I @Çä IN -135 -45 THEN
  105. {
  106. M FALL_LEFT
  107. @Çì RESETFALL
  108. M GET_UP_LEFT
  109. }
  110. E 
  111. {
  112. M FALL_BACKWARD
  113. @Çì RESETFALL
  114. M GET_UP_BACK
  115. }
  116. }
  117. { RECOILSOUTH
  118. I @Çä IN -45 45 THEN
  119. {
  120. M FALL_BACKWARD
  121. @Çì RESETFALL
  122. M GET_UP_BACK
  123. }
  124. E I @Çä IN 45 135 THEN
  125. {
  126. M FALL_RIGHT
  127. @Çì RESETFALL
  128. M GET_UP_RIGHT
  129. }
  130. E I @Çä IN -135 -45 THEN
  131. {
  132. M FALL_LEFT
  133. @Çì RESETFALL
  134. M GET_UP_LEFT
  135. }
  136. E 
  137. {
  138. M KNOCKED_FORWARD
  139. @Çì RESETFALL
  140. M GET_UP_FORWARD
  141. }
  142. }
  143. { RESETFALL
  144. W 1 SECOND
  145. ║ OFF
  146. }
  147. { LEVEL1TREMORS
  148. P ~ÇÇ 
  149. P ~Çü 
  150. @Ç¢ PLAYER 
  151. :TOP
  152. I ^êÇ THEN é 
  153.  
  154. W @Çà 300 600 SECONDS
  155.  
  156. I ^Ç╢ OR @Çú OR @Ç┐ OR @Ç╛ = $üé THEN
  157. J #Çî 
  158. :CALL_QUAKE
  159. I ^êÇ THEN é 
  160. @Ç¥ MAKE_EARTHQUAKE
  161. J #Çè
  162. :WAIT_FOR_SHIT
  163. W 30 SECONDS
  164. I ^Ç╢ OR @Çú OR @Ç┐ OR @Ç╛ = $üé THEN
  165. J #Çî 
  166. J #Çï 
  167. }
  168. { MAKE_EARTHQUAKE
  169. P ~ÇÇ 
  170. P ~Çü 
  171. ~ÇÇ = @Çà 1 4 
  172. I ~ÇÇ > 1 THEN
  173. {
  174.  
  175. @Ç¢ PLAYER
  176. A OFF
  177. M STAND CONTINUE
  178. }
  179. ~Çü = @Çì QUAKE @Çà 2 8 @Çà 150 255 ~ÇÇ 
  180. I ~ÇÇ > 1 THEN
  181. {
  182.  
  183. @Ç¢ PLAYER
  184. @Çì QUAKE_ME
  185.  
  186. ½ 
  187. :FOUND_ANOTHER
  188. I @Ç¥ QUAKEABLE AND @üê CURFIG = $üé AND @Ç╛ THEN
  189. {
  190. I @Ç⌐ MECHO = $üé AND @Ç⌐ CONBOT = $üé THEN
  191. {
  192. I @Ç⌐ REACTBOT = $üé THEN
  193. {
  194. A OFF
  195. @Çì QUAKE_ME
  196. }
  197. }
  198. }
  199. I @üë = $üâ THEN J #ÇÄ 
  200.  
  201. :STILL_QUAKING
  202. â 
  203.  
  204. ½ 
  205. :VERIFY_QUAKERS
  206. I .ÇéÇê AND @Ç¥ QUAKEABLE THEN
  207. I @Çô QUAKE = $üé AND @Çô QUAKE_START = $üé THEN
  208. {
  209. o 
  210. M QUAKE CONTINUE
  211. }
  212. I @üë THEN J #ÇÉ 
  213.  
  214. I ^â┤ THEN J #ÇÅ 
  215.  
  216. W 7
  217. ½ 
  218. :FOUND_ANOTHER2
  219. I .ÇéÇê THEN
  220. {
  221. I @Ç¥ QUAKEABLE THEN
  222. {
  223.  
  224.  
  225. I @Ç⌐ CAYNAN AND ^îÅ THEN
  226. M EAT_MEAT CONTINUE
  227. E 
  228. {
  229. I @ǃ THEN
  230. M ATK_STAND CONTINUE
  231. E 
  232. M STAND CONTINUE
  233. }
  234. }
  235. A ON
  236. .ÇéÇê = $üé 
  237. }
  238. I @üë THEN J #Çæ 
  239.  
  240. @Ç¢ PLAYER
  241. I @Ç¥ QUAKEABLE THEN
  242. M STAND CONTINUE
  243. A ON
  244. }
  245. i LEX QUAKE
  246. }
  247.  
  248.  
  249. { QUAKEABLE
  250. I .ÇéÇÇ > 0 AND @üÅ = $üé THEN
  251. {
  252. I @üç CURFIG THEN
  253. é $üâ 
  254. E 
  255. I @Ç⌐ GRDCELL THEN
  256. é $üâ 
  257. }
  258. é $üé 
  259. }
  260. { QUAKE_ME
  261. .ÇéÇê = $üâ 
  262. o 
  263. M QUAKE_START
  264.  
  265.  
  266. I @üç CURFIG AND .ÇéÇÇ > 0 THEN
  267. M QUAKE CONTINUE
  268. }
  269.  
  270.  
  271.  
  272.  
  273.  
  274. { QUAKE _TIME _MAXVOL _INTENSITY
  275. P ~Çâ 
  276.  
  277. ^â┤ = $üâ 
  278. ì ~Çé 
  279. ~ÇÇ *= 30
  280. ^ê░ = @Çç `â╜ ~Çü 
  281. @Çî ^ê░ ~Çü ~ÇÇ 
  282. ~Çü *= 2
  283. I ~Çü > 255 THEN
  284. ~Çü = 255
  285.  
  286. W ~ÇÇ 
  287.  
  288. â 
  289.  
  290. ~Çé /= 2
  291. I ~Çé < 1 THEN ~Çé = 1
  292. ì ~Çé 
  293.  
  294. ~Çâ = @Çî ^ê░ ~Çü 0 30 
  295. W 15
  296.  
  297.  
  298.  
  299.  
  300.  
  301.  
  302. ^â┤ = $üé 
  303.  
  304. ì 0
  305.  ~Çâ 
  306.  ^ê░ 
  307. }
  308. { KABOOM
  309. ì MOVE 0 -1 0 0
  310. â 
  311. ì MOVE 0 0 0 1
  312. â 
  313. ì 0
  314. }
  315.  
  316.  
  317.  
  318.  
  319.  
  320.  
  321. { CAPTIONCOLORS
  322. < GOLD = 117 253 >
  323. < CYAN = 127 254 >
  324. < FLESH = 186 252 >
  325. < GREEN = 199 247 >
  326. < BLUE = 249 245 >
  327. }
  328. { GETESCKEY _KEY _MODIFIERS _MOUSE
  329. I ~ÇÇ == $üƒ THEN
  330. ^Çé = 1
  331. é 
  332. }
  333. { CANNOT_SAVE
  334. @üì `èì $üê "PIMM: Save temporarily disabled.~Please try again later./FSauvegarde momentanément hors-service.~Veuillez réessayer plus tard./GKann momentan nicht speichern.~Versuchen Sie es später noch einmal." 
  335. }
  336.  
  337.  
  338. //$ 26 - version number
  339.