WIP ranged combat

.ok

@@ -0,0 +1,2 @@
+test: elm-test --compiler lamdera
+watch: elm-test --compiler lamdera --watch

src/Backend.elm

@@ -1895,6 +1895,9 @@ oneTimePerkEffects currentTime =
 
                 Perk.NightVision ->
                     Nothing
+
+                Perk.BonusRangedDamage ->
+                    Nothing
     in
     Perk.all
         |> List.filterMap (\perk -> oneTimeEffect perk |> Maybe.map (Tuple.pair perk))

src/Data/Enemy.elm

@@ -3,7 +3,7 @@ module Data.Enemy exposing
     , actionPoints
     , addedSkillPercentages
     , aimedShotName
-    , allTypes
+    , all
     , criticalSpec
     , damageResistanceNormal
     , damageThresholdNormal
@@ -17,6 +17,7 @@ module Data.Enemy exposing
     , forSmallChunk
     , hp
     , humanAimedShotName
+    , isLivingCreature
     , manCriticalSpec
     , meleeDamageBonus
     , name
@@ -114,24 +115,24 @@ type Type
     | Radscorpion
 
 
-allTypes : List Type
-allTypes =
-    [ Brahmin
+all : List Type
+all =
+    [ SilverGecko
+    , ToughSilverGecko
+    , GoldenGecko
+    , ToughGoldenGecko
+    , FireGecko
+    , ToughFireGecko
+    , Brahmin
     , AngryBrahmin
     , WeakBrahmin
     , WildBrahmin
     , GiantAnt
     , ToughGiantAnt
+    , BlackRadscorpion
+    , LesserBlackRadscorpion
     , LesserRadscorpion
     , Radscorpion
-    , LesserBlackRadscorpion
-    , BlackRadscorpion
-    , SilverGecko
-    , ToughSilverGecko
-    , GoldenGecko
-    , ToughGoldenGecko
-    , FireGecko
-    , ToughFireGecko
     ]
 
 
@@ -3740,3 +3741,55 @@ dropItemsGenerator { items } =
             )
         |> Random.sequence
         |> Random.map Maybe.values
+
+
+isLivingCreature : Type -> Bool
+isLivingCreature type_ =
+    case type_ of
+        SilverGecko ->
+            True
+
+        ToughSilverGecko ->
+            True
+
+        GoldenGecko ->
+            True
+
+        ToughGoldenGecko ->
+            True
+
+        FireGecko ->
+            True
+
+        ToughFireGecko ->
+            True
+
+        Brahmin ->
+            True
+
+        AngryBrahmin ->
+            True
+
+        WeakBrahmin ->
+            True
+
+        WildBrahmin ->
+            True
+
+        GiantAnt ->
+            True
+
+        ToughGiantAnt ->
+            True
+
+        BlackRadscorpion ->
+            True
+
+        LesserBlackRadscorpion ->
+            True
+
+        LesserRadscorpion ->
+            True
+
+        Radscorpion ->
+            True

src/Data/Fight.elm

@@ -14,6 +14,7 @@ module Data.Fight exposing
     , isCriticalAttack
     , isMiss
     , isNPC
+    , isOpponentLivingCreature
     , isPlayer
     , opponentName
     , opponentXp
@@ -604,3 +605,13 @@ isMiss action =
 
         _ ->
             False
+
+
+isOpponentLivingCreature : Opponent -> Bool
+isOpponentLivingCreature opponent =
+    case opponent.type_ of
+        Npc enemy ->
+            Enemy.isLivingCreature enemy
+
+        Player _ ->
+            True

src/Data/Fight/DamageType.elm

@@ -0,0 +1,11 @@
+module Data.Fight.DamageType exposing (DamageType(..))
+
+
+type DamageType
+    = NormalDamage
+    | Fire
+    | Explosion
+    | Laser
+    | Plasma
+    | Electrical
+    | EMP