Partially working change to selected items

2023-02-07 12:07:13 +00:00
parent 5f7d662454
commit c354949ca9
27 changed files with 386 additions and 288 deletions
@@ -47,7 +47,7 @@ followImpulse cr w imp = case imp of
    TurnTo p -> crup $ creatureTurnTo p cr
    ChangePosture post -> crup $ cr & crStance . posture .~ post
    UseItem -> (useItem cr, cr)
-    SwitchToItem i -> crup $ cr & crInvSel .~ InvSel i NoInvSelAction
+    SwitchToItem i -> crup $ cr & crInvSel .~ InvSel (SelItem i NoInvSelAction)
    Melee cid' ->
        ( hitCr cid'
        , crMvBy (10 *.* normalizeV (posFromID cid' -.- cpos)) $ cr & crMeleeCooldown .~ 20