Add file

2025-06-06 13:36:38 +01:00
parent 0f55257bff
commit 05f250f928
3 changed files with 47 additions and 0 deletions
@@ -0,0 +1,16 @@
+{-# LANGUAGE LambdaCase #-}
+module Dodge.Creature.Radius (crRad)
+    where
+
+import Dodge.Data.Creature.Misc
+
+crRad :: CreatureType -> Float
+{-# INLINE crRad #-}
+crRad = \case
+    Avatar {} -> 10
+    AvatarDead -> 10
+    ChaseCrit {} -> 10
+    SwarmCrit -> 2
+    AutoCrit -> 10
+    BarrelCrit{} -> 10
+    LampCrit {} -> 3