Live Rendered Explosion
First Shot :
SetFPS 60
ExpCR = 0
ExpR = 50
ExpMC = $bb
ExpX = 100
ExpY = 100
Do
ExpX = ExpX - 1
ExpY = ExpY - 1
If ExpR > 0 Then ExpR = ExpR - 1
If ExpCR < ExpR Then ExpCR = ExpCR + 2
If ExpMC > 0 Then ExpMC = ExpMC - 2
Cls 0
CircleC ExpX,ExpY,ExpR + 2,True,$ff0000
CircleC ExpX,ExpY,ExpR,True,RGB($ff,ExpMC,00)
CircleC ExpX,ExpY,ExpCR,True, $000000
Sync
Loop
— hartnell