Comet Ping

A 500-character Pico-8 Pong variant for #TweetTweetJam 9

Source:

cls()?"\^!5f100819😐:<77"
b=128x=32y=64w=-3h=-3p=64a=64m,d=mid,10r,c=rectfill,0s={0,0}::_::fillp()for _=1,999do u,z=rnd(92)+18,rnd(b)circ(u,z,1,max(pget(u,z)-2))end circfill(x,y,3,7+c)rect(17,-1,111,129)r(p-d,120,p+d,115,7)r(a-d,8,a+d,13,8)?s[2],6,54,7
?s[1],6,70
n,t=x+w,btn()x=m(20,n,108)w=n==x and w or -w
y+=h
p-=2*((t&1)-(t&2)\2)
a+=c==1and 0or(a>x and-2or 2)flip()if(y>112and x==m(p-d,x,p+d))y,h,c=111,-h,0
if(y<15and x==m(a-d,x,a+d))y,h,c=16,-h,1
if(y!=m(-8,y,136))cls()s[c+1]+=1;y-=20*h
goto _