16 lines
462 B
Haskell
16 lines
462 B
Haskell
module Dodge.Module.Info where
|
|
--import qualified Data.Map.Strict as M
|
|
import Dodge.Data.Item
|
|
|
|
displayBulletBody :: BulletEffect -> String
|
|
displayBulletBody be = case be of
|
|
DestroyBullet -> "DESBUL-shouldn't display"
|
|
BounceBullet -> "BOUNCING"
|
|
PenetrateBullet -> "PENETRATING"
|
|
|
|
displayBulletPayload :: EnergyBallType -> String
|
|
displayBulletPayload ebt = case ebt of
|
|
IncBall -> "INCENDIARY"
|
|
TeslaBall -> "STATIC"
|
|
ConcBall -> "CONCUSSIVE"
|