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

Dice calc: fix colors — black base + yellow stress (Alien RPG rules)

Browse Source 
Co-Authored-By: Claude Opus 4.6 (1M context) <noreply@anthropic.com>
This commit is contained in:
Martin Sukany
2026-03-24 18:24:58 +01:00
parent 3c6c347a99
commit d6325adead
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
alien-rpg.el
View File

@@ -1240,7 +1240,7 @@ Průlezy G<->H: G3<->H3, G4<->H4, G7<->H7, G8<->H8, G9<->H9
(skill-val (plist-get (plist-get alien-rpg-character :skills) key)) (skill-val (plist-get (plist-get alien-rpg-character :skills) key))
(base (+ attr-val skill-val)) (base (+ attr-val skill-val))
(attr-abbr (cdr (assq attr-key alien-rpg-attr-abbrevs)))) (attr-abbr (cdr (assq attr-key alien-rpg-attr-abbrevs))))
(cons (format "%-18s %d zlute + %d cerne = %d celkem" (cons (format "%-18s %d cerne + %d zlute = %d celkem"
name base stress (+ base stress)) name base stress (+ base stress))
(list name base attr-abbr attr-val skill-val)))) (list name base attr-abbr attr-val skill-val))))
alien-rpg-skill-attributes)) alien-rpg-skill-attributes))
@@ -1252,8 +1252,8 @@ Průlezy G<->H: G3<->H3, G4<->H4, G7<->H7, G8<->H8, G9<->H9
(let ((inhibit-read-only t)) (let ((inhibit-read-only t))
(erase-buffer) (erase-buffer)
(insert (format "%s\n" name)) (insert (format "%s\n" name))
(insert (format "%d zlutych kostek (zaklad)\n" base)) (insert (format "%d cernych kostek (zaklad)\n" base))
(insert (format "%d cernych kostek (stress)\n" stress)) (insert (format "%d zlutych kostek (stress)\n" stress))
(insert (format "%d kostek celkem\n" (+ base stress)))) (insert (format "%d kostek celkem\n" (+ base stress))))
(goto-char (point-min)) (goto-char (point-min))
(special-mode)) (special-mode))