Need A LittleHelp

[lmcdonald]

Hi Im making a script at the moment my first script I had no knowledge of Pascal till last week and havnt had much time to learn so bare with me. Im making a script for Runescape in the Level 30 Dungeoneering reward the forest, There are maple and willow tree's there this is what i have at the moment.



What I need help with is walking Im trying figure out how I can auto color because I don't want to log back in tomorrow and find the path colors have changed ect

I think it needs to be said as a const but not sure basically its walking to and from the tree's to cut and burn them

if anybody can help please do i think ive made 1 or 2 error's on there too.







Program CuttingBurning;
{$DEFINE SMART}
{$i SRL/srl.simba}
Var
TINDER,MAPLELOG,x,y,z,w,i,u:Integer;

procedure DeclarePlayers;
Begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;

With Players[0] Do
Begin
Name := '';
Pass := '';
Nick := '';
Active := True;
End;

End;

procedure SetupChar;

begin

SetupSRL();
SetAngle(0);
ClickNorth(0);
end;

function findthem: Boolean;
begin
TINDER:= DTMFromString('mlwAAAHicY2dgYEhiZWDIBuI8Vgg7BIhDgT gOiP8B5b8DMQcjAwM7EHMCMTMQ/wSKhYUEAUkmMDbRZYezQRioFSdmxIOhAABOMwd0');
MAPLELOG := DTMFromString('mbQAAAHicY2VgYHjAysDwDohfA/EVIL4OxIyMDAzMQPwXKM/BCOFHWfMAeUxgnOujyFAerMIAVIqBGbFgMAAAjqkIHA==');
if FindDTM(TINDER,x,y,MIX1,MIY1,MIX2,MIY2) then
if FindDTM(MAPLELOG,z,w,MIX1,MIY1,MIX2,MIY2) then
Mouse (z,w,0,2,mouse_right);
Wait (500+random(400));
ChooseOption('ight')
Wait (500+random(300));

FreeDTM (TINDER);
FreeDTM (MAPLELOG);


end;


Function Grabcolors:Integer;
begin
Var
walkcolormaple,walkcolorwillow,walkcolorbrun:inter ger;




end;

Procedure Walkingtomaple;

begin
RadialWalkAutoColor()

end;
Procedure Walkingtowillow;
begin
end;






function getlevel:String
begin
end;

procedure Startup;
begin
Smart_Server := 69;
Smart_Members:= true;
Smart_Signed := true;
Smart_SuperDetail := false;
SetupSRL;
DeclarePlayers;
LogInPlayer;
wait(1000+random(230));
end;

Procedure logsmaple;
begin
findthem;
Wait(500 + random(500));
end;

begin
Startup;
SetupChar;
repeat
logsmaple;
Until (not LoggedIn);
end.

[lilcmp1]

Have you thought about dtm walking?

If your set on using radialwalk use RadialWalkTolerance() so you can set a color tolerance so you wont have to update everytime ^.^

[lmcdonald]

Well Ive Found (ACA) For Auto colouring My Maples ect, Ive just got to figure out the walking now. What I might do is go outside the entrance to light the logs it might be easier than to keep moving if there's no room to light them.

[lmcdonald]

Can somebody tell me how to use the InvCount function im trying to


repeat
Burnlogs
Until (Invcount?????)

Cant use the InvEmpty function because still need the tinderbox there for next load