home *** CD-ROM | disk | FTP | other *** search
/ 17 Bit Software 2: Collection B / 17Bit_Collection_B.iso / files / 1509.dms / in.adf / disney1.AMOS / disney1.amosSourceCode
Encoding:
AMOS Source Code  |  1978-01-25  |  2.2 KB  |  80 lines
  1. CF=Point(100,100) : If CF=14 Then RUBBER=1
  2. If CF=4 Then RUBBER=1 : NKEY=1
  3. If CF=6 Then RUBBER=0
  4. D=Point(300,100) : If D=8 Then PICK$="house"
  5. If D=10 Then PICK$="sword"
  6. If D=9 Then PICK$="ball"
  7. If D=7 Then PICK$="truck"
  8. If D=11 Then PICK$="felts"
  9. If D=12 Then PICK$="torch"
  10. If D=13 Then PICK$="teddy"
  11. If D=14 Then PICK$="book"
  12. Rem  ****************** DISNEY LAND ***************************
  13. DISNEY:
  14. Load "frog.abk",5 : Show On 
  15. DENTRANCE:
  16. Cls 
  17. Pen 3 : Paper 2
  18. Unpack 5 To 0 : Curs Off : Pen 1 : Paper 0
  19. Locate 0,25 : Centre "You arrive in Toyland."
  20. Wait 50
  21. Locate 0,27 : Centre "The palace is guarded by a huge frog."
  22. Do 
  23. Exit If Mouse Key>0
  24. Exit If Inkey$<>""
  25. Loop 
  26. Clear Key 
  27. Ink 0 : Bar 0,187 To 320,256
  28. Wait 50
  29. Locate 0,25 : Centre "CAN'T ENTER WITHOUT A TOYLAND FRIEND."
  30. PAUSE
  31. Clear Key 
  32. Bar 0,187 To 320,256
  33. Wait 50
  34. Locate 5,25 : Curs Off : Print "You show the frog your ";PICK$;"."
  35. PAUSE
  36. Clear Key 
  37. Bar 0,185 To 320,256
  38. If PICK$="teddy" Then Bell : Goto DENTER
  39. Bell : Locate 0,25 : Curs Off : Centre "THAT IS NOT A TOYLAND FRIEND."
  40. Wait 50 : Locate 0,27 : Centre "YOU MAY NOT ENTER."
  41. PAUSE
  42. Clear Key 
  43. Cls 
  44. Wait 50
  45. Locate 0,20 : Centre "You decide to return home and try again"
  46. Locate 0,22 : Centre "with a different toy." : PAUSE : Cls : Ink CF : Paint 100,100 : Run "2.amos"
  47. DENTER:
  48. Locate 0,25 : Centre "I SEE YOU HAVE A TOYLAND FRIEND."
  49. Wait 50 : Locate 0,27 : Curs Off : Centre "YOU MAY ENTER THE PALACE."
  50. PAUSE
  51. Load "toy1a.abk",5 : Unpack 5 To 0 : Wait 50
  52. Load "toy2a.abk",5 : Unpack 5 To 0 : Wait 50
  53. Load "toy3a.abk",5 : Unpack 5 To 0 : Wait 100
  54. Cls 
  55. Locate 0,10 : Centre "The witch has already arrived"
  56. Locate 0,12 : Centre "at Toyland."
  57. Wait 50
  58. Locate 0,14 : Centre "She has cast spells"
  59. Locate 0,16 : Centre "to turn everything grey"
  60. Locate 0,18 : Centre "and she has done graffitti everywhere."
  61. PAUSE
  62. Cls 
  63. If RUBBER=1 Then Run "disney2.amos"
  64. Cls 
  65. Locate 0,10 : Curs Off : Centre "Unfortunately you have no magic things"
  66. Locate 0,12 : Centre "to undo the spells with."
  67. Wait 50
  68. Locate 0,14 : Centre "You decide to return home and"
  69. Locate 0,16 : Centre "try a different place."
  70. PAUSE
  71. Cls : Ink CF : Paint 100,100 : Run "2.amos"
  72. Procedure PAUSE
  73. Do 
  74. Exit If Inkey$="" and Mouse Key=0
  75. Loop 
  76. Do 
  77. Exit If Inkey$<>""
  78. Exit If Mouse Key>0
  79. Loop 
  80. End Proc