Characters/Bytes used
972

Source Code
r=rectfill
e=pset
s={}c=0l=0o=1n=30h=10p=0a={}
for i=1,100do
add(a,{rnd(127),rnd(127)})end
::_::
cls()t=time()dt=t-p
if l<=0 then
?"earth shield 20xx",30,56,11
?" hit ❎ to start",30,68,8
if(btnp(5))l=5c=0
else
for i=1,#a do
e(a[i][1],a[i][2],5)end
r(60,60,68,68,12)rect(56,56,72,72,7+o)d={60,62,61,62,60,63,61,63,62,64,63,65,62,66,65,62,66,62,65,63,66,63,67,64,66,65,67,65,68,65}
for i=1,#d-1do
e(d[i],d[i+1],11)end
if h<0then
cf=flr(rnd(2))
x=flr(rnd(128))
y=flr(rnd(128))
if cf==1 then
x=flr(rnd(2))*128
else
y=flr(rnd(2))*128
end
v={64-x,64-y}
add(s,{x=x,y=y,v=v,pol=cf+7})h=n
end
if(t%10==0 and n>=10)n-=3
for _,i in pairs(s) do
e(i.x,i.y,i.pol)i.x=i.x+dt*i.v[1]i.y=i.y+dt*i.v[2]i.v={64-i.x,64-i.y}
if((i.x>=56 and i.x<=72)and(i.y>=56 and i.y<=72))then
if(i.pol==7+o)then
c+=1
poke4(12800,2571.2472)sfx(0)
else
cls()
r(0,0,127,127,7)
l-=1
poke4(12800,2471.2472)sfx(0)
end
del(s,i)
end
end
if(btnp(5))o=(o+1)%2
?"score: "..c.."\nlife: "..l,12
p=t
h-=1
end
flip()
goto _