toMessage e (GameUpdate (FiredProjectile  m l p _))     | isPlayer m = Just $ "You fire the " ++ show p ++ " out of your " ++ show l ++ "."
toMessage e (GameUpdate (FiredProjectile  m l p _))     | isPlayer m = Just $ "You fire the " ++ show p ++ " out of your " ++ show l ++ "."
toMessage e (GameUpdate (FiredProjectile  m l p _))     | isPlayer m = Just $ "You fire the " ++ show p ++ " out of your " ++ show l ++ "."