Im getting this error with this line:
SCAR Code:until(InvCount = 28);
Im getting this error with this line:
SCAR Code:until(InvCount = 28);
SCAR Code:// No standars hehe
procedure FindForTreeAndChop;
begin
if (not(LoggedIn)) then
Exit;
if (SetUpped = False) then
Exit;
if (SetUpped) then
TreeFound := False;
Writeln('Starting...')
repeat
if (FindObjCustom(x,y,['hop','down',TreeNameWithoutCapitals,'hop do'], [TreeColor1,TreeColor2,TreeColor3,TreeColor4], 20)) then
begin
Writeln('Tree Found')
MMouse(x,y,2,2)
if (IsUpText(TreeNameWithoutCapitals))then
begin
GetMousePos(x,y)
Mouse(x,y,3,3,false)
for i:= 0 to 3 do
if(not(FindDTM(Ent[i],a,b,MIX1,MIY1,MIX2,MIY2))) then
ChooseOption('hop');
if(FindDTM(Ent[i],a,b,MIX1,MIY1,MIX2,MIY2)) then
begin
Writeln('********ENT FOUND********')
wait(15000+random(555))
AntiBannage;
Randoms;
wait(15000+random(666))// 666...
AntiBannage;
Randoms;
if (FindObjCustom(x,y,['hop','down',TreeNameWithoutCapitals,'hop do'], [TreeColor1,TreeColor2,TreeColor3,TreeColor4], 20)) then
begin
Writeln('Tree Found')
MMouse(x,y,2,2)
if (IsUpText(TreeNameWithoutCapitals))then
begin
GetMousePos(x,y)
Mouse(x,y,3,3,false)
for i:= 0 to 3 do
if(not(FindDTM(Ent[i],a,b,MIX1,MIY1,MIX2,MIY2))) then
ChooseOption('hop');
until(InvCount = 28)
TreeFound := True;
end;
end;
end;
end;
end;
end;
if you used standards you wouldve found your problem. try this.
SCAR Code:procedure FindForTreeAndChop;
begin
if (not(LoggedIn)) then
Exit;
if (SetUpped = False) then
Exit;
if (SetUpped) then
TreeFound := False;
Writeln('Starting...')
repeat
if (FindObjCustom(x,y,['hop','down',TreeNameWithoutCapitals,'hop do'], [TreeColor1,TreeColor2,TreeColor3,TreeColor4], 20)) then
begin
Writeln('Tree Found')
MMouse(x,y,2,2)
if (IsUpText(TreeNameWithoutCapitals))then
begin
GetMousePos(x,y)
Mouse(x,y,3,3,false)
for i:= 0 to 3 do
if(not(FindDTM(Ent[i],a,b,MIX1,MIY1,MIX2,MIY2))) then
ChooseOption('hop');
if(FindDTM(Ent[i],a,b,MIX1,MIY1,MIX2,MIY2)) then
begin
Writeln('********ENT FOUND********')
wait(15000+random(555))
AntiBannage;
Randoms;
wait(15000+random(666))// 666...
AntiBannage;
Randoms;
if (FindObjCustom(x,y,['hop','down',TreeNameWithoutCapitals,'hop do'], [TreeColor1,TreeColor2,TreeColor3,TreeColor4], 20)) then
begin
Writeln('Tree Found')
MMouse(x,y,2,2)
if (IsUpText(TreeNameWithoutCapitals))then
begin
GetMousePos(x,y)
Mouse(x,y,3,3,false)
for i:= 0 to 3 do
if(not(FindDTM(Ent[i],a,b,MIX1,MIY1,MIX2,MIY2))) then
ChooseOption('hop');
end;
end;
end;
end;
end;
until(InvCount = 28)
TreeFound := True;
end;
Looks like you have your 'Until()' too early - keep putting it back an 'End;' until it works (would be easier to see which one if there were standards)
Edit: >< canadaman beat me (don't know how as I just typed 2 lines - ahwell)
look in tut island. or search for standards
There are currently 1 users browsing this thread. (0 members and 1 guests)