*temp seniority_text
*if rank = 1
  *set seniority_text seniority2 & " years"
  *goto rank
*else
  *set seniority_text seniority & " years"

*label rank

*temp rank_name
*set rank_name override_rank
*if Cashiered
  *set rank_name "Cashiered"
*if override_rank = "none"
  *if rank = 0
    *set rank_name "Midship" & man
    *goto name
  *elseif rank = 1
    *set rank_name "Acting lieutenant"
    *goto name
  *elseif rank = 2
    *set rank_name "Lieutenant"
    *goto name
  *elseif rank = 3
    *set rank_name "Commander"
    *goto name
  *else
    *set rank_name "Post-captain"
    *goto name
*label name

*temp name
*if no_name
  *set name "Unnamed"
  *goto display
*else
  *temp honorific
  *set honorific Mr
  *if Knighted
    *set honorific Dame
  *if rank = 0
    *set honorific Mr & (" Midship" & man)
  *set name ((honorific & " ") & given_name) & (" " & surname)

*label display
*stat_chart
  text Name
  text rank_name Rank
  text seniority_text Seniority
  text Age
  
  percent Sailing
  percent Gunnery
  percent Leadership
  
  percent Fighting
  percent Patronage
  percent Tact
  
  percent Likeability
  percent Honor
  percent Courage
  percent Bloodthirst
  percent Intelligence
  
  percent Wealth