SHARE
TWEET

Untitled

a guest Jun 19th, 2017 51 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. program Crafter;
  2.  
  3. Const
  4.   ClickOdotus = 20;
  5.   MoveOdotus = 20;
  6.  
  7.  
  8. var
  9.   x1, ShopX, ShopY: Integer;
  10.  
  11.  
  12. procedure FindClient;
  13. var
  14.   I: Integer;
  15. begin
  16.   for I := 0 to 600 do
  17.   begin
  18.     if (GetColor(I, 420) = 2437688) then x1 := I;
  19.     if x1 > 0 then
  20.     begin
  21.       WriteLn('Clientti loyty (X='+IntToStr(x1)+')');
  22.       Exit;
  23.     end;
  24.   end;
  25. end;
  26.  
  27.  
  28. procedure C(x, y: Integer; Left: Boolean);
  29. begin
  30.   MoveMouse(x-258+x1, y);
  31.   Wait(70);
  32.   ClickMouse(x-258+x1, y, Left);
  33.   Wait(70);
  34. end;
  35.  
  36. function ShopScreen: Boolean;
  37. begin
  38.   Result := (GetColor(222+x1, 41) = 2070783);
  39. end;
  40.  
  41.  
  42. procedure CloseShop;
  43. var
  44.   I: Integer;
  45. begin
  46.   while ShopScreen do
  47.   begin
  48.     MoveMouse(697-258+X1, 37);
  49.     Wait(30);
  50.     ClickMouse(697-258+X1, 37, True);
  51.     while ShopScreen and (I < 350) do
  52.     begin
  53.       Wait(10);
  54.       Inc(I);
  55.     end;
  56.     if I < 350 then Exit;
  57.     I := 0;
  58.   end;
  59. end;
  60.  
  61.  
  62.  
  63. procedure WalkMMDot;
  64. var
  65.   DTM, x, y, I, II: Integer;
  66. begin
  67.   DTM := DTMFromString('78DA639CC8CCC010CD80025E426946180D521' +
  68.        '385AAC6CDDE9E4119594D2F504D0684CD06159BD0DC84AAA618A8' +
  69.        '2602C2E6C0654E33504D1684CD0E15F3956640510300BA8709AD');
  70.   WriteLn('Walking to the right spot');
  71.   if FindDTM(DTM, x, y, 827-257+X1, 9, 971-257+X1, 136) then
  72.   begin
  73.     WriteLn('DTM FOUND =)');
  74.     MoveMouse(x+16, y-7);
  75.     Wait(200);
  76.     ClickMouse(x+16, y-7, True);
  77.     Wait(1000);
  78.     repeat
  79.       if not FindColor(x, y, 255, 822-257+X1, 10, 969-257+X1, 132) then I := I + 1
  80.       else I := 0;
  81.       Inc(II);
  82.       Wait(10);
  83.     until((I = 15) or (II=500));
  84.     Wait(1000);
  85.   end;
  86.   FreeDTM(DTM);
  87. end;
  88.  
  89.  
  90.  
  91. procedure OpenShop;
  92. var
  93.   x, y, I, II, III, A, MMTries: Integer;
  94.   NewX: Integer;
  95. begin
  96.   repeat
  97.     if IsFKeyDown(10) then TerminateScript;
  98.     MoveMouse(ShopX-257+X1, ShopY);
  99.     while (CountColorTolerance(53199, 315-258+X1, 5, 360-258+X1, 15, 40) < 7) do
  100.     begin
  101.       Wait(10);
  102.       A := A + 1;
  103.       if A = 150 then
  104.       begin
  105.         ClickMouse(790-258+X1, 263, True);
  106.         Wait(80);
  107.         ClickMouse(790-258+X1, 263, True);
  108.         Wait(80);
  109.         MoveMouse(ShopX-257+X1, ShopY);
  110.         Wait(80);
  111.       end;
  112.       if A = 300 then
  113.       begin
  114.         for A := 300 to 400 do
  115.         begin
  116.           NewX := ShopX+A-300;
  117.           MoveMouse(NewX-257+X1, ShopY);
  118.           Wait(100);
  119.           if (CountColorTolerance(255463, 315-258+X1, 5, 360-258+X1, 15, 35) > 6) then Break;
  120.           NewX := ShopX-A+300;
  121.           MoveMouse(NewX-257+X1, ShopY);
  122.           Wait(100);
  123.           if (CountColorTolerance(255463, 315-258+X1, 5, 360-258+X1, 15, 35) > 6) then Break;
  124.         end;
  125.         if A < 400 then ShopX := NewX
  126.         else begin
  127.           if MMTries > 5 then TerminateScript;
  128.           MMTries := MMTries + 1;
  129.           WalkMMDot;
  130.           A := 0;
  131.           Continue;
  132.         end;
  133.       end;
  134.     end;
  135.     ClickMouse(ShopX-257+X1, ShopY, False);
  136.     III := 0;
  137.     while (III < 50) do
  138.     begin
  139.       if FindColor(x, y, 65535, ShopX-280+X1, ShopY-30, ShopX-255+X1, ShopY+80) then
  140.       begin
  141.         ClickMouse(ShopX-257+X1, Y+20, True);
  142.         Break;
  143.       end;
  144.       Inc(III);
  145.       Wait(5)
  146.     end;
  147.     if III > 49 then Continue;
  148.     //Wait(100);
  149.     //ClickMouse(ShopX-258+X1, ShopY+42, True);
  150.     I := 0;
  151.     repeat
  152.       Wait(10);
  153.       I := I+1;
  154.     until(ShopScreen or (I > 200));
  155.   until(ShopScreen);
  156.   MoveMouse(445-258+X1, 130);
  157.   Wait(50);
  158.   ClickMouse(445-258+X1, 130, False);
  159.   while not FindColor(x, y, 65536, 445-258+X1, 130, 450-257+X1, 135) do Wait(5);
  160.   ClickMouse(435-258+X1, 216, True);
  161.   Wait(50);
  162.   CloseShop;
  163.   repeat
  164.     Wait(10);
  165.     II := II+1
  166.   until(((GetColor(960-258+X1, 450) <> 3357765) and (GetColor(920-258+X1, 450) <> 3357765))) or (II > 200);
  167. end;
  168.  
  169.  
  170. function Clicks(ClickWait, MouseWait: Integer): Integer;
  171. var
  172.   T: Integer;
  173. begin
  174.   MoveMouse(970, 445);
  175.   Wait(50);
  176.   T := GetTimeRunning;
  177.   repeat
  178.     if IsFKeyDown(10) then TerminateScript;
  179.     MoveMouse(953-258+X1, 445);
  180.     Wait(MoveOdotus);
  181.     ClickMouse(953-258+X1, 445, True);
  182.     Wait(ClickOdotus);
  183.     MoveMouse(931-258+X1, 445);
  184.     Wait(MoveOdotus);
  185.     ClickMouse(931-258+X1, 445, True);
  186.     Wait(ClickOdotus);
  187.   until(GetColor(960-258+X1, 450) = 3357765) or (GetColor(920-258+X1, 450) = 3357765);
  188.   Result := GetTimeRunning-T;
  189.   ClickMouse(790-258+X1, 263, True);
  190.   Wait(10);
  191.   ClickMouse(790-258+X1, 263, True);
  192.   Wait(10);
  193.   ClickMouse(790-258+X1, 263, True);
  194.   Wait(15);
  195. end;
  196.  
  197. begin
  198.   Wait(3000);
  199.   FindClient;
  200.   //GetMousePos(ShopX, ShopY);
  201.   WalkMMDot;
  202.   ShopX := 517;
  203.   ShopY := 167;
  204.   repeat
  205.     Clicks(ClickOdotus, MoveOdotus);
  206.     OpenShop;
  207.   until(false);
  208. end.
RAW Paste Data
Pastebin PRO Summer Special!
Get 40% OFF on Pastebin PRO accounts!
Top