Simba Code:
program DharokBot;
{$i srl\srl.simba}
const
Dharok_the_Wretched = 4071801;
HELM = 5735316;
PLATEBODY = 5735316;
GREATAXE = 5735316;
PLATELEGS = 5735316;
var
x, y, w, h, kills: integer;
Procedure Pickuphelm;
begin
if srl_infight = false then
if(FindColor(x, y, HELM, MSX1, MSY1, MSX2, MSY2))then
begin Mouse(x, y, 1, 1, true);
end;
end;
Procedure Pickupbody;
begin
if srl_infight = false then
if(FindColor(x, y, PLATEBODY, MSX1, MSY1, MSX2, MSY2))then
begin Mouse(x, y, 1, 1, true);
end;
end;
Procedure Pickuplegs;
begin
if srl_infight = false then
if(FindColor(x, y, PLATELEGS, MSX1, MSY1, MSX2, MSY2))then
begin Mouse(x, y, 1, 1, true);
end;
end;
Procedure Pickupaxe;
begin
if srl_infight = false then
if(FindColor(x, y, GREATAXE, MSX1, MSY1, MSX2, MSY2))then
begin Mouse(x, y, 1, 1, true);
end;
end;
Procedure prayers;
begin
Movemouse(708, 150)
Wait(500)
Clickmouse(708, 150, 1)
end;
Procedure prayersmelee;
begin
Movemouse(678, 310)
Wait(500)
Clickmouse(678, 310, 1)
end;
procedure KillDharok;
begin
GetClientDimensions(w, h);
if srl_infight = false then
if FindColor(x, y, Dharok_the_Wretched, 0, 0, w-1, h-1)then
begin
Mouse(x, y, 0, 0, True);
Writeln('Dharok Found!');
wait(50000);
Inc(kills);
end else
wait(100);
end;
procedure WaitDharok;
begin
GetClientDimensions(w, h);
if srl_inFight = true then
if FindColor(x, y, Dharok_the_Wretched, 0, 0, w-1, h-1)then
end;
begin
ClearDebug;
SetUpSRL;
Prayers;
Prayersmelee;
repeat
pickuphelm;
pickupbody;
pickuplegs;
pickupaxe;
Waitdharok;
Killdharok;
until
end.