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,23 +1,21 @@
-module Dodge.Creature.PistolCrit
-    ( pistolCrit 
-    ) where
-import Dodge.Data
+module Dodge.Creature.PistolCrit (
+    pistolCrit,
+) where
+
+import Control.Lens
+import Dodge.Data.Creature
 import Dodge.Default
-import Dodge.Item.Weapon.BulletGuns
 import Dodge.Item.Consumable
+import Dodge.Item.Held.Stick
+import qualified IntMapHelp as IM
 import Picture

-import qualified IntMapHelp as IM
-import Control.Lens
-
 pistolCrit :: Creature
-pistolCrit = defaultCreature
-    { _crInv = IM.fromList [(0,pistol),(1,medkit 100)]
-    , _crRad = 10
-    , _crHP = 500
-    }
-    & crType . humanoidAI .~ PistolAI
-    & crType . skinUpper .~ light4 red
-
-    
-
+pistolCrit =
+    defaultCreature
+        { _crInv = IM.fromList [(0, pistol), (1, medkit 100)]
+        , _crRad = 10
+        , _crHP = 500
+        }
+        & crType . humanoidAI .~ PistolAI
+        & crType . skinUpper .~ light4 red