3
* Copyright (C) 2007-2009 The laby team
4
* You have permission to copy, modify, and redistribute under the
5
* terms of the GPL-3.0. For full license terms, see gpl-3.0.txt.
8
type tile = [ `Void | `Wall | `Exit | `Rock | `Web | `NRock | `NWeb ]
9
type dir = [ `N | `E | `S | `W ]
13
| `Wall_In | `Rock_In | `Exit_In | `Web_In
15
| `Exit | `No_Exit | `Carry_Exit
16
| `Rock_Take | `Rock_Drop
17
| `Rock_No_Take | `Rock_No_Drop
22
val make : tile array array -> int * int -> dir -> t
26
val run : string -> t -> string * t
28
val iter_map : t -> (int -> int -> tile -> unit) -> unit
29
val pos : t -> int * int
30
val carry : t -> [`None | `Rock ]
32
val action : t -> action