If your stanards were correct then the problem would be simply to solve..
Fixed standards on your broken procedure
SCAR Code:
Function WalkTo(InBank: Boolean): Boolean;
Var
x, y, WaterColor: Integer;
Begin
Case LowerCase(Players[CurrentPlayer].Loc) Of
'draynor':
Begin
If InBank Then
Begin
If (Not (FindSymbol(x, y, 'fish'))) Then
Begin
MakeCompass('W');
WaterColor := FindWaterColor;
RadialWalk(WaterColor, 225, 351, 64, 2, 2);
Flag;
End Else If (FindSymbol(x, y, 'fish')) Then
Begin
Mouse(x, y, 2, 2, True);
Flag;
Writeln('Got to Willows');
End;
End;
End Else
Begin
If (Not (FindSymbol(x, y, 'bank'))) Then
Begin
MakeCompass('N');
RadialWalk(6318184, 20, 50, 34, 2, 2);
Flag;
End;
If (FindSymbol(x, y, 'bank')) Then
Begin
Mouse(x, y, 2, 2, True);
Flag;
End;
End;
End;
End;
'seers': Begin
If InBank Then Wait(1000 + Random(500));
RadialWalk(1611268, 5, 30, 75, 5, 5);
FFlag(2);
Else If (Not (FindSymbol(x, y, 'bank'))) Then
Begin
If RadialWalk(6318184, 210, 240, 30, 5, 5) Then
Mouse(x, y, 2, 2, True);
FFlag(1);
End Else If (FindSymbol(x, y, 'bank')) Then
Begin
Mouse(x, y, 2, 2, True);
FFlag(2);
End;
End;
End;
End;
End;
End;
Fixed script with standards
SCAR Code:
Function WalkTo(InBank: Boolean): Boolean;
Var
x, y, WaterColor: Integer;
Begin
Case LowerCase(Players[CurrentPlayer].Loc) Of
'draynor':
Begin
If InBank Then
Begin
If (Not (FindSymbol(x, y, 'fish'))) Then
Begin
MakeCompass('W');
WaterColor := FindWaterColor;
RadialWalk(WaterColor, 225, 351, 64, 2, 2);
Flag;
End Else If (FindSymbol(x, y, 'fish')) Then
Begin
Mouse(x, y, 2, 2, True);
Flag;
Writeln('Got to Willows');
End;
End Else
Begin
If (Not (FindSymbol(x, y, 'bank'))) Then
Begin
MakeCompass('N');
RadialWalk(6318184, 20, 50, 34, 2, 2);
Flag;
End;
If (FindSymbol(x, y, 'bank')) Then
Begin
Mouse(x, y, 2, 2, True);
Flag;
End;
End;
End;
'seers':
Begin
If InBank Then
Begin
Wait(1000 + Random(500));
RadialWalk(1611268, 5, 30, 75, 5, 5);
FFlag(2);
End;
If (Not (FindSymbol(x, y, 'bank'))) Then
Begin
If RadialWalk(6318184, 210, 240, 30, 5, 5) Then
Mouse(x, y, 2, 2, True);
FFlag(1);
End Else If (FindSymbol(x, y, 'bank')) Then
Begin
Mouse(x, y, 2, 2, True);
FFlag(2);
End;
End;
End;
End;
Yes i capitalise keywords
.
Your End Else was placed incorrect it was Ending else on the draynor: case which isnt any good. It needs to end else on your Begin of draynor case.
SCAR Code:
If InBank Then
Begin
If (Not (FindSymbol(x, y, 'fish'))) Then
Begin
MakeCompass('W');
WaterColor := FindWaterColor;
RadialWalk(WaterColor, 225, 351, 64, 2, 2);
Flag;
End Else If (FindSymbol(x, y, 'fish')) Then
Begin
Mouse(x, y, 2, 2, True);
Flag;
Writeln('Got to Willows');
End;
End Else