Start to add basic gibbing

src/Dodge/Creature.hs

@@ -11,6 +11,7 @@ module Dodge.Creature
     ) where
 import Dodge.Creature.State.Data
 import Dodge.Creature.Update
+import Dodge.Prop.Gib
 --import Dodge.Item.Weapon.Grenade
 import Dodge.Item.Weapon.Booster
 import Dodge.Item.Weapon.Utility
@@ -196,6 +197,7 @@ inventoryX c = case c of
         [ blinkGun
         , unsafeBlinkGun
         , autoDetector WALLDETECTOR
+        , effectGun "GIBBER" (addGibsAt . _crPos)
         ]
     _ -> []