Iron Miner Banker

{==================================================]
[ 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.

 

can u post it in code pls?

 

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.

 

so.. does this script still work?

 

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

 

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

 

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

 

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

 

the script doesnt work for me
error when compiling

 

I never used it and im happy lol

 

really outdated, plus it doesnt work

 

it dont work

 

Erroe compilling you fool. LMFAO learn how to make scripts

 

omg nice ima use this a lot!

 

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

 

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??