SCAR Code:
procedure TradeIn; // Thanks MasterKill, Rikjess, and Hy71194!!!
begin
repeat
begin
if (not (FindColorTolerance (x, y, 8388736, 23, 437, 294, 459, 5))) then
begin
exit;
end;
if (FindColorTolerance (x, y, 8388736, 23, 437, 294, 459, 5)) then
begin
MMouse(x,y,0,0);
Wait(200+Random(300));
if IsUpTextMultiCustom(['ccept', 'rade', 'Accept']) then
Mouse(x, y, 1, 1, True);
begin
TradeTimeTicking := 0
Wait(10000+Random(5000));
end;
end;
end;
if (not (FindColorTolerance (x, y, 3358280, 31, 34, 82, 50, 5))) then
begin
WriteLn('Trading: Error!');
MFF(MMCX + Random(10), MMCY + Random(10), 7, 7); // MiniMap 'blind click' so just in case you get a trade somehow, you wont get a NoGameTab.
Inc(TradesError);
Inc(ReportVars[2]);
SRLRandomsReport;
exit;
end;
if (FindColorTolerance (x, y, 3358280, 31, 34, 82, 50, 5)) then
begin
WriteLn('Trading! Now wait for an Accept. Max Wait: 25 sec.');
repeat
if (FindColorTolerance (x, y, 16777215, 180, 296, 341, 317, 5)) then
begin
WriteLn('Other player accepted! Now we''ll accept too!');
Mouse(256, 164, 6, 6, True);
Wait(2000);
if (FindColorTolerance (x, y, 4214871, 30, 65, 64, 73, 5)) then
begin
WriteLn('We made it to the seccond window!');
WriteLn('Now wait for an second accept. Max Wait 20 sec.');
Wait(1500);
TradeTimeTicking := 0
repeat
if (FindColorTolerance (x, y, 16776960, 301, 38, 303, 42, 5)) then
begin
WriteLn('Accepted! all we need to do now is say thx :D');
Mouse(223, 309, 3, 3, True);
case random (5) of
0: TypeSend('ty');
1: TypeSend('thx');
2: TypeSend('thanks for your kindness');
3: TypeSend('thank you');
4: TypeSend('thanks');
end;
WriteLn('Trade sloved!');
Inc(TradeWin);
Inc(ReportVars[0]);
SRLRandomsReport;
Wait(100+Random(500));
exit;
end;
if (not (FindColorTolerance (x, y, 4214871, 30, 65, 64, 73, 5))) then
begin
WriteLn('The noob is not giving anything ... Decline.');
case random (5) of
0: TypeSend('hit accept pl0x');
1: TypeSend('give me stuff');
2: TypeSend('no thanks');
3: TypeSend('hit accept');
4: TypeSend('-.-');
end;
Inc(TradeBad);
Inc(ReportVars[1]);
SRLRandomsReport;
exit;
end;
if (FindColorTolerance (x, y, 4214871, 30, 65, 64, 73, 5)) then
begin
Wait(1000);
TradeTimeTicking := TradeTimeTicking + 1
end;
if ( TradeTimeTicking = 20 ) then
begin
WriteLn('Took to long... Now Decine.');
Mouse(297, 310, 2, 2, True);
case random (5) of
0: TypeSend('i dont have time for you');
1: TypeSend('no thanks');
2: TypeSend('-.-');
3: TypeSend('no thanks');
4: TypeSend('get lost');
end;
Inc(TradeBad);
Inc(ReportVars[1]);
SRLRandomsReport;
exit;
end;
until(false);
end;
end;
TradeTimeTicking := TradeTimeTicking + 1
Wait(1000);
if (not (FindColorTolerance (x, y, 3358280, 31, 34, 82, 50, 5))) then
begin
WriteLn('The noob is not giving anything ... Decline.');
case random (5) of
0: TypeSend('hit accept');
1: TypeSend('accept');
2: TypeSend('-.-');
3: TypeSend('???');
4: TypeSend('go away');
end;
Inc(TradeBad);
Inc(ReportVars[1]);
SRLRandomsReport;
exit;
end;
if ( TradeTimeTicking = 25 ) then
begin
WriteLn('Took to long ... Decine');
Mouse(258, 217, 5, 5, True);
case random (5) of
0: TypeSend('-.-');
1: TypeSend('hit accept');
2: TypeSend('nah');
3: TypeSend('no thanks');
4: TypeSend('get lost');
end;
Inc(TradeBad);
Inc(ReportVars[1]);
SRLRandomsReport;
exit;
end;
until (false);
end;
until (false);
Exit; // So the script doesn't "hang" for some reason.
end;