Add force field gun

2022-05-26 13:17:51 +01:00
parent 58427da0c4
commit 5c41e2823e
7 changed files with 56 additions and 12 deletions
@@ -103,8 +103,10 @@ setWristShieldPos itm cr w = w
    invid = fromJust (_itInvPos itm)
    --wlline = (V2 10 0, V2 (-10) 100)
    handtrans = case cr ^? crInvEquipped . ix invid of
-        Just OnLeftWrist -> translatePointToLeftHand
+        Just OnLeftWrist -> \cr' -> translatePointToLeftHand cr' . g
        _ -> translatePointToRightHand
+    g | twists cr = (+.+.+ V3 (-5) 10 0)
+      | otherwise = id
    f = (+.+ _crPos cr) . stripZ . rotate3 (_crDir cr) . handtrans cr

 spicForWrist :: SPic -> Creature -> Item -> SPic