Dice calc: subtract stress from base dice pool

SPC G r now shows: base - stress = effective dice
e.g. "Ranged Combat: 7 zaklad - 2 stress = 5 kostek"

Co-Authored-By: Claude Opus 4.6 (1M context) <noreply@anthropic.com>
This commit is contained in:
2026-03-24 17:34:05 +01:00
parent 95dd5f769d
commit 8d6098ff83

View File

@@ -1247,8 +1247,9 @@ Průlezy G<->H: G3<->H3, G4<->H4, G7<->H7, G8<->H8, G9<->H9
(name (nth 0 data))
(total (nth 1 data))
(stress (plist-get alien-rpg-state :stress)))
(message "%s: %d základ + %d stress = %d kostek celkem"
name total stress (+ total stress))))
(let ((effective (max 0 (- total stress))))
(message "%s: %d základ - %d stress = %d kostek"
name total stress effective))))
(defun alien-rpg-add-injury (injury)
"Přidej zranění."