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

Weapons/armor: rename fields to match herní karta columns

Browse Source 
Weapons: :bonus → :modifier, Armor: :rating → :level.
Character data verified against herní karta — all matches.

Co-Authored-By: Claude Opus 4.6 (1M context) <noreply@anthropic.com>
This commit is contained in:
Martin Sukany
2026-03-24 18:37:18 +01:00
parent 333182ecf6
commit 08867a378c
2 changed files with 11 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
alien-rpg.el
View File

@@ -1087,9 +1087,9 @@ Průlezy G<->H: G3<->H3, G4<->H4, G7<->H7, G8<->H8, G9<->H9
(progn
(insert "Zbraně:\n")
(dolist (w weapons)
(insert (format " %s +%s/DMG%s/%s/%sks/W%s\n"
(insert (format " %s mod%+d/DMG%d/%s/%dks/W%d\n"
(plist-get w :name)
(or (plist-get w :bonus) 0)
(or (plist-get w :modifier) 0)
(or (plist-get w :damage) 0)
(or (plist-get w :range) "?")
(or (plist-get w :ammo) 0)
@@ -1098,9 +1098,9 @@ Průlezy G<->H: G3<->H3, G4<->H4, G7<->H7, G8<->H8, G9<->H9
;; Brneni
(insert (format "Brnění: %s\n"
(if armor
(format "%s (%s/W%s)"
(format "%s (L%d/W%d)"
(or (plist-get armor :name) "?")
(or (plist-get armor :rating) 0)
(or (plist-get armor :level) 0)
(or (plist-get armor :weight) 0))
"--")))
;; Zraneni a stavy
@@ -1279,28 +1279,28 @@ Průlezy G<->H: G3<->H3, G4<->H4, G7<->H7, G8<->H8, G9<->H9
"Přidej zbraň se všemi parametry."
(interactive)
(let* ((name (read-string "Zbraň: "))
(bonus (read-number "Bonus: " 0))
(modifier (read-number "Modifier: " 0))
(damage (read-number "Damage: " 1))
(range (completing-read "Range: " '("Engaged" "Short" "Medium" "Long" "Extreme") nil t))
(ammo (read-number "Ammo (0=neomezeno): " 0))
(weight (read-number "Weight: " 1))
(weapon (list :name name :bonus bonus :damage damage
(weapon (list :name name :modifier modifier :damage damage
:range range :ammo ammo :weight weight)))
(setq alien-rpg-state (plist-put alien-rpg-state :weapons
(append (plist-get alien-rpg-state :weapons) (list weapon))))
(alien-rpg--autosave)
(message "Zbraň: %s +%d/DMG%d/%s" name bonus damage range)))
(message "Zbraň: %s mod%+d/DMG%d/%s" name modifier damage range)))
(defun alien-rpg-add-armor ()
"Nastav brnění."
(interactive)
(let* ((name (read-string "Brnění: "))
(rating (read-number "Rating: " 1))
(level (read-number "Level: " 1))
(weight (read-number "Weight: " 1))
(armor (list :name name :rating rating :weight weight)))
(armor (list :name name :level level :weight weight)))
(setq alien-rpg-state (plist-put alien-rpg-state :armor armor))
(alien-rpg--autosave)
(message "Brnění: %s (%d/W%d)" name rating weight)))
(message "Brnění: %s (L%d/W%d)" name level weight)))
(defun alien-rpg-add-condition ()
"Přidej stav (Fatigued, Radiation, ...)."