home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / 326-350 / apd350 / 2.amos / 2.amosSourceCode
AMOS Source Code  |  1991-09-25  |  9KB  |  259 lines
  1. CF=Point(100,100) : If CF=14 Then RUBBER=1
  2. If CF=4 Then RUBBER=1 : NKEY=1
  3. K=Point(100,200)
  4. If K=5 Then NKEY=1
  5. If CF<>1 Then TEST1=6
  6. Load "toys.abk",6
  7. PICK:
  8. Limit Mouse 120,40 To 458,300
  9. Unpack 6 To 0 : Pen 2 : Paper 6
  10. If TEST2$="wrong" Then Locate 11,12 : Curs Off : Print "Nothing happens." : Locate 11,14 : Print "Your spell did" : Locate 11,16 : Print "not work." : Goto AGAIN
  11. Do 
  12. Q=X Mouse : W=Y Mouse
  13. Exit If Mouse Key>0
  14. Loop 
  15. Bell 
  16. If Q>127 and W>42 and Q<197 and W<96 Then Locate 11,12 : Print "You have chosen" : Locate 11,14 : Print "  the truck.    " : PICK$="truck" : LP=2 : If TEST2$="wrong" Then LP=0
  17. If Q>198 and W>42 and Q<373 and W<97 Then Locate 11,12 : Print "You have chosen" : Locate 11,14 : Print "the dolls house." : PICK$="house" : LP=2 : If TEST2$="wrong" Then LP=0
  18. If Q>372 and W>41 and Q<448 and W<97 Then Locate 11,12 : Print "You have chosen" : Locate 11,14 : Print "   The ball.    " : PICK$="ball" : LP=2 : If TEST2$="wrong" Then LP=0
  19. If Q>125 and W>95 and Q<198 and Q<205 Then Locate 11,12 : Print "You have chosen" : Locate 11,14 : Print "  the sword.    " : PICK$="sword" : LP=2 : If TEST2$="wrong" Then LP=0
  20. If Q>127 and W>203 and Q<198 and W<298 Then Locate 11,12 : Print "You have chosen" : Locate 11,14 : Print "  the felts.    " : PICK$="felts" : LP=2 : If TEST2$="wrong" Then LP=0
  21. If Q>198 and W>204 and Q<374 and W<297 Then Locate 11,12 : Print "You have chosen" : Locate 11,14 : Print "  the torch.    " : PICK$="torch" : LP=2 : If TEST2$="wrong" Then LP=0
  22. If Q>372 and W>204 and Q<448 and W<298 Then Locate 11,12 : Print "You have chosen" : Locate 11,14 : Print "the teddy bear. " : PICK$="teddy" : LP=2 : If TEST2$="wrong" Then LP=0
  23. If Q>372 and W>96 and Q<448 and W<204 Then Locate 11,12 : Print "You have chosen" : Locate 11,14 : Print "the story book. " : PICK$="book" : TEST1=6 : LP=2
  24. If NN=1 Then Goto HJK
  25. Global TEST1
  26. If LP=0 Then Goto PICK
  27. LP=0
  28. PAUSE
  29. If K$="u" Then Goto PICK
  30. If K$="U" Then Goto PICK
  31. If PICK$="book" Then Goto FIRST
  32. Goto SECOND
  33. FIRST:
  34. Cls : Locate 2,10 : Curs Off : Print "You pick up the book and open it."
  35. PAUSE
  36. Locate 2,12 : Print "It is a book about good fairies."
  37. PAUSE
  38. Locate 2,14 : Print "You find a page with a magic spell."
  39. Erase 5 : Load "spell.abk",5
  40. PAUSE
  41. RRR:
  42. Unpack 5 To 0
  43. PAUSE
  44. Fade 13,$3,$FED,$0,$FED
  45. Wait 200
  46. Cls 
  47. Limit Mouse 120,40 To 458,300
  48. Locate 2,10 : Curs Off : Print "The magic words fade before your eyes."
  49. PAUSE
  50. If TEST2$="wrong" Then Goto JOURNEY
  51. Locate 2,12 : Curs Off : Print "You put down the book and pick up"
  52. Locate 2,14 : Print "        another toy."
  53. PAUSE
  54. Goto PICK
  55. SECOND:
  56. Cls 
  57. Limit Mouse 120,40 To 458,300
  58. If TEST1=6 Then Goto TRAVEL
  59. If RUBBER=1 Then Goto TRAVEL
  60. If NKEY=1 Then Goto TRAVEL
  61. Locate 2,10 : Curs Off : Print "You pick up your ";PICK$;" then think"
  62. Locate 2,12 : Print "how you will get to the magic lands."
  63. PAUSE
  64. Locate 2,14 : Print "You decide to put your ";PICK$;" back"
  65. Locate 2,16 : Print "  and choose a more useful toy."
  66. PAUSE
  67. Goto PICK
  68. TRAVEL:
  69. Locate 2,10 : Print "Where do you want to travel?"
  70. Wait 50
  71. Locate 2,14 : Print "2. Animal Land                 "
  72. Locate 2,12 : Print "1. Toy Land"
  73. Locate 2,18 : Print "4. Fairytale Land"
  74. Locate 2,16 : Curs Off : Print "3. Witch Land"
  75. F$=Input$(1) : Bell 
  76. V=Val(F$)
  77. If F$="!" Then V=1
  78. If Asc(F$)=34 Then V=2
  79. If F$="�" Then V=3
  80. If F$="#" Then V=3
  81. If F$="$" Then V=4
  82. Rem *$*** Remove this when Fairyland is finished ********************* 
  83. If V<1 and V>4 Then Goto TRAVEL
  84. If V=3 Then Goto WITCHJ
  85. Rem *********************************************************************
  86. If V<1 Then Goto TRAVEL
  87. If V>4 Then Goto TRAVEL
  88. JOURNEY:
  89. Wait 30
  90. Cls : Wait 30
  91. Limit Mouse 120,40 To 458,300
  92. Locate 2,12 : Print "Now say the magic word. " : Locate 20,14 : Input MAGICWORD$
  93. If MAGICWORD$="SPARKLESHINE" Then TEST2$="right" : Goto FLY
  94. If MAGICWORD$="Sparkleshine" Then TEST2$="right" : Goto FLY
  95. If MAGICWORD$="sparkleshine" Then TEST2$="right" : Goto FLY
  96. TEST2$="wrong" : Goto PICK
  97. FLY:
  98. Erase 6 : Load "tunnel.abk",6 : Load "music1.abk" : Hide On 
  99. Music 1
  100. Unpack 6 To 0
  101. Limit Mouse 120,40 To 458,300
  102. Shift Down 5,2,15,1
  103. Wait 600
  104. If V=1 Then Goto DISNEY1
  105. If V=2 Then Goto PONYLAND
  106. If V=3 and NKEY=1
  107.    Erase 3 : Erase 5 : Erase 6 : Cls 
  108.    Draw 0,180 To 319,180 : Ink 5 : Paint 100,200
  109.    Run "WITCHLAND.amos"
  110. End If 
  111. If V=3 Then Erase 3 : Erase 5 : Erase 6 : Run "WITCHLAND.amos"
  112. If V=4 Then Goto NARNIA
  113. AGAIN:
  114. Erase 5 : Load "spell.abk",5
  115. PAUSE
  116. Unpack 6 To 0 : Pen 2 : Paper 6
  117. Locate 11,12 : Print "You pick up the"
  118. Locate 11,14 : Curs Off : Print "  book again."
  119. PAUSE
  120. Goto RRR
  121. WITCHJ:
  122. Wait 30
  123. Cls 
  124. Wait 50
  125. Locate 0,10 : Centre "Nothing seems to happen."
  126. Wait 100
  127. Locate 0,13 : Centre "But from somewhere inside you"
  128. Locate 0,15 : Centre "You hear a friendly voice."
  129. Wait 100
  130. Locate 0,20 : Centre "YOU MUST HAVE STARFLIGHT'S COURAGE"
  131. Locate 0,22 : Centre "TO ENTER WITCH LAND."
  132. PAUSE
  133. Goto PICK
  134. NARNIA:
  135. Palette $F00,$600,$D00,$0,$F00,$FFF,$F00,$900,$F33,$0,$900,$F00,$FFF,$F0F,$F50,$907
  136. Wait 400
  137. Palette $F0,$40,$FFF,$0,$0,$F0,$0,$F9,$FFF,$50,$F0,$0,$0,$40,$F0,$80
  138. Wait 400
  139. Palette $F,$8,$4,$0,$FFF,$80F,$8F,$0,$F,$0,$FFF,$F,$8,$4,$9F,$0
  140. Wait 400
  141. Cls 
  142. Shift Off 
  143. Palette $0,$FFF,$F00,$F0,$F
  144. Locate 0,10 : Curs Off : Centre "You try as hard as you can"
  145. Locate 0,12 : Centre "but you cannot enter Fairytale Land"
  146. Locate 0,14 : Centre "by flying."
  147. Wait 50 : Locate 0,19 : Centre "You return home."
  148. Wait 20 : Clear Key : PAUSE : Show On 
  149. Cls : Wait 50
  150. Locate 0,10 : Curs Off : Centre "THERE MUST BE ANOTHER WAY IN."
  151. PAUSE
  152. Locate 0,13 : Centre "Suddenly you remember that in"
  153. Locate 0,15 : Centre "your house there is a spare room"
  154. Locate 0,17 : Centre "and in the spare room there is"
  155. Locate 0,19 : Centre "A WARDROBE."
  156. HJK:
  157. PAUSE : Cls : Music Off 
  158. Wait 50 : Locate 11,8 : Print "You have a ";PICK$;"."
  159. Wait 50 : Locate 0,10 : Curs Off : Centre "You go the the spare room."
  160. Wait 50 : Locate 0,12 : Centre "The light isn't working and you"
  161. Locate 0,14 : Centre "can't see anything."
  162. PAUSE
  163. If PICK$="torch" Then Goto NTEST
  164. Locate 0,16 : Centre "You go back to your bedroom"
  165. Locate 0,18 : Centre "to find something useful."
  166. Load "toys.abk",6
  167. NARNIA$=PICK$ : NN=1 : PAUSE : Goto PICK
  168. NTEST:
  169. Locate 0,16 : Curs Off : Centre "Luckily you have a torch."
  170. PAUSE : Load "wardrobe1.abk",5 : Unpack 5 To 0
  171. Limit Mouse 120,40 To 458,300
  172. If NKEY=0 Then Wait 100 : Locate 0,26 : Centre "The wardrobe is locked."
  173. If NKEY=0 Then Wait 100 : Locate 0,28 : Centre " You cannot enter the wardrobe" : Locate 0,30 : Centre " Without a key." : PAUSE : NN=0 : TEST1=6 : Erase 6 : Load "toys.abk",6 : Goto PICK
  174. Load "wardrobe2.abk",5
  175. Locate 0,28 : Curs Off : Centre "You use the magic key to unlock "
  176. Locate 0,30 : Centre "the wardrobe." : Curs Off : NDOOR : Unpack 5 To 1 : Screen To Front 1 : Wait 50
  177. TEST1=6 : Sprite Off 
  178. If NARNIA$<>"" Then PICK$=NARNIA$
  179. Fade 8 : Wait 130 : Run "narnia1.amos"
  180. Procedure PAUSE
  181. Do 
  182. Exit If Mouse Key=0
  183. Loop 
  184. Do 
  185. Exit If Inkey$=""
  186. Loop 
  187. Do 
  188. Exit If Mouse Key>0
  189. Exit If Inkey$<>""
  190. Loop 
  191. End Proc
  192. PONYLAND:
  193. Cls : Locate 0,10 : Curs Off : Centre "ANIMAL LAND" : Load "music2.abk" : Music 1 : Limit Mouse 120,40 To 450,300
  194. Load "animal1.abk",5 : Unpack 5 To 0 : Wait 10 : Load "animal2.abk",5 : Unpack 5 To 0 : Wait 10 : Load "animal3.abk",5 : Unpack 5 To 0 : Wait 100
  195. COUNT=0 : COUNT1=0
  196. Global COUNT,COUNT1
  197. Limit Mouse 120,40 To 458,300
  198. Wait 50 : Cls 
  199. Locate 2,10 : Curs Off : Centre "You arrive to find"
  200. Locate 2,12 : Centre "that the witch has cast a spell"
  201. Locate 2,14 : Centre "that has taken all the colours"
  202. Locate 2,16 : Centre "out of Animal Land."
  203. PAUSE
  204. Bell 
  205. Cls 
  206. If PICK$="felts" and NKEY=1
  207. Erase 3 : Erase 5 : Erase 6 : Ink 4 : Paint 100,100 : Run "animal_land.amos"
  208. End If 
  209. If PICK$="felts" Then Erase 3 : Erase 5 : Erase 6 : Ink 14 : Paint 100,100 : Run "animal_land.amos"
  210. Wait 50
  211. Locate 2,10 : Print "Unfortunately the only thing"
  212. Locate 2,12 : Print "that you have with you is a"
  213. Locate 2,14 : Print PICK$;" and that is not"
  214. Locate 2,16 : Print "    very useful."
  215. PAUSE
  216. Bell 
  217. Cls 
  218. Wait 50
  219. Locate 2,10 : Curs Off : Print "You decide to return to your"
  220. Locate 2,12 : Print " bedroom to find something "
  221. Locate 2,14 : Print "       more useful."
  222. Show On 
  223. PAUSE
  224. Bell 
  225. Music Off : Load "toys.abk",6
  226. Goto PICK
  227. DISNEY1:
  228. Cls : CF=6
  229. If RUBBER=1 Then CF=14
  230. If RUBBER=1 and NKEY=1 Then CF=4
  231. If PICK$="truck" Then D=7
  232. If PICK$="house" Then D=8
  233. If PICK$="ball" Then D=9
  234. If PICK$="sword" Then D=10
  235. If PICK$="felts" Then D=11
  236. If PICK$="torch" Then D=12
  237. If PICK$="teddy" Then D=13
  238. If PICK$="book" Then D=14
  239. Ink CF : Draw 159,0 To 159,319
  240. Shift Off 
  241. Ink CF : Paint 100,100
  242. Ink D : Paint 200,100
  243. Erase 3 : Erase 5 : Erase 6 : Run "disney1.amos"
  244. Procedure NDOOR
  245. Do 
  246. Exit If Inkey$=""
  247. Loop 
  248. Do 
  249. Exit If Mouse Key=0
  250. Loop 
  251. Hide On 
  252. Load "key.abk"
  253. Do 
  254. Sprite 1,X Mouse,Y Mouse,1
  255. Exit If Mouse Key>0
  256. Exit If Inkey$<>""
  257. Loop 
  258. Show On 
  259. End Proc