Sorry your browser is not supported!

do
`main loop code
if you die then exit
loop
size#=2000 ` has to be a large size that is outside the screen, but not too far outside the screen.
do
circle 0,0,size#
size#=size#-2` change the 2 to change the speed.
if size#<0 then exit
loop
`make it go back to the menu or do whatever you want to happen when you die.

`Zooming Circle Transition by BmacZero
`Theory by Tiresius

sync on : sync rate 60
color backdrop rgb(0,200,100)

`Setup Death Circles
#Constant DCircleSprite 1
#Constant DLeftBoxSprite 2
#Constant DTopBoxSprite 3
#Constant DRightBoxSprite 4
#Constant DBottomBoxSprite 5
#Constant BoxImage 1
#Constant CircleImage 2
InitiateDCircle()

do

ShrinkDCircle(10,screen width()/2,screen height()/2)

sync
loop


function ShrinkDCircle(Rate,XIn,YIn)
if Started=0
    Started=1
    show sprite DCircleSprite
    show sprite DLeftBoxSprite
    show sprite DTopBoxSprite
    show sprite DRightBoxSprite
    show sprite DBottomBoxSprite
endif

size sprite DCircleSprite,sprite width(DCircleSprite)-Rate,sprite height(DCircleSprite)-Rate
sprite DCircleSprite,XIn-sprite width(DCircleSprite)/2,YIn-sprite height(DCircleSprite)/2,CircleImage
paste sprite DCircleSprite,XIn-sprite width(DCircleSprite)/2,YIn-sprite height(DCircleSprite)/2

if XIn<0 then XIn=0
if YIn<0 then YIn=0

size sprite DLeftBoxSprite,XIn,screen height()
size sprite DTopBoxSprite,screen width(),YIn

paste sprite DLeftBoxSprite,0-sprite width(DCircleSprite)/2,0
paste sprite DTopBoxSprite,0,0-sprite height(DCircleSprite)/2
paste sprite DRightBoxSprite,XIn+sprite width(DCircleSprite)/2,0
paste sprite DBottomBoxSprite,0,YIn+sprite height(DCircleSprite)/2
endfunction



function InitiateDCircle()
ink rgb(1,0,0),rgb(1,0,0)
box 1,1,2,2
get image BoxImage,1,1,2,2,1
load image "Circle.bmp",CircleImage,1

sprite DCircleSprite,0,0,CircleImage
size sprite DCircleSprite,1536,1536

sprite DLeftBoxSprite,0,0,BoxImage
sprite DTopBoxSprite,0,0,BoxImage
sprite DRightBoxSprite,0,0,BoxImage
sprite DBottomBoxSprite,0,0,BoxImage

size sprite DRightBoxSprite,screen width(),screen height()
size sprite DBottomBoxSprite,screen width(),screen height()

hide sprite DCircleSprite
hide sprite DLeftBoxSprite
hide sprite DTopBoxSprite
hide sprite DRightBoxSprite
hide sprite DBottomBoxSprite
endfunction