Apple Collector (Richard Woods)

560 characters in PICO-8  for TweetTweetJam 5

Controls

Arrow Keys to move

Source x=120y=120s=0a=60b=60e={0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}::z::cls()x+=btn(0)and -1or btn(1)and 1or 0y+=btn(2)and -1or btn(3)and 1or 0 x=x<0and 0or x>120and 120or x y=y<0and 0or y>120and 120or y if(a<x+6and a>x-6and b<y+5and b>y-5)s+=1a=rnd(120)b=rnd(120) for i=0,2do k=i+6l=i+9m=i+12if(e[m]<=0)e[m]=rnd(30)e[i]=rnd(2)-1e[i+3]=rnd(2)-1 e[m]-=1e[k]+=e[i]e[l]+=e[i+3]e[k]=e[k]<0and 0or e[k]>120and 120or e[k]e[l]=e[l]<0and 0or e[l]>120and 120or e[l] if(e[k]<x+4and e[k]>x-4and e[l]<y+4and e[l]>y-4)run() ?"😐",e[k],e[l],9 end ?s,0,0 ?"🐱",x,y,5 ?"●",a,b,8 flip()goto z