// [Created by Sythe on april 3rd 2005]
// Scarscape only -- Make sure you have the
//                   include pack.
// Start your guy at:
//     ./  Lumbridge
//     ./  East Varock Mine
//     ./  East Varok Bank
//
// ./ The script will buy picks for you.
// ./ The script will deside to mine copper or iron depending on your level.
// ./ Designed to get nub accounts into the mining guild.
// ./ Never run for more than 12 hours.
// ./ You do not need to change anything below.
//
// Version: 1.12

program SythesEastVarockMiner;
{.include sslibrary.txt}
{.include par.txt}
{.include boxbreaker.txt}
var tmpx,tmpy,bronzep,ironp,steelp,mithp,addyp,runep,CurrentPick:integer;isDead:boolean;
const PickType='addy';
      LampSkill='mining';
      ForceCopper=true;
      water=12657153;
      bank=3060683;
      door=228;
      mineicon=5066061;
      road1=5592411;
      shop=81040;
      shopass=6057863;
      goldcoins=5625083;
      axe=4353681;
      bob=1646439;
      ladder=2873;
      copper=4812955;
      iron=2766682;
      gas=6519681;
      dirt=5925745;
      deadtree=4136;
      rock=4010803;
      road=5592411;
      shirt=3435538;
      quest=13199698;
procedure Sell(offx,offy:integer);
begin
 mouse(offx,offy,0,0,false);
 wait(300);
 ClickText(524,168,760,490,'ell 10',2);
 wait(100);
end;

Procedure SellItemsBuyPicks;
begin
 if (findcolor(tmpx,tmpy,water,609,9,722,162)) then sw(tmpx+50,tmpy);
 AWalk(135,shop);
 if (FindColor(tmpx,tmpy,shop,569,8,723,160)) then SW(tmpx+30,tmpy);
 if (FindColor(tmpx,tmpy,door,596,60,639,112)) then SW(tmpx+3,tmpy);
 Wait(500);
 Mouse(236,189,0,0,false);
 ClickTxt('Open');
 if (FindColor(tmpx,tmpy,shop,569,8,723,160)) then SW(tmpx,tmpy);
 Repeat
  GameTab(4);
  If (FindColor(tmpx,tmpy,shopass,3,3,516,339)) then Mouse(tmpx,tmpy,0,0,false);
  ClickTxt('Trade');
  Wait(100);
  Flag;
  wait(500);
 Until (GetColor(250,40)=2070783);
 Sell (584,229);
 Sell (627,228);
 Sell (668,230);
 CloseWindow;
 if (FindColor(tmpx,tmpy,door,627,51,672,125)) then SW(tmpx-3,tmpy);
 wait(500);
 mouse(323,171,0,0,false);
 ClickTxt('Open');
 wait(500);
 flag;
 AWalk(315,water);
 If (FindColor(tmpx,tmpy,water,585,110,705,165)) then SW(tmpx+30,tmpy-20);
 If (FindColor(tmpx,tmpy,water,568,70,726,159)) then SW(tmpx+50,tmpy);
 AWalk(270,axe);
 If (FindColor(tmpx,tmpy,axe,569,8,723,160)) then SW(tmpx+20,tmpy);
 wait(500);
 Mouse(237,165,0,0,false);
 ClickTxt('Open');
 Mouse(204,156,0,0,false);
 ClickTxt('Open');
 If (FindColor(tmpx,tmpy,axe,569,8,723,160)) then SW(tmpx,tmpy);
 Repeat
  SW(650,186);
  If (FindColor(tmpx,tmpy,bob,3,3,516,339)) then Mouse(tmpx,tmpy,1,1,false);
  ClickTxt('Trade');
  Wait(100);
  Flag;
  wait(500);
 Until (SearchForText(168,24,346,51, 'Bob', 2));
 Mouse(92,83,0,0,false);
 ClickTxt('Buy 10');
 CloseWindow;
 If (FindColor(tmpx,tmpy,axe,569,8,723,160)) then SW(tmpx+10,tmpy);
 wait(500);
 Mouse(324,159,0,0,false);
 ClickTxt('Open');
 If (FindColor(tmpx,tmpy,axe,569,8,723,160)) then SW(tmpx+23,tmpy);
 SW(595,63);
 if (findcolor(tmpx,tmpy,water,609,9,722,162)) then
 begin
  sw(tmpx,tmpy+15);
  if (findcolor(tmpx,tmpy,water,609,9,722,162)) then sw(tmpx,tmpy);
  wait(500);
 end;
