In the initial portion of your game you should have the loading processes divided in subroutines.
like this:
Global Progress#
Global TotalProgress#
TotalProgress#=100
gosub _MakeMyCharacter : LoadingScreen(10)
gosub _LoadMap : LoadingScreen(50)
gosub _SetupGame : LoadingScreen(40)
You could make a function that displays the image and writes the percentage of loading progress.
function LoadingScreen(Prog#)
cls
sw=screen width()
sh=screen height()
inc Progress#,Prog#
PercentageComplete=(Progress#/TotalProgress#)*100.0
paste image LoadingImageN,0,0,0
Center Text sw/2,sh-30,"Loading("+STR$(PercentageComplete)+")%"
rem you could easily use a loading bar with this method
box 0,sh-30,sw,sh,RGB(128,128,128),0,RGB(128,128,128),0
box 0,sh-30,(Progress#/TotalProgress#)*sw,sh,RGB(0,0,255),0,RGB(0,0,255),0
sync
endfunction
If your image does not take up the whole screen, then you may get to see some objects appearing in the background. That's not always desirable so you should clear the camera view and set it back up again after the loading screen.
Hope this helps!
Randomnosity is a special influence upon man kind allowing one to think outside the usual bouderies and into a fantastic world created by oneself. Elephants don't cut it
