{
"^********************************************^"
"|============================================|"
"|     Guildminer v1.0.1 by cokemeetspespsi   |"
"|       Include "GMinclude.txt"              |"
"|                   @                        |"
"|~~~~~~~~~~~~~"Instructions"~~~~~~~~~~~~~~~~~|"
"| -Have the minimap north straight up.       |"
"| -Start in the middle of Falador East bank. |"
"| -Have Coal in first slot in the bank.      |"
"| -Have a pickaxe on you and nothing         |"
"|  more so you won't lose energy.            |"
"| -Have V-bright set in game.                |"
"|================"Updates"===================|"
"|         v1.0.3 is going to get             |"
"|           AntiRandomProcedure              |"
"|                and fixes                   |"
"|================"Credits"===================|"
"| -Made by cokemeetspepsi                    |"
"| -Learned a lot from Odear and shocker's    |"
"|  scripts                                   |"
"| -Many ideas and procedures from            |"
"|  "OdearUrDead"                             |"
"|      and                                   |"
"|   "Shocker"                                |"
"|============================================|"
"**********************************************"}

Program GuildMiner;
{.include GMinclude.txt}
Const
username = 'Password';
password = 'Username';

var
x,y,p,q,i,a,b,trips:integer;
ST:LongInt;

//BumisD2YK4L's RS2 Login
//Http://www.bumisd2yk4l.cjb.net
Procedure LoginIfNeeded;
begin
repeat
  if(GetColor(321,255)=65535)and(GetColor(254,100)=10547953)and(GetColor(467,119)=1842201)then
  begin
    wait(500)
    clickmouse(459,319,true)
    wait(500)
    if(Getcolor(201,26)=15655906)and(GetColor(279,37)=14404297)and(GetColor(284,114)=4323063)then
    begin
      Clickmouse(400,349,true)
      Wait(500)
      ClickMouse(380,261,true)
      SendKeysSilent(Username)
      Wait(500)
      ClickMouse(383,274,true)
      Wait(500)
      SendKeysSilent(Password)
      Wait(500)
      ClickMouse(299,331,true)
      Wait(5000)
      MoveMouse(450,99);
      Wait(500);
      ClickMouse(450,99,true)
    end;
  end;
until(not (GetColor(404,328)=723723))
end;

Procedure PrintProgressReport; //The Ed Man..and Phalanx...
var
 RHours,Minutes,Seconds,RMinutes,RSeconds,avtime:LongInt;
 Time:String;
Begin
  Seconds:=(GetSystemTime-ST) div 1000;
  Minutes:=Seconds div 60;
  RHours:=Minutes div 60;
  Time:=inttostr(Seconds)+' Seconds';
  avtime:=Seconds/trips;
  if 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';
     end;
  begin
  writeln(' ');
  writeln('Progress Report:');
  writeln('Worked for '+Time);
  writeln('Mined and Banked ('+inttostr(trips)+' Time[s]) '+inttostr(trips*28)
  +' Coal');
  writeln('Gained '+inttostr(trips*1400)+' Mining Experience');
  writeln('Currently Averaging '+inttostr(3600/avtime*28)+' Coal Mined and '
  +inttostr(3600/avtime*1400)+' Experience an Hour');
  end;
End;


procedure SetRunOff;
begin
   Wait(50);
   MoveMouse(720,510);
   Wait(50);
   ClickMouse(720,510,true);
   Wait(100);
   MoveMouse(580,285);
   Wait(50);
   ClickMouse(580,285,true);
   Wait(100);
   MoveMouse(655,210);
   Wait(50);
   ClickMouse(655,210,true);
   Wait(100);
end;

procedure SetRunOn;
begin
   Wait(50);
   MoveMouse(720,510);
   Wait(50);
   ClickMouse(720,510,true);
   Wait(100);
   MoveMouse(635,285);
   Wait(50);
   ClickMouse(635,285,true);
   Wait(100);
   MoveMouse(655,210);
   Wait(50);
   ClickMouse(655,210,true);
   Wait(100);
end;

Procedure MapFlag;
begin
  Wait(200);
  if(FindBitmapIn(flag,x,y,550,5,750,177))then
  begin
   repeat
    wait(500);
   until(not FindBitmapIn(flag,x,y,550,5,750,177));
   Wait(100);
  end;
