src/View.hs

@@ -60,7 +60,7 @@ viewPure gstate@(GameState {screen, ufos, meteorTimer, spaceShip, player, poweru
     let score'    =  color yellow      (textPlus (textX, textY - 30) textSize $ "score: " ++ show (score player))
     let velocity' =  color green       (textPlus (textX, textY - 60) textSize $ "speed: " ++ show (round $ getVelocity spaceShip) ++ " m/s")
     let time      =  color green       (textPlus (textX, textY - 90) textSize $ "time: "  ++ printf "%.3f" elapsedTime ++ " s")
-    let debug     =  color red         (textPlus (textX, textY - 120) textSize $ "meteortimer: " ++ printf "%.3f" meteorTimer)
+    -- let debug     =  color red         (textPlus (textX, textY - 120) textSize $ "meteortimer: " ++ printf "%.3f" meteorTimer)
     let notif     =  color white       (textPlus (-100, textY)       textSize $ notification)
     let tooltip'  =  color (greyN 0.5) (textPlus (-50, textY - 30)  (textSize-0.06) $ tooltip)
 
@@ -76,7 +76,7 @@ viewPure gstate@(GameState {screen, ufos, meteorTimer, spaceShip, player, poweru
 
     let explos' = pictures (map toImage $ explosions gstate)
 
-    let pics = [debug, player', explos', ufos', meteors', score', tooltip', notif, powerup', time, velocity', ship', bullets', bulletss']
+    let pics = [player', explos', ufos', meteors', score', tooltip', notif, powerup', time, velocity', ship', bullets', bulletss']
     pictures pics
 
 maybeMake :: Maybe Powerup -> Picture

src/highscores.txt

-("Player", 2720)
-("Player", 1990)
-("Player", 720)
+("Roderick", 12140)
 ("boris", 640)
-("Player", 410)
-("Player", 320)
-("Player", 310)
-("Player", 290)
+("gerda", 290)