home *** CD-ROM | disk | FTP | other *** search
/ Amiga MA Magazine 1997 #3 / amigamamagazinepolishissue03-1 / ma_1995 / 09 / ami926a.txt < prev    next >
Text File  |  1997-04-07  |  2KB  |  139 lines
  1.  
  2. <l>SETBLACK
  3.  
  4. LOAD "df1:ryba.1a"
  5.  
  6. LOAD 1,"df1:ryba.1"
  7.  
  8. REM wartoôci poczâtkowe
  9.  
  10. u=3: u2=3
  11.  
  12. x=640: x2=-160: x3=-160
  13.  
  14. y=0: y2=80: y3=240
  15.  
  16. pionowa=0: pionowa2=80: îawica=321
  17.  
  18. zwrot=-1: zwrot2=1
  19.  
  20. FADE
  21.  
  22.     /sterowanie
  23.  
  24. DO duzaRyba: DO malaRyba: DO rybki
  25.  
  26. IF y=y2 & zwrot<0 & (x-x2)<161 & x2>0 & x>0 THEN DO jedzeniewLewo
  27.  
  28. IF y=y2 & zwrot>0 & (x2-x)<161 & x2>0 & x>0 THEN DO jedzeniewPrawo
  29.  
  30. GOTO sterowanie
  31.  
  32.     /duzaRyba
  33.  
  34. IF zwrot>0 THEN DO wPrawo
  35.  
  36. IF zwrot<0 THEN DO wLewo
  37.  
  38. x=x+u*zwrot
  39.  
  40. BLIT 1,1,1+pionowa,x,y,158,78
  41.  
  42. RETURN
  43.  
  44.     /malaRyba
  45.  
  46. IF zwrot2>0 THEN DO wPrawo2
  47.  
  48. IF zwrot2<0 THEN DO wLewo2 
  49.  
  50. x2=x2+u2*zwrot2
  51.  
  52. BLIT 1,1,321+pionowa2,x2,y2,158,78
  53.  
  54. RETURN
  55.  
  56.     /rybki
  57.  
  58. DO wPrawo3: x3=x3+?3+5
  59.  
  60. BLIT 1,îawica,401,x3,y3,158,78
  61.  
  62. RETURN
  63.  
  64.     /jedzeniewPrawo
  65.  
  66. BLIT 1,1+160,321+pionowa2,x2,y2,158,78
  67.  
  68. BLIT 1,161,241,x,y,158,78: pause 1
  69.  
  70. BLIT 1,321,241,x,y,158,78: pause 1
  71.  
  72. BLIT 1,481,241,x,y,158,78
  73.  
  74. y2=-90: RETURN
  75.  
  76.     /jedzeniewLewo
  77.  
  78. BLIT 1,1+160,321+pionowa2,x2,y2,158,78
  79.  
  80. BLIT 1,161,161,x,y,158,78: pause 1
  81.  
  82. BLIT 1,321,161,x,y,158,78: pause 1
  83.  
  84. BLIT 1,481,161,x,y,158,78
  85.  
  86. y2=-90: RETURN
  87.  
  88.     /wPrawo
  89.  
  90. pionowa=80: brzeg=640
  91.  
  92. IF x>brzeg THEN DO zwroty
  93.  
  94. RETURN
  95.  
  96.     /wPrawo2
  97.  
  98. pionowa2=80: brzeg2=640
  99.  
  100. IF x2>brzeg2 THEN DO zwroty2
  101.  
  102. RETURN
  103.  
  104.     /wLewo
  105.  
  106. pionowa=0: brzeg=-160
  107.  
  108. IF x<brzeg THEN DO zwroty
  109.  
  110. RETURN
  111.  
  112.     /wLewo2
  113.  
  114. pionowa2=0: brzeg2=-160
  115.  
  116. IF x2<brzeg2 THEN DO zwroty2
  117.  
  118. RETURN 
  119.  
  120.     /wPrawo3
  121.  
  122. IF x3>640 THEN DO nowe
  123.  
  124. RETURN
  125.  
  126.     /zwroty
  127.  
  128. y=?3*80: zwrot=zwrot*-1: RETURN
  129.  
  130.     /zwroty2
  131.  
  132. y2=?3*80: zwrot2=zwrot2*-1: RETURN
  133.  
  134.     /nowe
  135.  
  136. y3=?3*80+240: x3=-161
  137.  
  138. îawica=?2*160+321: RETURN
  139.