home *** CD-ROM | disk | FTP | other *** search
/ 17 Bit Software 2: Collection B / 17Bit_Collection_B.iso / files / 1509.dms / in.adf / witch2.AMOS / witch2.amosSourceCode
Encoding:
AMOS Source Code  |  1978-01-25  |  2.3 KB  |  110 lines
  1. C=Point(100,100)
  2. If C=7 Then PICK$="truck"
  3. If C=8 Then PICK$="house"
  4. If C=9 Then PICK$="ball"
  5. If C=10 Then PICK$="sword"
  6. If C=11 Then PICK$="felts"
  7. If C=12 Then PICK$="torch"
  8. If C=13 Then PICK$="teddy"
  9. If C=14 Then PICK$="book"
  10. Screen Open 0,320,256,16,Lowres
  11. Palette $0,$0,$F00
  12. Pen 2
  13. Hide On 
  14. Locate 0,10 : Curs Off : Centre "Welcome to"
  15. Wait 100
  16. Locate 0,13 : Centre "WITCH LAND"
  17. Show On 
  18. PAUSE
  19. Hide On 
  20. HITS=0 : Cls 
  21. Curs Off 
  22. Locate 0,10 : Centre "                "
  23. Locate 0,13 : Centre "The witch has been expecting you"
  24. Locate 0,15 : Centre "and has sent her monster"
  25. Locate 0,17 : Centre "to kill you."
  26. Load "monster3.abk",5 : Unpack 5 To 1 : Screen To Front 0 : Screen Hide 1
  27. Load "monster1.abk",5
  28. Show On 
  29. PAUSE
  30. Unpack 5 To 0
  31. Screen Show 1
  32. Hide On 
  33. If PICK$<>"sword" Then Goto WFAIL
  34. Load "sword.abk"
  35. WANIM1:
  36. Timer=0
  37. Screen To Front 0
  38. Do 
  39. Sprite 1,X Mouse,Y Mouse,8
  40. Exit If Timer>20
  41. Loop 
  42. Timer=0
  43. Screen To Front 1
  44. Do 
  45. If Mouse Key>0 Then Q=X Mouse : W=Y Mouse : Boom : Sprite 1,Q,W,9 : Wait 6 : Sprite 1,Q,W,10 : Wait 20 : Inc HITS
  46. Sprite 1,X Mouse,Y Mouse,8
  47. Exit If Timer>20
  48. Loop 
  49. Goto SKIP
  50. Do 
  51. If Mouse Key>0 Then Boom 
  52. Screen To Front 4 : Screen Show 4
  53. Exit If Timer>40
  54. Loop 
  55. SKIP:
  56. If HITS>15 Then Goto WNEXT
  57. Goto WANIM1
  58. WNEXT:
  59. Sprite Off : Screen 0 : Cls : Screen 1 : Cls 
  60. Sprite Off 
  61. Get Sprite Palette 
  62. W:
  63. Sprite Off 
  64. Screen 0 : Screen To Front 0
  65. Palette $0,$0,$F00
  66. Locate 0,10 : Curs Off : Centre "Well done !"
  67. Locate 0,12 : Centre "You have killed the witch's monster."
  68. Locate 0,15 : Centre "But you have made the witch "
  69. Locate 0,17 : Centre "very angry."
  70. PAUSE
  71. Run "witch3.amos"
  72. Procedure PAUSE
  73. Do 
  74. Exit If Inkey$=""
  75. Loop 
  76. Do 
  77. Exit If Mouse Key=0
  78. Loop 
  79. Do 
  80. Exit If Inkey$<>""
  81. Exit If Mouse Key>0
  82. Loop 
  83. End Proc
  84. WFAIL:
  85. G=0
  86. WFAILW:
  87. Timer=0
  88. Screen To Front 0
  89. Do 
  90. Exit If Timer>20
  91. Loop 
  92. Timer=0
  93. Screen To Front 1
  94. Do 
  95. Exit If Timer>20
  96. Loop 
  97. Inc G : If G>3 Then Goto WFAIL1
  98. Goto WFAILW
  99. WFAIL1:
  100. Screen 0 : Cls : Screen To Front 0 : Palette $0,$0,$F00 : Paper 0 : Pen 2
  101. Locate 5,10 : Print "You wave your ";PICK$;" wildy at"
  102. Locate 0,12 : Centre "the monster but it just laughs at"
  103. Locate 0,14 : Centre "you in a very unpleasant manner."
  104. PAUSE
  105. Locate 0,17 : Centre "You decide to return home quickly"
  106. Locate 0,19 : Centre "and to fetch something more useful."
  107. PAUSE
  108. Fade 5 : Wait 100
  109. Screen Close 1 : Cls : Ink 5 : Paint 100,100
  110. Run "witch.amos"