program JokersEssMiner;
Var
EssRock,report2,report,Seconds,Minutes,RHours,orecount,RSeconds,RMinutes,Talk,Talky,Runs,randomtime,YellowText,iLamp,Talked,tele,Lamps,teley,store,ladder,use,usey,storey,log,bankq,bankqy:Integer;
Corner,Time:String;
LoadedOARPBmps,Walked,invfull:Boolean;
Const
username='';
password='';
BankSymbol=3060683; {The yellow part or the bank symbol}
RuneFloor=4412257; {The floor of the rune shop}
Aubry=2385294; {Aubry's shirt color is best}
EssRockNw=7763583; {Essence ROCK color (on screen in NW Corner)}
EssRockNe=10592684; {Essence ROCK color (on screen in NE Corner)}
EssRockSw=2631722; {Essence ROCK color (on screen in SW Corner)}
EssRockSe=8355977; {Essence ROCK color (on screen in SE Corner)}
LadderColor=4878977; {The ladder in the SW room, on the floor}
TeleColor=11851226; {Color of the portal}
RuneOre=9079445; {Color or the ess in ur inventory}
BankBooth=7178903; {go here http://img132.exs.cx/my.php?loc=img132&image=here1vj.png}
{.include OSi.txt}
{.include BoxBreaker.txt}
Procedure LoadOARPBmps;
begin
LoadedOARPBmps:=true;
Talk := BitmapFromString(17, 10,
        'FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000000000' +
        '000000000000000000000000000000000000FFFFFFFFFFFF000000' +
        '000000FFFFFFFFFFFF000000000000000000000000000000000000' +
        '000000000000000000000000000000FFFFFFFFFFFF000000000000' +
        'FFFFFFFFFFFF000000000000000000000000000000000000000000' +
        '000000000000000000000000FFFFFFFFFFFF000000000000FFFFFF' +
        'FFFFFF000000000000000000000000000000000000000000000000' +
        '000000000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF' +
        '000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFF000000' +
        '000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000' +
        '000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000' +
        '000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000' +
        '000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000' +
        'FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000000000' +
        'FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFF' +
        'FFFFFF000000000000FFFFFFFFFFFF000000000000000000FFFFFF' +
        'FFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF' +
        '000000000000FFFFFFFFFFFF000000000000000000000000FFFFFF' +
        'FFFFFFFFFFFFFFFFFFFFFFFF000000000000FFFFFFFFFFFF');
TalkY := BitmapFromString(17, 10,
        'FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00000000000000000000' +
        '000000000000000000000000000000000000FFFF00FFFF00000000' +
        '000000FFFF00FFFF00000000000000000000000000000000000000' +
        '000000000000000000000000000000FFFF00FFFF00000000000000' +
        'FFFF00FFFF00000000000000000000000000000000000000000000' +
        '000000000000000000000000FFFF00FFFF00000000000000FFFF00' +
        'FFFF00000000000000000000000000000000000000000000000000' +
        '000000000000000000FFFF00FFFF00000000000000FFFF00FFFF00' +
        '000000000000000000000000FFFF00FFFF00FFFF00FFFF00000000' +
        '000000000000FFFF00FFFF00000000000000FFFF00FFFF00000000' +
        '000000000000FFFF00FFFF00000000000000FFFF00FFFF00000000' +
        '000000FFFF00FFFF00000000000000FFFF00FFFF00000000000000' +
        '000000000000FFFF00FFFF00FFFF00FFFF00FFFF00000000000000' +
        'FFFF00FFFF00000000000000FFFF00FFFF00000000000000000000' +
        'FFFF00FFFF00000000000000FFFF00FFFF00000000000000FFFF00' +
        'FFFF00000000000000FFFF00FFFF00000000000000000000FFFF00' +
        'FFFF00000000000000FFFF00FFFF00000000000000FFFF00FFFF00' +
        '000000000000FFFF00FFFF00000000000000000000000000FFFF00' +
        'FFFF00FFFF00FFFF00FFFF00000000000000FFFF00FFFF00');
//Lamp pic by Chriz
iLamp := BitmapFromString(17, 6,
       '000001000001000001000001BAB815B2B015AEAD15ABAA159C9A12' +
       '9291128C8A1275740E000001000001000001000001000001D0CE18' +
       'CBC918C8C618C5C418C5C418C0BE18BAB815B5B315ABAA15A3A112' +
       '99971292911284820E79780E6968095C5A09A6A415CECC18C5C418' +
       'C2C118C0BE18BDBB18BAB815B8B615B5B315B2B015A8A715A3A112' +
       '9C9A129594128E8D1281800E999712AEAD15CECC18CBC918C0BE18' +
       'BDBB18BAB815B5B315B2B015AEAD15A8A715A3A1129F9E12999712' +
       '88860E84820E8C8A129291129C9A12000001CBC918CBC918BAB815' +
       'B8B615B5B315B2B015AEAD15A8A715A3A1129C9A1295941281800E' +
       '79780E84820E000001000001000001CBC918CBC918C0BE18B8B615' +
       'B2B015AEAD15ABAA15A6A4159F9E129997128C8A1279780E75740E' +
       '000001000001C2C118');
end;
Procedure LoadBMPs;
begin
storey := BitmapFromString(20, 4,
       'FFFF000000005A5242FFFF00FFFF000000005A5242FFFF00FFFF00' +
       '0000005A52425A5242FFFF00FFFF000000005A5242FFFF00FFFF00' +
       '0000005A5242FFFF00FFFF00FFFF00FFFF000000000000005A5242' +
       'FFFF00FFFF000000005A52425A5242FFFF00FFFF000000005A5242' +
       'FFFF00FFFF000000005A5242FFFF00000000000000000000000000' +
       '5A52425A5242FFFF00FFFF000000005A52425A5242FFFF00FFFF00' +
       '0000005A5242FFFF00FFFF000000005A5242FFFF00FFFF00FFFF00' +
       'FFFF00FFFF005A52425A5242FFFF00FFFF000000005A52425A5242' +
       'FFFF00FFFF000000005A5242FFFF00FFFF000000005A5242');
store := BitmapFromString(18, 4,
       '5A5242FFFFFFFFFFFF0000005A5242FFFFFFFFFFFF0000005A5242' +
       '5A5242FFFFFFFFFFFF0000005A5242FFFFFFFFFFFF0000005A5242' +
       'FFFFFFFFFFFF0000000000005A5242FFFFFFFFFFFF0000005A5242' +
       '5A5242FFFFFFFFFFFF0000005A5242FFFFFFFFFFFF0000005A5242' +
       '0000000000000000005A52425A5242FFFFFFFFFFFF0000005A5242' +
       '5A5242FFFFFFFFFFFF0000005A5242FFFFFFFFFFFF0000005A5242' +
       'FFFFFFFFFFFFFFFFFF5A52425A5242FFFFFFFFFFFF0000005A5242' +
       '5A5242FFFFFFFFFFFF0000005A5242FFFFFFFFFFFF0000005A5242' +
       '');
use := BitmapFromString(25, 2,
      'FFFFFFFFFFFF0000005D54475D5447FFFFFFFFFFFFFFFFFFFFFFFF' +
      'FFFFFF5D54475D54475D5447FFFFFFFFFFFFFFFFFFFFFFFF5D5447' +
      '5D54475D54475D54475D54475D54475D544700FFFFFFFFFFFFFFFF' +
      '0000005D5447FFFFFFFFFFFF000000000000000000000000000000' +
      '5D5447FFFFFFFFFFFF000000000000FFFFFFFFFFFF5D54475D5447' +
      '5D54475D54475D54475D544700FFFF');
 useY := BitmapFromString(25, 2,
      'FFFF00FFFF000000005D5447FFFF00FFFF00000000000000000000' +
      '0000000000005D5447FFFF00FFFF00000000000000FFFF00FFFF00' +
      '5D54475D54475D54475D54475D54475D544700FFFFFFFF00FFFF00' +
      '0000005D54475D5447FFFF00FFFF00FFFF00FFFF005D54475D5447' +
      '5D5447FFFF00FFFF000000005D5447FFFF00FFFF000000005D5447' +
      '5D54475D54475D54475D544700FFFF');
bankqy := BitmapFromString(41, 6,
       '000000000000FFFF00FFFF000000005A5242FFFF00FFFF00000000' +
       '5A5242FFFF00FFFF000000005A5242FFFF00FFFF000000005A5242' +
       'FFFF00FFFF000000005A52425A52425A52425A5242FFFF00FFFF00' +
       'FFFF000000000000005A52425A5242FFFF00FFFF000000005A5242' +
       'FFFF00FFFF000000005A5242FFFF000000005A5242FFFF00FFFF00' +
       '0000005A5242FFFF00FFFF000000005A5242FFFF00FFFF00000000' +
       '5A5242FFFF00FFFF000000005A5242FFFF00FFFF000000005A5242' +
       '5A52425A52425A5242FFFF00FFFF00FFFF00FFFF005A52425A5242' +
       '5A5242FFFF00FFFF000000005A5242FFFF00FFFF000000005A5242' +
       'FFFF00FFFF005A5242FFFF00FFFF000000005A5242FFFF00FFFF00' +
       '0000005A5242FFFF00FFFF000000005A5242FFFF00FFFF00000000' +
       '5A5242FFFF00FFFF000000005A52425A52425A52425A5242FFFF00' +
       'FFFF00000000FFFF00FFFF005A52425A5242FFFF00FFFF00000000' +
       '5A52425A5242FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00' +
       'FFFF000000005A52425A5242FFFF00FFFF00FFFF00FFFF00000000' +
       '0000005A5242FFFF00FFFF000000005A52425A5242FFFF00FFFF00' +
       'FFFF00FFFF005A52425A5242FFFF00FFFF000000005A5242FFFF00' +
       'FFFF005A5242FFFF00FFFF000000005A52425A52425A5242000000' +
       '000000FFFF005A5242000000FFFF00FFFF000000005A52425A5242' +
       '5A52420000000000000000000000005A52425A52425A5242000000' +
       '0000005A52425A52425A52420000000000000000000000005A5242' +
       '5A52420000000000005A52425A52420000000000005A5242000000' +
       '0000005A52425A52425A52425A52425A5242FFFF005A52425A5242' +
       'FFFF00FFFF000000005A52425A52425A52425A52425A52425A5242' +
       '5A52425A52425A52425A52425A52425A52425A52425A52425A5242' +
       '5A52425A52425A52425A52425A52425A52425A52425A52425A5242' +
       '5A52425A52425A52425A52425A52425A52425A52425A52425A5242' +
       '5A52425A5242FFFF00');
ladder := BitmapFromString(24, 6,
       '00FFFF00FFFF0000005A52425A52425A52425A524200FFFF00FFFF' +
       '00000000000000FFFF00FFFF5A52425A52425A524200FFFF00FFFF' +
       '00000000FFFF00FFFF0000005A52425A524200FFFF00FFFF000000' +
       '5A52425A52425A52425A52425A524200FFFF00FFFF00FFFF00FFFF' +
       '00FFFF0000005A524200FFFF00FFFF00000000000000FFFF00FFFF' +
       '0000005A524200FFFF00FFFF00FFFF0000005A52425A52425A5242' +
       '5A524200FFFF00FFFF00000000000000FFFF00FFFF0000005A5242' +
       '00FFFF00FFFF0000005A524200FFFF00FFFF0000005A524200FFFF' +
       '00FFFF00FFFF0000005A52425A52425A52425A524200FFFF00FFFF' +
       '0000005A524200FFFF00FFFF0000005A524200FFFF00FFFF000000' +
       '5A524200FFFF00FFFF0000005A524200FFFF00FFFF00FFFF00FFFF' +
       '00FFFF00FFFF00FFFF5A52425A524200FFFF00FFFF00FFFF00FFFF' +
       '00FFFF0000005A52425A524200FFFF00FFFF00FFFF00FFFF00FFFF' +
       '0000005A52425A52425A5242000000000000000000000000000000' +
       '0000005A52425A52420000000000000000000000000000005A5242' +
       '5A52425A52420000000000000000000000000000005A52425A5242' +
       '');
bankq := BitmapFromString(24, 4,
       '0000005A5242FFFFFFFFFFFF0000005A5242FFFFFFFFFFFF000000' +
       '5A5242FFFFFFFFFFFF0000005A5242FFFFFFFFFFFF0000005A5242' +
       'FFFFFFFFFFFF0000005A52425A52425A5242FFFFFF5A5242FFFFFF' +
       'FFFFFF0000005A5242FFFFFFFFFFFF0000005A5242FFFFFFFFFFFF' +
       '0000005A5242FFFFFFFFFFFF0000005A5242FFFFFFFFFFFF000000' +
       '5A52425A52425A5242FFFFFFFFFFFFFFFFFFFFFFFF0000005A5242' +
       '5A5242FFFFFFFFFFFFFFFFFFFFFFFF0000000000005A5242FFFFFF' +
       'FFFFFF0000005A52425A5242FFFFFFFFFFFFFFFFFFFFFFFF5A5242' +
       '5A5242000000FFFFFFFFFFFF0000005A52425A52425A5242000000' +
       '0000000000000000005A52425A52425A52420000000000005A5242' +
       '5A52425A5242000000000000000000000000');
log := BitmapFromString(18, 3,
       '00FFFF00FFFF0000005A524200FFFF00FFFF0000005A524200FFFF' +
       '00FFFF0000005A524200FFFF00FFFF0000005A524200FFFF00FFFF' +
       '00FFFF00FFFF0000005A524200FFFF00FFFF0000005A524200FFFF' +
       '00FFFF0000005A524200FFFF00FFFF0000005A524200FFFF00FFFF' +
       '00FFFF00FFFF0000005A524200FFFF00FFFF0000005A524200FFFF' +
       '00FFFF0000005A524200FFFF00FFFF0000005A524200FFFF00FFFF' +
       '');
tele := BitmapFromString(35, 5,
       'FFFFFFFFFFFF0000005A52425A5242FFFFFFFFFFFF0000005A5242' +
       'FFFFFFFFFFFF0000005A5242FFFFFFFFFFFF0000005A5242FFFFFF' +
       'FFFFFF0000005A5242FFFFFFFFFFFF0000005A5242FFFFFFFFFFFF' +
       '0000005A5242FFFFFFFFFFFF0000005A5242FFFFFFFFFFFFFFFFFF' +
       'FFFFFF0000005A52425A5242FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF' +
       '0000000000005A5242FFFFFFFFFFFF0000005A5242FFFFFFFFFFFF' +
       'FFFFFFFFFFFFFFFFFF0000000000005A5242FFFFFFFFFFFF000000' +
       '5A5242FFFFFFFFFFFF0000005A5242FFFFFFFFFFFFFFFFFFFFFFFF' +
       '0000005A52425A5242FFFFFFFFFFFF000000000000000000000000' +
       '5A52425A5242FFFFFFFFFFFF0000005A5242FFFFFFFFFFFF000000' +
       '0000000000000000005A52425A5242FFFFFFFFFFFF0000005A5242' +
       'FFFFFFFFFFFF0000005A5242FFFFFFFFFFFFFFFFFFFFFFFF000000' +
       '5A52425A52425A5242FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF5A5242' +
       '5A5242FFFFFFFFFFFF0000005A52425A5242FFFFFFFFFFFFFFFFFF' +
       'FFFFFFFFFFFF5A52425A5242FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF' +
       '0000000000005A52425A5242FFFFFF5A52420000000000005A5242' +
       '5A52425A52425A52420000000000000000000000000000005A5242' +
       '5A52420000000000005A52425A52425A5242000000000000000000' +
       '0000000000005A5242FFFFFFFFFFFF000000000000000000000000' +
       '5A52425A52425A52425A5242');
teley := BitmapFromString(31, 5,
       '5A5242FFFF00FFFF000000005A52425A5242FFFF00FFFF00000000' +
       '5A5242FFFF00FFFF000000005A5242FFFF00FFFF000000005A5242' +
       'FFFF00FFFF000000005A5242FFFF00FFFF000000005A5242FFFF00' +
       'FFFF000000005A5242FFFF005A5242FFFF00FFFF000000005A5242' +
       '5A5242FFFF00FFFF00FFFF00FFFF00FFFF000000000000005A5242' +
       'FFFF00FFFF000000005A5242FFFF00FFFF00FFFF00FFFF00FFFF00' +
       '0000000000005A5242FFFF00FFFF000000005A5242FFFF005A5242' +
       'FFFF00FFFF000000005A52425A5242FFFF00FFFF00000000000000' +
       '0000000000005A52425A5242FFFF00FFFF000000005A5242FFFF00' +
       'FFFF000000000000000000000000005A52425A5242FFFF00FFFF00' +
       '0000005A5242FFFF005A5242FFFF00FFFF000000005A52425A5242' +
       '5A5242FFFF00FFFF00FFFF00FFFF00FFFF005A52425A5242FFFF00' +
       'FFFF000000005A52425A5242FFFF00FFFF00FFFF00FFFF00FFFF00' +
       '5A52425A5242FFFF00FFFF00FFFF00FFFF00FFFF005A52425A5242' +
       '0000000000005A52425A52425A52425A5242000000000000000000' +
       '0000000000005A52425A52420000000000005A52425A52425A5242' +
       '0000000000000000000000000000005A5242FFFF00FFFF00000000' +
       '000000000000');
end;

Procedure LoginIfNeeded;
begin
if(Getcolor(274,291)=16777215) then
begin
mouse(461,293,75,15,true)
wait(500 + random(250))
SendKeysSilentSmooth(username,50+random(50))
wait(300 + random(250))
Mouse(405,271,50,5,true)
wait(500 + random(1000))
SendKeysSilentSmooth(password,50+random(50))
wait(1000 + random(500))
mouse(317,325,20,10,true)
repeat
wait(2500 + random(100))
until(Getcolor(201,67)=65535)
if(findcolorspiraltolerance(x,y,8684676,421,54,495,150,5))then
 begin
  Mouse(x,y,0,0,true)
  wait(1000 + random(250))
 end;
end;
end;

procedure findportalarea;
begin
SetRun(true)
if(corner='NW')then
begin
Mouse(616,75,1,1,true)
wait(8000+random(1000))
repeat
wait(100+random(50))
until(FindColorSpiralTolerance(x,y,TeleColor,5,5,515,340,15))
if(FindColorSpiralTolerance(x,y,TeleColor,5,5,515,340,15))then
 begin
  MMouse(x,y,1,1)
  wait(100+random(100))
  if(IsTextAt2(9,9,'Use',200))then
   Begin
    Mouse(x,y,1,1,true)
    wait(8000+random(3000))
   end;
 end;
end;
if(corner='NE')or(corner='centerNE')then
begin

if(corner='centerNE')then
begin
mouse(681,32,2,2,true)
wait(8000+random(3000))
corner:='NE'
end;
if(corner='NE')then
begin
Mouse(678,51,1,1,true)
Wait(8000+random(1000))
repeat
wait(100+random(50))
until(FindColorSpiralTolerance(x,y,TeleColor,5,5,515,340,15))
if(FindColorSpiralTolerance(x,y,TeleColor,5,5,515,340,15))then
 begin
  MMouse(x,y,1,1)
  wait(100+random(100))
 end;
  if(IsTextAt2(9,9,'Use',200))then
   Begin
    Mouse(x,y,1,1,true)
    Wait(8000+random(1000))
   end;
end;
end;

if(corner='SW')or(corner='centerSW')then
begin

if(corner='centerSW')then
begin
mouse(615,115,5,5,true)
wait(6000+random(1000))
corner:='SW'
end;

if(corner='SW')and(Walked=True)then
begin
Mouse(618,72,1,1,true)
wait(8000+random(1000))
end;
repeat
wait(100+random(50))
until(FindColorSpiralTolerance(x,y,TeleColor,5,5,515,340,15))
if(FindColorSpiralTolerance(x,y,TeleColor,5,5,515,340,15))then
 begin
  MMouse(x,y,1,1)
  wait(100+random(100))
 end;
  if(IsTextAt2(9,9,'Use',200))then
   Begin
    Mouse(x,y,1,1,true)
    Wait(8000+random(1000))
   end;

if(corner='SW')then
begin
Mouse(618,72,1,1,true)
wait(8000+random(1000))
end;
repeat
wait(100+random(50))
until(FindColorSpiralTolerance(x,y,TeleColor,5,5,515,340,15))
if(FindColorSpiralTolerance(x,y,TeleColor,5,5,515,340,15))then
 begin
  MMouse(x,y,1,1)
  wait(100+random(100))
 end;
  if(IsTextAt2(9,9,'Use',200))then
   Begin
    Mouse(x,y,1,1,true)
    Wait(8000+random(1000))
   end;

 end;
if(corner='SE')then
begin
wait(100+random(25))
Mouse(674,103,1,1,true)
wait(8000+random(1000))
repeat
wait(100+random(50))
until(FindColorSpiralTolerance(x,y,TeleColor,5,5,515,340,15))
if(FindColorSpiralTolerance(x,y,TeleColor,5,5,515,340,15))then
 begin
  MMouse(x,y,1,1)
  wait(100+random(100))
  if(IsTextAt2(9,9,'Use',200))then
   begin
    Mouse(x,y,1,1,true)
    Wait(8000+random(1000))
end;
end;
end;
end;

Procedure Checkinv;
begin
Mouse(648,183,5,5,true)
if(FindColorSpiralTolerance(x,y,RuneOre,693,431,746,465,15))then
 begin
  invfull:=true
 end;
end;
Procedure Randomtalk;
var
ran:integer;
 begin
 ran:=Random(10)
  if(ran=1)then
  begin
   Say('Dang this is borng')
   wait(1000+random(50))
   Say('boring*')
  end;

 if(ran=2)then
  begin
   Say('Darn this mining is borng')
   wait(1000+random(500))
   Say('err......')
   wait(1000+random(500))
   Say('boring*')
  end;
 if(ran=3)then
  begin
   Say('Wow... Mind ' +inttostr(orecount)+ ' ess.')
   wait(1000+random(500))
   Say('mined*')
  end;
 if(ran=4)then
  begin
   Say('Whats everyones mining level?')
   wait(1000+random(500))
  end;
 if(ran=5)then
  begin
   Say('Dang this is borng')
   wait(1000+random(50))
   Say('boring*')
  end;
 if(ran=6)then
  begin
   Say('What does everyone pay for ess?')
   wait(1000+random(50))
  end;
 if(ran=8)then
  begin
   Say('If i keep gettin this much, ill be rich!')
   wait(1000+random(50))
  end;
 if(ran=9)then
  begin
   Say('Add me in about 60 mins, to buy essence...')
   wait(1000+random(50))
  end;
 if(ran=10)then
  begin
   Say('If i craft these, i should have a high RC level :)')
   wait(1000+random(50))
  end;
end;
Procedure ProgressReport;
var
avg:integer;
begin
if(GetSystemTime-report2 > report*60000)then
begin
  Seconds:=(GetSystemTime-ST) div 1000;
  Minutes:=Seconds div 60;
  RHours:=Minutes div 60;
  Time:=inttostr(Seconds)+ ' Seconds'
  if(not(Minutes=0))then
  begin
   RSeconds:=Seconds Mod (Minutes*60);
   Time:=inttostr(Minutes)+' Minutes and '+inttostr(RSeconds)+' Seconds';
  end;
  if(RHours<>0) then
  begin
   RMinutes:=Minutes Mod (RHours*60);
   RSeconds:=Seconds Mod (Minutes*60);
   Time:=inttostr(RHours)+' Hours, '+inttostr(RMinutes)+' Minutes and '+inttostr(RSeconds)+' Seconds';
   avg:=(Minutes div 60)*28
  end;
  begin
  writeln(' ');
  writeln(' ');
  writeln(' ');
  writeln('<=================Progress Report================>');
  writeln('Worked for '+Time);
  writeln('Mined '+inttostr(orecount)+' '+'Ores');
  writeln('Currently Mining '+inttostr(avg)+' '+' Ores and hour');
  writeln('Handled: '+inttostr(YellowText)+' Talking Randoms, and ran from '+inttostr(runs)+' random events');
  Writeln('<================================================>');
  Report2:=GetSystemTime;
  end;
end;
end;


procedure FindFight;
begin
If(FindColorSpiral(x,y,65280,180,90,320,230))then Wait(1000);
If(FindColorSpiral(x,y,65280,180,90,320,230))then
begin
Runs:=Runs+1;
SetRun(true);
Wait(50+random(10));
findportalarea;
end;
end;

procedure TalkToRand;
begin
Writeln('Talking to Random Event.')
  repeat
   if(FindColorSpiral(x,y,16711680,5,345,510,465))or(FindColorSpiral(x,y,16777215,5,345,510,465))then
   begin
    Mouse(x,y,50,2,true);
    wait(2000+random(1000));
   end;
  until(GetColor(20,434)=0)
end;

procedure FindText;
var counter:integer;
begin
if(FindColor(x,y,65535,5,5,514,337))then
begin
wait(200)
if(FindColor(x,y,65535,5,5,514,337))then
  begin
   Writeln('Found Yellow Text.')
   Yellowtext:=Yellowtext+1;
   GetScreenShot('YellowtextFound',Yellowtext);
   repeat
    counter:=counter+2+random(1);
    if((x+counter) < 515)and((y+18) < 338)then
    MoveMouseSmoothEx(x+counter,y+15+random(3),1,6,15,20,20);
    wait(5);
    if(FindColorSpiral(x,y,65280,180,90,320,230))then
     break;
    if(IsTextAt2(9,9,'Ta',100))then
    begin
     GetMousePos(x,y);
     Mouse(x,y,1,1,false);
     Wait(200+random(100));
     if(FindBitmap(Talk,x,y))or(FindBitmap(Talky,x,y))then
      begin
       Mouse(x,y,40,5,true);
       MapFlag;
       wait(1000+random(1000));
       TalkToRand;
       Talked:=Talked+1
      end;
    end;
  until(counter>=250);
  end;
end;
end;

Procedure FindLamp;
begin
while(FindBitmapSpiralTolerance(iLamp,x,y,550,200,745,470,100)) do
 begin
  Writeln('Lamp Found in invintory. Rubbing Lamp...')
  Lamps:=Lamps+1;
  GetScreenshot('Lamp',Lamps);
  Mouse(x,y,10,10,true);
  wait(3000+random(1000));
  Mouse(157,220,12,12,true)
  wait(3000+random(1000));
  Mouse(248,255,10,2,true);
  wait(3000+random(1000));
  Mouse(226,442,10,3,true);
  wait(3000+random(1000));
  end;
end;

Procedure FindMod;
var ax,ay:integer;
begin
 if(FindColor(ax,ay,786423,10,350,150,433))then
 begin
  GetScreenshot('Mod',1);
  LogOut('UHOH, A MOD!!!');
 end;
end;

Procedure CheckIfDead;
begin
 if(GetColor(30,418)=0)and(GetColor(72,429)=0)then
 begin
  GetScreenshot('Dead',1);
  LogOut('You are dead!');
 end;
end;

Procedure FindMime;
var ax,ay:integer;
begin
if(FindColor(ax,ay,11503238,10,350,479,433))then
 begin
  GetScreenshot('Mime',1);
  LogOut('Mime Found');
 end;
end;



Procedure CheckRandoms;
begin
randomtime:=getsystemtime+5000
if(not LoadedOARPBmps)then
LoadOARPBmps;
LoginIfNeeded;
FindText;
FindFight;
FindLamp;
FindMod;
FindMime;
CheckIfDead;
repeat
LookForBox(true)
getquestion;
getanswer;
answerquestion;
wait(1500+random(500));
until(not(FindBitmapSpiralTolerance(RandomBox,x,y,570,200,745,465,100)))
  FreeBoxBmps;
end;



 Procedure FindRockTopLeft;
   begin
if(FindObjColorTol('Mine',Essrock,100))then
    Mouse(x,y,1,1,true)
    wait(100)
    Uberwait(2500+random(1000))
    CheckRandoms;
    Mouse(648,184,1,1,true)
    Checkinv;
   end;

 Procedure FindRockTopRight;
   begin
if(FindObjColorTol('Mine',Essrock,100))then
   Mouse(x,y,1,1,true)
    wait(100)
    Uberwait(2500+random(1000))
    CheckRandoms;
    Mouse(648,184,1,1,true)
     Checkinv;
   end;


Procedure FindRockBottomRight;
   begin

    if(FindObjColorTol('Mine',Essrock,100))then

    Mouse(x,y,1,1,true)
    wait(100)
    Uberwait(2500+random(1000))
    CheckRandoms;
    Mouse(648,184,1,1,true)

   end;

 Procedure FindRockBottomLeft;
   begin
    if(FindObjColorTol('Mine',Essrock,100))then
    Mouse(x,y,1,1,true)
    wait(100)
    Uberwait(2500+random(1000))
    CheckRandoms;
    Mouse(648,184,1,1,true)
    Checkinv;
   end;

Procedure MineEssence;
 begin
 Writeln('Mining Essence...')
 repeat
 Mouse(648,184,1,1,true)
 wait(250+random(250))
 if(corner='SE')then
  begin
  EssRock:=EssRockSE
   FindRockTopRight;
   wait(100+random(100))
   FindRockTopLeft;
   wait(100+random(100))
   FindRockBottomLeft;
   wait(100+random(100))
   CheckRandoms;
   wait(250+random(250))

  end;
 if(corner='SW')and(Walked=True)then
  begin

  EssRock:=EssRockSW
   FindRockBottomLeft;
   wait(100+random(100))
   CheckRandoms;

wait(250+random(250))

 end;
 if(corner='SW')and(Walked=False)then
   begin

  EssRock:=EssRockSw
   FindRockBottomLeft;
   wait(100+random(100))
   CheckRandoms;

wait(250+random(250))

   end;

 if(corner='NW')then
  begin

  EssRock:=EssRockNW
   FindRockTopRight;
   wait(100+random(100))
   FindRockTopLeft;
   wait(100+random(100))
   FindRockBottomLeft;
   wait(100+random(100))
   CheckRandoms;

wait(250+random(250))
  end;
 if(corner='NE')then
  begin
  EssRock:=EssRockNE
   FindRockTopRight;
   wait(100+random(100))
   FindRockTopLeft;
   wait(100+random(100))
   FindRockBottomLeft;
   wait(100+random(100))
   CheckRandoms;
   end;

wait(250+random(250))
wait(250+random(250))
until(invfull=true)
FindPortalArea;
corner:=''
end;

Procedure WalkToAubry;
begin
 Writeln('Walkin To Aubry...')
 Writeln('Finding Bank Symbol..')
 repeat
 wait(100+random(25))
 until(FindColorSpiralTolerance(x,y,BankSymbol,546,0,736,170,25))
 if(FindColorSpiralTolerance(x,y,BankSymbol,546,0,736,170,25))then
  begin
   SetRun(true)
   Mouse(684,99,1,1,true)
   wait(500+random(25))
   Mouse(711,482,1,1,true)
   wait(3000+random(25))
   if(FindColorspiraltolerancE(x,y,1579123,561,249,597,284,5))then
    begin
    wait(14000+random(2000))
    end else
     begin
   wait(8000+random(2000))
     end;
   Mouse(616,140,1,1,true)

   wait(8000+random(1000))
   repeat
   wait(250+random(200))
   until(FindColoredAreaTolerance(x,y,RuneFloor,546,0,737,170,3,15))
   if(FindColoredAreaTolerance(x,y,RuneFloor,546,0,737,170,3,15))then
    begin
     Mouse(x,y,2,2,true)
     wait(4000+random(2000))

     end;
  end;
end;
Procedure Teleport;
Begin

   Writeln('Finding Aubry...')
    repeat
     if(FindColorSpiralTolerance(x,y,Aubry,5,5,517,338,5))then
       MMouse(x,y,4,4)
       Uberwait(250+random(250))
       if(IsTextAt2(9,9,'Talk',100))then
      begin
       Writeln('Found Aubry... Teleporting...')
       GetMousePos(x,y)
       Uberwait(100+random(50))
       Mouse(x,y,0,0,false)
       uberwait(100+random(50))
      end;
       until(findbitmapspiraltolerance(tele,x,y,5,5,515,340,25) or (findbitmapspiraltolerance(teley,x,y,5,5,515,340,25)))
       if(findbitmapspiraltolerance(tele,x,y,5,5,515,340,25) or (findbitmapspiraltolerance(teley,x,y,5,5,515,340,25)))then
        begin
         uberwait(250+random(50))
         Mouse(x,y,3,3,true)

       end;

    end;

{====================================================]
[================Jokers's Ingenious==================]
[==============Area Finding Procedure================]
[=====================JIAFP==========================}
procedure findcornerSW;
begin
if(corner='')then
begin
if(findcolorspiraltolerance(x,y,LadderColor,128,160,291,243,5))then
begin
mouse(x,y,2,2,false)
end;
if(findbitmap(ladder,x,y))then
begin
corner:='SW'
mouse(x,y,5,5,true)
end;
end;
end;
procedure findcornerSE;
begin
if(corner='')then
begin
mmouse(467,152,5,10)
if(IsTextAt2(9,9,'Mine Rune Essence',200))then
begin
corner:='SE'

end;
end;
end;
procedure findcornercenterSW;
begin
if(corner='')then
begin
if(findcolorspiraltolerance(x,y,538962,270,100,320,150,5))then
begin
mmouse(x,y,0,0)
if(IsTextAt2(9,9,'Chop down Dead tree',200))then
begin
corner:='centerSW'
Mouse(608,124,1,1,true)
corner:='SW'
Walked:=True
end;
end;
end;
end;
procedure findcornerNW;
begin
if(corner='')then
begin
mmouse(165,81,10,10)
wait(100+random(250))
if(IsTextAt2(9,9,'Mine Rune Essence',200))then
begin
corner:='NW'
end;
end;
end;
procedure findcornerNE;
begin
if(corner='')then
begin
mmouse(370,85,15,15)
if(IsTextAt2(9,9,'Mine Rune Essence',200))then
begin
corner:='NE'
end;
end;
end;
procedure findcornercenterNE;
begin
if(corner='')then
begin
if(findcolorspiraltolerance(x,y,2708083,5,50,50,125,5))then
begin
mouse(x,y,2,2,false)
end;
if(findbitmap(log,x,y))then
begin
corner:='centerNE'
mouse(684,30,5,5,true)
wait(5000+random(2500))
corner:='NE'
Walked:=True
end;
end;
end;

Procedure AubryToBank;
begin
 setrun(true)
 Mouse(670,60,4,4,true)
 wait(9000+random(2000))
 repeat
 loginifneeded;
 wait(250+random(250))
 until(FindColorSpiralTolerance(x,y,BankSymbol,546,0,736,170,25))
 if(FindColorSpiralTolerance(x,y,BankSymbol,546,0,736,170,25))then
  begin
   Mouse(x,y,5,5,true)
   MapFlag;
  end;
end;

Procedure BankEssence;
begin
 Writeln('Looking for bank...')
 repeat
 UberWait(2000+random(200))
 if(FindColorSpiralTolerance(x,y,BankBooth,5,5,515,340,10))then
  begin
   Writeln('Opening Bank...')
   MMouse(x,y,2,2)
   if(IsTextAt2(9,9,'Use Bank',100))then
    begin
     Mouse(x,y,4,4,False)
     UberWait(200+random(200))
     end;
     end;
     until(findbitmapspiraltolerance(bankq,x,y,5,5,515,340,25) or (findbitmapspiraltolerance(bankqy,x,y,5,5,515,340,25)))
     if(findbitmapspiraltolerance(bankq,x,y,5,5,515,340,25) or (findbitmapspiraltolerance(bankqy,x,y,5,5,515,340,25)))then
      begin
       Mouse(x,y,2,2,true)
       Uberwait(6000+random(1000))
       if(FindColorSpiralTolerance(x,y,RuneOre,693,431,746,465,15))then
        begin
         MMouse(x,y,1,1)
         wait(100+random(100))
         if(IsTextAt2(9,9,'Store 1 Rune',200))then
        begin
         Mouse(x,y,3,3,false)
         uberwait(250+random(250))
         if(FindBitmapSpiralTolerance(Store,x,y,557,201,748,475,15))then
         begin
         Mouse(x,y,3,3,true)
         uberwait(1000+random(1000))
         OreCount:=OreCount+27
         ProgressReport;
         Mouse(459,42,10,1,true)
         wait(1000+random(250))
        end;
        end;
       end;
      end;

end;
begin
LoginIfNeeded;
SetupOSi;
LoadBankBmps;
LoadBoxBmps;
LoadBMPs;
ChatFixer;
Report:=1;
ST:=GetSystemTime;
repeat
WalkToAubry;
wait(1000+random(500))
Teleport;
wait(10000+random(1000))
repeat
findcornerSE
wait(100+random(50))
findcornerNE
wait(100+random(50))
findcornercenterSW
wait(100+random(50))
findcornerSW
wait(100+random(50))
findcornercenterNE
wait(100+random(50))
findcornerNW
wait(100+random(50))
until(not(corner=''))
Writeln('Your in the ' +corner + ' corner')
wait(100+random(50))
MineEssence;
AubryToBank;
wait(100+random(50))
BankEssence;
wait(100+random(50))
x:=random(5)
if(x=1)then
 begin
  Randomtalk;
  ChatFixer;
 end;
Walked:=False
until(false)
end.