otary/pellest
1
0
Fork 0
forked from zapashcanon/pellest
Code Issues Pull Requests Projects Releases Wiki Activity

optim

Browse Source
This commit is contained in:
zapashcanon 2022-12-08 02:20:03 +01:00
parent 0aded75cb7
commit ddeba99f2e
Signed by untrusted user who does not match committer: zapashcanon
GPG Key ID: 8981C3C62D1D28F1
1 changed files with 4 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
src/island_client.ml
View File

@ -94,16 +94,12 @@ let kb_handler ev =
let x, y = !Map.player_pos in
let x, 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)
| "KeyW" | "ArrowUp" -> (x, max 0 (y - 1))
| "KeyA" | "ArrowLeft" -> (max 0 (x - 1), y)
| "KeyS" | "ArrowDown" -> (x, min (Map.height - 1) y + 1)
| "KeyD" | "ArrowRight" -> (min (Map.width - 1) x + 1, y)
| _s -> (x, y)
in
let x = max 0 x in
let x = min (Map.width - 1) x in
let y = max 0 y in
let y = min (Map.height - 1) y in
Map.player_pos := (x, y)
let rec game_loop state _timestamp =