joelster134
2008-10-11 19:55:51
JOELSTER134 PRESENTS!
WILLOW VANQUISHER (V1)
WILLOW VANQUISHER (V1)
THIS SCRIPT CUTS WILLOWS IN DRAYNOR AND BANKS EM! HAS ANTI RANDOMS+ ANTI BAN!
FEATURES! START IN DRAYNOR BANK! SELECT WINDOW SETUP PLAYERS AND HIT RUN!!
:fiery: :fiery: :fiery: PLEASE POST BUGS/PROGGIES! I SPENT A WHILE WORKING ON THIS!:fiery: :fiery: :fiery:
[LEFT]IF DOWNLOAD LINK ISNT WORKING COPY AND PASTE THIS!![/LEFT]
{~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~)
(~~~~~~~~~~~~~~~~~~~Willow Vanquisher V1!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~)
(~~~~~~~~~~~~~~~~~~Requires: Scar 3.15 SRL 4~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~)
(~~~~~~~~~~~~~~~~~~Start in Draynor Bank with Axe Wielded!~~~~~~~~~~~~~~~~~~~~~)
(~~~~~~~~~~~~~~~~~~Select Window HIT RUN! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~)
(~~~~~~~~~~~~~~~~~~~POST PROGGYS OR BUGS PLEASE!!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~)
(~~~~~~~~~~~~~~~~~~~MADE BY JOELSTER134!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~)
(~~~~~~~~~~~~~~~~~~FAST AND EFFECTIVE CUTTING ENT FINDING AND BANKING!!~~~~~~~~}
///////////-------->>Setup Lines 18-21 and 34-47!<<---------\\\\\\\\\\\\\\\\\\\\
program Willow_Vanquish_V1;
{.include SRL/SRL.scar}
const
//SRL Id//
YourID= ''; //SRl Stats (example)
YourPW= ''; //SRL Pass (for id) (example)
WillowTreeColor = 5736820;
EntColor = 514778;
BankSymbol = 10089719;
////////--------->>DONT TOUCH THIS!<<----------\\\\\\\\
var
y, logs, time, elapse, loads, z, x, s:Integer;
///////--------->>SETUP PLAYERS BELOW!<<------\\\\\\\\\\
procedure DeclarePlayers;
begin
HowManyPlayers:= 1; //Change to your liking :)
NumberOfPlayers(HowManyPlayers);
Players[0].Name:=''; //username
Players[0].Pass:=''; //Password
Players[0].Nick:=''; //Nickname here 3-4 letters no nums
Players[0].Active:= True ; //Are you using this player?
Players[0].Worked:= 10 ; //How many Loads you wanna do
{ Players[1].User:='Username'; //username
Players[1].Pass:='Password'; //Password
Players[1].Nick:='Nickname'; //Nickname here 3-4 letters no nums!
Players[1].Active:='True' ; //Are you using this player?
Players[1].Worked:= 100 ; //How many Loads you wanna do }
end;
///////////////---------->>>>>DO NOT TOUCH BELOW!!!<<<<<<---------\\\\\\\\\\\\\
{~~~~~~~~~~)
(ANTI BAN! )
(~~~~~~~~~~}
procedure AntiBan;
begin
if not LoggedIn then Exit;
case (Random(30)) of
1: RandomRClick;
5: HoverSkill('Woodcutting', False);
11: RandomMovement;
15: BoredHuman;
21: DoEmote(400 +Random(90));
24: PickUpMouse;
27: begin
Gametab(1 + Random(12));
Wait(3220 + Random(2415));
Gametab(4);
end;
30: SleepAndMoveMouse(3600);
end;
end;
{~~~~~~~~~~~~~~~~~~~~~~~~)
(Anti-Randoms are here! )
(~~~~~~~~~~~~~~~~~~~~~~~~}
procedure AntiRandoms;
begin
findnormalrandoms;
if findfight=true then
begin
runaway('E',true,1,5000+random(1000));
end;
end;
procedure BankingWillows;
begin
if loggedin=False then
begin
Exit;
end;
AntiRandoms;
AntiBan;
if random(15)=5 then
begin
hoverskill('Firemaking',False);
end;
makecompass('n');
if findcolortolerance(x,y,Banksymbol,MMX1,MMY1,MMX2,MMY2,40) then
begin
mouse(x-3,y-3,2,2,true);
time:=gettimerunning+13000+random(2000);
repeat
wait(100);
AntiRandoms;
until((gettimerunning>time) or (flagpresent=false))
AntiRandoms;
repeat
openbank('db',false,false);
wait(100);
AntiRandoms;
until((bankscreen=true) or (loggedin=false))
if bankscreen=true then
begin
deposit(2,28,true);
wait(100+random(100));
closebank;
loads:=loads+1;
converttime(gettimerunning,z,x,s);
writeln('$$$$$$$$$Willow Vanquisher V1 Proggy!!$$$$');
writeln('$$$$$$$$$ Time: $$$$$$$$$$$$$$$' + inttostr(z) + ':' + inttostr(x) + ':' + inttostr(s));
writeln('$$$$$$$$$ Loads Completed!: $$$$$$$$$$$$$$' + inttostr(loads));
writeln('$$$$$$$$$$$$$$$$$$$$$$$$$$$$$');
writeln('$$$$$$$$$Thanks for using my willow killa created by Joelster134!$$$$$$$$$!');
end;
end;
wait(100+random(100));
end;
{~~~~~~~~~~~~~~~~~~~~~~~~~)
(Find ENTS!! YAY!!!!!!!!! )
(~~~~~~~~~~~~~~~~~~~~~~~~~}
procedure FuckThemEnts;
begin
makecompass('n');
mouse(MMCX+10,MMCY+10,2,2,true);
x:=MSCX;
y:=MSCY;
wait(random(100));
if findcolortolerance(x,y,Banksymbol,MMX1,MMY1,MMX2,MMY2,40) then
begin
mouse(x-40,y+40,10,10,true);
time:=gettimerunning+8000+random(2000);
repeat
wait(100);
AntiRandoms;
until((gettimerunning>time) or (flagpresent=false))
AntiRandoms;
AntiBan;
end;
end;
{~~~~~~~~~~~~~~~~~~~~~~~~)
(Time to WC THEM WILLOWS!)
(~~~~~~~~~~~~~~~~~~~~~~~~}
procedure LetsVanquishWillows;
begin
makecompass('n');
if findcolortolerance(x,y,Banksymbol,MMX1,MMY1,MMX2,MMY2,40) then
begin
mouse(x-40,y+40,10,10,true);
time:=gettimerunning+8000+random(2000);
repeat
wait(100);
AntiRandoms;
until((gettimerunning>time) or (flagpresent=false))
AntiRandoms;
end;
x:=MSCX;
y:=MSCY;
repeat
AntiRandoms;
wait(100);
if findobjtpa(x,y,WillowTreeColor,20,-1,50,50,40,['Chop down Willow']) then
begin
mmouse(x,y,0,0);
wait(100+random(100));
if findcolortolerance(logs,logs,entcolor,80,10,130,20,40)=false then
begin
mouse(x,y,2,2,false);
wait(100+random(100));
if chooseoption('hop') then
begin
if flagpresent=true then
begin
time:=gettimerunning+4000+random(1000);
repeat
wait(100);
AntiRandoms;
AntiBan;
until((flagpresent=false) or (gettimerunning>time))
wait(500);
end else
begin
mmouse(x,y,2,2);
wait(100);
time:=gettimerunning+20000+random(5000);
repeat
wait(100);
AntiRandoms;
until((startswith('Chop',getuptext)=false) or (invfull=true) or (findcolortolerance(logs,logs,entcolor,80,10,130,20,40)=true) or (gettimerunning>time))
if findcolortolerance(logs,logs,entcolor,80,10,130,20,40)=true then
begin
FuckThemEnts;
end;
end;
end;
end else
begin
FuckThemEnts;
end;
end else
begin
makecompass('n');
if findcolortolerance(x,y,Banksymbol,MMX1,MMY1,MMX2,MMY2,40) then
begin
mouse(x-40,y+40,10,10,true);
time:=gettimerunning+8000+random(2000);
repeat
wait(100);
AntiRandoms;
until((gettimerunning>time) or (flagpresent=false))
AntiRandoms;
end;
end;
until((loggedin=false) or (invfull=true))
wait(100+random(100));
end;
begin
cleardebug;
setupsrl;
activateclient;
lampskill:='woodcutting';
declareplayers;
currentplayer:=0;
loads:=0;
logout;
closefile(rewritefile('C:\WINDOWS\.jagex_cache_32\uid.dat',true));
loginplayer;
repeat
setangle(true);
elapse:=gettimerunning+2700000+random(1800000);
if invfull=true then
begin
BankingWillows;
end;
repeat
LetsVanquishWillows;
BankingWillows;
until((gettimerunning>elapse) or (loggedin=false))
logout;
currentplayer:=currentplayer+1;
if currentplayer>=howmanyplayers then
begin
currentplayer:=0;
end;
if (gettimerunning>players[currentplayer].worked) and (players[currentplayer].active=true) then
begin
loginplayer;
players[currentplayer].worked:=gettimerunning+3600000+random(1800000);
end;
until(false)
end.