Field LoadingCurrentState%
	Field LoadingMaxState% = 130
	Field LoadingCountStates% = 0
	Field LoadingBarGui:TGuiProgressBar
	Field LoadingImage:TResourceImage
	
	Function LoadingBarInit()'draw first loading screen
		SetClsColor 0,155,208
		Cls
		Flip 0
	End Function
	
	Method LoadingBar(StateValues% = 1)'work with loading screen

		'if loading bar isnt ever created - please create them
		If LoadingBarGui = Null Then
			LoadingBarGui = TGuiProgressBar.Create(GraphicsWidth() / 2 - 100,GraphicsHeight() / 2 + 32,200,20)
		End If
		
		If LoadingImage = Null Then
			LoadingImage = GetResImage("Menu_PleaseWaitLoading")
		End If
		
		'add states
		LoadingCurrentState:+StateValues
		
		'check if max states < current states .. them recalculate max states
		If LoadingCurrentState > LoadingMaxState Then
			LoadingMaxState = LoadingCurrentState
		End If
		
		'setup progress bar values
		LoadingBarGui.SetValue(LoadingCurrentState,LoadingMaxState)
		
		'update gui module
		Gui.Update()
		
		'draw loading screen
		SetClsColor 0,155,208
		Cls
		DrawImage LoadingImage.Image(),GraphicsWidth() / 2,GraphicsHeight() / 2
		Gui.Draw()
		Flip
		
		'If KeyHit(key_f6) Game.ScreenShot()
	End Method
	Method LoadingBarClose() 'close loading bar
		'free loading bar
		LoadingBarGui.Free()
		LoadingImage = Null
		
		'if we need to calculate this shit - get fuck out message
		If LoadingCountStates = 1 Then
			RuntimeError "LoadingBar Maximum up to "+LoadingMaxState+" !!!"
		End If
		
		'clear screen
		Cls
		Flip 0
	End Method