lib_crew.ks

@LAZYGLOBAL OFF. // #include init

GLOBAL CREW_SIZE IS 0.
GLOBAL CREW_FN IS "cs.ks".

resume(CREW_FN).

FUNCTION storeLastCrewCount {
  SET CREW_SIZE TO crewCount().
  store("SET CREW_SIZE TO " + CREW_SIZE + ".", CREW_FN, 50).
}

FUNCTION lastCrewCount {
  RETURN CREW_SIZE.
}

FUNCTION crewCount {
  PARAMETER c IS SHIP.
  RETURN c:CREW():LENGTH.
}

FUNCTION crewSpaces {
  PARAMETER c IS SHIP.
  RETURN c:CREWCAPACITY - crewCount(c).
}

FUNCTION pCrew {
  PARAMETER c IS SHIP.
  pOut("Crew details:").
  IF crewCount(c) < 1 { pOut("NONE"). }
  FOR kerb IN c:CREW() {
    LOCAL role IS "Tourist".
    IF NOT kerb:TOURIST { SET role TO kerb:TRAIT. }
    pOut(role + " " + kerb:NAME + " in " + kerb:PART:TITLE).
  }
  pOut("Vacant seats: " + crewSpaces()).
}