32 lines
511 B
OCaml
32 lines
511 B
OCaml
|
type item_t =
|
||
|
|
| Bonus
|
||
|
|
| Malus
|
||
|
|
| NoItem
|
||
|
|
;;
|
||
|
|
|
||
|
|
type block_t =
|
||
|
|
| Solid
|
||
|
|
| Breakable
|
||
|
|
| NoBlock
|
||
|
|
;;
|
||
|
|
|
||
|
|
type t = {
|
||
|
|
mutable size_x : int ;
|
||
|
|
mutable size_y : int ;
|
||
|
|
mutable items : item_t array array ;
|
||
|
|
mutable blocks : block_t array array ;
|
||
|
|
};;
|
||
|
|
|
||
|
|
|
||
|
|
let default_x = 10;;
|
||
|
|
|
||
|
|
let default_y = 10;;
|
||
|
|
|
||
|
|
let create () = {
|
||
|
|
size_x = default_x ;
|
||
|
|
size_y = default_y ;
|
||
|
|
items = Array.make_matrix default_x default_y NoItem ;
|
||
|
|
blocks = Array.make_matrix default_x default_y NoBlock ;
|
||
|
|
}
|
||
|
|
;;
|