Commit before rethinking item positioning, broken item hammer

2022-07-07 07:50:05 +01:00
parent 9159281f85
commit c2e7fcc897
21 changed files with 85 additions and 87 deletions
@@ -467,12 +467,13 @@ data FloorItem = FlIt { _flIt :: Item , _flItPos :: Point2 , _flItRot :: Float,
 data ItemPos 
    = InInv   { _ipCrId :: Int , _ipInvId :: Int }
    | OnFloor { _ipFlID :: Int }
+    | VoidItm
 data ItemUse
    = RightUse 
        { _rUse         :: Item -> Creature -> World -> World 
        , _useDelay     :: UseDelay
        , _useMods      :: [(Item -> Creature -> World -> World) -> Item -> Creature -> World -> World]
-        , _useHammer    :: HammerType
+        , _useHammer'   :: HammerPosition
        , _useAim       :: AimParams
        , _heldScroll   :: Float -> Creature -> Item -> Item
        }