home *** CD-ROM | disk | FTP | other *** search
/ 17 Bit Software 2: Collection B / 17Bit_Collection_B.iso / files / 1509.dms / in.adf / witch.AMOS / witch.amosSourceCode
Encoding:
AMOS Source Code  |  1978-01-25  |  3.4 KB  |  83 lines
  1. C=Point(100,100)
  2. If C=5 Then Goto VVV
  3. Procedure PAUSE
  4. Clear Key 
  5. Do 
  6. Exit If Mouse Key=0
  7. Loop 
  8. Do 
  9. Exit If Inkey$=""
  10. Loop 
  11. Do 
  12. Exit If Mouse Key>0
  13. Exit If Inkey$<>""
  14. Loop 
  15. End Proc
  16. VVV:
  17. Load "toys.abk",5
  18. PICK:
  19. Unpack 5 To 0
  20. Locate 11,12 : Print "Choose a weapon to"
  21. Locate 11,14 : Print "take to Witchland."
  22. Show On 
  23. Pen 2 : Paper 6
  24. If TEST2$="wrong"
  25. Locate 11,12 : Print "Nothing happens ." : Locate 11,14 : Print "Your spell did   " : Locate 11,16 : Print "   not work." : Curs Off : PAUSE : Cls 
  26. Locate 0,12 : Curs Off : Centre "Suddenly you remember" : Locate 0,14 : Curs Off : Centre "the spell." : Locate 0,16 : Centre "SPARKLESHINE" : Curs Off : PAUSE : Goto FLY
  27. End If 
  28. PICKE:
  29. Show On 
  30. Do 
  31. Q=X Mouse : W=Y Mouse
  32. Exit If Mouse Key>0
  33. Loop 
  34. Bell 
  35. Curs Off 
  36. 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" : DC=7 : LP=2 : If TEST2$="wrong" Then LP=0
  37. 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" : DC=8 : LP=2 : If TEST2$="wrong" Then LP=0
  38. 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" : DC=9 : LP=2 : If TEST2$="wrong" Then LP=0
  39. 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" : DC=10 : LP=2 : If TEST2$="wrong" Then LP=0
  40. 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" : DC=11 : LP=2 : If TEST2$="wrong" Then LP=0
  41. 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" : DC=12 : LP=2 : If TEST2$="wrong" Then LP=0
  42. 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" : DC=13 : LP=2 : If TEST2$="wrong" Then LP=0
  43. 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" : DC=14 : TEST1=6 : LP=2
  44. Rem    **************If NN=1 Then Goto HJK 
  45. Curs Off 
  46. Global TEST1
  47. If LP=0 Then Goto PICKE
  48. LP=0
  49. PAUSE
  50. Cls 
  51. JOURNEY:
  52. Wait 30
  53. Cls : Wait 30
  54. Locate 0,12 : Centre "You get ready for your journey"
  55. Locate 0,14 : Centre "into Witch Land."
  56. Locate 2,16 : Centre "You say the magic word. " : Curs Off : Locate 10,18 : Input MAGICWORD$ : Curs Off 
  57. If MAGICWORD$="SPARKLESHINE" Then TEST2$="right" : Goto FLY
  58. If MAGICWORD$="Sparkleshine" Then TEST2$="right" : Goto FLY
  59. If MAGICWORD$="sparkleshine" Then TEST2$="right" : Goto FLY
  60. TEST2$="wrong" : Goto PICK
  61. FLY:
  62. Load "tunnel.abk",5 : Load "music3.abk" : Unpack 5 To 0
  63. Music 1
  64. Hide On 
  65. Shift Down 4,2,15,1
  66. Wait 500 : Load "witchface1.abk",6 : Unpack 6 To 0 : Wait 15
  67. Unpack 5 To 0
  68. WITCHLAND:
  69. Palette $F00,$600,$D00,$0,$F00,$FFF,$F00,$900,$F33,$0,$900,$F00,$FFF,$F0F,$F50,$907
  70. Shift Down 4,2,15,1
  71. Wait 300
  72. Load "witchface2.abk",6 : Unpack 6 To 0 : Wait 15 : Unpack 5 To 0
  73. Palette $F0,$40,$FFF,$0,$0,$F0,$0,$F9,$FFF,$50,$F0,$0,$0,$40,$F0,$80
  74. Shift Down 4,2,15,1
  75. Wait 300
  76. Load "witchface3.abk",6 : Unpack 6 To 0 : Wait 15 : Unpack 5 To 0
  77. Palette $F,$8,$4,$0,$FFF,$80F,$8F,$0,$F,$0,$FFF,$F,$8,$4,$9F,$0
  78. Shift Down 4,2,15,1
  79. Wait 100 : Fade 15 : Wait 230
  80. Shift Off : Music Off : Erase 3
  81. Cls 
  82. Ink DC : Paint 100,100
  83. Run "witch2.amos"