program New;
{.include si.txt}

//////////////////////////////////////////////////////////////
/////////////////peanuts east varrok miner////////////////////
//////////////////////////////////////////////////////////////
//////////////////////////setup///////////////////////////////
//have map facing as north as possible and as high as possible
//pick rock color below///////////////////////////////////////
//hit go and happy autoing////////////////////////////////////
//start in mine//////////////////////////////////



//setup colors below

const rockcolor=3890561;//color of the rock
const rockwait=5000;//how long it takes to mine the rock

//stop here
// Anti Randoms: Start

procedure FindMiscRandoms;
var ax,ay:integer;
begin
 if(FindColorSpiral(ax,ay,786423,10,350,150,433))or
   (FindColorSpiral(ax,ay,10658466,10,350,150,433))then
  begin
     logout;
     Writeln('Mod')
  end;
 if(FindColor(ax,ay,11503238,10,350,479,433))then
  begin
   logout;
   Writeln('Mime')
  end;
 if(GetColor(460,426)=0)and(GetColor(277,416)=0)and(GetColor(220,425)=0)or
   (GetColor(502,305)=0)and(GetColor(379,43)=0)then
   begin
   TakeScreen('Maze',1);
   logout;
   end;
   end;



procedure TalkToRand1;
var c:integer;
begin
  repeat
  c:=c+1;
  if(FindColorSpiral(x,y,16711680,5,345,510,465))and(not(GetColor(20,434)=0))then
      begin
      Mouse(x,y,50,2,true);
      wait(2500+Random(500));
      end;
  if(FindColorSpiral(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(2500+Random(500));
      end;
  until(GetColor(20,434)=0)or(c>=20)
end;

procedure FindText;
var mx,my:integer;
begin
if(FindColorSpiral(mx,my,65535,3,3,515,338))then//Find close
  begin
  MMouse(mx,my+15,1,1);
  repeat
  if(IsTextAt2(9,9,'Talk',100))then
    begin
    Mouse(mx,my+15,1,1,false);
    ClickText('Talk',5,5,515,338);
      begin
      Flag;
      wait(2500+Random(500));
      TalkToRand1;
      end;
    end;
  MMouse(mx,my+15,1,1);
  mx:=mx+5;
  wait(random(10)+10+random(10));
  until(mx>=515);
  if(mx>=515)then MMouse(mx+random(5),my+15,1,1);
  end;
end;



Procedure Randoms;
begin
FindText;
FindStrangeBox;
FindMiscRandoms;
Uselamp('mining')
end;//end Lauras edited randoms

Procedure bank;
Begin
Openbank;
wait(300+random(300))
mouse(586,227,3,3,false)
wait(300+random(300))
mouse(586,302,3,3,true)
wait(300+random(300))
mouse(443,40,3,3,true)
End;



procedure walkfrombanktomine;
begin
mouse(685,40,4,3,true)
            wait(6000+random(2000))
            while(WaitTillFlag)do
            flag;
mouse(716,89,4,3,true)
            wait(6000+random(2000))
            while(WaitTillFlag)do
            flag;
            mouse(656,156,4,3,true)
            wait(600+random(200))
            while(WaitTillFlag)do
            flag;
            mouse(688,126,4,3,true)
            wait(600+random(200))
            while(WaitTillFlag)do
            flag;
            mouse(657,157,4,3,true)
            wait(600+random(200))
            while(WaitTillFlag)do
            flag;
            mouse(625,134,4,3,true)
            wait(600+random(200))
            while(WaitTillFlag)do
            flag;
            mouse(660,127,4,3,true)
            wait(600+random(200))
            while(WaitTillFlag)do
            flag;

end;


procedure walkfromminetobank;
begin
mouse(680,21,4,3,true)
            wait(4000+random(4000))
            while(WaitTillFlag)do
            flag;
mouse(635,12,4,3,true)
            wait(4000+random(4000))
            while(WaitTillFlag)do
            flag;
mouse(639,15,4,3,true)
            wait(4000+random(4000))
            while(WaitTillFlag)do
            flag;
mouse(598,33,4,3,true)
            wait(4000+random(4000))
            while(WaitTillFlag)do
            flag;
mouse(661,49,4,3,true)
            wait(4000+random(4000))
            while(WaitTillFlag)do
            flag;
            mouse(713,237,4,3,true)
            wait(4000+random(4000))
            while(WaitTillFlag)do
            flag;
            mouse(774,260,4,3,true)
            wait(4000+random(4000))
            while(WaitTillFlag)do
            flag;
end;



procedure mine;
begin
repeat
findcolorspiral(x,y,rockcolor,3,3,515,336)
mouse(x,y,3,3,true)
wait(rockwait+random(1000))
until(invincount=28)
end;

begin
loadinclude('iTunes')
repeat
mine;
walkfromminetobank;
bank;
walkfrombanktomine;

until(false)
end.