SCAR Code:
function Spell: Boolean;
begin
GameTab(7);
Wait(200 + random(200)); //change this
{//If High Alch\\}
if Players[CurrentPlayer].Booleans[0] then
begin
if GetColor(577, 363) = 849658 then
begin
Wait(100 + random(100)); //change this
MMouse(561, 350, 17, 17);
Wait(100 + random(50 + random(20))); //change this
if IsUpText('igh') then
begin
Mouse(561, 350, 17, 17, true);
Result := true;
Wait(400 + random(200)); //change this
end else
begin
CErr('Spell not found.');
Failed := Failed + 1;
Check;
Result := false;
end;
end else
begin
CErr('Spell not found.');
Failed := Failed + 1;
Check;
Result := false;
end;
end else
{\\If High Alch//}
{//If Low Alch\\}
begin
if GetColor(711, 267) = 849658 then
begin
Wait(100 + random(100));
MMouse(708, 254, 15, 15);
Wait(100 + random(50 + random(20))); //change this
if IsUpText('ow') then
begin
Mouse(708, 254, 15, 15, true);
Result := true;
Wait(400 + random(200)); //change this
end else
begin
CErr('Spell not found.');
Failed := Failed + 1;
Check;
Result := false;
end;
end else
begin
CErr('Spell not found.');
Failed := Failed + 1;
Check;
Result := false;
end;
end;
{\\If Low Alch//}
end;
SCAR Code:
procedure ItemClick;
begin
if InvRandoms then
Exit;
{//If High Alch\\}
if Players[CurrentPlayer].Booleans[0] then
begin
if ExistsItem(Players[CurrentPlayer].Integers[0]) then
begin
MMouseItem(Players[CurrentPlayer].Integers[0]);
if IsUpText('igh') then
begin
MouseItem(Players[CurrentPlayer].Integers[0], true);
Wait(1000+random(200)); //change this
if GetCurrentTab = 7 then
begin
Failed := 0;
Items := Items + 1;
Total := Total + 1;
uxp := uxp + 65;
txp := txp + 65;
ReportVars[0] := ReportVars[0] + 1;
ReportVars[1] := ReportVars[1] + 65;
SwitchNow;
Exit;
end else
begin
Failed := Failed + 1;
Exit;
end;
end else
begin
Failed := Failed + 1;
Check;
Exit;
end;
end else
begin
Check;
Exit;
end;
end else
{\\If High Alch//}
{//If Low Alch\\}
begin
if ExistsItem(Players[CurrentPlayer].Integers[0]) then
begin
MMouseItem(Players[CurrentPlayer].Integers[0]);
if IsUpText('ow') then
begin
MouseItem(Players[CurrentPlayer].Integers[0], true);
Wait(1000+random(200)); //change this
if GetCurrentTab = 7 then
begin
Failed := 0;
Items := Items + 1;
Total := Total + 1;
uxp := uxp + 31;
txp := txp + 31;
ReportVars[0] := ReportVars[0] + 1;
ReportVars[1] := ReportVars[1] + 31;
SwitchNow;
Exit;
end else
begin
Failed := Failed + 1;
Exit;
end;
end else
begin
Failed := Failed + 1;
Check;
Exit;
end;
end else
begin
Failed := Failed + 1;
Check;
Exit;
end;
end;
{\\If Low Alch//}
end;
