Compressed Bytes used
1018

Source Code (OPTIONAL)
function _init()
?"\^!5f5c◝"
sg()end
function _update60()
cls()
if #rck<80 then
srck(rnd(5)+sin(d/50)*16,8)
srck(rnd(5)-sin(d/50)*16+110,8)
srck(rnd(128),128-d/50)end
sbdy()
pls-=.015
pla=plac/25+.5
plat-=1
ply=100-pls
if pls<0 then
pls=0end
if not de then
d+=pls
if btn(0) then
plac-=pls/15
pls+=.025end
if btn(1) then
plac+=pls/15
pls+=.025end
if btn(0)==false and btn(1)==false then
if plac>0 then
plac-=.01
else plac+=.01
end
end
plx+=plac
plx%=128
if plat<1 then
plat=0end
if plat>0 then
pls+=.3end
if pls>1.5 then
func(1,rnd(2))end
end
for c in all(ck) do
c.y-=c.spy
c.x-=c.spx
circfill(c.x,c.y,c.r,c.c)
if c.y>130 then
del(ck,c)end
end
for c in all(rck) do
fillp(░)rrectfill(c.x,c.y,c.w+20,c.h+20,2+5,1)
fillp()rrectfill(c.x,c.y,c.w+15,c.h+10,4,1)end
for c in all(rck) do
rrectfill(c.x+2,c.y,c.w+2,c.h+2,2,6)end
for c in all(rck) do
c.y+=pls
if plx>c.x and plx<c.x+c.w and
ply>c.y and ply<c.y+c.h then
if not de then
print("\ai6g",0,0)
pls=0plac=0de=true
end
end
fillp()rrectfill(c.x,c.y,c.w,c.h,2,13)
if c.y>150 then
del(rck,c)
end
end
if not de then
sfo()end
for c in all(fo) do
c.y+=pls
circfill(c.x,c.y,3,2)circfill(c.x-1,c.y-1,1,14)
if c.x>plx-3
and c.x<plx+3
and c.y>92 and c.y<110 then
for i=1,10 do
func(2,rnd(3))end
del(fo,c)
fg+=1
print("\ai1x3a",0,0)end
if c.y>150 then
del(fo,c)end
end
for c in all(fun) do
c.y+=2
circfill(c.x,c.y,2,7)
if c.y>130 then
del(fun,c)end
end
circfill(plx,ply,4,7)
circfill(plx+sin(pla)*5,ply+cos(pla)*5,2)
line(plx,ply,plx+sin(pla+.4)*8,ply+cos(pla+.3)*12)
line(plx,ply,plx+sin(pla+.6)*8,ply+cos(pla+.7)*12)
if de then
for i=1,5 do
circfill(plx+sin(time()+i/5)*8,100+cos(time()+i/5)*4,1,9)
print("\^o1fffood eaten: "..fg,38,50,7)print("\n\^o1ffdistance : "..ceil(d/10).." m")
end
if btnp()>2 then
sg()
end
end
end
function sg()
rck={}ck={}fun={}fo={}d=0plac=0pls=1plat=0fg=0
plx,ply=64,100pla=.5de=false
end
function sbdy()
local c={}
c.x,c.y=plx,ply
c.r=3
add(fun,c)
end
function srck(x,ti)
if ceil(d%ti)==1 then
local c={}
c.x,c.y=x,-50-rnd(50)
c.w=rnd(15)+5c.h=rnd(15)+20
add(rck,c)
end
end
function sfo()
if ceil(d)%50==1 then
local c={}
local _x,_y=rnd(50)+50,rnd(50)-50
if pget(_x,_y)==0 then
c.x,c.y=_x,_y
if #fo<4 then
add(fo,c)end
end
end
end
function func(oc,r)
local c={}
c.x,c.y=plx,ply
c.r=r
c.spx=sin(pla)+rnd(3)-1
c.spy=cos(pla)
c.c=oc
add(ck,c)
end