Cleanup
This commit is contained in:
@@ -73,7 +73,7 @@ updateTurret rotSpeed mc w
|
||||
& crPict .~ (\cr _ _ -> drawCrEquipment cr)
|
||||
-- & crPict .~ basicCrPict red
|
||||
-- & crUpdate .~ (\cr -> crUpCrUp stepReloading cr . invSideEff cr)
|
||||
& crUpdate .~ stateUpdate' (\cr w'' -> followImpulses w'' cr)
|
||||
& crUpdate .~ stateUpdate (\cr w'' -> followImpulses w'' cr)
|
||||
& crStance . posture .~ Aiming
|
||||
Just cid -> w'
|
||||
& creatures . ix cid . crPos .~ mcpos
|
||||
|
||||
Reference in New Issue
Block a user