50 lines
820 B
Haskell
50 lines
820 B
Haskell
{-# LANGUAGE StrictData #-}
|
|
module Dodge.Item.Data
|
|
where
|
|
data HammerPosition
|
|
= HammerDown
|
|
| HammerReleased
|
|
| HammerUp
|
|
| NoHammer
|
|
deriving
|
|
(Eq, Ord, Show)
|
|
data ItemIdentity
|
|
= Pistol
|
|
| SpreadGun
|
|
| MultGun
|
|
| HvAutoGun
|
|
| AutoGun
|
|
| LtAutoGun
|
|
| MiniGun
|
|
| Medkit25
|
|
| MagShield
|
|
| FrontArmour
|
|
| JetPack
|
|
| FlameShield
|
|
| Generic
|
|
| SparkGun
|
|
| ShatterGun
|
|
| LongGun
|
|
| Flamethrower
|
|
| Blinker
|
|
| Grenade
|
|
| RemoteBomb
|
|
| TeslaGun
|
|
| LasGun
|
|
| ForceFieldGun
|
|
| GrapGun
|
|
| TractorGun
|
|
| Launcher
|
|
| RemoteLauncher
|
|
| LightningGun
|
|
| PoisonSprayer
|
|
deriving
|
|
(Eq,Show,Ord,Enum)
|
|
data AimStance
|
|
= TwoHandTwist
|
|
| TwoHandFlat
|
|
| OneHand
|
|
| LeaveHolstered
|
|
deriving
|
|
(Eq,Show,Ord,Enum)
|