kemico2
06-07-2007, 05:59 AM
Instructions
-Fill in color and Start by any rock.
-Make sure that you have a pick dosent matter if it is equiped or not.
-You will have to stop the script when it is done mining.
Features
-This is my very first script release so there isnt many.
-It has a some antirandoms.
Future Updates.
-When I learn how to do mutliplayer i will add that.
-I will also learn forms and put one in the script.
-AntiBan and better AntiRandoms
-Anything else that i find needs improvement.
Notes
-I am very new at scripting so any help would be greatly appricated.
-I also made this in scar 3.06 it might work in 2.03 though
///make sure you are by the rocks\\\\
//This is made by kemico2 so please dont steal it\\\
//thanks for looking at it\\\\
program VarrockEastPowerMiner;
{.include SRL/SRL.scar}
{.include SRL/SRL/Skill/Mining.scar}
const
RockColor=1318173;
MiningLvL=55;
PickWielded=true;
Loads=10;
var
Loadz : Integer; DidRandomHappen: Boolean;
Procedure Thanks;
Begin;
Writeln('Thank you for using my powerminer');
Writeln('This is my first script so be nice');
end;
Procedure CheckForGas;
begin
if findgas(x,y)then
begin;
runawaydirection('n')
wait(10000+random(3000))
end;
end;
Procedure Signiture;
begin;
writeln(' __ .__ ')
writeln('| | __ ____ _____ |__| ____ ____ ')
writeln('| |/ // __ \ / \| |/ ___\/ _ \ ')
writeln('| <\ ___/| Y Y \ \ \__( <_> ) ')
Writeln('|__|_ \\___ >__|_| /__|\___ >____/ ')
writeln(' \/ \/ \/ \/ ')
end;
procedure PrepCharacter;
begin;
HighestAngle;
MakeCompass('N');
end;
procedure Report;
begin
Writeln('[]-------------------------------------------[]');
Writeln('Worked For : ' + ScriptTime2(2))
Writeln('Mined/Dropped '+ IntToStr(Loadz) + ' Loads');
Writeln('[]--------------------------------------------[]');
end;
procedure MajorMining;
begin
repeat
FindNormalRandoms
FindTalk;
if(FindColorSpiralTolerance(x,y,RockColor,5,5,514 ,337,5)) then;
begin
Mmouse(x,y,2,2);
CheckForGas;
wait(100+random(250));
FindPick;
If(IsUpText('ine'))then
begin
Mouse(x,y,2,2,false);
ChooseOption(x,y,'Mine')
Wait(3000+random(2000))
End
end
Until(InvFull);
end;
Procedure drop;
begin
if(PickWielded=false)then
begin
dropto(2,28)
Loadz:=Loadz + 1;
If(PickWielded=True)then
begin
dropall;
Loadz:=Loadz + 1;
end
end
end;
begin
SetupSrl;
thanks;
Signiture;
prepcharacter
repeat;
Majormining;
Drop;
report;
until(loadz>Loads)
end.
-Fill in color and Start by any rock.
-Make sure that you have a pick dosent matter if it is equiped or not.
-You will have to stop the script when it is done mining.
Features
-This is my very first script release so there isnt many.
-It has a some antirandoms.
Future Updates.
-When I learn how to do mutliplayer i will add that.
-I will also learn forms and put one in the script.
-AntiBan and better AntiRandoms
-Anything else that i find needs improvement.
Notes
-I am very new at scripting so any help would be greatly appricated.
-I also made this in scar 3.06 it might work in 2.03 though
///make sure you are by the rocks\\\\
//This is made by kemico2 so please dont steal it\\\
//thanks for looking at it\\\\
program VarrockEastPowerMiner;
{.include SRL/SRL.scar}
{.include SRL/SRL/Skill/Mining.scar}
const
RockColor=1318173;
MiningLvL=55;
PickWielded=true;
Loads=10;
var
Loadz : Integer; DidRandomHappen: Boolean;
Procedure Thanks;
Begin;
Writeln('Thank you for using my powerminer');
Writeln('This is my first script so be nice');
end;
Procedure CheckForGas;
begin
if findgas(x,y)then
begin;
runawaydirection('n')
wait(10000+random(3000))
end;
end;
Procedure Signiture;
begin;
writeln(' __ .__ ')
writeln('| | __ ____ _____ |__| ____ ____ ')
writeln('| |/ // __ \ / \| |/ ___\/ _ \ ')
writeln('| <\ ___/| Y Y \ \ \__( <_> ) ')
Writeln('|__|_ \\___ >__|_| /__|\___ >____/ ')
writeln(' \/ \/ \/ \/ ')
end;
procedure PrepCharacter;
begin;
HighestAngle;
MakeCompass('N');
end;
procedure Report;
begin
Writeln('[]-------------------------------------------[]');
Writeln('Worked For : ' + ScriptTime2(2))
Writeln('Mined/Dropped '+ IntToStr(Loadz) + ' Loads');
Writeln('[]--------------------------------------------[]');
end;
procedure MajorMining;
begin
repeat
FindNormalRandoms
FindTalk;
if(FindColorSpiralTolerance(x,y,RockColor,5,5,514 ,337,5)) then;
begin
Mmouse(x,y,2,2);
CheckForGas;
wait(100+random(250));
FindPick;
If(IsUpText('ine'))then
begin
Mouse(x,y,2,2,false);
ChooseOption(x,y,'Mine')
Wait(3000+random(2000))
End
end
Until(InvFull);
end;
Procedure drop;
begin
if(PickWielded=false)then
begin
dropto(2,28)
Loadz:=Loadz + 1;
If(PickWielded=True)then
begin
dropall;
Loadz:=Loadz + 1;
end
end
end;
begin
SetupSrl;
thanks;
Signiture;
prepcharacter
repeat;
Majormining;
Drop;
report;
until(loadz>Loads)
end.