39 lines
830 B
Haskell
39 lines
830 B
Haskell
module Dodge.Default.Item.Use.AimParams where
|
|
|
|
import Dodge.Data.Item.Use
|
|
import Linear
|
|
|
|
defaultAimParams :: AimParams
|
|
defaultAimParams =
|
|
AimParams
|
|
{ _aimWeight = 0
|
|
, _aimTurnSpeed = 1
|
|
, _aimRange = 0
|
|
, _aimZoom = defaultItZoom
|
|
, _aimStance = OneHand
|
|
, --, _aimHandlePos = 10
|
|
_aimHandlePos = V2 3 0
|
|
, _aimMuzzles = [defaultMuzzle]
|
|
-- , _aimMuzPos = 20
|
|
}
|
|
|
|
defaultMuzzle :: Muzzle
|
|
defaultMuzzle = Muzzle
|
|
{ _mzPos = V2 20 0
|
|
, _mzRot = 0
|
|
, _mzInaccuracy = 0.05
|
|
, _mzAmmoSlot = 0
|
|
, _mzFlareType = DefaultFlareType
|
|
, _mzEffect = MuzzleShootBullet
|
|
, _mzChargeRequirement = Nothing
|
|
}
|
|
|
|
|
|
defaultItZoom :: ItZoom
|
|
defaultItZoom =
|
|
ItZoom
|
|
{ _izMax = 20
|
|
, _izMin = 0.2
|
|
, _izFac = 1
|
|
}
|