processEvent (EventKey (Char 'd') Up _ _) world = world { player1Right = False }
processEvent (EventKey (Char 'd') Up _ _) world = world { player1Right = False }
processEvent (EventKey (Char 'd') Up _ _) world = world { player1Right = False }