SCAR Code:
program New;
{.include SRL\SRL\Misc\Smart.scar}
{.include SRL\SRL.scar}
{.include SRL\SRL\Reflection\Reflection.scar}
const
World = 126;
var
x, y: integer;
procedure DeclarePlayers;
begin
CurrentPlayer := 0;
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
Players[0].Name := '';
Players[0].Pass := '';
Players[0].Nick := '';
Players[0].Active := True;
end;
function WaitWhileFish: boolean;
var TMyPlayer: TMe;
begin
TMyPlayer := GetMe;
repeat
Wait(100);
FindNormalRandoms;
until(TMyPlayer.Animation = -1);
Result := True;
end;
function FindFishingSpot(x, y: integer): boolean;
var
FishSpot: TNPC;
FishSpotPoint: TPoint;
begin
try
if not FindNPC('Fishing spot', FishSpot) then Exit;
FishSpotPoint := FishSpot.MS;
MMouse(FishSpotPoint.x, FishSpotPoint.y, 5, 5);
Wait(125 + Random(350));
Result := IsUpText('Fishing spot');
if Result then
GetMousePos(x, y);
except
srl_Warn('FindFishingSpot', 'Couldn''t find fishing spot!', -1);
end;
function SetupSmart: boolean; //This line!!!<<<<<<<<<<<<<<
begin
try
SmartSetupEx(World, True, True, False);
SetTargetDC(SmartGetDC);
while not RSReady do Wait(100);
Result := True;
except
srl_Warn('SetupSmart', 'Couldn''t load SMART!', -1);
end;
begin
SetupSRL;
if SetupSmart then
begin
if FindFishingSpot(x, y) then
begin
Mouse(x, y, 0, 0, True);
WaitWhileFish;
end;
end;
end.
I get this error:
Code:
Failed when compiling
Line 52: [Error] (17741:1): Identifier expected in script C:\Program Files\SCAR 3.15\Scripts\Fishingspot Finder.scar
Help?