justin/loop
1
0
Fork 0
Code Issues Pull Requests 1 Packages Projects Releases Wiki Activity

Fix wristArmour drop bug

Browse Source
This commit is contained in:
justin
2023-02-23 14:35:17 +00:00
parent 683acf8a05
commit c5bfa36bde
2 changed files with 6 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Dodge/Euse.hs
+4 -2
View File
@@ -80,9 +80,11 @@ onEquipWristShield itm cr w =
onRemoveWristShield :: Item -> Creature -> World -> World onRemoveWristShield :: Item -> Creature -> World -> World
onRemoveWristShield itm _ = onRemoveWristShield itm _ =
(pointerToItem itm . itUse . equipEffect . eeParams .~ NoEquipParams) . deleteWallID i (pointerToItem itm . itUse . equipEffect . eeParams .~ NoEquipParams) . mremovewall
where where
i = _eparamID $ _eeParams $ _equipEffect $ _itUse itm mremovewall = fromMaybe id $ do
i <- itm ^? itUse . equipEffect . eeParams . eparamID
return $ deleteWallID i
setWristShieldPos :: Item -> Creature -> World -> World setWristShieldPos :: Item -> Creature -> World -> World
setWristShieldPos itm cr w = setWristShieldPos itm cr w =
src/Dodge/Render/HUD.hs
+2 -1
View File
@@ -134,7 +134,8 @@ drawNoSubInventory cfig w =
invid <- cr ^. crLeftInvSel . lisMPos invid <- cr ^. crLeftInvSel . lisMPos
sss <- w ^? hud . hudElement . diSections sss <- w ^? hud . hudElement . diSections
pos <- selSecSelPos 0 invid sss pos <- selSecSelPos 0 invid sss
return $ listTextPictureAt 144 0 cfig pos . color cyan . text . eqPosText $_crInvEquipped cr IM.! invid return $ listTextPictureAt 144 0 cfig pos . color cyan . text . eqPosText
$ _crInvEquipped cr IM.! invid
f col invid epos = fromMaybe mempty $ do f col invid epos = fromMaybe mempty $ do
sss <- w ^? hud . hudElement . diSections sss <- w ^? hud . hudElement . diSections
pos <- selSecSelPos 0 invid sss pos <- selSecSelPos 0 invid sss