Implement (broken) push away from walls according to muzzle pos

2026-01-01 11:10:00 +00:00
parent 5b5a12be6e
commit 0a8725f68d
7 changed files with 411 additions and 348 deletions
@@ -130,8 +130,6 @@ tmDistributeAmmo tm w = fromMaybe w $ do
            [TLine 1 [TerminalLineConst (g (aamount - newaamount)) white] TmWdId
            ,TLine 1 [TerminalLineConst (shortShow newaamount <>" "<>show atype<>" AVAILABLE") white] TmWdId
            ,TLine 1 [] (TmWdWdTermSound (getsid (aamount - newaamount)))
--            ,TLine 1 [TerminalLineConst "" yellow] (TmTmSetStatus (TerminalPressTo ""))
--            ,TLine 1 [TerminalLineConst "" white] (TmWdWdLeaveTerminal "")
            ]
  where
    getsid x | x > 0 = reloadS