Characters/Bytes used
1023

Source Code
function _init()
f=0
v="\vi⌂"
h="웃"..v
p=0
g={"",20,10,1,1,1,0,100}
b={"",20,20,2,0,0,0,100}
x=-9
y=x
d=x
j=x
z=btnp
e=print
a=unpack
u=u or 0
k=pget
end
function _draw()
f+=1
if k(d,j)==2 or f>130 then
u=0
e("lose",56,111,8)
if z(5) then _init() end
else
cls(3)
rect(0,0,127,127,6)
circ(x,y,7,f+1)
p-=1
g[7]+=1
g[1]=f%4<2 and"웃" or"✽" g[1]..=v
g[5]=z(0) and -1 or g[5]
g[5]=z(1) and 1 or g[5]
g[6]=z(2) and -1 or g[6]
g[6]=z(3) and 1 or g[6]
g[7]=(z()&15>0) and 0 or g[7]
p=g[7]==0 and max(p+1,4) or p
g[2]=c(l(g[2],g[2]+80*g[5],g[7]/20),20,100)
g[3]=c(l(g[3],g[3]+80*g[6],g[7]/20),20,100)
e(a(g))
if p<=0 then
o=g[7]/b[8]
b[2]=c(l(b[2],g[2]+90*g[5],o),27,92)
b[3]=c(l(b[3],g[3]+90*g[6],o),31,94)
end
b[1]=g[1]
e(a(b))
if f>99 and x==-9 then
x,y=23+80*flr(rnd(2)),20+80*flr(rnd(2))
elseif f>120 then
d=l(60,x,(f-120)/10)
j=l(90,y,(f-120)/10)
end
circ(d,j,1,f)
e("\f2"..h.."\n\f1"..h..u,60,99)
if k(d,j)==1 then
u+=1 _init()
end
end
end
function c(x,l,g)
return max(min(x,g),l)
end
function l(a,b,t)
return a+(b-a)*t
end