JdR:La Couleur des Roses/5 - Règles/Règles de base/Formule AnyDice

https://anydice.com/program/19869

function: rha QUALITY:n SKILL:n
{
  result: QUALITYd{0,1} + SKILLd{0,1}
}

function: aux QUALITY:n SKILL:n QUALITY_ROLL:s SKILL_ROLL:s
{
  if QUALITY_ROLL = QUALITY
  {
    result: QUALITY_ROLL + [highest of SKILL_ROLL and SKILLd{0,1}]
  }
  else if SKILL_ROLL = SKILL
  {
    result: SKILL_ROLL + [highest of QUALITY_ROLL and QUALITYd{0,1}]
  }
  else if QUALITY_ROLL > SKILL_ROLL
  {
    result: QUALITY_ROLL + [highest of SKILL_ROLL and SKILLd{0,1}]
  }
  else
  {
    result: SKILL_ROLL + [highest of QUALITY_ROLL and QUALITYd{0,1}]
  }
}

function: rha QUALITY:n SKILL:n adv
{
  result: [aux QUALITY SKILL QUALITYd{0,1} SKILLd{0,1}]
}

\usage\
output [rha 4 3] named "4u3"
output [rha 4 3 adv] named "4u3 ADV"
output [rha 6 1 adv] named "6u1 ADV"
output [rha 5 2 adv] named "5u2 ADV"

\all results\
output [rha 1 1] named "1u1"
output [rha 1 1 adv] named "1u1 ADV"
output [rha 1 2] named "1u2"
output [rha 1 2 adv] named "1u2 ADV"
output [rha 1 3] named "1u3"
output [rha 1 3 adv] named "1u3 ADV"
output [rha 1 4] named "1u4"
output [rha 1 4 adv] named "1u4 ADV"
output [rha 1 5] named "1u5"
output [rha 1 5 adv] named "1u5 ADV"
output [rha 1 6] named "1u6"
output [rha 1 6 adv] named "1u6 ADV"
output [rha 2 2] named "2u2"
output [rha 2 2 adv] named "2u2 ADV"
output [rha 2 3] named "2u3"
output [rha 2 3 adv] named "2u3 ADV"
output [rha 2 4] named "2u4"
output [rha 2 4 adv] named "2u4 ADV"
output [rha 2 5] named "2u5"
output [rha 2 5 adv] named "2u5 ADV"
output [rha 2 6] named "2u6"
output [rha 2 6 adv] named "2u6 ADV"
output [rha 3 3] named "3u3"
output [rha 3 3 adv] named "3u3 ADV"
output [rha 3 4] named "3u4"
output [rha 3 4 adv] named "3u4 ADV"
output [rha 3 5] named "3u5"
output [rha 3 5 adv] named "3u5 ADV"
output [rha 3 6] named "3u6"
output [rha 3 6 adv] named "3u6 ADV"
output [rha 4 4] named "4u4"
output [rha 4 4 adv] named "4u4 ADV"
output [rha 4 5] named "4u5"
output [rha 4 5 adv] named "4u5 ADV"
output [rha 4 6] named "4u6"
output [rha 4 6 adv] named "4u6 ADV"
output [rha 5 5] named "5u5"
output [rha 5 5 adv] named "5u5 ADV"
output [rha 5 6] named "5u6"
output [rha 5 6 adv] named "5u6 ADV"
output [rha 6 6] named "6u6"
output [rha 6 6 adv] named "6u6 ADV"

\advantage evaluation\
output [rha 1 1 adv] - [rha 1 1] named "DIFF 1u1"
output [rha 1 2 adv] - [rha 1 2] named "DIFF 1u2"
output [rha 1 3 adv] - [rha 1 3] named "DIFF 1u3"
output [rha 1 4 adv] - [rha 1 4] named "DIFF 1u4"
output [rha 1 5 adv] - [rha 1 5] named "DIFF 1u5"
output [rha 1 6 adv] - [rha 1 6] named "DIFF 1u5"
output [rha 2 2 adv] - [rha 2 2] named "DIFF 2u2"
output [rha 2 3 adv] - [rha 2 3] named "DIFF 2u3"
output [rha 2 4 adv] - [rha 2 4] named "DIFF 2u4"
output [rha 2 5 adv] - [rha 2 5] named "DIFF 2u5"
output [rha 2 6 adv] - [rha 2 6] named "DIFF 2u5"
output [rha 3 3 adv] - [rha 3 3] named "DIFF 3u3"
output [rha 3 4 adv] - [rha 3 4] named "DIFF 3u4"
output [rha 3 5 adv] - [rha 3 5] named "DIFF 3u5"
output [rha 3 6 adv] - [rha 3 6] named "DIFF 3u5"
output [rha 4 4 adv] - [rha 4 4] named "DIFF 4u4"
output [rha 4 5 adv] - [rha 4 5] named "DIFF 4u5"
output [rha 4 6 adv] - [rha 4 6] named "DIFF 4u5"
output [rha 5 5 adv] - [rha 5 5] named "DIFF 5u5"
output [rha 5 6 adv] - [rha 5 6] named "DIFF 5u5"
output [rha 6 6 adv] - [rha 6 6] named "DIFF 6u5"