home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / sourcecode / games / tiler.amos / tiler.amosSourceCode < prev   
AMOS Source Code  |  1987-09-12  |  3KB  |  86 lines
  1. Load "df0:s.abk"
  2. Load "df0:music/song4.abk"
  3. Music 1 : Tempo 18
  4. Load Iff "df0:IFF/sqt",0 : Wait Key 
  5. Led Off 
  6. Cls 0
  7. Double Buffer 
  8. Make Mask 
  9. Flash Off 
  10. Get Sprite Palette 
  11. Curs Off : Hide On 
  12. 1 X=160 : Y=100
  13. H=360 : V=170
  14. G=0
  15. W=W+10
  16. DA=0
  17. SC=0
  18. R=20
  19. Q=10
  20. G=G+1
  21.  If G=<10 Then O=1
  22. If G>10 Then O=8
  23. Channel 9 To Bob 9
  24. Bob 9,0,0,7
  25. Move X 9,"(1,3,107)(1,-3,107)L"
  26. Move Y 9,"(1,3,67)(1,-3,67)L"
  27. Move On 9
  28. Pen 2 : Paper 0
  29. P=1
  30. 10 R=R*1.1
  31. Q=Q*1.1
  32. Do 
  33. Inc A
  34. If A=300 Then Gosub 1010
  35. Bob 2,X,Y,O
  36. Channel 8 To Sprite 8
  37. Sprite 8,H,V,2
  38. X=X+Rnd(R)-Q : Y=Y+Rnd(R)-Q
  39. If X<0 Then X=0
  40. If X>223 Then X=223
  41. If Y<0 Then Y=0
  42. If Y>103 Then Y=103
  43. If Jleft(1) Then H=H-4 : If H<128 Then H=128
  44. If Jright(1) Then H=H+4 : If H>431 Then H=431
  45. If Jup(1) Then V=V-4 : If V<50 Then V=50
  46. If Jdown(1) Then V=V+4 : If V>233 Then V=233
  47. If 0=Bobsprite Col(2) Then Inc DA : Flash 0,"(800,1)(000,1)" : Wait 10 : Flash Off 
  48. If -1=Bobsprite Col(9) Then Inc DA : Flash 0,"(015,2)(000,2)" : Wait 20 : Inc DA : Flash Off : Inc DA
  49. If -1=Bobsprite Col(4) Then Inc DA : Flash 0,"(015,2)(000,2)" : Wait 20 : Inc DA : Flash Off : Inc DA
  50. If -1=Bobsprite Col(5) Then Inc DA : Flash 0,"(015,2)(000,2)" : Wait 20 : Inc DA : Flash Off : Inc DA
  51. If -1=Bobsprite Col(10) Then Inc DA : Flash 0,"(015,2)(000,2)" : Wait 20 : Inc DA : Flash Off : Inc DA
  52. If -1=Bobsprite Col(6) Then Inc DA : Flash 0,"(015,2)(000,2)" : Wait 20 : Inc DA : Flash Off : Inc DA
  53. If -1=Bobsprite Col(7) Then Inc DA : Flash 0,"(015,2)(000,2)" : Wait 20 : Inc DA : Flash Off : Inc DA
  54. If DA=>100 Then Goto 1000
  55. Locate 0,0
  56. Print "damage % :";DA;"   "
  57. SC=SC+5
  58. 5 Loop 
  59. 1000 Anim 8,"(2,5)(3,5)(4,5)(5,5)(4,5)(3,5)L" : Print "score:";SC : Move Off : Anim On 8
  60. Print "you reached level ";P
  61. Bob Off 
  62. 1200 If Fire(1) Then Goto 3000
  63. Goto 1200
  64. 1010 Cls 0
  65. Move Off : Sprite Off : Bob Off : Print "Well done you have completed the level "
  66. 1700 If Fire(1) Then Goto 1800
  67. Goto 1700
  68. 1800 Bob 9,0,0,7
  69. Move X 9,"(1,3,107)(1,-3,107)L"
  70. Move Y 9,"(1,3,67)(1,-3,67)L"
  71. Move On 9
  72. A=0 : DA=DA-10
  73. Cls 0
  74. P=P+1
  75. If P>1 Then Channel 4 To Bob 4 : Bob 4,15,0,7 : Move X 4,"(3,3,107)(3,-3,107)L" : Move Y 4,"(1,3,67)(1,-3,67)L" : Move On 4
  76. If P>2 Then Channel 5 To Bob 5 : Bob 5,10,10,7 : Move X 5,"(1,3,107)(1,-3,107)L" : Move Y 5,"(2,3,67)(2,-3,67)L" : Move On 5
  77. If P>3 Then Channel 6 To Bob 6 : Bob 6,5,5,7 : Move X 6,"(2,3,107)(2,-3,107)L" : Move Y 6,"(1,3,67)(1,-3,67)L" : Move On 6
  78. If P>4 Then Channel 9 To Bob 9 : Bob 9,5,5,7 : Move X 9,"(2,3,107)(2,-3,107)L" : Move Y 9,"(4,3,67)(4,-3,67)L" : Move On 9
  79. If P>5 Then Channel 10 To Bob 10 : Bob 10,2,9,7 : Move X 10,"(3,3,107)(3,-3,107)L" : Move Y 10,"(5,3,67)(5,-3,67)L" : Move On 10
  80. If P>5 Then Channel 11 To Bob 11 : Bob 11,15,11,7 : Move X 11,"(6,3,107)(6,-3,107)L" : Move Y 11,"(8,3,67)(8,-3,67)L" : Move On 11
  81. If P>6 Then Channel 12 To Bob 12 : Bob 12,1,0,7 : Move X 12,"(3,3,107)(3,-3,107)L" : Move Y 12,"(7,3,67)(7,-3,67)L" : Move On 12
  82. If P>7 Then Channel 13 To Bob 13 : Bob 13,15,6,7 : Move X 13,"(2,3,107)(2,-3,107)L" : Move Y 13,"(4,3,67)(4,-3,67)L" : Move On 13
  83. If P>8 Then Channel 14 To Bob 14 : Bob 14,9,0,7 : Move X 14,"(6,3,107)(6,-3,107)L" : Move Y 14,"(4,3,67)(4,-3,67)L" : Move On 14
  84. If P>9 Then Channel 15 To Bob 15 : Bob 15,7,8,7 : Move X 15,"(1,3,107)(1,-3,107)L" : Move Y 15,"(1,3,67)(1,-3,67)L" : Move On 15
  85. Goto 10
  86. 3000 Sprite Off : Cls 15 : Pen 0 : Paper 15 : Centre "PRESS A KEY TO PLAY AGAIN" : Wait Key : Goto 1