Changeset 63 for trunk

Timestamp:

Jan 5, 2023, 11:03:33 PM (2 years ago)

Author:

chronos

Message:

• Added: Snap package definition.

Location:

trunk

Files:

• Forms/UFormMain.lfm (modified) (4 diffs)
• Forms/UFormMain.pas (modified) (4 diffs)
• Images/Screenshots (added)
• Images/Screenshots/Gameplay.png (added)
• Install/common (added)
• Install/common/Tunneler.desktop (added)
• Install/deb/Tunneler.desktop (deleted)
• Install/deb/debian/control (modified) (1 diff)
• Install/deb/debian/rules (modified) (1 diff)
• Install/snap (added)
• Install/snap/local (added)
• Install/snap/local/build.sh (added)
• Install/snap/snapcraft.yaml (added)
• Packages/Common/UGeometric.pas (modified) (5 diffs)
• Packages/Common/UPersistentForm.pas (modified) (11 diffs)
• tunneler.lpi (modified) (1 diff)

trunk/Forms/UFormMain.lfm

@@ -82 +82 @@
         Action = AFullScreen
       end
+      object MenuItem8: TMenuItem
+        Action = AShowRawImageDesc
+      end
     end
     object MenuItem7: TMenuItem
@@ -112 +115 @@
       OnExecute = ANewGameExecute
       ShortCut = 16462
+      Visible = False
     end
     object AShowMap: TAction
@@ -117 +121 @@
       OnExecute = AShowMapExecute
       ShortCut = 123
+      Visible = False
     end
     object AAbout: TAction
@@ -125 +130 @@
       Caption = 'Show RawImage Description'
       OnExecute = AShowRawImageDescExecute
+      Visible = False
     end
   end

trunk/Forms/UFormMain.pas

@@ -31 +31 @@
     MenuItem6: TMenuItem;
     MenuItem7: TMenuItem;
+    MenuItem8: TMenuItem;
     MenuItem9: TMenuItem;
     StatusBar1: TStatusBar;
@@ -137 +138 @@
   {$IFDEF DEBUG}
   StatusBar1.Visible := not FullScreenEnabled;
+  AShowMap.Visible := True;
+  ANewGame.Visible := True;
+  AShowRawImageDesc.Visible := True;
   {$ENDIF}
 end;
@@ -148 +152 @@
 begin
   XMLConfig1.Filename := GetAppConfigDir(False) + 'Config.xml';
+  FullScreenEnabled := True;
 
   PersistentForm := TPersistentForm.Create(nil);
@@ -244 +249 @@
   PersistentForm.Load(Self, False, True);
   FullScreenEnabled := PersistentForm.FormFullScreen;
-  UpdateInterface
+  PersistentForm.SetFullScreen(FullScreenEnabled);
+  UpdateInterface;
 end;
 

trunk/Install/deb/debian/control

@@ -9 +9 @@
 Architecture: any
 Depends: ${shlibs:Depends}, ${misc:Depends},
-Description: Real-time digging tank battle game
+Description: A real-time digging and shooting multi-player tank battle game
 HomePage: https://app.zdechov.net/Tunneler

trunk/Install/deb/debian/rules

@@ -17 +17 @@
         install -s -m 755 Tunneler $(ROOT)/usr/bin
         install -d -m 755 $(ROOT)/usr/share/applications
-        install -m 755 Install/deb/Tunneler.desktop $(ROOT)/usr/share/applications
+        install -m 755 Install/common/Tunneler.desktop $(ROOT)/usr/share/applications
         install -d -m 755 $(ROOT)/usr/share/pixmaps
         install -m 644 Images/64x64/Tunneler.png $(ROOT)/usr/share/pixmaps
