SETBLACK LOAD "df1:ryba.1a" LOAD 1,"df1:ryba.1" REM wartoôci poczâtkowe u=3: u2=3 x=640: x2=-160: x3=-160 y=0: y2=80: y3=240 pionowa=0: pionowa2=80: îawica=321 zwrot=-1: zwrot2=1 FADE /sterowanie DO duzaRyba: DO malaRyba: DO rybki IF y=y2 & zwrot<0 & (x-x2)<161 & x2>0 & x>0 THEN DO jedzeniewLewo IF y=y2 & zwrot>0 & (x2-x)<161 & x2>0 & x>0 THEN DO jedzeniewPrawo GOTO sterowanie /duzaRyba IF zwrot>0 THEN DO wPrawo IF zwrot<0 THEN DO wLewo x=x+u*zwrot BLIT 1,1,1+pionowa,x,y,158,78 RETURN /malaRyba IF zwrot2>0 THEN DO wPrawo2 IF zwrot2<0 THEN DO wLewo2 x2=x2+u2*zwrot2 BLIT 1,1,321+pionowa2,x2,y2,158,78 RETURN /rybki DO wPrawo3: x3=x3+?3+5 BLIT 1,îawica,401,x3,y3,158,78 RETURN /jedzeniewPrawo BLIT 1,1+160,321+pionowa2,x2,y2,158,78 BLIT 1,161,241,x,y,158,78: pause 1 BLIT 1,321,241,x,y,158,78: pause 1 BLIT 1,481,241,x,y,158,78 y2=-90: RETURN /jedzeniewLewo BLIT 1,1+160,321+pionowa2,x2,y2,158,78 BLIT 1,161,161,x,y,158,78: pause 1 BLIT 1,321,161,x,y,158,78: pause 1 BLIT 1,481,161,x,y,158,78 y2=-90: RETURN /wPrawo pionowa=80: brzeg=640 IF x>brzeg THEN DO zwroty RETURN /wPrawo2 pionowa2=80: brzeg2=640 IF x2>brzeg2 THEN DO zwroty2 RETURN /wLewo pionowa=0: brzeg=-160 IF x640 THEN DO nowe RETURN /zwroty y=?3*80: zwrot=zwrot*-1: RETURN /zwroty2 y2=?3*80: zwrot2=zwrot2*-1: RETURN /nowe y3=?3*80+240: x3=-161 îawica=?2*160+321: RETURN