end;

Procedure MapFlagV;
begin
  Wait(7000);
  MapFlag;
end;

Procedure Go(Where:integer; dx,dy:integer;
             WhereRotatedClockWise:integer;
             WhereRotatedAntiClock:integer; stats:string);
Begin
 if((FindBitmapIn(where,x,y,550,5,750,177))or
    (FindBitmapIn(WhereRotatedClockWise,x,y,550,5,750,177))or
    (FindBitmapIn(WhereRotatedAntiClock,x,y,550,5,750,177))) then
    begin
       Status(stats);
       ClickMouse(x+dx,y+dy, true);
       wait(1500);
       if(FindBitmapIn(flag,x,y,550,5,750,177))then
          begin
             repeat
                wait(500);
             until(not FindBitmapIn(flag,x,y,550,5,750,177));
          end;
    end;
 Wait(200);
End;


Procedure Rocky;
begin
  MoveMouse(45,450);
  If(FindBitmapIn(Examine,a,b,20,430,190,450))then
 ClickMouse(45,185,false);
 wait(200);
 if(FindBitmapIn(WalkHere,a,b,100,100,300,250))or(FindBitmapIn(WalkHereYellow,a,b,30,40,500,300))then
 wait(200);
 ClickMouse(a,b,true);
 wait(1000);
 end;


Procedure ToLadder;
Begin
   Go(walk10,43,0,walk10ClockWise,walk10AntiClock,'To Guild 1/2...');
   Go(walk2,-2,1,walk2,walk2,'To Guild 2/2...');
End;

Procedure ToGuild;
begin
if(FindColorspiral(x,y,1141403,100,100,300,250))then
wait(100);
MoveMouse(x,y);
 Wait(100);
  ClickMouse(x,y,false);
  wait(300);
  if(FindBitmapIn(ClimbDownLadder,a,b,30,40,500,300))or(FindBitmapIn(ClimbDownLadderYellow,a,b,30,40,500,300))then
  wait(100);
  ClickMouse(a,b,true);
  wait(4000);
 end;

procedure DoMining;
begin
SetRunOn;
    MoveMouse(20,20);
    Wait(100);
    Clickmouse(705,95,true) MapFlagv;
    wait(20);
  repeat
    x:= 274;
    y:= 180;
    MoveMouse(20,20);
    Wait(100);
    if(FindColorSpiral(x,y,2768960,x-250,y-160,x+250,y+160))then
    begin
      MoveMouse(x, y);
      Wait(100);
        ClickMouse(x, y, false);
        wait(100);
        MoveMouse(x+10,y+25);
        if(FindBitmapIn(minerocks,a,b,30,80,500,300))or(FindBitmapIn(MineRocksYellow,a,b,30,80,500,300))or
        (FindBitmapIn(Take,a,b,30,80,500,300))or (FindBitmapIn(TakeYellow,a,b,30,80,500,300))then
        begin
          ClickMouse(a, b, true);
          Wait(3050 + Random(200));
          end;
          Rocky;
           end;
  until(FindBitmapIn(Coalore,x,y,703,454,750,489))or(FindBitmapIn(uncutsapphire,x,y,703,454,750,489))or(FindBitmapIn(uncutemerald,x,y,703,454,750,489))or(FindBitmapIn(uncutruby,x,y,703,454,750,489))or(FindBitmapIn(uncutdiamond,x,y,703,454,750,489));
end;

Procedure OutGuild;
begin
wait(20);
MoveMouse(650,90);
wait(200);
if(FindColorspiral(x,y,12566463,550,5,750,165))then
wait(200);
clickmouse(x,y,true)MapFlagV;
wait(200);
Movemouse(594,94);
wait(20);
clickmouse(595,95,true) MapFlagV;
wait(200);
MoveMouse(650,90);
wait(20);
if(FindColorspiral(x,y,76379,550,5,750,165))then
wait(20);
Clickmouse(x,y,true) MapFlagv;
wait(200);
MoveMouse(235,170);
wait(20);
if(FindColorspiral(x,y,873852,100,100,300,250))then
wait(100);
MoveMouse(x, y);
     Wait(100);
