home *** CD-ROM | disk | FTP | other *** search
/ The Best of Select: Games 4 / SPCD4.bin / bioforge / script / towergun.scp < prev    next >
Encoding:
Text File  |  1995-02-25  |  6.6 KB  |  719 lines
  1.  
  2.  
  3.  
  4.  
  5.  
  6.  
  7.  
  8.  
  9.  
  10.  
  11.  
  12.  
  13.  
  14.  
  15.  
  16.  
  17.  
  18.  
  19.  
  20.  
  21.  
  22.  
  23.  
  24.  
  25.  
  26.  
  27.  
  28.  
  29. { SWIVELGUNLEFT
  30. I ^ü¿ > 0 THEN é 
  31. I ^ü⌐ > 0 THEN é 
  32. ^ü⌐ ++
  33.  
  34. I ^üÿ < 16 THEN
  35. {
  36. ^üÿ ++
  37. @Çå `ä⌐ 50 
  38. }
  39. ^üÖ = ^üÿ 
  40. @Ç¢ PLAYER
  41. q TURN_GUN ^üÿ 
  42. o 
  43. â 
  44. ^ü⌐ --
  45. } 
  46. { SWIVELGUNRIGHT
  47. I ^ü¿ > 0 THEN é 
  48. I ^ü⌐ > 0 THEN é 
  49. ^ü⌐ ++
  50. I ^üÿ > 1 THEN 
  51. {
  52. ^üÿ --
  53. @Çå `ä⌐ 50 
  54. }
  55. ^üÖ = ^üÿ 
  56. @Ç¢ PLAYER
  57. q TURN_GUN ^üÿ 
  58. o 
  59. â 
  60. ^ü⌐ --
  61. }
  62. { TEST_GUN
  63. :LEFT
  64. @Ç¥ SWIVELGUNLEFT
  65. W 2
  66. I ^üÿ < 16 THEN J #Çâ 
  67. :RIGHT
  68. @Ç¥ SWIVELGUNRIGHT
  69. W 2
  70. I ^üÿ > 1 THEN J #Çä 
  71. }
  72. { BIG_GUN_USE
  73. I ^üÑ = 0 THEN
  74. {
  75. @Ç¢ PLAYER
  76. A OFF
  77. G GUNHERE 
  78.  
  79. £ -90 GRADUAL
  80. M USE_TWR_GUN
  81. o 
  82. â 
  83. q TURN_GUN ^üÿ 
  84. o 
  85. æ CBG
  86. ^üÑ = 1
  87. }
  88. }
  89. { RELEASEGUN
  90. Æ 
  91. ^üÑ = 0
  92. @Ç¢ PLAYER
  93. M END_TWR_GUN
  94.  
  95.  
  96.  
  97.  
  98.  
  99.  
  100.  
  101.  
  102.  
  103.  
  104.  
  105. A ON
  106.  
  107.  
  108. I ^üª != 1 AND ^üº != 1 THEN
  109. i LEX SHOTDOWN
  110. }
  111.  
  112. { MANAGEGUN
  113. :TOP
  114. â 
  115. I ^ü¿ > 0 THEN J #Çê
  116. I ^üÑ == 0 THEN J #Çê
  117. I @Çñ $é¿ THEN
  118. {
  119.  
  120. @Ç¥ SWIVELGUNLEFT 
  121. }
  122. I @Çñ $鬠THEN
  123. {
  124.  
  125. @Ç¥ SWIVELGUNRIGHT 
  126. }
  127. J #Çê
  128. }
  129. { CBG _KEY _MODIFIERS _MOUSE
  130. I ^ü¿ > 0 THEN é 
  131. N ~ÇÇ 
  132. {
  133. U $é¡ 
  134. U $üƒ 
  135.  
  136. @Ç¥ RELEASEGUN
  137. X ÇÇ 
  138. U $é⌐ 
  139. U $éù 
  140.  
  141. I ^ü¿ == 0 && ^üí == 0 THEN
  142. {
  143. I ^ü¬ == 0 THEN
  144. {
  145. @Çì GUNFAILURESOUND
  146.  
  147. @Çì RELEASEGUN
  148. }
  149. E 
  150. @Çì FIREGUN 
  151. }
  152. X ÇÇ 
  153. }
  154. é 
  155. }
  156.  
  157. { DISTANTSHIP _SPEED
  158. O $Çç 
  159. ^üÜ = 0
  160. I @Çû ^ç╢ THEN
  161. {
  162. @Çî ^ç╢ 200 0 90 
  163. @Çï ^ç╢ 13000 9000 90 
  164. W 90
  165.  ^ç╢ 
  166. }
  167. :FIRSTSHIPFLY
  168. ^üÜ ++
  169. W ~ÇÇ 
  170.  
  171.  
  172. I ^üÜ < 41 THEN J #Çï 
  173. ^üÜ = 0 
  174. }
  175. { GOWHITE
  176. P ~ÇÇ 
  177. :BRIGHTEN
  178. Ü ~ÇÇ ~ÇÇ ~ÇÇ 999 
  179. ~ÇÇ += 20
  180. W 2
  181. L #Çì 6
  182. }
  183. { BLOWUPSECOND
  184. P ~ÇÇ 
  185. â 
  186. ~ÇÇ = @Çì GOWHITE
  187.  ^ç╢ 
  188. @Çå `ǽ 200 
  189. ú BOOM WHITE BANG0 
  190. W 15
  191. ^üá = 0
  192.  
  193. @Çå `ǽ 
  194. ú BOOM WHITE BANG1 
  195. @Çì KABOOM
  196. W 30
  197.  ~ÇÇ 
  198. Ü 0 0 0 3
  199. O $ÇÇ 
  200. O $Çá 
  201. }
  202.  
  203.  
  204. { MISSILE
  205. < HAS_GRAVITY = 0 >
  206. < IS_BOUNCY = 0 >
  207. < ELASTICITY = 0 >
  208. < IS_REFLECTIVE = 0 >
  209. < EXTENT = 20 20 20 >
  210. }
  211. { MISSILE_HIT_WALL
  212. @Ç¢ PLAYER 
  213. ü CURFIG
  214. @Çì BLOWYOUUP
  215. }
  216. { BLOWYOUUP
  217. P ~ÇÇ 
  218. @Ç¢ PLAYER 
  219.  ^ü░ 
  220. M DROPSHIP_WINS CONTINUE
  221. ~ÇÇ = 5
  222.  ^ç╢ 
  223. @Çì KABOOM
  224. @Çå `åò 
  225. :BRIGHTEN
  226. Ü ~ÇÇ ~ÇÇ ~ÇÇ 999 
  227. ~ÇÇ += 20
  228. W 2
  229. L #ÇÆ 6
  230. Æ 
  231. C SHOW STITLE
  232. @Ç¥ KILLLEX
  233. }
  234. { SHIPLAS
  235. < HAS_GRAVITY = 0 >
  236. < IS_BOUNCY = 0 >
  237. < ELASTICITY = 0 >
  238. < IS_REFLECTIVE = 1 >
  239. < EXTENT = 20 20 20 >
  240. }
  241. { SHIPLAS_HIT_WALL
  242. @Çå `Çú 200 
  243. ú BOOM PING CURITEM 
  244. }
  245. { SHIPLAS_BOUNCE
  246. @Çå `üì 
  247. ú BOOM PING CURITEM 
  248. }
  249.  
  250.  
  251.  
  252. { SHIPORCHESTRA
  253. B `ǽ `Çú `üì 
  254. B `Çô `Ç⌐ 
  255. ^üú = @Çì RUNINCOMINGSHIPS
  256. }
  257. { RUNINCOMINGSHIPS
  258. P ~ÇÇ 
  259. P ~Çü 
  260.  
  261. ^üí = 0
  262.  
  263.  
  264.  
  265.  
  266.  
  267.  
  268.  @Ç¥ DISTANTSHIP 5 
  269.  
  270. W 28 SECONDS
  271.  
  272.  
  273. ^ü¢ = 0
  274.  
  275. :SHIPCROSSESVIEW
  276.  
  277.  
  278. I ^ü¿ > 0 THEN
  279. {
  280. â 
  281. J #Çÿ 
  282. }
  283. I @Çû ^ç╢ = $üé THEN
  284. {
  285. ^ç╢ = @Çç `Ǽ 0 
  286. @Çî ^ç╢ 10 200 150 
  287. @Çï ^ç╢ 6000 13000 150 
  288. }
  289.  
  290. I ^üª THEN
  291. {
  292. I ^ü¿ = 0 && @ÇÄ TWR1 = 0 && @ÇÄ TWR2 = 0 THEN
  293. {
  294. @Ç¥ EARLYBLOWUP
  295. é 
  296. }
  297. ^ü¢ ++
  298. W 5
  299. }
  300. I ^üª && ^ü¢ < 61 THEN J #Çÿ 
  301. I ^üª == 0 THEN
  302. {
  303.  ^ç╢ 
  304. @Çì CELEBRATE
  305. @Çì SHOWDRAMATICCRASH 
  306. }
  307.  
  308. E @Ç║ `ç₧ $üë "Damn it!  That ship got through!/FBon sang !~Le vaisseau est passé !/GVerdammt!~Das Schiff ist durchgekommen!"
  309.  
  310.  
  311. ^ü¢ = 0
  312.  
  313.  
  314.  
  315.  
  316.  
  317. :AFTERFIRSTSHIP
  318. ^üñ = 4
  319.  
  320.  ^ç╢ 
  321.  
  322.  
  323.  
  324.  
  325.  
  326.  
  327.  
  328.  @Ç¥ DISTANTSHIP 3 
  329.  
  330.  
  331. W 3 SECONDS
  332.  
  333.  
  334.  
  335. :WAITTILLCRASHED
  336. â 
  337. I ^üƒ != 0 THEN J #ÇÜ 
  338.  
  339.  
  340.  
  341. ^üá = 0
  342. ~ÇÇ = 0
  343. ~Çü = 1
  344. :RISEUP
  345. :WAITHERE
  346.  
  347.  
  348. I ^ü¿ > 0 THEN
  349. {
  350. â 
  351. J #Ç£ 
  352. }
  353. I ^üº THEN
  354. {
  355. I ^ü¿ = 0 && @ÇÄ TWR1 = 0 && @ÇÄ TWR2 = 0 THEN
  356. {
  357. @Ç¥ EARLYBLOWUP
  358. é 
  359. }
  360.  
  361. I @Çû ^ç╢ = $üé THEN
  362. {
  363. ^ç╢ = @Çç `Ǽ 0 
  364. @Çî ^ç╢ 10 200 60 
  365. @Çï ^ç╢ 7000 11000 60 
  366. }
  367.  
  368. ^üá += ~Çü 
  369. W 4
  370.  
  371. I ~ÇÇ == 0 && ^üá == 30 THEN
  372. {
  373. ~Çü = -1
  374. ~ÇÇ ++
  375. }
  376.  
  377. I ~ÇÇ == 1 && ^üá == 20 THEN
  378. {
  379. ~Çü = 1
  380. ~ÇÇ ++
  381. }
  382. I ~ÇÇ == 2 && ^üá == 32 THEN
  383. {
  384. ~Çü = -1
  385. ~ÇÇ ++
  386. }
  387. I ~ÇÇ == 3 && ^üá == 28 THEN
  388. {
  389. ~Çü = 1
  390. ~ÇÇ ++
  391. } 
  392.  
  393.  
  394. I ^üá == 20 THEN
  395. {
  396. Ü 3 3 3 1 
  397. @Ç╢ SHIPLAS SHIP0 DEST0A 10 0 0 0
  398. W 10
  399. Ü 3 3 3 1 
  400. @Ç╢ SHIPLAS SHIP0 DEST0B 10 0 0 0
  401. }
  402.  
  403.  
  404. I ^üá == 33 THEN
  405. {
  406. ^üí = 1
  407. C TWR1
  408.  
  409. ú BOOM PING SHIP1 
  410.  
  411. @Ç╢ MISSILE SHIP1 DEST 10 0 0 0
  412.  
  413.  
  414. B `åò 
  415. }
  416. }
  417. I ^üº && ^üá < 34 THEN J #Ç¢ 
  418. :AFTERSECONDSHIP
  419. I ^üº == 0 THEN
  420. {
  421. I ^üí == 0 THEN
  422. @Çì CELEBRATE
  423. @Çì BLOWUPSECOND
  424. }
  425. ^üñ = 5
  426. :ONESURVIVED
  427. â 
  428. I ^üí = 0 && ^ü¿ = 0 THEN
  429. {
  430. I @ÇÄ TWR1 = 0 && @ÇÄ TWR2 = 0 THEN
  431. {
  432. @Ç¥ EARLYBLOWUP
  433. é 
  434. }
  435. }
  436. I ^üª == 1 THEN
  437. J #Ç₧ 
  438. }
  439. { EARLYBLOWUP
  440. @Ç¢ PLAYER
  441. A OFF
  442. ^ü¢ = 0
  443. ^üá = 10
  444. C TWR1
  445. @Çå `Ǽ 
  446. :KEEPRISING
  447. â 
  448. W 4
  449. ^üá += 1
  450. I ^üá < 33 THEN
  451. J #Çá 
  452.  
  453. ú BOOM PING SHIP1 
  454.  
  455. @Ç╢ MISSILE SHIP1 DEST 10 0 0 0
  456. B `åò 
  457. }
  458. { TESTFIRSTHIT _GUN _SHIP
  459. P ~Çé 
  460. P ~Çâ 
  461. ~Çé = 0
  462. ~Çâ = ~Çü + ~ÇÇ 
  463.  
  464. I ~Çü < 51 THEN
  465. {
  466.  
  467.  
  468.  
  469.  
  470. I ~Çâ >= 61 && ~Çâ <= 64 THEN
  471. ~Çé = 1
  472. }
  473. E I ~Çü < 56 THEN
  474. {
  475.  
  476. I ~Çâ >= 63 && ~Çâ <= 66 THEN
  477. ~Çé = 1
  478. }
  479. E I ~Çü < 62 THEN
  480. {
  481.  
  482. I ~Çâ >= 60 && ~Çâ <= 63 THEN
  483. ~Çé = 1
  484. }
  485. é ~Çé 
  486. }
  487. { GETFIRSTSHIPHITSTATE
  488. P ~ÇÇ 
  489. P ~Çü 
  490. ~Çü = ^ü¢ 
  491. ~ÇÇ = $é┐ 
  492. I @Ç¥ TESTFIRSTHIT ^üÿ ~Çü = 1 THEN
  493. {
  494. ~ÇÇ = $âü 
  495. }
  496. E 
  497. {
  498.  
  499.  
  500.  
  501. ~Çü += 1
  502. I @Ç¥ TESTFIRSTHIT ^üÿ ~Çü = 1 THEN
  503. ~ÇÇ = $âÇ 
  504. ~Çü += 1
  505. I @Ç¥ TESTFIRSTHIT ^üÿ ~Çü = 1 THEN
  506. ~ÇÇ = $âÇ 
  507. ~Çü += 1
  508. I @Ç¥ TESTFIRSTHIT ^üÿ ~Çü = 1 THEN
  509. ~ÇÇ = $âÇ 
  510. }
  511. é ~ÇÇ 
  512. }
  513. { GETSECONDSHIPHITSTATE
  514. P ~ÇÇ 
  515. P ~Çü 
  516. ~Çü = ^üá 
  517. ~ÇÇ = $é┐ 
  518. I ^üÿ >= 6 && ^üÿ <= 8 THEN
  519. I ~Çü > 17 THEN
  520. {
  521. ~ÇÇ = $âü 
  522. }
  523. é ~ÇÇ 
  524. }
  525.  
  526.  
  527.  
  528. [ GUNFIREDISPLAY
  529. 00:03 ^ü¥ = 0
  530. 00:06 ^ü¥ = 1
  531. 00:09 ^ü¥ = 2
  532. 00:09 @Çå `Çô 150 
  533. 00:12 ^ü¥ = 3
  534. 00:15 ^ü¥ = 4
  535. 00:18 ^ü¥ = 5
  536. 00:18 @Çå `Ç⌐ 100 -1024 
  537. 00:21 ^ü¥ = 6
  538. 00:24 ^ü¥ = 7
  539. 00:24 @Çå `Çô 150 
  540. 00:27 ^ü¥ = 8
  541. 01:00 ^ü¥ = 9
  542. 01:00 @Çå `Ç⌐ 100 
  543. 01:03 ^ü¥ = 10
  544. 01:06 ^ü¥ = 11
  545. ]
  546. { SHOWGUNFIRING
  547.  
  548.  
  549. ^ü¿ += 1
  550.  
  551.  
  552. C LASER
  553. :FIRE_GUNS
  554.  @Çì GUNFIREDISPLAY
  555. L #Ǫ 2
  556. ^ü¥ = 11
  557. ^ü¿ -= 1
  558. }
  559. { CELEBRATE
  560. @Ç¥ RELEASEGUN
  561. @Ç¢ PLAYER
  562. M TWR_VICTORY CONTINUE
  563. W 15
  564. I ^üª = 0 THEN @Ç║ `亠$üë "Yes!/FOui !!/GJawohl!" 
  565.  
  566. }
  567. { GUNFAILURESOUND
  568. @Çå `ä¡ 100 
  569. W 5
  570. @Çå `ä¡ 150 
  571. W 5
  572. @Çå `ä¡ 200 
  573. W 5
  574. @Çå `ä¡ 
  575. W 15
  576.  
  577. @üì `èÉ $üê "COMPUTER: Tower Gun off-line./FCanon de Tourelle déconnecté./GTurmgeschütz abgeschaltet." 
  578. }
  579.  
  580.  
  581.  
  582.  
  583.  
  584. { FIREGUN
  585. P ~ÇÇ 
  586.  
  587.  
  588. ÿ ^üú 
  589. ^ü¿ += 1
  590.  
  591. I ^üñ == 3 THEN
  592. {
  593. ~ÇÇ = @Ç¥ GETFIRSTSHIPHITSTATE 
  594. I ~ÇÇ == $âü THEN
  595. {
  596. ^üª = 0
  597. ^ü¢ = 0
  598. }
  599.  
  600.  @Çì SHOWGUNFIRING 
  601.  
  602. I ~ÇÇ == $âÇ THEN
  603. @Ç¥ SHOWSHOTSNEARSHIP 0 
  604.  
  605. I ~ÇÇ == $âü THEN
  606. @Ç¥ SHOWSHOTSNEARSHIP 1 
  607. }
  608. E 
  609. I ^üñ == 4 THEN
  610. {
  611. ~ÇÇ = @Ç¥ GETSECONDSHIPHITSTATE 
  612.  
  613. I ~ÇÇ == $âü THEN
  614. {
  615. ^üº = 0
  616.  
  617.  
  618. }
  619.  
  620.  @Çì SHOWGUNFIRING 
  621. }
  622. E 
  623. {
  624.  @Çì SHOWGUNFIRING 
  625. }
  626. :LEAVEFIRESEQUENCE
  627. C TWR1
  628. C UNLOCK
  629. â 
  630. ^ü¿ -= 1
  631. Ö ^üú 
  632. }
  633. [ SHOWDRAMATICCRASH
  634.  
  635. 00:00 B `Ç¡ `üê `üÄ 
  636. 00:00 ^üƒ = 1
  637. 00:00 @Çå `Ç¡ 
  638. 00:02  ^ê░ 
  639. 00:06 ^üƒ = 2
  640. 00:12 ^üƒ = 3
  641. 00:18 ^üƒ = 4
  642. 00:24 ^üƒ = 5
  643. 01:00 ^üƒ = 6
  644. 01:06 ^üƒ = 7
  645. 01:12 ^üƒ = 8
  646. 01:18 ^üƒ = 9
  647. 01:24 ^üƒ = 10
  648. 02:00 ^üƒ = 11
  649. 02:06 ^üƒ = 12
  650. 02:12 ^üƒ = 13
  651. 02:18 ^üƒ = 14
  652. 02:24 ^üƒ = 15
  653. 03:00 ^üƒ = 16
  654. 03:06 ^üƒ = 17
  655. 03:12 ^üƒ = 18
  656. 03:18 ^üƒ = 19
  657. 03:24 ^üƒ = 20
  658. 04:00 ^üƒ = 21
  659. 04:06 ^üƒ = 22
  660. 04:12 ^üƒ = 23
  661. 04:18 ^üƒ = 24
  662. 04:24 ^üƒ = 25
  663. 04:27 @Çå `üê 
  664. 05:00 ^üƒ = 26
  665. 05:06 ^üƒ = 27
  666. 05:12 ^üƒ = 28
  667. 05:18 ^üƒ = 29
  668. 05:24 ^üƒ = 30
  669. 06:00 ^üƒ = 31
  670. 06:06 ^üƒ = 32
  671. 06:12 ^üƒ = 33
  672. 06:18 ^üƒ = 34
  673. 06:24 ^üƒ = 35
  674. 07:00 ^üƒ = 36
  675. 07:06 ^üƒ = 37
  676. 07:12 ^üƒ = 38
  677. 07:18 ^üƒ = 39
  678. 07:20 ^üƒ = 40
  679. 07:24 ^üƒ = 0
  680. 09:02 @Çå `üÄ 
  681. ] 
  682. { SHOWSHOTSNEARSHIP _ACTUALLY_HIT
  683. ^ü¿ += 1
  684. ^ü₧ = 1
  685. C HIT
  686. B `Ǭ `Çô `ǽ `üê 
  687.  
  688.  
  689. :MOVESHIP
  690. W 4
  691. ^ü₧ ++
  692.  
  693. I ^ü₧ == 15 || ^ü₧ == 17 THEN
  694. @Çå `Ǭ 
  695.  
  696. I ^ü₧ == 24 THEN
  697. {
  698.  
  699.  
  700. I ~ÇÇ = 0 THEN J #Ç« 
  701. @Çå `Çô 100 
  702. @Çå `ǽ 
  703.  ^ç╢ 
  704.  
  705. ^ê░ = @Çå `üê 
  706. }
  707. I ^ü₧ < 42 THEN J #Ç¡ 
  708. :LEAVE
  709. C TWR1
  710. C UNLOCK
  711.  
  712. ^ü₧ = 43
  713.  
  714. ^ü¿ -= 1
  715. }
  716.  
  717.  
  718. //$ 26 - version number
  719.