program Crafter;

Const
  ClickOdotus = 20;
  MoveOdotus = 20;


var
  x1, ShopX, ShopY: Integer;


procedure FindClient;
var
  I: Integer;
begin
  for I := 0 to 600 do
  begin
    if (GetColor(I, 420) = 2437688) then x1 := I;
    if x1 > 0 then
    begin
      WriteLn('Clientti loyty (X='+IntToStr(x1)+')');
      Exit;
    end;
  end;
end;


procedure C(x, y: Integer; Left: Boolean);
begin
  MoveMouse(x-258+x1, y);
  Wait(70);
  ClickMouse(x-258+x1, y, Left);
  Wait(70);
end;

function ShopScreen: Boolean;
begin
  Result := (GetColor(222+x1, 41) = 2070783);
end;


procedure CloseShop;
var
  I: Integer;
begin
  while ShopScreen do
  begin
    MoveMouse(697-258+X1, 37);
    Wait(30);
    ClickMouse(697-258+X1, 37, True);
    while ShopScreen and (I < 350) do
    begin
      Wait(10);
      Inc(I);
    end;
    if I < 350 then Exit;
    I := 0;
  end;
end;



procedure WalkMMDot;
var
  DTM, x, y, I, II: Integer;
begin
  DTM := DTMFromString('78DA639CC8CCC010CD80025E426946180D521' +
       '385AAC6CDDE9E4119594D2F504D0684CD06159BD0DC84AAA618A8' +
       '2602C2E6C0654E33504D1684CD0E15F3956640510300BA8709AD');
  WriteLn('Walking to the right spot');
  if FindDTM(DTM, x, y, 827-257+X1, 9, 971-257+X1, 136) then
  begin
    WriteLn('DTM FOUND =)');
    MoveMouse(x+16, y-7);
    Wait(200);
    ClickMouse(x+16, y-7, True);
    Wait(1000);
    repeat
      if not FindColor(x, y, 255, 822-257+X1, 10, 969-257+X1, 132) then I := I + 1
      else I := 0;
      Inc(II);
      Wait(10);
    until((I = 15) or (II=500));
    Wait(1000);
  end;
  FreeDTM(DTM);
end;



procedure OpenShop;
var
  x, y, I, II, III, A, MMTries: Integer;
  NewX: Integer;
begin
  repeat
    if IsFKeyDown(10) then TerminateScript;
    MoveMouse(ShopX-257+X1, ShopY);
    while (CountColorTolerance(53199, 315-258+X1, 5, 360-258+X1, 15, 40) < 7) do
    begin
      Wait(10);
      A := A + 1;
      if A = 150 then
      begin
        ClickMouse(790-258+X1, 263, True);
        Wait(80);
        ClickMouse(790-258+X1, 263, True);
        Wait(80);
        MoveMouse(ShopX-257+X1, ShopY);
        Wait(80);
      end;
      if A = 300 then
      begin
        for A := 300 to 400 do
        begin
          NewX := ShopX+A-300;
          MoveMouse(NewX-257+X1, ShopY);
          Wait(100);
          if (CountColorTolerance(255463, 315-258+X1, 5, 360-258+X1, 15, 35) > 6) then Break;
          NewX := ShopX-A+300;
          MoveMouse(NewX-257+X1, ShopY);
          Wait(100);
          if (CountColorTolerance(255463, 315-258+X1, 5, 360-258+X1, 15, 35) > 6) then Break;
        end;
        if A < 400 then ShopX := NewX
        else begin
          if MMTries > 5 then TerminateScript;
          MMTries := MMTries + 1;
          WalkMMDot;
          A := 0;
          Continue;
        end;
      end;
    end;
    ClickMouse(ShopX-257+X1, ShopY, False);
    III := 0;
    while (III < 50) do
    begin
      if FindColor(x, y, 65535, ShopX-280+X1, ShopY-30, ShopX-255+X1, ShopY+80) then
      begin
        ClickMouse(ShopX-257+X1, Y+20, True);
        Break;
      end;
      Inc(III);
      Wait(5)
    end;
    if III > 49 then Continue;
    //Wait(100);
    //ClickMouse(ShopX-258+X1, ShopY+42, True);
    I := 0;
    repeat
      Wait(10);
      I := I+1;
    until(ShopScreen or (I > 200));
  until(ShopScreen);
  MoveMouse(445-258+X1, 130);
  Wait(50);
  ClickMouse(445-258+X1, 130, False);
  while not FindColor(x, y, 65536, 445-258+X1, 130, 450-257+X1, 135) do Wait(5);
  ClickMouse(435-258+X1, 216, True);
  Wait(50);
  CloseShop;
  repeat
    Wait(10);
    II := II+1
  until(((GetColor(960-258+X1, 450) <> 3357765) and (GetColor(920-258+X1, 450) <> 3357765))) or (II > 200);
end;


function Clicks(ClickWait, MouseWait: Integer): Integer;
var
  T: Integer;
begin
  MoveMouse(970, 445);
  Wait(50);
  T := GetTimeRunning;
  repeat
    if IsFKeyDown(10) then TerminateScript;
    MoveMouse(953-258+X1, 445);
    Wait(MoveOdotus);
    ClickMouse(953-258+X1, 445, True);
    Wait(ClickOdotus);
    MoveMouse(931-258+X1, 445);
    Wait(MoveOdotus);
    ClickMouse(931-258+X1, 445, True);
    Wait(ClickOdotus);
  until(GetColor(960-258+X1, 450) = 3357765) or (GetColor(920-258+X1, 450) = 3357765);
  Result := GetTimeRunning-T;
  ClickMouse(790-258+X1, 263, True);
  Wait(10);
  ClickMouse(790-258+X1, 263, True);
  Wait(10);
  ClickMouse(790-258+X1, 263, True);
  Wait(15);
end;

begin
  Wait(3000);
  FindClient;
  //GetMousePos(ShopX, ShopY);
  WalkMMDot;
  ShopX := 517;
  ShopY := 167;
  repeat
    Clicks(ClickOdotus, MoveOdotus);
    OpenShop;
  until(false);
end.