SCAR Code:
{///.-Shady-Shadows Power Miner-. //
By-
ShadowRecon
Edited By-
Matlott, Rasta Magician, and Mikevskater
Credits-
Thanks To Malott For Help
TuT Iland
What it does
* power mines any ore you set to mine
What it needs work on
* Anti-Ban isnt the greatest, but its better than none.
* Anti-Random isnt the greatest either, but better than none.
My First Script!
INSTRUCTIONS:
Use the eye droper to pick color of rock, then if pick is weilded change
line 127 to (1 to 28) or the autoer will drop pick-axe. HAVE FUN!
}
program ShadowPwrMnr;
{.include SRL/SRL.scar}
var
i,x,y,m,Axe: Integer;
axetype: String;
const
RockColor = 5077158;//Change to the Color of the Rock
TypeOfPick = 'Bronze';//Bronze, Iron, Steel, Mithril, Adamant, and Rune are valid types
//////////////////////////////DONT NOT EDIT BELOW!/////////////////////////////
procedure DeclarePlayers;
begin
SRLID := ''; //enter or script will terminate
SRLPassword := ''; //register at srl please if dont have one of these!
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := '';//Enter username
Players[0].Pass := '';//Enter password
Players[0].Nick := ''; //Enter nickname
Players[0].Active := True;
end;
///////////////////////////////////////////////////////////////////////////////
procedure AntiBan;
begin
if(not(LoggedIn))then
Exit;
case Random(12) of
0: begin
HoverSkill('Mining', false);
wait(2000+random(1000));
GameTab(4);
end;
4: PickUpMouse;
6: begin
GameTab(1 + Random(12));
wait(1000+random(1000));
GameTab(4);
end;
8: begin
case random(6) of
0: TypeSend('mining lvls?');
2: TypeSend('combat levels');
4: TypeSend('range levels');
end;
end;
10: MouseBox(MSX1,MMY1,MMX2,MMY2,3);
end;
end;
///////////////////////////////////////////////////////////////////////////
procedure FindRandoms;
begin
FindNormalRandoms;
If findfight then
RunAway('N', True, 1, 9000+random(1000));
end;
///////////////////////////////////////////////////////////////////////////
procedure SetupAxeDtm;
begin
Axe := DTMFromString('78DA63B463626078C280020C15D9C0342394C' +
'F680354F398010D30A2AA3107AA7947408D1550CD47026A5C806A' +
'EE1150130054F390801A67A09A6B04D49802D5DCC2AF060011CB0' +
'98C');
end;
///////////////////////////////////////////////////////////////////////////
procedure AutoMining; //By Mikevskater
var
ItemPoint: TPoint;
begin
if invfull then
begin
SetupAxeDtm;
if FindDTM(Axe, x, y, MIX1, MIY1, MIX2, MIX2) then //This will look for pick
begin //then drop rest
for m := 1 to 28 do
ItemPoint := ItemCoords(m);
MMouse(ItemPoint.x, ItemPoint.y, 5, 5);
wait(500 + random(250))
if not(IsUpText(AxeType)) then
DropItem(m);
end else
DropAll;
FreeDTM(Axe);
end;
if (FindColor(x,y,RockColor,4,4,514,337)) then
begin
FindRandoms;
mmouse(x,y,1,1)
Wait(100);
if IsUpTextMulti('ine rock', 'Mine', 'rock') then
mouse(x,y,1,1,true);
wait(3000+random(500))
end else
wait(2000);
end;
/////////////////////////////////////////////////////////////////
procedure setupAxe;
begin
case Lowercase(TypeOfPick) of
'bronze': begin
axetype := 'ronze pickaxe'
end;
'iron': begin
axetype := 'ron pickaxe'
end;
'steel': begin
axetype := 'teel pickaxe'
end;
'mithril': begin
axetype := 'ithril pickaxe'
end;
'adamant': begin
axetype := 'damant pickaxe'
end;
'rune': begin
axetype := 'une pickaxe'
end;
end;
end;
/////////////////////////////////////////////////////////////////
begin
setupsrl;
DeclarePlayers;
SetupAxe;
ActivateClient;
wait(1000);
if (not(LoggedIn)) then Loginplayer;
setangle(True);
MakeCompass('N');
repeat
automining;
antiban
until(false);
end.
If you dont get anything or find something wrong, post or me me and ill be glad to explain, or fix.