ADD: start with feature "show waypoint preview"

Author: PascalCorpsman

client/uctd.pas

@@ -208,6 +208,7 @@
     fLoadMapButton: TOpenGl_Button;
     fLoadGameButton: TOpenGl_Button;
     fLoadMapGameBackTex: TGraphikItem;
+    fWaypointDirectionTexs: TGraphikItem;
 
     fSideMenuVisible: Boolean; // True, dann ist das Seitenmenü (unten oder Rechts) sichtbar
     fMenuPosition: TMenuPosition;
@@ -3356,6 +3357,12 @@
   fmap.ResetAllUpdateBuildings;
   fmap.CreateDamageClassTextures;
   fmap.EditTerrain := false;
+  If GetValue('Global', 'ShowOppoentsPathOnWaveStart', '1') = '1' Then Begin
+    fmap.CreateWavePreviewPath(PlayerIndex);
+  End
+  Else Begin
+    setlength(fmap.WaypointPreviewDirections, 0);
+  End;
   For i := 0 To high(fPlayerInfos) Do Begin
     fPlayerInfos[i].KillsOnWaveStart := fPlayerInfos[i].Kills + fPlayerInfos[i].BonusFinisher;
     fPlayerInfos[i].LivesOnWaveStart := fPlayerInfos[i].Lives;
@@ -3826,6 +3833,8 @@
   BuildingStrategyButtons[7].Strategy := bsWeakest; // Das macht doch gar keinen Sinn ?
   BuildingStrategyButtons[7].Name := 'Prefer air/land creeps [F8]';
 
+  fWaypointDirectionTexs := OpenGL_GraphikEngine.LoadAlphaGraphikItem(p + 'waydirections.png', smClamp);
+
   LogLeave;
 End;
 
@@ -3879,6 +3888,22 @@
 End;
 
 Procedure Tctd.Render(w, h: integer);
+
+  Function WaypointDirectionsToIndex(Const directions: TWaypointPreviewDirections): integer;
+  Begin
+    result := 0;
+    // Die Hauptrichtungen
+    If wpdLeftToRight In directions Then result := 0;
+    If wpdRightToLeft In directions Then result := 2;
+    If wpdTopToBottom In directions Then result := 3;
+    If wpdBottomToTop In directions Then result := 1;
+    // Nun Kommen die Diagonalen
+    If (wpdLeftToRight In directions) And (wpdTopToBottom In directions) Then result := 7;
+    If (wpdLeftToRight In directions) And (wpdBottomToTop In directions) Then result := 4;
+    If (wpdRightToLeft In directions) And (wpdTopToBottom In directions) Then result := 6;
+    If (wpdRightToLeft In directions) And (wpdBottomToTop In directions) Then result := 5;
+  End;
+
 Var
   x, y, i, j: integer;
   f: single;
@@ -3928,26 +3953,14 @@
     gs_Gaming: Begin
         If form4.Visible Then form4.Close;
         fmap.ShowWaypoints := false;
-        If DarkOtherBuildings Then Begin
-          fmap.Render(fsx, fsy, fMapL, fMapT, ShowGrid, ShowLifepoints, fPlayerIndex); // -- Muss als erstes gemacht werden, da es "ungenaue" Ränder hat.
-        End
-        Else Begin
-          fmap.Render(fsx, fsy, fMapL, fMapT, ShowGrid, ShowLifepoints, -1); // -- Muss als erstes gemacht werden, da es "ungenaue" Ränder hat.
-        End;
+        fmap.Render(fsx, fsy, fMapL, fMapT, ShowGrid, ShowLifepoints, IfThen(DarkOtherBuildings, fPlayerIndex, -1)); // -- Muss als erstes gemacht werden, da es "ungenaue" Ränder hat.
         fSplashMarks.Render(fsx, fsy, fMapL, fMapT);
         RenderSelected(fsx, fsy, fMapL, fMapT);
         RenderBlackOutMapBorder;
         RenderBuyMenu();
         RenderMenuTabButton();
-
-        If DarkOtherBuildings Then Begin
-          fMap.RenderPreview(fPreviewL + 1, fPreviewT + 1, fPreviewW - 2, fPreviewH - 2, fsx, fsy, fMapW, fMapH - fMapT, fPlayerIndex);
-        End
-        Else Begin
-          fMap.RenderPreview(fPreviewL + 1, fPreviewT + 1, fPreviewW - 2, fPreviewH - 2, fsx, fsy, fMapW, fMapH - fMapT, -1);
-        End;
+        fMap.RenderPreview(fPreviewL + 1, fPreviewT + 1, fPreviewW - 2, fPreviewH - 2, fsx, fsy, fMapW, fMapH - fMapT, IfThen(DarkOtherBuildings, fPlayerIndex, -1));
         fSplashMarks.RenderPreview(fPreviewL + 1, fPreviewT + 1, fPreviewW - 2, fPreviewH - 2, fmap.Width, fmap.Height);
