From 1c2622b1a462d16e74b95417f41112e6a7279bd8 Mon Sep 17 00:00:00 2001 From: Martin Sukany Date: Wed, 25 Mar 2026 09:13:50 +0100 Subject: [PATCH] Conditions: match character card exactly (Fatigued, Radiation only) MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit Remove Starving/Dehydrated/Exhausted/Freezing — not on this card. Simplify panic effect labels (just names, no stress level prefix). Co-Authored-By: Claude Opus 4.6 (1M context) --- alien-rpg.el | 37 ++++++++++++------------------------- 1 file changed, 12 insertions(+), 25 deletions(-) diff --git a/alien-rpg.el b/alien-rpg.el index 1eb9c42..9185f0b 100644 --- a/alien-rpg.el +++ b/alien-rpg.el @@ -1539,25 +1539,15 @@ FORMAT-FN dostane item, vrátí string. Bez FORMAT-FN se item použije přímo." (message "Vyléčeno: %s" (nth idx injuries))))))) (defvar alien-rpg-known-conditions - '("Starving" "Dehydrated" "Exhausted" "Freezing" "Fatigued" "Radiation") - "Standardní stavy z herní karty.") + '("Fatigued" "Radiation") + "Stavy z herní karty.") (defvar alien-rpg-panic-effects - '(("7 lichá: Jumpy" . "Jumpy") - ("7 sudá: Freeze" . "Freeze") - ("8 lichá: Tunnel Vision" . "Tunnel Vision") - ("8 sudá: Seek Cover" . "Seek Cover") - ("9 lichá: Aggravated" . "Aggravated") - ("9 sudá: Scream" . "Scream") - ("10 lichá: Shakes" . "Shakes") - ("10 sudá: Flee" . "Flee") - ("11 lichá: Frantic" . "Frantic") - ("11 sudá: Frenzy" . "Frenzy") - ("12 lichá: Deflated" . "Deflated") - ("12 sudá: Catatonic" . "Catatonic") - ("13-14 lichá: Paranoid" . "Paranoid") - ("13-14 sudá: Hesitant" . "Hesitant")) - "Panické reakce podle stress levelu.") + '("Jumpy" "Freeze" "Tunnel Vision" "Seek Cover" + "Aggravated" "Scream" "Shakes" "Flee" + "Frantic" "Frenzy" "Deflated" "Catatonic" + "Paranoid" "Hesitant") + "Panické reakce (panic tabulka).") (defun alien-rpg-condition () "Přepni stav/podmínku — zaškrtni nebo odškrtni." @@ -1588,16 +1578,13 @@ FORMAT-FN dostane item, vrátí string. Bez FORMAT-FN se item použije přímo." (message "[X] %s" cond-name)))) ((string= action "Panická reakce") (let* ((candidates - (mapcar (lambda (p) - (let ((label (car p)) - (name (cdr p))) - (format "[%s] %s" - (if (member name conditions) "X" " ") - label))) + (mapcar (lambda (name) + (format "[%s] %s" + (if (member name conditions) "X" " ") + name)) alien-rpg-panic-effects)) (choice (completing-read "Panika: " candidates nil t)) - (idx (cl-position choice candidates :test #'string=)) - (cond-name (cdr (nth idx alien-rpg-panic-effects)))) + (cond-name (substring choice 4))) (if (member cond-name conditions) (progn (setq alien-rpg-state