Niki99
07-26-2007, 11:46 AM
Draynor willow chopper and banker!
Reqiupments: SRL 3.8 AND SCAR DIVI 3.06!
-Start at windows in draynor bank.
begin
var
Chopped : Integer;
Banked : Integer;
If FindObj(x,y,'Willow',TreeColor,10) Then
Begin
FindEnt( 0 )
Mouse(x,y,5,5,True)
Flag;
Wait(6000);
end;
end;
Procedure Banklogs;
begin
Chopped := Chopped + 28;
mouse (672,20,5,5,True)
FindSymbol(x,y,'bank')
Flag;
OpenBank3;
Deposit(2,28,2);
Banked := Banked + 1;
closebank;
end;
Procedure proggy;
begin
Writeln('******************************');
Writeln('*~~~~~~Draynor CutnBank~~~~~~*');
Writeln('*~~~~~~~~~~~~~~~~~~~~~~~~~~~~*');
Writeln('* Chopped A Total Of ' + IntToStr (Chopped) +' Times!*');
Writeln('* Banked A Total Of ' + IntToStr(Banked) +' Times !*');
Writeln('*~~~~~~~~~~~~~~~~~~~~~~~~~~~~*');
Writeln('******************************');
end;
begin
SetUpSRL;
Repeat
WalkToTrees;
Repeat
FindTree;
until InvFull;
Banklogs;
until (IsFKeyDown(12));
proggy;
end.
New update released!
Credits goes to Pentti that helped me alot over msn!
Have a fun autoing (h)!
Reqiupments: SRL 3.8 AND SCAR DIVI 3.06!
-Start at windows in draynor bank.
begin
var
Chopped : Integer;
Banked : Integer;
If FindObj(x,y,'Willow',TreeColor,10) Then
Begin
FindEnt( 0 )
Mouse(x,y,5,5,True)
Flag;
Wait(6000);
end;
end;
Procedure Banklogs;
begin
Chopped := Chopped + 28;
mouse (672,20,5,5,True)
FindSymbol(x,y,'bank')
Flag;
OpenBank3;
Deposit(2,28,2);
Banked := Banked + 1;
closebank;
end;
Procedure proggy;
begin
Writeln('******************************');
Writeln('*~~~~~~Draynor CutnBank~~~~~~*');
Writeln('*~~~~~~~~~~~~~~~~~~~~~~~~~~~~*');
Writeln('* Chopped A Total Of ' + IntToStr (Chopped) +' Times!*');
Writeln('* Banked A Total Of ' + IntToStr(Banked) +' Times !*');
Writeln('*~~~~~~~~~~~~~~~~~~~~~~~~~~~~*');
Writeln('******************************');
end;
begin
SetUpSRL;
Repeat
WalkToTrees;
Repeat
FindTree;
until InvFull;
Banklogs;
until (IsFKeyDown(12));
proggy;
end.
New update released!
Credits goes to Pentti that helped me alot over msn!
Have a fun autoing (h)!