Initial commit

2025-07-17 20:36:20 +02:00
commit 069402c4ec
37 changed files with 7849 additions and 0 deletions
--- a/GUI.pbi
+++ b/GUI.pbi
@@ -0,0 +1,79 @@
+;- 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