Reinstate HammerTrigger (no weapons use it currently)

src/Dodge/Creature/State.hs

@@ -159,7 +159,7 @@ invItemLocUpdate cr loc w = doAnyEquipmentEffect loc cr $ case itm ^. itType of
     HELD FLATSHIELD -> rootNotrootEff createShieldWall removeShieldWall itm cr w
     HELD MINIGUNX{} -> coolMinigun itm w
     HELD MACHINEPISTOL{} -> coolMachinePistol cr itm w
-    HELD LASER | loc ^. locDT . dtValue . _2 == WeaponTargetingSF
+    LASER | loc ^. locDT . dtValue . _2 == WeaponTargetingSF
         , itm ^? itLocation . ilIsAttached == Just True -> shineTargetLaser cr loc w
     HELD TORCH 
         | itm ^? itLocation . ilIsAttached == Just True -> shineTorch cr loc w

src/Dodge/Creature/Statistics.hs

@@ -66,6 +66,7 @@ strFromHeldItem cr = fromMaybe 0 $ do
 itemWeight :: Item -> Int
 itemWeight it = case it ^. itType of
     HELD hit -> heldItemWeight hit
+    LASER -> 15
     _ -> 1
 
 heldItemWeight :: HeldItemType -> Int
@@ -99,7 +100,6 @@ heldItemWeight = \case
     BLOWTORCH -> 10
     SPARKGUN -> 15
     TESLAGUN -> 15
-    LASER -> 15
     TRACTORGUN -> 10
     RLAUNCHER -> 20
     RLAUNCHERX{} -> 20

src/Dodge/Creature/YourControl.hs

@@ -172,6 +172,7 @@ aimTurn a cr = creatureTurnTowardDir a (x * 0.2) cr
 itemBulkiness :: ItemType -> Float
 itemBulkiness = \case
     HELD hit -> heldItemBulkiness hit
+    LASER -> 1
     _ -> 1
 
 heldItemBulkiness :: HeldItemType -> Float
@@ -205,7 +206,6 @@ heldItemBulkiness = \case
     BLOWTORCH -> 1
     SPARKGUN -> 1
     TESLAGUN -> 1
-    LASER -> 1
     TRACTORGUN -> 1
     RLAUNCHER -> 0.9
     RLAUNCHERX{} -> 0.9