home *** CD-ROM | disk | FTP | other *** search
/ PC Gamer 6 / 1995-05_Disc_6.iso / bioforge / script / tunmon.scp < prev    next >
Text File  |  1995-01-18  |  5KB  |  512 lines
  1.  
  2. { FACINGPILLARBASE
  3. P ~ÇÇ 
  4. ~ÇÇ = @Ç│ CURFIG PIL_BASE
  5. I ~ÇÇ < -40 OR ~ÇÇ > 40 THEN
  6. é 0
  7.  
  8. é 1
  9. }
  10.  
  11. { TMBOTL_USE
  12. I @Ç¥ FACINGPILLARBASE != 1 THEN
  13. é 
  14. A OFF
  15. @Ç¥ NEUTRALIZEPILLARBASE 
  16.  
  17.  
  18. G TML2 WALK $⣠
  19. @Çì GOTOTML1
  20. }
  21. { TMLFT_USE
  22. I @Ç¥ FACINGPILLARBASE != 1 THEN
  23. é 
  24. A OFF
  25. @Ç¥ NEUTRALIZEPILLARBASE 
  26. @Çì GOTOTML1
  27. }
  28. { GOTOTML1
  29.  
  30. G TML1A WALK $⣠
  31. G TML1 WALK $⣠
  32. @Çì GOTOTML0
  33. }
  34.  
  35. { TMBOTR_USE
  36. I @Ç¥ FACINGPILLARBASE != 1 THEN
  37. é 
  38. A OFF
  39. @Ç¥ NEUTRALIZEPILLARBASE 
  40.  
  41.  
  42. G TMR2 WALK $⣠
  43. @Çì GOTOTMR1
  44. }
  45. { TMRGT_USE
  46. I @Ç¥ FACINGPILLARBASE != 1 THEN
  47. é 
  48. A OFF
  49. @Ç¥ NEUTRALIZEPILLARBASE 
  50. @Çì GOTOTMR1
  51. }
  52. { GOTOTMR1
  53.  
  54. G TMR1A WALK $⣠
  55. G TMR1 WALK $⣠
  56. @Çì GOTOTML0
  57. }
  58. { TUBEMON_USE
  59. I @Ç¥ FACINGPILLARBASE != 1 THEN
  60. é 
  61. A OFF
  62. @Ç¥ NEUTRALIZEPILLARBASE 
  63. @Çì GOTOTML0
  64. }
  65.  
  66. { GOTOTML0
  67.  
  68.  
  69. I @Ç╗ CURFIG TM0 > 30 THEN
  70. G TM0 WALK $âÜ 
  71. £ TMFACE GRADUAL
  72.  
  73.  
  74. I @ÇÄ TUN2 = $üé THEN C TUN2
  75. ^ââ = 0
  76. @Çè ^é╣ +1 1 16 3 
  77. @Çè ^é║ +1 1 16 3 
  78. @Çì TUBEMON_UP
  79.  
  80. W 60
  81. M LOOK_CONSOLE FREEZE
  82. @Ç¥ TS_TUBEACTIVATIONMONITOR
  83. @Ç¥ POSITIZEPILLARBASE 
  84. G TM0 $âÜ 
  85. £ 0
  86. M STAND CONTINUE
  87. @Çè ^é╣ -1 16 1 3 
  88. @Çè ^é║ -1 16 1 3 
  89. @Çì TUBEMON_DOWN
  90. W 60
  91. ^ââ = 1
  92.  
  93. A ON
  94. C UNLOCK
  95. W 5 SECONDS
  96. I ^âä = 15 THEN
  97. i LEX LEXAL
  98. E 
  99. {
  100. I ^âä = 3 THEN
  101. i LEX TUNPUZ
  102. E 
  103. i LEX TRMON
  104. }
  105. }
  106. { NEUTRALIZEPILLARBASE
  107.  
  108. I ^âê != $âä THEN
  109. {
  110. ^âê = $âä 
  111. ^âë = $âä 
  112. ^âè = $âä 
  113. ^âï = $âä 
  114. ^âî = $âä 
  115. }
  116. }
  117. { POSITIZEPILLARBASE
  118.  
  119. I ^âê != $ââ THEN
  120. {
  121. ^âê = $ââ 
  122. ^âë = $ââ 
  123. ^âè = $ââ 
  124. ^âï = $ââ 
  125. ^âî = $ââ 
  126. }
  127. }
  128. [ TUBEMON_UP
  129. 00:00 @Çå `ää 255 -2048 
  130. 01:00 @Çå `üé 150 -3072 
  131. ]
  132. [ TUBEMON_DOWN
  133. 00:00 @Çå `ää 255 -2048 
  134. 00:00 @Çå `üé 150 -3072 
  135. ]
  136.  
  137.  
  138.  
  139.  
  140. { TS_TUBEACTIVATIONMONITOR
  141. P ~ÇÇ
  142. P ~Çü
  143. P ~Çé
  144. P ~Çâ
  145. P ~Çä
  146. P ~Çà
  147. P ~Çå
  148. P ~Çç
  149. P ~Çê 
  150. P ~Çë 
  151. I @Çú THEN é 
  152.  
  153. ~ÇÇ = 0
  154. ~Çü = 0
  155. ~Çé = 0
  156. ~Çâ = 0
  157. ~Çä = 0
  158. ~Çà = 0
  159. ~Çå = 0
  160. ~Çç = 0
  161. ~Çê = 0
  162. ~Çë = 0
  163.  
  164.  
  165.  "tunm"
  166. J #ÇÅ 
  167. :LOOP
  168.  
  169. â 
  170. J #ÇÄ 
  171.  
  172. :ENTER_BUTTONS
  173. m 
  174.  
  175.  "TN1B" "/! " $Ç┤ $Ç╕ 
  176.  "TN2B" "/! " $Ç│ $Ç╕ 
  177.  "TN3B" "/! " $Ç│ $Ç╕ 
  178.  "TN4B" "/! " $Ç│ $Ç╕ 
  179.  "TN5B" "/! " $Ç│ $Ç╕ 
  180.  "TN6B" "/! " $Ç│ $Ç╕ 
  181.  "TN7B" "/! " $Ç│ $Ç╕ 
  182.  "TN8B" "/! " $Ç│ $Ç╕ 
  183.  "SOLB" "/! " $Ç│ $Ç╣ 
  184.  "SOLA" ~Çë 
  185. J #ÇÄ 
  186. :TN1B_BUTTON
  187. @Çå `äê 200 -2048 
  188. I ~ÇÇ == 0 THEN
  189. {
  190. ~ÇÇ = 1
  191. }
  192. E 
  193. {
  194. ~ÇÇ = 0
  195. }
  196. J #Çÿ 
  197. :TN2B_BUTTON
  198. @Çå `äê 200 -2048 
  199. I ~Çü == 0 THEN
  200. {
  201. ~Çü = 2
  202. }
  203. E 
  204. {
  205. ~Çü = 0
  206. }
  207. J #Çÿ 
  208. :TN3B_BUTTON
  209. @Çå `äê 200 -2048 
  210. I ~Çé == 0 THEN
  211. {
  212. ~Çé = 4
  213. }
  214. E 
  215. {
  216. ~Çé = 0
  217. }
  218. J #Çÿ 
  219. :TN4B_BUTTON
  220. @Çå `äê 200 -2048 
  221. I ~Çâ == 0 THEN
  222. {
  223. ~Çâ = 8
  224. }
  225. E 
  226. {
  227. ~Çâ = 0
  228. }
  229. J #Çÿ 
  230. :TN5B_BUTTON
  231. @Çå `äê 200 -2048 
  232. I ~Çä == 0 THEN
  233. {
  234. ~Çä = 16
  235. }
  236. E 
  237. {
  238. ~Çä = 0
  239. }
  240. J #Çÿ 
  241. :TN6B_BUTTON
  242. @Çå `äê 200 -2048 
  243. I ~Çà == 0 THEN
  244. {
  245. ~Çà = 32
  246. }
  247. E 
  248. {
  249. ~Çà = 0
  250. }
  251. J #Çÿ 
  252. :TN7B_BUTTON
  253. @Çå `äê 200 -2048 
  254. I ~Çå == 0 THEN
  255. {
  256. ~Çå = 64
  257. }
  258. E 
  259. {
  260. ~Çå = 0
  261. }
  262. J #Çÿ 
  263. :TN8B_BUTTON
  264. @Çå `äê 200 -2048 
  265. I ~Çç == 0 THEN
  266. {
  267. ~Çç = 128
  268. }
  269. E 
  270. {
  271. ~Çç = 0
  272. }
  273. J #Çÿ 
  274.  
  275. :CHECKCOMBOS
  276.  
  277.  
  278. ~Çê = ~ÇÇ + ~Çü
  279. ~Çê += ~Çé
  280. ~Çê += ~Çâ
  281. ~Çê += ~Çä
  282. ~Çê += ~Çà
  283. ~Çê += ~Çå
  284. ~Çê += ~Çç
  285.  
  286. N ~Çê 
  287. {
  288.  
  289. U 140 
  290. ~Çë = 1
  291. X ÇÇ 
  292.  
  293. U 152 
  294. ~Çë = 2
  295. X ÇÇ 
  296.  
  297. U 12 
  298. ~Çë = 3
  299. X ÇÇ 
  300.  
  301. U 9 
  302. ~Çë = 4
  303. X ÇÇ 
  304.  
  305. U 73 
  306. ~Çë = 5
  307. X ÇÇ 
  308.  
  309. U 25 
  310. ~Çë = 6
  311. X ÇÇ 
  312.  
  313. U 146 
  314. ~Çë = 7
  315. X ÇÇ 
  316.  
  317. U 72 
  318. ~Çë = 8
  319. X ÇÇ 
  320. V 
  321. ~Çë = 0
  322. }
  323.  
  324. I ~Çë != 0 THEN
  325. ^âä = 15
  326.  
  327.  "SOLA" ~Çë 
  328. J #ÇÄ 
  329. :SOLB_BUTTON
  330. @Çå `䢠200 
  331.  
  332. c ^é░ ~Çë 
  333.  
  334.  
  335.  
  336.  
  337.  
  338. ^é▓ = @ÇÅ ^é░ 2 
  339. ^é╝ = @ÇÅ ^é░ 2 
  340. ^é│ = @ÇÅ ^é░ 3 
  341. ^é╜ = @ÇÅ ^é░ 3 
  342. ^é┤ = @ÇÅ ^é░ 4 
  343. ^é╛ = @ÇÅ ^é░ 4 
  344. ^â« = @ÇÅ ^é░ 4 
  345. ^â» = @ÇÅ ^é░ 4 
  346. ^é╡ = @ÇÅ ^é░ 5 
  347. ^é┐ = @ÇÅ ^é░ 5 
  348. ^é╢ = @ÇÅ ^é░ 6 
  349. ^âÇ = @ÇÅ ^é░ 6 
  350. ^é╖ = @ÇÅ ^é░ 7 
  351. ^âü = @ÇÅ ^é░ 7 
  352. ^é╕ = @ÇÅ ^é░ 8 
  353. ^âé = @ÇÅ ^é░ 8 
  354.  
  355.  
  356.  
  357.  
  358. @Çì CHECKACTIVATESHRIMP
  359. :ESCAPE_BUTTON
  360. @Çå `ëè 200 -2048 
  361. I ^âä < 3 THEN
  362. ^âä ++
  363.  
  364. }
  365. { TMPL_MON_USE
  366.  
  367.  
  368. I ^ç╖ = $üé THEN
  369. {
  370. ^ì░ = 1
  371. M LOOK_AT_MON
  372. W 1 SECOND
  373. i LEX TEMPMON1
  374. é 
  375. }
  376.  
  377. I @ÇÅ ^é░ 1 = $üé THEN
  378. {
  379. M LOOK_AT_MON
  380. W 1 SECOND
  381. i LEX TEMPMON2
  382. é 
  383. }
  384.  
  385. I @Çä IN -120 -50 THEN
  386. {
  387. M LOOK_AT_MON
  388. A OFF
  389. I ^ì░ = 1 THEN
  390. @Çì ADDTEMPLEMONLOG3
  391. @Ç¥ TS_CAMERAVIEWSOPENTEMPLE
  392. A ON
  393. M STAND CONTINUE
  394. }
  395. }
  396. { ADDTEMPLEMONLOG3
  397. ^ì░ = 2
  398. W 1 SECOND
  399. i LEX TEMPMON3
  400. }
  401.  
  402.  
  403. { TS_CAMERAVIEWSOPENTEMPLE
  404. P ~ÇÇ 
  405.  "tmpm"
  406. ^ì▒ = $üâ 
  407.  
  408. C UNLOCK
  409. C "TMP1"
  410.  "tmpv" "tmp1"
  411. :INIT
  412.  
  413.  
  414.  
  415.  "opnb" $Ç╖ 
  416.  "clsb" $Ç╖ 
  417. I ^ìú = $âô THEN
  418.  "opnb" $Ç│ 
  419. E 
  420. I ^ìú >= 22 THEN
  421.  "clsb" $Ç│ 
  422.  "xitb" $Ç│ 
  423. :LOOP
  424.  
  425. â 
  426.  
  427.  
  428.  
  429.  
  430.  
  431.  
  432. J #ǃ 
  433. :OPNB_BUTTON
  434. @Çå `ëë 200 
  435.  
  436.  
  437.  
  438.  
  439. I @Çó ~ÇÇ THEN J #ǃ 
  440. I ^ìú != $âö THEN
  441. {
  442. ~ÇÇ = @Çì OPENTEMPLE
  443.  "opnb" $Ç╖ 
  444.  "clsb" $Ç╖ 
  445. :OPENTEMPLE_STATUS
  446. â 
  447.  
  448. I @Çó ~ÇÇ THEN J #Çí 
  449. ~ÇÇ = 0
  450.  "clsb" $Ç│ 
  451. }
  452.  
  453. J #ǃ 
  454. :CLSB_BUTTON
  455. @Çå `ëë 200 
  456. I @Çó ~ÇÇ THEN J #ǃ 
  457. I ^ìú != $âô THEN
  458. {
  459. ~ÇÇ = @Çì CLOSETEMPLE
  460.  "opnb" $Ç╖ 
  461.  "clsb" $Ç╖ 
  462. :CLOSETEMPLE_STATUS
  463. â 
  464.  
  465. I @Çó ~ÇÇ THEN J #Çú 
  466. ~ÇÇ = 0
  467.  "opnb" $Ç│ 
  468. }
  469.  
  470. J #ǃ 
  471. :XITB_BUTTON
  472. :ESCAPE_BUTTON
  473. @Çå `ëè 
  474. @Ç¥ TS_SHUTDOWN_TEMPLE_MON
  475. }
  476. { TS_SHUTDOWN_TEMPLE_MON _NO_FORCING_CAMERA
  477. @Çå `ëè 200 
  478. C UNLOCK
  479.  ~ÇÇ 
  480. ^ì▒ = $üé 
  481. }
  482. { CHECKACTIVATESHRIMP
  483. P ~ÇÇ 
  484.  
  485.  
  486. I ^ìè = $üé THEN
  487. {
  488. ~ÇÇ = 0
  489. I @ÇÅ ^é░ 8 THEN
  490. ~ÇÇ = 1
  491. E I @ÇÅ ^é░ 7 THEN
  492. ~ÇÇ = 2
  493. E I @ÇÅ ^é░ 5 THEN
  494. ~ÇÇ = 3
  495. E I @ÇÅ ^é░ 6 THEN
  496. ~ÇÇ = 4
  497. I ~ÇÇ THEN
  498. {
  499.  
  500.  
  501. F SHRIMP
  502. n CURFIG SHRIMP3
  503. ^ìè = $üâ 
  504. @Ç¥ READY_SHRIMP3 ~ÇÇ 
  505. @Ç¥ ACTIVATE_SHRIMP3
  506. }
  507. }
  508. }
  509.  
  510.  
  511. //$ 26 - version number
  512.