Implement teleporting bullets

2022-02-21 20:51:01 +00:00
parent 724ee21afc
commit f626fce105
23 changed files with 245 additions and 154 deletions
@@ -17,6 +17,7 @@ import Shape

 import Control.Lens
 import qualified Data.IntMap.Strict as IM
+import qualified Data.Map.Strict as M
 import qualified Data.Vector as V
 import Data.List
 --import Data.Monoid
@@ -154,10 +155,7 @@ defaultEquipment = Item
    , _itParams = NoParams
    , _itTweaks = NoTweaks
    , _itTargeting = Nothing
-    , _itModules = ItemModules 
-        { _modHitEffect = BlockedModule
-        , _modRifleMag = BlockedModule
-        }
+    , _itModules = M.empty 
    }
 defaultItZoom :: ItZoom
 defaultItZoom = ItZoom 20 0.2 1
@@ -181,10 +179,7 @@ defaultConsumable = Item
    , _itParams = NoParams
    , _itDimension = defItDimCol blue
    , _itTweaks = NoTweaks
-    , _itModules = ItemModules 
-        { _modHitEffect = BlockedModule
-        , _modRifleMag = BlockedModule
-        }
+    , _itModules = M.empty 
    }
 defaultApplyDamage :: [DamageType] -> Creature -> (World -> World, Creature)
 defaultApplyDamage ds cr = (id, doPoisonDam $ foldl' (flip $ \d c -> snd $ applyIndividualDamage d c) cr ds')