Formatting

src/houses/KM_Houses.pas

@@ -1184,7 +1184,7 @@ procedure TKMHouse.IncBuildingProgress;
   Inc(fBuildingProgress, 5); //is how many effort was put into building nevermind applied damage
   Dec(fBuildReserve, 5); //This is reserve we build from
 
-  if (fBuildState=hbsWood)
+  if (fBuildState = hbsWood)
     and (fBuildingProgress = gResHouses[fType].WoodCost*50) then
     fBuildState := hbsStone;
 
@@ -1562,7 +1562,7 @@ function TKMHouse.PickOrder: Byte;
 
 
 // Check if house has enough resource supply to be built depending on it's state
-function TKMHouse.CheckResToBuild:boolean;
+function TKMHouse.CheckResToBuild: Boolean;
 begin
   case fBuildState of
     hbsWood:   Result := (fBuildSupplyWood > 0) or (fBuildReserve > 0);

src/scripting/KM_ScriptingActions.pas

@@ -2441,8 +2441,8 @@ procedure TKMScriptActions.HouseAddBuildingProgress(aHouseID: Integer);
     begin
       H := fIDCache.GetHouse(aHouseID);
       if H <> nil then
-        if (not H.IsComplete)
-        and (H.CheckResToBuild) then
+        if not H.IsComplete
+          and H.CheckResToBuild then
         begin
           H.IncBuildingProgress;
           if H.IsStone

src/units/tasks/KM_UnitTaskBuild.pas

@@ -811,14 +811,14 @@ destructor TKMTaskBuildHouse.Destroy;
 end;
 
 
-{ If we are walking to the house but the house is destroyed/canceled we should abandon immediately
-  If house has not enough resource to be built, consider building task is done and look for a new
-  task that has enough resouces. Once this house has building resources delivered it will be
-  available from build queue again
-  If house is already built by other workers}
+// If we are walking to the house but the house is destroyed/canceled we should abandon immediately
+// If house has not enough resource to be built, consider building task is done and look for a new
+// task that has enough resouces. Once this house has building resources delivered it will be
+// available from build queue again
+// If house is already built by other workers
 function TKMTaskBuildHouse.WalkShouldAbandon: Boolean;
 begin
-  Result := fHouse.IsDestroyed or (not fHouse.CheckResToBuild) or fHouse.IsComplete;
+  Result := fHouse.IsDestroyed or not fHouse.CheckResToBuild or fHouse.IsComplete;
 end;