Compressed Bytes used
1023

Source Code (OPTIONAL)
function tr(x,y,a,t,r)
return x*cos(a)+y*sin(a)+t,y*cos(a)-x*sin(a)+r
end
function dp(a)
line()
line(tr(a[8][#a[8]-1],a[8][#a[8]],a[5],a[1]\1+0.5,a[2]\1+0.5))
for i=1,#a[8]-1,2 do
x1,y1=a[8][i],a[8][i+1]
x1,y1=tr(x1,y1,a[5],a[1]\1+0.5,a[2]\1+0.5)
line(x1,y1,a[7])
end
end
ia={8,0,7,4,0.25,0,0,5}bl={8,0,4,0,0,-5,-5,0}tl={38,0.03,15,20,6,5,5,6}aa={}pl={8,0,0,0,0,0,7,{4,0,-3,-3,-2,0,-3,3}}ps=96ph=96sc=0pb={0,1,2,5,128,129,130,131,132,133,141}pf={6,7,9,10,14,15,134,135,137,143}ns={"a1","d2","e2","f2","f#2","g2","a2","a#2","b2","c2","d3"}ms={"d2","d2","a2","a2"}
function rnd2(x)
return rnd(x)-x/2
end
function mtt()
for i=1,#ia do
b=rnd(1)ia[i]=(bl[i]*b+tl[i]*(1-b)+ia[i])/2
end
pal(0,rnd(pb),1)pal(6,rnd(pf),1)n=rnd(ns)ms[rnd(4)\1+1]=n.."<"..n.."<"..n.."<"..n.."........v3"..n.."<"..n.."<"..n.."<"..n
end
function _draw()
if(btn(0))pl[5]-=0.05
if(btn(1))pl[5]+=0.05
if btn(2)then
pl[3],pl[4]=tr(0.125,0,pl[5],pl[3],pl[4])
end
psh=btn(4)and ps>1.5
if(ps<96)ps+=0.125
pl[1]+=pl[3]pl[2]+=pl[4]
if#aa<100then
a={pl[1]+rnd2(256),pl[2]+rnd2(256),rnd2(ia[5])+ia[6],rnd2(ia[5])+ia[7],0,rnd2(ia[8])+ia[1],6,{},rnd2(ia[2])}
if(rnd(800)<16)a[7]=11
if(rnd(800)<16)a[7]=12
if(rnd(800)<16)a[7]=8
if(rnd(800)<1)mtt()
if abs(a[1]-pl[1])+abs(a[2]-pl[2])>160then
for i=1,ia[3]do
add(a[8],sin(i/ia[3])*a[6]+rnd2(ia[4]))
add(a[8],cos(i/ia[3])*a[6]+rnd2(ia[4]))
end
add(aa,a)
end
end
for a in all(aa)do
a[1]+=a[3]a[2]+=a[4]a[5]+=a[9]
d=abs(a[1]-pl[1])+abs(a[2]-pl[2])
if(d>640)del(aa,a)
if d<4+a[6]-4then
del(aa,a)
sc+=1
if psh then
ps+=11
if(a[7]==11)ph=min(ph+23,96)
if(a[7]==12)ps=95
if(a[7]==8)mtt()
?"\ai"..(ia[8]\1).."d1"..rnd(ms)
else
?"\ai6x3a4a3a2a1"
ph-=23
end
end
end
camera(-32,-32)
if ph<0then
?"\^o0ff\^d1game over!\nscore:"..sc
stop()
end
cls(0)
if(ps<96)rect(-16,88,ps-16,89,7)
if(ph<96)rect(-16,92,ph-16,93,6)
if(btn(5))?sc
camera(pl[1]-64,pl[2]-64)
if abs(pl[3])+abs(pl[4])>1.5then
for i=1,3 do
circ(pl[1]-pl[3]*i,pl[2]-pl[4]*i,3-i,13)
end
end
foreach(aa,dp)dp(pl)
if psh then
circ(pl[1],pl[2],5)ps-=1.2
end
end