Some obvious (on first look) fixes and additions

editor_gl.pas

@@ -864,8 +864,8 @@ procedure TLocalState.DoRenderSprite(constref ASprite: TGLSprite; x, y, w, h: In
   vertex_data: packed array[1..12] of GLfloat;
 begin
   vertex_data[1] := x;   vertex_data[2] := y;
-  vertex_data[3] := x+w; vertex_data[4] := y;
-  vertex_data[5] := x+w; vertex_data[6] := y+h;
+  vertex_data[3] := x+w; vertex_data[4] := y+ifthen(mir<>3, 0, h);
+  vertex_data[5] := x+w; vertex_data[6] := y+ifthen(mir=3, 0, h);
 
   vertex_data[7] := x;   vertex_data[8] := y;
   vertex_data[9] := x+w; vertex_data[10] := y+h;

editor_str_consts.pas

@@ -17,7 +17,7 @@ interface
 
   rsRoadTypeNone = 'Delete';
   rsRoadTypeDirt = 'Dirt';
-  rsRoadTypeGrazvel= 'Grazvel';
+  rsRoadTypeGravel= 'Gravel';
   rsRoadTypeCobblestone = 'Cobblestone';
 
   rsRiverTypeNone = 'Delete';

editor_types.pas

@@ -35,7 +35,7 @@ interface
   TTerrainType  = (dirt=0, sand, grass, snow, swamp, rough, subterra, lava, water, rock{,border=$FF});
   TTerrainTypes = set of TTerrainType;
   TRiverType = (noRiver=0, clearRiver=1, icyRiver=2, muddyRiver=3, lavaRiver=4);
-  TRoadType = (noRoad = 0, dirtRoad=1, grazvelRoad=2, cobblestoneRoad=3);
+  TRoadType = (noRoad = 0, dirtRoad=1, gravelRoad=2, cobblestoneRoad=3);
   TPlayer = (red=0, blue, tan, green, orange, purple, teal, pink, none = 255);
 
   TAITactics = (NONE=-1,RANDOM = 0,WARRIOR,BUILDER,EXPLORER);

main.lfm

@@ -1356,6 +1356,7 @@ object fMain: TfMain
         Width = 200
         Anchors = [akTop, akLeft, akRight, akBottom]
         OnMouseDown = MinimapMouseDown
+        OnMouseMove = MinimapMouseMove
         OnPaint = MinimapPaint
       end
     end

main.pas

@@ -245,6 +245,8 @@   TfMain = class(TForm)
     procedure MapViewPaint(Sender: TObject);
     procedure MinimapMouseDown(Sender: TObject; Button: TMouseButton;
       Shift: TShiftState; X, Y: Integer);
+    procedure MinimapMouseMove(Sender: TObject; Shift: TShiftState; X,
+      Y: Integer);
     procedure ObjectsSearchButtonClick(Sender: TObject);
     procedure ObjectsSearchChange(Sender: TObject);
     procedure ObjectsSearchEditingDone(Sender: TObject);
@@ -360,6 +362,7 @@   TfMain = class(TForm)
     procedure SetZoomIndex(AIndex: Integer);
     procedure SetTileSize(ASize: Integer);
 
+    procedure MapScrollByMinimap(x,y: integer);
     procedure SetMapPosition(APosition:TPoint);
     procedure SetMapViewMouse(x,y: integer);
 
@@ -896,7 +899,7 @@ procedure TfMain.FormCreate(Sender: TObject);
   ObjectsView.SharedControl := RootManager.SharedContext;
 
   RoadType.Items.AddObject(rsRoadTypeDirt, TObject(PtrInt(TRoadType.dirtRoad)));
-  RoadType.Items.AddObject(rsRoadTypeGrazvel, TObject(PtrInt(TRoadType.grazvelRoad)));
+  RoadType.Items.AddObject(rsRoadTypeGravel, TObject(PtrInt(TRoadType.gravelRoad)));
   RoadType.Items.AddObject(rsRoadTypeCobblestone, TObject(PtrInt(TRoadType.cobblestoneRoad)));
   RoadType.Items.AddObject(rsRoadTypeNone, TObject(PtrInt(TRoadType.noRoad)));
 
@@ -1618,11 +1621,30 @@ procedure TfMain.MapViewPaint(Sender: TObject);
   FMapViewState.FinishFrame;
 end;
 
-procedure TfMain.MinimapMouseDown(Sender: TObject; Button: TMouseButton;
-  Shift: TShiftState; X, Y: Integer);
+procedure TfMain.MapScrollByMinimap(x,y: integer);
 var
   cx,cy: Double;
   pos: TPoint;
+begin
+  //set map view center position to mouse pos
+
+  cx := x / (Minimap.Width);
+  cy := y / (Minimap.Height);
+
+  pos.x := round(cx * FMap.CurrentLevel.Width);
+  pos.y := round(cy * FMap.CurrentLevel.Height);
+
+  pos.x := pos.x- (FViewTilesH div 2);
+  pos.y := pos.y- (FViewTilesV div 2);
+
+  pos.x := Max(pos.x, 0);
+  pos.y := Max(pos.y, 0);
+
+  SetMapPosition(pos);
+end;
+
+procedure TfMain.MinimapMouseDown(Sender: TObject; Button: TMouseButton;
+  Shift: TShiftState; X, Y: Integer);
 begin
   if not Assigned(FMap) then
   begin
@@ -1631,21 +1653,16 @@ procedure TfMain.MinimapMouseDown(Sender: TObject; Button: TMouseButton;
 
   if (Button = TMouseButton.mbLeft) and ([ssShift,ssCtrl,ssAlt] * Shift = []) then
   begin
-    //set map view center position to mouse pos
-
-    cx := X / (Minimap.Width);
-    cy := Y / (Minimap.Height);
-
-    pos.x := round(cx * FMap.CurrentLevel.Width);
-    pos.y := round(cy * FMap.CurrentLevel.Height);
-
-    pos.x := pos.x- (FViewTilesH div 2);
-    pos.y := pos.y- (FViewTilesV div 2);
-
-    pos.x := Max(pos.x, 0);
-    pos.y := Max(pos.y, 0);
+    MapScrollByMinimap(X,Y);
+  end;
+end;
 
-    SetMapPosition(pos);
+procedure TfMain.MinimapMouseMove(Sender: TObject; Shift: TShiftState; X,
+  Y: Integer);
+begin
+  if ssLeft in Shift then
+  begin
+    MapScrollByMinimap(X,Y);
   end;
 end;