SCAR Code:
program NewtGrabber;
{.include SRL/SRL.scar}
procedure BuyItems;
begin
Mouse(94, 131, 1, 1, False);
PopUp('Buy 10');
end;
function tradescreen:boolean;
begin
if (getcolor(377, 90)=1878496) then result:=true;
end;
function PopUpDuo(Option1,Option2: string): Boolean;
var
Top, Bottom: TPoint;
dtmTop, dtmBottom, x, y: Integer;
begin
dtmTop := DTMFromString('78DA63146464606801622C0026CA28006435A' +
'3AA890D7147552345841A90393D04D4880259DD04D4880359ED04' +
'D4280059AD04FC2504644DC4AF06000DC909E0');
dtmBottom := DTMFromString('78DA635CCCC8C070198891406C883B9886893' +
'22E02B22EA1AA8101B89A8540D64522CCB948843984EC02B9F910' +
'01BBA610E1AF6944D80572F311026AE6005967F0DB05007BD4134' +
'5');
if (FindDTM(dtmTop, Top.x, Top.y, 10, 10, 764, 502) and FindDTM(dtmBottom,
Bottom.x, Bottom.y, Top.x, Top.y, 764, 502)) then
if (FindText(x, y, Option1, upchars, 0, 0, Bottom.x, Bottom.y)) and (FindText(x, y, Option2, upchars, 0, 0, Bottom.x, Bottom.y)) then
begin
Result := True;
Mouse(x + (Length(Option1)+Length(Option2)) * 3, y + 2, 4, 3, True);
Wait(150 + Random(200));
end else
if (FindText(x, y, 'Cancel', upchars, Top.x, Top.y, Bottom.x, Bottom.y))
then
Mouse(x + 3, y + 2, 4, 3, True);
FreeDTM(dtmTop);
FreeDTM(dtmBottom);
end;
Procedure BettyClick; var mybool:boolean; var tries:integer;
begin
repeat
tries:=tries+1;
if(FindObj(x,y, 'alk', 5441875, 10)) then
begin
mybool:=true;
Mouse(x,y,1,1,false);
popupduo('rade','etty');
end;
if not(mybool) then wait(500+random(500));
until((mybool) or (tries>5));
if not(mybool) then logout;
end;
procedure SetupScript;
begin
SetupSRL;
activateclient;
end;
begin
SetupScript;
BettyClick;
if (tradescreen) then
BuyItems;
else
end.