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


Reply With Quote








