SCAR Code:
{ This Is Stamp's AutoMiner )
( This is my first Script! )
( The Only Setup is... )
( Players!! NEW!!!! }
// By Stampede10343 \\
program StampMinerV2;
{.include SRL/SRL.scar}
{.include SRL/SRL/skill/Mining.scar}
/////////////////////////////////////
///////////////Setup/////////////////
/////////////////////////////////////
const
StartPlayer = 0;//Player Number To Start with in array(Should be fine)
RockTol = 11;// Rock Tolerance
TotalLoads = 5;// Loads You Want Dropped
WaitTime = 8000;//Mseconds + Random 1000 until click again
AntiBanness = 22;// How Much AntiBan You Want, 15-25ish Lower is More
RunDir = 'N';// Run if in fight where?
//^^(Copper, Tin, Addy, Mith, iron, coal, Gold, Clay, Silver)^^
// Dont Touch Below!!
Const
CopperColor = 4418196;
TinColor = 7829375;
ClayColor = 5608886;
IronColor = 2569045;
SilverColor = 12434885;
CoalColor = 2834753;
GoldColor = 1881051;
MithrilColor = 7359564;
AdamantColor = 6322272;
var
o, Loads, Ore1, XX, YY : Integer;
RockColor1, Waiting : Integer;
procedure DeclarePlayers;
begin
HowManyPlayers := 2;//MAKE SURE THIS ONE IS CORRECT!
CurrentPlayer := StartPlayer;
NumberOfPlayers(HowManyPlayers);
Players[0].Name :='taco10343';
Players[0].Pass :='wsfghyu';
Players[0].Active := True;
Players[0].Nick :='rio';//Set This for talking randoms, middle of name
Players[0].String1 := 'Copper';
NickNameBMP:= CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
end;
Procedure AntiBann;
Begin
Case Random(AntiBanness) of
0 : FTWait(5);
2 : AlmostLogOut;
4 : GameTab(1 + random(5));
6 : HoverSkill('Smithing', false);
8 : RandomRClick;
10: begin SleepAndMoveMouse(15000)end
end;
end;
procedure AntiRandoms;
Begin
FindNormalRandoms;
FindTalk;
MakeCompass('N');
end;
procedure UseAutoColors;
Begin
case LowerCase(Players[CurrentPlayer].String1) of
'copper' : RockColor1 := CopperColor;
'tin' : RockColor1 := TinColor;
'clay' : RockColor1 := ClayColor;
'iron' : RockColor1 := IronColor;
'silver' : RockColor1 := SilverColor;
'coal' : RockColor1 := CoalColor;
'gold' : RockColor1 := GoldColor;
'mithril': RockColor1 := MithrilColor;
'adamant': RockColor1 := AdamantColor;
end;
end;
Procedure ChopDemRockz;
Begin
if not (LoggedIn)then exit;
MakeCompass('N');
AntiRandoms;
FindPick;
AntiBann;
If FindGas(xx, yy - 10) Then
Begin
RunAwayDirection(RunDir);
wait(10000 - random(1000));
RunBack;
FindPick;
repeat
if(FindColorSpiralTolerance(xx, yy, RockColor1,0, 0, 700, 700, RockTol))then
begin
MarkTime(Waiting);
MMouse(xx, yy, 8, 8);
wait(100+random(200));
getmousepos(xx, yy);
end
if(IsUpText('ine'))then
begin
Mouse(xx, yy, 0, 0, true);
end
until(Inchat('anage')) or (TimeFromMark(Waiting)>= WaitTime);
end;
end;
procedure DropOres;
Begin
if(not(InvFull))then Exit;
if(InvFull)then
Begin
FindPick;
AntiRandoms;
x := 0;
y := 0;
AntiBann;
GameTab(4);
repeat
if(FindDTM(Ore1, x, y , MIX1, MIY1, MIX2, MIY2))then
begin
MMouse(x, y, 2, 2);
wait(100 + random(100));
Mouse(x + 2, y, 2, 2, false);
wait(120 + random(100));
ChooseOption(x, y, 'rop');
wait(655 + random(100));
o := o + 1;
end;
until not(FindDTM(Ore1, x, y, MIX1, MIY1, MIX2, MIY2));
Loads := Loads + 1;
Players[CurrentPlayer].Banked := Players[CurrentPlayer].Banked + 1;
end;
end;
Procedure Proggy;
Begin
ClearDebug;
Wait(300);
WriteLn('<==================================> ');
wait(300);
WriteLn(' Mined '+inttostr(o)+' Ores ');
wait(300);
WriteLn(' Mined '+inttostr(Loads)+' Loads ');
wait(300);
WriteLn(' By Stampede10343! ');
wait(300);
Writeln('Worked For: '+ ScriptTime2(2) );
WriteLn('<==================================> ');
wait(100+random(100));
end;
begin
SetUpSRL;
DeclarePlayers;
UseAutoColors;
Loads := 0
o := 0
MouseSpeed := 3;
ActivateClient;
SetupSRLMining;
Ore1 := DTMFromString('78DA634C66626078CE800618914820DD08547' +
'38F809A5AA09A37B8D580712150CD274C352CC86A72816A6EE236' +
'87198801CA5906DE');
repeat;
if(not(LoggedIn))then
begin
LoginPlayer;
MakeCompass('N');
HighestAngle;
end;
repeat;
FindPick;
ChopDemRockz;
if(not(LoggedIn))then
begin
NextPlayer(false);
end;
until(InvFull);
DropOres;
Proggy;
until(false);
end.