I get this error with this part:
Line 591: [Error] (13455:38): 'THEN' expected in script
and its like.. Well there is a THEN!! Look THERE!! >.>
SCAR Code:
procedure RepeatThis;
begin
if Players[CurrentPlayer].Strings[1] := 'normal' then
begin
Writeln('Chopping Normal Trees - You have to start somewhere! :D');
repeat
ChopNormalTrees;
PowerDrop;
ToFProggy;
SRLRandomsReport;
until(False)
end;
if (Players[CurrentPlayer].Strings[1] := 'oak') then
begin
Writeln('Chopping Normal Trees - You have to start somewhere! :D');
repeat
ChopOakss;
PowerDrop;
ToFProggy;
SRLRandomsReport;
until(False)
end;
if (Players[CurrentPlayer].Strings[1] := 'willow') then
begin
Writeln('Chopping Willow Trees - Smart! Good exp and not too much of a watse :D');
repeat
ChopWillows;
PowerDrop;
ToFProggy;
SRLRandomsReport;
until(False)
end;
if (Players[CurrentPlayer].Strings[1] := 'maple') then
begin
Writeln('Chopping Maple Trees - You could loose some money :D');
repeat
ChopMaples;
PowerDrop;
ToFProggy;
SRLRandomsReport;
until(False)
end;
if (Players[CurrentPlayer].Strings[1] := 'yew') then
begin
Writeln('Chopping Yew Trees - Kinda a waste of money :D');
repeat
ChopYewTrees;
PowerDrop;
ToFProggy;
SRLRandomsReport;
until(False)
end;
if (Players[CurrentPlayer].Strings[1] := 'magic') then
begin
Writeln('Chopping Magic Trees - Are you mad?! 0_o');
repeat
ChopMagicTrees;
PowerDrop;
ToFProggy;
SRLRandomsReport;
until(False)
end;
if (Players[CurrentPlayer].Strings[1] := 'any') then
begin
Writeln('Chopping Any Tree - Not too picky eh?');
repeat
CutAnyTree;
PowerDrop;
ToFProggy;
SRLRandomsReport;
until(False)
end;
if (LoadsNum2=Players[CurrentPlayer].Integers[0]) then
begin
NextPlayer(True);
LoadsNum2 := 0;
MakeCompass('S')
Writeln('Players Switched successfully')
end;
end;