Use Item as argument in lUse rather than Int

2022-05-23 13:32:29 +01:00
parent 361dba88a0
commit a870457f2a
6 changed files with 25 additions and 22 deletions
@@ -316,7 +316,6 @@ data Intention = Intention
    , _mvToPoint    :: Maybe Point2
    , _viewPoint    :: Maybe Point2
    }
-
 data CrMvType 
    = NoMvType
    | MvWalking { _mvSpeed :: Float }
@@ -374,7 +373,7 @@ data ItemUse
        , _useAim       :: AimParams
        }
    | LeftUse  
-        { _lUse         :: Creature -> Int -> World -> World 
+        { _lUse         :: Item -> Creature -> World -> World 
        , _useDelay     :: UseDelay
        , _useHammer    :: HammerType
        }