im making a tree chopper and banker in east bank of fally but i dont know how to move the character between the tree spots at the south and then go to the bank to bank the logs.
I have done the anti -random, anti-ban, tree chop and declareplayers.
SCAR Code:
program AutoWcer;
begin
const
Loads= ;//how many loads
TreeColor = ;//the tree color
WaitPerTree = 5000;// the time to wait while chopping
AxeEquipped = True;//set true if the axe is equipped
procedure DeclarePlayers;
begin
NumberOfPlayers(1); //Set this the amount of players u want too use.
CurrentPlayer := 0;
Players[0].Name := ''; //.
Players[0].Pass := ''; //
Players[0].Nick := ''; //
Players[0].Active :=True;//
{
Players[1].Name := '';
Players[1].Pass := '';
Players[1].Nick := '';
Players[1].Active := False;
Players[1].Strings[1] := '';
Players[2].Name := '';
Players[2].Pass := '';
Players[2].Nick := '';
Players[2].Active := False;
Players[2].Strings[1] := '';
Players[3].Name := '';
Players[3].Pass := '';
Players[3].Nick := '';
Players[3].Active := False;
Players[3].Strings[1] := '';
Players[4].Name := '';
Players[4].Pass := '';
Players[4].Nick := '';
Players[4].Active := False;
Players[4].Strings[1] := '';
}
end;
Procedure SetUping;
Begin
SetupSRL;
ClearDebug;
ScriptId:= '(233)';
DeclarePlayers;
if Loggedin then Logout;
LoginPlayer;
end;
procedure DoAntiRandoms;
begin
FindTalk;
FindNormalRandoms;
if (FindFight = true) then
begin
RunAwayDirection('N');
Wait(10000 + random(2000));
RunBack;
end;
end;
procedure RepeatClicking;
begin
SetupSRL;
repeat
if(FindColor(x,y,color,coords,coords,coords,coords))then
MMouse(x,y,0,0);
wait(100+random(50));
Mouse(x,y,0,0,true);
wait(500+random(250));
DoAntiRandoms;
until(InvFull);
end;
procedure Drop;
begin
DropTo(2,28);
end;
begin
repeat
RepeatClicking;
Drop;
until(false);
procedure AntiBan;
begin
case random(100) of //do a random number so it won't always perform the antiban
0: RandomRClick;
1: BoredHuman;
2: HoverSkill('Woodcutting', False);
3: RandomSpam; //made up procedure to say random stuff
4: AlmostLogout;
end;
end;
procedure ChopTree;
var
x, y, MyMark : integer;
begin
if not Loggedin then Exit;
MarkTime(MyMark);
repeat
if FindObj(x, y, 'Tree', TreeColor, 30) then
Wait(2500)
begin
Mouse(x, y, 0, 0, False);
if ChooseOption('hop') then
begin
FindFastRandoms;
AntiBan;
//increase 1 to the total tree chop - if we had one
Exit; //We clicked chop, now we can exit this procedure.
end;
end;
if TimeFromMark(MyMark) > (2*60*100) then
begin
Logout
Exit;
end;
until false
end;
//???
//what i have to do then?
//???
end.
i need a lot of help