stein3
03-31-2007, 03:11 PM
Help me. I want to make it so that it right clicks, then checks for an option. I'm guessing its easy but I can't do it :(.
Mouse(x,y,0,0,false)
if=====then
NOW IT MAKES RUNESCAPE FREEZE. it looks like a screenshot its so frozen :(
program BoneStuffer;
{.Include SRL/SRL.Scar}
var
xc,yc,x1,y2: Integer;
//Antirandoms
procedure DoAntiRandoms;
begin
FindTalk;
FindNormalRandoms;
if (FindFight = true) then
begin
RunAwayDirection('N');
Wait(10000 + random(2000));
RunBack;
end;
end;
//Picks Up Bones
Procedure PickBones;
begin
if not loggedin then exit;
repeat
if not loggedin then break;
if FindMSColor(x,y,13290192)then
begin
MMouse(x,y,5,5);
wait(100+random(50));
if (IsUpText('Take Bones')) then
begin
Mouse(x, y, 0, 0, False);
Chooseoption(x,y,'ake Bon');
Flag;
wait(2500+random(1500));
end;
end;
until(InvFull);
end;
begin
setupsrl;
DoAntiRandoms;
PickBones;
end.
It points to bones but never right-clicks. Just keeps jumping from one white object to another. Whats going wrong with this?
Mouse(x,y,0,0,false)
if=====then
NOW IT MAKES RUNESCAPE FREEZE. it looks like a screenshot its so frozen :(
program BoneStuffer;
{.Include SRL/SRL.Scar}
var
xc,yc,x1,y2: Integer;
//Antirandoms
procedure DoAntiRandoms;
begin
FindTalk;
FindNormalRandoms;
if (FindFight = true) then
begin
RunAwayDirection('N');
Wait(10000 + random(2000));
RunBack;
end;
end;
//Picks Up Bones
Procedure PickBones;
begin
if not loggedin then exit;
repeat
if not loggedin then break;
if FindMSColor(x,y,13290192)then
begin
MMouse(x,y,5,5);
wait(100+random(50));
if (IsUpText('Take Bones')) then
begin
Mouse(x, y, 0, 0, False);
Chooseoption(x,y,'ake Bon');
Flag;
wait(2500+random(1500));
end;
end;
until(InvFull);
end;
begin
setupsrl;
DoAntiRandoms;
PickBones;
end.
It points to bones but never right-clicks. Just keeps jumping from one white object to another. Whats going wrong with this?