#include once "fbgfx.bi"
#include once "dialogs.bi"

var screenx = 1280
var screeny = 1024
screeninfo(screenx,screeny)

screenres screenx, screeny, 32, , fb.GFX_FULLSCREEN or fb.GFX_ALWAYS_ON_TOP

setmouse ,,0

var compstr = "Compiling..."
var notused = 0

var brk = dialog.input_int("How long do you need a break for? (minutes)", @notused)
var project = dialog.input_str("And what project are you compiling?")
cls

var sleepytime = (brk * 60)
var sleepytime_step = sleepytime / 100

var boxleft = (screenx / 2) - ( screenx / 4 )
var boxtop = (screeny / 2 ) - 20

var pctstep = (screenx/2)/100

var pct = 0
while pct < 101
 screenlock
 line (0,0)-(screenx,screeny),0,BF
 line (boxleft-10,boxtop-40)-(boxleft+(screenx/2)+10,boxtop+50),&hFFC9C9C9, BF
 line (boxleft,boxtop)-(boxleft+(screenx/2),boxtop+40),0,BF
 line (boxleft,boxtop)-(boxleft+(screenx/2),boxtop+40),rgb(255,255,255),B
 line (1+boxleft,1+boxtop)-(1+boxleft+(pct*pctstep),boxtop+39),rgb(0,255,0),BF
 draw string (0,0), time,rgb(255,0,0)
 draw string ((screenx/2)-4*(len(project)),(screeny/2)-5), project, rgb(255,0,0)
 draw string ((screenx/2)-4*(len(compstr)),(screeny/2)-35), compstr, rgb(255,0,0)
 screenunlock
 sleep sleepytime_step * 1000, 1
 pct += 1
wend

setmouse ,,1
cls

dialog.message(!"Compilation Finished.\vProject " & project & " built successfully.", dialog.icon.exclaim )