2008-02-18 09:55:16 +01:00
|
|
|
|
2008-03-08 09:42:54 +01:00
|
|
|
type t = {
|
2008-02-18 09:55:16 +01:00
|
|
|
mutable name : string ;
|
|
|
|
mutable lifes : int ;
|
|
|
|
mutable position : Position.t;
|
|
|
|
}
|
|
|
|
|
|
|
|
let create () = {
|
|
|
|
name = "Unnamed player" ;
|
|
|
|
lifes = 3 ;
|
|
|
|
position = Position.zero ;
|
|
|
|
}
|