Stop weapon fire after using up consumables

src/Dodge/Initialisation.hs

@@ -42,7 +42,7 @@ initialWorld = defaultWorld
 
 testStringInit :: World -> [String]
 --testStringInit = map (concatMap $ \(_,ct,_,_) -> show ct) . invertListInvMult . yourInv
-testStringInit = const []
+testStringInit w = [show $ _youHammerPosition w]
 --    w = [show $ f $ _roomClipping w]
 --  where
 --    f (x:xs) = any (convexPolysOverlap x) xs || f xs