let find_player_in_role role_id =
  fst
    (List.find
       (fun (_,b) -> b=role_id)
       !Globals.player_to_role)