Hey man good job!
I tried your walking system but I can't find out what's wrong, maybe it's only because it's in beta state but I'll post this anyway.
I tried calling single procedure that would walk my path fron varrock bank to fountain. My script looks like this:
Simba Code:
program walk;
{$DEFINE SMART}
{$DEFINE WALKER}
{$i AeroLib/AeroLib.Simba}
{$i Reflection/Reflection.Simba}
var
MyPlayer : TReflectLocalPlayer;
procedure DeclarePlayer;
begin
MyPlayer.Username := '';
MyPlayer.Password := '';
MyPlayer.Pin := '';
MyPlayer.Active := True;
end;
procedure w_ClickMouse(box:TBox; btn:Int32); override;
begin
MouseBox(box, btn); //call a click-mousefunction from the include you use
end;
procedure walkmypath;
var
RSW : TRSWalker;
toWaterPath : TPointArray;
begin
RSW.Init('surface', 'softclaymap.jpg', w_GetClientPID());
Writeln('RSW is set up');
toWaterPath := [Point(117, 119), Point(121, 120), Point(125, 121), Point(130, 122), Point(137, 123),
Point(140, 123), Point(147, 121), Point(154, 121), Point(158, 121), Point(164, 123), Point(169, 123),
Point(173, 126), Point(179, 126), Point(184, 127), Point(188, 129), Point(193, 127), Point(201, 130),
Point(207, 129), Point(213, 130)];
RSW.WalkPath(toWaterPath);
RSW.Free();
end;
begin
initAL();
Reflect.Setup;
DeclarePlayer;
MyPlayer.Login;
/////////////////
walkmypath;
end.
I get acces violation and "base" tab opens @ line 137
Simba Code:
Paired with SMART[1752]
[AL] Startup complete!
[10:11:06:041] [Reflection] [Status] Successfully setup!
Error: Access violation at line 137
Execution failed.
The following DTMs were not freed: [0]
The following bitmaps were not freed: [0, 1, 2, 3, 4, 5]
Simba Code:
procedure TRSPosFinder.Init(PID:Int32);
begin
with Self do
begin
matchAlgo := TM_CCOEFF_NORMED;
scanRatio := 8;
numSamples := 100;
process := PID;
if PID >= 0 then scan.Init(process); //LINE 137
addr := 0;
bufferW := 512;
bufferH := 512;
end;
end;
Script works until it comes to RSW.WalkPath, same is with RSW.GetMyPos, I haven't tried others yet tho