Cleanup, remove spawngun

src/Dodge/Item/Weapon.hs

@@ -2,7 +2,6 @@
 module Dodge.Item.Weapon (
     module Dodge.Item.Weapon.TriggerType,
     module Dodge.Item.Weapon.ExtraEffect,
-    module Dodge.Item.Weapon.Spawn,
     module Dodge.Item.Weapon.Radar,
     module Dodge.Item.Weapon.Utility,
 --    module Dodge.Item.Weapon.BatteryGuns,
@@ -13,6 +12,5 @@ module Dodge.Item.Weapon (
 import Dodge.Item.Weapon.Drone
 import Dodge.Item.Weapon.ExtraEffect
 import Dodge.Item.Weapon.Radar
-import Dodge.Item.Weapon.Spawn
 import Dodge.Item.Weapon.TriggerType
 import Dodge.Item.Weapon.Utility

src/Dodge/Item/Weapon/Spawn.hs

@@ -1,34 +0,0 @@
-module Dodge.Item.Weapon.Spawn where
-
-import Dodge.Default.Item
-import Control.Lens
-import Dodge.Data.World
-import Geometry
-import qualified IntMapHelp as IM
-
-{- |
-Creates a creature next to the creature using the item.
--}
-spawnGun :: Creature -> Item
-spawnGun _ =
-    defaultHeldItem
-        & itUse . heldDelay . rateMax .~ 100
---        & itUse . heldUse .~ HeldDoNothing --(\_ -> spawnCrNextTo cr)
---        & itUse . heldMods .~ DoNothingMod
-        & itType .~ LEFT SPAWNER
-
-spawnCrNextTo ::
-    -- | Creature to spawn
-    Creature ->
-    -- | existing creature that will be spawned next to
-    Creature ->
-    World ->
-    World
-spawnCrNextTo cr sCr w = w & cWorld . lWorld . creatures %~ IM.insert k newCr
-  where
-    k = IM.newKey $ w ^?! cWorld . lWorld . creatures -- _creatures (_cWorld w)
-    newCr =
-        cr
-            & crID .~ k
-            & crPos .~ _crPos sCr +.+ unitVectorAtAngle (_crDir sCr)
-            & crOldPos .~ _crPos sCr +.+ unitVectorAtAngle (_crDir sCr)