So I am trying to create a script that nets for fish south of lumbridge near the mining spot that proceeds on full inventory to walk north to the tree behind the graveyard and chops down one of the two trees and cooks all the fish then drops and repeats. I, for the life of me, can't get radial walking to work. What is wrong? I think it is my RadialWalk(RoadColor, 315, 22, 65, -1, 0); but from the guide I was reading last night that is what it is supposed to be, or will it not work because it is a dirt road on that path? Please help!
SCAR Code:
program NETFisher;
{$I SRL/SRL.Simba}
{$I SRL/SRL/Misc/Debug.Simba}
{$I P07Include.Simba}
var
x,y,fishDTM,logDTM,tinderDTM,test: Integer;
Text: TStringArray;
procedure DTMS;
Begin
fishDTM := DTMFromString('mFQEAAHicncsxCsJAFEXRN2AQMUoWa28jYrC2tjIwINE1iKCFYjspYoKiIEM2oIXeYhpL/XCKx+X3JHWNFKONCB20ghf9iTcStkEfF7bHA1dUKFGgDq0J3eEMe2y03HnZvdd4ddPQOqV5pUHmZLd3zdYnTfKDprTRwmm+qRXx9yvzh6/7APp8Kzs=');
logDTM := DTMFromString('maQEAAHicE2RgYNjBxMCwB4iPAfEJKD4IxLugYmeB+DQQbwXiLUB8GIiPAvE5qNq9QPwYaM59IL4HxLeB+AkQvwbil0D8AoifQtnPoXIgdbegYiB174B4RUc8Q1u6HRiXx1iAcV++M1gcRFfHWYLpWbXhDCWRZgyd2Q4MvtbKcHVTi10YWIHmUIoZqYAxAAAEpDDy');
tinderDTM:= DTMFromString('mfgEAAHicE2JgYIhnYmBIB+IyIM4F4hQgTgLiDCAuAOJSIK4E4kIgLoLSOUCcB8QVUBqk7ynQrLtAfBOIHwPxMyB+A8TvoPgFED8B4ldI8iD2R6jcHSB+AMRrFy5kaCgvZ4iLiGBYNG0aw9JZMxmWz57NsGTGdIY5EycydNTXMeSnp4PlEh054XhmXx9QNyNDTXExw/TeHgZWII8amJFKGBMAAK26MVs=');
WriteLn('Loaded DTM''s');
end;
procedure DTMFree;
Begin
FreeDTM(fishDTM);
FreeDTM(logDTM);
FreeDTM(tinderDTM);
WriteLn('Freed DTM''s');
end;
procedure goFish;
Begin
P07_TabInventoryTab(4);
repeat
If P07_FindObjCustom(x, y, ['Raw', 'et', 'Fishing', 'pot'], [13475438, 14199172, 15124146, 15252893, 15920354], 5) Then
begin
ClickMouse2(mouse_left);
WriteLn('Fishin''');
Wait(RandomRange(8000,10000))
end
else
P07_MakeCompassDegree(Random(360));
Wait(Random(1000));
until(P07_InvFull)
end;
procedure toTree;
Begin
RadialWalk(RoadColor, 315, 22, 65, -1, 0);
end;
Begin
SetupSRL;
SetupP07Include;
DTMS;
AddOnTerminate('DTMFree');
repeat
toTree;
until(P07_Loggedin);
end.