Compressed Bytes used
953

Source Code (OPTIONAL)
function sg()
cls()
au={"a","b","c","d","f"}
px=64py=64pa=.25ps=1
t=0fx=rnd(128)fy=rnd(128)
fs=0c={10,9,11,8,5,2,6,1,1,13,0}
r=50score=0pav=0pac=0par={}pan=500
end
sg()
function reset_higscore()
dset(0,0)
end
function _update60()
cartdata("fizzle")
menuitem(3,"reset highscore",reset_higscore)
t+=1r+=2
if btnp(2) then
if ps<2 then
ps+=.5
end
end
if r>=2000 then
if score>=dget(0) then
scorc=8 else scorc=2
end
print("you fizzled out...",26,54,2)
color=scorc
print("score "..score)print("best "..dget(0),scorc)
end
for i=1,r do
pset(rnd(128),rnd(128),0)
end
if r<2000 then
for b=0,1 do
if not btn(b) then
if pav>0 then
pav-=.0008end
if pav<0 then
pav+=.0008end
end
end
if ps>1 then
ps-=.001end
if btn(⬅️) then
pav+=.0012end
if btn(➡️) then
pav-=.0012end
pa+=pav
fsx=cos(fa)*fs
fsy=sin(fa)*fs
psx=cos(pa)*ps
psy=sin(pa)*ps
fx+=fsx
fy+=fsy
px+=psx
py+=psy
px%=128 py%=128
fx%=128 fy%=128
if cl() then
print("\ai5x3a"..rnd(au),0,0)
r-=pan
fa=rnd()
score+=1
fs=t/5000pan+=20
if r<50 then
r=50end
for i=1,5 do
local ocal={}
ocal.x=fx
ocal.y=fy
ocal.a=rnd()
ocal.r=3
ocal.s=1
add(par,ocal)end
fx=rnd(128)fy=rnd(128)fa=rnd()
end
for ocal in all(par) do
ocal.sx=cos(ocal.a)
ocal.sy=sin(ocal.a)
ocal.x+=ocal.sx*5
ocal.y+=ocal.sy*5
ocal.r-=1
if ocal.r<1 then
del(par,ocal)end
circfill(ocal.x,ocal.y,ocal.r,7)
end
fillp(▒)
circfill(fx,fy,sin(t/100+.25)+4,1)
fillp()
circfill(px,py,1,c[ceil(#c/2000*r)+1])
circfill(fx,fy,sin(t/100)+2,12)
line(px,py,px-
cos(pa)*9+cos(t/50),
py-sin(pa)*9+sin(t/50),
c[ceil(#c/2000*r)])
end
if r>=2000 then
r=2000
if btnp(❎) do
sg()
end
end
pal(11,137,1)
pal(5,136,1)
pal(13,129,1)
pal(6,130,1)
if dget(0)==nil then
dset(0,0)
end
if score>dget(0) then
dset(0,score)
end
end
function cl()
local dx,dy =
abs((px)-fx),
abs((py)-fy)
if(dx<dy) dx,dy = dy,dx
local dst =
dx/sin(atan2(dy,dx))
return dst<7
end