À À<ÌÌÌÀÜÍÌÌ000À À<ÌÌÌÀÜÍÌÌ00À Ã ÌÌÌÜÍ ÌÌ0À Ã ÌÌÌÜÍ ÌÌ00À 0À ÐÌÌ ÌÌÌÌÀ 0À ÐÌÌ ÌÌÌÌ0À À ÌÌÐÌÌ ÌÌ0À À ÌÌÐÌÌ ÌÌ00 >ºx=10 y=10 s=1 a=1 ao=0 sx=0 sy=0 function stitch() local s=6 for x=240//s,0,-1 do for y=136//s,0,-1 do c=pix(x,y) rect(s*x,s*y,s,s,0) line(s*x,s*y,s*x+s-2,s*y+s-2,c) line(s*x+s-2,s*y,s*x,s*y+s-2,c) end end end function TIC() dx=0 dy=0 s=1 if btn(0) then dy=dy-s end if btn(1) then dy=dy+s end if btn(2) then dx=dx-s end if btn(3) then dx=dx+s end if dy~=0 then sy=dy end if dx~=0 then sx=dx end sx=sx*0.8 sy=sy*0.8 x=x+sx*0.5 y=y+sy*0.5 if dx==1 then a=1 elseif dx==-1 then a=3 elseif dy==1 then a=5 elseif dy==-1 then a=7 end if dx~=0 or dy~=0 then ao=(time()/100)%2 end cls(15) elli(x,y+3,3,1,0) spr(a+ao,x-4,y-4,0) stitch() end