Move flame into its own datatype

2022-07-18 22:41:40 +01:00
parent c14b3ff787
commit 54ba0fbedc
29 changed files with 444 additions and 318 deletions
@@ -0,0 +1,19 @@
+{-# LANGUAGE StrictData #-}
+module Dodge.Data.Damage.Type where
+data DamageType 
+    = PIERCING 
+    | BLUNT    
+    | CUTTING  
+    | SPARKING
+    | CRUSHING
+    | SHATTERING
+    | FLAMING  
+    | LASERING 
+    | ELECTRICAL
+    | EXPLOSIVE
+    | CONCUSSIVE
+    | TORQUEDAM 
+    | PUSHDAM   
+    | POISONDAM 
+    | ENTERREMENT
+  deriving (Eq,Ord,Show,Read,Enum,Bounded)