Fix bug in attached item position orienting

This commit is contained in:
2024-10-02 22:57:10 +01:00
parent 6bcd5bc591
commit 49ffbfafc2
8 changed files with 105 additions and 97 deletions
+2 -2
View File
@@ -4,7 +4,6 @@ import qualified IntMapHelp as IM
import Control.Lens
import Dodge.Data.World
import Dodge.Euse
import Dodge.LightSource.Torch
doInvEffect :: ItInvEffect -> Item -> Creature -> World -> World
doInvEffect iie = case iie of
@@ -65,4 +64,5 @@ chargeIfEquipped itm cr
maxcharge = itm ^?! itUse . leftConsumption . wpMaxCharge
createHeldLight :: Item -> Creature -> World -> World
createHeldLight itm cr = createTorchLightOffset cr itm 0
createHeldLight itm cr = id
--createHeldLight itm cr = createTorchLightOffset cr itm 0