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

Add sounds when distributing ammo

Browse Source
This commit is contained in:
justin
2025-12-26 11:35:14 +00:00
parent 2f935a0d41
commit ada80fb925
1 changed files with 8 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Dodge/WorldEffect.hs
+8 -4
View File
@@ -119,17 +119,21 @@ tmDistributeAmmo tm w = fromMaybe w $ do
let mid = tm ^. tmMachineID
sid <- w ^? cWorld . lWorld . machines . ix mid
. mcType . mcdStorageMachine . _Just
p <- w ^? cWorld . lWorld . machines . ix mid . mcPos
McStorage atype aamount <- w ^? cWorld . lWorld . machines . ix sid . mcType
let (x',w') = distributeAmmoToYou atype aamount w
let (newaamount,w') = distributeAmmoToYou atype aamount w
return $ w'
& cWorld . lWorld . machines . ix sid . mcType . mcsAmount .~ x'
& cWorld . lWorld . machines . ix sid . mcType . mcsAmount .~ newaamount
& cWorld . lWorld . terminals . ix (tm ^. tmID) . tmFutureLines .~
[TLine 1 [TerminalLineConst (g (aamount - x')) white] TmWdId
,TLine 1 [TerminalLineConst (shortShow x' <>" "<>show atype<>" AVAILABLE") white] TmWdId
[TLine 1 [TerminalLineConst (g (aamount - newaamount)) white] TmWdId
,TLine 1 [TerminalLineConst (shortShow newaamount <>" "<>show atype<>" AVAILABLE") white] TmWdId
,TLine 1 [TerminalLineConst "" yellow] (TmTmSetStatus (TerminalPressTo ""))
,TLine 1 [TerminalLineConst "" white] TmWdWdPowerDownTerminal
]
& dosound (aamount - newaamount) p
where
dosound x p | x > 0 = soundStart TerminalSound p reloadS Nothing
| otherwise = soundStart TerminalSound p dedumS Nothing
g 0 = "NO SUITABLE RECIPIENTS"
g _ = "SUCCESFUL"