program lumbyswampminer4ss;
{
++++++++++++++++++++++++++++++++++++++++++
|          Lumy Swamp Miner 4 SS         |
|                  by Tain               |
++++++++++++++++++++++++++++++++++++++++++
|Notes: like always i dont take          |
|responsability for your actions so dont |
|blame me for ur bans.                   |
|                                        |
|Happy cheating                          |
|-Train                                  |
++++++++++++++++++++++++++++++++++++++++++
|                History                 |
|1.0 first release                       |
|1.1 converted the banking to new library|
|2.0 redid the swamp pathing useing awalk|
|3.0 progress and MRI added              |
++++++++++++++++++++++++++++++++++++++++++
|             Futrue Features            |
|1.More mining options(4 mith and 24 coal|
|2.Walk back                             |
++++++++++++++++++++++++++++++++++++++++++
|                  Setup                 |
|1. Just fill in mining type in the setup|
|2. Hit start in draynore bank           |
++++++++++++++++++++++++++++++++++++++++++
|            Contact and Thx             |
|Contact me with errors at               |
|AIM:got1dog3cats                        |
|                                        |
|thank u canada for help on find pick    |
|BIG THANX TO SYTHE FOR AWALK!!!!!!!!!!!!|
|thx hat for time that i stole but its ok|
|thx mutant for MRI                      |
++++++++++++++++++++++++++++++++++++++++++
}
{.include sslibrary.txt}
{.include MRI.txt}
{.include boxbreaker.txt}
var
rockcolor,clicked,attemptedtowait,mined,trips,umanagemask,GasCount,sst,cst,srt,tih,tim,tis:integer;

const
miningsymbol=5658197;
banklogo=3060683;
roadcolor=5592411;
treecolor=15891;
questpoint=12471092;
swampcolor=1664830;
swampcolor2=3300897;
miningground=2186806;
rock2mine=1;

{rock modes r as follows:
1.coal       3.addy
2.mithril }

procedure printprogressreport;
begin
writeln('++++++++++++++++++++++++++++++++++++++++++')
writeln('           Lumy Swamp Miner 4 SS')
writeln('                   by Tain')
writeln('++++++++++++++++++++++++++++++++++++++++++')
 cst:=getsystemTime;
 srt:=(cst-sst)/1000;
 tih:=srt/3600;
 tim:=(srt/60)-tih*60;
 tis:=srt-tim*60-tih*3600;
writeln('Worked for '+inttostr(tih)+' Hours '+inttostr(tim)+' Minutes '+inttostr(tis)+' Seconds')
writeln('Mined '+inttostr(mined)+' ore')
writeln( inttostr(trips)+' Trips')
writeln('++++++++++++++++++++++++++++++++++++++++++')
end;

procedure setrockcolor;
begin
if(rock2mine=1)then rockcolor:= 2768446;
if(rock2mine=2)then rockcolor:= 7162698;
if(rock2mine=3)then rockcolor:= 5334095;
end;

procedure vbright;
begin
mouse(683,482,4,4,true)
wait(1000)
mouse(715,262,4,4,true)
wait(1000)
end;

procedure findfight;
begin
if(Fight)then
begin
if(findcolorspiral(x,y,swampcolor2,589,57,612,65))then
begin
Mouse(x,y,0,0,true)
flag;
end;
wait(3000)
if(findcolorspiral(x,y,miningsymbol,588,8,733,158))then
begin
Mouse(x,y,3,3,true)
flag;
end;
end;
end;

procedure checkrands;
begin
FindBox;
findfight;
FindMiscRandoms;
HeadGone;
if(PickBroke=true)then
begin
Logout;
writeln('pic broke haha guess this needs better gas protection')
repeat
wait(500)
until(false)
end;
If(findtext)Then
begin
talk;
end;
end;

procedure scriptprep;
begin
vbright;
run(true);
mouse(652,186,4,4,true)
wait(1000)
GetHeadColorPick;
end;

procedure FindGas;
begin
GasFound(rockcolor)
GasCount:=GasCount+1;
end;

procedure mine;
begin
repeat
checkrands;
InventoryCount;
attemptedtowait:=0;
if(InventoryCount<28)then
begin
if(FindObj('Mine',rockcolor,4))then
begin
FindGas;
Mouse(x,y,0,0,true)
wait(2000)
repeat
wait(500)
attemptedtowait:=attemptedtowait+1
until(FindBitmapMaskTolerance(umanagemask,x,y,21,414,198,429,100,10))or(attemptedtowait>=20)
end;
end;
until(InventoryCount>=28)
end;

procedure tomines;
begin
checkrands;
repeat
if(findcolorspiral(x,y,roadcolor,650,99,732,158))then
begin
Mouse(x,y,1,1,true)
flag;
clicked:=clicked+1
end;
until(clicked>=3)
repeat
if(findcolorspiral(x,y,treecolor,692,75,717,96))then
begin
Mouse(x,y,3,3,true)
flag;
end;
until(findcolorspiral(x,y,questpoint,567,17,721,158))
if(findcolorspiral(x,y,questpoint,567,17,721,158))then
begin
Mouse(x,y,0,0,true)
flag;
end;
if(FindColorTolerance(x,y,swampcolor,686,120,696,134,20))then
begin
Mouse(x,y,3,3,true)
flag;
end;
AWalk(337,miningsymbol);
if(findcolorspiral(x,y,miningsymbol,588,8,733,158))then
begin
Mouse(x,y,3,3,true)
flag;
end;
end;

procedure tobank;
begin
checkrands;
AWalk(157,questpoint);
if(findcolorspiral(x,y,questpoint,588,9,716,149))then
begin
Mouse(x,y,0,0,true)
flag;
end;
if(findcolorspiral(x,y,treecolor,567,59,591,81))then
begin
Mouse(x,y,3,3,true)
flag;
end;
if(findcolorspiral(x,y,roadcolor,578,76,611,94))then
begin
Mouse(x,y,3,3,true)
flag;
end;
repeat
if(findcolorspiral(x,y,roadcolor,585,8,654,45))then
begin
Mouse(x,y,3,3,true)
flag;
end;
until(findcolorspiral(x,y,banklogo,585,8,717,143))
if(findcolorspiral(x,y,banklogo,585,8,717,143))then
begin
Mouse(x,y,3,3,true)
flag;
end;
end;

procedure banking;
begin
UseLamp('mining');
OpenBank;
deposit(2,0,0);
CloseWindow;
trips:=trips+1
mined:=mined+1
end;

procedure loadbitmaps;
begin
umanagemask := BitmapFromString(39, 3,
       'FFFFFF000000000000FFFFFF000000000000FFFFFF000000000000' +
       'FFFFFF000000000000000000FFFFFF000000000000FFFFFFFFFFFF' +
       '000000000000FFFFFF000000000000FFFFFF000000000000000000' +
       'FFFFFF000000000000FFFFFF000000000000000000FFFFFF000000' +
       '000000FFFFFF000000FFFFFF000000000000FFFFFF000000000000' +
       'FFFFFF000000000000000000FFFFFFFFFFFFFFFFFFFFFFFF000000' +
       '000000FFFFFF000000000000000000FFFFFF000000000000000000' +
       'FFFFFFFFFFFFFFFFFFFFFFFF000000000000FFFFFF000000000000' +
       '000000FFFFFF000000000000FFFFFF000000FFFFFF000000000000' +
       'FFFFFF000000000000FFFFFF000000000000FFFFFF000000000000' +
       '000000FFFFFF000000000000FFFFFF000000000000000000FFFFFF' +
       '000000000000FFFFFF000000000000000000FFFFFF000000000000' +
       'FFFFFF000000000000000000FFFFFF000000000000FFFFFFFFFFFF' +
       '');
end;


begin
LoadLibrary('Winamp 5.1');
loadbitmaps;
LoadMRI;
setrockcolor;
scriptprep;
sst:=getsystemTime;
repeat
tomines;
mine;
tobank;
banking;
printprogressreport;
until(false)
end.