Add IntMapHelper, locate wall cutting bug

src/Dodge/Creature.hs

@@ -28,7 +28,6 @@ import Dodge.Creature.ChaseCrit
 import Dodge.Creature.ArmourChase
 import Dodge.Data
 import Dodge.Default
-import Dodge.Base
 import Dodge.Item.Weapon
 import Dodge.Item.Equipment
 import Dodge.Item.Consumable
@@ -43,6 +42,7 @@ import Dodge.Creature.Rationality
 import Dodge.Picture.Layer
 import Picture
 --import Geometry
+import qualified IntMapHelp as IM
 
 --import Data.List
 --import Data.Char
@@ -52,7 +52,6 @@ import Control.Lens
 --import Control.Monad.Reader
 --import System.Random
 --import qualified Data.Set as S
-import qualified Data.IntMap.Strict as IM
 --import qualified Data.Map as M
 
 spawnerCrit :: Creature
@@ -133,7 +132,7 @@ multGunCrit = defaultCreature
 addArmour :: Creature -> Creature
 addArmour = over crInv insarmour
   where 
-    insarmour xs = IM.insert (newKey xs) frontArmour xs
+    insarmour xs = IM.insert (IM.newKey xs) frontArmour xs
 {- | The creature you control.
 ID 0.  -}
 startCr :: Creature
@@ -156,7 +155,8 @@ startCr = defaultCreature
 startInventory :: IM.IntMap Item
 startInventory = IM.fromList (zip [0..20] 
     (
-    [bezierGun
+    [blinkGun
+    ,bezierGun
     ,multGun
     ,hvAutoGun
     ,remoteLauncher