updateCounter :: GameWorld->GameWorld
updateCounter world = world {frameCounter = ((frameCounter world)+1)}
updateCounter :: GameWorld->GameWorld
updateCounter world = world {frameCounter = ((frameCounter world)+1)}
updateCounter world = world {frameCounter = ((frameCounter world)+1)}