Add key card item lock/key system

src/Dodge/Initialisation.hs

@@ -41,8 +41,9 @@ initialWorld = defaultWorld
     }
 
 testStringInit :: World -> [String]
+testStringInit = const []
 --testStringInit = map (concatMap $ \(_,ct,_,_) -> show ct) . invertListInvMult . yourInv
-testStringInit w = [show $ _youHammerPosition w]
+--testStringInit w = fmap (show . _crHammerPosition) . IM.elems $ _creatures w
 --    w = [show $ f $ _roomClipping w]
 --  where
 --    f (x:xs) = any (convexPolysOverlap x) xs || f xs