procedure new_c(d: Integer; s: string);
var
  absX, absY, X, Y: Integer;
  c: TPoint;
begin
  absX := 431;
  absY := 136;
  if (FindColor(X, Y, 6262732, 356, 63, 388, 98)) then
  begin
    case Lowercase(s) of
      'l': c := Point((absX - d), absY);
      'r': c := Point((absX + d), absY);
      'f': c := Point(absX, (absY - d));
      'b': c := Point(absX, (absY + d));
    else
      Exit;
    end;
    MoveMouse(c.X, c.Y);
    ClickMouse(c.X, c.Y, mouse_left);
    Wait(2000);
  end;
end;