Carregamento.sb

' Small Quest (Pilot)
' Copyright © 2015 Filipe Cardoso Martins and Nonki Takahashi.  The MIT License.
' Program ID BVF618
' Version 1.0
' Last update 2015-06-04

'Configurações da janela do jogo. / The game window settings.
GraphicsWindow.Hide()
GraphicsWindow.Show()
GraphicsWindow.Title = "Carregamento 1.0"
GraphicsWindow.Height = "550" 
GraphicsWindow.Width = "800"
larguraBarraCarregamento = 700

'Designer da janala do jogo. / Designer of the game window.
GraphicsWindow.BackgroundColor= "DodgerBlue"
GraphicsWindow.BrushColor= GraphicsWindow.GetColorFromRGB (255, 255, 255)
GraphicsWindow.FillRectangle (10, 10, 780, 530)
GraphicsWindow.BrushColor= GraphicsWindow.GetColorFromRGB (0, 0, 0)
GraphicsWindow.FillRectangle (15, 15, 770, 520)

'Foto de Fundo. / Photo Fund.
imagem = ImageList.LoadImage(Program.Directory + "/image/FundoTelaCarregamento.png")
GraphicsWindow.DrawImage(imagem, 15, 15)

'Textos exibidos na janela de carregamento do jogo. / Texts displayed in game loading window.
GraphicsWindow.BrushColor = "DarkOrange"
GraphicsWindow.FontSize = "40"
Logo = Shapes.AddText("Small Quest")
Shapes.Move(Logo, 280, 50)

GraphicsWindow.BrushColor = "DeepSkyBlue"
GraphicsWindow.FontSize = "20"
Direitos = Shapes.AddText("JOGO INDEPENDENTE")
Shapes.Move(Direitos, 290, 110)

GraphicsWindow.FontSize = "15"
ProgressoFundo = Shapes.AddText("Carregando. . .")
Shapes.Move(ProgressoFundo, 357, 480)

'Sistema de carregamento. / Charging system.
GraphicsWindow.BrushColor = "White"
GraphicsWindow.FillRectangle(50, 450, larguraBarraCarregamento, 30)

For porcento = 1 to 100
  larguraAtual = porcento / 100 * larguraBarraCarregamento
  tempo1()
  GraphicsWindow.BrushColor = "Chartreuse"
  GraphicsWindow.FillRectangle(50, 450, larguraAtual, 30)
  GraphicsWindow.BrushColor = "Black"
  GraphicsWindow.FontSize = "15"
  Shapes.Remove(Progresso)
  Progresso = Shapes.AddText(porcento + "%")
  Shapes.Move(Progresso, 387, 455)
EndFor

Shapes.Remove(ProgressoFundo)
GraphicsWindow.BrushColor = "DeepSkyBlue"
GraphicsWindow.FontSize = "15"
ProgressoFundo = Shapes.AddText("Pronto!")
Shapes.Move(ProgressoFundo, 380, 480)

'Tempo de carregamento. / Charging time.
Sub tempo1
  Program.Delay(100)
EndSub