-        install -d -m 755 $(ROOT)/usr/share/Tunneler/languages
-        install -D -m 755 Languages/* $(ROOT)/usr/share/Tunneler/languages
+        install -d -m 755 $(ROOT)/usr/share/Tunneler/Languages
+        install -D -m 755 Languages/*.pot $(ROOT)/usr/share/Tunneler/Languages
+        install -D -m 755 Languages/*.po $(ROOT)/usr/share/Tunneler/Languages
         
 %:

trunk/Packages/Common/UGeometric.pas

@@ -9 +9 @@
   TPointArray = array of TPoint;
 
+  { TVector }
+
+  TVector = record
+    Position: TPoint;
+    Direction: TPoint;
+    function GetLength: Integer;
+    function GetAngle: Double;
+  end;
+
 function Distance(P1, P2: TPoint): Integer;
 function Dot(const P1, P2: TPoint): Double;
 function AddPoint(const P1, P2: TPoint): TPoint;
 function SubPoint(const P1, P2: TPoint): TPoint;
-function PointToLineDistance(const P, V, W: TPoint): Integer;
+function PointToLineDistance(const P, V, W: TPoint; out Intersect: TPoint): Integer;
 function ComparePoint(P1, P2: TPoint): Boolean;
 function RotatePoint(Center, P: TPoint; Angle: Double): TPoint;
@@ -50 +59 @@
 end;
 
-function PointToLineDistance(const P, V, W: TPoint): Integer;
+function PointToLineDistance(const P, V, W: TPoint; out Intersect: TPoint): Integer;
 var
   l2, t: Double;
@@ -68 +77 @@
   if T < 0 then begin
     Result := Distance(P, V);       // Beyond the 'v' end of the segment
-    exit;
+    Intersect := V;
+    Exit;
   end
   else if T > 1 then begin
     Result := Distance(P, W);  // Beyond the 'w' end of the segment
+    Intersect := W;
     Exit;
   end;
@@ -77 +88 @@
   TT.Y := Trunc(V.Y + T * (W.Y - V.Y));
   Result := Distance(P, TT);
+  Intersect := TT;
 end;
 
@@ -162 +174 @@
 end;
 
+{ TVector }
+
+function TVector.GetLength: Integer;
+begin
+  Result := Trunc(Sqrt(Sqr(Direction.X) + Sqr(Direction.Y)));
+end;
+
+function TVector.GetAngle: Double;
+begin
+  Result := ArcTan2(Direction.Y, Direction.X);
+end;
 
 end.

trunk/Packages/Common/UPersistentForm.pas

@@ -1 +1 @@
 unit UPersistentForm;
-
-// Date: 2020-11-26
 
 interface
@@ -21 +19 @@
     procedure SaveControl(Control: TControl);
   public
-    FormNormalSize: TRect;
     FormRestoredSize: TRect;
     FormWindowState: TWindowState;
@@ -155 +152 @@
     RootKey := RegistryContext.RootKey;
     OpenKey(RegistryContext.Key + '\Forms\' + Form.Name, True);
-    // Normal size
-    FormNormalSize.Left := ReadIntegerWithDefault('NormalLeft', FormNormalSize.Left);
-    FormNormalSize.Top := ReadIntegerWithDefault('NormalTop', FormNormalSize.Top);
-    FormNormalSize.Right := ReadIntegerWithDefault('NormalWidth', FormNormalSize.Right - FormNormalSize.Left)
-      + FormNormalSize.Left;
-    FormNormalSize.Bottom := ReadIntegerWithDefault('NormalHeight', FormNormalSize.Bottom - FormNormalSize.Top)
-      + FormNormalSize.Top;
+
     // Restored size
     FormRestoredSize.Left := ReadIntegerWithDefault('RestoredLeft', FormRestoredSize.Left);
@@ -169 +160 @@
     FormRestoredSize.Bottom := ReadIntegerWithDefault('RestoredHeight', FormRestoredSize.Bottom - FormRestoredSize.Top)
       + FormRestoredSize.Top;
+
     // Other state
     FormWindowState := TWindowState(ReadIntegerWithDefault('WindowState', Integer(FormWindowState)));
@@ -183 +175 @@
     RootKey := RegistryContext.RootKey;
     OpenKey(RegistryContext.Key + '\Forms\' + Form.Name, True);
-    // Normal state
-    WriteInteger('NormalWidth', FormNormalSize.Right - FormNormalSize.Left);
-    WriteInteger('NormalHeight', FormNormalSize.Bottom - FormNormalSize.Top);
-    WriteInteger('NormalTop', FormNormalSize.Top);
-    WriteInteger('NormalLeft', FormNormalSize.Left);
-    // Restored state
+
+    // Restored size
     WriteInteger('RestoredWidth', FormRestoredSize.Right - FormRestoredSize.Left);
     WriteInteger('RestoredHeight', FormRestoredSize.Bottom - FormRestoredSize.Top);
     WriteInteger('RestoredTop', FormRestoredSize.Top);
     WriteInteger('RestoredLeft', FormRestoredSize.Left);
+
     // Other state
     WriteInteger('WindowState', Integer(FormWindowState));
@@ -257 +246 @@
 begin
   Self.Form := Form;
+
   // Set default
-  FormNormalSize := Bounds((Screen.Width - Form.Width) div 2,
-    (Screen.Height - Form.Height) div 2, Form.Width, Form.Height);
   FormRestoredSize := Bounds((Screen.Width - Form.Width) div 2,
     (Screen.Height - Form.Height) div 2, Form.Width, Form.Height);
@@ -267 +255 @@
   LoadFromRegistry(RegistryContext);
 
-  if not EqualRect(FormNormalSize, FormRestoredSize) or
-    DefaultMaximized then begin
+  if (FormWindowState = wsMaximized) or DefaultMaximized then begin
     // Restore to maximized state
     Form.WindowState := wsNormal;
@@ -277 +264 @@
     // Restore to normal state
     Form.WindowState := wsNormal;
-    if FEntireVisible then FormNormalSize := CheckEntireVisible(FormNormalSize)
+    if FEntireVisible then FormRestoredSize := CheckEntireVisible(FormRestoredSize)
       else if FMinVisiblePart > 0 then
-    FormNormalSize := CheckPartVisible(FormNormalSize, FMinVisiblePart);
-    if not EqualRect(FormNormalSize, Form.BoundsRect) then
-      Form.BoundsRect := FormNormalSize;
+        FormRestoredSize := CheckPartVisible(FormRestoredSize, FMinVisiblePart);
+    if not EqualRect(FormRestoredSize, Form.BoundsRect) then
+      Form.BoundsRect := FormRestoredSize;
   end;
   if FormFullScreen then SetFullScreen(True);
@@ -290 +277 @@
 begin
   Self.Form := Form;
-  FormNormalSize := Bounds(Form.Left, Form.Top, Form.Width, Form.Height);
-  if not FormFullScreen then
-    FormRestoredSize := Bounds(Form.RestoredLeft, Form.RestoredTop, Form.RestoredWidth,
-      Form.RestoredHeight);
-  FormWindowState := Form.WindowState;
+  if not FormFullScreen then begin
+    FormWindowState := Form.WindowState;
+    if FormWindowState = wsMaximized then begin
+      FormRestoredSize := Bounds(Form.RestoredLeft, Form.RestoredTop, Form.RestoredWidth,
+        Form.RestoredHeight);
+    end else
+    if FormWindowState = wsNormal then begin
+      FormRestoredSize := Bounds(Form.Left, Form.Top, Form.Width, Form.Height);
+    end;
+  end;
   SaveToRegistry(RegistryContext);
   SaveControl(Form);
@@ -312 +304 @@
   if State then begin
     FormFullScreen := True;
-    FormNormalSize := Form.BoundsRect;
-    FormRestoredSize := Bounds(Form.RestoredLeft, Form.RestoredTop, Form.RestoredWidth,
-      Form.RestoredHeight);
+    if Form.WindowState = wsMaximized then begin
+      FormRestoredSize := Bounds(Form.RestoredLeft, Form.RestoredTop, Form.RestoredWidth,
+        Form.RestoredHeight);
+    end else
+    if Form.WindowState = wsNormal then begin
+      FormRestoredSize := Bounds(Form.Left, Form.Top, Form.Width, Form.Height);
+    end;
     FormWindowState := Form.WindowState;
+    Form.WindowState := wsMaximized;
+    Form.WindowState := wsNormal;
     ShowWindow(Form.Handle, SW_SHOWFULLSCREEN);
     {$IFDEF WINDOWS}
@@ -327 +325 @@
     ShowWindow(Form.Handle, SW_SHOWNORMAL);
     if FormWindowState = wsNormal then begin
-      Form.BoundsRect := FormNormalSize;
+      Form.WindowState := wsNormal;
+      Form.BoundsRect := FormRestoredSize;
     end else
     if FormWindowState = wsMaximized then begin

trunk/tunneler.lpi

@@ -50 +50 @@
             <Debugging>
               <GenerateDebugInfo Value="False"/>
+              <DebugInfoType Value="dsDwarf2Set"/>
               <UseLineInfoUnit Value="False"/>
             </Debugging>