BEARS STOLE YOUR PICNIC

bears.p8

cls()pal(split"1,141,3,4,5,6,7,137,9,10,138,12,13,131,133",1)
for i=0,150do
?"\^t\f5✽\-6\ff ✽\b\^w\f1\|e𝘷",rnd(i%5)+i%4*32+8,24+i/9
y=rnd(26)
?"\^t\f3★\-b★\b\fe░\-9\f1ˇ",i%4*32+rnd(y)+6-y/4,y
?"\f3●\b\|f\fb●\b /\f8█\b\f9ˇ\fb█\b\f7⧗\f4█\fa\-9▒\f4\-a█\f1█1\b\b\b\f4m🐱",1,54
end
memcpy(0,0x6000,0x2000)
::x::t,h,j,c,n,a,m,l={},8,8,0,0,0,split"apple,crisps,lemonade,sandwich"
for i=0,80do
add(t,{t=0,c=rnd(3)\1,x=rnd(16),y=160,z=rnd(16),w=23,h=33})
end
for i=0,80do
add(t,{t=0,c=rnd(3)\1,x=rnd(16),y=-30,z=rnd(16),w=.5,h=.5})
end
for i=0,16,16do
for v=0,16do
add(t,{t=0,c=rnd(3)\1,x=i,y=160,z=v,w=23,h=33})
add(t,{t=0,c=rnd(3)\1,x=v,y=160,z=i,w=23,h=33})
end
end
for i=0,3do
add(t,{t=1+i,x=1+rnd(14),y=-30,z=1+rnd(14),w=2,h=2,i=8,p=8*i,s=51})
end
?"\asfe1.a#0"
::i::x,z=h,j
if(btn(0))a-=.007
if(btn(1))a+=.007
if(btn(2))h,j=x+cos(a)*.05,z+sin(a)*.05
if(btn(3))h,j=x-cos(a)*.05,z-sin(a)*.05
if(btn(5)and c<0)goto x
if(h<1or h>15)h=x
if(j<1or j>15)j=z
cls(13)
fillp()rectfill(0,40,128,128,3)
fillp(0x4010)rectfill(0,83,128,90,83)
fillp(▒)rectfill(0,32,128,82,5)
fillp(0x5a5a)rectfill(0,56,128,68,19)
for i in all(t)do
u,v=i.x-x,i.z-z i.u,i.v=sin(a)*u-cos(a)*v,cos(a)*u+sin(a)*v
end
for i=0,3do
for i=1,#t-1do
if(t[i].v<=t[i+1].v)t[i],t[i+1]=t[i+1],t[i]
end
end
for i in all(t)do
if(i.t==5and c%90==0)i.f=rnd()-.5i.g=rnd()-.5
if(i.t==5)i.x+=i.f	or 0i.z+=i.g or 0
if(i.t==5and abs(i.x-x)<1and abs(i.z-z)<1)goto x
if(i.t>0and abs(i.x-x)<1and abs(i.z-z)<1)del(t,i)n+=1l=m[i.t]?"\ace-g"
if(i.v>0)pal(3,1+(i.c or 0))sspr(i.p or i.c*32,i.s or 0,i.i or 32,i.i or 48,64+i.u*64/i.v,64-i.y/i.v,i.w*6/i.v,i.h*6/i.v)
end
if(c%90==0)add(t,{t=5,x=rnd(16),y=40,z=rnd(16),w=30,h=30,i=12,p=36,s=51})
pal(3,3)
if(l)?"\f7found "..l
if(n==4)n,c=c,-999?"\a..d..d..d..ccc..ddd"
if(c<90)cls()?"bears stole your picnic",20,60
if(c<0)cls()?"found your picnic\nin "..(n\30).." secs!\npress ❎",20,60
c+=1flip()goto i