martin/allienrpg_03_2026
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Conditions: match character card exactly (Fatigued, Radiation only)

Browse Source 
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) <noreply@anthropic.com>
This commit is contained in:
Martin Sukany
2026-03-25 09:13:50 +01:00
parent ea8c770071
commit 1c2622b1a4
1 changed files with 12 additions and 25 deletions
Download Patch File Download Diff File Expand all files Collapse all files

37
alien-rpg.el
View File

@@ -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