drawAura :: GameObject->GameObject->Picture
drawAura player playerAura = translate pX pY ( drawGameObject playerAura)
                              where
                                    (pX,pY) = getGameObjectCoordinates player
drawAura :: GameObject->GameObject->Picture
drawAura player playerAura = translate pX pY ( drawGameObject playerAura)
                              where
                                    (pX,pY) = getGameObjectCoordinates player
drawAura player playerAura = translate pX pY ( drawGameObject playerAura)
                              where
                                    (pX,pY) = getGameObjectCoordinates player