end;

Procedure BankToIron;
begin
 If (isDead=false) and (FindColor(tmpx,tmpy,mineicon,569,8,723,160)=false) then
 begin
  If (FindColor(tmpx,tmpy,bank,569,8,723,160)) then SW(tmpx,tmpy);
  If (FindColor(tmpx,tmpy,bank,569,8,723,160)) then SW(tmpx+50,tmpy-25);
  sw(710,98);
  If (FindColor(tmpx,tmpy,road,615,120,701,140)) then sw(tmpx,tmpy);
  If (FindColor(tmpx,tmpy,quest,569,8,723,160)) then SW(tmpx+55,tmpy);
  AWalk(270,mineicon);
  If (FindColor(tmpx,tmpy,mineicon,569,8,723,160)) then SW(tmpx,tmpy);
 end;
end;

Procedure IronToBank;
begin
 If (isDead=false) and (FindColor(tmpx,tmpy,bank,569,8,723,160)=false) then
 begin
  If (FindColor(tmpx,tmpy,MineIcon,569,8,723,160)) then SW(tmpx,tmpy);
  If (FindColor(tmpx,tmpy,MineIcon,569,8,723,160)) then SW(tmpx+38,tmpy-45);
  AWalk(90,shirt);
  If (FindColor(tmpx,tmpy,shirt,569,8,723,160)) then SW(tmpx+35,tmpy);
  If (FindColor(tmpx,tmpy,shirt,569,8,723,160)) then SW(tmpx+35,tmpy-45);
  sw(585,67);
  If (FindColor(tmpx,tmpy,quest,569,8,723,160)) then SW(tmpx-45,tmpy-45);
  If (FindColor(tmpx,tmpy,quest,569,8,723,160)) then SW(tmpx-25,tmpy-50);
  If (FindColor(tmpx,tmpy,bank,569,8,723,160)) then SW(tmpx,tmpy);
 end;
end;

Procedure WalkBack;
begin
 Awalk(0,dirt);
 Awalk(90,door);
 if (findcolor(tmpx,tmpy,door,566,12,723,162)) then sw(tmpx+30,tmpy-30);
 sw(616,42);
 if (findcolor(tmpx,tmpy,door,566,10,727,99)) then sw(tmpx-3,tmpy+3);
 if (findcolor(tmpx,tmpy,door,566,10,727,99)) then sw(tmpx-55,tmpy-40);
 repeat
  sw(645,17);
 until (FindColor(tmpx,tmpy,road,628,6,664,27)=false);
 If (Findcolor(tmpx,tmpy,road,668,8,703,39)) then sw(tmpx,tmpy);
 Awalk(55,mineicon);
 isDead:=false;
 IronToBank;
end;

function CheckIfDead:boolean;
begin
 if (findcolor(tmpx,tmpy,water,609,9,722,162)) and (FindColor(tmpx,tmpy,bank,569,8,723,160)=false) and (FindColor(tmpx,tmpy,mineicon,569,8,723,160)=false) then
 begin
  sw(tmpx,tmpy);
  wait(500);
  if (findcolor(tmpx,tmpy,water,634,127,664,151)) then
  begin
    if (InventoryCount > 0) then SellItemsBuyPicks;
    Run(false);
    WalkBack;
    isDead:=true;
    Result:=true;
  end;
 end;
end;

