55 lines
1.3 KiB
Haskell
55 lines
1.3 KiB
Haskell
module Dodge.Default.Weapon
|
|
where
|
|
import Dodge.Data
|
|
import Dodge.Item.Weapon.ExtraEffect
|
|
import Dodge.Item.Weapon.InventoryDisplay
|
|
import Picture
|
|
defaultGun :: Item
|
|
defaultGun = Weapon
|
|
{ _itName = "default"
|
|
, _itIdentity = Pistol
|
|
, _wpMaxAmmo = 15
|
|
, _wpLoadedAmmo = 15
|
|
, _wpAmmo = GenericAmmo
|
|
, _wpReloadTime = 40
|
|
, _wpReloadState = 0
|
|
, _itUseRate = 8
|
|
, _itUseTime = 0
|
|
, _itUse = \_ _ -> id
|
|
, _itLeftClickUse = Nothing
|
|
, _wpSpread = 0.02
|
|
, _wpRange = 20
|
|
, _itHammer = HammerUp
|
|
, _itFloorPict = blank
|
|
, _itAmount = 1
|
|
, _itMaxStack = 1
|
|
, _itAimingSpeed = 1
|
|
, _itAimingRange = 0
|
|
, _itZoom = ItZoom 20 0.2 1 20 0.2 1
|
|
, _itEquipPict = \_ _ -> blank
|
|
, _itScrollUp = const id
|
|
, _itScrollDown = const id
|
|
, _itAttachment = Nothing
|
|
, _itID = Nothing
|
|
, _itEffect = wpRecock
|
|
, _itInvDisplay = basicWeaponDisplay
|
|
, _itInvColor = white
|
|
, _itTargeting = Nothing
|
|
, _itWorldTrigger = Nothing
|
|
}
|
|
defaultAutoGun :: Item
|
|
defaultAutoGun = defaultGun
|
|
{ _itScrollUp = const id
|
|
, _itScrollDown = const id
|
|
, _itInvDisplay = basicWeaponDisplay
|
|
}
|
|
|
|
defaultShellAmmo :: Ammo
|
|
defaultShellAmmo = ShellAmmo
|
|
{ _amPayload = \_ -> id
|
|
, _amString = "Shell"
|
|
, _amPjMove = []
|
|
, _amPjDraw = \_ -> blank
|
|
, _amParamSel = 0
|
|
}
|