-
         // Rendern des SideMenü
         If assigned(FSideMenuObject) Then Begin
           RenderSideMenu;
@@ -3956,6 +3969,20 @@
           OpenGL_ASCII_Font.Color := clWhite;
           CenterTextOut(w, h, 'The game has been paused.');
         End;
+        // Anzeigen des Weg Previews
+        For i := 0 To high(fMap.WaypointPreviewDirections) Do Begin
+          If i Mod 2 = 1 Then Begin // Nur jeden 2. Rendern, sieht gleich viel besser aus ;)
+            glPushMatrix;
+            x := fMap.WaypointPreviewDirections[i].Location.x;
+            y := fMap.WaypointPreviewDirections[i].Location.y;
+            glTranslatef(x * MapBlockSize - fsx + fMapL, y * MapBlockSize - fsy + fMapT, ctd_Buy_Preview_Layer);
+            glTranslatef(0, 0, ctd_EPSILON);
+            glScalef(MapBlockSize / 10, MapBlockSize / 10, 1);
+            glColor4f(1, 1, 1, 1);
+            RenderAlphaTiledQuad(0, 0, WaypointDirectionsToIndex(fMap.WaypointPreviewDirections[i].Directions), 8, 1, fWaypointDirectionTexs);
+            glPopMatrix;
+          End;
+        End;
         // Anzeigen des zu kaufenden Objekts
         If assigned(FBuyingObject) Then Begin
           x := (fsx + fCursorPos.x - fMapL) Div MapBlockSize;

client/unit1.pas

@@ -1452,6 +1452,7 @@
   form5.CheckBox11.Checked := GetValue('Global', 'ShowWaveOppHint', '1') = '1';
   form5.CheckBox12.Checked := GetValue('Global', 'ShowHeroRanges', '1') = '1';
   form5.CheckBox13.Checked := GetValue('Global', 'DarkMode', '1') = '1';
+  form5.CheckBox14.Checked := GetValue('Global', 'ShowOppoentsPathOnWaveStart', '1') = '1';
 
   form5.Edit1.text := GetValue('Global', 'MapBlockSize', inttostr(MapBlockSize));
   form5.Edit2.text := GetValue('Global', 'AutoNextWaveDelay', '10');

client/unit5.lfm

@@ -1,28 +1,28 @@
 object Form5: TForm5
   Left = 347
-  Height = 494
+  Height = 518
   Top = 111
   Width = 524
   Caption = 'Form5'
-  ClientHeight = 494
+  ClientHeight = 518
   ClientWidth = 524
   Position = poScreenCenter
-  LCLVersion = '3.99.0.0'
+  LCLVersion = '4.99.0.0'
   OnCloseQuery = FormCloseQuery
   OnCreate = FormCreate
   OnShow = FormShow
   object CheckBox1: TCheckBox
     Left = 8
     Height = 22
     Top = 8
-    Width = 157
+    Width = 155
     Caption = 'Invert mouse scrolling'
     TabOrder = 0
   end
   object Button1: TButton
     Left = 8
     Height = 25
-    Top = 457
+    Top = 481
     Width = 227
     Caption = 'OK'
     TabOrder = 1
@@ -31,7 +31,7 @@ object Form5: TForm5
   object Button2: TButton
     Left = 286
     Height = 25
-    Top = 457
+    Top = 481
     Width = 227
     Caption = 'Cancel'
     TabOrder = 2
@@ -41,7 +41,7 @@ object Form5: TForm5
     Left = 8
     Height = 22
     Top = 56
-    Width = 178
+    Width = 177
     Caption = 'Start next wave each [sec]'
     Checked = True
     State = cbChecked
@@ -52,7 +52,7 @@ object Form5: TForm5
     Left = 8
     Height = 22
     Top = 80
-    Width = 204
+    Width = 201
     Caption = 'Always show creeps lifepoints'
     TabOrder = 4
   end
@@ -100,28 +100,28 @@ object Form5: TForm5
       Left = 8
       Height = 16
       Top = 80
-      Width = 56
+      Width = 54
       Caption = 'Walkable'
     end
     object Label3: TLabel
       Left = 8
       Height = 16
       Top = 113
-      Width = 58
+      Width = 55
       Caption = 'Buildable'
     end
     object Label4: TLabel
       Left = 8
       Height = 16
       Top = 148
-      Width = 30
+      Width = 29
       Caption = 'Both'
     end
     object CheckBox7: TCheckBox
       Left = 8
       Height = 22
       Top = 8
-      Width = 182
+      Width = 181
       Caption = 'disable background image'
       TabOrder = 3
     end
@@ -178,51 +178,51 @@ object Form5: TForm5
       Left = 8
       Height = 16
       Top = 52
-      Width = 55
+      Width = 56
       Caption = 'Damages'
     end
     object Label7: TLabel
       Left = 8
       Height = 16
       Top = 84
