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"