SCAR Code:
Program Crybaby;
{.include srl/srl.scar}
// this is a MasterKill work (c)
var
crys, k, x, y: integer;
////////////////////////////////////////////////////////////////////////////////
// SETUP
Procedure ScriptSetup;
begin
Players[0].Nick := ''; //player nickname! needed for anti randoms!
end;
// SETUP
////////////////////////////////////////////////////////////////////////////////
procedure FindATradeByRick;
var
TradeTimeTicking: integer;
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
MoveMouseSmooth(x, y);
Wait(1000);
if IsUpTextMulti('ccept', 'rade', 'Accept') then
Mouse(x, y, 0, 0, True);
begin
TradeTimeTicking := 0
Wait(2000);
end;
end;
end;
if (not (FindColorTolerance (x, y, 3358280, 31, 34, 82, 50, 5))) then
begin
WriteLn('Trading: ~ Error');
WriteLn('');
NOTrades := NOTrades + 1
exit;
end;
if (FindColorTolerance (x, y, 3358280, 31, 34, 82, 50, 5)) then
begin
WriteLn('Trading! ~ now wait for an accept. max wait 25s');
ReportVars[3] := ReportVars[3] + 1;
repeat
if (FindColorTolerance (x, y, 16777215, 180, 296, 341, 317, 5)) then
begin
WriteLn(' ~ other player accepted! now we`ll accept to!');
Mouse(260, 192, 5, 5, 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 20s');
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...:');
Mouse(226, 311, 2, 2, True);
Case random (5) of
0: TypeSend('ty');
1: TypeSend('tnx');
2: TypeSend('yay');
3: TypeSend('hehehe');
4: TypeSend('woot');
end;
WriteLn(' ~ perfect sloved!');
Wait(1000);
exit;
end;
if (not (FindColorTolerance (x, y, 4214871, 30, 65, 64, 73, 5))) then
begin
WriteLn(' ~ the noob is not give`ing anything grr');
case random (5) of
0: TypeSend('grr');
1: TypeSend('pff');
2: TypeSend('=[');
3: TypeSend('why u trade me then... get a life');
4: TypeSend('gtfo');
end;
Trades := Trades + 1;
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(295, 312, 2, 2, True);
case random (5) of
0: TypeSend('i dont have time for you');
1: TypeSend('if its not free then get lost');
2: TypeSend('naah');
3: TypeSend('get a live');
4: TypeSend('get lost');
end;
Trades := Trades + 1;
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 give`ing anything grr');
case random (5) of
0: TypeSend('leave me alone then...');
1: TypeSend('pfff');
2: TypeSend('=[');
3: TypeSend('why u trade me then... get a life');
4: TypeSend('gtfo');
end;
Trades := Trades + 1;
exit;
end;
if ( TradeTimeTicking = 25 ) then
begin
WriteLn(' ~ took to long... now decine');
Mouse(259, 266, 5, 5, True);
case random (5) of
0: TypeSend('i dont have time for you');
1: TypeSend('if its not free then get lost');
2: TypeSend('naah');
3: TypeSend('get a live');
4: TypeSend('get lost');
end;
Trades := Trades + 1;
exit;
end;
until (false);
end;
until (false);
end;
begin
SetUpSRL;
ClearDeBug;
HowManyPlayers := 1;
NumberOfPlayers( HowManyPlayers );
CurrentPlayer := 0;
ScriptSetup;
WriteLn('you got 10 seconds before start. make sure your logged in.');
Wait(10000);
repeat
FindATradeByRick;
DoEmote(17);
Wait(3000);
K := k + 1;
if(k > 9) then
begin
FindInventoryRandoms;
FindNonInventoryRandoms;
K := 0;
end;
until(Not LoggedIn)
end.