Guild Miner 4.2 - Will You Guys Check It Out?

Let me know if it still works. Thanks






//Hosted by Runescape 101
//Download more free scar scripts from www.rs101.info
{=========================================================================]
[ Hoboman45 GuildMiner ]
[ version: 4.2 ]
[=========================================================================]
|update.3446
|will not get lost!!!
|auto RANDOM is now put in
|Update.3445
|Join The GUILD PLS
|joining the guild will get you many better macros...
|
| Description: |
| A macro that mines a full load of coal in the miner's guild, |
| and if chosen, mithril, then banks it in the east Falador bank. | |
| Instructions: |
| 1.Set the Runescape brightness to V-bright, and your computer's |
| resolution to 32bit resolution. |
| 2.Need SCAR version 2.0.3. |
| 3.Start script in the Falador eastern 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.Click and drag the crosshair over the Runescape client. |
Then press the green arrow. |
| 7.You may set your own colors lines 35-45 (optional). |
[=========================================================================]
[ *Be sure to open SSI2.txt for more options. ]
[ *For general SCAR help go to: ]
| http://www.kaitnieks.com/files/SCARGUIDE/SCARGUIDE.htm ]
[ Thanks to, RS Cheating community ]
[ *PLEASE POST ANY BUGS/HELP IN THE FORUMS OR E-MAIL ]
[ [email protected] ]
[ If you like pls join my clan at: ]
[ http://www.www.guilduniverse.com/guardians/default.aspx#news ]
[=========================================================================}

program HobomanGuildminer;

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

const
//=//===============Colors(Leave as 0 to let script find)==============\=\\
RockColor1= 0;//Colors of Coal rocks in main screen
RockColor2= 0;
RockColor3= 0;
MithColor1= 0;//Colors of Mith rocks in main screen
MithColor2= 0;
MithColor3= 0;
MMLadderColor= 0;//Color of the ladder in the minimap.(SS:2873)
MMPickColor= 0;//Pick symbol color (SS:207695)
MMOreColor= 0;//Mini map ore color (SS:4010803)
MMStatueColor= 0;//Mini map statue color (SS:8355977)
MMBankColor= 0;//Bank symbol color (SS:3060683)
//=\\=================================================================//=\\
//=\\ Under the varibles you may disable the forms and setup options. //=\\
//=\\=================================================================//=\\

var
MapPickColor,MapOreColor,StatueColor,BankColor,LadderColor,Report,Report2,
TotalOres,Banks,Mark,IAmLostCount,OreCol1,OreCol2,OreCol3,MaxWait:integer;
NoPick,NoRocks,StartScript,Look4Gas,MineMith,EquipPick,UseForm:boolean;
frmDesign,frmMore:TForm;
labPassword,labUsername,labMaxWait,labMaxWait2:TLabel;
edtUsername,edtPassword,edtMaxWait:TEdit;
bMoreOptions,bStart,bSave,bDonate:TButton;
cbLook4Gas,cbLogsOut,cbChats,cbEquipPick,cbMineMith,cbRotates,
cbScarScape:TCheckBox;

procedure Setup;
begin
//=\\============================Setup================================//=\\
UseForm:= true;//If you wish to use the form.
Username:= Username;//Username.
Password:= Password;//Password.
ScarScape:= ScarScape;//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.
MineMith:= false;//If you want to mine mith, set mith colors above.
EquipPick:= false;//If you can/want to equip your pick.
//=\\=================================================================//=\\
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(50*TotalOres)+'xp.');
WriteLn('Currently Averaging about '+IntToStr(3600/avtime*(TotalOres/banks))+
' ores and '+floattostr(3600/avtime*(50*(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.');
if(foresters>0)then WriteLn(' Solved '+IntToStr(foresters)+' forester.');
if(frogs>0)then WriteLn(' Solved '+IntToStr(foresters)+' frog.');
if(doctors>0)then WriteLn(' Solved '+IntToStr(doctors)+' doctor.');
if(certers>0)then Writeln(' Solved '+IntToStr(certers)+' certer.');
WriteLn('<================================================>');
Report2:=GetSystemTime;
end;
end;
end;

//===========================Color Finding procedures=========================\\

procedure SetColors;
begin
StatueColor:=MMStatueColor;
BankColor:=MMBankColor;
LadderColor:=MMLadderColor;
MapOreColor:=MMOreColor;
MapPickColor:=MMPickColor;
OreColor1:=RockColor1;
OreColor2:=RockColor2;
OreColor3:=RockColor3;
end;

function FindStatueColor:integer;
var
c,a,b:integer;
begin
while c<65 do
begin
c:=c+5;
if(FindColorSpiralTolerance(a,b,256,570,50,725,162,1))then
begin
if(FindColorSpiralTolerance(x,y,9868961,a,b-5,a+20,b+5,c))then
begin
Result:=GetColor(x,y);
Break;
end;
end;
end;
end;

function FindLadderColor:integer;
var
c,a,Color,TrueCount:integer;
begin
while c<50 do
begin
c:=c+5;
if(FindColorSpiralTolerance(x,y,256,570,50,725,162,1))then
begin
if(TrueCount=0)or(TrueCount=1)then a:=1;
if(TrueCount=2)or(TrueCount=3)then a:=-1;
repeat
if(TrueCount=0)or(TrueCount=2)then x:=x+a;
if(TrueCount=1)or(TrueCount=3)then y:=y+a;
if(TrueCount=0)and((SimilarColors(865635,GetColor(x,y),c)=true)or
(SimilarColors(6475,GetColor(x,y),c)=true))then
begin
TrueCount:=TrueCount+1;
Color:=GetColor(x,y);
Break;
end;
if(TrueCount>0)and(GetColor(x,y)=Color)then
begin
TrueCount:=TrueCount+1;
Break;
end;
until(y<5)or(x<570)or(x>725)or(y>160)
end;
if(TrueCount>=3)then
begin
Result:=Color;
Break;
end;
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((MapOreColor=0)or(MapPickColor=0))then
begin
WriteLn('Finding bottom colors please Wait...');
MouseFindFlag(700,90,0,1);
Flag;
while(MapOreColor=0)or(MapPickColor=0)do
begin
c:=c+1;
if(MapOreColor=0)then
MapOreColor:=FindMapOreColor;;
if(MapPickColor=0)then
MapPickColor:=GetSymbolColor('mining spot');;
if(c>20)then
CouldNotFindColors;
Wait(500+Random(100));
end;
c:=0;
repeat
if(FindMMColor(MapPickColor))then
begin
Mouse(x-20,y-20,40,40,true);
Flag;
Wait(1500+Random(500));
if(FindOreColors(2702910,5,15))then
Break;
end;
if(c>20)then
CouldNotFindColors;
until(false)
WriteLn('MapPickColor:'+IntToStr(MapPickColor)+
' MapOreColor:'+IntToStr(MapOreColor));
end;
end;

procedure FindTopColorsIfNeeded;
var
c:integer;
begin
if((StatueColor=0)or(BankColor=0)or(LadderColor=0))then
begin
WriteLn('Finding top colors please Wait...');
while(StatueColor=0)or(BankColor=0)or(LadderColor=0)do
begin
c:=c+1;
if(StatueColor=0)then
StatueColor:=FindStatueColor;
if(BankColor=0)then
BankColor:=GetSymbolColor('bank');
if(LadderColor=0)then
LadderColor:=FindLadderColor;
if(c>20)then
CouldNotFindColors;
Wait(Random(50)+500);
end;
WriteLn('StatueColor:'+IntToStr(StatueColor)+
' BankColor:'+IntToStr(BankColor)+
' LadderColor:'+IntToStr(LadderColor));
end;
end;

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

function Underground:boolean;
begin
if((FindColoredAreaTolerance(x,y,256,570,5,725,162,50,1)))then
begin
Result:=true;
end;
end;

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 ClimbLadder;
var
c,cc:integer;
Under:boolean;
begin
for c:=1 to 10 do
begin
if(not(Underground))then
FindObj('Climb',0,1);
if(Underground)then
FindObj('Climb',7212,21);
if(Option('Climb'))then
begin
Mouse(x,y,r,r,false);
if(UnderGround)then
Under:=true;
if(ChooseOption('Climb'))then
begin
repeat
cc:=cc+1;
if(under)and(not(UnderGround))then
Break;
if(under=false)and(UnderGround)then
Break;
Wait(Random(50)+1000);
until(cc>50)
Break;
end;
end;
end;
end;

procedure BankToGuild;
begin
if(not(UnderGround))then
begin
MouseFindFlag(690,110,1,-1);
Flag;
FindTopColorsIfNeeded;
FindMMColor(StatueColor);
Mouse(x-5,y+10,r,r,true);
Flag;
Wait(500+Random(500));
ClimbLadder;
end;
end;

procedure GuildToBank;
var
c:integer;
begin
if(UnderGround)then
begin
ToCenter;
repeat
c:=c+1
RoadWalk(MapOreColor,'W');
until(FindMMColor(LadderColor))or(c>50)
ClickMMColor(LadderColor);
Flag;
Wait(500+Random(500));
ClimbLadder;
MouseFindFlag(670,45,1,-1);
Wait(2000+Random(1000));
Flag;
FindTopColorsIfNeeded;
ToBankers(BankColor,0,-5);
end;
end;

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

procedure RunAway;
begin
if(UnderGround)then
begin
RoadWalk(MapOreColor,'W');
ClickMMColor(LadderColor);
Flag;
RoadWalk(MapOreColor,'E');
end else
begin
SetRun(true);
Mouse(648,35,5,5,true);
Flag;
Wait(5000+Random(2000));
Mouse(648,135,5,5,true);
Flag;
end;
end;

procedure TerminateIfLost;
begin
if(LoggedIn)then
begin
if(not(FindMMColor(BankColor)))and(not(FindMMColor(MapOreColor)))and
(not(FindMMColor(MapPickColor)))and(not(FindMMColor(StatueColor)))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
RunAway;
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 Bank;
begin
if(not(Underground))and(FindColor(x,y,BankColor,608,43,688,123))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
ClickAllItemsColorWait('All',65536,1000+Random(100));
Withdraw(1,1,1);
end else
begin
if(EquipPick=false)then
Deposit(2,28,2);
if(EquipPick=true)then
ClickAllItemsColorWait('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 SetMithColors;
begin
if(MineMith=true)then
begin
if(FindMSColor(MithColor1))or(FindMSColor(MithColor2))or
(FindMSColor(MithColor3))then
begin
OreCol1:=OreColor1;
OreCol2:=OreColor2;
OreCol3:=OreColor3;
OreColor1:=MithColor1;
OreColor2:=MithColor2;
OreColor3:=MithColor1;
end;
end;
end;

procedure UnsetMithColors;
begin
if(MineMith=true)and(OreCol1>0)then
begin
OreColor1:=OreCol1;
OreColor2:=OreCol2;
OreColor3:=OreCol3;
end;
end;

procedure Mine;
var
SysTime:integer;
begin
SetMithColors;
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
NoRocks:=true;
UnsetMithColors;
end;

//===========================================Form=============================\\

procedure ShowFormModal;
begin
frmDesign.ShowModal;
end;

procedure ShowMoreModal;
begin
frmMore.ShowModal;
end;

procedure SafeShowForm;
var
v: TVariantArray;
begin
setarraylength(V, 0);
ThreadSafeCall('InitForm', v);
setarraylength(V, 0);
ThreadSafeCall('ShowFormModal', v);
end;

procedure SafeMore;
var
v: TVariantArray;
begin
setarraylength(V, 0);
ThreadSafeCall('InitMore', v);
end;

procedure Start(sender: TObject);
begin
frmDesign.Caption:= frmDesign.Caption + '.';
frmDesign.ModalResult:= mrOk;
StartScript:=true;
end;

procedure More(sender: TObject);
var
v: TVariantArray;
begin
SafeMore;
setarraylength(V, 0);
ThreadSafeCall('ShowMoreModal', v);
end;

procedure SaveOptions;
begin
Look4Gas:=cbLook4Gas.State;
LogsOut:=cbLogsOut.State;
Chats:=cbChats.State;
MaxWait:=strtoint(edtMaxWait.Text);
MineMith:=cbMineMith.State;
EquipPick:=cbEquipPick.State;
ScarScape:=cbScarScape.State;
Username:= edtUsername.Text;
Password:= edtPassword.Text;
if(Username='')or(Password='')then
begin
Username:='No Username';
Password:='No Password';
end;
end;

procedure Save(sender: TObject);
begin
frmMore.Caption:= frmMore.Caption + '.';
frmMore.ModalResult:= mrOk;
SaveOptions;
end;


procedure Donate(sender: TObject);
begin
OpenWebPage('http://www.guilduniverse.com/guardians/default.aspx#news');
end;

procedure InitForm;
begin
frmDesign := CreateForm;
frmDesign.Left := 359;
frmDesign.Top := 225;
frmDesign.Width := 258;
frmDesign.Height := 169;
frmDesign.Caption := 'HoBoMaN45 GuIlDMiNeR';
frmDesign.Color := clWhite;
frmDesign.Font.Color := clWindowText;
frmDesign.Font.Height := -11;
frmDesign.Font.Name := 'Comic Sans MS';
frmDesign.Font.Style := [];
frmDesign.Visible := False;
frmDesign.PixelsPerInch := 96;
labPassword := TLabel.Create(frmDesign);
labPassword.Parent := frmDesign;
labPassword.Left := 96;
labPassword.Top := 44;
labPassword.Width := 46;
labPassword.Height := 13;
labPassword.Caption := 'PaSsWoRd';
labUsername := TLabel.Create(frmDesign);
labUsername.Parent := frmDesign;
labUsername.Left := 96;
labUsername.Top := 6;
labUsername.Width := 48;
labUsername.Height := 13;
labUsername.Caption := 'UsErNaMe';
edtUsername := TEdit.Create(frmDesign);
edtUsername.Parent := frmDesign;
edtUsername.Left := 64;
edtUsername.Top := 20;
edtUsername.Width := 121;
edtUsername.Height := 21;
edtUsername.TabOrder := 1;
edtUsername.Text := Username;
edtPassword := TEdit.Create(frmDesign);
edtPassword.Parent := frmDesign;
edtPassword.Left := 64;
edtPassword.Top := 58;
edtPassword.Width := 121;
edtPassword.Height := 21;
edtPassword.PasswordChar := '*';
edtPassword.Text := Password;
bMoreOptions := TButton.Create(frmDesign);
bMoreOptions.Parent := frmDesign;
bMoreOptions.Left := 178;
bMoreOptions.Top := 116;
bMoreOptions.Width := 70;
bMoreOptions.Height := 17;
bMoreOptions.Caption := 'MoRe OpTiOnS';
bMoreOptions.OnClick:= @More;
cbScarScape := TCheckBox.Create(frmMore);
cbScarScape.Parent := frmDesign;
cbScarScape.Left := 88;
cbScarScape.Top := 116;
cbScarScape.Width := 80;
cbScarScape.Height := 17;
cbScarScape.Hint :=
'Check if you are using ScarScape.';
cbScarScape.ShowHint := True;
cbScarScape.Caption := 'ScarScape?';
if(ScarScape)then
begin
cbScarScape.Checked := True;
cbScarScape.State := cbChecked;
end;
bStart := TButton.Create(frmDesign);
bStart.Parent := frmDesign;
bStart.Left := 87;
bStart.Top := 86;
bStart.Width := 75;
bStart.Height := 25;
bStart.Caption := 'StArT';
bStart.TabOrder := 5;
bStart.OnClick:= @Start;
bDonate := TButton.Create(frmDesign);
bDonate.Parent := frmDesign;
bDonate.Left := 1;
bDonate.Top := 109;
bDonate.Width := 75;
bDonate.Height := 25;
bDonate.Caption := 'JoIn ClaN';
bDonate.TabOrder := 13;
bDonate.OnClick:= @Donate;
end;

procedure InitMore;
begin
frmMore := CreateForm;
frmMore.Left := 288;
frmMore.Top := 161;
frmMore.Width := 294;
frmMore.Height := 148;
frmMore.Caption := 'More Options';
frmMore.Color := clWhite;
frmMore.Font.Color := clWindowText;
frmMore.Font.Height := -11;
frmMore.Font.Name := 'MS Sans Serif';
frmMore.Font.Style := [];
frmMore.Visible := False;
frmMore.PixelsPerInch := 96;
labMaxWait := TLabel.Create(frmMore);
labMaxWait.Parent := frmMore;
labMaxWait.Left := 5;
labMaxWait.Top := 7;
labMaxWait.Width := 196;
labMaxWait.Height := 13;
labMaxWait.Caption := 'Maximum time to wait while mining a rock:';
labMaxWait2 := TLabel.Create(frmMore);
labMaxWait2.Parent := frmMore;
labMaxWait2.Left := 243;
labMaxWait2.Top := 10;
labMaxWait2.Width := 40;
labMaxWait2.Height := 13;
labMaxWait2.Caption := 'seconds';
cbLook4Gas := TCheckBox.Create(frmMore);
cbLook4Gas.Parent := frmMore;
cbLook4Gas.Left := 5;
cbLook4Gas.Top := 56;
cbLook4Gas.Width := 86;
cbLook4Gas.Height := 13;
cbLook4Gas.Hint :=
'Uncheck if you have trouble with the script stopping for gas too' +
' often.';
cbLook4Gas.Caption := 'Look for gas?';
cbLook4Gas.ParentShowHint := False;
cbLook4Gas.ShowHint := True;
cbLook4Gas.TabOrder := 8;
if(Look4Gas)then
begin
cbLook4Gas.Checked := True;
cbLook4Gas.State := cbChecked;
end;
edtMaxWait := TEdit.Create(frmMore);
edtMaxWait.Parent := frmMore;
edtMaxWait.Left := 204;
edtMaxWait.Top := 5;
edtMaxWait.Width := 38;
edtMaxWait.Height := 21;
edtMaxWait.MaxLength := 3;
edtMaxWait.TabOrder := 9;
edtMaxWait.Text := inttostr(MaxWait);
cbLogsOut := TCheckBox.Create(frmMore);
cbLogsOut.Parent := frmMore;
cbLogsOut.Left := 5;
cbLogsOut.Top := 22;
cbLogsOut.Width := 66;
cbLogsOut.Height := 17;
cbLogsOut.Hint := 'If you want to log out about every 3 hours for anti-ban.';
cbLogsOut.Caption := 'Logs out?';
cbLogsOut.ParentShowHint := False;
cbLogsOut.ShowHint := True;
cbLogsOut.TabOrder := 10;
if(LogsOut)then
begin
cbLogsOut.Checked := True;
cbLogsOut.State := cbChecked;
end;
cbChats := TCheckBox.Create(frmMore);
cbChats.Parent := frmMore;
cbChats.Left := 5;
cbChats.Top := 38;
cbChats.Width := 54;
cbChats.Height := 17;
cbChats.Hint :=
'If you want to chat random prashes every so often for anti-ban.';
cbChats.Caption := 'Chats?';
cbChats.ParentShowHint := False;
cbChats.ShowHint := True;
cbChats.TabOrder := 11;
if(Chats)then
begin
cbChats.Checked := True;
cbChats.State := cbChecked;
end;
cbRotates := TCheckBox.Create(frmMore);
cbRotates.Parent := frmMore;
cbRotates.Left := 78;
cbRotates.Top := 22;
cbRotates.Width := 97;
cbRotates.Height := 17;
cbRotates.Hint :=
'If you want to randomly rotate the camera every so often for ant' +
'i-ban.';
cbRotates.ShowHint := True;
cbRotates.Caption := 'Rotates?';
cbRotates.TabOrder := 15;
if(Rotates)then
begin
cbRotates.Checked := True;
cbRotates.State := cbChecked;
end;
cbMineMith := TCheckBox.Create(frmMore);
cbMineMith.Parent := frmMore;
cbMineMith.Left := 5;
cbMineMith.Top := 70;
cbMineMith.Width := 202;
cbMineMith.Height := 17;
cbMineMith.Hint :=
'If minning mith along with coal (need to set mith colors in script).';
cbMineMith.HelpContext := -1;
cbMineMith.Caption := 'Mine mith? (must set colors lines 38-40)';
cbMineMith.ParentShowHint := False;
cbMineMith.ShowHint := True;
cbMineMith.TabOrder := 13;
if(MineMith)then
begin
cbMineMith.Checked := True;
cbMineMith.State := cbChecked;
end;
cbEquipPick := TCheckBox.Create(frmMore);
cbEquipPick.Parent := frmMore;
cbEquipPick.Left := 5;
cbEquipPick.Top := 87;
cbEquipPick.Width := 97;
cbEquipPick.Height := 17;
cbEquipPick.Caption := 'Equip pick?';
cbEquipPick.Hint :='Check if you are able and want to equip your pick.';
cbEquipPick.ShowHint := True;
cbEquipPick.TabOrder := 14;
if(EquipPick)then
begin
cbEquipPick.Checked := True;
cbEquipPick.State := cbChecked;
end;
bSave := TButton.Create(frmMore);
bSave.Parent := frmMore;
bSave.Left := 227;
bSave.Top := 97;
bSave.Width := 57;
bSave.Height := 15;
bSave.Caption := 'Save';
bSave.TabOrder := 12;
bSave.OnClick:= @Save;
end;

procedure StartForm;
begin
if(UseForm)then
begin
SafeMore;
SafeShowForm;
if(StartScript=false)then
TerminateScript;
SaveOptions;
ActivateClient;
Wait(1000+random(500));
end;
end;

//======================================Main Line=============================\\

begin
SetupSSI;
Setup;
StartForm;
SetColors;
PrepClient;
if(FindPickHeadColor)then
begin
repeat
FindRandoms;
SetRun(true);
BankToGuild;
if(Underground)then
begin
FindBottomColorsIfNeeded;
if(not(FindMMColor(LadderColor)))then
RoadWalk(MapOreColor,'E');
MarkTime(Mark);
repeat
FindRandoms;
Mine;
if(NoRocks=true)then
begin
ToCenter;
NoRocks:=false;
end;
until(InventoryFull)or(NoPick=true)or(TimeFromMark(Mark)>1800000)
end;
SetRun(false);
GuildToBank;
TerminateIfLost;
Bank;
until(false)
end;
end.

 

Or you could paste it into scar and run it yourself.