Ejjman
2006-05-04 22:49:28
I've tried everything…All I want is a decent gasfinder that works. This is a miner script, if you didn't know; if you could post one here, that'd be great. It doesn't have to be SRL, and it could be as long as you would like it. Thanks people…This would REALLY REALLY HELP BECAUSE GAS IS NOW THE ONLY PROBLEM WITH MY MINER…
{////////////////////////////SCRIPT INFO////////////////////////////////
# ScriptName = PowerMiner
# Author = Ejjman1
# Description = Powermines rocks
# Version = 0.IntToStr(Version)
# Date = 1st of May
# Comments = Thanks to all the people that helped me
# Contact = uncle_earljr@hotmail.com
# Credits = WT-Fakawi, The Un-Named, SRL, All people on my MSN
///////////////////////////////////////////////////////////////////////}
{////////////////////////////Versions////////////////////////////////
Version 0.1---I successfully put my character next to a rock in Varrock.
Version 0.2---I successfully moved the mouse over the rock.
Version 0.3---I successfully added SRL.
Version 0.4---I successfully switched to FindColorSpirals.
Version 0.5---I successfully got one tin ore.
Version 0.6---I successfully got one full load.
Version 0.7---I successfully added constants.
Version 0.8---I successfully added a big area to mine.
Version 0.9---I successfully added standered anti-randoms protection.
Version 1.0---I successfully added simple, friendly progress report.
Version 1.1---I successfully added notes for users to read to understand.
Version 1.2---I successfully added a setup section for easy setup.
Versino 1.3---I successfully added a drop procedure
Version 1.4---I successfully tested and mined 100 ores without stopping.
Version 1.5---I successfully added a faster drop procedure.
Version 1.6---I successfully made the program run north from a monster.
Version 1.7---I successfully made the drop procedure 100% hit.
Version 1.8---I successfully added Player arrays.
Version 1.9---I successfully had the NewBoxGamble work.
////////////////////////////Versions////////////////////////////////}
{////////////////////////////Setup////////////////////////////////
~~~~~~~~~~~~~~~~~~~~~~~~Setup Lines 56-68~~~~~~~~~~~~~~~~~~~~~~~~
1.Have Runescape Client, Low-Detail, Very Bright, 32-Bit True Resolution.
2.I Suggest you stand in same spot as the forum.
3.Move the camera position as far north as possible.
4.If you're not wielding pick, put in the first spot of your inventory.
5.Imagine as if the MiniMap didn't exist...:D
6.Hit the play button!
////////////////////////////Setup////////////////////////////////}
{.include SRL\SRL.scar}
{.include SRL\SRL\skill\Mining.scar}
{~~~~~~~~~~Vars~~~~~~~~~~}
var
Mined,gx,gy:integer;
{~~~~~~~~~~Vars~~~~~~~~~~}
{~~~~~~~~~~Setup~~~~~~~~~~}
const
RockCol1 = 4351372; //Choose 1 color of the tin/copper you wish to mine
RockCol2 = 4549266; //Choose another color of the tin/copper you wish to mine
Total = 1200; //Approximate total number of ores you wish to mine
StartPlayer = 0; //Select which player to start
MSGasColor1 = 11648704; //Don't change color
MSGasColor2 = 8494503; //Don't change color
MSGasColor3 = 9872292; //Don't change color
procedure Setup;
Begin
PickUpItems:=True; //True to pick up random items when lost pick head
EquipPick:=False; //Set True if wielding pick
RandomPlayer:=False; //Set True if you don't care which player to start with
End;
{~~~~~~~~~~Setup~~~~~~~~~~}
{~~~~~~~~~~DeclarePlayers~~~~~~~~~~}
procedure DeclarePlayers;
Begin
HowManyPlayers:=6; //Keep at 6, don't change or else it won't work
NumberOfPlayers(HowManyPlayers);
Players[0].Name :='';
Players[0].Pass :='';
Players[0].Nick :=''; //Put a unique part of your name, 3-4 letters; Questions? SRL Manual
Players[0].Loc :='Varrock';
Players[0].Active:=True;
Players[1].Name :='';
Players[1].Pass :='';
Players[1].Nick :='';
Players[1].Loc :='Varrock'; //Leave at Varrock
Players[1].Active:=True;
Players[2].Name :='';
Players[2].Pass :='';
Players[2].Nick :='';
Players[2].Loc :='Varrock';
Players[2].Active:=True;
Players[3].Name :='';
Players[3].Pass :='';
Players[3].Nick :='';
Players[3].Loc :='Varrock';
Players[3].Active:=True;
Players[4].Name :='';
Players[4].Pass :='';
Players[4].Nick :='';
Players[4].Loc :='Varrock';
Players[4].Active:=True;
Players[5].Name :='';
Players[5].Pass :='';
Players[5].Nick :='';
Players[5].Loc :='Varrock';
Players[5].Active:=True;
End;
{~~~~~~~~~~DeclarePlayers~~~~~~~~~~}
{~~~~~~~~~~DropOres~~~~~~~~~~}
procedure DropOres;
Begin
BenMouse:=False;
if(EquipPick)then
Begin
DropToPosition(6, 11)
FindNormalRandoms;
DropToPosition(12, 21)
FindNormalRandoms;
DropToPosition(22, 28)
End;
if(not(EquipPick))then
Begin
DropToPosition(5, 11)
FindNormalRandoms;
DropToPosition(12, 21)
FindNormalRandoms;
DropToPosition(22, 28)
End;
BenMouse:=True
End;
{~~~~~~~~~~DropOres~~~~~~~~~~}
{~~~~~~~~~~AntiRandoms~~~~~~~~~~}
procedure AntiRandoms;
Begin
FindNormalRandoms;
FindPick;
If(FindFight=True)then
Begin
SetRun(True);
RunAwayDirection('N');
RunBack;
End;
End;
{~~~~~~~~~~AntiRandoms~~~~~~~~~~}
{~~~~~~~~~~ProgressReport~~~~~~~~~~}
procedure ProgressReport;
Begin
Writeln('<::>--Ejjman1''s PowerMiner Report--<::>');
Writeln('+--Worked for '+(ScriptTime2(2))+' .');
Writeln('+--Mined Approximately ' + IntToStr(Mined) + ' rocks.');
Writeln('+--Total Approximate Xp Gained : '+FloatToStr(Mined * 17.5))
Writeln('+--The PowerMiner is working great!');
WriteLn('+--Random Event Report');
if(fights>0)then WriteLn('+--Fought '+IntToStr(fights)+' Time[s].');
if(talks>0)then WriteLn('+--Talked to '+IntToStr(talks)+' Random event[s].');
if(lamps>0)then WriteLn('+--Used lamps '+IntToStr(lamps)+' Time[s].');
if(doctors>0)then WriteLn('+--Solved '+IntToStr(doctors)+' Fords[s].');
if(frogs>0)then WriteLn('+--Solved '+IntToStr(frogs)+' Frog[s].');
if(Attaches>0)then WriteLn('+--Attached '+IntToStr(Attaches)+' Pickaxe[s].');
if(Demons>0)then WriteLn('+--Solved '+IntToStr(Demons)+' Demon[s].');
if(logs>0)then WriteLn('+--Logged in '+IntToStr(logs)+' Time[s].');
Writeln('<::>--Ejjman1''s Powerminer Report--<::>');
End;
{~~~~~~~~~~ProgressReport~~~~~~~~~~}
{~~~~~~~~~~OreMine~~~~~~~~~~}
procedure OreMine;
Begin
If(FindColorSpiralTolerance(x, y, RockCol1, 0, 0, 513, 337, 5))or
(FindColorSpiralTolerance(x, y, RockCol2, 0, 0, 513, 337, 5))then
Begin
MMouse(x, y, 2, 2);
AntiRandoms;
If(IsUpText('Mine'))then
Begin
Mouse(x, y, 2, 2, True);
AntiRandoms;
wait(1000+random(2000)); //Waits between 2 and 3 seconds per click
AntiRandoms;
End;
End;
End;
{~~~~~~~~~~OreMine~~~~~~~~~~}
{~~~~~~~~~~RepeatIt~~~~~~~~~~}
procedure RepeatIt;
Begin
repeat
repeat
OreMine;
until (InventoryFull=True);
DropOres;
Mined := Mined + 27
ProgressReport;
until(Mined = Total);
Nextplayer(False);
End;
{~~~~~~~~~~RepeatIt~~~~~~~~~~}
{~~~~~~~~~~MainLoop~~~~~~~~~~}
Begin
SetupSRLMining;
SetupSRL;
Setup;
DeclarePlayers;
BenMouse:=True;
UsePivGas:=True;
MouseSpeed:=4;
CurrentPlayer:=StartPlayer;
LoginPlayer;
FindPickHeadColor;
RepeatIt;
if (not(Loggedin)) then NextPlayer(false);
End.
{~~~~~~~~~~MainLoop~~~~~~~~~~}