I haven been able to do radial walking just fine when I inputed my own color.
I have also been able to get my AutoColoring to work fine too.
But now when I put them together they don't seem to want to work. The mouse doesn't move but it tells me that it got the right color. Ughhh
My AutoColoring procedure
SCAR Code:
Procedure FloorAutoColor;
var
Floor: Integer;
FloorColor: Integer;
begin
Floor := BitmapFromString(4, 3, 'beNpb3btpde9/CHr3CsiG' +
'oBdI7E0A2pMZVg==')
FloorColor :=AutoColorThis(Floor,100,MMX1, MMY1, MMX2, MMY2);
WriteLn('Floor Color = ' + IntToStr(FloorColor))
end;
My 2 walking procedures
SCAR Code:
Procedure WalkToBar;
var
FloorColor: Integer;
begin;
FloorAutoColor;
RadialWalk((FloorColor) , 59, 74, 45, 0, 0);
Flag;
end;
Procedure WalkToBank;
var
FloorColor: Integer;
begin;
FloorAutoColor;
RadialWalk((FloorColor) , 248, 53, 53, 0, 0);
Flag;
end;
Any suggestions? Thank You.
My Full script is attached just in case this isn't enough.