Add support for left click actions

2021-05-25 14:23:04 +02:00
parent 62c4baaec8
commit f737897b18
9 changed files with 141 additions and 34 deletions
@@ -197,7 +197,8 @@ data Item
        , _wpReloadState :: Int
        , _itUseRate :: Int
        , _itUseTime :: Int
-        , _itUse    :: Creature -> World -> World
+        , _itUse     :: Creature -> World -> World
+        , _itLeftClickUse :: Maybe (Creature -> Int -> World -> World)
        , _wpSpread :: Float
        , _wpRange :: Float
        , _itHammer :: HammerPosition
@@ -393,6 +394,8 @@ data Projectile
        { _pjPos :: Point2
        , _pjStartPos :: Point2
        , _pjVel :: Point2
+        , _pjDir :: Float
+        , _pjSpin :: Float
        , _pjDraw :: Projectile -> Picture
        , _pjID :: Int
        , _pjUpdate :: Projectile -> World -> World