Leave it where all your media is loaded first up (it prevents the program running really slowly during in-game loading)
To get rid of the "black screen" stick in a load/progress bar function, Like this one:
Function _load_bar(percent)
`These values determine the positioning of the loading bar and the text.
`Negative values for horiz_offset will position everything to the left of centre.
`Positive values for horiz_offset will position everything to the right of centre.
`Negative values for vert_offset will position everything to the top of centre.
`Positive values for vert_offset will position everything to the bottom of centre.
horiz_offset = 0
vert_offset = 100
Ink 0,RGB(200,200,200)
Cls
`Draws the box
Ink RGB(50,50,100),0
Line (Screen Width()/2 + horiz_offset - 152),(Screen Height()/2 + vert_offset - 17),(Screen Width()/2 + horiz_offset + 151),(Screen Height()/2 + vert_offset - 17)
Line (Screen Width()/2 + horiz_offset - 152),(Screen Height()/2 + vert_offset + 16),(Screen Width()/2 + horiz_offset + 151),(Screen Height()/2 + vert_offset + 16)
Line (Screen Width()/2 + horiz_offset - 152),(Screen Height()/2 + vert_offset - 17),(Screen Width()/2 + horiz_offset - 152),(Screen Height()/2 + vert_offset + 16)
Line (Screen Width()/2 + horiz_offset + 151),(Screen Height()/2 + vert_offset - 17),(Screen Width()/2 + horiz_offset + 151),(Screen Height()/2 + vert_offset + 16)
`Draws teh load bar
Ink RGB(100,100,100),0
Box (Screen Width()/2 + horiz_offset - 150),(Screen Height()/2 + vert_offset - 15),(Screen Width()/2 + horiz_offset - 150 + (percent*3)),(Screen Height()/2 + vert_offset + 15)
`This sets the font size and the font color, change them to any values you wish.
Set Text Size 20
Set Text Font "Arial"
`Creates the text
Ink 0,0
Center Text (Screen Width()/2),(Screen Height()/2 + vert_offset - 150),"Please Wait"
Center Text (Screen Width()/2),(Screen Height()/2 + vert_offset - 135),"'Game Name Goes Here' Is Loading"
Center Text (Screen Width()/2),(Screen Height()/2 + vert_offset - (Text Height(Str$(percent)+"% Loaded...")/2)),Str$(percent)+"% Loaded..."
`These reset the Ink, Text Size and Text Font values to their defualt (you need to change them to your default)
Ink RGB(255,255,255),0
Set Text Size 14
Set Text Font "Times New Roman"
Sync
EndFunction
To see it working, use this:
Sync On : Sync Rate 0
BackDrop Off
Draw To Front
For x = 1 To 100
Make Object Sphere x,100
Color Object x,RGB(Rnd(255),Rnd(255),Rnd(255))
`This calls the function where "x" is the percentage value that the For...Next loop is up to.
_load_bar(x)
Next x
BackDrop On
End
Remstart
Normally, before the game loads, you would have it set up thus:
`Load Stuff here
_load_bar(10)
`Load more stuff here
_load_bar(20)
`Load other stuff here
_load_bar(30)
`Load some more stuff here
_load_bar(40)
etc up to 100 (which is 100%) which will be after the last thing loaded.
Remend
Function _load_bar(percent)
`These values determine the positioning of the loading bar and the text.
`Negative values for horiz_offset will position everything to the left of centre.
`Positive values for horiz_offset will position everything to the right of centre.
`Negative values for vert_offset will position everything to the top of centre.
`Positive values for vert_offset will position everything to the bottom of centre.
horiz_offset = 0
vert_offset = 100
Ink 0,RGB(200,200,200)
Cls
`Draws the box
Ink RGB(50,50,100),0
Line (Screen Width()/2 + horiz_offset - 152),(Screen Height()/2 + vert_offset - 17),(Screen Width()/2 + horiz_offset + 151),(Screen Height()/2 + vert_offset - 17)
Line (Screen Width()/2 + horiz_offset - 152),(Screen Height()/2 + vert_offset + 16),(Screen Width()/2 + horiz_offset + 151),(Screen Height()/2 + vert_offset + 16)
Line (Screen Width()/2 + horiz_offset - 152),(Screen Height()/2 + vert_offset - 17),(Screen Width()/2 + horiz_offset - 152),(Screen Height()/2 + vert_offset + 16)
Line (Screen Width()/2 + horiz_offset + 151),(Screen Height()/2 + vert_offset - 17),(Screen Width()/2 + horiz_offset + 151),(Screen Height()/2 + vert_offset + 16)
`Draws the load bar
Ink RGB(100,100,100),0
Box (Screen Width()/2 + horiz_offset - 150),(Screen Height()/2 + vert_offset - 15),(Screen Width()/2 + horiz_offset - 150 + (percent*3)),(Screen Height()/2 + vert_offset + 15)
`This sets the font size and the font color, change them to any values you wish.
Set Text Size 20
Set Text Font "Arial"
`Creates teh text
Ink 0,0
Center Text (Screen Width()/2),(Screen Height()/2 + vert_offset - 150),"Please Wait"
Center Text (Screen Width()/2),(Screen Height()/2 + vert_offset - 125),"'Game Name Goes Here' Is Loading"
Center Text (Screen Width()/2),(Screen Height()/2 + vert_offset - (Text Height(Str$(percent)+"% Loaded...")/2)),Str$(percent)+"% Loaded..."
`These reset the Ink, Text Size and Text Font values to their defualt (you need to change them to your default)
Ink RGB(255,255,255),0
Set Text Size 14
Set Text Font "Times New Roman"
Sync
EndFunction
Hope I Helped...
Team EOD :: Programmer/Logical Engineer/All-Round Nice Guy