71 lines
1.9 KiB
Haskell
71 lines
1.9 KiB
Haskell
module Dodge.Item.Held (
|
|
module Dodge.Item.Held,
|
|
module Dodge.Item.Held.Utility,
|
|
module Dodge.Item.Held.Launcher,
|
|
module Dodge.Item.Held.Weapons,
|
|
module Dodge.Item.Held.Stick,
|
|
module Dodge.Item.Held.Cone,
|
|
module Dodge.Item.Held.Cane,
|
|
module Dodge.Item.Held.Rod,
|
|
module Dodge.Item.Held.SprayGuns,
|
|
module Dodge.Item.Held.BatteryGuns,
|
|
) where
|
|
|
|
import Dodge.Data.Item
|
|
import Dodge.Item.Held.Launcher
|
|
import Dodge.Item.Held.BatteryGuns
|
|
import Dodge.Item.Held.Utility
|
|
import Dodge.Item.Held.Weapons
|
|
import Dodge.Item.Held.Stick
|
|
import Dodge.Item.Held.Cone
|
|
import Dodge.Item.Held.Cane
|
|
import Dodge.Item.Held.Rod
|
|
import Dodge.Item.Held.SprayGuns
|
|
|
|
itemFromHeldType :: HeldItemType -> Item
|
|
itemFromHeldType ht = case ht of
|
|
REWINDER -> rewinder
|
|
TIMESTOPPER -> timeStopper
|
|
TIMESCROLLER -> timeScroller
|
|
BLINKERUNSAFE -> unsafeBlinker
|
|
BLINKER -> blinker
|
|
KEYCARD i -> keyCard i
|
|
LED -> led
|
|
SHATTERGUN -> shatterGun
|
|
BANGSTICK i -> bangStick i
|
|
PISTOL -> pistol
|
|
MACHINEPISTOL -> machinePistol
|
|
AUTOPISTOL -> autoPistol
|
|
SMG -> smg
|
|
BANGCONE -> bangCone
|
|
BLUNDERBUSS -> blunderbuss
|
|
GRAPECANNON i -> grapeCannon i
|
|
MINIGUNX i -> miniGunX i
|
|
VOLLEYGUN i -> volleyGun i
|
|
RIFLE -> rifle
|
|
ALTERIFLE -> alteRifle
|
|
-- REPEATER -> repeater
|
|
AUTORIFLE -> autoRifle
|
|
BURSTRIFLE -> burstRifle
|
|
BANGROD -> bangRod
|
|
ELEPHANTGUN -> elephantGun
|
|
AMR -> amr
|
|
AUTOAMR -> autoAmr
|
|
SNIPERRIFLE -> sniperRifle
|
|
-- MACHINEGUN -> machineGun
|
|
FLAMESPITTER -> flameSpitter
|
|
FLAMETHROWER -> flameThrower
|
|
FLAMETORRENT -> flameTorrent
|
|
FLAMEWALL -> flameWall
|
|
BLOWTORCH -> blowTorch
|
|
TESLACOIL -> teslaCoil
|
|
-- LASCIRCLE -> lasCircle
|
|
-- DUALBEAM -> dualBeam
|
|
-- LASWIDE i -> lasWide i
|
|
TRACTORGUN -> tractorGun
|
|
RLAUNCHER -> rLauncher
|
|
GLAUNCHER -> gLauncher
|
|
RLAUNCHERX i -> rLauncherX i
|
|
POISONSPRAYER -> poisonSprayer
|
|
FLATSHIELD -> flatShield
|