Looks good, Im just wondering this why did you put FindNormalRandoms; three times in this procedure
SCAR Code:
procedure AntiRandoms;
begin
FindNormalRandoms;
FTWait(2);
FindNormalRandoms;
FTWait(2);
FindNormalRandoms;
if(FindFight)then
begin
RunAwayDirection('S');
Wait(8000 + Random(2000));
RunBack;
end;
FTWait(4)
end;
And what for is all these MakeCompass functions?
SCAR Code:
procedure AxeColorGet;
begin
FTWait(3);
MakeCompass('S');
FTWait(3);
MakeCompass('N');
FTWait(3);
MakeCompass('E');
FTWait(3);
FindAxeHeadColor;
FTWait(3);
end;