CoolBasic Forums

Code: Select all

amount = 3
For i = 0 to amount - 1
    
    Drawgame//peitetään ladatut objektit mustalla lootalla
    Color 0, 0, 0
    Box 0,0,Screenwidth(), ScreenHeight()
    
    color 255, 255, 255//kirjoitetaan latausteksti ja piirretään palkki
    Text 10, 10, "Loading...."
    color 255, 0, 0
    Box  10, 30,i*(100/amount),10
    
    color 255, 255, 255//piirretään ulkoreuna palkille
    Box 10, 30, 100, 10, OFF
    
    Drawscreen
    
    Select i//itse lataaminen
        case 0
            obj = LoadObject( "Media\guy.bmp" )
        case 1
            img = LoadImage( "Media\map.bmp" )
        case 2
            map = LoadMap( "Media\cdm2.til", "Media\tileset.bmp" )
    End Select
Next i