I get this weird error help guys!
SCAR Code:
program OakSmasher;
{.include SRL/SRL.scar}
Const
Treecolor1= 9462967; //Color of Tree
Treecolor2= 5689975; //Color of Tree
var x, y, randomm: integer;
Procedure DeclarePlayers;
begin
HowManyPlayers :=1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer:=0;
Players[0].Name :=''; //UserName
Players[0].Pass :=''; //PassWord
Players[0].Nick :=''; //NickName
Players[0].Active:=True;
end;
Procedure Randoms;
Begin
FindTalk;
FindNormalRandoms;
solveChatRandom;
FindLamp ('Woodcutting') //Uses lamp on that skill
DwarfItem;
If (FindFight)Then
Begin
MakeCompass ('N')
RunTo('E', True)
Wait(7000 +Random(3000));
RunTo('W', True);
End;
End;
Procedure AntiBan;
begin
randomm := Random(4)
case randomm of
0: begin
Wait(2241+(random(287)));
RandomRClick;
Wait(2348+(random(287)));
Randoms
end;
1: begin
Wait(1956+(random(641)));
GameTab(random(13)+1);
Randoms;
Wait(2341+(random(683)));
GameTab(4);
end;
2: begin
Wait(1119+(random(272)));
Randoms;
HoverSkill('Mining' ,false);
Wait(1164+(random(297)));
end;
3: begin
Wait(2214+(random(631)));
GameTab(random(13)+1);
Randoms;
Wait(2119+(random(653)));
GameTab(4);
end;
end;
end;
Procedure ChopTree;
Begin
repeat
if FindObjCustom(x, y, ['Oa', 'ak'], [Treecolor1, Treecolor2], 7) then
begin
Mouse(x,y,0,0,false);
Wait(25+(random(50)));
ChooseOption('hop')
randoms;
antiban;
writeln('Chopping Tree...');
end else
writeln('Could not find Tree...');
until( InvFull )
End;
Procedure DropLogs;
var
i : Integer;
begin
if invfull then
begin
for i := 2 to 28 do
begin
DropItem(i);
Wait(RandomRange(201, 401));
end;
end;
end;
Begin
SetupSRL;
DeclarePlayers;
LoginPlayer;
repeat
ChopTree;
DropLogs;
until (IsFKeyDown(3));
End.