well, another problem... Line 57: [Error] (14939:29): Unknown identifier 'xs' in script
here is the script:
SCAR Code:
program WoodDroper;
{.Include SRL/SRL.Scar}
{.include /SRL/SRL/skill/WoodCutting.scar}
var
x,y,LoadsToDo : Integer;
const
TreeColor = 3043942;// put the tree color here (yew,willow,tree,etc)
HowManyLoads = 10;
procedure SetUp;
begin
MakeCompass('N')
GameTab(4)
end;
procedure AntiBan;
var
i : Integer;
begin
for i := 1 to 10 do
begin
case i of
1: HoverSkill('Woodcutting',false);
2: wait(1000);
3: PickUpMouse;
4:TypeSend('OMG thi is sooo bored');
5:DoEmote(1+random(19))
6: if (FindChatText('Hi'))then
begin
TypeSend('Dont Disturb noob')
end;
7:if (FindChatText('Wc lvl?')) or (FindChatText('Wc lvl')) then
begin
TypeSend('better than yours');
end;
8: HoverSkill('Prayer',false);
9: wait(3000+random(500));
10: PickUpMouse;
end;
end;
end;
Procedure RandomS;
begin
FindLamp('Woodcutting');
FindNormalRandoms;
FindTalk;
if (FindFight) then
begin
RunTo('S',true);
wait (7000+random(1000))
end;
end;
procedure StartChopping;
begin
repeat
FindNormalRandoms;
MakeCompass('W')
if (FindColor(x,y,TreeColor,xs,ys,xe,ye: Integer)) then
begin
Mouse(x,y,5,5,true);
if FindEnt then
begin
RunTo('N',true);
wait(10000+random(1000))
RunBack;
end;
end;
if (not FindColor(x,y,TreeColor,xs,ys,xe,ye: Integer)) then
begin
MakeCompass('E') or MakeCompass('S')
until(InvCount=28)
end;
Procedure Drop;
begin
if (InvCount=28) then
begin
DropAllLogs;
FindNormalRandoms;
end;
end;
begin
SetupSRL;
ActivateClient;
repeat
AntiBan;
RandomS;
StartChopping;
Drop;
until ( LoadsToDo >= LoadsToDo )
end.
i want to release this script soon!!!