Changeset 62 for trunk/UEngine.pas

Timestamp:

Jan 5, 2023, 10:14:31 PM (23 months ago)

Author:

chronos

Message:

• Modified: Hide main menu in full screen mode.
• Modified: Use colors as player names.
• Modified: Use black background around player frames.

File:

• trunk/UEngine.pas (modified) (12 diffs)

trunk/UEngine.pas

@@ -276 +276 @@
   SShotsFired = 'Shot fired';
   SWinnerIs = 'The winner is';
+  SGreen = 'Green';
+  SBlue = 'Blue';
+  SRed = 'Red';
+  SPink = 'Pink';
+  SCyan = 'Cyan';
+  SYellow = 'Yellow';
+  SOrange = 'Orange';
+  SGray = 'Gray';
 
 { TTanks }
@@ -1209 +1217 @@
         Text := Name + ': ' + IntToStr(Score);
         TextOut((Bitmap.Width - TextWidth(Text)) div 2, Bitmap.Height div 5 * 2 + Y, Text);
-        Inc(Y, 50);
+        Inc(Y, 60);
       end;
     end;
@@ -1339 +1347 @@
   PlayerPool.Clear;
   with PlayerPool.AddNew do begin
+    Name := SGreen;
     Keys.Left := 65;
     Keys.Down := 83;
@@ -1349 +1358 @@
   end;
   with PlayerPool.AddNew do begin
+    Name := SBlue;
     Keys.Left := 37;
     Keys.Down := 40;
@@ -1359 +1369 @@
   end;
   with PlayerPool.AddNew do begin
+    Name := SRed;
     Keys.Left := 76;
     Keys.Down := 147;
@@ -1368 +1379 @@
   end;
   with PlayerPool.AddNew do begin
+    Name := SPink;
     Keys.Left := 100;
     Keys.Down := 98;
@@ -1377 +1389 @@
   end;
   with PlayerPool.AddNew do begin
+    Name := SCyan;
     Keys.Left := 0;
     Keys.Down := 0;
@@ -1386 +1399 @@
   end;
   with PlayerPool.AddNew do begin
+    Name := SYellow;
     Keys.Left := 0;
     Keys.Down := 0;
@@ -1395 +1409 @@
   end;
   with PlayerPool.AddNew do begin
+    Name := SOrange;
     Keys.Left := 0;
     Keys.Down := 0;
@@ -1404 +1419 @@
   end;
   with PlayerPool.AddNew do begin
+    Name := SGray;
     Keys.Left := 0;
     Keys.Down := 0;
@@ -1417 +1433 @@
     Id := I;
     InitTanks;
-    Name := SPlayer + ' ' + IntToStr(I + 1);
     if I < 2 then Enabled := True;
   end;
@@ -1559 +1574 @@
     FBitmapLower.Count := OldCount;
 
-    if FClearBackground then FBitmapLower.FillAll(clNavy);
+    if FClearBackground then FBitmapLower.FillAll(World.Matters[Integer(miBorder)].Color);
     for I := 0 to Players.Count - 1 do
     if Players[I].Enabled then begin