From d6325adeadb844ef378ed0c118c67a0a44150900 Mon Sep 17 00:00:00 2001 From: Martin Sukany Date: Tue, 24 Mar 2026 18:24:58 +0100 Subject: [PATCH] =?UTF-8?q?Dice=20calc:=20fix=20colors=20=E2=80=94=20black?= =?UTF-8?q?=20base=20+=20yellow=20stress=20(Alien=20RPG=20rules)?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit Co-Authored-By: Claude Opus 4.6 (1M context) --- alien-rpg.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/alien-rpg.el b/alien-rpg.el index 7db6c63..834104f 100644 --- a/alien-rpg.el +++ b/alien-rpg.el @@ -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)) (base (+ attr-val skill-val)) (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)) (list name base attr-abbr attr-val skill-val)))) 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)) (erase-buffer) (insert (format "%s\n" name)) - (insert (format "%d zlutych kostek (zaklad)\n" base)) - (insert (format "%d cernych kostek (stress)\n" stress)) + (insert (format "%d cernych kostek (zaklad)\n" base)) + (insert (format "%d zlutych kostek (stress)\n" stress)) (insert (format "%d kostek celkem\n" (+ base stress)))) (goto-char (point-min)) (special-mode))