diff options
| -rw-r--r-- | src/votann/models/leagues_of_votann.clj | 24 | ||||
| -rw-r--r-- | src/votann_battle_simulator/weapon_abilities.clj | 16 |
2 files changed, 28 insertions, 12 deletions
diff --git a/src/votann/models/leagues_of_votann.clj b/src/votann/models/leagues_of_votann.clj index a27c2b4..e9655cf 100644 --- a/src/votann/models/leagues_of_votann.clj +++ b/src/votann/models/leagues_of_votann.clj @@ -6,7 +6,7 @@ [votann.records.points Points])) (def uthar-the-destined (Model. "Ûthar the Destined" 5 5 3 5 7 1 - (Points. "x1" 115) + (Points. "x1" 90) [weapon/volkanite-disintegrator-khal] [weapon/blade-of-the-ancestors] {:core ["Leader"] @@ -30,7 +30,7 @@ "As the most accomplished hero of the Greater Thurian League, Kahl Ûthar the Destined is marked for greatness. Few can assess the foe as swiftly or mercilessly as Ûthar and - once he has his enemies' measure- he soon cuts them to pieces with the glowing Blade of the Ancestors.")) (def khal (Model. "Khâl" 5 5 3 4 7 1 - (Points. "x1" 90) + (Points. "x1" 70) [weapon/autoch-pattern-combi-bolter weapon/volkanite-disintegrator-khal] [weapon/forgewrought-plasma-axe weapon/mass-guantlet] {:core ["Leader"] @@ -54,7 +54,7 @@ "Most Oathbands are led by a Khâl, whose strategic wisdom, determination and martial might are an inspiration to their warriors. Khâls are often equipped with especially powerful weapons and potent field or teleportation technologies, the better to lead the fight from the front and bring down the deadliest foes.")) (def einhyr-champion (Model. "Einhyr Champion" 5 6 2 5 7 1 - (Points. "x1" 75) + (Points. "x1" 60) [weapon/autoch-pattern-combi-bolter] [weapon/mass-hammer weapon/darkstar-axe] {:core ["Leader"] @@ -88,7 +88,7 @@ "")) (def grimnyr (Model. "Grimnyr" 5 5 4 4 6 1 - (Points. "x3" 75) + (Points. "x3" 65) [weapon/ancestral-wrath-witchfire weapon/ancestral-wrath-focused-witchfire] [weapon/ancestral-ward-stave] {:core ["Leader"] @@ -134,7 +134,7 @@ "")) (def brokyr-iron-master (Model. "Brôkhyr Iron-Master" 5 5 4 4 7 1 - (Points. "x3" 95) + (Points. "x3" 65) [weapon/graviton-rifle] [weapon/graviton-hammer] {:core ["Leader"] @@ -156,7 +156,7 @@ "Iron-masters are the most accomplished Brôkhyrs of their Kindred. In battle, they take on the duty of maintaining damaged Kin war engines, often aided by Ironkin and COG repair crews. These verteran Brôkhyrs also bring their most powerful personal creations to war, taking satisfaction in unleashing them upon the foe.")) (def hearthkyn-warriors (Model. "Hearthkyn Warriors" 5 5 4 1 7 2 - (Points. "x10" 135) + (Points. "x10" 110) [weapon/autoch-pattern-bolt-pistol weapon/autoch-pattern-bolter weapon/etacarm-plasma-beamer @@ -192,7 +192,7 @@ "Well-armoured, well-trained and equipped with an array of powerful weaponry, Hearthkyn Warriors form the backbone of most Oathbands. Led by their Theyns, they lay down hails of firepower, shrugging off the enemy's return volleys before storming in to shatter their wavering foes for good.")) (def einhyr-hearthguard (Model. "Einhyr Hearthguard" 5 5 3 5 7 1 - (Points. "x5" 165) + (Points. "x5" 150) [weapon/etacarm-plasma-gun weapon/exo-armour-grenade-launcher weapon/volkanite-disintegrator-hearthgurad] @@ -217,7 +217,7 @@ "Clad in formidable exo-armour and equipped with a fearsome array of weaponry, Einhyr Hearthguard are a force to be reckoned with. Whether forming bodyguard around their Oathband's heroes or striking deep into the heart of enemy territory, they are unstoppable on the attack and immovable in defence.")) (def cthonian-beserks (Model. "Cthonian Beserks" 5 5 6 2 7 1 - (Points. "x5" 135) + (Points. "x5" 100) [weapon/mole-grenade-launcher] [weapon/heavy-plasma-axe-strike weapon/heavy-plasma-axe-sweep @@ -243,7 +243,7 @@ (def hernkyn-pioneers (Model. "Hernkyn Pioneers" 12 6 4 3 7 2 - (Points. "x3" 105) + (Points. "x3" 90) [weapon/bolt-revolver weapon/bolt-shotgun weapon/magna-coil-autocannon @@ -271,7 +271,7 @@ "Hernkyn Pioneers skim across alien worlds and scout enemey positions, riding on their magna-coil bikes. Fast, resilient, and possessed of formidable firepower, these far ranging bands of warriors often strike at the foe from unexpected quarters, or send back intelligence on enemy movements to their Oathban's Kahl.")) (def sagitaur (Model. "Sagitaur" 12 10 3 9 7 3 - (Points. "x1" 120) + (Points. "x1" 100) [weapon/hylas-beam-cannon weapon/twin-bolt-cannon weapon/l7-missile-launcher-blast @@ -294,7 +294,7 @@ "Designed to survive the worst that hostile worlds and alien predators can throw at it, the Sagitaur is a rugged ATV ideally suited to scouting operations and switft, armoured offensives. Sagitaurs mount a remarkable amount of firepowr for their size, and can even knock out enemey battle tanks.")) (def brokyr-thunderkyn (Model. "Brôkhyr Thunderkyn" 5 6 3 3 6 1 - (Points. "x3" 95) + (Points. "x3" 75) [weapon/bolt-cannon weapon/graviton-blast-cannon weapon/sp-conversion-beamer] @@ -313,7 +313,7 @@ "When a Brôkhyr hooks into a powerful exo-frame, they become Thunderkyn. Adapted from void-rigs used to maintain Kin spacecraft, these armoured exoskeletons exchange repair tools for massive heavy weapons, which the Brôkhyr use to lay down withering covering fire for the Oathbands and to pick off enemey armour.")) (def hekaton-land-fortress (Model. "Hekaton Land Fortress" 10 12 2 16 7 5 - (Points. "x1" 245) + (Points. "x1" 225) [weapon/cyclic-ion-cannon weapon/matr-autocannon weapon/twin-bolt-cannon diff --git a/src/votann_battle_simulator/weapon_abilities.clj b/src/votann_battle_simulator/weapon_abilities.clj index 2fb681f..146b682 100644 --- a/src/votann_battle_simulator/weapon_abilities.clj +++ b/src/votann_battle_simulator/weapon_abilities.clj @@ -65,6 +65,16 @@ (println "Dice count before " dice " after " rapid-fire-added) rapid-fire-added))) +(defn conversion [dice range] + (if (> range 12) + (let [conversion-added (map (fn [roll] + (if (>= roll 4) + 6 + roll)) dice)] + (println "Hit count before " dice " after " conversion-added) + conversion-added) + dice)) + (defn sustained-hits [modifier dice] (let [critical (count (filter #(= 6 %) dice))] (cond @@ -116,6 +126,12 @@ dice-rolls (let [ability (first abilities)] (cond + (not (nil? (re-find #"Conversion" ability))) + (do + (println "Applied Conversion hit ability for " (:name weapon)) + (recur (rest abilities) + (conversion dice-rolls 24))) + (not (nil? (re-find #"Sustained Hits" ability))) (do (println "Applied Sustained Hits hit ability for " (:name weapon)) |