`Make your explosion
make object sphere 1,10
ghost object on 1
`Texture Explosion(Replace with Texture Object command)
for x=1 to 32
for y=1 to 32
dot x, y, rgb(150+rnd(100),100+rnd(50),0)
next y
next x
get image 2,1,1,32,32
texture object 1,2
`Begin main loop
do
`increase a's number
a=a+1
`increase objects size based on a's number
scale object 1,a,a,a
`Scroll the explosions texture
scroll object texture 1,0.01,0.01
`Reset objects size by changing a's number to 1
If spacekey()=1
a=1
endif
Sync
loop
Infra-Dark
Bring the 20 liners back!
#coding, like coding, but with a #