Unlimited Bobs

An unlimited bobs effect for the TIC-80

buffers={16384,32640,49024,65508}

width=240
height=136

bufferSize=(width*height)/2

ballCount=8

t=0


for s=1,#buffers do
 cls()
 memcpy(buffers[s],0,bufferSize)
end

function TIC()
 s=1+t%#buffers

 memcpy(0,buffers[s],bufferSize)

 for b=1,ballCount do
  alpha=b*2*math.pi/ballCount
 
  speed=(s+t*#buffers)*#buffers/3600
  x=math.sin(alpha+3.12*speed-11)*116
  y=math.sin(alpha+2.54*speed)*64

  circ(width/2+x,height/2+y,4,0);		        
  for j=0,2 do
   circ(width/2+x-j/2,height/2+y-j/2,3-j,14-j);
  end
 end
	
 memcpy(buffers[s],0,bufferSize)	
	
 bobCount=(ballCount*t)//#buffers
 textWidth=print(bobCount,820,430,0,true)

 counterX=width-textWidth
 counterY=130
 print(bobCount,counterX-1,counterY-1,0,true)
 print(bobCount,counterX,counterY,12,true)
	
 t=t+1
end