Sorry your browser is not supported!

type LoadBar
     name$ as string
     x1 as integer
     y1 as integer
     x2 as integer
     y2 as integer
     bdr as integer
     width as integer
     height as integer
     length as integer
endtype

dim LoadBar(3) as LoadBar



function RunLoadScreen()

    `load image "images\LoadScreen\LoadScreen.png",10
    `paste image 10,0,0

    LoadBar(3).height = 22 `height
    LoadBar(3).width = 800 ` width
    LoadBar(3).x1 = 0 `XPos
    LoadBar(3).y1 = 550 `YPos
    LoadBar(3).x2 = LoadBar(3).x1 + LoadBar(3).width
    LoadBar(3).y2 = LoadBar(3).y1 + LoadBar(3).height
    LoadBar(3).bdr = 0 `Border
    LoadBar(3).length = 0


    while myloop<1
        for i = 1 to 255
            Display_LoadBar(3)
            paste image 10,0,0
            wait 10
            i3=i
            i3=i3*4
            LoadBar(3).length = i3
            Display_LoadBar(3)
           ` paste image Logoimg,590,10,1
            sync
        next i
        cls
        myloop = myloop+1
    endwhile


    delete image 10
endfunction

function Display_LoadBar(Num)

    box LoadBar(Num).x1,LoadBar(Num).y1,LoadBar(Num).x2,LoadBar(Num).y2,rgb(0,0,0),rgb(2,2,2),rgb(2,2,2),rgb(2,2,2)
    ink rgb(2,2,2),1
    box LoadBar(Num).x1+LoadBar(Num).bdr,LoadBar(Num).y1+LoadBar(Num).bdr,LoadBar(Num).x2-LoadBar(Num).bdr,LoadBar(Num).y2-LoadBar(Num).bdr
    if LoadBar(Num).length > LoadBar(Num).width
       box LoadBar(Num).x1+LoadBar(Num).bdr+1,LoadBar(Num).y1+LoadBar(Num).bdr+1,LoadBar(Num).x1+LoadBar(Num).width-LoadBar(Num).bdr-1,LoadBar(Num).y2-LoadBar(Num).bdr-1,rgb(255,0,0),rgb(255,0,0),rgb(255,0,0),rgb(255,0,0)
    else
       box LoadBar(Num).x1+LoadBar(Num).bdr+1,LoadBar(Num).y1+LoadBar(Num).bdr+1,LoadBar(Num).x1+LoadBar(Num).length-1,LoadBar(Num).y2-LoadBar(Num).bdr-1,rgb(255,0,0),rgb(255,0,0),rgb(255,0,0),rgb(255,0,0)
    endif

endfunction

void runloadscreen ()
{
   int myloop = 0;
   int i = 0;
   int i3 = 0;


   //load image "images\LoadScreen\LoadScreen.png",10
   //paste image 10,0,0
   
   loadbar_arr[3].height = 22;   //height
   loadbar_arr[3].width = 800;   // width
   loadbar_arr[3].x1 = 0;   //XPos
   loadbar_arr[3].y1 = 550;   //YPos
   loadbar_arr[3].x2 = loadbar_arr[3].x1 + loadbar_arr[3].width;
   loadbar_arr[3].y2 = loadbar_arr[3].y1 + loadbar_arr[3].height;
   loadbar_arr[3].bdr = 0;   //Border
   loadbar_arr[3].length = 0;
   
   
   while ( myloop < 1 ) {
      for ( i = 1; i <= 255; i++ ) {
         display_loadbar( 3 );
         dbPasteImage( 10, 0, 0 );
         dbSleep( 10 );
         i3 = i;
         i3 = i3 * 4;
         loadbar_arr[3].length = i3;
         display_loadbar( 3 );
         // paste image Logoimg,590,10,1
         dbSync();
      }
      dbCLS();
      myloop = myloop + 1;
   }
   
   
   dbDeleteImage( 10 );
}




//***** 'display_loadbar' *****************************************************
//+**** ================= *****************************************************
void display_loadbar ( int num )
{
   dbBox( loadbar_arr[num].x1, loadbar_arr[num].y1, loadbar_arr[num].x2, loadbar_arr[num].y2, dbRGB( 0, 0, 0 ), dbRGB( 2, 2, 2 ), dbRGB( 2, 2, 2 ), dbRGB( 2, 2, 2 ) );
   dbInk( dbRGB( 2, 2, 2 ), 1 );
   dbBox( loadbar_arr[num].x1 + loadbar_arr[num].bdr, loadbar_arr[num].y1 + loadbar_arr[num].bdr, loadbar_arr[num].x2 - loadbar_arr[num].bdr, loadbar_arr[num].y2 - loadbar_arr[num].bdr );
   if ( loadbar_arr[num].length > loadbar_arr[num].width ) {
      dbBox( loadbar_arr[num].x1 + loadbar_arr[num].bdr + 1, loadbar_arr[num].y1 + loadbar_arr[num].bdr + 1, loadbar_arr[num].x1 + loadbar_arr[num].width - loadbar_arr[num].bdr - 1, loadbar_arr[num].y2 - loadbar_arr[num].bdr - 1, dbRGB( 255, 0, 0 ), dbRGB( 255, 0, 0 ), dbRGB( 255, 0, 0 ), dbRGB( 255, 0, 0 ) );
   }
   else {
      dbBox( loadbar_arr[num].x1 + loadbar_arr[num].bdr + 1, loadbar_arr[num].y1 + loadbar_arr[num].bdr + 1, loadbar_arr[num].x1 + loadbar_arr[num].length - 1, loadbar_arr[num].y2 - loadbar_arr[num].bdr - 1, dbRGB( 255, 0, 0 ), dbRGB( 255, 0, 0 ), dbRGB( 255, 0, 0 ), dbRGB( 255, 0, 0 ) );
   }
}