;- Init Game param Structure

#MaxTableWidth=17
#MaxTableHeight=6

Structure GUIParam
  FullScreen.l                ; #True = Fullscreen / #False = WindowScreen (not .b use .l to be compatible with Option menu)
  ScreenResolutionWidth.l     ; Width Resolution in FullScreen
  ScreenResolutionHeight.l    ; Height Resolution in FullScreen
  ScreenResolutionDepth.l
  List ScreenResolution.s()
  ScreenResolutionIndex.l
  
  WindowResolutionWidth.l     ; Width Résolution in WindowScreen
  WindowResolutionHeight.l    ; Height Résolution in WindowScreen
  List WindowResolution.s()
  WindowResolutionIndex.l  
  WindowX.l
  WindowY.l
                              
  FPS.l                       ;FPS
  fpsValue.l                  ;Current FPS Value
  
                              ;Unit to Display GUI
  BlockSize.l                 ; 1 Unit
  HalfBlockSize.l             ; 1/2 Unit
  DoubleBlockSize.l           ; 2 Unit
  QuarterBlockSize.l          ; 1/4 Unit
  ScreenWidth.f
  ScreenHeight.f
  
  JewelRed_X.f
  JewelBlue_X.f
  
                              ;Bench Position Init in IniScreen()
  BenchX.l
  BenchY.l
  BenchWidth.l
  BenchHeight.l
  ;Timer Position Init in IniScreen()
  TimerX.l
  TimerY.l
  TimerWidth.l
EndStructure

Global GUI.GUIParam
GUI\FullScreen=#True

;Get All Screen Resolution
If ExamineScreenModes()
  ClearList(GUI\ScreenResolution())
  AddElement(GUI\ScreenResolution())
  GUI\ScreenResolution()="Auto"
  While NextScreenMode()
    If ScreenModeRefreshRate()>=60
    AddElement(GUI\ScreenResolution())
    GUI\ScreenResolution()=Str(ScreenModeWidth())+"x"+Str(ScreenModeHeight())+"x"+Str(ScreenModeDepth())+"@"+Str(ScreenModeRefreshRate())+"Hz"
    EndIf 
  Wend
EndIf 

;Get Window Resolution
ClearList(GUI\WindowResolution())
;4/3
AddElement(GUI\WindowResolution()):GUI\WindowResolution()="640x480"
AddElement(GUI\WindowResolution()):GUI\WindowResolution()="800x600";, 960×720, 1024×768, 1280×960, 1400×1050, 1440×1080 , 1600×1200, 1856×1392, 1920×1440, And 2048×1536
;16/9
AddElement(GUI\WindowResolution()):GUI\WindowResolution()="1024x576"
AddElement(GUI\WindowResolution()):GUI\WindowResolution()="1152x648"
AddElement(GUI\WindowResolution()):GUI\WindowResolution()="1280x720"
AddElement(GUI\WindowResolution()):GUI\WindowResolution()="1366x768"
AddElement(GUI\WindowResolution()):GUI\WindowResolution()="1600x900"
AddElement(GUI\WindowResolution()):GUI\WindowResolution()="1920x1080"
AddElement(GUI\WindowResolution()):GUI\WindowResolution()="2560x1440"
AddElement(GUI\WindowResolution()):GUI\WindowResolution()="3840x2160"
; IDE Options = PureBasic 6.00 LTS (Windows - x64)
; CursorPosition = 48
; FirstLine = 2
; EnableXP