SCAR Code:
procedure TradeGuy;
var
x, y, T:integer;
begin
FindNormalRandoms;
if FindSymbolIn(x, y, 'shop', 586, 27, 623, 65) then
begin
mouse(x,y,4,6, true);
wait(4000);
end else
Logout;
if FindObjTPA(x,y,14474464,20,2,1,1,30,['hop']) then
begin
mouse(x,y,4,6, false);
ChooseOption('Trade')
mouse(189,69,10,4,true);
wait(900); //for lag
Mouse(582,227,10,10,false);
ChooseOption('sell 10');
Mouse(582,227,10,10,false);
ChooseOption('sell 5');
Mouse(582,227,10,10,false);
ChooseOption('sell 10');
Mouse(582,227,10,10,false);
ChooseOption('sell 1');
end else
Logout;
If(FindDTM(FoodDTM, x, y, 37, 92, 471, 288)) then
begin
Mouse(x,y,8,8,false);
ChooseOption('Buy 10');
Mouse(x,y,8,8,false);
ChooseOption('Buy 1');
Mouse(x,y,8,8,false);
ChooseOption('Buy 5');
Mouse(x,y,8,8,false);
ChooseOption('Buy 10');
end else
Logout;
if(FindObjTPA(x,y,2448971,15,2,1,1,15,'alk')) then
begin
mouse(x,y,1,1,true);
mouse(320,268,4,4,true);
end else
Logout;
Inc(t)
end;