type tid = int
type tpriority = int
type tmetres = float
type tmetresseconde = float
type tposition = { x : tmetres; y : tmetres }
type tspeed = { sx : tmetresseconde; sy : tmetresseconde }

type ttargettype = Ttargettype_unknown | Ttargettype_friend | Ttargettype_foe