{++++++++++++++++++++++++++++++++++++++++++++++++++++++++++]
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,
       'A1A1A1A1A1A1A1A1A1BE4901BE4901BE4901A1A1A1A1A1A1A1A1A1' +
       'BE49013A403EBE4901A1A1A1A1A1A1A1A1A1BE49011A3B2D3A403E' +
       'BE4901BE4901BE4901BE49011A3B2D1A3B2D1A3B2D1A3B2D1A3B2D' +
       '1A3B2D3A403E1A3B2D1A3B2D1A3B2D1A3B2D1A3B2D1A3B2D1A3B2D' +
       '070C06070C06070C06070C061A3B2D1A3B2DBE4901BE4901BE4901' +
       'BE49011A3B2D1A3B2D818181818181818181BE4901070C06070C06' +
       'A1A1A1A1A1A1A1A1A1BE4901070C06BE4901A1A1A1A1A1A1A1A1A1' +
       'BE4901BE4901BE4901');
flags := BitmapFromString(2, 15,
       'FF00005D3311FF00005D3311FF00005D3311FF00005D3311FF0000' +
       '5D3311FF00005D3311FF00005D3311C656045D3311C656045D3311' +
       'C656045D3311C656045D3311C656045D3311C656045D3311C65604' +
       '5D3311C656045D3311');
Frog := BitmapFromString(30, 2, 'z78DA73727274B534B23000012' +
     '74747270B47E249645DB84C808A836D4126C91447321317498C9B' +
     '5154426CC160633119C355982EC4A51E00B445523B');
bmpFreakyForester := BitmapFromString(106, 2, 'z78DAA552410AC0' +
       '3008FBD23618B8A3C2FEFFA531BA4346D406DA8394D8468DB1ED3' +
       'DE11EE67A34F885F7B8FCB47DC4817F59C07B36442A3C41C2EFEB' +
       'E0F8CBB63C2BB1EF61D215E3BADAF437C9221BEC455295AA24B57' +
       '846A57FE2A9365EB1252FD163E4C0C48DC456EAAC7812676FA75B' +
       'F21E5499F00B0E54F6B8C2D96BD8EBD0D7D555AD781E9D382154');
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(GetColor(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(GetColor(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(FindDirObj(x,y,'NE','Mine',30,4))or(FindDirObj(x,y,'SE','Mine',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.