randy marsh
2013-04-27 12:24:59
This is my very basic oak chopper,
Im getting this error
(line 71 is the very last end in the main loop)
Im getting this error
[Error] (72:4): Identifier expected at line 71
Compiling failed.(line 71 is the very last end in the main loop)
program Oakbank;
{$define SMART8}
{$I SRL-OSR/SRL.Simba}
{$I SRL-OSR/SRL/Misc/SmartGraphics.Simba}
//------------------------------------------------------------------\\
Procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := ''; //Username goes here
Players[0].Pass := ''; //Password goes here
Players[0].Nick := ''; //Character name (excluding first letter)
Players[0].Active := True;
end;
//--------------------------------------------------------------------\\
Procedure ChopTree;
var
X, Y: Integer;
begin
SetAngle(SRL_ANGLE_HIGH);
writeln('setting angle')
if ((FindBlackChatMessage('nt damages')) or (FindBlackChatMessage('ou do not have an axe'))) then // checks for axe and ent
begin
writeln('Oh shoot... Your axe broke!');
Logout;//wll log you out of script
TerminateScript;
end;
Begin
X:=MSCX;
Y:=MSCY;
If FindobjTPA(X, Y, 3840, 5, 1, 15, 60, 20, ['Oak']) Then //TREE COLOUR
Begin
GetMousePos(X, Y);
Case Random(2) Of //EITHER CLICK LEFT MOUSE OR RIGHT
0:Mouse(X, Y, 5, 5, True);
1:Begin
Mouse(X, Y, 5, 5, False);
WaitOption('Chop', 500);
End;
End;
begin
SetUpSRL;
ActivateClient;
DeclarePlayers;
LoginPlayer;
ChopTree;
end.