////////////////////////////////////////////////////////////////////////////
//                       This Was made By Sapmangat                       //
//                       All i Ask Is that you dont copy                  //
//                       Or sell this script                              //
//                       If you see somebody selling it DONT BUY IT       //
////////////////////////////////////////////////////////////////////////////
//----------------------->   THANKS TO   <------------------------------  //
//                       Clashfan from Fagex                              //
//                       For his guide to scripting                       //
////////////////////////////////////////////////////////////////////////////
//                       I Hope you enjoy my script                       //
//                       Also will have more anitrandoms in next version  //
///////////////////////////////////////////////////////////////////////////

program SmPowerMiner;
{.include Si.txt}

{----Setup----}
const orecolor=;     //Change orecolor to the color of the ore u wanna mine
const invincolor=;   //Change this to the color of the ore when its in you invintory
const username='';   //Put username between the ''
const password='';   //Same with password
{----End----}

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;

procedure DropColor(Color:Integer);
var
  x, y, Drop:Integer;
begin
  Drop:= DTMFromString('78DA63B4636260E064644006FFFFFF07D3305' +
     '1465BA01A5E5435300057E30A542344408D07500D0F01BBF48854' +
     'C346408D19A69B31D480FCCE875F0D00B9181450');
  while(FindColor(x,y,Color,548,168,761,496))do
  begin
    Mouse(x+5,y,1,1,false);
    Wait(450);
    if(FindDtm(Drop,x,y,548,168,761,496))then
    begin
      Mouse(x,y,1,1,true)
      Wait(450);
    end;
  end;
  FreeDtm(Drop);
end;

procedure mine;
begin
findcolorspiral(x,y,orecolor,3,3,515,336)
mouse(x,y,0,0,true)
wait(400+random(500))
end;

begin
loadinclude('Msn Messenger')
repeat
mine;
dropcolor(orecolor)
until(false)
end.