program new;

var
  ready_col_count: Integer;
  toggle_map_col_count: Integer;
  updates_col_count: Integer;
  levelup_col_count: Integer;
  ready_x: Integer;
  ready_y: Integer;
  lobby_x: Integer;
  lobby_y: Integer;
  levelup_x: Integer;
  levelup_y: Integer;
  updates_x: Integer;
  updates_y: Integer;

begin
  ready_x := 1701;
  ready_y := 938;
  lobby_x := 1793;
  lobby_y := 1047;
  updates_x := 963;
  updates_y := 1010;
  levelup_x := 582;
  levelup_y := 893;

  repeat
    ready_col_count := CountColorTolerance(2547953, 1512, 892, 1887, 987, 12);
    if (ready_col_count > 3000) then
    begin
      WriteLn('Ready button detected');
      MoveMouse(ready_x, ready_y);
      HoldMouse(ready_x, ready_y, mouse_Left);
      Sleep(50);
      ReleaseMouse(ready_x, ready_y, mouse_Left);
      Sleep(50);
      MoveMouse(10, 10);
    end

    toggle_map_col_count := CountColorTolerance(RGBToColor(214, 235, 255), 1052, 1034, 1080, 1062, 2);
    if (toggle_map_col_count > 15) then
    begin
      WriteLn('Map button detected, returning to lobby');
      MoveMouse(lobby_x, lobby_y);
      HoldMouse(lobby_x, lobby_y, mouse_Left);
      Sleep(50);
      ReleaseMouse(lobby_x, lobby_y, mouse_Left);
      Sleep(50);
      MoveMouse(10, 10);
    end

    updates_col_count := CountColorTolerance(RGBToColor(255, 255, 255), 940, 998, 1023, 1022, 2);
    if (updates_col_count > 590) then
    begin
      WriteLn('News detected, closing news');
      MoveMouse(updates_x, updates_y);
      HoldMouse(updates_x, updates_y, mouse_Left);
      Sleep(50);
      ReleaseMouse(updates_x, updates_y, mouse_Left);
      Sleep(50);
      MoveMouse(10, 10);
    end

    levelup_col_count := CountColorTolerance(RGBToColor(255, 245, 139), 456, 859, 710, 927, 12);
    if (levelup_col_count > 2000) then
    begin
      WriteLn('Levelup detected, closing popup');
      MoveMouse(levelup_x, levelup_y);
      HoldMouse(levelup_x, levelup_y, mouse_Left);
      Sleep(50);
      ReleaseMouse(levelup_x, levelup_y, mouse_Left);
      Sleep(50);
      MoveMouse(10, 10);
    end

    Sleep(1000);
  until(false)
end.