support customizing relative priorities of army presets used for farming

In case the settings prompt contains multiple instances of `farm-army-preset-pattern`, order the selected army presets in the same order.

Author: Viir

implement/applications/tribal-wars-2/tribal-wars-2-farmbot/Bot.elm

@@ -1,4 +1,4 @@
-{- Tribal Wars 2 farmbot version 2025-05-27
+{- Tribal Wars 2 farmbot version 2025-05-28
 
    This bot farms barbarian villages in Tribal Wars 2.
    It automatically detects barbarian villages, available troops and configured army presets to attack.
@@ -166,7 +166,9 @@ parseBotSettings =
              , valueParser =
                 PromptParser.valueTypeString
                     (\presetPattern settings ->
-                        { settings | farmArmyPresetPatterns = presetPattern :: settings.farmArmyPresetPatterns }
+                        { settings
+                            | farmArmyPresetPatterns = List.concat [ settings.farmArmyPresetPatterns, [ presetPattern ] ]
+                        }
                     )
              }
            )
@@ -1924,16 +1926,17 @@ pickBestMatchingArmyPresetForVillage settings presets ( villageId, villageDetail
 
             matchingFarmPresets : List ArmyPreset
             matchingFarmPresets =
-                presets
-                    |> List.filter
-                        (\preset ->
-                            farmArmyPresetPatterns
-                                |> List.any
-                                    (\presetFilter ->
+                farmArmyPresetPatterns
+                    |> List.concatMap
+                        (\presetFilter ->
+                            presets
+                                |> List.filter
+                                    (\preset ->
                                         stringContainsIgnoringCase presetFilter preset.name
                                     )
+                                |> List.sortBy (.name >> String.toLower)
                         )
-                    |> List.sortBy (.name >> String.toLower)
+                    |> Common.Basics.listUnique
         in
         case matchingFarmPresets of
             [] ->