SRL Archive - Help and Support

Just wonders around


steth1010

2007-05-14 17:47:30

In this procedure below it walks to draynor bank to the willows. It actually walks perfectly everytime! But when it gets there it does everything right but the mouse then just moves around randomly and won't go to the willow tree. The colors are right and I switched the colors alot to see but didn't make a difference. Whats wrong. (Standards might not be the best yet because I havn't touched them up because this is just a quick little edit I am making then I'm releasing my Willow Chopper + Banker)

**Please don't comment on standards:D**:f:

procedure WalkToWillowsandCut;
begin
wait(2000);
MakeCompass('E');
if (FindSymbol(x, y, 'Fish')) then
begin
Mouse(x, y, 2, 1, True);
setrun(true);
Gametab(4)
MakeCompass('N');
end else
begin
Writeln('Can not find Symbol, Walking MiniMap');
MakeCompass('N');
RadialWalk(12029819, 202, 557, 44, 0, 1);
end;
wait(5000);
flag;
FindAxeHeadColor;
if (FindColor(x, y, WillowColor, MSX1, MSY1, MSX2, MSY2)) then
begin
repeat
HighestAngle;
MakeCompass('N');
FindHead;
AntiRandoms;
FindEnt(WillowColor);
MMouse(x, y, 2, 1);
wait(1000 + random(10));
if (IsUpText('Chop')) then
begin
Mouse(x,y,2,1,true);
end else
begin
Writeln('Can not find willows, switching players');
Logout;
Nextplayer(true);
end;
Chopped := Chopped + 27;
Banked := Banked + 1;
until (InvFull);
end;
end;

Ejjman

2007-05-14 21:00:30

Um well I won't tell you failsafes etc etc cuz the chopping procedure isn't perfect..BUT, try, below FindAxeHeadColor + if(FindColor etc), put all that highest angle stuff. Also, change your things to xx, yy, cuz maybe x and y don't work?

steth1010

2007-05-14 22:07:24

this is just editing part im making chopping and stuff better, and ill tryy xx yy never thoughtt of that lol