processEvent (EventKey (Char 's') Up _ _) world = world { player1Down = False }
processEvent (EventKey (Char 's') Up _ _) world = world { player1Down = False }
processEvent (EventKey (Char 's') Up _ _) world = world { player1Down = False }