Hype
02-26-2013, 08:04 AM
//Hosted by Runescape 101
//Download more free scar scripts from www.rs101.info
{+++++++++++++++++++++++++++++++++++++++++++++++++ +++++++++]
ESS MINER
V. 3.25
by: Darippy9324
Credits go to:
krrose27, choppa, laura, clashfan, and ch33psh33p
AIM BUGS TO: MYSALSA1022
[+++++++++++++++++++++++++++++++++++++++++]
1.Have picks in first Invo slot
2.Start in Varrok East Bank
3.Please Watch the first load or so... just to make sure
[+++++++++++++++++++++++++++++++++++++++++]
v. b1.0= fixed some bugs
v. b1.5= fixed more bugs
v. b2.0= grrr zone detection and banking
v. b2.3= almost done...
V. 2.65= REAL VERSION!!! YAY
V. 2.70= FIRST REAL UPDATES
V. 2.75= BANKING FIXED!!! YAY NO MULTI PICKS ALONG WITH SW MINE UPDATE!
V. 2.90= MORE BUGS AND NEW MINE PROCEDURES
V. 2.95= ALMOST A OVERNIGHTER... MINOR CHANGES
V. 3.10= MORE CRAP ADDED AND COOL START UP^^^
V 3.25= NEW RANDOMS ADDED =)
[+++++++++++++++++++++++++++++++++++++++++}
program DEssMiner;
{.include sslibrary.txt}
{.include par.txt}
{.include boxbreaker2.txt}
{.include AntiFord.txt}
var arrow, flags, Frog, bmpFreakyForester, TripsDone:integer;
{++++++++++++++++++++++++++++++SETUP++++++++++++++ ++++++++++++++++}
const
Username = 'username';
Password = 'password';
TripstoDo = 15; //how many trips do you wanna do?
{++++++++++++++++++++++++++++++END-SETUP++++++++++++++++++++++++++++++}
procedure Yay;
begin;
writeln('('+
'\'+
','+
'.'+
','+
'/'+
')');
Wait(500);
Writeln(' \'+
'O'+
'.'+
'O'+
'/');
Wait(500);
WriteLn(' W')
Wait(500);
WriteLn(' /'+
'U'+
' U'+
'\');
Wait(500);
WriteLn('('+
' _'+
'_'+
'_'+
' )');
Wait(500);
WriteLn(' \'+
'\'+
' \'+
'\');
Writeln('Thank You for Choosing Darippy9324s Ess Miner')
end;
procedure loadbmps;
begin
arrow := BitmapFromString(6, 11,
'A1A1A1A1A1A1A1A1A1BE4901BE4901BE4901A1A1A1A1A1A1A 1A1A1' +
'BE49013A403EBE4901A1A1A1A1A1A1A1A1A1BE49011A3B2D3 A403E' +
'BE4901BE4901BE4901BE49011A3B2D1A3B2D1A3B2D1A3B2D1 A3B2D' +
'1A3B2D3A403E1A3B2D1A3B2D1A3B2D1A3B2D1A3B2D1A3B2D1 A3B2D' +
'070C06070C06070C06070C061A3B2D1A3B2DBE4901BE4901B E4901' +
'BE49011A3B2D1A3B2D818181818181818181BE4901070C060 70C06' +
'A1A1A1A1A1A1A1A1A1BE4901070C06BE4901A1A1A1A1A1A1A 1A1A1' +
'BE4901BE4901BE4901');
flags := BitmapFromString(2, 15,
'FF00005D3311FF00005D3311FF00005D3311FF00005D3311F F0000' +
'5D3311FF00005D3311FF00005D3311C656045D3311C656045 D3311' +
'C656045D3311C656045D3311C656045D3311C656045D3311C 65604' +
'5D3311C656045D3311');
Frog := BitmapFromString(30, 2, 'z78DA73727274B534B23000012' +
'74747270B47E249645DB84C808A836D4126C9144732131749 8C9B' +
'5154426CC160633119C355982EC4A51E00B445523B');
bmpFreakyForester := BitmapFromString(106, 2, 'z78DAA552410AC0' +
'3008FBD23618B8A3C2FEFFA531BA4346D406DA8394D8468DB 1ED3' +
'DE11EE67A34F885F7B8FCB47DC4817F59C07B36442A3C41C2 EFEB' +
'E0F8CBB63C2BB1EF61D215E3BADAF437C9221BEC455295AA2 4B57' +
'846A57FE2A9365EB1252FD163E4C0C48DC456EAAC7812676F A75B' +
'F21E5499F00B0E54F6B8C2D96BD8EBD0D7D555AD781E9D382 154');
Writeln('-----------------------------------------------')
Writeln('Bitmaps Loaded')
Writeln('If You have a computer that cant recongnize')
Writeln('Bitmaps, Please Consult Me on Sythe.org')
Writeln('For a Custom Script')
Writeln('-----------------------------------------------')
end;
{ANTIRANDOMS}
procedure TalkToRand;
var
c:integer;
begin
repeat
c:=c+1;
if(FindColor(x,y,16711680,5,345,510,465))and(not(G etColor(20,434)=0))then
begin
Mouse(x,y,50,2,true);
wait(500+random(500));
end;
if(FindColor(x,y,16777215,5,345,510,465))and(not(G etColor(20,434)=0))then
begin
GetMousePos(x,y);
Mouse(x,y,50,2,true);
wait(500+random(500));
end;
until(GetColor(20,434)=0)or(c>=20)
end;
function IsTextUp(text:string):Boolean;
begin
result:= IsTextAt2(9,9,text,100)
end;
function FindDirObj(var cx,cy:Integer; Direction,Text:string; Steps, Tries:Integer):Boolean;
var
att:Integer;
x, y: Integer;
begin
x:=268
y:=160
att:=0
if(Direction='NW') then
repeat
att:=att+1
MMouse(x-Steps,y-Steps,0,0)
GetmousePos(x,y)
if(istextat2(9,9,Text,100)) then
begin
result:=true
end else
Wait(500)
until(IsTextUp(Text)or(att>=Tries))
if(Direction='NE') then
repeat
att:=att+1
MMouse(x+Steps,y-Steps,0,0)
GetmousePos(x,y)
if(IsTextUp(Text)) then
begin
result:=true
end else
Wait(500)
until(IsTextUp(Text)or(att>=Tries))
if(Direction='SW') then
repeat
att:=att+1
MMouse(x-Steps,y+Steps,0,0)
GetmousePos(x,y)
if(IsTextup(Text)) then
begin
result:=true
end else
Wait(500)
until(IsTextUp(Text)or(att>=Tries))
if(Direction='SE') then
repeat
att:=att+1
MMouse(x+Steps,y+Steps,0,0)
GetmousePos(x,y)
if(IsTextUp(Text)) then
begin
result:=true
end else
Wait(500)
until(IsTextUp(Text)or(att>=Tries))
if(Result=True)then
begin
cx:= x;
cy:= y;
end;
end;
procedure runaway;
begin
Run(true);
FindColorspiral(x,y,1557,582,4,721,142);
clickmouse(x+random(2),y+random(2),true);
flag;
Writeln('Runaway')
end;
function Fight:boolean;
begin
if(FindColorSpiral(x,y,65280,216,115,284,171))then
Result:=true;
end;
Procedure CheckIfDead;
begin
if(GetColor(30,418)=0)and(GetColor(72,429)=0)then
begin
LogOut;
Writeln('Dead')
end;
end;
Procedure FindMime;
var ax,ay:integer;
begin
if(FindColor(ax,ay,11503238,10,350,479,433))then
begin
LogOut;
Writeln('Mime')
end;
end;
function FindForester:boolean;//A Stupid3ooo procedure
begin
if(FindBitmap(bmpFreakyForester,x,y))then
begin
writeln('Freaky Forester found, logging out.');
LogOut;
TerminateScript;
end;
end;
function FindFrog:boolean;//A Stupid3ooo procedure
begin
if(FindBitmap(Frog,x,y))then
begin
writeln('Frog found, logging out.');
LogOut;
TerminateScript;
end;
end;
procedure golom;
begin
if(fight)then
runaway;
end;
procedure randoms;
begin
Login(Username,Password);
Check4Randoms;
Check4Lamp('mining');
EyeTest;
golom;
FindFrog;
FindForester;
checkifdead;
Check4mod;
FindMime;
FindStrangeBox;
end;
{END-RANDOMS}
{UBER ZONE DETECTION}
procedure zonedetection;
begin
Writeln('Finding Ess...')
randoms;
FindColorspiral(x,y,1557,582,4,721,142);
clickmouse(x+random(2),y+random(2),true);
flag;
wait(200+random(100));
FindColorspiral(x,y,9539482,582,4,721,142);
clickmouse(x+random(2),y+random(2),true);
wait(800+random(125));
flag;
FindColorspiral(x,y,8092291,582,4,721,142);
clickmouse(x+random(2),y+random(2),true);
wait(2000+random(125));
flag;
end;
{lol not that Uber}
procedure mine;
begin;
Writeln('Mining Ess...')
randoms;
repeat
wait(500)
until(FindDirObj(x,y,'NW','Mine',30,4))or(FindDirO bj(x,y,'NE','Mine',30,4))or(FindDirObj(x,y,'SE','M ine',30,4))or(FindDirObj(x,y,'SW','Mine',30,4));
Mouse(x,y,2,2,true);
repeat
wait(500+random(100));
randoms;
until(InventoryCount=28)
SetPublicChat('off');
end;
function center:boolean;
begin;
if(FindBitmap(arrow,x,y))then
result:=false;
end;
procedure portal;
begin;
Writeln('gottem coach')
randoms;
if(FindColorspiral(x,y,84414,582,4,721,142))then
mouse(x+15,y,1,1,true);
wait(5000+random(758));
if(FindColorspiral(x,y,2964250,582,4,721,142))then
mouse(x-5,y+5,1,1,true);
wait(5000+random(758));
repeat
wait(100)
until FindObj('Use',9806761,4);
mouse(x,y,1,1,true);
wait(2000);
if(FindColorspiral(x,y,2196626,582,4,721,142))then
mouse(x+44,y+19,1,1,true);
flag;
wait(1300);
randoms;
end;
Procedure WalktoBank;
begin
if(FindColorspiral(x,y,1452606,582,4,721,142))then
wait(50)
mouse(x,y,1,1,true);
flag;
wait(1300);
if(FindColorspiral(x,y,6776686,582,4,721,142))then
Wait(50)
mouse(x,y,1,1,true);
flag;
wait(3000);
end;
procedure tomine;
begin;
Mouse(659,138,1,1,true);
wait(14000)
flag;
wait(500);
if(FindColorspiral(x,y,65995,582,4,721,142))then
mouse(x+0,y+10,1,1,true);
flag;
wait(2000);
randoms;
end;
Procedure TalktoGuy;
Begin
Writeln('Finding Aubry...')
begin
repeat
wait(50)
if(Findobj('Talk',2186884,5))then
Mouse(x,y,1,1,false)
wait(500+random(100))
Mouse(x,y+55,1,1,true);
wait(1500+random(500));
until(findcolorspiral(x,y,12829386,582,4,721,142)) or(findcolorspiral(x,y,2964250,582,4,721,142))
wait (3000+random(1000));
Writeln('Found Aubry... Teleporting...');
wait(500);
end;
end;
Procedure bank;
begin;
openbank;
deposit(1,2,27)
closewindow;
randoms;
writeln('Banked!')
end;
begin
LoadLibrary('AOL-MR.NICEGUY');
yay;
loadbmps;
repeat
SetPublicChat('off');
SetPrivateChat('off');
SetTradeDuel('off');
run(true);
tomine;
run(false);
TalktoGuy;
Zonedetection;
mine;
portal;
run(true);
walktobank;
run(false);
bank;
TripsDone:=TripsDone+1;
Writeln('--------=====DARIPPY9324s ESS MINER=====--------');
Writeln('Banked '+inttostr(TripsDone)+' Load(s) of 27 Ess');
Writeln('Any Errors? Please Report... Again Thanks For Your Support');
Writeln('===--------=====Progress**Report=====--------===');
Until(TripsDone=TripsToDo)Or(TripsDone>TripsTodo)
Logout;
Writeln('You have succesfully done '+inttostr(TripstoDo)+' Trips')
end.
//Download more free scar scripts from www.rs101.info
{+++++++++++++++++++++++++++++++++++++++++++++++++ +++++++++]
ESS MINER
V. 3.25
by: Darippy9324
Credits go to:
krrose27, choppa, laura, clashfan, and ch33psh33p
AIM BUGS TO: MYSALSA1022
[+++++++++++++++++++++++++++++++++++++++++]
1.Have picks in first Invo slot
2.Start in Varrok East Bank
3.Please Watch the first load or so... just to make sure
[+++++++++++++++++++++++++++++++++++++++++]
v. b1.0= fixed some bugs
v. b1.5= fixed more bugs
v. b2.0= grrr zone detection and banking
v. b2.3= almost done...
V. 2.65= REAL VERSION!!! YAY
V. 2.70= FIRST REAL UPDATES
V. 2.75= BANKING FIXED!!! YAY NO MULTI PICKS ALONG WITH SW MINE UPDATE!
V. 2.90= MORE BUGS AND NEW MINE PROCEDURES
V. 2.95= ALMOST A OVERNIGHTER... MINOR CHANGES
V. 3.10= MORE CRAP ADDED AND COOL START UP^^^
V 3.25= NEW RANDOMS ADDED =)
[+++++++++++++++++++++++++++++++++++++++++}
program DEssMiner;
{.include sslibrary.txt}
{.include par.txt}
{.include boxbreaker2.txt}
{.include AntiFord.txt}
var arrow, flags, Frog, bmpFreakyForester, TripsDone:integer;
{++++++++++++++++++++++++++++++SETUP++++++++++++++ ++++++++++++++++}
const
Username = 'username';
Password = 'password';
TripstoDo = 15; //how many trips do you wanna do?
{++++++++++++++++++++++++++++++END-SETUP++++++++++++++++++++++++++++++}
procedure Yay;
begin;
writeln('('+
'\'+
','+
'.'+
','+
'/'+
')');
Wait(500);
Writeln(' \'+
'O'+
'.'+
'O'+
'/');
Wait(500);
WriteLn(' W')
Wait(500);
WriteLn(' /'+
'U'+
' U'+
'\');
Wait(500);
WriteLn('('+
' _'+
'_'+
'_'+
' )');
Wait(500);
WriteLn(' \'+
'\'+
' \'+
'\');
Writeln('Thank You for Choosing Darippy9324s Ess Miner')
end;
procedure loadbmps;
begin
arrow := BitmapFromString(6, 11,
'A1A1A1A1A1A1A1A1A1BE4901BE4901BE4901A1A1A1A1A1A1A 1A1A1' +
'BE49013A403EBE4901A1A1A1A1A1A1A1A1A1BE49011A3B2D3 A403E' +
'BE4901BE4901BE4901BE49011A3B2D1A3B2D1A3B2D1A3B2D1 A3B2D' +
'1A3B2D3A403E1A3B2D1A3B2D1A3B2D1A3B2D1A3B2D1A3B2D1 A3B2D' +
'070C06070C06070C06070C061A3B2D1A3B2DBE4901BE4901B E4901' +
'BE49011A3B2D1A3B2D818181818181818181BE4901070C060 70C06' +
'A1A1A1A1A1A1A1A1A1BE4901070C06BE4901A1A1A1A1A1A1A 1A1A1' +
'BE4901BE4901BE4901');
flags := BitmapFromString(2, 15,
'FF00005D3311FF00005D3311FF00005D3311FF00005D3311F F0000' +
'5D3311FF00005D3311FF00005D3311C656045D3311C656045 D3311' +
'C656045D3311C656045D3311C656045D3311C656045D3311C 65604' +
'5D3311C656045D3311');
Frog := BitmapFromString(30, 2, 'z78DA73727274B534B23000012' +
'74747270B47E249645DB84C808A836D4126C9144732131749 8C9B' +
'5154426CC160633119C355982EC4A51E00B445523B');
bmpFreakyForester := BitmapFromString(106, 2, 'z78DAA552410AC0' +
'3008FBD23618B8A3C2FEFFA531BA4346D406DA8394D8468DB 1ED3' +
'DE11EE67A34F885F7B8FCB47DC4817F59C07B36442A3C41C2 EFEB' +
'E0F8CBB63C2BB1EF61D215E3BADAF437C9221BEC455295AA2 4B57' +
'846A57FE2A9365EB1252FD163E4C0C48DC456EAAC7812676F A75B' +
'F21E5499F00B0E54F6B8C2D96BD8EBD0D7D555AD781E9D382 154');
Writeln('-----------------------------------------------')
Writeln('Bitmaps Loaded')
Writeln('If You have a computer that cant recongnize')
Writeln('Bitmaps, Please Consult Me on Sythe.org')
Writeln('For a Custom Script')
Writeln('-----------------------------------------------')
end;
{ANTIRANDOMS}
procedure TalkToRand;
var
c:integer;
begin
repeat
c:=c+1;
if(FindColor(x,y,16711680,5,345,510,465))and(not(G etColor(20,434)=0))then
begin
Mouse(x,y,50,2,true);
wait(500+random(500));
end;
if(FindColor(x,y,16777215,5,345,510,465))and(not(G etColor(20,434)=0))then
begin
GetMousePos(x,y);
Mouse(x,y,50,2,true);
wait(500+random(500));
end;
until(GetColor(20,434)=0)or(c>=20)
end;
function IsTextUp(text:string):Boolean;
begin
result:= IsTextAt2(9,9,text,100)
end;
function FindDirObj(var cx,cy:Integer; Direction,Text:string; Steps, Tries:Integer):Boolean;
var
att:Integer;
x, y: Integer;
begin
x:=268
y:=160
att:=0
if(Direction='NW') then
repeat
att:=att+1
MMouse(x-Steps,y-Steps,0,0)
GetmousePos(x,y)
if(istextat2(9,9,Text,100)) then
begin
result:=true
end else
Wait(500)
until(IsTextUp(Text)or(att>=Tries))
if(Direction='NE') then
repeat
att:=att+1
MMouse(x+Steps,y-Steps,0,0)
GetmousePos(x,y)
if(IsTextUp(Text)) then
begin
result:=true
end else
Wait(500)
until(IsTextUp(Text)or(att>=Tries))
if(Direction='SW') then
repeat
att:=att+1
MMouse(x-Steps,y+Steps,0,0)
GetmousePos(x,y)
if(IsTextup(Text)) then
begin
result:=true
end else
Wait(500)
until(IsTextUp(Text)or(att>=Tries))
if(Direction='SE') then
repeat
att:=att+1
MMouse(x+Steps,y+Steps,0,0)
GetmousePos(x,y)
if(IsTextUp(Text)) then
begin
result:=true
end else
Wait(500)
until(IsTextUp(Text)or(att>=Tries))
if(Result=True)then
begin
cx:= x;
cy:= y;
end;
end;
procedure runaway;
begin
Run(true);
FindColorspiral(x,y,1557,582,4,721,142);
clickmouse(x+random(2),y+random(2),true);
flag;
Writeln('Runaway')
end;
function Fight:boolean;
begin
if(FindColorSpiral(x,y,65280,216,115,284,171))then
Result:=true;
end;
Procedure CheckIfDead;
begin
if(GetColor(30,418)=0)and(GetColor(72,429)=0)then
begin
LogOut;
Writeln('Dead')
end;
end;
Procedure FindMime;
var ax,ay:integer;
begin
if(FindColor(ax,ay,11503238,10,350,479,433))then
begin
LogOut;
Writeln('Mime')
end;
end;
function FindForester:boolean;//A Stupid3ooo procedure
begin
if(FindBitmap(bmpFreakyForester,x,y))then
begin
writeln('Freaky Forester found, logging out.');
LogOut;
TerminateScript;
end;
end;
function FindFrog:boolean;//A Stupid3ooo procedure
begin
if(FindBitmap(Frog,x,y))then
begin
writeln('Frog found, logging out.');
LogOut;
TerminateScript;
end;
end;
procedure golom;
begin
if(fight)then
runaway;
end;
procedure randoms;
begin
Login(Username,Password);
Check4Randoms;
Check4Lamp('mining');
EyeTest;
golom;
FindFrog;
FindForester;
checkifdead;
Check4mod;
FindMime;
FindStrangeBox;
end;
{END-RANDOMS}
{UBER ZONE DETECTION}
procedure zonedetection;
begin
Writeln('Finding Ess...')
randoms;
FindColorspiral(x,y,1557,582,4,721,142);
clickmouse(x+random(2),y+random(2),true);
flag;
wait(200+random(100));
FindColorspiral(x,y,9539482,582,4,721,142);
clickmouse(x+random(2),y+random(2),true);
wait(800+random(125));
flag;
FindColorspiral(x,y,8092291,582,4,721,142);
clickmouse(x+random(2),y+random(2),true);
wait(2000+random(125));
flag;
end;
{lol not that Uber}
procedure mine;
begin;
Writeln('Mining Ess...')
randoms;
repeat
wait(500)
until(FindDirObj(x,y,'NW','Mine',30,4))or(FindDirO bj(x,y,'NE','Mine',30,4))or(FindDirObj(x,y,'SE','M ine',30,4))or(FindDirObj(x,y,'SW','Mine',30,4));
Mouse(x,y,2,2,true);
repeat
wait(500+random(100));
randoms;
until(InventoryCount=28)
SetPublicChat('off');
end;
function center:boolean;
begin;
if(FindBitmap(arrow,x,y))then
result:=false;
end;
procedure portal;
begin;
Writeln('gottem coach')
randoms;
if(FindColorspiral(x,y,84414,582,4,721,142))then
mouse(x+15,y,1,1,true);
wait(5000+random(758));
if(FindColorspiral(x,y,2964250,582,4,721,142))then
mouse(x-5,y+5,1,1,true);
wait(5000+random(758));
repeat
wait(100)
until FindObj('Use',9806761,4);
mouse(x,y,1,1,true);
wait(2000);
if(FindColorspiral(x,y,2196626,582,4,721,142))then
mouse(x+44,y+19,1,1,true);
flag;
wait(1300);
randoms;
end;
Procedure WalktoBank;
begin
if(FindColorspiral(x,y,1452606,582,4,721,142))then
wait(50)
mouse(x,y,1,1,true);
flag;
wait(1300);
if(FindColorspiral(x,y,6776686,582,4,721,142))then
Wait(50)
mouse(x,y,1,1,true);
flag;
wait(3000);
end;
procedure tomine;
begin;
Mouse(659,138,1,1,true);
wait(14000)
flag;
wait(500);
if(FindColorspiral(x,y,65995,582,4,721,142))then
mouse(x+0,y+10,1,1,true);
flag;
wait(2000);
randoms;
end;
Procedure TalktoGuy;
Begin
Writeln('Finding Aubry...')
begin
repeat
wait(50)
if(Findobj('Talk',2186884,5))then
Mouse(x,y,1,1,false)
wait(500+random(100))
Mouse(x,y+55,1,1,true);
wait(1500+random(500));
until(findcolorspiral(x,y,12829386,582,4,721,142)) or(findcolorspiral(x,y,2964250,582,4,721,142))
wait (3000+random(1000));
Writeln('Found Aubry... Teleporting...');
wait(500);
end;
end;
Procedure bank;
begin;
openbank;
deposit(1,2,27)
closewindow;
randoms;
writeln('Banked!')
end;
begin
LoadLibrary('AOL-MR.NICEGUY');
yay;
loadbmps;
repeat
SetPublicChat('off');
SetPrivateChat('off');
SetTradeDuel('off');
run(true);
tomine;
run(false);
TalktoGuy;
Zonedetection;
mine;
portal;
run(true);
walktobank;
run(false);
bank;
TripsDone:=TripsDone+1;
Writeln('--------=====DARIPPY9324s ESS MINER=====--------');
Writeln('Banked '+inttostr(TripsDone)+' Load(s) of 27 Ess');
Writeln('Any Errors? Please Report... Again Thanks For Your Support');
Writeln('===--------=====Progress**Report=====--------===');
Until(TripsDone=TripsToDo)Or(TripsDone>TripsTodo)
Logout;
Writeln('You have succesfully done '+inttostr(TripstoDo)+' Trips')
end.