Allow for separate equipment positions on body

2022-05-21 14:41:49 +01:00
parent 398ed6d982
commit 8ad332aced
8 changed files with 69 additions and 10 deletions
@@ -182,3 +182,25 @@ jetPack = defaultEquipment
    , _itEffect = NoItEffect
    , _itID = Nothing
    }
+
+powerLegs :: Item
+powerLegs = defaultEquipment
+    { _itType = POWERLEGS
+    , _itName = "POWERLEGS"
+    , _itUse = EquipUse 
+        {_eqUse = \_ _ -> id
+        ,_eqSite = GoesOnLegs
+        }
+    , _itEffect = NoItEffect
+    , _itID = Nothing
+    }
+speedLegs :: Item
+speedLegs = powerLegs
+    { _itType = SPEEDLEGS
+    , _itName = "SPEEDLEGS"
+    }
+jumpLegs :: Item
+jumpLegs = powerLegs
+    { _itType = JUMPLEGS
+    , _itName = "JUMPLEGS"
+    }