im getting this error: Line 308: [Error] (15225:1): Identifier expected in script
i cant find whats wrong:
I think the problem has something related to:
SCAR Code:
end;
end;
end;
end;
end;
end;
procedure AltarStuff;// here is the line?
var
x,y : Integer;
here is the proc:
SCAR Code:
Procedure WalkToAltar;
var
x,y : Integer;
begin
if not loggedin then exit;
Walked := False;
MakeCompass('N');
wait(1000+random(500))
if WalkPath(0) then
begin
Writeln('Walking with path 0');
FFlag(0);
AntiBan;
Randoms;
end else
begin
if RadialWalk(FindVarrockRoadColor,0,100,65,1,1) then
begin
Writeln('Walking with RadialWalk');
FFlag(0);
AntiBan;
Randoms;
end else
begin
Writeln('We are lost');
Randoms;
Logout;
NextPlayer(False);
Walked := False;
Exit;
end;
begin
if WalkPath(1) then
begin
Writeln('Walking with path 1');
FFlag(0);
AntiBan;
Randoms;
end else
begin
if RadialWalk(FindVarrockRoadColor,0,100,65,1,1) then
begin
Writeln('Walking with RadailWalk');
FFlag(0);
AntiBan;
Randoms;
end else
begin
Writeln('We are lost');
Logout;
NextPlayer(False);
Walked := False;
Exit;
end;
if WalkPath(2) then
begin
Writeln('Walking with path 2');
FFlag(0);
AntiBan;
Randoms;
end else
begin
if RadialWalk(FindVarrockRoadColor,0,100,65,1,1) then
begin
Writeln('Walking with RadialWalk');
FFlag(0);
AntiBan;
Randoms;
end else
begin
Writeln('We are lost');
Logout;
NextPlayer(False);
Walked := False;
Exit;
end;
LastDDTM;
if WalkPath(3) then
begin
Writeln('Walking with path 3');
FFlag(0);
AntiBan;
Randoms;
end else
begin
if RadialWalk(FindDirtRoadColor,0,100,65,1,1) then
begin
Writeln('Walking with RadialWalk');
FFlag(0);
AntiBan;
Randoms;
end else
begin
Writeln('We are lost');
Logout;
NextPlayer(False);
Walked := False;
Exit;
end;
if DTMRotated(AltarDTM,x,y,MMX1,MMY1,MMX2,MMY2) then
begin
Mouse(x,y,3,3,True);
FFlag(1);
Writeln('We are at the temple');
Walked := True;
FreeDTM(AltarDTM);
end else
begin
Writeln('Could not find altar DTM!');
Logout;
NextPLayer(False);
Walked := False;
FreeDTM(AltarDTM);
Exit;
end;
end;
end;
end;
end;
end;
procedure AltarStuff;// here is the line?
var
x,y : Integer;
begin
blabla...