processEvent (EventKey (SpecialKey KeySpace) Down _ _) world = world { lasersPlayer1 = if  (length (player1Lives world))>0 then addLaser (lasersPlayer1 world) (getGameObjectCoordinates (player1 world)) laserGreenImage else (lasersPlayer1 world) }
processEvent (EventKey (SpecialKey KeySpace) Down _ _) world = world { lasersPlayer1 = if  (length (player1Lives world))>0 then addLaser (lasersPlayer1 world) (getGameObjectCoordinates (player1 world)) laserGreenImage else (lasersPlayer1 world) }
processEvent (EventKey (SpecialKey KeySpace) Down _ _) world = world { lasersPlayer1 = if  (length (player1Lives world))>0 then addLaser (lasersPlayer1 world) (getGameObjectCoordinates (player1 world)) laserGreenImage else (lasersPlayer1 world) }