I went through it and added all the ways it could make the result turn out and after that it's been no different, but it's more cluttered and confusing... any words of wisdom?
SCAR Code:
Function WalkToStorePt1: Boolean;
var
x, y: Integer;
begin
if (not loggedin) then Exit;
ColorToFind := 6776944;
MyAutoColor;
if not RadialWalk(MyAutoColor, 350, 310, 72, 1,1) then
begin
ColorToFind := 2313827;
Result := True;
MyAutoColor;
if not RadialWalk(MyAutoColor, 350, 300, 72, 1,1) then
begin
Result := false;
if (FindSymbol(x, y, 'water source')) then
begin
result := true;
MouseFlag(x, y, 5, 5, 0)
end else
if RadialWalk(FindLadderColor, 350, 10, 50, 1, 1) then
if (FindSymbol(x, y, 'water source')) then
begin
Result := true;
if (FindSymbol(x, y, 'archery shop')) then
begin
MouseFlag(x, y, 5, 5, 0)
Result := true
end else Result := false
end;
end;
begin
if (Result = false) then
begin
WriteLn('player could not make it through the walk, player, ' + Players[CurrentPlayer].Name + ' is now false.');
Players[CurrentPlayer].Active := False; // Set your player to false!!
LogOut;
Exit;
end else
Writeln('walking part one complete');
if (FindSymbol(x, y, 'Shop')) then Writeln('store is in sight') else writeln('no store in sight but we can check');
end;
end;