home *** CD-ROM | disk | FTP | other *** search
/ 17 Bit Software 2: Collection B / 17Bit_Collection_B.iso / files / 2300.dms / 2300.adf / autoexc.AMOS / autoexc.amosSourceCode next >
Encoding:
AMOS Source Code  |  1993-03-30  |  40.3 KB  |  1,881 lines
  1. Screen Open 0,320,256,32,LORES
  2. Close Workbench 
  3. Close Editor 
  4. On Error Goto ERRIN
  5. Curs Off : Hide : Cls 0 : Flash Off 
  6. Paper 0 : Pen 3 : Locate 0,10 : Centre "Please Wait"
  7. Global P
  8. Global S
  9. Global SCORE
  10. Global LIVES
  11. Global WHICH
  12. Global HANDIES$
  13. CODEY$="START"
  14. LIVES=3
  15. Screen Hide 0
  16. Screen 0
  17. Dir$="df0:"
  18. Load "matchstickmansprite.abk"
  19. Load "musicingame.abk",3
  20. Load "samples.abk"
  21. Get Sprite Palette 
  22. Make Mask 
  23. Screen Open 1,320,256,32,LORES
  24. Hide : Curs Off : Cls 0
  25. Paper 0
  26. If JUSTGO=0 Then Goto STRT
  27. STAGE1:
  28. Bank Swap 9,3
  29. Screen 1
  30. LIVES=3
  31. SCORE=0
  32. WHICH=1
  33. JUSTSTART=0 : Screen Show 1
  34. Locate 0,13 : Pen 3 : Centre "Stage 1"
  35. Wait 10
  36. WAFIRE
  37. Screen Open 0,320,256,32,LORES
  38. Screen Hide 0
  39. Screen 0 : Hide : Curs Off : Cls 0
  40. Load Iff "background"
  41. Get Sprite Palette 
  42. Screen 1
  43. Cls 0
  44. Pen 2
  45. Locate 0,5 : Centre "Level 1"
  46. Locate 0,13 : Centre "If you can't do this"
  47. Locate 0,14 : Centre "go and buy a console"
  48. Wait 10
  49. WAFIRE
  50. Sam Play 15,2,10000
  51. Wait 100
  52. Screen Hide 1
  53. Screen Show 0
  54. Wait 10
  55. Screen 0
  56. Bob 1,1,159,1
  57. Sprite 2,430,184,14
  58. SETUP:
  59. If JUSTGO=0 Then Gosub CHANNES
  60. Music 1
  61. Ink 2,21,
  62. Text 10,10,"Score: "+Str$(SCORE)
  63. A=0
  64. Text 200,10,"Lives: "+Str$(LIVES)
  65. If WHICH=10 Then Wait 10 : Amal On 11
  66. If WHICH=10 Then Wait 20 : Amal On 10
  67. If WHICH=10 Then Wait 20 : Amal On 9
  68. TEST:
  69. A=0
  70. COMPLETE=0
  71. Do 
  72. PAUS$=Inkey$
  73. If X Bob(1)<0 Then Bob 1,0,159,4
  74. If Y Bob(1)>159 Then Bob 1,1,159,1
  75. If Bobsprite Col(1,2 To 2)=True Then Gosub COMPLETE : COMPLETE=1 : If JUSTGO=0 Then Goto WHY
  76. If Bob Col(1,2 To 5)=True Then Gosub LOSELIFE : If JUSTGO=0 Then Goto WHY
  77. If Bobsprite Col(1,3 To 15)=True Then Gosub LOSELIFE : Bob 1,1,159,1 : If JUST=0 Then Goto WHY
  78. If PAUS$="p" Then Gosub PAUSE
  79. If PAUS$="P" Then Gosub PAUSE
  80. If PAUS$="@" Then Bell : Load "end.abk",3 : Music 1 : LIVES=99
  81. If PAUS$="c" Then _COPYRIGHT
  82. If Fire(1) Then GOUP
  83. If Jright(1) Then GORIT : If A=0 Then Goto TEST
  84. If Jleft(1) Then GOLEF : If A=0 Then Goto TEST : 
  85. If P=2 Then Bob 1,X Bob(1),Y Bob(1),1 : Amal Off 2
  86. If P=1 Then Bob 1,X Bob(1),Y Bob(1),4 : Amal Off 3
  87. Wait 1
  88. Loop 
  89. Procedure GORIT
  90. Amal Off 3
  91. Move X 1,"(1,2,2)"
  92. If Chanan(2)=True Then Goto SKIP
  93. Amal 2,"A 1,(2,5)(3,5)"
  94. Amal On 2
  95. SKIP:
  96. Move On 1
  97. Wait 1
  98. P=2
  99. End Proc
  100. Procedure GOLEF
  101. Amal Off 2
  102. Move X 1,"(1,-2,2)"
  103. If Chanan(3)=True Then Goto SKOP
  104. Amal 3,"A 1,(5,5)(6,5)"
  105. Amal On 3
  106. SKOP:
  107. Move On 1
  108. Wait 1
  109. P=1
  110. End Proc
  111. Procedure GOUP
  112. If Movon(6)=True Then Goto DURR
  113. If Movon(6)=True Then Goto DURR
  114. Move Y 6,"(1,-2,10)(1,-2,7)(1,2,7)(1,2,10)"
  115. Move On 6
  116. DURR:
  117. Wait 1
  118. End Proc
  119. COMPLETE:
  120. Channel 12 To Sprite 2
  121. Amal 12,"A 10,(14,10)(15,10)"
  122. Amal On 12
  123. Sam Play 8,1
  124. Wait 100
  125. If WHICH=40 Then Goto OLDBLOKE
  126. Amal Off 
  127. For TATA=2 To 10
  128. Bob Off TATA
  129. Sprite Off TATA
  130. Next 
  131. If WHICH=10 Then Goto YO
  132. If WHICH=20 Then Goto YO
  133. If WHICH=30 Then Goto YO
  134. For T=1 To 160
  135. If WHICH>30 Then GOLEF3 Else GOLEF
  136. Next 
  137. SCORE=SCORE+100
  138. Return 
  139. Procedure WAFIRE
  140. Do 
  141. If Fire(1) Then Goto SKILL
  142. Loop 
  143. SKILL:
  144. End Proc
  145. LOSELIFE:
  146. Music Off 
  147. Wait 10
  148. Amal Off 
  149. For TTRTT=1 To 3
  150. For ERT=1 To 7
  151. Shoot 
  152. Wait 1
  153. Next ERT
  154. Wait 10
  155. Next TTRTT
  156. COMPLETE=0
  157. LIVES=LIVES-1
  158. If LIVES=0 Then Goto GAMEOVERMAN
  159. Return 
  160. GAMEOVERMAN:
  161. Amal Off 
  162. For A=2 To 10
  163. Bob Off A
  164. Sprite Off A
  165. Next 
  166. Wait 100
  167. Channel 7 To Bob 1
  168. Amal 7,"A 1,(1,10)(23,10)(24,10)(25,10)(26,10)(27,100)"
  169. Amal On 7
  170. Wait 100
  171. LE=X Bob(1)
  172. LO=Y Bob(1)
  173. Screen 1
  174. Cls 0
  175. Screen 0
  176. Zoom 0,LE-15,LO-15,LE+35,LO+35 To 1,110,100,210,200
  177. Screen Hide 0
  178. Screen Show 1
  179. Screen 1
  180. Get Sprite Palette 
  181. Locate 0,5 : Centre "Despite your galent efforts you have"
  182. Locate 0,6 : Centre "failed. Without you to save them,"
  183. Locate 0,7 : Centre "the matches are certainly doomed to"
  184. Locate 0,8 : Centre "a terrible and striking death."
  185. Locate 0,9 : Centre "Olag has won and so the match stick"
  186. Locate 0,10 : Centre "men will become extinct."
  187. Locate 0,11 : Centre "I'm sorry but for you and your fellow"
  188. Locate 0,12 : Centre "matches it's...."
  189. Locate 0,27 : Centre "Your Score:"+Str$(SCORE)
  190. Locate 0,26 : Pen 3 : Centre "GAME OVER!"
  191. Load "over.abk",3 : Music 1
  192. Wait 280 : Music Off : Load "musicingame.abk",3
  193. WAFIRE
  194. WAFIRE
  195. Wait 10
  196. Cls 0
  197. Bob Off 
  198. Sprite Off 
  199. JUSTSTART=1
  200. If JUSTG0=0 Then Goto LETSGO
  201. YO:
  202. SCORE=SCORE+100
  203. For BO=2 To 6
  204. Bob Off BO
  205. Next BO
  206. Wait 10
  207. Bob 2,150,165,18
  208. For Y=1 To 160
  209. GOLEF
  210. If Bob Col(1)=True Then Goto ANI
  211. Next 
  212. ANI:
  213. Bob Off 2
  214. Channel 7 To Bob 1
  215. Bob 1,X Bob(1),150,1
  216. Amal 7,"A 0,(16,10)(17,10)"
  217. Amal On 7
  218. Wait 200
  219. Fade 5
  220. For LESS=60 To 0 Step -1
  221. Mvolume LESS
  222. Wait 2
  223. Next 
  224. Bob Off 
  225. Sprite Off 
  226. Cls 0
  227. Music Off 
  228. If JUSTGO=0 Then Gosub BONUS
  229. Mvolume 60
  230. If WHICH=10 Then Goto STAGE2
  231. If WHICH=20 Then Goto STAGE3
  232. If WHICH=30 Then Goto STAGE4
  233. WHY:
  234. If COMPLETE=1 Then WHICH=WHICH+1
  235. If WHICH=2 Then Gosub LEVEL2
  236. If WHICH=3 Then Gosub LEVEL3
  237. If WHICH=4 Then Gosub LEVEL4
  238. If WHICH=5 Then Gosub LEVEL5
  239. If WHICH=6 Then Gosub LEVEL6
  240. If WHICH=7 Then Gosub LEVEL7
  241. If WHICH=8 Then Gosub LEVEL8
  242. If WHICH=9 Then Gosub LEVEL9
  243. If WHICH=10 Then Gosub LEVEL10
  244. LEVELSETUP:
  245. Bob Off 
  246. Sprite Off 
  247. Screen Hide 0
  248. Screen Show 1
  249. Screen 1
  250. Cls 0
  251. Locate 0,5 : Centre LEV$
  252. Locate 0,13 : Centre MES1$
  253. Locate 0,14 : Centre MES2$
  254. Wait 10
  255. WAFIRE
  256. Wait 10
  257. Screen Hide 1
  258. Screen Show 0
  259. Screen 0
  260. If WHICH=2 Then Gosub LEVEL2SET
  261. If WHICH=3 Then Gosub LEVEL3SET
  262. If WHICH=4 Then Gosub LEVEL4SET
  263. If WHICH=5 Then Gosub LEVEL5SET
  264. If WHICH=6 Then Gosub LEVEL6SET
  265. If WHICH=7 Then Gosub LEVEL7SET
  266. If WHICH=8 Then Gosub LEVEL8SET
  267. If WHICH=9 Then Gosub LEVEL9SET
  268. If WHICH=10 Then Gosub LEVEL10SET
  269. If JUSTGO=0 Then Goto SETUP
  270. LEVEL3:
  271. LEV$="Level 3"
  272. MES1$="Dont look cigerette lovers!"
  273. MES2$=""
  274. Return 
  275. LEVEL3SET:
  276. Bob 1,1,159,1
  277. Sprite 2,430,184,14
  278. Bob 3,200,75,11
  279. Channel 7 To Bob 3
  280. CIG$="Loop:M 0,59,30:M 0,-59,30:Jump Loop"
  281. Amal 7,CIG$
  282. Amal On 7
  283. Return 
  284. LEVEL4:
  285. LEV$="Level 4"
  286. MES1$="Dont look cigerette lovers!"
  287. MES2$="PART 2!!!!!"
  288. Return 
  289. LEVEL4SET:
  290. Bob 1,1,159,1
  291. Sprite 2,430,184,14
  292. Bob 3,200,75,11
  293. Bob 4,100,75,11
  294. Channel 7 To Bob 3
  295. Channel 8 To Bob 4
  296. Amal 8,CIG$
  297. Amal 7,CIG$
  298. Amal On 8
  299. Wait 10
  300. Amal On 7
  301. Return 
  302. LEVEL2:
  303. LEV$="Level 2"
  304. MES1$="You might just have to use that"
  305. MES2$="fire button now (oh no!!)"
  306. Return 
  307. LEVEL2SET:
  308. Bob 1,1,159,1
  309. Sprite 2,430,184,14
  310. Bob 3,150,159,$8000+7
  311. Channel 7 To Bob 3
  312. Amal 7,"A 0,($8000+7,50)($8000+8,50)"
  313. Amal On 7
  314. Return 
  315. LEVEL5:
  316. LEV$="Level 5"
  317. MES1$="This is getting harder"
  318. MES2$="don't you think?"
  319. Return 
  320. LEVEL5SET:
  321. Bob 1,1,159,1
  322. Sprite 2,430,184,14
  323. Bob 3,350,157,9
  324. Channel 7 To Bob 3
  325. MATC$="Loop:A 0,(9,5)(10,5):M -400,0,200:A 0,($8000+9,5)($8000+10,5):M 400,0,200:Jump Loop"
  326. Amal 7,MATC$
  327. Amal On 7
  328. Return 
  329. LEVEL6:
  330. LEV$="Level 6"
  331. MES1$="You will never look at a match"
  332. MES2$="the same way again..."
  333. Return 
  334. LEVEL6SET:
  335. Bob 1,1,159,1
  336. Sprite 2,430,184,14
  337. Bob 3,350,157,9
  338. Bob 2,200,157,$8000+9
  339. Channel 7 To Bob 3
  340. Channel 8 To Bob 2
  341. Amal 8,MATC$
  342. Amal 7,MATC$
  343. Amal On 8
  344. Amal On 7
  345. Return 
  346. LEVEL7:
  347. LEV$="Level 7"
  348. MES1$="Seeing its lucky level 7"
  349. MES2$="we'll have an easy level"
  350. Return 
  351. LEVEL7SET:
  352. Bob 1,1,159,1
  353. Sprite 2,430,184,14
  354. Bob 2,100,59,13
  355. Bob 3,200,59,13
  356. Channel 7 To Bob 2
  357. Channel 8 To Bob 3
  358. FDRIBBLE$="A 0,(12,5)(13,5):Loop:M 0,105,40:M 0,-105,1:Jump Loop"
  359. Amal 7,FDRIBBLE$
  360. Amal 8,FDRIBBLE$
  361. Amal On 7
  362. Amal On 8
  363. Return 
  364. LEVEL8:
  365. LEV$="Level 8"
  366. MES1$="Thats enough easy levels...."
  367. MES2$=""
  368. Return 
  369. LEVEL8SET:
  370. Bob 1,1,159,1
  371. Sprite 2,430,184,14
  372. Sprite 8,300,200,7
  373. Bob 2,100,75,11
  374. Bob 3,350,157,9
  375. Channel 7 To Sprite 8
  376. Channel 8 To Bob 2
  377. Channel 9 To Bob 3
  378. Amal 8,CIG$
  379. Amal On 8
  380. Amal 9,MATC$
  381. Amal On 9
  382. Amal 7,"A 0,(7,50)(8,50)"
  383. Amal On 7
  384. Return 
  385. LEVEL9:
  386. LEV$="Level 9"
  387. MES1$="BE AFRAID BE VERY AFFRAID!!!!"
  388. MES2$=""
  389. Return 
  390. LEVEL9SET:
  391. Bob 1,1,159,1
  392. Sprite 2,430,184,14
  393. Sprite 8,300,100,13
  394. Bob 2,350,157,9
  395. Bob 3,150,159,$8000+7
  396. Channel 7 To Sprite 8
  397. Channel 9 To Bob 2
  398. Channel 10 To Bob 3
  399. Amal 7,FDRIBBLE$
  400. Amal On 7
  401. Amal 9,MATC$
  402. Amal On 9
  403. Amal 10,"A 0,($8000+7,50)($8000+8,50)"
  404. Amal On 10
  405. Return 
  406. LEVEL10:
  407. LEV$="Level 10"
  408. MES1$="One level away!!!!!!!!"
  409. MES2$="(The GRAVE YARD level!!!!!)"
  410. Return 
  411. LEVEL10SET:
  412. Bob 1,1,159,1
  413. Sprite 2,430,184,14
  414. Bob 2,100,163,19
  415. Bob 3,200,163,19
  416. Bob 4,150,163,19
  417. Bob 5,50,163,19
  418. Bob 6,250,163,19
  419. Channel 7 To Bob 2
  420. Channel 8 To Bob 3
  421. Channel 9 To Bob 4
  422. Channel 10 To Bob 5
  423. Channel 11 To Bob 6
  424. SKEL$="A 0,(19,10)(20,5)(21,10)(22,10)(21,10)(22,10)(21,10)(20,10)"
  425. Amal 7,SKEL$
  426. Amal On 7
  427. Amal 8,SKEL$
  428. Amal On 8
  429. Amal 9,SKEL$
  430. Amal 10,SKEL$
  431. Amal 11,SKEL$
  432. Return 
  433. STAGE2:
  434. If JUSTGO=0 Then Gosub CHANNES
  435. If JUSTSTART=1 Then Bank Swap 9,3
  436. Screen Hide 0
  437. Screen Open 0,320,256,32,LORES
  438. Screen Hide 0 : Screen 0 : Curs Off : Cls 0 : Hide 
  439. WHICH=11
  440. Wait 1
  441. Screen Show 1
  442. Screen 1
  443. Cls 0
  444. Locate 0,13 : Pen 3 : Centre "Stage 2"
  445. Locate 0,20 : Pen 2 : Centre "Stage Code:Green Blobs"
  446. CODEY$="GREEN BLOBS"
  447. If JUSTSTART=1 Then LIVES=3
  448. JUSTSTART=0
  449. Pen 2
  450. Screen 0
  451. WAFIRE
  452. Load Iff "background2"
  453. Get Sprite Palette 
  454. Set Rainbow 0,12,255,"","","(16,1,1)"
  455. Rainbow 0,1,1,255
  456. If JUSTGO=0 Then Goto WHY2
  457. LEVEL11:
  458. LEV$="Level 11"
  459. MES1$="You have saved 10 matches already"
  460. MES2$="but that is just the tip of the iceburg!"
  461. If JUSTGO=0 Then Goto LEVELSETUP2
  462. LEVEL11SET:
  463. Bob 1,1,159,1
  464. Sprite 2,430,184,14
  465. Bob 2,150,167,32
  466. Return 
  467. SETUP2:
  468. Music 1
  469. Ink 2,21,
  470. If WHICH>20 Then Ink 2,9
  471. Text 10,10,"Score: "+Str$(SCORE)
  472. Ink 2,12
  473. If WHICH>20 Then Ink 2,9
  474. Text 200,10,"Lives: "+Str$(LIVES)
  475. If WHICH=25 Then Wait 10 : Amal On 9
  476. TEST2:
  477. COMPLETE=0
  478. Do 
  479. PAUS$=Inkey$
  480. If X Bob(1)<0 Then Bob 1,1,159,4
  481. If Y Bob(1)>159 Then Bob 1,1,159,1
  482. If Bobsprite Col(1,2 To 2)=True Then Gosub COMPLETE : COMPLETE=1 : If JUSTGO=0 Then Goto WHY2
  483. If Bob Col(1,2 To 9)=True Then Gosub LOSELIFE : If JUSTGO=0 Then Goto WHY2
  484. If Bobsprite Col(1,3 To 15)=True Then Gosub LOSELIFE : Bob 1,1,159,1 : If JUSTGO=0 Then Goto SETUP2
  485. If PAUS$="p" Then Gosub PAUSE
  486. If PAUS$="P" Then Gosub PAUSE
  487. If Fire(1) Then GOUP
  488. If Jright(1) Then GORIT2 : If JUSTGO=0 Then Goto TEST2
  489. If Jleft(1) Then GOLEF2 : If JUSTGO=0 Then Goto TEST2
  490. If P=2 Then Bob 1,X Bob(1),Y Bob(1),1 : Amal Off 2
  491. If P=1 Then Bob 1,X Bob(1),Y Bob(1),4 : Amal Off 3
  492. Wait 1
  493. Loop 
  494. WHY2:
  495. If COMPLETE=1 Then WHICH=WHICH+1
  496. If WHICH=11 Then Gosub LEVEL11
  497. If WHICH=12 Then Gosub LEVEL12
  498. If WHICH=13 Then Gosub LEVEL13
  499. If WHICH=14 Then Gosub LEVEL14
  500. If WHICH=15 Then Gosub LEVEL15
  501. If WHICH=16 Then Gosub LEVEL16
  502. If WHICH=17 Then Gosub LEVEL17
  503. If WHICH=18 Then Gosub LEVEL18
  504. If WHICH=19 Then Gosub LEVEL19
  505. If WHICH=20 Then Gosub LEVEL20
  506. If WHICH=21 Then Gosub LEVEL21
  507. If WHICH=22 Then Gosub LEVEL22
  508. If WHICH=23 Then Gosub LEVEL23
  509. If WHICH=24 Then Gosub LEVEL24
  510. If WHICH=25 Then Gosub LEVEL25
  511. If WHICH=26 Then Gosub LEVEL26
  512. If WHICH=27 Then Gosub LEVEL27
  513. If WHICH=28 Then Gosub LEVEL28
  514. If WHICH=29 Then Gosub LEVEL29
  515. If WHICH=30 Then Gosub LEVEL30
  516. Procedure GOLEF2
  517. Amal Off 2
  518. Move X 1,"(1,-2,2)"
  519. If Chanan(3)=True Then Goto SKOP
  520. Amal 3,"A 1,(5,5)(6,5)"
  521. Amal On 3
  522. SKOP:
  523. Move On 1
  524. Wait 1
  525. If X Bob(1)>X Bob(2) Then Bob 2,X Bob(2)+1,Y Bob(2),$8000+32
  526. If X Bob(1)<X Bob(2) Then Bob 2,X Bob(2)-1,Y Bob(2),32
  527. P=1
  528. End Proc
  529. Procedure GORIT2
  530. Amal Off 3
  531. Move X 1,"(1,2,2)"
  532. If Chanan(2)=True Then Goto SKIP
  533. Amal 2,"A 1,(2,5)(3,5)"
  534. Amal On 2
  535. SKIP:
  536. Move On 1
  537. Wait 1
  538. P=2
  539. If X Bob(1)>X Bob(2) Then Bob 2,X Bob(2)+1,Y Bob(2),$8000+32
  540. If X Bob(1)<X Bob(2) Then Bob 2,X Bob(2)-1,Y Bob(2),32
  541. End Proc
  542. LEVELSETUP2:
  543. Bob Off 
  544. Sprite Off 
  545. Screen Hide 0
  546. Screen Show 1
  547. Screen 1
  548. Cls 0
  549. Locate 0,5 : Centre LEV$
  550. Locate 0,13 : Centre MES1$
  551. Locate 0,14 : Centre MES2$
  552. Wait 10
  553. WAFIRE
  554. Wait 10
  555. Screen Hide 1
  556. Screen Show 0
  557. Screen 0
  558. If WHICH=11 Then Gosub LEVEL11SET
  559. If WHICH=12 Then Gosub LEVEL12SET
  560. If WHICH=13 Then Gosub LEVEL13SET
  561. If WHICH=14 Then Gosub LEVEL14SET
  562. If WHICH=15 Then Gosub LEVEL15SET
  563. If WHICH=16 Then Gosub LEVEL16SET
  564. If WHICH=17 Then Gosub LEVEL17SET
  565. If WHICH=18 Then Gosub LEVEL18SET
  566. If WHICH=19 Then Gosub LEVEL19SET
  567. If WHICH=20 Then Gosub LEVEL20SET
  568. If WHICH=21 Then Gosub LEVEL21SET
  569. If WHICH=22 Then Gosub LEVEL22SET
  570. If WHICH=23 Then Gosub LEVEL23SET
  571. If WHICH=24 Then Gosub LEVEL24SET
  572. If WHICH=25 Then Gosub LEVEL25SET
  573. If WHICH=26 Then Gosub LEVEL26SET
  574. If WHICH=27 Then Gosub LEVEL27SET
  575. If WHICH=28 Then Gosub LEVEL28SET
  576. If WHICH=29 Then Gosub LEVEL29SET
  577. If WHICH=30 Then Gosub LEVEL30SET
  578. If JUSTGO=0 Then Goto SETUP2
  579. LEVEL12:
  580. LEV$="Level 12"
  581. MES1$="You better get used to that green"
  582. MES2$="slob!!!"
  583. Return 
  584. LEVEL12SET:
  585. Bob 1,1,159,4
  586. Sprite 2,430,184,14
  587. Bob 2,150,167,32
  588. Bob 3,100,165,34
  589. Bob 4,150,165,34
  590. Bob 5,200,165,34
  591. Return 
  592. LEVEL13:
  593. LEV$="Level 13"
  594. MES1$="I hope it's not Friday.....!"
  595. MES2$=""
  596. Return 
  597. LEVEL13SET:
  598. Bob 1,1,159,4
  599. Sprite 2,430,184,14
  600. Bob 2,150,167,32
  601. Bob 3,100,167,28
  602. Bob 4,130,167,28
  603. Bob 5,160,167,28
  604. Bob 6,115,167,34
  605. Channel 8 To Bob 3
  606. Channel 9 To Bob 4
  607. Channel 10 To Bob 5
  608. SHARP$="A 0,(28,20)(29,10)(30,10)(31,10)(30,10)(29,10)(28,30)"
  609. Amal 8,SHARP$
  610. Amal 9,SHARP$
  611. Amal 10,SHARP$
  612. Amal On 9
  613. Amal On 8
  614. Amal On 10
  615. Return 
  616. LEVEL14:
  617. LEV$="Level 14"
  618. MES1$="Its amazing the things you come"
  619. MES2$="across, when saving a match."
  620. Return 
  621. LEVEL14SET:
  622. Bob 1,1,159,1
  623. Sprite 2,430,184,14
  624. Bob 2,150,167,32
  625. Bob 3,100,167,35
  626. Bob 4,250,167,35
  627. Channel 8 To Bob 3
  628. Channel 9 To Bob 4
  629. FLAB$="Loop:A 0,(35,5)(36,5):M -25,0,25:A 0,($8000+35,5)($8000+36,5):M 25,0,25:Jump Loop"
  630. Amal 8,FLAB$
  631. Amal 9,FLAB$
  632. Amal On 8
  633. Amal On 9
  634. Return 
  635. LEVEL15:
  636. LEV$="Level 15"
  637. MES1$="and I mean AMAZING!!"
  638. MES2$=""
  639. Return 
  640. LEVEL15SET:
  641. Bob 1,1,159,1
  642. Sprite 2,430,184,14
  643. Bob 2,150,167,32
  644. Bob 3,100,165,37
  645. Bob 4,200,165,37
  646. Bob 5,150,167,28
  647. Channel 8 To Bob 3
  648. Channel 9 To Bob 4
  649. Channel 10 To Bob 5
  650. JUMPING$="A 0,(37,10)(38,10)"
  651. Amal 8,JUMPING$
  652. Amal 9,JUMPING$
  653. Amal 10,SHARP$
  654. Amal On 8
  655. Amal On 9
  656. Amal On 10
  657. Return 
  658. LEVEL16:
  659. LEV$="Level 16"
  660. MES1$="Being a match is quite striking"
  661. MES2$=""
  662. Return 
  663. LEVEL16SET:
  664. Bob 1,1,159,1
  665. Sprite 2,430,184,14
  666. Bob 2,150,167,32
  667. Bob 4,350,155,39
  668. Channel 9 To Bob 4
  669. BEE$="Loop:A 1,(39,1):M -400,0,150:A 1,($8000+39,1):M 400,0,150:Jump Loop"
  670. Amal 9,BEE$
  671. Amal On 9
  672. Return 
  673. LEVEL17:
  674. LEV$="Level 17"
  675. MES1$="Shall we have a hard level??"
  676. MES2$="Naaa!!!!!"
  677. Return 
  678. LEVEL17SET:
  679. Bob 1,1,159,1
  680. Sprite 2,430,184,14
  681. Bob 2,150,167,32
  682. Bob 3,350,155,39
  683. Bob 4,100,167,34
  684. Bob 5,200,167,34
  685. Channel 8 To Bob 3
  686. Amal 8,BEE$
  687. Amal On 8
  688. Return 
  689. LEVEL18:
  690. LEV$="Level 18"
  691. MES2$="Yes lets........,"
  692. Return 
  693. LEVEL18SET:
  694. Bob 1,1,159,1
  695. Sprite 2,430,184,14
  696. Bob 2,150,167,32
  697. Bob 3,350,155,39
  698. Bob 4,50,155,39
  699. Channel 8 To Bob 3
  700. Channel 9 To Bob 4
  701. BEE2$="Loop:A 1,($8000+39,1):M 200,0,100:A 1,(39,1):M -200,0,100:Jump Loop"
  702. Amal 8,BEE$
  703. Amal 9,BEE2$
  704. Amal On 8
  705. Amal On 9
  706. Return 
  707. LEVEL19:
  708. LEV$="Level 19"
  709. MES1$="Try this on for size....."
  710. MES2$=""
  711. Return 
  712. LEVEL19SET:
  713. Bob 1,1,159,1
  714. Sprite 2,430,184,14
  715. Bob 2,150,167,32
  716. Bob 3,50,155,39
  717. Bob 4,100,167,35
  718. Bob 5,250,167,35
  719. Channel 8 To Bob 3
  720. Channel 9 To Bob 4
  721. Channel 10 To Bob 5
  722. Amal 8,BEE2$
  723. Amal 9,FLAB$
  724. Amal 10,FLAB$
  725. Amal On 8
  726. Amal On 9
  727. Amal On 10
  728. Return 
  729. LEVEL20:
  730. LEV$="Level 20"
  731. MES1$="Not a hard level to end stage 2"
  732. MES2$="with....(Well not VERY hard)"
  733. Return 
  734. LEVEL20SET:
  735. Bob 1,1,159,1
  736. Sprite 2,430,184,14
  737. Bob 2,150,167,32
  738. Bob 3,50,167,28
  739. Bob 4,100,167,28
  740. Bob 5,200,167,28
  741. Bob 6,250,167,28
  742. Channel 8 To Bob 3
  743. Channel 9 To Bob 4
  744. Channel 10 To Bob 5
  745. Channel 11 To Bob 6
  746. For ER=8 To 11
  747. Amal ER,SHARP$
  748. Amal On ER
  749. Next ER
  750. Return 
  751. STAGE3:
  752. WHICH=21
  753. If JUSTGO=0 Then Gosub CHANNES
  754. If JUSTSTART=1 Then Bank Swap 3,9
  755. If JUSTSTART=1 Then LIVES=3
  756. JUSTSTART=0
  757. Screen Hide 0
  758. Screen Open 0,320,256,32,LORES
  759. Screen Hide 0 : Screen 0 : Hide : Curs Off : Cls 0
  760. Screen Show 1
  761. Screen 1
  762. Cls 0
  763. Locate 0,13 : Pen 3 : Centre "Stage 3"
  764. Locate 0,20 : Pen 2 : Centre "Stage Code: Whirly Whirly Wind"
  765. CODEY$="WHIRLY WHIRLY WIND"
  766. Pen 2
  767. WAFIRE
  768. Screen 0
  769. Load Iff "background3"
  770. Get Sprite Palette 
  771. Set Rainbow 0,10,255,"","","(16,1,1)"
  772. Rainbow 0,1,1,255
  773. If JUSTGO=0 Then Goto WHY2
  774. LEVEL21:
  775. LEV$="Level 21"
  776. MES1$="20 certainly doomed matches have been"
  777. MES2$="heroicly saved by you, well done."
  778. Return 
  779. LEVEL21SET:
  780. Bob 1,1,159,1
  781. Bob 2,150,167,32
  782. Sprite 2,430,184,14
  783. Bob 3,100,160,40
  784. Channel 8 To Bob 3
  785. WHIRLY$="A 0,(40,5)(41,5):Loop:Let A=Z(100)+1:M A,0,50:Let A=Z(50)-100:M A,0,50:Jump Loop"
  786. Amal 8,WHIRLY$
  787. Amal On 8
  788. Return 
  789. LEVEL22:
  790. LEV$="Level 22"
  791. MES1$="Blimey that whirlwind was hard. I've"
  792. MES2$="got a feeling we'll see more of that."
  793. Return 
  794. LEVEL22SET:
  795. Bob 1,1,159,1
  796. Sprite 2,430,184,14
  797. Bob 2,150,167,32
  798. Bob 3,200,163,42
  799. Bob 4,100,160,40
  800. Bob 5,230,163,42
  801. Channel 8 To Bob 4
  802. Channel 9 To Bob 3
  803. Channel 10 To Bob 5
  804. HAMMER$="A 0,(42,10)(43,10)(44,20)(43,5)(42,40)"
  805. Amal 9,HAMMER$
  806. Amal 8,WHIRLY$
  807. Amal 10,HAMMER$
  808. Amal On 10
  809. Amal On 9
  810. Amal On 8
  811. Return 
  812. LEVEL23:
  813. LEV$="Level 23"
  814. MES1$="Bridges are not made like they"
  815. MES2$="used to be......"
  816. Return 
  817. LEVEL23SET:
  818. Bob 1,1,159,1
  819. Sprite 2,430,184,14
  820. Bob 2,150,167,32
  821. Bob 4,150,160,40
  822. Bob 5,200,160,51
  823. Bob 6,230,160,51
  824. Channel 8 To Bob 4
  825. Channel 9 To Bob 5
  826. Channel 10 To Bob 6
  827. SPURT$="A 0,(51,10)(45,10)(46,10)(47,10)(48,10)"
  828. Amal 9,SPURT$
  829. Amal 10,SPURT$
  830. Amal 8,WHIRLY$
  831. Amal On 8
  832. Amal On 9
  833. Wait 30
  834. Amal On 10
  835. Return 
  836. LEVEL24:
  837. LEV$="Level 24"
  838. MES1$="If you thought the spurts of water"
  839. MES2$="were bad, wait until you see this.."
  840. Return 
  841. LEVEL24SET:
  842. Bob 1,1,159,1
  843. Sprite 2,430,184,14
  844. Bob 2,150,167,32
  845. Bob 3,150,160,40
  846. Bob 4,200,180,49
  847. Bob 5,250,180,49
  848. Channel 8 To Bob 3
  849. Channel 9 To Bob 4
  850. Channel 10 To Bob 5
  851. Amal 8,WHIRLY$
  852. FISHY$="Loop:A 1,(49,1):M 0,-50,25:A 1,(50,1):M 0,50,20:Jump Loop"
  853. Amal 9,FISHY$
  854. Amal 10,FISHY$
  855. Amal On 8
  856. Amal On 9
  857. Amal On 10
  858. Return 
  859. LEVEL25:
  860. LEV$="Level 25"
  861. MES1$="No whirlwind in this level! (Few)"
  862. MES2$="Just plenty of balls?!?!"
  863. Return 
  864. LEVEL25SET:
  865. Bob 1,1,159,1
  866. Sprite 2,430,184,14
  867. Bob 2,150,167,32
  868. Bob 3,100,168,52
  869. Bob 4,200,168,52
  870. Bob 5,250,160,31
  871. Channel 8 To Bob 3
  872. Channel 9 To Bob 4
  873. Channel 10 To Bob 5
  874. BALLS$="Loop:M 0,-35,10:M 0,-15,8:M 0,15,8:M 0,35,10:A 1,(53,5)(52,1):M 0,0,0:Jump Loop"
  875. Amal 8,BALLS$
  876. Amal 9,BALLS$
  877. Amal 10,SPURT$
  878. Amal On 10
  879. Amal On 8
  880. Return 
  881. LEVEL26:
  882. LEV$="Level 26"
  883. MES1$="Rubber ball, keep on bouncin' back"
  884. MES2$="to you. bouncy bouncy (A song)"
  885. Return 
  886. LEVEL26SET:
  887. Bob 1,1,159,1
  888. Sprite 2,430,184,14
  889. Bob 2,150,167,32
  890. Bob 3,350,168,52
  891. Bob 4,150,160,40
  892. Channel 8 To Bob 3
  893. Channel 9 To Bob 4
  894. BALL$="Loop:M -400,0,100:M 400,0,100:Jump Loop"
  895. Amal 8,BALL$
  896. Amal On 8
  897. Amal 9,WHIRLY$
  898. Amal On 9
  899. Return 
  900. LEVEL27:
  901. LEV$="Level 27"
  902. MES1$="I know you have been finding these"
  903. MES2$="last few levels hard...and so....."
  904. Return 
  905. LEVEL27SET:
  906. Bob 1,1,159,1
  907. Sprite 2,430,184,14
  908. Bob 2,150,167,32
  909. Bob 3,100,160,40
  910. Bob 4,200,160,40
  911. Bob 5,200,160,40
  912. Channel 8 To Bob 3
  913. Channel 9 To Bob 4
  914. Channel 10 To Bob 5
  915. Amal 8,WHIRLY$
  916. Amal 9,WHIRLY$
  917. Amal 10,WHIRLY$
  918. Amal On 8
  919. Amal On 9
  920. Amal On 10
  921. Return 
  922. LEVEL28:
  923. LEV$="Level 28"
  924. MES1$="When the wind blows......"
  925. MES2$="(and the balls bounce and the fish..."
  926. Return 
  927. LEVEL28SET:
  928. Bob 1,1,159,1
  929. Sprite 2,430,184,14
  930. Bob 2,150,167,32
  931. Bob 3,150,160,48
  932. Bob 4,100,168,52
  933. Bob 5,200,168,52
  934. Bob 6,250,180,49
  935. Channel 8 To Bob 3
  936. Channel 9 To Bob 4
  937. Channel 10 To Bob 5
  938. Channel 11 To Bob 6
  939. Amal 8,WHIRLY$
  940. Amal On 8
  941. Amal 9,BALLS$
  942. Amal On 9
  943. Amal 10,BALLS$
  944. Amal On 10
  945. Amal 11,FISHY$
  946. Amal On 11
  947. Return 
  948. LEVEL29:
  949. LEV$="Level 29"
  950. MES1$="Wow!! If you have got here without"
  951. MES2$="the cheat then you must be good."
  952. Return 
  953. LEVEL29SET:
  954. Bob 1,1,159,1
  955. Sprite 2,430,184,14
  956. Bob 2,150,167,32
  957. Bob 3,100,163,42
  958. Bob 4,130,163,42
  959. Bob 5,170,163,42
  960. Bob 6,200,163,42
  961. Channel 8 To Bob 3
  962. Channel 9 To Bob 4
  963. Channel 10 To Bob 5
  964. Channel 11 To Bob 6
  965. For ER=8 To 11
  966. Amal ER,HAMMER$
  967. Amal On ER
  968. Next 
  969. Return 
  970. LEVEL30:
  971. LEV$="Level 30"
  972. MES1$="As usual the last level is nice"
  973. MES2$="and easy................"
  974. Return 
  975. LEVEL30SET:
  976. Bob 1,1,159,1
  977. Sprite 2,430,184,14
  978. Bob 2,150,167,32
  979. Bob 3,350,168,52
  980. Bob 4,400,168,52
  981. Channel 8 To Bob 3
  982. Channel 9 To Bob 4
  983. Amal 8,BALL$
  984. Amal 9,BALL$
  985. Amal On 8
  986. Amal On 9
  987. Return 
  988. STAGE4:
  989. Music Off 
  990. WHICH=31
  991. If JUSTSTART=1 Then LIVES=3
  992. JUSTSTART=0
  993. Screen Hide 0
  994. Screen Open 0,320,256,32,LORES
  995. Screen Hide 0 : Curs Off : Hide : Cls 0
  996. Screen Show 1
  997. Screen 1
  998. Cls 0
  999. Pen 3 : Locate 0,13 : Centre "Stage 4"
  1000. Pen 2
  1001. Locate 0,20 : Centre "Stage Code: Under Water Frantics"
  1002. CODEY$="UNDER WATER FRANTICS"
  1003. WAFIRE
  1004. Screen 0
  1005. Load Iff "Background4"
  1006. Load "musicwater.abk",9
  1007. Bank Swap 3,9
  1008. Get Sprite Palette 
  1009. Screen 1
  1010. Cls 0
  1011. If JUSTGO=0 Then Goto WHY3
  1012. SETUP3:
  1013. If JUSTGO=0 Then Gosub CHANNES
  1014. Music 1
  1015. Ink 2,9
  1016. Text 10,10,"Score: "+Str$(SCORE)
  1017. Ink 2,9
  1018. Text 200,10,"Lives: "+Str$(LIVES)
  1019. If WHICH=34 Then SUB
  1020. If WHICH=38 Then SUB
  1021. TEST3:
  1022. COMPLETE=0
  1023. Do 
  1024. PAUS$=Inkey$
  1025. If WHICH=35 and Chanan(9)=False Then Bob Off 4
  1026. If WHICH=35 and Chanan(10)=False Then Bob Off 5
  1027. If X Bob(1)<0 Then Bob 1,1,159,58
  1028. If Y Bob(1)>159 Then Bob 1,1,159,58
  1029. If Bobsprite Col(1,2 To 2)=True Then Gosub COMPLETE : COMPLETE=1 : If JUSTGO=0 Then Goto WHY3
  1030. If Bob Col(1,2 To 9)=True Then Gosub LOSELIFE : If JUSTGO=0 Then Goto WHY3
  1031. If Bobsprite Col(1,3 To 15)=True Then Gosub LOSELIFE : Bob 1,1,159,58 : If JUSTGO=0 Then Goto WHY3
  1032. If PAUS$="p" Then Gosub PAUSE
  1033. If PAUS$="P" Then Gosub PAUSE
  1034. If Fire(1) Then GOUP
  1035. If Jright(1) Then GORIT3 : If JUSTGO=0 Then Goto TEST3
  1036. If Jleft(1) Then GOLEF3 : If JUSTGO=0 Then Goto TEST3
  1037. If P=2 Then Bob 1,X Bob(1),Y Bob(1),58 : Amal Off 2
  1038. If P=1 Then Bob 1,X Bob(1),Y Bob(1),61 : Amal Off 3
  1039. Wait 1
  1040. Procedure SUB
  1041. Amal On 7
  1042. For SE=1 To 270
  1043. If X Bob(2)=200 Then Bob 3,X Bob(2),Y Bob(2),73 : Amal On 8
  1044. If X Bob(2)=100 Then Bob 4,X Bob(2),Y Bob(2),73 : Amal On 9
  1045. Wait 1
  1046. Next SE
  1047. If WHICH=38 Then Amal On 10
  1048. End Proc
  1049. Loop 
  1050. WHY3:
  1051. If COMPLETE=1 Then WHICH=WHICH+1
  1052. If CHEAT=1 Then WHICH=40
  1053. CHEAT=0
  1054. If WHICH=31 Then Gosub LEVEL31
  1055. If WHICH=32 Then Gosub LEVEL32
  1056. If WHICH=33 Then Gosub LEVEL33
  1057. If WHICH=34 Then Gosub LEVEL34
  1058. If WHICH=35 Then Gosub LEVEL35
  1059. If WHICH=36 Then Gosub LEVEL36
  1060. If WHICH=37 Then Gosub LEVEL37
  1061. If WHICH=38 Then Gosub LEVEL38
  1062. If WHICH=39 Then Gosub LEVEL39
  1063. If WHICH=40 Then Gosub LEVEL40
  1064. LEVELSETUP3:
  1065. Bob Off 
  1066. Sprite Off 
  1067. Screen Hide 0
  1068. Screen Show 1
  1069. Screen 1
  1070. Cls 0
  1071. Locate 0,5 : Centre LEV$
  1072. Locate 0,13 : Centre MES1$
  1073. Locate 0,14 : Centre MES2$
  1074. Wait 10
  1075. WAFIRE
  1076. Wait 10
  1077. Screen Hide 1
  1078. Screen Show 0
  1079. Screen 0
  1080. If WHICH=31 Then Gosub LEVEL31SET
  1081. If WHICH=32 Then Gosub LEVEL32SET
  1082. If WHICH=33 Then Gosub LEVEL33SET
  1083. If WHICH=34 Then Gosub LEVEL34SET
  1084. If WHICH=35 Then Gosub LEVEL35SET
  1085. If WHICH=36 Then Gosub LEVEL36SET
  1086. If WHICH=37 Then Gosub LEVEL37SET
  1087. If WHICH=38 Then Gosub LEVEL38SET
  1088. If WHICH=39 Then Gosub LEVEL39SET
  1089. If WHICH=40 Then Gosub LEVEL40SET
  1090. If JUSTGO=0 Then Goto SETUP3
  1091. LEVEL31:
  1092. LEV$="Level 31"
  1093. MES1$="Get ready for a big change!!!"
  1094. MES2$=""
  1095. Return 
  1096. LEVEL31SET:
  1097. Bob 1,1,159,58
  1098. Sprite 2,430,184,14
  1099. Bob 2,100,163,66
  1100. Bob 3,200,163,66
  1101. Channel 7 To Bob 2
  1102. Channel 8 To Bob 3
  1103. CHEST$="A 0,(66,10)(67,10)(66,10)(67,10)(68,10)(67,10)(68,10)(67,10)"
  1104. Amal 7,CHEST$
  1105. Amal 8,CHEST$
  1106. Amal On 8
  1107. Amal On 7
  1108. Return 
  1109. Procedure GORIT3
  1110. Amal Off 3
  1111. Move X 1,"(1,2,2)"
  1112. If Chanan(2)=True Then Goto SKIP
  1113. Amal 2,"A 1,(59,5)(60,5)"
  1114. Amal On 2
  1115. SKIP:
  1116. Move On 1
  1117. Wait 1
  1118. P=2
  1119. End Proc
  1120. Procedure GOLEF3
  1121. Amal Off 2
  1122. Move X 1,"(1,-2,2)"
  1123. If Chanan(3)=True Then Goto SKOP
  1124. Amal 3,"A 1,(62,5)(63,5)"
  1125. Amal On 3
  1126. SKOP:
  1127. Move On 1
  1128. Wait 1
  1129. P=1
  1130. End Proc
  1131. LEVEL32:
  1132. LEV$="Level 32"
  1133. MES1$="Is'nt this game just ELECTRIFYING"
  1134. MES2$="You'll see what I mean....."
  1135. Return 
  1136. LEVEL32SET:
  1137. Bob 1,1,159,58
  1138. Sprite 2,430,184,14
  1139. Bob 2,150,163,66
  1140. Bob 3,350,160,69
  1141. Channel 7 To Bob 2
  1142. Channel 8 To Bob 3
  1143. Amal 7,CHEST$
  1144. Amal On 7
  1145. EEL$="Loop:A 0,(69,5)(70,5)(69,5)(70,5)(69,6)(70,5)(72,5)(71,5):M -400,0,200:A 0,($8000+69,5)($8000+70,5):M 400,0,200:Jump Loop"
  1146. Amal 8,EEL$
  1147. Amal On 8
  1148. Return 
  1149. LEVEL33:
  1150. LEV$="Level 33"
  1151. MES1$="Oh I do like to be beside the"
  1152. MES2$="sea.......but not deep under it!!!"
  1153. Return 
  1154. LEVEL33SET:
  1155. Bob 1,1,159,58
  1156. Sprite 2,430,184,14
  1157. Bob 2,100,160,65
  1158. Bob 3,200,160,65
  1159. Bob 4,300,160,65
  1160. Channel 7 To Bob 2
  1161. Channel 8 To Bob 3
  1162. Channel 9 To Bob 4
  1163. MERM$="Loop:A 0,(64,5)(65,5):M -25,-10,20:M -25,10,20:A 0,($8000+64,5)($8000+65,5):M 25,-10,20:M 25,10,20:Jump Loop"
  1164. Amal 7,MERM$
  1165. Amal 8,MERM$
  1166. Amal 9,MERM$
  1167. Amal On 8
  1168. Amal On 7
  1169. Amal On 9
  1170. Return 
  1171. LEVEL34:
  1172. LEV$="Level 34"
  1173. MES1$="Pollution......we must stop people"
  1174. MES2$="dumping rubish in our seas!!!!!"
  1175. Return 
  1176. LEVEL34SET:
  1177. Bob 1,1,159,58
  1178. Sprite 2,430,184,14
  1179. Bob 2,350,110,74
  1180. Bob 3,400,400,73
  1181. Bob 4,400,400,73
  1182. Bob 5,150,163,66
  1183. Channel 7 To Bob 2
  1184. Channel 8 To Bob 3
  1185. Channel 9 To Bob 4
  1186. Channel 10 To Bob 5
  1187. OIL$="M 0,55,55"
  1188. Amal 8,OIL$
  1189. Amal 9,OIL$
  1190. Amal 10,CHEST$
  1191. SUB$="M -400,0,400"
  1192. Amal 7,SUB$
  1193. Amal On 7
  1194. Amal On 10
  1195. Return 
  1196. LEVEL35:
  1197. LEV$="Level 35"
  1198. MES1$="I never knew things could explode"
  1199. MES2$="under water....."
  1200. Return 
  1201. LEVEL35SET:
  1202. Bob 1,1,159,1
  1203. Sprite 2,430,184,14
  1204. Bob 2,100,160,65
  1205. Bob 3,200,160,65
  1206. Bob 4,25,165,75
  1207. Bob 5,260,165,75
  1208. Channel 7 To Bob 2
  1209. Channel 8 To Bob 3
  1210. Channel 9 To Bob 4
  1211. Channel 10 To Bob 5
  1212. Amal 7,MERM$
  1213. Amal On 7
  1214. Amal 8,MERM$
  1215. Amal On 8
  1216. BLOWUP$="A 1,(75,100)(76,10)(77,10)(78,10)"
  1217. BLOWUP2$="A 1,(75,400)(76,10)(77,10)(78,10)"
  1218. Amal 9,BLOWUP$
  1219. Amal On 9
  1220. Amal 10,BLOWUP2$
  1221. Amal On 10
  1222. Return 
  1223. LEVEL36:
  1224. LEV$="Level 36"
  1225. MES1$="We all live in a yellow submerine,"
  1226. MES2$="2 yellow submerines 3 yellow submerines"
  1227. Return 
  1228. LEVEL36SET:
  1229. Bob 1,1,159,58
  1230. Sprite 2,430,184,14
  1231. Bob 3,370,157,74
  1232. Bob 4,300,157,74
  1233. Bob 5,230,157,74
  1234. Channel 7 To Bob 3
  1235. Channel 8 To Bob 4
  1236. Channel 9 To Bob 5
  1237. SUB2$="Loop:A 1,(74,1);M -400,0,300;A 1,($8000+74,1);M 400,0,200;Jump Loop"
  1238. Amal 7,SUB2$
  1239. Amal On 7
  1240. Amal 8,SUB2$
  1241. Amal On 8
  1242. Amal 9,SUB2$
  1243. Amal On 9
  1244. Return 
  1245. LEVEL37:
  1246. LEV$="Level 37"
  1247. MES1$="Tell me, how long can you hold"
  1248. MES2$="your breath for?"
  1249. Return 
  1250. LEVEL37SET:
  1251. Bob 1,1,159,58
  1252. Sprite 2,430,184,14
  1253. Bob 2,150,160,65
  1254. Bob 3,350,157,74
  1255. Bob 4,50,165,75
  1256. Channel 7 To Bob 2
  1257. Channel 8 To Bob 3
  1258. Channel 9 To Bob 4
  1259. Amal 7,MERM$
  1260. Amal On 7
  1261. Amal 8,SUB2$
  1262. Amal On 8
  1263. Amal 9,BLOWUP$
  1264. Amal On 9
  1265. Return 
  1266. LEVEL38:
  1267. LEV$="Level 38"
  1268. MES1$="I must admit, I am running out of"
  1269. MES2$="things to say on these on these screens!"
  1270. Return 
  1271. LEVEL38SET:
  1272. Bob 1,1,159,58
  1273. Sprite 2,430,184,14
  1274. Bob 2,350,110,74
  1275. Bob 3,400,400,73
  1276. Bob 4,400,400,73
  1277. Bob 5,350,157,74
  1278. Channel 7 To Bob 2
  1279. Channel 8 To Bob 3
  1280. Channel 9 To Bob 4
  1281. Channel 10 To Bob 5
  1282. Amal 10,SUB2$
  1283. Amal 8,OIL$
  1284. Amal 9,OIL$
  1285. Amal 7,SUB$
  1286. Amal On 7
  1287. Return 
  1288. LEVEL39:
  1289. LEV$="Level 39"
  1290. MES1$="You are getting ever nearer to"
  1291. MES2$="the lizard king Olag's domain...!!!!"
  1292. Return 
  1293. LEVEL39SET:
  1294. Bob 1,1,159,58
  1295. Sprite 2,430,184,14
  1296. Bob 2,100,160,64
  1297. Bob 3,250,160,64
  1298. Bob 4,350,167,69
  1299. Channel 7 To Bob 2
  1300. Channel 8 To Bob 3
  1301. Channel 9 To Bob 4
  1302. Amal 7,MERM$
  1303. Amal 8,MERM$
  1304. Amal On 8
  1305. Amal On 7
  1306. Amal 9,EEL$
  1307. Amal On 9
  1308. Return 
  1309. LEVEL40:
  1310. LEV$="LEVEL 40!!!"
  1311. MES1$="Things are not allways how they"
  1312. MES2$="seem!!??!!??"
  1313. Return 
  1314. LEVEL40SET:
  1315. Bob 1,1,159,58
  1316. Sprite 2,430,184,14
  1317. Bob 2,350,159,4
  1318. Channel 7 To Bob 2
  1319. Amal 7,"A 0,(5,5)(6,5):M -400,0,200:A 10,(2,5)(3,5):M 200,0,100:A 1,(1,1)"
  1320. Amal On 7
  1321. Return 
  1322. OLDBLOKE:
  1323. Sprite Off 2
  1324. Channel 7 To Bob 2
  1325. For WER=1 To 33
  1326. GOLEF3
  1327. Wait 1
  1328. Next 
  1329. Music Off 
  1330. Wait 100
  1331. Amal 7,"A 1,(1,10)(79,10)(1,10)(79,10)(80,10)(79,10)(80,10)(82,10)(80,10)(82,10)(81,10)(82,10)(81,10)"
  1332. Amal On 7
  1333. Wait 100
  1334. Screen Open 2,320,50,8,LORES
  1335. Screen Hide 2
  1336. Screen 2
  1337. Hide : Curs Off : Cls 0
  1338. Channel 8 To Screen Display 2
  1339. Amal 8,"M 0,75,5"
  1340. Amal On 8
  1341. Wait 100
  1342. Screen Show 2
  1343. Wait 50
  1344. Screen 2
  1345. '******************************************************************* 
  1346. 'THE ENDING HAD TO BE CUT OUT IM AFRAID STUART 
  1347. 'OTHERWISE THE GAME JUST WOULD NOT WORK
  1348. '********************************************************************
  1349. Paper 0
  1350. Pen 2 : Centre "Welcome man of matchsticks."
  1351. WAFIRE
  1352. Home 
  1353. Wait 10
  1354. Cls 0 : Pen 4 : Centre "How did you know my name?"
  1355. WAFIRE
  1356. Wait 10
  1357. Home 
  1358. Cls 0 : Pen 2
  1359. Centre "I am known as the wise old bloke."
  1360. Cdown : Centre "I see..................."
  1361. Cdown : Centre "you have traveled far in your quest"
  1362. Cdown : Centre "and that you have saved all 40 sticks."
  1363. WAFIRE
  1364. Home 
  1365. Wait 10 : Cls 0 : Pen 4 : Centre "Yes you're right, but....."
  1366. WAFIRE
  1367. Home : Wait 10 : Pen 2 : Centre "You are near the end of your"
  1368. Cdown : Centre "quest."
  1369. WAFIRE
  1370. Cls 0 : Wait 10 : Home : Pen 4 : Centre "I am ?"
  1371. WAFIRE
  1372. Cls 0 : Wait 10 : Home : Pen 2 : Centre "Olag has fled, fearing your presence."
  1373. Cdown : Centre "God has witnessed the destruction"
  1374. Cdown : Centre "on this planet, and only you are"
  1375. Cdown : Centre "left to face his anger!!"
  1376. WAFIRE
  1377. Wait 10 : Cls 0 : Home : Pen 4 : Centre "So what do i do?"
  1378. WAFIRE
  1379. Wait 10 : Cls 0 : Home : Pen 2 : Centre "You must confront god, and if"
  1380. Cdown : Centre "you pass his test using honisty"
  1381. Cdown : Centre "you will be let free!"
  1382. WAFIRE
  1383. Wait 10 : Home : Cls 0 : Pen 4 : Centre "What sort of test?"
  1384. WAFIRE
  1385. Wait 10 : Home : Cls 0 : Pen 2 : Centre "I cannot tell, But take heed,"
  1386. Cdown : Centre "if you fail the wrath of god"
  1387. Cdown : Centre "will be upon you."
  1388. WAFIRE
  1389. Bob Off 2
  1390. Wait 10 : Cls 0 : Home : Pen 4 : Centre "He's gone!!!!!!"
  1391. Cdown : Centre "But where is God!!!!"
  1392. Cdown : Centre "Which way do I go?"
  1393. Cdown : Centre "Hang on I feel a bit funny....."
  1394. '************************************************************************* 
  1395. 'YOU WILL HAVE TO CHANGE THIS PART TO SUIT YOURSELF
  1396. 'IT WAS A REALY GOOD SPRITE BUT IT WAS TOOO BIG
  1397. '************************************************************************* 
  1398. WAFIRE
  1399. Screen Close 2
  1400. Wait 50
  1401. Boom 
  1402. Bob Off 1
  1403. Wait 50
  1404. Screen 0
  1405. Fade 5 : Wait 100
  1406. HEREGOES:
  1407. Screen Open 0,320,256,32,LORES
  1408. Screen Hide 0 : Curs Off : Cls 0 : Hide 
  1409. Screen Show 1
  1410. Screen 1
  1411. Cls 0
  1412. '************************************************* 
  1413. 'Some more to change 
  1414. '************************************************* 
  1415. Set Rainbow 0,0,255,"","","(1,1,1)"
  1416. Rainbow 0,1,1,305
  1417. Locate 0,5 : Pen 2 : Centre " You see a bright light. The urge"
  1418. Cdown : Centre "to get to it is too incredible."
  1419. Cdown : Centre "You float uncontrollably to it, until "
  1420. Cdown : Centre "every thing goes.....You are floating "
  1421. Cdown : Centre "in blackness, a void, nothingness.... "
  1422. Locate 0,13 : Centre "Suddenly a voice says......."
  1423. '***************************************************** 
  1424. WAFIRE
  1425. Rainbow Del 0
  1426. Cls 0
  1427. _THEEND
  1428. HERE:
  1429. Screen Hide 0
  1430. Screen Open 0,320,256,32,LORES
  1431. Screen Hide 0
  1432. Screen O : Hide : Curs Off : Cls 0
  1433. Screen Show 1
  1434. Screen 1
  1435. Cls 0
  1436. Pen 3 : Locate 0,5
  1437. Centre "CONGRATULATIONS!!!"
  1438. Locate 0,10 : Pen 2 : Centre "You have saved all 40 matches"
  1439. Cdown : Centre "and passed gods test."
  1440. Cdown : Centre "Every matchstick has one"
  1441. Cdown : Centre "person to thank...YOU."
  1442. Cdown : Centre "You have completed matchstickman"
  1443. Cdown : Centre "and for your reward you will"
  1444. Cdown : Centre "recieve the next game by Stuart"
  1445. Cdown : Centre "Fisher totaly FREE."
  1446. Cdown : Centre "Read on to see how to claim.."
  1447. Wait 10
  1448. Screen 0
  1449. Load Iff "finalbackground2"
  1450. WAFIRE
  1451. Screen 1
  1452. If JUSTGO=0 Then Gosub BONUS
  1453. Screen Hide 1
  1454. Screen Show 0
  1455. Screen 0
  1456. Load "end.abk",3
  1457. Wind Open 1,0,0,14,30
  1458. Curs Off 
  1459. Hide 
  1460. Paper 0
  1461. Clw 
  1462. Music 1
  1463. Paper 0
  1464. Locate 0,2 : Pen 2 : Print "Credits.."
  1465. Cdown 
  1466. Print "All code.."
  1467. Print "Stuart Fisher"
  1468. Cdown 
  1469. Print "All graphics"
  1470. Print "Stuart Fisher"
  1471. Cdown 
  1472. Print "All music"
  1473. Print "Stuart Fisher"
  1474. Cdown 
  1475. Print "Special"
  1476. Print "thanks to"
  1477. Cdown 
  1478. Print "Dale Cayford"
  1479. Cdown 
  1480. Print "without whom"
  1481. Print "this game"
  1482. Print "would have"
  1483. Print "never been"
  1484. Print "released."
  1485. Wait 10
  1486. WAFIRE
  1487. Clw 
  1488. Home 
  1489. Cdown 
  1490. Cdown 
  1491. Print "To apply for"
  1492. Print "your FREE"
  1493. Print "game, send"
  1494. Print "the follow-"
  1495. Print "-ing code"
  1496. Print "when you"
  1497. Print "send your ï¿½5"
  1498. Print "shareware"
  1499. Print "money. Also"
  1500. Print "include a"
  1501. Print "blank disk,"
  1502. Print "and of"
  1503. Print "course your"
  1504. Print "name and "
  1505. Print "address."
  1506. Wait 10
  1507. WAFIRE
  1508. Clw 
  1509. Home 
  1510. Cdown 
  1511. Cdown 
  1512. Print "The code"
  1513. Print "is....."
  1514. Print "Please "
  1515. Print "wait"
  1516. Randomize Timer
  1517. Wait 100
  1518. Print Rnd(12)
  1519. Wait 50
  1520. Print Rnd(22)
  1521. Wait 40
  1522. Print Rnd(100)
  1523. Wait 70
  1524. Print "32"
  1525. Print "So send"
  1526. Print "those numbers."
  1527. Print "The address"
  1528. Print "is at the"
  1529. Print "start of the"
  1530. Print "game."
  1531. WAFIRE
  1532. Clw 
  1533. Home 
  1534. Cdown 
  1535. Cdown 
  1536. Print "Remember"
  1537. Print "to send in"
  1538. Print "those scores"
  1539. Print "as well."
  1540. Print "The Highest"
  1541. Print "wins a prize"
  1542. Print "Your score:"
  1543. Print Str$(SCORE)
  1544. Print "I'll look"
  1545. Print "forward to"
  1546. Print "hearing from"
  1547. Print "you......."
  1548. Print "WELL DONE"
  1549. Print "Stuart.."
  1550. Wait 10
  1551. WAFIRE
  1552. For Q=63 To 0 Step -1
  1553. Volume Q : Wait 2
  1554. Next Q
  1555. Music Off 
  1556. Volume 63
  1557. Fade 5
  1558. Do 
  1559. Loop 
  1560. STRT:
  1561. Screen Open 5,320,256,32,LORES
  1562. Curs Off : Cls 0 : Hide 
  1563. Screen 5
  1564. Paper 0 : Pen 3
  1565. Wait 10
  1566. Locate 0,2 : Centre "Important!!"
  1567. Pen 2 : Locate 0,4 : Centre "This game is Shareware and so"
  1568. Cdown : Centre "to keep us writing games, you"
  1569. Cdown : Centre "must pay the shareware fee of ï¿½5."
  1570. Cdown : Centre "A LOT of work has gone into this"
  1571. Cdown : Centre "game so please send this small"
  1572. Cdown : Centre "payment to........"
  1573. Cdown : Centre "(Press Space)"
  1574. Wait Key 
  1575. Cdown : Cdown : Centre "Stuart Fisher"
  1576. Cdown : Centre "6 West Ashton Road"
  1577. Cdown : Centre "Trowbridge"
  1578. Cdown : Centre "Wilts"
  1579. Cdown : Centre "BA14 7BG"
  1580. Cdown : Centre "In return you will get the chance"
  1581. Cdown : Centre "to win a prize!!!"
  1582. Cdown : Centre "Just complete this game"
  1583. Cdown : Centre "to win!!!"
  1584. Cdown : Centre "Also send in your highest scores."
  1585. Cdown : Centre "If I have proof the higest score"
  1586. Cdown : Centre "will also get a prize!!!"
  1587. Cdown : Centre "Press Space To begin"
  1588. Cdown : Cdown : Centre "Release date: Mid November 1992"
  1589. Wait Key 
  1590. Fade 5 : Wait 100 : Cls 0
  1591. Load Iff "introscreen"
  1592. Led Off 
  1593. Load "introtune.abk",9
  1594. WEREW:
  1595. Bank Swap 3,9
  1596. Music 1
  1597. Screen 5
  1598. Paper 0
  1599. Pen 2
  1600. Locate 0,22 : Centre "Press..."
  1601. Locate 0,24 : Pen 6 : Centre "FIRE to start game"
  1602. Locate 0,26 : Centre "UP for Scenerio"
  1603. Locate 0,28 : Centre "DOWN to enter Stage Code"
  1604. Locate 0,30 : Centre "(P to pause in game)"
  1605. Bob 1,10,170,1
  1606. Bob 2,10,220,1
  1607. Bob 3,300,170,4
  1608. Bob 4,300,220,4
  1609. For SEED=1 To 4
  1610. Channel SEED To Bob SEED
  1611. Next 
  1612. Amal 1,"Loop: Let R1=V(0);If R1>0 then Jump Babel else Jump Loop; Babel: A 1,(2,5)(1,1);Jump Loop"
  1613. Amal On 1
  1614. Amal 2,"Loop: Let R1=V(1);If R1>0 then Jump Babel else Jump Loop; Babel: A 1,(2,5)(1,1);Jump Loop"
  1615. Amal On 2
  1616. Amal 3,"Loop: Let R1=V(2);If R1>0 then Jump Babel else Jump Loop; Babel: A 1,(5,5)(4,1);Jump Loop"
  1617. Amal On 3
  1618. Amal 4,"Loop: Let R1=V(3);If R1>0 then Jump Babel else Jump Loop; Babel: A 1,(5,5)(4,1);Jump Loop"
  1619. Amal On 4
  1620. Do 
  1621. If Fire(1) Then Goto WHATLEVEL
  1622. If Jup(1) Then Gosub INSTUC
  1623. If Jdown(1) Then Gosub STAGECODE
  1624. Loop 
  1625. WHATLEVEL:
  1626. Bob Off 
  1627. Screen Hide 5
  1628. JUSTSTART=1
  1629. If CODEY$="GREEN BLOBS" Then Goto STAGE2
  1630. If CODEY$="WHIRLY WHIRLY WIND" Then Goto STAGE3
  1631. If CODEY$="UNDER WATER FRANTICS" Then Goto STAGE4
  1632. If CODEY$="DALE WANTS TO CHEAT" Then Goto STAGE4
  1633. If CODEY$="REFLECTIONS" Then Bell : Paper 1 : Pen 0 : Cls : Locate 0,3 : Centre "what a cheater" : LIVES=99
  1634. If JUSTGO=0 Then Goto STAGE1
  1635. STAGECODE:
  1636. Screen Hide 5
  1637. Screen Open 4,320,266,4,LORES
  1638. Hide : Curs Off : Cls 0
  1639. Locate 0,10 : Paper 0 : Pen 2 : Centre "Please Enter Stage Code"
  1640. Cdown : Centre "(Turn CAPS LOCK on before typing)"
  1641. Cdown : Centre "(Then OFF after typing)"
  1642.  Locate 0,13
  1643. Put Key CODEY$
  1644. Input CODEY$
  1645. If CODEY$="DALE WANTS TO CHEAT" Then CHEAT=1 : Cls 0 : Centre "All right then, Level 40 coming up!" : Wait 100
  1646. If CODEY$="CHEAT" Then Cls 0 : Centre "Guessing eh!!" : Wait 100
  1647. Screen Close 4
  1648. Screen Show 5
  1649. Return 
  1650. INSTUC:
  1651. Music Off 
  1652. Screen Hide 5
  1653. Screen Open 4,320,256,4,LORES
  1654. Curs Off : Cls 0 : Hide 
  1655. Locate 0,5 : Pen 2 : Paper 0 : Centre "Scenerio"
  1656. Cdown : Cdown : Centre "The year is 2005. The place....earth."
  1657. Cdown : Centre "Long ago man destroyed himself"
  1658. Cdown : Centre "and aliens all over the galaxy"
  1659. Cdown : Centre "came to live on the deserted planet."
  1660. Cdown : Centre "One such alien was the Matstiman race."
  1661. Cdown : Centre "This race very much resembled what"
  1662. Cdown : Centre "the extinct Humans would have called"
  1663. Cdown : Centre "matches. Matstiman were a very"
  1664. Cdown : Centre "peaceful race to the extent of "
  1665. Cdown : Centre "not even knowing what violence is!"
  1666. Cdown : Centre "Here they lived for many years"
  1667. Cdown : Centre "until Olag the lizard king came."
  1668. Cdown : Centre "Olag hated such peace and tranquility"
  1669. Cdown : Centre "and so with his great magic, he"
  1670. Cdown : Centre "tried to slaughter every one of"
  1671. Cdown : Centre "the Mastimen. But he failed."
  1672. Cdown : Centre "His magic had no effect on such"
  1673. Cdown : Centre "innocent beings. Olag was furious"
  1674. Cdown : Centre "and directed his magic upon the"
  1675. Cdown : Centre "other races that lived on earth."
  1676. Wait 10
  1677. WAFIRE
  1678. WAFIRE
  1679. Cls 0 : Locate 0,3
  1680. Cdown : Centre "He turned them all into mindless"
  1681. Cdown : Centre "mummies that served him."
  1682. Cdown : Centre "He commanded them to murder"
  1683. Cdown : Centre "every single Matstiman on earth."
  1684. Cdown : Centre "Being so peaceful, innocent and "
  1685. Cdown : Centre "knowing no violence, the Matstiman"
  1686. Cdown : Centre "could not defend themselves"
  1687. Cdown : Centre "and so were all horribly slaughtered!"
  1688. Cdown : Centre "The earth once again became dirty"
  1689. Cdown : Centre "and polluted as it had been when"
  1690. Cdown : Centre "the Humans lived on it. Olag had"
  1691. Cdown : Centre "won! Or had he?"
  1692. Cdown : Centre "In secret a new breed of Mastiman"
  1693. Cdown : Centre "had been living. This new breed"
  1694. Cdown : Centre "were not as helpless as the first"
  1695. Cdown : Centre "Mastiman, although they could not"
  1696. Cdown : Centre "fight, they could run and jump."
  1697. Cdown : Centre "They knew what to fear, and that"
  1698. Cdown : Centre "they had one thing on their minds"
  1699. Cdown : Centre "REVENGE. For this new breed were no"
  1700. Cdown : Centre "longer called Mastiman, they were"
  1701. Cdown : Centre "Know as THE MATCHSTICK MEN!!!"
  1702. Wait 10
  1703. WAFIRE
  1704. WAFIRE
  1705. Cls 0
  1706. Locate 0,3
  1707. Cdown : Centre "However Olag soon learned of the"
  1708. Cdown : Centre "Match stick men's exsistence, and"
  1709. Cdown : Centre "again ordered their destruction!"
  1710. Cdown : Centre "This time however the Match stick"
  1711. Cdown : Centre "men were harder to catch. They ran"
  1712. Cdown : Centre "and jumped, but because the whole"
  1713. Cdown : Centre "planet was under Olag's control,"
  1714. Cdown : Centre "they had nowhere to go. They knew"
  1715. Cdown : Centre "not how to fight, and so they were"
  1716. Cdown : Centre "once again caught............"
  1717. Cdown : Centre "Except one... YOU now must take"
  1718. Cdown : Centre "control of the last remaining"
  1719. Cdown : Centre "Match Stick man, to save all"
  1720. Cdown : Centre "40 Match stick men before they are"
  1721. Cdown : Centre "killed, and then to confront"
  1722. Cdown : Centre "and dispense of Olag. You can"
  1723. Cdown : Centre "not fight, but you can run"
  1724. Cdown : Centre "jump and dodge Olags mindless"
  1725. Cdown : Centre "beings. Before you go"
  1726. Cdown : Centre "remember YOU~RE THE ONLY CHANCE"
  1727. Cdown : Centre "WE~VE GOT."
  1728. WAFIRE
  1729. WAFIRE
  1730. Music 1
  1731. Screen Close 4
  1732. Screen Show 5
  1733. Return 
  1734. LETSGO:
  1735. SCORE=0
  1736. Screen Hide 1
  1737. Screen Hide 0
  1738. Screen Show 5
  1739. If JUSTGO=0 Then Goto WEREW
  1740. CHANNES:
  1741. Channel 1 To Bob 1
  1742. Channel 2 To Bob 1
  1743. Channel 3 To Bob 1
  1744. Channel 4 To Bob 1
  1745. Channel 5 To Bob 1
  1746. Channel 6 To Bob 1
  1747. Return 
  1748. BONUS:
  1749. TEMPER=LIVES
  1750. Screen Hide 0
  1751. Screen Show 1
  1752. Screen 1 : Cls 0
  1753. Set Rainbow 0,0,255,"(1,1,1)","","(1,1,1)"
  1754. Rainbow 0,1,1,305
  1755. Locate 0,3 : Pen 3 : Centre "Bonus...."
  1756. For V=63 To 0 Step -1
  1757. Volume V : Wait 2
  1758. Next V
  1759. Music Off 
  1760. Volume 63
  1761. Pen 2
  1762. Locate 0,10 : Centre "Press Fire"
  1763. Locate 0,4 : Centre "Congratulations. Stage complete"
  1764. Locate 0,10
  1765. WAFIRE
  1766. Cline 
  1767. Locate 0,7 : Centre "Lives Remaining: "+Str$(TEMPER)
  1768. Wait 100
  1769. For LOC=1 To TEMPER
  1770. Locate 0,9 : Centre "Bonus="+Str$(TEMPER)+"x100"
  1771. If LOC=1 Then Wait 100
  1772. SCORE=SCORE+100
  1773. Locate 0,13 : Centre "Score="+Str$(SCORE)
  1774. TEMPER=TEMPER-1
  1775. Bell 30
  1776. Wait 30
  1777. Music Off 
  1778.  Next 
  1779. Cls 0
  1780. Locate 0,13 : Pen 3 : Centre "Score="+Str$(SCORE)
  1781. Locate 0,20 : Pen 2 : Centre "Press Fire"
  1782. WAFIRE
  1783. Rainbow Del 0
  1784. Return 
  1785. PAUSE:
  1786. Amal Freeze 
  1787. Move Freeze 
  1788. Music Off 
  1789. Do 
  1790. If Inkey$="p" Then Goto AGAINON
  1791. If Inkey$="P" Then Goto AGAINON
  1792. Loop 
  1793. AGAINON:
  1794. Amal On 
  1795. Move On 
  1796. Music 1
  1797. PAUS$=""
  1798. Return 
  1799. ERRIN:
  1800. ERRR=ERRR+1
  1801. If ERRR<10 Then Resume 
  1802. Resume Next 
  1803. Procedure _RAINBOW
  1804. SPEED=2 : CSTEP=16 : RSTEP=2
  1805. Set Rainbow 0,1,4096,"","",""
  1806. Rainbow 0,0,40,265
  1807. For R=0 To 255
  1808. B=Rnd(4096) : For C=0 To 15 : Rain(0,R*15+C)=B+C : Next C
  1809. For C=0 To 15 : Rain(0,R*15+C)=R*RSTEP+C*CSTEP : Next C
  1810. Next R
  1811. End Proc
  1812. Procedure _COPYRIGHT
  1813. Fade 5 : Wait 100 : Cls 0
  1814. Screen Open 0,640,400,8,Hires : Curs Off : Flash Off : Cls 0 : Hide 
  1815. Paper 0 : Pen 2
  1816. Locate 0,1 : Centre "MATCHSTICK-MAN COPYRIGHT"
  1817. Locate 0,3 : Centre "Matchstick man is copyright of New Age Computing,"
  1818. Locate 0,4 : Centre "and may not be given away,copied or changed in any way,"
  1819. Locate 0,5 : Centre "without permission of new age computing."
  1820. Locate 0,6 : Centre "You may however try this game for 2 weeks,if however,"
  1821. Locate 0,7 : Centre "you decide to keep it after this period you must."
  1822. Locate 0,8 : Centre "pay the shareware fee............"
  1823. Wait Key : Fade 5 : Wait 100
  1824. End Proc
  1825. Procedure _THEEND
  1826. Screen Open 0,320,256,32,LORES : Hide : Curs Off : Cls 0 : Flash Off 
  1827. Paper 0 : Pen 5 : Locate 0,10 : Centre "Please Wait"
  1828. Erase 1 : Erase 2 : Erase 3 : Erase 4
  1829. Erase 5 : Erase 6 : Erase 7 : Erase 8
  1830. Erase 9 : Erase 10 : Erase 11 : Erase 12
  1831. Erase 13 : Erase 14 : Erase 15 : Erase 16
  1832. Load "god.abk",3 : Led Off : Music 1
  1833. Load "oea.abk",5
  1834. Load "ffb.abk",6
  1835. Load "cb9.abk",7
  1836. Load "aeo.abk",8
  1837. Load "bcb.abk",9
  1838. Load "fae.abk",10
  1839. Z=0
  1840. Unpack 5 To 0 : Wait Key : Fade 5 : Wait 100
  1841. Unpack 6 To 0
  1842. Locate 10,22 : Input "Answer ? ";A$
  1843. If A$="a" Then Boom 
  1844. If A$="b" Then Bell : Inc Z
  1845. If A$="c" Then Boom 
  1846. Fade 5 : Wait 100
  1847. Unpack 7 To 0
  1848. Locate 10,22 : Input "Answer ? ";A$
  1849. If A$="a" Then Boom 
  1850. If A$="b" Then Boom 
  1851. If A$="c" Then Bell : Inc Z
  1852. Fade 5 : Wait 100
  1853. Unpack 8 To 0
  1854. Locate 10,22 : Input "Answer ? ";A$
  1855. If A$="a" Then Bell : Inc Z
  1856. If A$="b" Then Boom 
  1857. If A$="c" Then Boom 
  1858. Fade 5 : Wait 100
  1859. Unpack 9 To 0
  1860. Locate 10,22 : Input "Answer ? ";A$
  1861. If A$="a" Then Boom 
  1862. If A$="b" Then Bell : Inc Z
  1863. If A$="c" Then Boom 
  1864. Fade 5 : Wait 100
  1865. If Z=4 Then Bell : _RAINBOW : Unpack 10 To 0 : Wait 310
  1866. If Z<>4 Then Shoot : _ASK
  1867. End Proc
  1868. Procedure _ASK
  1869. Screen Open 0,640,400,8,Hires : Curs Off : Cls 0 : Hide : Flash Off 
  1870. Paper 0 : Pen 2
  1871. Locate 0,6 : Centre " H O W  V E R Y  U N F O R T U N A T E  Y O U  H A V E"
  1872. Locate 0,8 : Centre " F A I L E D  I N  Y O U R  A T T E M P T  T O  S A V E"
  1873. Locate 0,10 : Centre " T H E  M A T C H S T I C K  M E N."
  1874. Locate 0,12 : Centre " Y O U  W I L L  N O W  J O I N  G O D ! ! !"
  1875. Wait 260 : Fade 5 : Wait 100
  1876. For A=63 To 0 Step -1
  1877. Mvolume A
  1878. Wait 1
  1879. Next 
  1880. End 
  1881. End Proc