Procedure checksB;
begin
If TreeT = 'Normal' then
Begin
Writeln('Out Of Order Try Again Later. Sorry.');
TerminateScript;
end else
If TreeT = 'Oak' then
Begin
Writeln('Out Of Order Try Again Later. Sorry.');
TerminateScript;
end;
end;
???
Procedure Choose;
var
i: Integer;
begin
for i := 1 to 2 do
begin
case I of
1: FindWaterColors;
2: FindRockColorz;
end;
end;
end;
You're making it more complicated than it needs to be…
procedure Choose;
begin
FindWaterColors;
FindRockColorz;
end;
procedure ChopTree;
begin
repeat
if not Loggedin then Exit;
begin
if not LoggedIn then Break;
FindEnt(x,y, True);
if FindObjCustom(x, y, [TreeT], [TColor1], 10) then
begin
Mouse(x-4, y, 0, 0, False);
if ChooseOption('hop') then
begin
FindTalk;
FindEnt(x,y, True);
Wait(1000+Random(500));
FindThoseRandoms;
antiz;
FindThoseRandoms;
Wait(1000 + Random(300));
end else
begin
if not FindObjCustom(x, y, [TreeT], [TColor2], 10) then
begin
WriteLn(' Cannot find' + Tree);
wait(2000+random(300));
Exit;
end;
end;
end;
end;
Until(True)
end;
Its good but I'll clean it up a little if thats cool with you :)
proceedure ChopTree;
var X, Y : Integer;
begin
//If we are not logged in then exit the procedure.
if (Not(LoggedIn)) then Exit;
//If we can't find the tree then exit the procedure.
if (Not(FindObjCustom(X, Y, [TreeT], [TColor1, TColor2], 10))) then Exit;
//Either just click on the tree, or right click and choose chop.
case Random(2) of
0: Mouse(X, Y, 3, 3, True);
1: begin
//Right click on the tree.
Mouse(X, Y, 3, 3, False);
//We have to put a wait in here, to make sure that the menu has time to pop up.
Wait(150 + Random(150));
//Now if we couldn't choose the option 'hop' (chop) then we exit the procedure.
if (Not(ChooseOption('hop'))) then Exit;
end;
end;
//Find Talking Randoms.
FindTalk;
//Find Ent at the tree.
FindEnt(X, Y, True);
//Call you randoms finding procedure.
FindThoseRandoms;
//Your antiban procedure.
antiz;
//Wait for the tree to be chopped down, there are better ways of doing this but this is simple for you :)
Wait(1500 + Random(1500));
end;
Well actually I rewrote the whole thing, thats just the way I would do it though. Maybe you could learn something from it, idk.
Overall a really nice first script, alot better than my first :) Keep working at it!
~Pancakes.