"Player Statistics": Harlowe (v2.0)

Summary

One of the most popular mechanics of table-top role-playing games are those where the player must determine their in-game statistics and then use them to make decisions.

In this example, the (link-repeat:) macro is used multiple times with (replace:) and (set:) macros based on if they are higher than a target value. In a second passage, these values are used in combination with a random number between 1 to 6, mimicking a common 1d6 mechanic to check if a value is above a target number.

Example

Download

Twee Code

:: StoryTitle
Player Statistics in Harlowe

:: Start
Empathy: {
  (link-repeat: "|+|")[
    (if: $totalPoints > 0)[
    (set: $empathy to it + 1)
    (set: $totalPoints to it - 1)
    (replace: ?empathyStat)[|empathyStat>[$empathy]]
    (replace: ?pointsStat)[|pointsStat>[$totalPoints]]
    ]
  ]

  (link-repeat: "|-|")[
    (if: $empathy > 0)[
    (set: $empathy to it - 1)
    (set: $totalPoints to it + 1)
    (replace: ?empathyStat)[|empathyStat>[$empathy]]
    (replace: ?pointsStat)[|pointsStat>[$totalPoints]]
    ]
  ]
}
Intelligence: {
  (link-repeat: "|+|")[
    (if: $totalPoints > 0)[
    (set: $intelligence to it + 1)
    (set: $totalPoints to it - 1)
    (replace: ?intelligenceStat)[|intelligenceStat>[$intelligence]]
    (replace: ?pointsStat)[|pointsStat>[$totalPoints]]
    ]
  ]

  (link-repeat: "|-|")[
    (if: $intelligence > 0)[
    (set: $intelligence to it - 1)
    (set: $totalPoints to it + 1)
    (replace: ?intelligenceStat)[|intelligenceStat>[$intelligence]]
    (replace: ?pointsStat)[|pointsStat>[$totalPoints]]
    ]
  ]
}
{
  (link-repeat: "|Reset Points|")[
    (set: $empathy to 10)
    (set: $intelligence to 10)
    (set: $totalPoints to 5)
    (replace: ?empathyStat)[|empathyStat>[$empathy]]
    (replace: ?intelligenceStat)[|intelligenceStat>[$intelligence]]
    (replace: ?pointsStat)[|pointsStat>[$totalPoints]]
  ]
}

Empathy: |empathyStat>[10]
Intelligence: |intelligenceStat>[10]
Remaining Points: |pointsStat>[5]

[[Test Stats]]

:: Test Stats
(link: "Make an intelligence check?")[
  (set: _result to (random: 1, 6) + $intelligence)
  (if: _result >= 15)[
  Intelligence Success! (_result >= 15)
  ](else:)[
  Intelligence Failure! (_result < 15)
  ]
]
(link: "Make an empathy check?")[
  (set: _result to (random: 1, 6) + $empathy)
  (if: _result >= 15)[
  Empathy Success! (_result >= 15)
  ](else:)[
  Empathy Failure! (_result < 15)
  ]
]

:: Startup[startup]
(set: $empathy to 10)
(set: $intelligence to 10)
(set: $totalPoints to 5)

Twee Download

See Also

Conditional Statements, Setting and Showing