SCAR Code:
Function {Name It} : Boolean;
Var TimeToWalkBack, xx, yy : Integer;
Begin
MarkTime( TimeToWalkBack )
Result := False;
If Not RadialRoadWalk(FindRoadColor, 0, 25, 72, 0, 0) Then Begin Result:=False; Players[CurrentPlayer].loc := 'lost'; NextPlayer(false); Exit; end;
Wait(10000)
FFlag(0)
If Not RadialRoadWalk(FindRoadColor, 360, 270, 70, 0, 0) Then Begin Result:=False; Players[CurrentPlayer].loc := 'lost'; NextPlayer(false); Exit; end;
Wait(10000)
FFlag(0)
If Not RadialRoadWalk(FindRoadColor, 360, 270, 70, 0, 0) Then Begin Result:=False; Players[CurrentPlayer].loc := 'lost'; NextPlayer(false); Exit; end;
Wait(10000)
FFlag(0)
If Not RadialRoadWalk(FindRoadColor, 360, 280, 70, 0, 0) Then Begin Result:=False; Players[CurrentPlayer].loc := 'lost'; NextPlayer(false); Exit; end;
Wait(10000)
FFlag(0)
If Not RadialRoadWalk(FindRoadColor, 260, 310, 70, 0, 0) Then Begin Result:=False; Players[CurrentPlayer].loc := 'lost'; NextPlayer(false); Exit; end;
Wait(5000)
FFlag(0)
If Not RadialRoadWalk(FindRoadColor, 360, 280, 70, 0, 0) Then Begin Result:=False; Players[CurrentPlayer].loc := 'lost'; NextPlayer(false); Exit; end;
Wait(5000)
FFlag(0)
If Not RadialRoadWalk(FindRoadColor, 290, 260, 70, 0, 0) Then Begin Result:=False; Players[CurrentPlayer].loc := 'lost'; NextPlayer(false); Exit; end;
Wait(5000)
FFlag(0)
If Not RadialRoadWalk(FindRoadColor, 330, 270, 70, 0, 0) Then Begin Result:=False; Players[CurrentPlayer].loc := 'lost'; NextPlayer(false); Exit; end;
Wait(5000)
FFlag(0)
If Not RadialRoadWalk(FindRoadColor, 250, 300, 70, 0, 0) Then Begin Result:=False; Players[CurrentPlayer].loc := 'lost'; NextPlayer(false); Exit; end;
Wait(5000)
FFlag(0)
If Not RadialRoadWalk(FindRoadColor, 250, 300, 70, 0, 0) Then Begin Result:=False; Players[CurrentPlayer].loc := 'lost'; NextPlayer(false); Exit; end;
Wait(5000)
FFlag(0)
If Not RadialWalk(FindRoadColor, 220, 260, 60, 0, 0) Then Begin Result:=False; Players[CurrentPlayer].loc := 'lost'; NextPlayer(false); Exit; end;
Wait(5000)
FFlag(0)
If Not RadialRoadWalk(FindRoadColor, 180, 230, 60, 0, 0) Then Begin Result:=False; Players[CurrentPlayer].loc := 'lost'; NextPlayer(false); Exit; end;
Wait(5000)
FFlag(0)
If Not RadialRoadWalk(FindRoadColor, 180, 205, 60, 0, 0) Then Begin Result:=False; Players[CurrentPlayer].loc := 'lost'; NextPlayer(false); Exit; end;
Wait(5000)
FFlag(0)
If Not RadialWalk(FindRoadColor, 180, 215, 60, 0, 0) Then Begin Result:=False; Players[CurrentPlayer].Loc := 'lost'; NextPlayer(false); Exit; end;
Wait(5000)
FFlag(0)
repeat
Wait(1000+random(2342))
Until( FindSymbol(xx, yy, 'bank') Or ( Not LoggedIn )
Mouse(xx, yy, 5, 5, True);
FFlag(0);
If Not LoggedIn Then
Begin
Players[CurrentPlayer].loc := 'lost';
NextPlayer(false);
Exit;
end else
begin
Writeln('Took ' + IntToStr(TimeFromMark(TimeToWalkBack / 1000)) + ' Secs to walk back! =]');
Players[currentplayer].loc := 'bank';
Result:=True;
end;
end;