home *** CD-ROM | disk | FTP | other *** search
/ 17 Bit Software 2: Collection B / 17Bit_Collection_B.iso / files / 1509.dms / in.adf / Animal_Land.AMOS / Animal_Land.amosSourceCode
Encoding:
AMOS Source Code  |  1978-01-25  |  2.5 KB  |  108 lines
  1. CF=Point(100,100) : RD=0
  2. Load "animal1.abk",5 : Load "Palette.abk",6
  3. RST:
  4. Screen Open 0,320,256,16,Lowres
  5. Locate 2,10 : Curs Off : Print "Your felt tip pens will come in"
  6. Locate 2,12 : Print "      very useful here. "
  7. Show On 
  8. PAUSE
  9. Bell 
  10. COND:
  11. Unpack 5 To 0 : Unpack 5 To 2 : Erase 5 : Unpack 6 To 1 : Erase 6 : Screen To Front 0
  12. Screen Copy 1,0,0,320,18 To 0,0,0
  13. IRD:
  14. Do 
  15. Q=X Mouse-128 : W=Y Mouse-42
  16. Exit If Mouse Key>0
  17. Loop 
  18. Limit Mouse 120,40 To 458,300
  19. Bell 
  20. If W>18 Then RD=1 : Goto PPP
  21. Goto KKK
  22. PPP:
  23. If RD=1 Then K=Point(Q,W) : If K>0 Then Paint Q,W : Inc COUNT : RD=0 : Goto IRD
  24. If RD=1 and K=0 Then Goto IRD
  25. CC=Point(Q,W) : If CC>0 Then Ink CC : Paint Q,W : Inc COUNT : Goto IRD
  26. KKK:
  27. Screen 0
  28. C=Point(Q,W) : If C=0 Then C=1
  29. Ink C
  30. Screen Copy 2,0,0,320,18 To 0,0,0
  31. If X Mouse>396 and Y Mouse<61 Then Goto FOURTH
  32. Do 
  33. Exit If Mouse Key=0
  34. Loop 
  35. BB:
  36. Limit Mouse 120,40 To 450,300
  37. Do 
  38. Q=X Mouse-128 : W=Y Mouse-42
  39. Exit If Mouse Key>0
  40. Loop 
  41. Bell 
  42. D=Point(Q,W) : If D=0 Then Goto BB
  43. Screen 0 : Paint Q,W : Inc COUNT
  44. Do 
  45. Exit If Mouse Key=0
  46. Loop 
  47. Screen Copy 0 To 2
  48. Screen Copy 1,0,0,320,18 To 0,0,0
  49. Goto IRD
  50. FOURTH:
  51. If COUNT<8 Then Locate 5,0 : Print "You haven't finished painting yet." : X Mouse=286 : Y Mouse=100 : Goto SIXTH
  52. If COUNT1=0 Then Load "animal2.abk",5 : Unpack 5 To 0 : Screen Copy 0 To 2 : Inc COUNT1 : COUNT=0 : Goto SIXTH
  53. If COUNT1=1 Then Load "animal3.abk",5 : Unpack 5 To 0 : Screen Copy 0 To 2 : Inc COUNT1 : COUNT=0 : Goto SIXTH
  54. Do 
  55. Exit If Mouse Key=0
  56. Loop 
  57. Do 
  58. Exit If Mouse Key>0
  59. Loop 
  60. Bell 
  61. RUBBER=1
  62. Cls : Locate 0,10 : Centre "Well Done !!"
  63. Wait 100 : Locate 0,12 : Centre "You have saved Animal Land"
  64. Wait 100 : Locate 0,14 : Centre "Mr. Fox thanks you and gives."
  65. Locate 0,16 : Centre "you a magic rainbow rubber."
  66. Do 
  67. Exit If Mouse Key>0
  68. Exit If Inkey$<>""
  69. Loop 
  70. Cls : Wait 50
  71. Locate 0,10 : Centre "LOOK AFTER THIS WELL."
  72. Wait 50 : Locate 0,12 : Curs Off : Centre "YOU WILL NEED IT IN YOUR QUEST."
  73. PAUSE
  74. Bell 
  75. Cls : Locate 0,10 : Centre "You return home and get yourself"
  76. Locate 0,12 : Centre "ready for your next adventure."
  77. PAUSE
  78. If CF=6 Then CF=14
  79. Cls : Ink CF : Paint 100,100 : Erase 3 : Erase 5 : Erase 6 : Screen Close 1 : Screen Close 2
  80. Draw 0,180 To 319,180 : Paint 100,200 : Ink 5 : Run "2.amos"
  81. SIXTH:
  82. Do 
  83. M=Mouse Key
  84. Exit If M=0
  85. Loop 
  86. Bell 
  87. Do 
  88. M=Mouse Key
  89. Exit If M>0
  90. Exit If Inkey$<>""
  91. Loop 
  92. Bell 
  93. Screen Copy 1,0,0,320,18 To 0,0,0
  94. Bell 
  95. Goto IRD
  96. Procedure PAUSE
  97. Clear Key 
  98. Do 
  99. Exit If Mouse Key=0
  100. Loop 
  101. Do 
  102. Exit If Inkey$=""
  103. Loop 
  104. Do 
  105. Exit If Mouse Key<>0
  106. Exit If Inkey$<>""
  107. Loop 
  108. End Proc