clickmouse(x,y,false);
wait(300);
 if(FindBitmapIn(ClimbUpLadder,a,b,100,100,300,250))or(FindBitmapIn(ClimbUpLadderYellow,a,b,30,40,500,300))then
 wait(100);
 clickmouse(a,b,true);
 wait(4000);
 end;

 Procedure SecureLadder;
 begin
 if(not FindBitmapIn(ClimbUpLadder,a,b,100,100,300,250))or(FindBitmapIn(ClimbUpLadderYellow,a,b,30,40,500,300))then
 if(FindColorspiral(x,y,873852,100,100,300,250))then
wait(100);
MoveMouse(x, y);
Wait(100);
clickmouse(x,y,false);
wait(300);
 SetRunOff;
end;

Procedure ToBank;
Begin
   Go(Walk2,12,-40,Walk2,Walk2,'To bank 1/2...');
   Go(Walk10,-6,-20,Walk10ClockWise,Walk10AntiClock,'To bank 2/2...');
End;

Procedure DoBanking;
var bankcount: Integer;
Begin
LoginIfNeeded;
i:=1;
 repeat
If(not FindBitMapSpiral(UseBank,x,y,0,0,200,80))then
 Begin
 Repeat
   Status('Banking....')
   x:=280+random(300);
   y:=250+random(200);
   FindColorSpiral(x,y,607067,5,10,520,346);
   MoveMouse(x,y);
   wait(100);
   bankcount:= bankcount + 1;
  until((FindBitmapSpiral(usebank,p,q,0,5,100,30))or(i>99));
  if (i>99) then Break;
  End;
  if (i<100) then ClickMouse(x,y,false);
  Wait(1000);
  if(findbitmap(qusebank,x,y))or(findbitmap(qbankyellow,x,y))then
  begin
  Movemouse(x,y);
  Wait(100);
  clickmouse(x,y,true);
  wait(4000);
End;
until(findbitmap(inbank,x,y));
end;


Procedure BankCoal;
begin
if(FindColorSpiral(x,y,2636860,560,230,750,490))then
MoveMouse(x,y);
wait(100);
ClickMouse(x,y,false);
wait(100);
ClickMouse(x,y+70,true);
Wait(200);
ClearTimeOuts;
end;

Procedure BankShappire;
begin
if(FindBitmapIn(uncutsapphire,x,y,560,230,750,490))then
MoveMouse(x,y);
wait(100);
ClickMouse(x,y,false);
wait(100);
ClickMouse(x,y+70,true);
Wait(200);
ClearTimeOuts;
end;

Procedure BankEmerald;
begin
if(FindBitmapIn(uncutemerald,x,y,560,230,750,490))then
MoveMouse(x,y);
wait(100);
ClickMouse(x,y,false);
wait(100);
ClickMouse(x,y+70,true);
Wait(200);
ClearTimeOuts;
end;

Procedure BankRuby;
Begin
if(FindBitmapIn(uncutruby,x,y,560,230,750,490))then
MoveMouse(x,y);
wait(100);
ClickMouse(x,y,false);
wait(100);
ClickMouse(x,y+70,true);
Wait(200);
ClearTimeOuts;
end;

Procedure BankDiamond;
Begin
if(FindBitmapIn(uncutruby,x,y,560,230,750,490))then
MoveMouse(x,y);
wait(100);
ClickMouse(x,y,false);
wait(100);
ClickMouse(x,y+70,true);
Wait(200);
ClearTimeOuts;
end;

Procedure BankDaimond;
Begin
if(FindBitmapIn(uncutdiamond,x,y,560,230,750,490))then
MoveMouse(x,y);
wait(100);
ClickMouse(x,y,false);
wait(100);
ClickMouse(x,y+70,true);
Wait(200);
ClearTimeOuts;
end;

begin
 LoadingBitmaps;
 LogInIfNeeded;
 ST:=GetSystemTime;
 trips:=0;
//Main loop
  repeat
     trips:=trips+1;
     ToLadder;
     ToGuild;
     Status('Mining...');
     DoMining;
     Status('Getting out of the guild...');
     OutGuild;
     SecureLadder;
     ToBank;
     DoBanking;
     BankCoal;
     BankShappire;
     BankEmerald;
     BankRuby;
     BankDaimond;
     PrintProgressReport;
  until(false);
end.