wip: state server side; websocket

src/map.ml

@@ -0,0 +1,27 @@
+type dir =
+  | Left
+  | Right
+  | Down
+  | Up
+
+type background =
+  | Grass
+  | Water
+  | Black
+
+type t = background array array
+
+let width = 1000
+
+let height = 1000
+
+let player_pos = ref (20, 3)
+
+let player_dir = ref Down
+
+let init () =
+  Array.init width (fun _x ->
+      Array.init height (fun _y ->
+          if Random.int 1000 <= 42 then Water else Grass ) )
+
+let get_tile_kind ~x ~y map = try map.(x).(y) with Invalid_argument _ -> Black