sync: restore source from Google Drive

vendor/kam_remake/src/units/tasks/KM_UnitTaskGoHome.pas

@@ -0,0 +1,68 @@
+unit KM_UnitTaskGoHome;
+{$I KaM_Remake.inc}
+interface
+uses
+  Classes, SysUtils,
+  KM_Defaults, KM_Units;
+
+
+type
+  TKMTaskGoHome = class(TKMUnitTask)
+  public
+    constructor Create(aUnit: TKMUnit);
+
+    function Execute: TKMTaskResult; override;
+    function CouldBeCancelled: Boolean; override;
+  end;
+
+
+implementation
+
+
+{ TTaskGoHome }
+constructor TKMTaskGoHome.Create(aUnit: TKMUnit);
+begin
+  inherited;
+
+  fType := uttGoHome;
+  aUnit.Thought := thHome;
+end;
+
+
+function TKMTaskGoHome.CouldBeCancelled: Boolean;
+begin
+  Result := (fPhase - 1) //phase was increased at the end of execution
+                   <= 0; //Allow cancel task only at walking phases
+end;
+
+
+function TKMTaskGoHome.Execute: TKMTaskResult;
+begin
+  Result := trTaskContinues;
+
+  if fUnit.Home.IsDestroyed then
+  begin
+    Result := trTaskDone;
+    Exit;
+  end;
+
+  with fUnit do
+  case fPhase of
+    0:  begin
+          Thought := thHome;
+          SetActionWalkToSpot(Home.PointBelowEntrance);
+        end;
+    1:  SetActionGoIn(uaWalk, gdGoInside, Home);
+    2:  begin
+          Thought := thNone; //Only stop thinking once we are right inside
+          Home.SetState(hstIdle);
+          SetActionStay(5, uaWalk);
+        end;
+    else Result := trTaskDone;
+  end;
+
+  Inc(fPhase);
+end;
+
+
+end.