diff --git a/implement/applications/eve-online/eve-online-mining-bot/BotEngineApp.elm b/implement/applications/eve-online/eve-online-mining-bot/BotEngineApp.elm index 42f20ae8..f2ed6b49 100644 --- a/implement/applications/eve-online/eve-online-mining-bot/BotEngineApp.elm +++ b/implement/applications/eve-online/eve-online-mining-bot/BotEngineApp.elm @@ -1,4 +1,4 @@ -{- EVE Online mining bot version 2020-12-13 +{- EVE Online mining bot version 2020-12-28 The bot warps to an asteroid belt, mines there until the ore hold is full, and then docks at a station or structure to unload the ore. It then repeats this cycle until you stop it. If no station name or structure name is given with the app-settings, the bot docks again at the station where it was last docked. @@ -204,9 +204,15 @@ miningBotDecisionRoot context = } context |> Maybe.withDefault - (ensureOreHoldIsSelectedInInventoryWindow - context.readingFromGameClient - (inSpaceWithOreHoldSelected context seeUndockingComplete) + (ensureUserEnabledNameColumnInOverview + { ifEnabled = + ensureOreHoldIsSelectedInInventoryWindow + context.readingFromGameClient + (inSpaceWithOreHoldSelected context seeUndockingComplete) + , ifDisabled = + describeBranch "Please configure the overview to show objects names." askForHelpToGetUnstuck + } + seeUndockingComplete ) } context.readingFromGameClient @@ -1085,6 +1091,18 @@ clickModuleButtonButWaitIfClickedInPreviousStep context moduleButton = ) +ensureUserEnabledNameColumnInOverview : { ifEnabled : DecisionPathNode, ifDisabled : DecisionPathNode } -> SeeUndockingComplete -> DecisionPathNode +ensureUserEnabledNameColumnInOverview { ifEnabled, ifDisabled } seeUndockingComplete = + if + (seeUndockingComplete.overviewWindow.entries |> List.all (.objectName >> (==) Nothing)) + && (0 < List.length seeUndockingComplete.overviewWindow.entries) + then + describeBranch "The 'Name' column in the overview window seems disabled." ifDisabled + + else + ifEnabled + + activeShipTreeEntryFromInventoryWindow : EveOnline.ParseUserInterface.InventoryWindow -> Maybe EveOnline.ParseUserInterface.InventoryWindowLeftTreeEntry activeShipTreeEntryFromInventoryWindow = .leftTreeEntries