Refactor event/input

2021-03-26 14:52:25 +01:00
parent 420cf7fc4b
commit 07d84cc1c6
14 changed files with 91 additions and 63 deletions
@@ -0,0 +1,29 @@
+module Dodge.Update.UsingInput
+    where
+import Dodge.Data
+
+import Dodge.CreatureAction.UseItem
+
+import Geometry
+
+import SDL
+
+import qualified Data.Set as S
+import Control.Lens
+
+updateUsingInput :: World -> World
+updateUsingInput w = updatePressedButtons (_mouseButtons w) w
+
+updatePressedButtons :: S.Set MouseButton -> World -> World
+updatePressedButtons keys w 
+    | lbPressed && rbPressed 
+        = useItem (_yourID w) w
+    | mbPressed 
+        = set clickMousePos (_mousePos w) $ over cameraRot (\r-> r - rotation) w
+    | otherwise
+        = w
+    where lbPressed = ButtonLeft `S.member` keys
+          rbPressed = ButtonRight `S.member` keys
+          mbPressed = ButtonMiddle `S.member` keys
+          rotation  = angleBetween (_mousePos w) (_clickMousePos w)
+