Cleanup, haddocks

src/Dodge/Creature.hs

@@ -14,6 +14,7 @@ import Dodge.Item.Consumable
 import Dodge.WorldEvent.Cloud
 import Dodge.Creature.YourControl
 import Dodge.Creature.Inanimate
+import Dodge.Item
 
 import Picture
 import Geometry
@@ -255,13 +256,9 @@ startCr = defaultCreature
         [pistol
         ,blinkGun
         ,spawnGun lamp
-        ,flameGrenade
-        ,teslaGrenade
+        ,poisonSprayer
         ,autoGun
         ,launcher
-        ,flameLauncher
-        ,poisonLauncher
-        ,teslaLauncher
         ,lasGun
         ,grenade
         ,ltAutoGun,flamer,multGun,spreadGun,remoteLauncher
@@ -272,7 +269,6 @@ startCr = defaultCreature
         ,miniGun
         ,medkit 50
         ,bezierGun
-        ,poisonSprayer
         ] 
           ++ repeat NoItem)) 
     , _crCorpse = onLayer CorpseLayer $ color (greyN 0.5) $ pictures [color (greyN 0.8) $ circleSolid 10, circLine 10]

src/Dodge/Item/Weapon.hs

@@ -1578,28 +1578,6 @@ jetPack = defaultEquipment
     , _itID = Nothing
     }
 
-latchkey :: Int -> Item
-latchkey n = defaultEquipment
-    { _itIdentity = Generic
-    , _itName = "KEY "++show n
-    , _itMaxStack = 1
-    , _itAmount = 1
-    , _itFloorPict = onLayer FlItLayer $ latchkeyPic
-    , _itEquipPict = \cr _ -> onLayer PtLayer $ translate (-5) (-5) $ rotate (pi/2.5) latchkeyPic
-    , _itEffect = NoItEffect
-    , _itHammer = HammerUp
-    , _itID = Nothing
-    , _itAimingSpeed = 1
-    , _itAimingRange = 0
-    , _itZoom = defaultItZoom
-    , _itInvColor = yellow
-    , _itInvDisplay = _itName
-    }
-latchkeyPic = color yellow $
-              pictures [translate (-4) 0 $ thickCircle 4 2
-                       ,lineOfThickness 2 [(0,0),(8,0),(8,-4)]
-                       ,lineOfThickness 2 [(4,0),(4,-4)]
-                       ]
 
 
 -- }}}

src/Dodge/WorldEvent/Shockwave.hs

@@ -57,7 +57,7 @@ mvShockwave'
 mvShockwave' is w pt 
     | _btTimer' pt <= 0 = (w, Nothing)
     | otherwise
-        = (dams w , Just $ set btTimer' (t - 1) pt) -- $ set ptDraw (const pic) pt)
+        = (dams w , Just $ set btTimer' (t - 1) pt) --  $ set ptDraw (const pic) pt)
   where 
     r    = _btRad' pt
     p    = _btPos' pt