2008-02-18 08:55:16 +00:00
|
|
|
|
2008-02-22 22:49:21 +00:00
|
|
|
type player_t = {
|
2008-02-18 08:55:16 +00:00
|
|
|
mutable name : string ;
|
|
|
|
mutable lifes : int ;
|
|
|
|
mutable position : Position.t;
|
|
|
|
}
|
|
|
|
|
|
|
|
let create () = {
|
|
|
|
name = "Unnamed player" ;
|
|
|
|
lifes = 3 ;
|
|
|
|
position = Position.zero ;
|
|
|
|
}
|