swrup/pellest
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

fix medidate key

Browse source
This commit is contained in:
zapashcanon 2023-01-09 02:40:40 +01:00
parent f6ca371676
commit 3f4c1b063e
No known key found for this signature in database
GPG key ID: 8981C3C62D1D28F1
1 changed files with 6 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

9
src/island_client.ml
View file

@ -103,14 +103,17 @@ let send_action state action =
let kb_handler ev = let kb_handler ev =
let open State in let open State in
let ev = Ev.as_type ev in
let act = let act =
match ev |> Ev.as_type |> Ev.Keyboard.code |> Jstr.to_string with match Ev.Keyboard.code ev |> Jstr.to_string with
| "KeyW" | "ArrowUp" -> Move Up | "KeyW" | "ArrowUp" -> Move Up
| "KeyA" | "ArrowLeft" -> Move Left | "KeyA" | "ArrowLeft" -> Move Left
| "KeyS" | "ArrowDown" -> Move Down | "KeyS" | "ArrowDown" -> Move Down
| "KeyD" | "ArrowRight" -> Move Right | "KeyD" | "ArrowRight" -> Move Right
| "KeyM" -> Meditate | _code -> (
| _s -> Do_nothing match Ev.Keyboard.key ev |> Jstr.to_string with
| "m" -> Meditate
| _key -> Do_nothing )
in in
Queue.add act input_queue Queue.add act input_queue