CATS CATS CATS (PICO-1K)

🐱 CATS CATS CATS 🐱 An entry for the PICO-1K Jam! WHAT YOU NEED TO KNOW

• The cats are coming... for you!
• Their touch is deadly.
• The laser cannot harm you, but is deadly against space cats!
• Move with arrow keys!
• Stay alive!

SHOW ME SOURCE CODE?

▥=64▤=128…=35∧=sin ˇ=cos ◆=rnd ⌂=yield ♥=nil █=fillp a={}function b(c)add(a,cocreate(c))end c=0d=0e=♥ f=0g=0h=0function l(x,y)x=◆(▤)y=◆(▤)for i=0,… do circ(x,y,8-i/8,10)⌂()end::m::q=atan2(y-▥,x-▥) if(mid(g-.01,q,g+.01)==q)goto n ?"🐱",x,y,9 z=c-x w=d-y x+=sgn(z)*◆(…)/▥ y+=sgn(w)*◆(…)/▥ if(z*z+w*w<3*3)e=1 ⌂()goto m ::n::?"\af#.f",0,0 f+=100for i=0,… do for j=0,1,.1 do?"★",x+∧(j)*i,y+ˇ(j)*i,8+◆(3) end ⌂()end b(l)end function p()::q::?" 🐱🐱🐱\n\nlast ☉: "..f,…,…,7 ?"❎ to play",…,▥+∧(✽),8 if(btn(❎))goto r ✽+=.1⌂()goto q ::r::f=0e=♥ foreach({l,l,l,l},b)✽=0c=▥ d=▥::s:: if(e)goto k if(✽%…==0)b(l) ✽+=1?"☉:"..f clip(0,8,▤,112)█(░)rectfill(0,0,▤,▤,1)█()line(▥,▥,▥+∧(g)*▤,▥+ˇ(g)*▤,8)g+=.003g-=g\1?"웃",c,d,7 i=btn()c=mid(0,c+(i&2)/2-(i&1),▤)d=mid(8,d+(i&8)/8-(i&4)/4,▤-8)⌂()goto s ::k:: a={}h=1⌂() for i=0,… do?"웃",c,d,7 ⌂()end?"\ace-a" for i=0,▥ do for j=0,1,.1 do?"★",c+∧(j)*i,d+ˇ(j)*i,12 end ⌂()end for i=0,▥ do ⌂() end b(p) end b(p)::v::cls(0)for 🅾️ in all(a) do h=0 if(not coresume(🅾️))del(a,🅾️) if(h==1)add(a,🅾️)end flip()goto v