Characters/Bytes used
1019

Source Code
poke(0x5f2d,1)b={}d={}e={}l={}k=0t=171w=24h=16p=3c=6x=0y=0m=0a=0g=0z=10q=128o=split("600606060660666066666666","")pal(split("10,7,6,8,5,1",","))
f=stat
s=spr
a=add
r=rnd
for i=0,(w*h-1)do
v=ord("ky####く#wy%#レ(ホ#より%シ𝘧◆ヲ𝘥wy%レシ◆ッ𝘧wy%𝘧チ#レ#wk%(チ#レ#/#セ(チ#レ###シ𝘢チ#レ###シ𝘢チ𝘨#)#'シ𝘢チ𝘨$*#'シ𝘢チ#𝘯$##シ𝘢チ#𝘯*?ほタ𝘢チ𝘨𝘯𝘯##シ𝘢チ𝘮𝘮$#'シ𝘢チ#𝘮##'シッッ(𝘨#",i\p+1)-35sset(i%w,i\w,v\c^(i%p)%c)end
for i=0,q do
if(i%2<1)a(b,r(120))a(d,-i*20-q)a(e,r(q)\8*8)a(l,r(112)\8*8)
end
function _draw()cls()for i=32,q do line(0,i,q,i,o[(i-32)\4])end
if(m>0and j<1)j=1s(18,x,y)?"\as4i6x5c1"
for i=1,q do
s(2,e[i],l[i])
if(i<=#b)s(0,sin(d[i]/48)*6+b[i],d[i])
if(i<52or i>76)s(17,i\8*8,120)
end
s(1,56,112,1,2)s(1,64,112,1,2,true)s(16,x,y)?"left:"..#b,0,0,8
?"hp:"..z,0,8
if(z<1)?"game over",46,0
end
function _update60()
if(z<1)return
x,y=f(32)-1,f(33)-1m=f(34)n={}
for i=1,#b do d[i]+=.8if d[i]>q then a(n,i)z-=1end if(abs(x-b[i])<3and abs(y-d[i])<3)then if g>0and m>0then g=0a(n,i)end end end
for i=1,#n do deli(b,n[i])deli(d,n[i])?"\as4e1e2"
end
if(m<1)j=0g=1
end