Remove CreatureTargeting, start making shapes for crafts

2024-12-21 12:08:45 +00:00
parent 1e77b45230
commit e35e056fcb
6 changed files with 153 additions and 108 deletions
@@ -72,13 +72,13 @@ data Creature = Creature
    }

 --deriving (Eq, Show, Read) --Generic, Flat)
-
-data CreatureTargeting = CreatureTargeting
-    { _ctPos :: Maybe Point2
-    , _ctType :: Maybe TargetingType
-    , _ctID :: Maybe Int
-    , _ctActive :: Bool
-    }
+--
+--data CreatureTargeting = CreatureTargeting
+--    { _ctPos :: Maybe Point2
+--    , _ctType :: Maybe TargetingType
+--    , _ctID :: Maybe Int
+--    , _ctActive :: Bool
+--    }

 data CreatureCorpse = MakeDefaultCorpse

@@ -93,7 +93,7 @@ data Intention = Intention
 --deriving (Eq, Show, Read) --Generic, Flat)

 makeLenses ''Creature
-makeLenses ''CreatureTargeting
+--makeLenses ''CreatureTargeting
 makeLenses ''Intention

 concat
@@ -102,5 +102,5 @@ concat
        [ ''CreatureCorpse
        , ''Creature
        , ''Intention
-        , ''CreatureTargeting
+--        , ''CreatureTargeting
        ]