From 445ca84358118a3464ab44e5ab62fae3f83b0135 Mon Sep 17 00:00:00 2001 From: justin Date: Mon, 25 Nov 2024 21:42:00 +0000 Subject: [PATCH] Fix bug when dragging items --- src/Dodge/Update/Input/InGame.hs | 10 ++- tags | 107 ++++++++++++++++--------------- 2 files changed, 61 insertions(+), 56 deletions(-) diff --git a/src/Dodge/Update/Input/InGame.hs b/src/Dodge/Update/Input/InGame.hs index 9ae2f3648..48cdc1453 100644 --- a/src/Dodge/Update/Input/InGame.hs +++ b/src/Dodge/Update/Input/InGame.hs @@ -258,15 +258,19 @@ shiftInvItems k x ab bn xs ss w = setSelWhileDragging . fromMaybe w $ do guard $ xk == k || xk + 1 == k || xk -1 == k (maxi,_) <- IS.maxView xs (mini,_) <- IS.minView xs - if x < (k,mini) - then do + case True of + _ | x < (k,mini) -> do guard $ not . null . fst $ IM.split mini ss guard $ Just (k,mini-1) /= ab return $ shiftInvItemsUp k xs w - else do + _ | x > (k,maxi) -> do guard $ not . null . snd $ IM.split maxi ss guard $ Just (k,maxi+1) /= bn return $ shiftInvItemsDown k xs w + _ -> Nothing +-- if x < (k,mini) +-- then +-- else setSelWhileDragging :: World -> World setSelWhileDragging w = fromMaybe w $ do diff --git a/tags b/tags index 09e904945..aac6584f0 100644 --- a/tags +++ b/tags @@ -2758,8 +2758,8 @@ _mcoInvFilt src/Dodge/Data/Input.hs 32;" f _mcoInvSelect src/Dodge/Data/Input.hs 31;" f _mcoMaybeSelect src/Dodge/Data/Input.hs 26;" f _mcoMenuClick src/Dodge/Data/Input.hs 23;" f +_mcoSecSelStart src/Dodge/Data/Input.hs 30;" f _mcoSelEnd src/Dodge/Data/Input.hs 30;" f -_mcoSelStart src/Dodge/Data/Input.hs 30;" f _mcoTermID src/Dodge/Data/Input.hs 37;" f _mdBool src/Dodge/Data/Modification.hs 21;" f _mdExternalID src/Dodge/Data/Modification.hs 17;" f @@ -3641,7 +3641,7 @@ closeItemToSelectionItem src/Dodge/Inventory/SelectionList.hs 52;" f closeItemToTextPictures src/Dodge/Inventory/SelectionList.hs 79;" f closeObjEq src/Dodge/Inventory/CloseObject.hs 15;" f closeObjPos src/Dodge/Inventory/CloseObject.hs 10;" f -closeObjectInfo src/Dodge/Render/HUD.hs 207;" f +closeObjectInfo src/Dodge/Render/HUD.hs 206;" f closestCreatureID src/Dodge/Debug.hs 92;" f closestPointOnLine src/Geometry/Intersect.hs 251;" f closestPointOnLineParam src/Geometry/Intersect.hs 267;" f @@ -3660,7 +3660,7 @@ colCrsWalls src/Dodge/WallCreatureCollisions.hs 17;" f colSpark src/Dodge/Spark.hs 47;" f colSparkRandDir src/Dodge/Spark.hs 101;" f collectDamageTypes src/Dodge/Damage.hs 32;" f -collectInvItems src/Dodge/Update/Input/InGame.hs 264;" f +collectInvItems src/Dodge/Update/Input/InGame.hs 237;" f collideCircWalls src/Dodge/Base/Collide.hs 149;" f collidePoint src/Dodge/Base/Collide.hs 48;" f collidePointTestFilter src/Dodge/Base/Collide.hs 93;" f @@ -3675,7 +3675,7 @@ combinationsOf src/Multiset.hs 46;" f combinationsTrie src/Dodge/Combine.hs 41;" f combineAwareness src/Dodge/Creature/Perception.hs 109;" f combineFloors src/Dodge/Room/Procedural.hs 172;" f -combineInventoryExtra src/Dodge/Render/HUD.hs 325;" f +combineInventoryExtra src/Dodge/Render/HUD.hs 324;" f combineItemListYouX src/Dodge/Combine.hs 33;" f combineList src/Dodge/Combine.hs 20;" f combineRooms src/Dodge/Room/Procedural.hs 152;" f @@ -3694,7 +3694,7 @@ composeTree src/Dodge/Tree/Compose.hs 46;" f computerBeepingS src/Dodge/SoundLogic/ExternallyGeneratedSounds.hs 472;" f conEffects src/Dodge/Concurrent.hs 13;" f concBall src/Dodge/WorldEvent/SpawnParticle.hs 27;" f -concurrentIS src/Dodge/Update/Input/InGame.hs 256;" f +concurrentIS src/Dodge/Update/Input/InGame.hs 229;" f connectItemS src/Dodge/SoundLogic/ExternallyGeneratedSounds.hs 532;" f connectionBlurb src/Dodge/Terminal.hs 102;" f connectionBlurbLines src/Dodge/Terminal.hs 47;" f @@ -4043,7 +4043,7 @@ doPropUpdates src/Dodge/Prop/Update.hs 36;" f doQuickload src/Dodge/Save.hs 82;" f doQuicksave src/Dodge/Save.hs 77;" f doRandImpulse src/Dodge/RandImpulse.hs 7;" f -doRegexInput src/Dodge/Update/Input/InGame.hs 395;" f +doRegexInput src/Dodge/Update/Input/InGame.hs 375;" f doRoomInPlacements src/Dodge/Layout.hs 97;" f doRoomOutPlacements src/Dodge/Layout.hs 107;" f doRoomPlacements src/Dodge/Layout.hs 122;" f @@ -4099,7 +4099,7 @@ drawCircFlare src/Dodge/Flare.hs 25;" f drawCollisionTest src/Dodge/Debug/Picture.hs 103;" f drawCombFilter src/Dodge/Render/Picture.hs 214;" f drawCombFilterJump src/Dodge/Render/Picture.hs 157;" f -drawCombineInventory src/Dodge/Render/HUD.hs 165;" f +drawCombineInventory src/Dodge/Render/HUD.hs 164;" f drawConcurrentMessage src/Dodge/Render/Picture.hs 62;" f drawCorpse src/Dodge/Corpse/Draw.hs 6;" f drawCrInfo src/Dodge/Debug/Picture.hs 342;" f @@ -4120,7 +4120,7 @@ drawDragSelecting src/Dodge/Render/HUD.hs 144;" f drawEmptySet src/Dodge/Render/Picture.hs 112;" f drawEnergyBall src/Dodge/EnergyBall/Draw.hs 8;" f drawEquipment src/Dodge/Creature/Picture.hs 140;" f -drawExamineInventory src/Dodge/Render/HUD.hs 180;" f +drawExamineInventory src/Dodge/Render/HUD.hs 179;" f drawFarWallDetect src/Dodge/Debug/Picture.hs 234;" f drawFlame src/Dodge/Flame/Draw.hs 7;" f drawFlamelet src/Dodge/EnergyBall/Draw.hs 23;" f @@ -4164,7 +4164,7 @@ drawPointLabel src/Dodge/Render/Label.hs 13;" f drawProjectile src/Dodge/Projectile/Draw.hs 13;" f drawProp src/Dodge/Prop/Draw.hs 15;" f drawProp' src/Dodge/Prop/Draw.hs 12;" f -drawRBOptions src/Dodge/Render/HUD.hs 233;" f +drawRBOptions src/Dodge/Render/HUD.hs 232;" f drawRadarSweep src/Dodge/RadarSweep/Draw.hs 7;" f drawRemoteShell src/Dodge/Projectile/Draw.hs 30;" f drawReturn src/Dodge/Render/Picture.hs 118;" f @@ -4183,13 +4183,13 @@ drawShell src/Dodge/Projectile/Draw.hs 20;" f drawShockwave src/Dodge/Shockwave/Draw.hs 7;" f drawSpark src/Dodge/Spark/Draw.hs 6;" f drawStaticBall src/Dodge/EnergyBall/Draw.hs 14;" f -drawSubInventory src/Dodge/Render/HUD.hs 157;" f +drawSubInventory src/Dodge/Render/HUD.hs 156;" f drawSweep src/Dodge/Render/Picture.hs 240;" f drawSwitch src/Dodge/Button/Draw.hs 15;" f drawSwitchWire src/Dodge/LevelGen/Switch.hs 28;" f drawTargetLaser src/Dodge/Particle/Draw.hs 6;" f drawTargeting src/Dodge/Targeting/Draw.hs 13;" f -drawTerminalDisplay src/Dodge/Render/HUD.hs 351;" f +drawTerminalDisplay src/Dodge/Render/HUD.hs 350;" f drawTeslaArc src/Dodge/Tesla/Arc/Draw.hs 7;" f drawText src/Picture/Base.hs 220;" f drawTitle src/Dodge/Render/MenuScreen.hs 57;" f @@ -4237,7 +4237,7 @@ encircleP src/Dodge/Creature/Boid.hs 27;" f enterCombineInv src/Dodge/DisplayInventory.hs 343;" f eqConstr src/SameConstr.hs 17;" f eqPosText src/Dodge/Equipment/Text.hs 6;" f -equipAllocString src/Dodge/Render/HUD.hs 291;" f +equipAllocString src/Dodge/Render/HUD.hs 290;" f equipInfo src/Dodge/Item/Info.hs 103;" f equipItemSPic src/Dodge/Item/Draw/SPic.hs 65;" f equipPosition src/Dodge/Item/Draw.hs 30;" f @@ -4329,7 +4329,7 @@ flockPointTarget src/Dodge/Creature/Boid.hs 199;" f flockPointTargetR src/Dodge/Creature/Boid.hs 266;" f flockToPointUsing src/Dodge/Creature/Boid.hs 214;" f flockToPointUsing' src/Dodge/Creature/Boid.hs 227;" f -floorItemPickupInfo src/Dodge/Render/HUD.hs 212;" f +floorItemPickupInfo src/Dodge/Render/HUD.hs 211;" f floorItemSPic src/Dodge/Render/ShapePicture.hs 119;" f floorWire src/Dodge/Wire.hs 13;" f foamSprayFadeOutS src/Dodge/SoundLogic/ExternallyGeneratedSounds.hs 412;" f @@ -4597,7 +4597,7 @@ invAdj src/Dodge/Item/Grammar.hs 188;" f invCursorParams src/Dodge/ListDisplayParams.hs 38;" f invDimColor src/Dodge/DisplayInventory.hs 205;" f invDisplayParams src/Dodge/ListDisplayParams.hs 32;" f -invHead src/Dodge/Render/HUD.hs 389;" f +invHead src/Dodge/Render/HUD.hs 388;" f invLDT src/Dodge/Item/Grammar.hs 171;" f invRootMap src/Dodge/Item/Grammar.hs 180;" f invRootTrees src/Dodge/Item/Grammar.hs 210;" f @@ -4607,8 +4607,8 @@ invSideEff src/Dodge/Creature/State.hs 162;" f invSize src/Dodge/Inventory/CheckSlots.hs 30;" f invTrees src/Dodge/Item/Grammar.hs 198;" f invTrees' src/Dodge/Item/Grammar.hs 202;" f -inventoryExtra src/Dodge/Render/HUD.hs 300;" f -inventoryExtraH src/Dodge/Render/HUD.hs 311;" f +inventoryExtra src/Dodge/Render/HUD.hs 299;" f +inventoryExtraH src/Dodge/Render/HUD.hs 310;" f inventoryX src/Dodge/Creature.hs 115;" f inverseSelNumPos src/Dodge/SelectionSections.hs 228;" f inverseSelSecYint src/Dodge/SelectionSections.hs 201;" f @@ -4772,7 +4772,7 @@ llleft src/Dodge/Item/Grammar.hs 107;" f llright src/Dodge/Item/Grammar.hs 114;" f lmt src/MatrixHelper.hs 43;" f lnkBothAnd src/Dodge/Room/Procedural.hs 121;" f -lnkMidPosInvSelsCol src/Dodge/Render/HUD.hs 378;" f +lnkMidPosInvSelsCol src/Dodge/Render/HUD.hs 377;" f lnkPosDir src/Dodge/RoomLink.hs 97;" f loadDodgeConfig src/Dodge/Config/Load.hs 9;" f loadMusic src/Dodge/SoundLogic/LoadSound.hs 21;" f @@ -4903,7 +4903,7 @@ maybeClearPath src/Dodge/Block.hs 77;" f maybeClearPaths src/Dodge/Block.hs 74;" f maybeDestroyBlock src/Dodge/Wall/Damage.hs 26;" f maybeDestroyDoor src/Dodge/Wall/Damage.hs 31;" f -maybeExitCombine src/Dodge/Update/Input/InGame.hs 571;" f +maybeExitCombine src/Dodge/Update/Input/InGame.hs 551;" f maybeOpenTerminal src/Dodge/Update.hs 123;" f maybeReadFile src/Dodge/LoadSeed.hs 10;" f maybeTakeOne src/RandomHelp.hs 111;" f @@ -5128,7 +5128,7 @@ parseNum src/Dodge/Debug/Terminal.hs 73;" f pathConnected src/Dodge/Room/CheckConsistency.hs 14;" f pathEdgeObstructed src/Dodge/Path.hs 43;" f pauseAndFloatCam src/Dodge/Camera.hs 10;" f -pauseGame src/Dodge/Update/Input/InGame.hs 491;" f +pauseGame src/Dodge/Update/Input/InGame.hs 471;" f pauseMenu src/Dodge/Menu.hs 53;" f pauseMenuOptions src/Dodge/Menu.hs 58;" f pauseSound src/Dodge/SoundLogic.hs 41;" f @@ -5592,12 +5592,12 @@ sectionsSizes src/Dodge/DisplayInventory.hs 222;" f seedStartMenu src/Dodge/Menu.hs 79;" f seedStartOptions src/Dodge/Menu.hs 82;" f segOnCirc src/Geometry.hs 116;" f -selCloseObj src/Dodge/Update/Input/InGame.hs 514;" f -selNumPos src/Dodge/Render/HUD.hs 438;" f -selNumPosCardinal src/Dodge/Render/HUD.hs 461;" f +selCloseObj src/Dodge/Update/Input/InGame.hs 494;" f +selNumPos src/Dodge/Render/HUD.hs 437;" f +selNumPosCardinal src/Dodge/Render/HUD.hs 460;" f selSecDrawCursor src/Dodge/Render/List.hs 130;" f selSecDrawCursorAt src/Dodge/Render/List.hs 108;" f -selSecSelCol src/Dodge/Render/HUD.hs 486;" f +selSecSelCol src/Dodge/Render/HUD.hs 485;" f selSecSelSize src/Dodge/SelectionSections.hs 180;" f selSecYint src/Dodge/SelectionSections.hs 189;" f selectCreatureDebugItem src/Dodge/Debug.hs 39;" f @@ -5637,6 +5637,7 @@ setOutLinks src/Dodge/RoomLink.hs 48;" f setOutLinksByType src/Dodge/RoomLink.hs 57;" f setOutLinksPD src/Dodge/RoomLink.hs 77;" f setRBCreatureTargeting src/Dodge/Creature/State.hs 292;" f +setSelWhileDragging src/Dodge/Update/Input/InGame.hs 271;" f setSelectionListRestriction src/Dodge/Update/Input/ScreenLayer.hs 104;" f setShaderSource src/Shader/Compile.hs 290;" f setShadowLimits src/Dodge/Shadows.hs 11;" f @@ -5687,9 +5688,9 @@ shiftChildren src/Dodge/Tree/Compose.hs 43;" f shiftDraw src/Dodge/Render/ShapePicture.hs 66;" f shiftDraw' src/Dodge/Render/ShapePicture.hs 72;" f shiftInBy src/Dodge/PlacementSpot.hs 236;" f -shiftInvItems src/Dodge/Update/Input/InGame.hs 274;" f -shiftInvItemsDown src/Dodge/Update/Input/InGame.hs 304;" f -shiftInvItemsUp src/Dodge/Update/Input/InGame.hs 298;" f +shiftInvItems src/Dodge/Update/Input/InGame.hs 247;" f +shiftInvItemsDown src/Dodge/Update/Input/InGame.hs 284;" f +shiftInvItemsUp src/Dodge/Update/Input/InGame.hs 278;" f shiftLinkBy src/Dodge/Room/Link.hs 87;" f shiftPSBy src/Dodge/Placement/Shift.hs 12;" f shiftPathBy src/Dodge/Room/Link.hs 92;" f @@ -5729,9 +5730,9 @@ showEquipItem src/Dodge/Item/Display.hs 68;" f showEquipmentNumber src/Dodge/Item/Display.hs 110;" f showInt src/Dodge/Item/Info.hs 31;" f showIntsString src/Dodge/Tree/Compose.hs 129;" f -showManObj src/Dodge/TestString.hs 48;" f +showManObj src/Dodge/TestString.hs 64;" f showTerminalError src/Dodge/Debug/Terminal.hs 76;" f -showTimeFlow src/Dodge/TestString.hs 97;" f +showTimeFlow src/Dodge/TestString.hs 113;" f shrinkPolyOnEdges src/Geometry/Polygon.hs 136;" f shrinkVert src/Geometry/Polygon.hs 140;" f shuffle src/RandomHelp.hs 49;" f @@ -5788,7 +5789,7 @@ soundToVol src/Dodge/SoundLogic/ExternallyGeneratedSounds.hs 4;" f soundWithStatus src/Dodge/SoundLogic.hs 98;" f soundWithStatusVolume src/Dodge/SoundLogic.hs 48;" f southPillarsRoom src/Dodge/Room/LongDoor.hs 85;" f -spaceAction src/Dodge/Update/Input/InGame.hs 494;" f +spaceAction src/Dodge/Update/Input/InGame.hs 474;" f spanColLightBlackI src/Dodge/Placement/Instance/LightSource.hs 186;" f spanColLightI src/Dodge/Placement/Instance/LightSource.hs 179;" f spanLS src/Dodge/Placement/Instance/LightSource.hs 171;" f @@ -5844,7 +5845,7 @@ stackText src/Picture/Base.hs 188;" f stackedInventory src/Dodge/Creature.hs 281;" f startCr src/Dodge/Creature.hs 91;" f startCrafts src/Dodge/Room/Start.hs 92;" f -startDrag src/Dodge/Update/Input/InGame.hs 215;" f +startDrag src/Dodge/Update/Input/InGame.hs 212;" f startInvList src/Dodge/Creature.hs 109;" f startInventory src/Dodge/Creature.hs 112;" f startNewGameInSlot src/Dodge/StartNewGame.hs 15;" f @@ -5932,7 +5933,7 @@ teslaParams src/Dodge/Tesla/ItemParams.hs 6;" f testCrossWalls src/Dodge/Room/Path.hs 47;" f testEvent src/Dodge/Event/Test.hs 10;" f testInventory src/Dodge/Creature.hs 257;" f -testStringInit src/Dodge/TestString.hs 23;" f +testStringInit src/Dodge/TestString.hs 26;" f text src/Picture/Base.hs 193;" f textGrad src/Picture/Text.hs 5;" f textJustifyCenter src/Picture/Base.hs 212;" f @@ -5985,8 +5986,8 @@ toggleCombineInv src/Dodge/DisplayInventory.hs 35;" f toggleCommand src/Dodge/Terminal.hs 196;" f toggleEquipmentAt src/Dodge/Creature/Impulse/UseItem.hs 79;" f toggleJust src/MaybeHelp.hs 41;" f -toggleMap src/Dodge/Update/Input/InGame.hs 535;" f -toggleTweakInv src/Dodge/Update/Input/InGame.hs 548;" f +toggleMap src/Dodge/Update/Input/InGame.hs 515;" f +toggleTweakInv src/Dodge/Update/Input/InGame.hs 528;" f togglesToEffects src/Dodge/Terminal.hs 248;" f tone440S src/Dodge/SoundLogic/ExternallyGeneratedSounds.hs 474;" f tone440sawtoothS src/Dodge/SoundLogic/ExternallyGeneratedSounds.hs 444;" f @@ -5994,7 +5995,7 @@ tone440sawtoothquietS src/Dodge/SoundLogic/ExternallyGeneratedSounds.hs 332;" f topInvW src/Dodge/ListDisplayParams.hs 53;" f topPrismEdgeIndices src/Shader/Poke.hs 327;" f topPrismIndices src/Shader/Poke.hs 402;" f -topTestPart src/Dodge/TestString.hs 44;" f +topTestPart src/Dodge/TestString.hs 60;" f torch src/Dodge/Item/Held/Utility.hs 26;" f torchShape src/Dodge/Item/Draw/SPic.hs 213;" f torqueCr src/Dodge/WorldEffect.hs 69;" f @@ -6057,13 +6058,13 @@ trunkDepth src/TreeHelp.hs 161;" f tryAssignHotkey src/Dodge/Creature/YourControl.hs 85;" f tryAttachBulletBelt src/Dodge/Euse.hs 40;" f tryChargeBattery src/Dodge/Euse.hs 43;" f -tryCombine src/Dodge/Update/Input/InGame.hs 557;" f -tryDropSelected src/Dodge/Update/Input/InGame.hs 108;" f +tryCombine src/Dodge/Update/Input/InGame.hs 537;" f +tryDropSelected src/Dodge/Update/Input/InGame.hs 107;" f tryGetChannel src/Sound.hs 96;" f tryGetRootAttachedFromInvID src/Dodge/Inventory/Location.hs 20;" f tryGetRootItemInvID src/Dodge/Inventory/Location.hs 29;" f tryMeleeAttack src/Dodge/Creature/ReaderUpdate.hs 36;" f -tryPickupSelected src/Dodge/Update/Input/InGame.hs 116;" f +tryPickupSelected src/Dodge/Update/Input/InGame.hs 114;" f tryPlay src/Sound.hs 83;" f tryPutFloorItemIDInInv src/Dodge/Inventory/Add.hs 26;" f tryPutItemInInv src/Dodge/Inventory/Add.hs 42;" f @@ -6106,7 +6107,7 @@ updateAllNodes src/TreeHelp.hs 85;" f updateArc src/Dodge/Tesla/Arc.hs 86;" f updateAttachedItems src/Dodge/Creature/State.hs 173;" f updateAutoRecharge src/Dodge/Creature/State.hs 324;" f -updateBackspaceRegex src/Dodge/Update/Input/InGame.hs 429;" f +updateBackspaceRegex src/Dodge/Update/Input/InGame.hs 409;" f updateBarrel src/Dodge/Barreloid.hs 45;" f updateBarreloid src/Dodge/Barreloid.hs 13;" f updateBounds src/Dodge/Update/Camera.hs 245;" f @@ -6129,7 +6130,7 @@ updateDistortion src/Dodge/Distortion.hs 5;" f updateDistortions src/Dodge/Update.hs 524;" f updateEnergyBall src/Dodge/EnergyBall.hs 46;" f updateEnergyBalls src/Dodge/Update.hs 551;" f -updateEnterRegex src/Dodge/Update/Input/InGame.hs 470;" f +updateEnterRegex src/Dodge/Update/Input/InGame.hs 450;" f updateExpBarrel src/Dodge/Barreloid.hs 19;" f updateFBOTO src/Framebuffer/Update.hs 97;" f updateFBOTO3 src/Framebuffer/Update.hs 131;" f @@ -6137,35 +6138,35 @@ updateFlame src/Dodge/Flame.hs 71;" f updateFlames src/Dodge/Update.hs 548;" f updateFlare src/Dodge/Flare.hs 7;" f updateFloatingCamera src/Dodge/Update/Camera.hs 36;" f -updateFunctionKey src/Dodge/Update/Input/InGame.hs 321;" f -updateFunctionKeys src/Dodge/Update/Input/InGame.hs 314;" f +updateFunctionKey src/Dodge/Update/Input/InGame.hs 301;" f +updateFunctionKeys src/Dodge/Update/Input/InGame.hs 294;" f updateGusts src/Dodge/Update.hs 702;" f updateHeldRootItem src/Dodge/Creature/State.hs 167;" f updateHumanoid src/Dodge/Humanoid.hs 12;" f updateIMl src/Dodge/Update.hs 493;" f updateIMl' src/Dodge/Update.hs 498;" f updateInGameCamera src/Dodge/Update/Camera.hs 70;" f -updateInitialPressInGame src/Dodge/Update/Input/InGame.hs 374;" f +updateInitialPressInGame src/Dodge/Update/Input/InGame.hs 354;" f updateInstantBullets src/Dodge/Update.hs 640;" f updateInv src/Dodge/Creature/State.hs 152;" f updateInventoryPositioning src/Dodge/DisplayInventory.hs 87;" f updateItemTargeting src/Dodge/Creature/State.hs 268;" f updateItemWithOrientation src/Dodge/Creature/State.hs 194;" f -updateKeyInGame src/Dodge/Update/Input/InGame.hs 368;" f -updateKeysInTerminal src/Dodge/Update/Input/InGame.hs 356;" f +updateKeyInGame src/Dodge/Update/Input/InGame.hs 348;" f +updateKeysInTerminal src/Dodge/Update/Input/InGame.hs 336;" f updateLampoid src/Dodge/Lampoid.hs 12;" f updateLaser src/Dodge/Laser/Update.hs 13;" f updateLasers src/Dodge/Update.hs 422;" f updateLightSources src/Dodge/Update.hs 527;" f updateLinearShockwave src/Dodge/LinearShockwave/Update.hs 8;" f -updateLongPressInGame src/Dodge/Update/Input/InGame.hs 389;" f +updateLongPressInGame src/Dodge/Update/Input/InGame.hs 369;" f updateMIM src/Dodge/Update.hs 653;" f updateMachine src/Dodge/Machine/Update.hs 19;" f -updateMouseClickInGame src/Dodge/Update/Input/InGame.hs 165;" f +updateMouseClickInGame src/Dodge/Update/Input/InGame.hs 162;" f updateMouseContext src/Dodge/Update.hs 311;" f -updateMouseHeldInGame src/Dodge/Update/Input/InGame.hs 90;" f -updateMouseInGame src/Dodge/Update/Input/InGame.hs 82;" f -updateMouseReleaseInGame src/Dodge/Update/Input/InGame.hs 137;" f +updateMouseHeldInGame src/Dodge/Update/Input/InGame.hs 89;" f +updateMouseInGame src/Dodge/Update/Input/InGame.hs 81;" f +updateMouseReleaseInGame src/Dodge/Update/Input/InGame.hs 135;" f updateMovement src/Dodge/Creature/State.hs 331;" f updateObjCatMaybes src/Dodge/Update.hs 515;" f updateObjMapMaybe src/Dodge/Update.hs 508;" f @@ -6173,8 +6174,8 @@ updatePastWorlds src/Dodge/Update.hs 410;" f updatePosEvent src/Dodge/PosEvent.hs 11;" f updatePosEvents src/Dodge/Update.hs 560;" f updatePreload src/Preload/Update.hs 20;" f -updatePressedButtonsCarte src/Dodge/Update/Input/InGame.hs 331;" f -updatePressedButtonsCarte' src/Dodge/Update/Input/InGame.hs 334;" f +updatePressedButtonsCarte src/Dodge/Update/Input/InGame.hs 311;" f +updatePressedButtonsCarte' src/Dodge/Update/Input/InGame.hs 314;" f updateProjectile src/Dodge/Projectile/Update.hs 23;" f updateProp src/Dodge/Prop/Update.hs 11;" f updateRBList src/Dodge/Inventory/RBList.hs 16;" f @@ -6208,7 +6209,7 @@ updateUniverse src/Dodge/Update.hs 71;" f updateUniverseFirst src/Dodge/Update.hs 83;" f updateUniverseLast src/Dodge/Update.hs 133;" f updateUniverseMid src/Dodge/Update.hs 155;" f -updateUseInputInGame src/Dodge/Update/Input/InGame.hs 39;" f +updateUseInputInGame src/Dodge/Update/Input/InGame.hs 38;" f updateUseInputOnScreen src/Dodge/Update/Input/ScreenLayer.hs 21;" f updateWalkCycle src/Dodge/Creature/State/WalkCycle.hs 12;" f updateWallDamages src/Dodge/Update/WallDamage.hs 10;" f @@ -6367,7 +6368,7 @@ yV2 src/Geometry/Vector.hs 203;" f yellow src/Color.hs 17;" f you src/Dodge/Base/You.hs 18;" f youDropItem src/Dodge/Creature/Action.hs 190;" f -yourAugmentedItem src/Dodge/Render/HUD.hs 219;" f +yourAugmentedItem src/Dodge/Render/HUD.hs 218;" f yourControl src/Dodge/Creature/YourControl.hs 22;" f yourDefaultSpeed src/Dodge/Default/Creature.hs 134;" f yourDefaultStrideLength src/Dodge/Default/Creature.hs 137;" f