AV
Size: a a a
AV
AV
AV
fire (Player angle) (MachineGun) =
let [b] = fire (Player angle Pistol)
in [step i b | i <- [1..3]]
fire p (Modified (ModAmplifier d) v) = increaseDamage d <$> fire p v
AV
AV
AV
AV
AV
AV
AV
AV
AV
AV
AV
AV
AV
(Has "damage" x, Has "graphics " x) => x
вполне работает