stampede10343
04-25-2007, 08:43 PM
Stamp's PowerMiner
this is my first script... obviously! but anyways this is V2.1 but i'll probably update it a few times.
So far it includes:
AUTO COLOR(For u lazy noobs,including me...)
More Extensive AntiBan!
Uses FindColorSpiral(Need Suggestions!)
Inlcuded DTM's
AntiRandoms
MULTIPLAYER!!
Soon To Come:
Setup Form(Maybe)
And any Suggestions!!!!
I need Suggestions please!
Comments appreciated
Here's The New!!! Script(Still Avadible attached)!:
{ 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 = 8;// Rock Tolerance
TotalLoads = 5;// Loads You Want Dropped
WaitTime = 5300;//Mseconds + Random 1000 until click again
AntiBanness = 20;// How Much AntiBan You Want, 15-25ish Lower is More
RunDir = 'N';// Run if in fight where?
RockType = 'Copper';// Type of rock for autocolors
//^^(Copper, Tin, Addy, Mith, iron, coal, Gold, Clay, Silver)^^
// Dont Touch Below!!
Const
CopperColor = 4022406;
TinColor = 7829375;
ClayColor = 4553880;
IronColor = 2569045;
SilverColor = 12434885;
CoalColor = 2834753;
GoldColor = 1881051;
MithrilColor = 7359564;
AdamantColor = 6322272;
var
o, Loads, Ore1, XX, YY : Integer;
RockColor1, RockColor2, RockColor3: Integer;
procedure DeclarePlayers;
begin
HowManyPlayers := 2;//MAKE SURE THIS ONE IS CORRECT!
CurrentPlayer := StartPlayer;
NumberOfPlayers(HowManyPlayers);
Players[0].Name :='warriorcc11';
Players[0].Pass :='srtbhjys';
Players[0].Active := True;
Players[0].Nick :='rio';//Set This for talking randoms, middle of name
Players[0].Banked := 0; // DONT TOUCH!!
Players[1].Name :='taco10343';
Players[1].Pass :='srtbhjys';
Players[1].Active := True;
Players[1].Nick :='aco';
Players[1].Banked := 0;
end;
Procedure AntiBann;
Begin
Case Random(AntiBanness) of
0 : FTWait(5);
2 : AlmostLogOut;
4 : GameTab(1 + random(4));
6 : HoverSkill('Smithing', false);
8 : RandomRClick;
10: SleepAndMoveMouse(1000);
end;
end;
procedure AntiRandoms;
Begin
FindNormalRandoms;
FindTalk;
MakeCompass('N');
end;
procedure UseAutoColors;
Begin
if(RockType= 'Copper')then
begin
RockColor1 := CopperColor
RockColor2 := CopperColor + 100
RockColor3 := CopperColor - 100
if(RockType= 'Tin')then
begin
RockColor1 := TinColor
RockColor2 := TinColor + 100
RockColor3 := TinColor - 100
if(RockType= 'Addy')then
begin
RockColor1 := AdamantColor
RockColor2 := AdamantColor + 100
RockColor3 := AdamantColor - 100
if(RockType= 'Iron')then
begin
RockColor1 := IronColor
RockColor2 := IronColor + 100
RockColor3 := IronColor - 100
if(RockType= 'Coal')then
begin
RockColor1 := CoalColor
RockColor2 := CoalColor + 100
RockColor3 := CoalColor - 100
if(RockType= 'Gold')then
begin
RockColor1 := GoldColor
RockColor2 := GoldColor + 100
RockColor3 := GoldColor - 100
if(RockType= 'Clay')then
begin
RockColor1 := ClayColor
RockColor2 := ClayColor + 100
RockColor3 := ClayColor - 100
if(RockType= 'Silver')then
begin
RockColor1 := SilverColor
RockColor2 := SilverColor + 100
RockColor3 := SilverColor - 100
end;
end;
end;
end;
end;
end;
end;
end;
end;
Procedure ChopDemRockz;
Begin
AntiRandoms;
AntiBann;
if(FindColorSpiralTolerance(xx, yy, RockColor1,0, 0, 700, 700,RockTol))or
(FindColorSpiralTolerance(xx, yy, RockColor2, 0, 0, 700, 700,RockTol))or
(FindColorSpiralTolerance(xx, yy, RockColor3, 0, 0, 700, 700,RockTol))then
begin
MMouse(xx, yy, 8, 8);
wait(200+random(300));
getmousepos(xx, yy);
if(IsUpText('ine'))then
begin
Mouse(xx, yy, 0, 0, true);
wait(WaitTime+random(1000));
If FindGas(xx, yy - 10) Then
Begin
RunAwayDirection(RunDir);
wait(10000 - random(1000));
RunBack;
end;
end;
end;
end;
procedure DropOres;
Begin
if(not(InvFull))then Exit;
if(InvFull)then
Begin
AntiRandoms;
x := 0;
y := 0;
AntiBann;
GameTab(4);
Ore1 := DTMFromString('78DA634C66626078CE800618914820DD085 47' +
'38F809A5AA09A37B8D580712150CD274C352CC86A72816A6E E236' +
'87198801CA5906DE');
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 := 7;
ActivateClient;
SetupSRLMining;
repeat;
if(not(LoggedIn))then
begin
LoginPlayer;
MakeCompass('N');
HighestAngle;
NickNameBMP:= CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
end;
Begin
repeat;
ChopDemRockz;
if(not(LoggedIn))then break;
until(InvFull);
DropOres;
Proggy;
if(LoggedIn)and
(Players[CurrentPlayer].Banked = 0)then
Begin
SetChat('off', 1);
repeat
Wait(1000);
AntiRandoms;
until(not(LoggedIn));
NextPlayer(true);
end;
end;
if(not(Loggedin)) then NextPlayer(false);
until(false);
end.
this is my first script... obviously! but anyways this is V2.1 but i'll probably update it a few times.
So far it includes:
AUTO COLOR(For u lazy noobs,including me...)
More Extensive AntiBan!
Uses FindColorSpiral(Need Suggestions!)
Inlcuded DTM's
AntiRandoms
MULTIPLAYER!!
Soon To Come:
Setup Form(Maybe)
And any Suggestions!!!!
I need Suggestions please!
Comments appreciated
Here's The New!!! Script(Still Avadible attached)!:
{ 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 = 8;// Rock Tolerance
TotalLoads = 5;// Loads You Want Dropped
WaitTime = 5300;//Mseconds + Random 1000 until click again
AntiBanness = 20;// How Much AntiBan You Want, 15-25ish Lower is More
RunDir = 'N';// Run if in fight where?
RockType = 'Copper';// Type of rock for autocolors
//^^(Copper, Tin, Addy, Mith, iron, coal, Gold, Clay, Silver)^^
// Dont Touch Below!!
Const
CopperColor = 4022406;
TinColor = 7829375;
ClayColor = 4553880;
IronColor = 2569045;
SilverColor = 12434885;
CoalColor = 2834753;
GoldColor = 1881051;
MithrilColor = 7359564;
AdamantColor = 6322272;
var
o, Loads, Ore1, XX, YY : Integer;
RockColor1, RockColor2, RockColor3: Integer;
procedure DeclarePlayers;
begin
HowManyPlayers := 2;//MAKE SURE THIS ONE IS CORRECT!
CurrentPlayer := StartPlayer;
NumberOfPlayers(HowManyPlayers);
Players[0].Name :='warriorcc11';
Players[0].Pass :='srtbhjys';
Players[0].Active := True;
Players[0].Nick :='rio';//Set This for talking randoms, middle of name
Players[0].Banked := 0; // DONT TOUCH!!
Players[1].Name :='taco10343';
Players[1].Pass :='srtbhjys';
Players[1].Active := True;
Players[1].Nick :='aco';
Players[1].Banked := 0;
end;
Procedure AntiBann;
Begin
Case Random(AntiBanness) of
0 : FTWait(5);
2 : AlmostLogOut;
4 : GameTab(1 + random(4));
6 : HoverSkill('Smithing', false);
8 : RandomRClick;
10: SleepAndMoveMouse(1000);
end;
end;
procedure AntiRandoms;
Begin
FindNormalRandoms;
FindTalk;
MakeCompass('N');
end;
procedure UseAutoColors;
Begin
if(RockType= 'Copper')then
begin
RockColor1 := CopperColor
RockColor2 := CopperColor + 100
RockColor3 := CopperColor - 100
if(RockType= 'Tin')then
begin
RockColor1 := TinColor
RockColor2 := TinColor + 100
RockColor3 := TinColor - 100
if(RockType= 'Addy')then
begin
RockColor1 := AdamantColor
RockColor2 := AdamantColor + 100
RockColor3 := AdamantColor - 100
if(RockType= 'Iron')then
begin
RockColor1 := IronColor
RockColor2 := IronColor + 100
RockColor3 := IronColor - 100
if(RockType= 'Coal')then
begin
RockColor1 := CoalColor
RockColor2 := CoalColor + 100
RockColor3 := CoalColor - 100
if(RockType= 'Gold')then
begin
RockColor1 := GoldColor
RockColor2 := GoldColor + 100
RockColor3 := GoldColor - 100
if(RockType= 'Clay')then
begin
RockColor1 := ClayColor
RockColor2 := ClayColor + 100
RockColor3 := ClayColor - 100
if(RockType= 'Silver')then
begin
RockColor1 := SilverColor
RockColor2 := SilverColor + 100
RockColor3 := SilverColor - 100
end;
end;
end;
end;
end;
end;
end;
end;
end;
Procedure ChopDemRockz;
Begin
AntiRandoms;
AntiBann;
if(FindColorSpiralTolerance(xx, yy, RockColor1,0, 0, 700, 700,RockTol))or
(FindColorSpiralTolerance(xx, yy, RockColor2, 0, 0, 700, 700,RockTol))or
(FindColorSpiralTolerance(xx, yy, RockColor3, 0, 0, 700, 700,RockTol))then
begin
MMouse(xx, yy, 8, 8);
wait(200+random(300));
getmousepos(xx, yy);
if(IsUpText('ine'))then
begin
Mouse(xx, yy, 0, 0, true);
wait(WaitTime+random(1000));
If FindGas(xx, yy - 10) Then
Begin
RunAwayDirection(RunDir);
wait(10000 - random(1000));
RunBack;
end;
end;
end;
end;
procedure DropOres;
Begin
if(not(InvFull))then Exit;
if(InvFull)then
Begin
AntiRandoms;
x := 0;
y := 0;
AntiBann;
GameTab(4);
Ore1 := DTMFromString('78DA634C66626078CE800618914820DD085 47' +
'38F809A5AA09A37B8D580712150CD274C352CC86A72816A6E E236' +
'87198801CA5906DE');
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 := 7;
ActivateClient;
SetupSRLMining;
repeat;
if(not(LoggedIn))then
begin
LoginPlayer;
MakeCompass('N');
HighestAngle;
NickNameBMP:= CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
end;
Begin
repeat;
ChopDemRockz;
if(not(LoggedIn))then break;
until(InvFull);
DropOres;
Proggy;
if(LoggedIn)and
(Players[CurrentPlayer].Banked = 0)then
Begin
SetChat('off', 1);
repeat
Wait(1000);
AntiRandoms;
until(not(LoggedIn));
NextPlayer(true);
end;
end;
if(not(Loggedin)) then NextPlayer(false);
until(false);
end.