SetClearColor(40,150,250)
//--------------------------------------------------------------
back=CreateSprite(0)
SetSpriteColor(back, 0, 0, 0, 100)
SetSpriteSize(back, 204, 34)
SetSpritePositionByOffset(back, GetVirtualWidth()/2, GetVirtualHeight()/2)
//--------------------------------------------------------------
front=CreateSprite(0)
SetSpriteColor(front, 117, 245, 66, 255)
SetSpriteSize(front, 200, 30)
SetSpritePosition(front, GetVirtualWidth()/2-GetSpriteWidth(front)/2, GetVirtualHeight()/2-GetSpriteHeight(front)/2)
progress_step = GetSpriteWidth(front)/100.0 //1%
progress = 100
//--------------------------------------------------------------
//text
text = CreateText(str(progress)+"%")
SetTextAlignment(text, 1)
SetTextSize(text, 60)
SetTextPosition(text, GetVirtualWidth()/2, GetVirtualHeight()/2-GetTextTotalHeight(text)-20)
//--------------------------------------------------------------
time#=Timer()
speed#=0.1 // 1.0 = one second
do
if timer()-time#>speed#
time#=timer()
dec progress
if progress < 0 then progress = 100
SetSpriteSize(front, progress * progress_step, GetSpriteHeight(front))
SetTextString(text, str(progress)+"%")
endif
Sync()
loop