Code:
program dhiding;
{.include srl/srl.scar}
const
bobcolor=4214624;
bobcolorback=1646903;
hide1=543240;
hide2=540672;
general=1069210;
general1=7298904;
procedure openshop; // this opens the shop to where it sells d-hide
var x,y :integer;
begin
if(FindColorSpiralTolerance(x,y,bobcolor,msx1,msy1,msx2,msy2,0) or // this finds the color of bob's head, (the guy who sells it)
FindColorSpiraltolerance(x,y,bobcolorback,msx1,msy1,msx2,msy2,0)) then // this finds the color of bob's head, (the guy who sells it)
begin
Mouse(x,y,0,0,true);
writeln('found bob');
wait(1000);
end;
end;
procedure purchasehide; // buys the d'hide
var x,y :integer;
begin
if(FindColorSpiralTolerance(x,y,hide1,msx1,msy1,msx2,msy2,0) or // finds the hide
FindColorSpiraltolerance(x,y,hide2,msx1,msy1,msx2,msy2,0)) then // finds the hide
begin
mouse(x,y,0,0,false); //right clicks the green d'hide
wait(200);
mouse(233, 230, 0, 0, true); //clicks the x amount
wait(400);
TypeSend('26')
wait(1000);
mouse(482, 36,0,0,true); [color="blue]//closes the shop[/color]
end;
end;
procedure makehide;
var x,y :integer;
begin
if(FindColorSpiralTolerance(x,y,hide1,638,213,683,246,0) or
FindColorSpiraltolerance(x,y,hide2,638,213,683,246,0)) then
begin
mouse(618,235,0,0,true);
wait(320);
mouse(x,y,0,0,true);
wait(320);
mouse(410,419,0,0,false);
wait(200);
mouse(409, 479,0,0,true);
wait(1200);
end else
begin
openshop;
writeln('safe');
end;
end;
procedure opengeneral;
var x,y:integer;
begin
if(FindColorSpiralTolerance(x,y,general,msx1,msy1,msx2,msy2,0) or
FindColorSpiraltolerance(x,y,general1,msx1,msy1,msx2,msy2,0)) then
begin
Mouse(x,y,0,0,true);
wait(1500);
if(FindColorSpiralTolerance(x,y,hide1,638,213,683,246,0) or
FindColorSpiraltolerance(x,y,hide2,638,213,683,246,0)) then
begin
Mouse(x,y,0,0,false);
wait(300);
Mouse(622,316,0,0,true);
wait(300);
mouse(483, 35, 0, 0, true);
wait(300);
end;
end;
end;
begin
ActivateClient;
MouseSpeed := 60
repeat
openshop;
purchasehide;
makehide;
opengeneral;
until(false);
end.