justin/loop
1
0
Fork 0
Code Issues Pull Requests 1 Packages Projects Releases Wiki Activity

Remove duplicated selection/manipulation positions

Browse Source 
Needs more testing to make sure it all works properly
This commit is contained in:
justin
2026-05-14 20:40:46 +01:00
parent 06b984c2e5
commit c70097f1e1
15 changed files with 318 additions and 323 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Dodge/TestString.hs
+8 -7
View File
@@ -127,19 +127,20 @@ topTestPart u =
]
showManObj :: ManipulatedObject -> String
showManObj SortInventory = "SortInventory"
showManObj (SelectedItem y as z) =
--showManObj SortInventory = "SortInventory"
showManObj (HeldItem y as z) =
" Root: "
++ show y
++ " Attached: "
++ show z
++ " AimStance: "
++ show as
showManObj SelNothing = "SelNothing"
showManObj SortCloseItem = "SortCloseItem"
showManObj (SelCloseItem x) = "CloseItem " ++ show x
showManObj SortCloseButton = "SortCloseButton"
showManObj (SelCloseButton x) = "CloseButton " ++ show x
showManObj HandsFree = "HandsFree"
--showManObj SelNothing = "SelNothing"
--showManObj SortCloseItem = "SortCloseItem"
--showManObj (SelCloseItem x) = "CloseItem " ++ show x
--showManObj SortCloseButton = "SortCloseButton"
--showManObj (SelCloseButton x) = "CloseButton " ++ show x
showTimeFlow :: TimeFlowStatus -> String
showTimeFlow tfs = case tfs of