What is the error on this simple script?

[Gaston7eze]

program New;
{.include srl/srl.scar}

Procedure DeclarePlayers;
begin;
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;

Players[0].Name :='';
Players[0].Pass :='';
Players[0].Nick :='';
Players[0].Active:=True;
end;
Procedure ChopTree;
Var x,y: Integer;
Begin;
If FindObj(x,y,'hop',1785912, 35)Then
Mouse(x,y,0,0, False);
ChooseOption('Hop')
Repeat
Wait(1200+random(250));
Until not IsUpText('yew')or('InvFull')
End
Procedure AntiBan;
Begin;
If(Not LoggedIn))then
Exit;
Case;Random(8)of
0:
Begin;
HoverSkill('Woodcutting'),false)
Wait(2453+random(432));
End
1:PickUpMouse;
2:
Begin;
MakeCompass('N');
Wait(100)+random(133));
MakeCompass('S');
Wait(50+random(133));
MakeCompass('N')
End;
End;
End;

begin;
SetUpSRL;
ActivateClient;
DeclarePlayers;
ChopTree;
end.

[YoHoJo]

Please do not make multiple threads about the same script.
Be patient and wait for answer!
http://villavu.com/forum/showthread.php?t=69698