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,49 +1,57 @@
-module Dodge.Creature.ChaseCrit
-    (smallChaseCrit
-    ,invisibleChaseCrit
-    ,chaseCrit
-    ) where
-import Dodge.Data
+module Dodge.Creature.ChaseCrit (
+    smallChaseCrit,
+    invisibleChaseCrit,
+    chaseCrit,
+) where
+
+import Control.Lens
+import Dodge.Data.Creature
 import Dodge.Default
 import Dodge.Item.Consumable
 import Dodge.Item.Equipment
 import Dodge.SoundLogic
+import qualified IntMapHelp as IM
 import Picture

-import qualified IntMapHelp as IM
-import Control.Lens
--import System.Random
-
 smallChaseCrit :: Creature
-smallChaseCrit = chaseCrit
-    { _crHP = 1
-    , _crRad = 4
-    , _crInv = IM.fromList [(0,medkit 200)]
-    , _crCorpse = MakeDefaultCorpse
-    }
+smallChaseCrit =
+    chaseCrit
+        { _crHP = 1
+        , _crRad = 4
+        , _crInv = IM.fromList [(0, medkit 200)]
+        , _crCorpse = MakeDefaultCorpse
+        }
+
 invisibleChaseCrit :: Creature
-invisibleChaseCrit = chaseCrit
-    & crCamouflage .~ Invisible
-    & crInv . at 0 ?~ wristInvisibility
-    & crEquipment . at OnLeftWrist ?~ 0
-    & crInvEquipped . at 0 ?~ OnLeftWrist
+invisibleChaseCrit =
+    chaseCrit
+        & crCamouflage .~ Invisible
+        & crInv . at 0 ?~ wristInvisibility
+        & crEquipment . at OnLeftWrist ?~ 0
+        & crInvEquipped . at 0 ?~ OnLeftWrist
+
 chaseCrit :: Creature
-chaseCrit = defaultCreature
-    { _crName = "chaseCrit"
-    , _crHP = 150
-    , _crInv = IM.fromList [(0,medkit 200)]
-    , _crMeleeCooldown = 0
-    , _crFaction = ColorFaction green
-    , _crVocalization = Vocalization seagullChatterS 
-        [seagullBarkS
-        ,seagullChatterS
-        ,seagullChatter1S
-        ,seagullWhistleS
-        ,seagullWhistle1S
-        ,seagullCryS
-        ,seagullCry1S
-        ,seagullCry2S
-        ] 50 0
-    , _crMvType = defaultChaseMvType
-    }
-    & crType . humanoidAI .~ ChaseAI
+chaseCrit =
+    defaultCreature
+        { _crName = "chaseCrit"
+        , _crHP = 150
+        , _crInv = IM.fromList [(0, medkit 200)]
+        , _crMeleeCooldown = 0
+        , _crFaction = ColorFaction green
+        , _crVocalization =
+            Vocalization
+                seagullChatterS
+                [ seagullBarkS
+                , seagullChatterS
+                , seagullChatter1S
+                , seagullWhistleS
+                , seagullWhistle1S
+                , seagullCryS
+                , seagullCry1S
+                , seagullCry2S
+                ]
+                50
+                0
+        , _crMvType = defaultChaseMvType
+        }
+        & crType . humanoidAI .~ ChaseAI