procedure UseBank;
begin
 GameTab(4);
 wait(200);
 FindBox;
 If (FindColor(tmpx,tmpy,bank,569,8,723,160)) then
 begin
  If (FindColor(tmpx,tmpy,bank,569,8,723,160)) then SW(tmpx,tmpy);
  OpenBank;
  DepositAll;
  If (FindBitmapIn(currentpick,tmpx,tmpy,3,3,515,340)) then SW(tmpx+3,tmpy+3) else If (FindBitmapIn(bronzep,tmpx,tmpy,3,3,515,340)) then SW(tmpx+3,tmpy+3) ;
  CloseWindow;
 end;
end;

procedure WalkToMineIcon;
begin
 If (FindColor(tmpx,tmpy,MineIcon,569,8,723,160)) then SW(tmpx,tmpy);
end;

Procedure MineLoop(rockcolor:integer);
begin
 run(true);
 GameTab(4);
 FindBox;
 repeat
  Check4Randoms;
  Check4Lamp(lowercase(LampSkill))
  FindBox;
  if (CheckIfDead) then break;
  tmpx:=275;
  tmpy:=134;
  if (FindColorTolerance(tmpx,tmpy,gas,231,123,312,170,5)=false) and (FindColorSpiral(tmpx,tmpy,rockcolor,231,123,312,170)) then
  begin
   sw(tmpx,tmpy);
  end else
  begin
   tmpx:=275;
   tmpy:=134;
   if (FindColorSpiral(tmpx,tmpy,rockcolor,0,0,515,339)) then
   begin
    if (FindColorTolerance(tmpx,tmpy,gas,tmpx-15,tmpy-15,tmpx+15,tmpy+15,5)=false) then
    begin
     if (FindColorSpiral(tmpx,tmpy,rockcolor,0,0,515,339)) then sw(tmpx,tmpy);
    end else
    begin
     WalkToMineIcon;
    end;
   end else
   begin
    WalkToMineIcon;
   end;
  end;
  wait(100);
  flag;
  wait(300);
 until(getcolor(190,440)=16711680) or (getcolor(189,442)=16711680) or (FindColor(tmpx,tmpy,bank,569,8,723,160));
end;

Procedure LoadBitmaps;
begin
  bronzep := BitmapFromString(3, 3,'41321F46361F000001362A193B2E1C41321F3B2E1C302616362A19');
  ironp := BitmapFromString(3, 3,'4440404743430000013E3939413C3C444040413C3C3B36363B3636');
  steelp := BitmapFromString(3, 3,'6861606C64640000015B5555605A5A655E5D5D5757564F4F585252');
  mithp := BitmapFromString(3, 3,'34364E37375100000130304632324A34364E32324A2C2C432C2C43');
  addyp := BitmapFromString(3, 3,'3746373B493B000001323E323443363746373443362E3B2E2E3B2E');
  runep := BitmapFromString(3, 3,'394D553E525B00000134464E374A51394D5534464E30404632434A');
end;

Procedure LoadPick;
begin
 case lowercase(PickType) of
  'bronze' : CurrentPick:=bronzep;
  'iron' : CurrentPick:=ironp;
  'steel' : CurrentPick:=steelp;
  'mith' : CurrentPick:=mithp;
  'addy' : CurrentPick:=addyp;
  'rune' : CurrentPick:=runep;
 end;
end;

begin
 LoadLibrary('Notepad');
 LoadBitmaps;
 LoadPick;
 SetBrightness('vbright');
 SetChat('off');
 CheckIfDead;
 repeat
  isDead:=false;
  Run(true);
  If (FindColor(tmpx,tmpy,MineIcon,569,8,723,160)=false) then
  begin
   UseBank;
   BankToIron;
  end;
  GameTab(2);
  wait(200);
  If (ReturnNum(5,1) >= 15) then
  begin
   if (ForceCopper) Then MineLoop(copper) else MineLoop(iron);
  end else
  begin
   MineLoop(copper);
  end;
  if (FindColor(tmpx,tmpy,bank,569,8,723,160)=false) then IronToBank;
  wait(500);
 until (false);
end.