37 lines
858 B
Haskell
37 lines
858 B
Haskell
module Dodge.Default.Item.Use.AimParams (
|
|
defaultAimParams,
|
|
-- defaultItZoom,
|
|
) where
|
|
|
|
import Dodge.Data.Item.Use
|
|
import Linear
|
|
|
|
defaultAimParams :: AimParams
|
|
defaultAimParams =
|
|
AimParams
|
|
{ _aimWeight = 0
|
|
, _aimTurnSpeed = 1
|
|
-- , _aimZoom = defaultItZoom
|
|
--, _aimHandlePos = V2 3 0
|
|
, _aimMuzzles =
|
|
[ Muzzle
|
|
{ _mzPos = V2 20 0
|
|
, _mzRot = 0
|
|
, _mzInaccuracy = 0.05
|
|
, _mzAmmoSlot = 0
|
|
, _mzFlareType = NoFlare
|
|
, _mzEffect = MuzzleShootBullet
|
|
, _mzAmmoPerShot = UseExactly 1
|
|
, _mzFrame = 0
|
|
}
|
|
]
|
|
}
|
|
|
|
--defaultItZoom :: ItZoom
|
|
--defaultItZoom =
|
|
-- ItZoom
|
|
-- { _izMax = 20
|
|
-- , _izMin = 0.2
|
|
-- , _izFac = 1
|
|
-- }
|