From 5bbfd54efbfd7340214d498735006b7d4cc417c6 Mon Sep 17 00:00:00 2001
From: Swrup <swrup@protonmail.com>
Date: Wed, 7 Dec 2022 18:46:29 +0100
Subject: [PATCH] better keyboard

---
 src/island_client.ml | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/src/island_client.ml b/src/island_client.ml
index 02f5cd6..7ba151a 100644
--- a/src/island_client.ml
+++ b/src/island_client.ml
@@ -86,11 +86,11 @@ let draw_map () =
 let kb_handler ev =
   let x, y = !Map.player_pos in
   let x, y =
-    match ev |> Ev.as_type |> Ev.Keyboard.key |> Jstr.to_string with
-    | "z" -> (x, y - 1)
-    | "q" -> (x - 1, y)
-    | "s" -> (x, y + 1)
-    | "d" -> (x + 1, y)
+    match ev |> Ev.as_type |> Ev.Keyboard.code |> Jstr.to_string with
+    | "KeyW" | "ArrowUp" -> (x, y - 1)
+    | "KeyA" | "ArrowLeft" -> (x - 1, y)
+    | "KeyS" | "ArrowDown" -> (x, y + 1)
+    | "KeyD" | "ArrowRight" -> (x + 1, y)
     | _s -> (x, y)
   in
   let x = max 0 x in