Allow for bullet drag

2021-12-02 18:29:46 +00:00
parent 85ededc158
commit 8b8d75b016
35 changed files with 362 additions and 228 deletions
@@ -106,8 +106,8 @@ creatureTurnToward p turnSpeed cr
 equipSpeed :: Item -> Float
 equipSpeed _ = 1
 {- | Speed modifier of an item when aiming. -}
-equipAimSpeed :: Item -> Float
+equipAimSpeed :: Item -> Float -- TODO remove/rethink
 equipAimSpeed it 
-    | _itIdentity it == FrontArmour = 0.5
-    | _itIdentity it == FlameShield = 0.5
+    | _itCombineType it == FRONTARMOUR = 0.5
+    | _itCombineType it == FLAMESHIELD = 0.5
    | otherwise                     = 1