Refactor, try to limit dependencies

2022-07-28 00:59:56 +01:00
parent 8aa5c17ab9
commit 160560af5f
418 changed files with 15104 additions and 13342 deletions
@@ -1,29 +1,28 @@
-module Dodge.Creature.SwarmCrit
-    ( swarmCrit
-    ) where
-import Dodge.Data
+module Dodge.Creature.SwarmCrit (
+    swarmCrit,
+) where
+
+import Control.Lens
+import Dodge.Data.Creature
 import Dodge.Default
 import Picture

-import Control.Lens
-
 swarmCrit :: Creature
-swarmCrit = defaultCreature
-    { _crHP = 1
-    , _crRad = 2
-    , _crMass = 2
-    , _crCorpse = MakeDefaultCorpse
-    , _crFaction = ColorFaction yellow
-    , _crMeleeCooldown = 0
-    }
-    & crType . skinUpper .~ light4 yellow
-    & crType . humanoidAI .~ SwarmAI
+swarmCrit =
+    defaultCreature
+        { _crHP = 1
+        , _crRad = 2
+        , _crMass = 2
+        , _crCorpse = MakeDefaultCorpse
+        , _crFaction = ColorFaction yellow
+        , _crMeleeCooldown = 0
+        }
+        & crType . skinUpper .~ light4 yellow
+        & crType . humanoidAI .~ SwarmAI

 --swarmCritMoveFunc :: Creature -> Point2 -> Creature -> Point2
--swarmCritMoveFunc tcr cenp cr 
--    | targBehindCrit 
+--swarmCritMoveFunc tcr cenp cr
+--    | targBehindCrit
 --  where
 --    cpos = _crPos cr
 --    ypos = _crPos tcr
-
-