Files
LoopzRemix/GUI.pbi
2025-07-17 20:36:20 +02:00

79 lines
2.6 KiB
Plaintext
Raw Blame History

This file contains ambiguous Unicode characters

This file contains Unicode characters that might be confused with other characters. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

;- 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