-      Width = 44
+      Width = 43
       Caption = 'Broken'
     end
   end
   object CheckBox4: TCheckBox
     Left = 8
     Height = 22
     Top = 104
-    Width = 213
+    Width = 212
     Caption = 'Show building range on hinting'
     TabOrder = 7
   end
   object Label9: TLabel
     Left = 8
     Height = 16
-    Top = 368
-    Width = 59
+    Top = 392
+    Width = 58
     Caption = 'Grid color'
   end
   object ColorBox8: TColorBox
     Left = 143
     Height = 26
-    Top = 358
+    Top = 382
     Width = 100
     ItemHeight = 16
     TabOrder = 8
   end
   object Label10: TLabel
     Left = 8
     Height = 16
-    Top = 394
-    Width = 123
+    Top = 418
+    Width = 120
     Caption = 'Building range color'
   end
   object ColorBox9: TColorBox
     Left = 143
     Height = 26
-    Top = 384
+    Top = 408
     Width = 100
     ItemHeight = 16
     TabOrder = 9
@@ -239,15 +239,15 @@ object Form5: TForm5
   object CheckBox6: TCheckBox
     Left = 8
     Height = 22
-    Top = 232
+    Top = 256
     Width = 79
     Caption = 'Show fps'
     TabOrder = 11
   end
   object GroupBox3: TGroupBox
     Left = 8
     Height = 72
-    Top = 284
+    Top = 308
     Width = 241
     Caption = ' Map block size '
     ClientHeight = 55
@@ -257,7 +257,7 @@ object Form5: TForm5
       Left = 8
       Height = 16
       Top = 28
-      Width = 33
+      Width = 31
       Caption = 'value'
     end
     object Edit1: TEdit
@@ -272,7 +272,7 @@ object Form5: TForm5
       Left = 8
       Height = 22
       Top = 0
-      Width = 188
+      Width = 186
       Caption = 'Change on ctrl mousescroll'
       TabOrder = 1
     end
@@ -281,7 +281,7 @@ object Form5: TForm5
     Left = 8
     Height = 22
     Top = 160
-    Width = 241
+    Width = 239
     Caption = 'Show other players buildings darker'
     Checked = True
     State = cbChecked
@@ -313,7 +313,7 @@ object Form5: TForm5
     Left = 8
     Height = 22
     Top = 184
-    Width = 254
+    Width = 252
     Caption = 'Show buildable tiles during placement'
     TabOrder = 15
   end
@@ -329,7 +329,7 @@ object Form5: TForm5
   object ScrollBar1: TScrollBar
     Left = 80
     Height = 14
-    Top = 424
+    Top = 448
     Width = 121
     Max = 30
     PageSize = 0
@@ -339,22 +339,22 @@ object Form5: TForm5
   object Label12: TLabel
     Left = 8
     Height = 16
-    Top = 422
-    Width = 58
+    Top = 446
+    Width = 57
     Caption = 'Fontscale'
   end
   object Label13: TLabel
     Left = 216
     Height = 16
-    Top = 422
-    Width = 49
+    Top = 446
+    Width = 48
     Caption = 'Label13'
   end
   object CheckBox11: TCheckBox
     Left = 8
     Height = 22
     Top = 207
-    Width = 262
+    Width = 260
     Caption = 'Show wave opponent hint on new wave'
     TabOrder = 18
   end
@@ -369,9 +369,17 @@ object Form5: TForm5
   object CheckBox13: TCheckBox
     Left = 8
     Height = 22
-    Top = 256
-    Width = 89
+    Top = 280
+    Width = 90
     Caption = 'Dark mode'
     TabOrder = 20
   end
+  object CheckBox14: TCheckBox
+    Left = 8
+    Height = 22
+    Top = 232
+    Width = 237
+    Caption = 'Show opponents path on wavestart'
+    TabOrder = 21
+  end
 end

client/unit5.pas

@@ -34,6 +34,7 @@
     CheckBox11: TCheckBox;
     CheckBox12: TCheckBox;
     CheckBox13: TCheckBox;
+    CheckBox14: TCheckBox;
     CheckBox2: TCheckBox;
     CheckBox3: TCheckBox;
     CheckBox4: TCheckBox;
@@ -191,6 +192,8 @@
   setValue('Global', 'ShowBuildableTilesDuringBuild', inttostr(ord(form5.CheckBox10.Checked)));
   SetValue('Global', 'ShowWaveOppHint', inttostr(ord(form5.CheckBox11.Checked)));
   SetValue('Global', 'ShowHeroRanges', inttostr(ord(form5.CheckBox12.Checked)));
+  // Checkbox13 wird unten ausgewertet, die ist Speziell ;)
+  SetValue('Global', 'ShowOppoentsPathOnWaveStart', inttostr(ord(form5.CheckBox14.Checked)));
 
   SetValue('Global', 'MapBlockSize', form5.Edit1.text);
   SetValue('Global', 'AutoNextWaveDelay', form5.Edit2.text);