fix: Update farmrunnerupdate.simba

Underwater height map

Author: TwistedSlayerHelm

optional/handlers/farmrunnerupdate.simba

@@ -227,8 +227,6 @@ type
     leprechaunPt                    : TPoint;
     lepboxes                        : TBoxArray;
     invyboxes                       : TBoxArray;
-    compostArray                    : TStringArray;
-    compostItem                     : TRSItem;
   end;
 
   TIniFConfig = record
@@ -1970,10 +1968,16 @@ begin
 end;
 
 procedure TFarmRun.WithdrawCompost;
+var
+  compostArray    : TStringArray := ['Compost', 'Supercompost', 'Ultracompost', 'Bottomless compost bucket', '', ''];
+  compostItem     : TRSItem := compostArray[Self.CompostMethod];
 begin
   if not RSClient.IsLoggedIn then
     Exit;
 
+  if Inventory.ContainsItem(compostItem) then
+    Exit;
+
   if not Self.CurrentPatch.FindLeprechaun(leprechaunPt) then
     Exit;
 
@@ -2065,6 +2069,8 @@ procedure TFarmRun.CompostPatch();
 var
   slot, attempts  : Int32;
   T : TCountdown;
+  compostArray    : TStringArray := ['Compost', 'Supercompost', 'Ultracompost', 'Bottomless compost bucket', '', ''];
+  compostItem     : TRSItem := compostArray[Self.CompostMethod];
 begin
   if not RSClient.IsLoggedIn then
     Exit;
@@ -2172,6 +2178,8 @@ end;
 procedure TFarmRun.Plant();
 var
   slot, attempts, seedCount  : Int32;
+  compostArray    : TStringArray := ['Compost', 'Supercompost', 'Ultracompost', 'Bottomless compost bucket', '', ''];
+  compostItem     : TRSItem := compostArray[Self.CompostMethod];
 begin
   if not RSClient.IsLoggedIn then
     Exit;
@@ -3510,9 +3518,6 @@ begin
                 [650, 340, 730, 370],
                 [  0,   0,   0,   0]];
 
-  compostArray := ['Compost', 'Supercompost', 'Ultracompost', 'Bottomless compost bucket', ''];
-  compostItem := compostArray[Self.CompostMethod];
-
   Self.InactivityTimer.Init(6*ONE_MINUTE);
 
   if Self.StartWithRun then
@@ -3533,6 +3538,8 @@ var
   state           : EPatchState;
   failedCount     : Int32;
   AntibanMinZ, AntibanMaxZ: Int32;
+  compostArray    : TStringArray := ['Compost', 'Supercompost', 'Ultracompost', 'Bottomless compost bucket', '', ''];
+  compostItem     : TRSItem := compostArray[Self.CompostMethod];
 begin
   if not RSClient.IsLoggedIn then
     Login.LoginPlayer;