Here's my first script!
I hope y'all like it!(h)
[scar]//////////////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
////////////// The Chopper of Willows in Draynor \\\\\\\\\\\\\\\\\\\\\\\\
/////////////// Script By: Durza998 \\\\\\\\\\\\\\\\\\\\\\\\\
//////////////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
{
This chops full load of willows and then banks them.
Pickup colors and start in bank or willows.
}
program DraynorWillowChopper;
{.include Srl/Srl/Srl.scar}
const
BankSymbol:= 4768214; //Minimap banksymbol color
FishSymbol:= 14233601; //Minimap fishsymbol color
Willow1:= 2572614; //color of willow
Willow2:= 3637360; //second color of willows
var
x, y: integer;
procedure ToWillows;
begin
MoveMouseSmooth(620,124)
wait(250+random(20))
clickmouse(620,124,true)
flag;
repeat wait(200+random(20))until(findmmcolor(x,y,fishsymb ol))
findmmcolor(x,y,FishSymbol)
wait(250+random(20))
MoveMouseSmooth(x,y)
wait(200+random(20))
clickmouse(x,y,true)
flag;
end;
procedure Chop;
begin repeat
if(findcolor(x,y,willow1,0,0,517,340))or(findcolor (x,y,willow2,0,0,517,340))then
wait(800+random(80))
MoveMouseSmooth(x,y)
wait(50+random(5))
clickmouse(x,y,true)
wait(10000+random(1000))
flag;
until(invfull) Writeln('The inventory is full, going to the bank')
end;
procedure GoToBank;
begin
findmmcolor(x,y,banksymbol) if(not(findmmcolor(x,y,banksymbol)))then writeln('Cant find banksymbol.')
MoveMouseSmooth(x,y)
wait(500+random(50))
clickmouse(x,y,true)
flag;
openbank3;
wait(1000+random(100))
fixbank;
deposit(2,28,2);
wait(1000+random(100))
writeln('All willows put into bank')
end;
begin
ToWillows;
Chop;
GoToBank;
end.


Reply With Quote











