if (keyToAction(getKeyClicked)=GA_LEFT) then s:=1 elseif (keyToAction(getKeyClicked)=GA_DOWN) then s:=2 elseif (keyToAction(getKeyClicked)=GA_RIGHT) then s:=3;