Implement targeting launcher shells using separate item

2024-09-29 16:24:26 +01:00
parent 7d72fa3c5d
commit 88c3e02459
36 changed files with 747 additions and 610 deletions
@@ -77,14 +77,14 @@ data Creature = Creature
    , _crName :: String
    , _crStatistics :: CreatureStatistics
    , _crCamouflage :: CamouflageStatus
-    , _crTargeting :: CreatureTargeting
+--    , _crTargeting :: CreatureTargeting
    }

 --deriving (Eq, Show, Read) --Generic, Flat)

 data CreatureTargeting = CreatureTargeting
    { _ctPos :: Maybe Point2
-    , _ctType :: Maybe TargetType
+    , _ctType :: Maybe TargetingType
    , _ctID :: Maybe Int
    , _ctActive :: Bool
    }