*if fatigue < 50
  *set str max_str
  *set dex max_dex
  *set agi max_agi
  *set sta max_sta
  *set cha max_cha
*if fatigue >= 90
  *set str -10
  *set dex -10
  *set agi -10
  *set sta -10
*if (fatigue >= 80) and (fatigue < 90)
  *set str -5
  *set dex -5
  *set agi -5
  *set sta -5
*if stress < 50
  *set int max_int
  *set wil max_wil
  *set per max_per
*if stress >= 90
  *set int -10
  *set wil -10
  *set per -10
*if (stress >= 80) and (stress < 90)
  *set int -5
  *set wil -5
  *set per -5
*if leg_wound_open
  *set agi -5

*label SetSkills
*set athletics round(((agi + dex)/4) + (ath_level * 10))
*if athletics > 100
  *set athletics 100
*set ccw round(((agi + str)/4) + (ccw_level * 10))
*if ccw > 100
  *set ccw 100
*set cooking round(((int + dex)/4) + (cook_level * 10))
*if cooking > 100
  *set cooking 100
*set crafting round(((int + str)/4) + (craft_level * 10))
*if crafting > 100
  *set crafting 100
*set driving round(((int + dex)/4) + (drive_level * 10))
*if driving > 100
  *set driving 100
*set electronics round(((int + dex)/4) + (ele_level * 10))
*if electronics > 100
  *set electronics 100
*set empathy round(((wil + per)/4) + (emp_level * 10))
*if empathy > 100
  *set empathy 100
*set hth round(((agi + str)/4) + (hth_level * 10))
*if hth > 100
  *set hth 100
*set intimidation round(((cha + wil)/4) + (int_level * 10))
*if intimidation > 100
  *set intimidation 100
*set leadership round(((int + cha)/4) + (lead_level * 10))
*if leadership > 100
  *set leadership 100
*set medicine round(((int)/2) + (med_level * 10))
*if medicine > 100
  *set medicine 100
*set persuasion round(((cha)/2) + (pers_level * 10))
*if persuasion > 100
  *set persuasion 100
*set ranged round(((per + dex)/4) + (rang_level * 10))
*if ranged > 100
  *set ranged 100
*set scavenging round(((agi + str)/4) + (scav_level * 10))
*if scavenging > 100
  *set scavenging 100
*set science round(((int)/2) + (sci_level * 10))
*if science > 100
  *set science 100
*set search round(((int + per)/4) + (sea_level * 10))
*if search > 100
  *set search 100
*set stealth round(((per + agi)/4) + (stealth_level * 10))
*if stealth > 100
  *set stealth 100
*set survival round(((wil + sta)/4) + (surv_level * 10))
*if survival > 100
  *set survival 100
*set m_athletics athletics
*set m_ccw ccw
*set m_cooking cooking
*set m_crafting crafting
*set m_driving driving
*set m_electronics electronics
*set m_empathy empathy
*set m_hth hth
*set m_intimidation intimidation
*set m_leadership leadership
*set m_medicine medicine
*set m_persuasion persuasion
*set m_ranged ranged
*set m_scavenging scavenging
*set m_science science
*set m_search search
*set m_stealth stealth
*set m_survival survival
*return