SRL Archive - OSR Help

So im working on this EXTREMELY basic chicken fighter, and i just cant get this to work. heres my whole script atm;

program ChickenKiller;
{$DEFINE SMART}
{$i SRL/SRL.scar}

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

with Players[0] do
begin
Name := '';
Pass := '';
Pin := '';
BoxRewards := ['XP','xp','lamp'];
LampSkill := 'Runecrafting';
Active := True;
end;
end;


Procedure AntiBan;
begin
if(not(LoggedIn))then
Exit;
FindNormalRandoms;
case Random(8) of
0:
end;
end;


procedure SetupChar;
begin
MakeCompass(270);
SetAngle(True);
Retaliate(True);
end;




procedure Attack;
var x,y: integer;
begin;
FindNormalRandoms;
if FindObj(x, y, 'hicken', 9487576, 30) then
Mouse(x, y, 2, 2, false);
ChooseOption('ttack');
repeat
Wait(1200+random(250));
FindNormalRandoms;
if (HPPercent < 20) then
Logout;




Begin

Smart_Server:=35;
SetupSRL;
ActivateClient;
DeclarePlayers;
SetUpChar;
Repeat
Antiban;
Attack;
Until (false)
end;

it just gives me the error i mentioned above, could someone plz help?

Also i did try searching, and someone had answered, that it lacks an end in the end of the whole script, but that didnt seem to fix the problem

Missing the begin end. with a dot..

You need to make an action in your Antiban case.

Riight, you need a beginning end with a dot. Im really suprised you could answer so fast O.o also i gave the antiban some actions. Thanks for the help ggzz & Kyle :)