toMessage e (GameUpdate (ThrownProjectile m i _))       | isPlayer m = Just $ "You throw the " ++ show i ++ "."
toMessage e (GameUpdate (ThrownProjectile m i _))       | isPlayer m = Just $ "You throw the " ++ show i ++ "."
toMessage e (GameUpdate (ThrownProjectile m i _))       | isPlayer m = Just $ "You throw the " ++ show i ++ "."