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

Add visuals for legs equipment

Browse Source
This commit is contained in:
justin
2022-05-22 23:55:10 +01:00
parent 1c038b79be
commit b71726d1ca
3 changed files with 27 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Dodge/Item/Equipment.hs
+3
View File
@@ -75,6 +75,8 @@ equipPosition :: EquipPosition -> Creature -> SPic -> SPic
equipPosition epos cr sh = case epos of
OnLeftWrist -> translateToLeftHand cr sh
OnRightWrist -> translateToRightHand cr $ mirrorSPxz sh
OnLegs -> translateToLeftLeg cr sh <>
translateToRightLeg cr (mirrorSPxz sh)
_ -> sh
flatShield :: Item
@@ -199,6 +201,7 @@ powerLegs = defaultEquipment
{_eqUse = \_ _ -> id
,_eqSite = GoesOnLegs
}
, _itEquipPict = pictureOnEquip (noPic $ translateSH (V3 0 4 0) $ colorSH yellow $ upperPrismPoly 3 $ rectWH 2 2)
, _itEffect = NoItEffect
, _itID = Nothing
}
src/Dodge/Item/Weapon/Radar.hs
+2 -3
View File
@@ -60,7 +60,7 @@ autoSonar :: Item
autoSonar = defaultEquipment
{ _itType = RADAR
, _itName = "AUTOSONAR"
, _itEquipPict = \_ _ -> (,) emptySH blank
, _itEquipPict = shapeForWrist (colorSH red $ upperPrismPoly 3 $ rectWH 2 2)
, _itEffect = autoSonarEffect
, _itID = Nothing
} & itUse . eqSite .~ GoesOnWrist
@@ -70,8 +70,7 @@ autoRadar :: Item
autoRadar = defaultEquipment
{ _itType = RADAR
, _itName = "AUTORADAR"
, _itEquipPict = pictureOnEquip $ noPic (colorSH yellow $ translateSH (V3 0 4 (-4)) $ upperPrismPoly 3
$ rectWH 2 2)
, _itEquipPict = shapeForWrist (colorSH yellow $ upperPrismPoly 3 $ rectWH 2 2)
, _itEffect = autoRadarEffect
, _itID = Nothing
} & itUse . eqSite .~ GoesOnWrist