Cleanup

src/Dodge/Item/Weapon/BatteryGuns.hs

@@ -22,18 +22,18 @@ import Dodge.Beam
 import Dodge.Item.Weapon.LaserPath
 import Dodge.Item.Location
 import Dodge.Creature.HandPos
-import Dodge.Particle.TeslaArc
-import Dodge.Particle.Flame
+--import Dodge.Particle.TeslaArc
+--import Dodge.Particle.Flame
 import Dodge.SoundLogic.LoadSound
 import Dodge.WorldEvent.Flash
-import Dodge.WorldEvent.Damage
+--import Dodge.WorldEvent.Damage
 --import Dodge.Default
 --import Dodge.Item.Weapon.InventoryDisplay
 import Dodge.Item.Weapon.TriggerType
 import Dodge.Item.Weapon.AmmoParams
 import Dodge.Default.Weapon
 --import Dodge.Item.Attachment
-import Dodge.WorldEvent.HelperParticle
+--import Dodge.WorldEvent.HelperParticle
 import Dodge.Base
 import Dodge.Zone
 import Geometry
@@ -41,16 +41,16 @@ import Picture
 import Shape
 import ShapePicture
 import LensHelp
-import Dodge.RandomHelp
-import MonadHelp
+--import Dodge.RandomHelp
+--import MonadHelp
 
-import Data.Maybe
-import Data.List (sortOn)
-import System.Random
+--import Data.Maybe
+--import Data.List (sortOn)
+--import System.Random
 --import Data.Tuple
 import qualified Data.IntMap.Strict as IM
 import qualified Data.Map.Strict as M
-import Control.Monad.State
+--import Control.Monad.State
 
 defaultBatteryGun :: Item
 defaultBatteryGun = defaultGun

src/Dodge/Item/Weapon/BulletGun/Cane.hs

@@ -31,7 +31,6 @@ import Shape
 import Sound.Data
 import LensHelp
 
-import Data.Maybe
 --import qualified Data.Map.Strict as M
 --import qualified Data.Sequence as Seq
 --import Control.Lens
@@ -281,11 +280,6 @@ miniGunX i = defaultAutoGun
         }
     , _itEquipPict = pictureWeaponAim (miniGunXPictItem i)
     , _itInvSize = 4
-    , _itInvDisplay = \it -> head (basicItemDisplay it) : 
-        ["*" ++ replicate 13 ' ' ++ "*"
-        ,"*    " ++ fromMaybe "    " (maybeWarmupStatus it) ++ "     *"
-        ,"*" ++ replicate 13 ' ' ++ "*" ]
-        ++ moduleStrings it
     , _itDimension = ItemDimension
         { _dimRad = 20
         , _dimCenter = V3 5 0 0