Browse Source

Adapt to a new version of Black Wolf character sheet

master
parent
commit
5c0739ffc8
2 changed files with 23 additions and 23 deletions
  1. BIN
      resources/blackwolf-charactersheet.pdf
  2. +23
    -23
      src/cljx/character_suite/character/blackwolf.cljx

BIN
resources/blackwolf-charactersheet.pdf View File


+ 23
- 23
src/cljx/character_suite/character/blackwolf.cljx View File

@@ -31,17 +31,17 @@
{:name "Swim", :base 20, :position 18},
{:name "Track", :base 10, :position 19},
;; Weapon skills
{:name "Brawl", :base 30, :position [181 360]},
{:name "Short blades", :base 20, :position [181 337]},
{:name "Medium weapons", :base 20, :position [181 314]},
{:name "Two-hand weapons", :base 15, :position [348 360]},
{:name "Bows & crossbows", :base 10, :position [348 337]},
{:name "Thrown weapons", :base 15, :position [348 314]},
{:name "Brawl", :base 30, :position [181 249]},
{:name "Short blades", :base 20, :position [181 226]},
{:name "Medium weapons", :base 20, :position [181 203]},
{:name "Two-hand weapons", :base 15, :position [348 249]},
{:name "Bows & crossbows", :base 10, :position [348 226]},
{:name "Thrown weapons", :base 15, :position [348 203]},
{:name "Dodge",
:base (fn [character]
(/ (get-in character [:characteristics :dex])
2)),
:position [514 250]}])
:position [514 139]}])

(def non-standard-skill-slots
[20 21 22 23])
@@ -169,13 +169,13 @@
(:skills props)))}])

(def characteristics-pdf-positions
{:str [105 703]
:dex [105 674]
:con [105 644]
:int [205 703]
:per [205 674]
:pow [205 644]
:cha [149 614]})
{:str [105 708]
:dex [105 678]
:con [105 648]
:int [205 708]
:per [205 678]
:pow [205 648]
:cha [149 618]})

#+clj (defn hitpoints [str con]
(int (/ (+ (Integer. con) (Integer. str))
@@ -200,14 +200,14 @@
(+ 181 (* (/ 335 2) (quot position 8))))
y (if (coll? position)
(second position)
(- 564 (* (/ 157.5 7) (mod position 8))))]
(- 453 (* (/ 157.5 7) (mod position 8))))]
[[:text (str value) x y 14]
[:text (str half) (+ x 19) (+ y 6) 9]
[:text (str fifth) (+ x 19) (- y 3.5) 9]]))

(defn- skill-name [position name font-size]
(let [x (+ 65 (* (/ 334 2) (quot position 8)))
y (- 560 (* (/ 157.5 7) (mod position 8)))]
y (- 449 (* (/ 157.5 7) (mod position 8)))]
[:text name x y font-size :left 100]))

#+clj (defn- all-character-skills [character]
@@ -253,16 +253,16 @@
(let [characteristics (:characteristics props)]
(concat
[[:text (:name props) 298 779 14 :left 200]
[:text (str (:age props) "/" (:sex props)) 519 779 14 :left 22]
[:text (str (:age props) "/" (:sex props)) 519 779 14 :left 25]
[:text (:class props) 325 760 14 :left 93]
[:text (:cult props) 449 760 14 :left 93]
[:text (:cult props) 449 760 14 :left 100]
[:text (:place-origin props) 344 741 14 :left 196]
[:text (get-in props [:complications :complication1]) 52 132 14 :left 135]
[:text (get-in props [:complications :complication2]) 52 111 14 :left 135]
[:text (get-in props [:complications :complication3]) 52 90 14 :left 135]
[:text (hitpoints (:str characteristics) (:con characteristics)) 438 135 16]
[:text (get-in props [:complications :complication1]) 52 562 14 :left 135]
[:text (get-in props [:complications :complication2]) 52 541 14 :left 135]
[:text (get-in props [:complications :complication3]) 52 520 14 :left 135]
[:text (hitpoints (:str characteristics) (:con characteristics)) 438 565 16]
;; Initial mental stability
[:text (:pow characteristics) 298 135 16]]
[:text (:pow characteristics) 298 565 16]]
(all-character-characteristics props)
(all-character-skills props))))



Loading…
Cancel
Save