Flatten values in creature manipulation data types

2024-09-24 21:50:21 +01:00
parent fe00af0e73
commit 25cec10313
24 changed files with 69 additions and 86 deletions
@@ -48,7 +48,7 @@ followImpulse cr w imp = case imp of
    TurnTo p -> crup $ creatureTurnTo p cr
    ChangePosture post -> crup $ cr & crStance . posture .~ post
    UseItem -> (useRootItem $ _crID cr, cr)
-    SwitchToItem i -> crup $ cr & crManipulation . manObject .~ InInventory (SelectedItem i i mempty)
+    SwitchToItem i -> crup $ cr & crManipulation . manObject .~ SelectedItem i i mempty
    Melee cid' ->
        ( hitCr cid'
        , crMvAbsolute (10 *.* normalizeV (posFromID cid' -.- cpos)) $ cr & crMeleeCooldown .~ 20