Iron Miner Banker

[3dmikey]

{==================================================]
[ Moparisthebest's Ironminerbanker v2.1 ]
[ Based in part on: Stupid3ooo's GuildMiner v3.83 ]
[==================================================]
| Instructions: |
| 1.V-bright, 32bit resolution. |
| 2.Need SCAR version 2.0.3. |
| 3.START SCRIPT IN THE WEST FALLY, EAST VARROCK |
| OR EAST ARDOUGNE BANK. |
| 4.Start with a pickaxe in your fist |
| inventory slot or equiped. |
| 5.Recomended to have extra pickaxes in your |
| first bank slot. |
| 6.Setup is in lines 54-59. |
| 7.Press the green arrow to start. |
| 8.For general SCAR help go to |
| http://www.kaitnieks.com/files/SCARGUIDE/SCARGUIDE.htm |
[==================================================}
program moparsironminerbanker;

{.include SSI2.txt}
{.include moparsroadrunner.txt}
{.include BoxBreaker.txt}

var
MapPickColor,MapOreColor,BankColor,Report,Report2,minewaittime,
TotalOres,Banks,Mark,IAmLostCount,MaxWait,Town,exp:integer;
NoPick,Look4Gas,EquipPick,UnderGround,iron:boolean;
RockDirection,RunDirection:string;

procedure Setup;
begin
//=//=========Main Screen Colors(Leave as 0 to let script find)========\\=\\
OreColor1:= 0; //Colors of Iron/Coal rocks
OreColor2:= 0;
OreColor3:= 0;
//=\\=================================================================//=\\
//=//==========Mini Map Colors(Leave as 0 to let script find)==========\\=\\
BankColor:= 0; //Bank symbol color (SS:3060683)
moparsroadcolor:= 0; //road color (SS:5592411)
MapOreColor:= 0; //ore color (SS:4010803)
MapPickColor:= 0; //Pick symbol color (SS:207695)
//=\\=================================================================//=\\
//=\\============================Setup================================//=\\
Username:= 'Username';//Username.
Password:= 'Password';//Password.
ScarScape:= false;//Set to true if you are using ScarScape.
LogsOut:= true;//If you want to log out every so often for antiban.
Chats:= true;//If you want to randomly chat for anti-ban.
Look4Gas:= true;//Set to false if you are having trouble with it constantly finding gas.
Rotates:= true;//If you want to randomly rotate the screen for anti-ban.
MaxWait:= 10;//Maximum time in seconds to wait while mining a rock.
minewaittime:= 100;//increase if you lag while mining, default 100
EquipPick:= true;//If you can/want to equip your pick.
RunDirection:= 'E';//Direction to run away from. 'E' is default.
town:=0; //leave 0 to autopick, town to start in, 1=fally 2=varrock 3=ardy
iron:=true; //iron or coal, ardougne only
//=\\=================================================================//=\\
end;

//DO NO TOUCH BELOW

procedure ProgressReport;
var
RHours,Minutes,Seconds,RMinutes,RSeconds,avtime:LongInt;
Time:String;
begin
if(GetSystemTime-report2 > report*60000)then
begin
Seconds:=(GetSystemTime-ST) div 1000;
Minutes:=Seconds div 60;
RHours:=Minutes div 60;
Time:=IntToStr(Seconds)+' Seconds';
avtime:=Seconds/banks;
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('Banked '+IntToStr(banks)+' loads.');
WriteLn('Banked '+IntToStr(TotalOres)+' ore.');
WriteLn('Gained '+floattostr(exp*TotalOres)+'xp.');
WriteLn('Currently Averaging about '+IntToStr(3600/avtime*(TotalOres/banks))+
' ores and '+floattostr(3600/avtime*(exp*(TotalOres/banks)))+' xp an hour.');
WriteLn('Random Event Report:');
if(fights>0)then WriteLn(' Fought '+IntToStr(fights)+' time.');
if(talks>0)then WriteLn(' Talked to '+IntToStr(talks)+' Random event.');
if(lamps>0)then WriteLn(' Used lamps '+IntToStr(lamps)+' time.');
if(boxes>0)then WriteLn(' Solved '+IntToStr(boxes)+' box[es].');
if(logs>0)then WriteLn(' Logged in '+IntToStr(logs)+' time.');
WriteLn('<================================================>');
Report2:=GetSystemTime;
end;
end;
end;

//===========================Color Finding procedures=========================\\
procedure SetRoadColorifneeded;
var
dtmGetRoad:integer;
begin
if(moparsroadcolor=0)then
begin
// 1= fallador, thx to sdouble for making the dtm
// 2= varrock
// 3= ardougne
case town of
1:dtmGetRoad:= DTMFromString('78DA636C636460900362206006622620CE484' +
'C60B001D220D1FF40C05807642940D4C0C0BF7FC2703520C00832' +
'4711D59C3F7F9850D5F40259CAF8D50000A9480ED1');
2:dtmGetRoad:= DTMFromString('78DA63AC65626048660003662006F21872525' +
'3196C80342310FF0702C62AA0681CAA9A3F7F98E06A4080B11928' +
'1A8FAAE6ED5B0654354D9876A19B0300F1470F94');
3:dtmGetRoad:= DTMFromString('78DA632C66626088640003662006F21852626' +
'3186C80342310FF0702C602A0680CAA9A18533E060DA81A10602C' +
'25524D1801350584D50000A99A0C99');
end;
if(FindDtm(dtmGetRoad, x, y, 570, 5, 725, 155 ))then
moparsroadcolor:= GetColor(x,y);
end;
if(moparsroadcolor=0)then
begin
writeln('cant find road color, pick manually or restart');
terminatescript;
end;
end;

procedure SetTownifneeded;
var c:integer;
begin
if(town=0)then
begin
while(town=0)do
begin
c:=c+1;
if(findcolorspiraltolerance(x,y,10321002,573,93,603,131,20))then
begin
town:=1;
writeln('Starting in Falador');
iron:=true;
exp:=35;
end
else if(findcolorspiraltolerance(x,y,10321002,647,139,669,164,20))then
begin
town:=3;
writeln('Starting in Ardougne');
if(not(iron))then
exp:=50;
if(iron)then
exp:=35;
end
else if(not(findcolorspiraltolerance(x,y,10321002,570,5,725,155,20)))then
begin
town:=2;
writeln('Starting in Varrock');
iron:=true;
exp:=35;
end;
if(c>20)then
begin
writeln('cant decide which city your starting in, set town yourself');
terminatescript;
end;
wait(random(50)+500);
end;
end;
end;

procedure FindRockDirection;
begin
if(MapPickColor>0)then
begin
if(FindColorSpiral(x,y,MapPickColor,668,5,725,160))then
RockDirection:='W';
if(FindColorSpiral(x,y,MapPickColor,575,5,628,160))then
RockDirection:='E';
if(FindColorSpiral(x,y,MapPickColor,575,103,725,160))then
RockDirection:='N';
if(FindColorSpiral(x,y,MapPickColor,575,5,725,68))then
RockDirection:='S';
end;
end;

function FindMapOreColor:integer;
var
MapOre,MapOre2:integer;
begin
MapOre := BitmapFromString(3, 3,
'3D2C345948546D5D624A39416D5D626D5D625948546D5D626D5D62' +
'');
MapOre2 := BitmapFromString(3, 3,
'061115222D35364243131E22364243364243222D35364243364243' +
'');
if(FindBitmapsProgressiveTol(MapOre,MapOre2,0,0,0,65,5,587,41,705,118))then
Result:=GetColor(x+1,y+1);
Freebitmap(MapOre);
Freebitmap(MapOre2);
end;

procedure CouldNotFindColors;
begin
WriteLn('ERROR, script could not find colors, please run the script again'
+' or set your own colors.');
TerminateScript;
end;

procedure FindBottomColorsIfNeeded;
var c:integer;
begin
if(UnderGround)and((MapPickColor=0)or(MapOreColor=0)or((orecolor1=0)or(orecolor2=0)or(orecolor3=0)))then
begin
writeln('Finding bottom colors please wait...');
if(MapPickColor=0)then
begin
while(MapPickColor=0)do
begin
c:=c+1;
if(MapPickColor=0)then
MapPickColor:=GetSymbolColor('mining spot');
if(c>20)then
CouldNotFindColors;
wait(500+random(100));
end;
if(FindMMColor(MapPickColor))then
begin
Status('To iron')
Wait(200)
Mouse(x,y,5,5,True)
Flag;
wait(1500+random(500));
end;
end;
if(orecolor1=0)or(orecolor2=0)or(orecolor3=0)then
begin
if(((iron)and(town=3))or(not(town=3)))then
FindOreColors(2371664,5,25);
if((not(iron))and(town=3))then
FindOreColors(2900546,5,13);
end;
if(MapOreColor=0)then
MapOreColor:=FindMapOreColor;
if((MapPickColor=0)or(MapOreColor=0)or((orecolor1=0)or(orecolor2=0)or(orecolor3=0)))then
CouldNotFindColors;
writeln('MapPickColor:'+inttostr(MapPickColor)+' MapOreColor:'+inttostr(MapOreColor));
FindRockDirection;
end;
end;

procedure FindTopColorsIfNeeded;
var c:integer;
begin
if(not(Underground))and((BankColor=0)or(moparsroadcolor=0))then
begin
writeln('Finding top colors please wait...');
while(BankColor=0)or(moparsroadcolor=0)do
begin
c:=c+1;
if(BankColor=0)then
BankColor:=GetSymbolColor('bank');
SetRoadColorifneeded;
if(c>20)then
CouldNotFindColors;
wait(random(50)+500);
end;
writeln('BankColor:'+inttostr(BankColor)+' Roadcolor:'+inttostr(moparsroadcolor));
end;
end;

//========================Map Walking procedures==============================\\

procedure ToCenter;
begin
if(FindColorSpiral(x,y,MapPickColor,570,63,725,160))then
begin
Mouse(x-20,y-20,40,40,true);
Flag;
Wait(1000+Random(100));
end else
begin
RoadWalk(MapOreColor,'S');
if(FindColorSpiral(x,y,MapPickColor,570,63,725,160))then
begin
Mouse(x-20,y-20,40,40,true);
Flag;
Wait(1000+Random(100));
end;
end;
end;

procedure ToBankers;
var
c,ax,ay:integer;
begin
while c<30 do
begin
c:=c+5;
if(FindMMColor(BankColor))then
begin
if(FindColorSpiralTolerance(ax,ay,195836,x-c,y-c,x+c,y+c,10))then
begin
x:=ax;
y:=ay;
MouseFindFlag(x,y-5,0,-2);
FlagAtColor(BankColor);
Wait(1000+Random(100));
Break;
end;
end;
end;
end;

procedure banktomine;
begin
case town of
1:fallybanktomine(MapPickColor);
2:varrockbanktomine(MapPickColor);
3:ardybanktomine(MapPickColor);
end;
UnderGround:=true;
FindBottomColorsIfNeeded;
if((findMMcolor(MapPickColor))and(town=1))then
roadrunnermouse(x-31,y);
end;

procedure minetobank;
begin
case town of
1:fallyminetobank(BankColor);
2:varrockminetobank(BankColor);
3:ardyminetobank(BankColor);
end;
if(town=1)or(town=2)then
ToBankers;
end;


//==========================Random Event procedures===========================\\


procedure TerminateIfLost;
begin
if(LoggedIn)then
begin
if(not(FindMMColor(BankColor)))and(not(FindMMColor(MapOreColor)))and
(not(FindMMColor(MapPickColor)))then
begin
IAmLostCount:=IAmLostCount+1;
if(IAmLostCount>10)then
begin
WriteLn('Lost!!!');
TerminateScript;
end;
end else
IAmLostCount:=0;
end;
end;

procedure FindRandoms;
begin
FindNormalRandoms;
AntiBan;
if(FindFight)then
begin
RunAwayDirection(RunDirection);
Wait(5000+random(1000));
RunBack;
end;
FindDoctor;
FindBox;
if(UnderGround)then
begin
if(not(FindPick))then
NoPick:=true;
if(FindColorSpiral(x,y,OreColor,210,130,300,220))then
begin
if(Look4Gas)then
begin
if(FindGas(x,y))then
ToCenter;
end;
end;
end;
end;

//=========================Main Screen procedures=============================\\

procedure ClickAllItemsColorWaitfixed(option:string;color,waitnum:integer);//based off PPLSUQBAWLZ's InventoryCount
var
i,e:integer;
begin
e:=0; i:=0;
//GameTab(4);
while(i < 6) do
begin
if (i = 5) and (e < 8) then
begin
i:= 0; e:= e + 1;
end;
if(FindColor(x,y,color,(570+39*i),(214+35*e),(609+39*i),(249+35*e)))then
begin
if(not(option=''))then
begin
Mouse(x,y,r,r,false);
ChooseOption(option);
end
else
Mouse(x,y,r,r,true);
wait(waitnum);
end;
i:= i + 1;
end;
end;

procedure Bank;
begin
if(not(UnderGround))then
begin
FindBox;
TotalOres:=TotalOres+(CountItemBmpTol(Ore,50));
if(NoPick=true)and(EquipPick=true)then
begin
GameTab(5);
Mouse(593,303,r,r,true);
Wait(Random(50)+1000);
GameTab(4);
end;
OpenBank;
if(BankScreen)then
begin
if(NoPick=true)then
begin
ClickAllItemsColorWaitfixed('All',65536,1000+Random(100));
Withdraw(1,1,1);
end else
begin
if(EquipPick=false)then
Deposit(2,28,2);
if(EquipPick=true)then
ClickAllItemsColorWaitfixed('All',65536,1000+Random(100));
end;
CloseWindow;
if(NoPick=true)and(EquipPick=true)then
begin
FindPickHeadColor;
ClickItemColor(hc1,true);
end;
Banks:=Banks+1;
ProgressReport;
NoPick:=false
end;
end;
end;

procedure Mine;
var
SysTime:integer;
begin
SetRandomOreColor;
if(FindObj('Mine',OreColor,5))then
begin
if(not(FindGas(x,y)))then
begin
Mouse(x,y,r,r,true);
if(FlagPresent)then
begin
Flag;
Wait(500+random(500));
end;
MarkTime(SysTime);
repeat
if(not(FindColorSpiral(x,y,OreColor,210,130,300,220)))then
Break;
FindRandoms;
Wait(500+Random(500));
until(not(GetColor(109,430)=0)and(not(GetColor(195,426)=0)))or
(TimeFromMark(SysTime)>=MaxWait*1000)
end;
end
else
begin
wait(minewaittime+random(50));
end;
end;
//======================================Main Line=============================\\

begin
GetClientDimensions(x,y);
if(not((x=766)and(y=504)))then
begin
if(not(FindWindowBySize(766,504)))then
begin
writeln('cannot find client, please select client manually');
end;
end;
SetupSSI;
Setup;
PrepClient;
SetTownifneeded;
FindTopColorsIfNeeded;
if(FindPickHeadColor)then
begin
repeat
FindRandoms;
SetRun(true);
banktomine;
if(Underground)then
begin
MarkTime(Mark);
repeat
FindRandoms;
Mine;
until(InventoryFull)or(NoPick=true)or(TimeFromMark(Mark)>1800000)
end;
minetobank;
UnderGround:=false;
TerminateIfLost;
Bank;
until(false)
end;
end.

 

[megaandrew69]

can u post it in code pls?

 

[Town]

This script is extremely outdated. Don't post scripts that are not yours without permission, especially when you don't know what you are talking about.

 

[echo2004]

so.. does this script still work?

 

[delayedbird]

Yes it does but it will probably get your banned (probably)

 

[the scar noob]

PLZ PEOPLE READ THIS!!
Don't use this script, it'll get you banned!! It's extremely outdated!!

 

[Gofez0r]

Sheez dont get all dramatic.. Yes, old and gets u banned. All clear?

 

[pro_spider13]

hahaha i souldent have used it then.. but oh well

 

[Alex pwnz]

the script doesnt work for me
error when compiling

 

[Temptation S]

I never used it and im happy lol

 

[Alex pwnz]

really outdated, plus it doesnt work

 

[RunescapeTrainer]

it dont work

 

[Pimpinballa]

Erroe compilling you fool. LMFAO learn how to make scripts

 

[Cry M O R E]

omg nice ima use this a lot!

 

[Vera]

Jeezus, So many posts about "Ooh this will get you banned" and "It doesn't work" Pointless posts.

 

[basse]

when im running the script it says

Include file C:\Programfiler\SCAR 3.15\includes\SSI2.txt does not exist.
Include file C:\Programfiler\SCAR 3.15\includes\moparsroadrunner.txt does not exist.
Include file C:\Programfiler\SCAR 3.15\includes\BoxBreaker.txt does not exist.
Failed when compiling

how fix it??