Vleanup

2025-06-05 16:21:30 +01:00
parent 4b326433ab
commit 16f5c05f19
24 changed files with 488 additions and 599 deletions
@@ -23,8 +23,7 @@ import Geometry
 import Picture

 defaultEquipment :: Item
-defaultEquipment = defaultHeldItem & itUse .~ defaultEquipUse
--    & itUseFocus .~ UseFromLocation
+defaultEquipment = defaultHeldItem & itUse .~ UseEquip

 defaultFlIt :: FloorItem
 defaultFlIt = FlIt{_flItRot = 0, _flIt = defaultHeldItem, _flItPos = V2 0 0, _flItID = 0}
@@ -73,9 +72,6 @@ defaultPP =
        , _ppText = "Pressure plate"
        }

--upHammer :: HammerType
--upHammer = HasHammer HammerUp
-
 defaultProximitySensor :: Sensor
 defaultProximitySensor =
    ProximitySensor