View Full Version : [SRL][SS]JuKKa's Guild Miner
Pages :
1
2
3
4
5
6
[
7]
8
HellBoyz
04-05-2008, 12:27 AM
And in English now? Didn't understandn that at ALL.
And JuKKa, are there any places in my bank I shoud have coins, in order to fix my broken pick if it gets broken? Or will it search till' it finds the GP?
Sorry my english was very bad as it's not my main language at all. I'll try to sum it up the problem...
It won't mine mithril ore
fixing pickaxe in lumby does not tele at all
I've broke up my axe due to gas check failed
Dracody
04-05-2008, 06:11 AM
Man I got a little question that has been around my head for a while:
Why dont you Include:
{.include srl/srl/skill/mining.scar}
I was just wondering that...:confused:
JuKKa
04-05-2008, 07:22 AM
because i dont use it ???
like including prayer.scar in a woodcutting script?!
dragonlor650
04-05-2008, 02:54 PM
/~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
| JuKKas Guild Miner Script v3! |
|~~~~~~~~~~~~ Mining Report ~~~~~~~~~~~~~|
| Worked: 6 Hours, 0 Minutes and 30 Seconds|
| Slept : 0 Minutes |
| Mined : 1414 Coals |
| Mined : 0 Miths |
| Gained: 70700 Exp |
| Banked: 52 Loads |
|~~~~~~~~~~~~ Per Hour Report ~~~~~~~~~~~|
| Coals : 235 Per Hour |
| Miths : 0 Per Hour |
| Exp. : 11766 Per Hour |
| Banked: 9 Per Hour |
|~~~~~~~~~~~~~ Misc Report ~~~~~~~~~~~~~~|
| Banked: 8 Gems |
| Stouts: 0 Drank |
| Found : 3 Gasses |
| Responded: 0 Times |
| Broken: 1 Picks |
| Lost: 0 Heads |
| Lumby walks: 0 Times |
|~~~~~~~~~~~~ Players Report ~~~~~~~~~~~~|
| #: 0 Active: F - Mining Level: 74; Mined: 1414; Coal: 1414; Mith: 0; Gained: 70700; Banked: 52; Location: Ladders UnderGround; Random: Lost;
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~/
/~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
| SRL 4 Randoms Report |
| www.srl-forums.com |
|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|
| Fights : 1 |
| Talks : 2 |
| Old Men : 1 |
| Capn Hand[s] : 1 |
| Boxes Solved : 2 |
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~/
^^Works great
Benson
04-05-2008, 05:22 PM
i figured out a way to make my one player run longer but can anyone give advice on how to make it sleep and then run again. im not a very good scripter i just enjoy trying out peoples scripts.
@jukka: if someone helpped me with the scripting could i edit your script a bit?
nikos
04-05-2008, 08:43 PM
Since the new rev 15 came out:
Line 2570: [Error] (15213:44): Type mismatch in script
InPin(IntToStr(Players[CurrentPlayer].Pin));
Cazax
04-05-2008, 08:45 PM
Since the new rev 15 came out:
Line 2570: [Error] (15213:44): Type mismatch in script
InPin(IntToStr(Players[CurrentPlayer].Pin));
If you havent read the srl news, .Pin is now a string so you have to remove inttostr, read more...
Brain
04-05-2008, 11:00 PM
HEY!
I have a proggie, from an old version of the guilder:
/~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
| JuKKa's Guild Miner Script v2! |
|~~~~~~~~~~~~ Mining Report ~~~~~~~~~~~~~|
| Worked: 16 Hours, 4 Minutes and 13 Seconds|
| Mined : 3340 Coals |
| Mined : 246 Miths |
| Gained: 186680 Exp |
| Banked: 134 Loads |
|~~~~~~~~~~~~ Per Hour Report ~~~~~~~~~~~|
| Coals : 208 Per Hour |
| Miths : 15 Per Hour |
| Exp. : 11616 Per Hour |
| Banked: 8 Per Hour |
|~~~~~~~~~~~~~ Misc Report ~~~~~~~~~~~~~~|
| Banked: 24 Gems |
| Stouts: 0 Drank |
| Found : 56 Gasses |
| Responded: 115 Times |
| Broken: 2 Picks |
| Lost: 0 Heads |
|~~~~~~~~~~~~ Players Report ~~~~~~~~~~~~|
| #: 0 Active: T - Mining Level: 72; Mined: 473; Coal: 428; Mith: 45; Gained: 24840; Banked: 17; Location: Bank; Random: ;
| #: 1 Active: T - Mining Level: 76; Mined: 472; Coal: 448; Mith: 24; Gained: 24240; Banked: 17; Location: Bank; Random: Found Mod;
| #: 2 Active: T - Mining Level: 65; Mined: 461; Coal: 418; Mith: 43; Gained: 24260; Banked: 17; Location: Bank; Random: ;
| #: 3 Active: T - Mining Level: 66; Mined: 445; Coal: 427; Mith: 18; Gained: 22790; Banked: 17; Location: Bank; Random: ;
| #: 4 Active: T - Mining Level: 65; Mined: 444; Coal: 412; Mith: 32; Gained: 23160; Banked: 17; Location: Bank; Random: ;
| #: 5 Active: T - Mining Level: 62; Mined: 474; Coal: 441; Mith: 33; Gained: 24610; Banked: 17; Location: Bank; Random: Found Mod;
| #: 6 Active: T - Mining Level: 65; Mined: 373; Coal: 343; Mith: 30; Gained: 19550; Banked: 16; Location: Bank; Random: ;
| #: 7 Active: T - Mining Level: 65; Mined: 444; Coal: 423; Mith: 21; Gained: 22830; Banked: 16; Location: Bank; Random: ;
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~/
darn, I just noticed...that nobody was false...scar crashed, so it stopped :(
Benson
04-06-2008, 01:35 PM
/~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
| JuKKas Guild Miner Script v3! |
|~~~~~~~~~~~~ Mining Report ~~~~~~~~~~~~~|
| Worked: 3 Hours, 24 Minutes and 45 Seconds|
| Slept : 0 Minutes |
| Mined : 735 Coals |
| Mined : 0 Miths |
| Gained: 36750 Exp |
| Banked: 27 Loads |
|~~~~~~~~~~~~ Per Hour Report ~~~~~~~~~~~|
| Coals : 215 Per Hour |
| Miths : 0 Per Hour |
| Exp. : 10768 Per Hour |
| Banked: 8 Per Hour |
|~~~~~~~~~~~~~ Misc Report ~~~~~~~~~~~~~~|
| Banked: 2 Gems |
| Stouts: 0 Drank |
| Found : 4 Gasses |
| Responded: 23 Times |
| Broken: 0 Picks |
| Lost: 0 Heads |
| Lumby walks: 0 Times |
|~~~~~~~~~~~~ Players Report ~~~~~~~~~~~~|
| #: 0 Active: F - Mining Level: 65; Mined: 735; Coal: 735; Mith: 0; Gained: 36750; Banked: 27; Location: Ladders Entering; Random: Lost;
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~/
Socket Error # 11001
Host not found.
(00:03:27): Error in version checking..
stopped cause it got lost :(
RusinaRange
04-06-2008, 03:42 PM
Doesn't work the ping thing comes up.......
vinny13
04-07-2008, 02:49 AM
Will there ever be a SMART version?
Brain
04-07-2008, 03:17 AM
...THIS SCRIPT WILL ALSO NEVER BE SUPPORTED BY SMART!!!...
Please read the first post, Jukka detests none-SRL members having smart...
vinny13
04-07-2008, 11:32 AM
Please read the first post, Jukka detests none-SRL members having smart...
lol oops :P
I gues I can't use this then :(
Non-SMART scripts don't work for me some reason :(
Benson
04-08-2008, 01:37 AM
hey jukka, a few problems
1) the progress report no longer comes up, i've run the script for 4 hours at a time and the proggie never shows.
2) doesnt select the scarscape screen properly
3)i think you already said the pick axe fix doesnt work 100% so ill just leave it at that :P
other then that, very good antirandoms, it's completed the frog random several times, and the drill demon aswell. not banned yet so the antiban seems to be in excelent condition and the rest of the script is amazing still. I've been looking through your script in hopes to have it help me out.
nikos
04-08-2008, 10:32 AM
** Warning in GameTab: 4 does not exist**
(00:25:01): NoPick!
(00:25:02): Error, Tell Jukka to update his DTMS
Benson
04-08-2008, 02:06 PM
/~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
| JuKKas Guild Miner Script v3! |
|~~~~~~~~~~~~ Mining Report ~~~~~~~~~~~~~|
| Worked: 3 Hours, 32 Minutes and 7 Seconds|
| Slept : 0 Minutes |
| Mined : 716 Coals |
| Mined : 0 Miths |
| Gained: 35800 Exp |
| Banked: 26 Loads |
|~~~~~~~~~~~~ Per Hour Report ~~~~~~~~~~~|
| Coals : 203 Per Hour |
| Miths : 0 Per Hour |
| Exp. : 10126 Per Hour |
| Banked: 7 Per Hour |
|~~~~~~~~~~~~~ Misc Report ~~~~~~~~~~~~~~|
| Banked: 3 Gems |
| Stouts: 0 Drank |
| Found : 0 Gasses |
| Responded: 97 Times |
| Broken: 0 Picks |
| Lost: 0 Heads |
| Lumby walks: 0 Times |
|~~~~~~~~~~~~ Players Report ~~~~~~~~~~~~|
| #: 0 Active: F - Mining Level: 67; Mined: 716; Coal: 716; Mith: 0; Gained: 35800; Banked: 26; Location: To Bank; Random: Mordaut;
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~/
very very good efficientcy, only problem is the mardaut random, thats twice i've been logged out in the random, imgonna lay low for a day or so.
2pacfan
04-08-2008, 04:12 PM
Got it working for SMART:)
but im not telling:P
Dracody
04-08-2008, 05:23 PM
Got it working for SMART:)
but im not telling:P
Well done!!! .....NOT!!.......(h)
Why dont you just keep it to yourself instead of trying to get JuKKa mad:fiery:...
Noob xp1
04-08-2008, 06:55 PM
I delete my progres report:mad:
I got ver 100 coal from this script
thx
2pacfan
04-08-2008, 06:56 PM
:) like to see him mad:P
maskedmous
04-09-2008, 05:53 AM
this script owns!
/~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
| JuKKas Guild Miner Script v3! |
|~~~~~~~~~~~~ Mining Report ~~~~~~~~~~~~~|
| Worked: 4 Hours, 7 Minutes and 38 Seconds|
| Slept : 0 Minutes |
| Mined : 1104 Coals |
| Mined : 0 Miths |
| Gained: 55200 Exp |
| Banked: 41 Loads |
|~~~~~~~~~~~~ Per Hour Report ~~~~~~~~~~~|
| Coals : 267 Per Hour |
| Miths : 0 Per Hour |
| Exp. : 13374 Per Hour |
| Banked: 10 Per Hour |
|~~~~~~~~~~~~~ Misc Report ~~~~~~~~~~~~~~|
| Banked: 6 Gems |
| Stouts: 0 Drank |
| Found : 1 Gasses |
| Responded: 0 Times |
| Broken: 0 Picks |
| Lost: 0 Heads |
| Lumby walks: 0 Times |
|~~~~~~~~~~~~ Players Report ~~~~~~~~~~~~|
| #: 0 Active: F - Mining Level: 63; Mined: 1104; Coal: 1104; Mith: 0; Gained: 55200; Banked: 41; Location: In Minings Guild; Random: Lost;
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~/
StrikerX
04-12-2008, 05:02 AM
small proggie
/~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
| JuKKas Guild Miner Script v3! |
|~~~~~~~~~~~~ Mining Report ~~~~~~~~~~~~~|
| Worked: 39 Hours, 30 Minutes and 33 Seconds|
| Slept : 59 Minutes |
| Mined : 8802 Coals |
| Mined : 0 Miths |
| Gained: 440100 Exp |
| Banked: 330 Loads |
|~~~~~~~~~~~~ Per Hour Report ~~~~~~~~~~~|
| Coals : 242 Per Hour |
| Miths : 0 Per Hour |
| Exp. : 12105 Per Hour |
| Banked: 9 Per Hour |
|~~~~~~~~~~~~~ Misc Report ~~~~~~~~~~~~~~|
| Banked: 143 Gems |
| Stouts: 0 Drank |
| Found : 0 Gasses |
| Responded: 0 Times |
| Broken: 0 Picks |
| Lost: 0 Heads |
| Lumby walks: 0 Times |
|~~~~~~~~~~~~ Players Report ~~~~~~~~~~~~|
| #: 0 Active: T - Mining Level: 98; Mined: 8802; Coal: 8802; Mith: 0; Gained: 440100; Banked: 330; Location: Bank; Random: ;
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~/
btw all with one player
chrsk13
04-12-2008, 05:16 PM
Is there some reason SS doesn't load for me? I select Free Client and it just stays a white box.
EDIT: It loads fine on my computer but not on my VM. Does anyone have an idea?
JuKKa
04-12-2008, 06:54 PM
Is there some reason SS doesn't load for me? I select Free Client and it just stays a white box.
EDIT: It loads fine on my computer but not on my VM. Does anyone have an idea?
scar has to updated i think...
chrsk13
04-12-2008, 07:53 PM
I just tried but that didn't work. I am talking about scarscape though. Does updating scar affect it?
EDIT: I figured it out. I had to go load runescape from the normal site first.
Ultra
04-12-2008, 11:18 PM
Jukka, there were some errors in the script, some lines were deleted, such as mine mith or not, also there were some small errors i found, and i fixed them, here is the script.
{
[------------------------------------------------------------------------------]
[ JuKKa's Guild Miner ]
[------------------------------------------------------------------------------]
[ Instructions: ]
[ 1) HowManyLoads = X; <- Enter how many loads per player? ]
[ 2) Enter SRLStats ID And SRLStatsPW or the script WILL NOT WORK!]
[ 3) Declare Your players! ]
[ 4) Place your players in falador east bank! ]
[ 5) Make SURE your first player makes it to the guild! ]
[------------------------------------------------------------------------------]
[ Features: ]
[ 1) Fully autocolor ]
[ 2) Great axe head finder! ]
[ 3) Great antirandoms uptodate with SRL! ]
[ 4) SEXY Mining procedure ]
[ 5) SUPPORTS STOUT! IF YOU HAVE 59 MINING! ]
[ 6) NOW SUPPORTS MITHRIL ORES! ]
[------------------------------------------------------------------------------]
}
Program GuildMiner;
{.Include SRL/SRL.Scar}
Var
StoneColor, TLostHead, BrokenPicks, GotPick, CoalSearches, Mith, X, Y, Dx, Dy, TStout, ResponceTime, CurrentResponce, CurrentLoad, LadderColor: Integer;
LumbyWalks, SleepInMinutes, TFollowColor, LostHead, TBroken, ScreenShot, Gems, StoutsDrank, RespondedTimes, TRespond, TGas, Gasses, Coal, Gained, Banked: Integer;
PickHeadColors: Array Of Integer;
MiningColors, MithColors, CoalColors: Array [0..1] Of Integer;
NoPick, EquipPick, DrinkStout, Logged: Boolean;
MiningNow, LastChatterString: String;
RepairNow, WalkToFEBBool: Boolean;
Const
HowManyLoads = 40; //How Many Loads Per Player? 3-8 is good.
UseResponder = False; //Use responder?
CheckVersion = False; //Check if script is uptodate? Recommended if your a leecher
TakeScreens = False; //Take Screenshots?
VersionCheck = False; //Check for new version while script is running?
UseLostDeath = True; //Use death & lost walk?
RepairBroken = False; //This does not work 100%
RCMasterNick = ''; //Whos RC Master? Leave blank if none.
SRLStatsID = ''; //SRL Stats ID Number, If ur a leecher FUCK OFF.
SRLStatsPW = ''; //SRL Stats PW! , If ur a leecher FUCK OFF.
GasTolerance = 15; //Change if find you broken pickaxes!
MinGasChange = 200; //100+ About 200-300 and more. Basically tolerance.
UseSleep = True; //Do u want the script to sleep?
HowLongSleep = 30; //In minutes.
RandomSleep = 20; //Random sleep in minutes.
{-----------------------------------}
Version = 3.0; //DONT EDIT! }
{-----------------------------------}
Procedure DeclarePlayers;
Begin
HowManyPlayers:= 1;
CurrentPlayer:= 0;
NumberOfPlayers(HowManyPlayers);
Players[0].Name := '';//UserName.
Players[0].Pass := '';//PassWord.
Players[0].Nick := '';//3-4 Letters From Your UserName, After The First Letter.
Players[0].Active := True;//True If You Are Going To Use This Player.
Players[0].Booleans[0] := True;//Is Your Pickaxe Equiped?
Players[0].Booleans[1] := True;//Mine Mithril Ores?
End;
function TheTimeEx: string;
var
Hour, Mins, Sec, MSec: Word;
begin
DecodeTime(Now, Hour, Mins, Sec, MSec);
Result := (Padz(IntToStr(Hour), 2) + ':' + Padz(IntToStr(Mins), 2) + ':' + Padz(IntToStr(Sec), 2));
end;
Procedure WriteTimeln(S: String);
Begin
Writeln('('+ TheTimeEx +'): ' + S + '');
End;
Procedure WalkCompass(Compass: String);
Var
ExceededTries: Integer;
Begin
If(Not Loggedin)Then Exit;
Y:= MMCY;
Case LowerCase(Compass) Of
'left': X:= MMCX-35;
'right': X:= MMCX+35;
End;
Repeat
X := X+Random(25)-Random(25);
Y := Y+Random(25)-Random(25);
ExceededTries := ExceededTries + 1;
If(ExceededTries > 50)Then
Begin
Logout;
Players[CurrentPlayer].Loc := 'Error in WalkCompass';
Players[CurrentPlayer].Active := False;
Exit;
End;
Until(rs_OnMinimap(X, Y))Or(Not Loggedin);
Mouse(X, Y, 5, 5, True);
FFlag(10);
End;
Procedure VersionChecker;
Var
NewVersion: String;
Current: Extended;
Begin
If( CheckVersion )Then
Begin
NewVersion:= GetPage('http://freewebs.com/jk2fakefiles/Guildminer/version.txt');
NewVersion := Between('is ',' Thank', NewVersion);
Try
Current := StrToFloat(NewVersion);
Except
WriteTimeln('Error in version checking..');
Exit;
End;
If(Current = Version)Then
Begin
WriteTimeln('You''re up to date! ');
Exit;
End Else
If(Current < Version)Then
Begin
WriteTimeln('Thank you for beta testing ;)');
Exit;
End Else
Begin
WriteTimeln(' Your Version Is '+ FloatToStr(Version)+'. Newest Version Is '+ NewVersion);
//OpenWebPage('http://www.villavu.com/forum/showthread.php?t=17826');
Logout;
TerminateScript;
End;
End;
End;
{************************************************* ******************************
Function GetLumbridgeMins: Integer;
By: Wizzup? edited pretty much...
Description: Returns the number of minutes left before you can cast home teleport
again, returns 0 when you can cast it.
************************************************** *****************************}
Function LumbyMinutes: Integer;
Var
Msg: String;
T, X, Y: Integer;
Begin
GameTab(7);
//Mouse(563, 229, 10, 10, True); //Hometele
//Should add a GetColor to check if spell is there.
Mouse(659, 278, 10, 10, True); //With Runes
Wait(500 + Random(500));
Msg := GetBlackChatMessage;
if Pos('another', Msg) <> 0 then
try Result := StrToInt(Trim(Between('another', 'minutes', Msg))); except end
else Result := 0;
//If(Result <> 0)Then Exit;
T := GetSystemTime;
Repeat
Wait(500);
Until(GetSystemTime - T > 30000)Or(FindSymbol(x, y, 'water'))Or(Not Loggedin);
Result := 30;
End;
Function ConfirmRoad(T: Integer): Integer;
Var
X, Y: Integer;
Begin
If(RoadColor = 0)Then
Case T of
0: RoadColor := FindRoadColor;
1: RoadColor := FindFallyRoadColor;
End;
Result := RoadColor;
If(Not FindColor(X, Y, RoadColor, MMX1, MMY1, MMX2, MMY2))Then
Begin
Case T of
0: Result := FindRoadColor;
1: Result := FindFallyRoadColor;
End;
RoadColor := Result;
End;
End;
function LinearWalkDistEx(TheColor: Integer; Direction: Integer; Radius: Integer; Xmod, Ymod: Integer): Boolean;
var
tpa: TPointArray;
i: Integer;
begin
Result := False;
if LinearWalkEx(tpa, MMCX, MMCY, TheColor, 0, Direction, Radius) then
for i := 0 to High(tpa) do//added distance. To make it not click so much ;)
if(distance(tpa[i].x, tpa[i].y, mmcx, mmcy) > 30)then
if MFNF(tpa[i].x, tpa[i].y, Xmod, Ymod) then
begin
FFlag(10);
Result := True;
Break;
end;
end;
Procedure OpenDoor;
Var
TPA: TPointArray;
T2D: T2DPointArray;
I, A: Integer;
Begin
Flag
Wait(500+Random(500));
FindColorsSpiralTolerance(MSCX, MSCY, TPA, 872554, MSX1, MSY1, MSX2, MSY2, 5);
T2D := SplitTPAEx(TPA, 10, 20);
For I:= 0 To High(T2D) Do
For a:= 0 To High(T2D[i])Do
Begin
MMouse(T2D[i][a].x, T2D[i][a].y, 0, 0);
Wait(100+Random(100));
GetMousePos(X, Y);
If(IsUpText('pen'))Then
Begin
Mouse(X, Y, 0, 0, False);
ChooseOption('Open');
Flag;
Exit;
End Else
If(IsUpText('lose'))Then
Begin
Mouse(X, Y, 0, 0, False);
ChooseOption('alk here');
Flag;
Exit;
End;
End;
End;
Function FindBob: Boolean;
Var
L, I, CTS: Integer;
Tree: Array [1..2] Of TPointArray;
TPA2, TPA: TPointArray;
Begin
If(FlagPresent)Then
Begin
Flag;
Wait(500+Random(500));
End;
CTS := GetColorTolerancespeed;
ColorToleranceSpeed(2);
FindColorsSpiralTolerance(MSCX, MSCY - 50, Tree[1], 1844077, MSX1, MSY1, MSX2, MSY2, 5);
FindColorsSpiralTolerance(MSCX, MSCY - 50, Tree[2], 1514585, MSX1, MSY1, MSX2, MSY2, 5);
TPA := CombineTPA(Tree[1], Tree[2]);
L := High(TPA);
For I := 0 To L Do
Begin
FindColorsSpiralTolerance(TPA[High(TPA)/2].X, TPA[High(TPA)/2].Y, TPA2, 1844077, TPA[I].X - 10, TPA[I].Y - 10, TPA[I].X + 10, TPA[I].Y + 10, 5);
For I := 0 To High(TPA2) Do
Begin
MMouse(TPA[I].X, TPA[I].Y-5, 0, 0);
Wait(50+Random(50));
If(IsUpText('Bob'))Then
Begin
X := TPA[I].X;
Y := TPA[I].Y-5;
Mouse(X, Y, 0, 0, True);
Flag;
Wait(500+Random(300));
Result := True;
ColorToleranceSpeed(CTS);
Exit;
End;
End;
End;
ColorToleranceSpeed(CTS);
End;
Procedure RepairAxe;
Var
Attempt, PickAxe, BrokenPick, Clicks: Integer;
Begin
FindNormalRandoms;
BrokenPick := DTMFromString('78DA63DCCBC0C0D0CD800618914820BD1D4 8F' +
'412A166220135078830E73890984C849AA9F8D50000C33207 EA');
PickAxe := DTMFromString('78DA63B4636260B8C1800618914820ED025 47' +
'38D801A3722CCB105AAB943408D15116A2C883487907B3C80 6AEE' +
'13E1AF9BF8D50000E8270A17');
GameTab(4);
While(Not FindColor(X, Y, 16777215, MIX1, MIY1, MIX2, MIY2))Or(Clicks < 5)Do
Begin
If(Not Loggedin)Then Break;
GameTab(4);
If(FindDTM(BrokenPick, X, Y, MIX1, MIY1, MIX2, MIY2))Then
Begin
Mouse(X, Y, 5, 5, True);
Wait(300+Random(200));
End;
Inc(Clicks);
End;
If(Loggedin)Then
If(FindBob)Then
Begin
Flag;
Wait(500+Random(500));
While(Attempt < 5)Do
Begin
If(Not Loggedin)Then Break;
If(GetColor(297, 372) = 128)And(GetColor(312, 372) = 128)Then
Begin
ClickToContinue;
Wait(500+Random(500));
End Else
If(GetColor(221, 368) = 128)Then
Begin
Mouse(223, 297, 65, 10, True);
Wait(1000+Random(1000));
End Else Inc(Attempt);
GameTab(4);
If(Not FindDTM(BrokenPick, X, Y, MIX1, MIY1, MIX2, MIY2))Then
Begin
WriteTimeln('Pick reparied!');
NoPick := False;
If(EquipPick)Then
If(FindDTM(PickAxe, X, Y, MIX1, MIY1, MIX2, MIY2))Then
Begin
MMouse(X, Y, 5, 5);
Wait(100+Random(100));
If(IsUpText('ield'))And(IsUpText('pickaxe'))Then
Mouse(X, Y, 5, 5, True);
End;
Break;
End;
End;
End Else
WriteTimeln('Couldnt find bob!');
FreeDTM( PickAxe);
FreeDTM( BrokenPick );
End;
Procedure SleepScriptEx(Amount: Integer);
Var
Secu, Minu: Integer;
Logged: Boolean;
Begin
Logged := LoggedIn;
If(Not Logged)Then Exit;
Logout;
While( Minu < Amount )Do
Begin
Wait(1000);
Inc(Secu);
If(Secu = 60)Then
Begin
Inc(Minu);
Secu := 0;
End;
If(Minu > 0)Then
Status('Been Sleeping For - '+IntToStr( Minu )+' Minutes and '+IntToStr( Secu )+' Seconds')
Else
Status('Been Sleeping For - '+IntToStr( Secu )+' Seconds');
End;
WriteTimeln('Slept For '+IntToStr( Minu )+' Minutes and '+IntToStr( Secu )+' Seconds');
SleepInMinutes := SleepInMinutes + Minu;
If(Logged)Then
LoginPlayer;
End;
Function FindBankers: Boolean; Forward;
Function WalkToFEB: Boolean;
Var
I, YRoad, Minutes: Integer;
SearchWhileWalk: Boolean;
A: Extended;
RoadMP: TDTMPointDef;
RoadSP: Array [0..3] Of TDTMPointDef;
RoadDTM: TDTM;
Begin
If(Not Loggedin)Then Exit;
If(not WalkToFEBBool)Then Exit;
If(UseLostDeath)Then
Begin
Minutes := LumbyMinutes;
If(Minutes <> 30)Then
Begin
SleepScriptEx(Minutes + 1);
If(Not LoggedIn)Then
Begin
Logout;
Result := False;
Exit;
End;
Minutes := LumbyMinutes;
If(Minutes <> 30)Then
Begin
Logout;
Result := False;
Exit;
End;
End;
LinearWalkDistEx(ConfirmRoad(0), 90, 70, -1, 0);
If(RepairNow)Then
If(RepairBroken)Then
If(CoinAmount('inv') >= 1100)Then
Begin
WriteTimeln('Walking to BOB!');
LinearWalkDistEx(ConfirmRoad(0), 180, 60, 0, -1);
OpenDoor;
RepairAxe;
OpenDoor;
LinearWalkDistEx(ConfirmRoad(0), 0, 70, 0, -1);
WalkToFEBBool := False;
RepairNow := False;
End;
LinearWalkDistEx(ConfirmRoad(0), 0, 40, 0, 1);
LinearWalkDistEx(ConfirmRoad(0), 315, 75, 0, 1);
For I:= 0 To 4 Do
LinearWalkDistEx(ConfirmRoad(0), 360 - (I * 4), 60, 0, 1);
If(not LinearWalkDistEx(ConfirmRoad(0), 270, 60, 1, 0))Then
LinearWalkDistEx(ConfirmRoad(0), I, 60, 0, 1);
Repeat
If(Not LinearWalkDistEx(ConfirmRoad(0), 280, 60, 1, 0))Then
If(Not LinearWalkDistEx(RoadColor, 200, 60, 1, -1))Then
Wait(100+Random(100));
ConfirmRoad(0);
RoadMP.X := 604;
RoadMP.Y := 42;
RoadMP.Color := RoadColor;
RoadSP[1].X := 621;
RoadSP[1].Y := 11;
RoadSP[1].Color := RoadColor;
RoadSP[2].X := 565;
RoadSP[2].Y := 65;
RoadSP[2].Color:= RoadColor;
RoadSP[3].X := 680;
RoadSP[3].Y := 96;
RoadSP[3].Color := RoadColor;
RoadDTM.MainPoint := RoadMP;
RoadDTM.SubPoints := RoadSP;
YRoad := AddDTM( RoadDTM );
If(FindDTMRotated(YRoad, X, Y, MMX1, MMY1, MMX2, MMY2, -5, 5, 0.1, A))Then
Begin
Mouse(X, Y, 5, 5, True);
WriteTimeln('Found Y Road');
FFlag(10);
Break;
End;
Until(Not Loggedin);
If(Not Loggedin)Then Exit;
WaterColor := FindWaterColor;
If(WaterColor = 0)Then
SearchWhileWalk := True;
Repeat
If(Not LinearWalkDistEx(ConfirmRoad(0), 0, 50, 0, 1))Then
Wait(100+Random(100));
If(SearchWhileWalk)Then
WaterColor := FindWaterColor;
If(WaterColor <> 0)Then
If(FindColor(X, Y, WaterColor, MMX1, MMY1, MMX2, MMCY))Then
Begin
WriteTimeln('Found Water');
Break;
End;
Until(Not Loggedin);
If(Not Loggedin)Then Exit;
RoadColor := 0;
RoadColor := ConfirmRoad(1);
Repeat
If(Not LinearWalkDistEx(ConfirmRoad(1), 0, 50, 0, 1))Then
Wait(100+Random(100));
If(FindBankers)Then
If(LinearWalkDistEx(ConfirmRoad(1), 0, 40, 0, 1))Then
If(FindBankers)Then
Begin
Mouse(X+Random(10)-Random(10), Y-10, 3, 0, True);
Flag;
Result := True;
Break;
End Else
Begin
Logout;
Result := False;
Exit;
End;
Until(Not LoggedIn);
If(Not Loggedin)Then
Result := False;
End Else
Begin
Logout;
Result := False;
End;
End;
Procedure SetupColors;
Begin
MithColors[0] := 8476760;
MithColors[1] := 4796978;
CoalColors[0] := 2768190;
CoalColors[1] := 1120537;
End;
Procedure GenerateColors;Begin If(SmartReady)Then Begin Writeln('NO SMART HERE!!'); TERMINATESCRIPT;End; End;
Procedure Setup;
Var
C, I: Integer;
Begin
ClearDeBug;
Writeln('Successfully compiled');
SetupSRL;
SetupColors;
RCMaster := RCMasterNick;
RCSetNick;
GenerateColors;
LadderColor := 76120;
RoadColor := 6978948;
VersionChecker;
ScriptID := '314';
SRLID := SRLStatsID;
SRLPassword := SRLStatsPW;
If ( SRLID = '' ) Or ( SRLPassword = '' )Then
Begin
WriteTimeln(' You Need a SRL Stats Account, Create One');
OpenWebPage('http://www.stats.srl-forums.com/index.php?action=view_script&id=314');
TerminateScript;
End;
SRLRandomsReport;
DeclarePlayers;
WriteTimeln('Starting with player '+IntToStr(CurrentPlayer)+'/' + IntToStr(HowManyPlayers-1) + '');
For C:= 0 To HowManyPlayers-1 Do
For I := 0 To 99 Do
Players[C].Integers[I] := 0;
ActivateClient;
Wait(300);
If(LoggedIn)Then
Players[CurrentPlayer].NickTPA := CreateTPAFromText(Players[CurrentPlayer].Nick, UpChars)
Else LoginPlayer;
End;
Procedure AutoRetaliate(Act: Boolean);
Var
Dx, Dy: Integer;
Begin
Gametab(1);
If(FindColorTolerance(Dx, Dy, 2106255, 580, 364, 715, 394, 10))Then
Begin
If(Not Act)Then
Mouse(657, 376, 30, 10, True)
End Else
Begin
If(Act)Then
Mouse(657, 376, 30, 10, True)
End;
End;
Function LoadPick(Style: String; Int: Integer): Integer;
Begin
Case LowerCase(Style) Of
'dtm':
Begin
Case Int Of //Bronze - Rune DTMS!
1: Result := DTMFromString('78DA63DCC0C0C0A0C9800618914820BD194 86' +
'81350B38A0835AB81843E11E6E8A2AA30D39264104156B306 BF1A' +
'16200600A5500645');
2: Result := DTMFromString('78DA63BCCFC0C050CA800618914820FD084 89' +
'4135073134854A2AAB0B3B464E04256731BBF1A269839D5B8 ED62' +
'06D1B7F0BB07A406007C420985');
3: Result := DTMFromString('78DA63CC616460286540038C4824904E05B 22' +
'A5155448786328820ABC9C0AF068CD38164356EBB98606ACA 09A8' +
'C927AC0600C71D0796');
4: Result := DTMFromString('78DA636C646060D06440038C482490AE061 2B' +
'AA82A0C0CDC184490D5D4E257C30833471FB75D4C20BA8208 3520' +
'73B409A86921AC06009DB10633');
5: Result := DTMFromString('78DA638C676060B06740038C4824904E021 24' +
'E04D44403096754154676460C5CC86A22F1AB6102D11140C2 15B7' +
'5DCC30358EF8D5000060E40523');
6: Result := DTMFromString('78DA6394636460F06440038C4824909604B 27' +
'C515518397B317021AB11C3AF068CC581A43F6EBB9840B404 90E5' +
'4D408D226135000BAF0415');
End
End;
'colors':
Begin
Case Int Of //Bronze - Rune
1: Result:= 1649206;
2: Result:= 3750206;
3: Result:= 5592411;
4: Result:= 4599856;
5: Result:= 3292722;
6: Result:= 5590329;
End
End;
End;
End;
Procedure Returnlevel(Var PickType, Attack, Mining: Integer);
Begin
Case PickType Of
1:
Begin
Attack := 1;
Mining := 1;
End;
2:Begin
Attack := 1;
Mining := 1;
End;
3:Begin
Attack := 5;
Mining := 6;
End;
4:Begin
Attack := 20;
Mining := 21;
End;
5:Begin
Attack := 30;
Mining := 31;
End;
6:Begin
Attack := 40;
Mining := 41;
End;
End
End;
Function AbleToEquipPick(Pick: Integer): Boolean;
Var
LevelAttack, LevelMining: Integer;
Begin
Returnlevel(Pick, LevelAttack, LevelMining);
If(Players[CurrentPlayer].Level[1] >= LevelAttack)And
(Players[CurrentPlayer].Level[15]>= LevelMining)Then
Begin
Result:= True;
Players[CurrentPlayer].Booleans[0]:= True;
End;
End;
function InIntArr(Num: Integer; I: TIntegerArray): Boolean;
var
C: Integer;
begin
for C:= 0 to Length(I) - 1 do
if(I[C] = Num)then
begin
Result:= True;
exit;
end;
end;
procedure ShrinkArray(var Arr: TIntegerArray);
var
Used: TIntegerArray;
I, Index: Integer;
begin
SetLength(Used, Length(Arr));
if(InIntArr(0, Arr))then
Inc(Index);
for I:= 0 to Length(Arr) - 1 do
if(not(InIntArr(Arr[i], Used)))then
begin
Used[Index]:= Arr[i];
Inc(Index);
end;
SetLength(Used, Index);
Arr:= Used;
end;
Function GetPickHeadColors: Boolean;
Var
FailedPick, I, II, PickDTM, PickStyle: Integer;
ColorTPA: TPointArray;
Label
GetPickColors;
Begin
FindNormalRandoms;
GetPickColors:
If(Not Loggedin)Then Exit;
If( EquipPick )Then
GameTab(5)
Else GameTab(4);
Wait(500+Random(500));
For I:= 6 DownTo 1 Do
Begin
PickDTM:= LoadPick('DTM', I);
If(FindDTM( PickDTM, X, Y, MIX1, MIY1, MIX2, MIY2))Then
Begin
FindColorsTolerance(ColorTPA, LoadPick('Colors', I), X, Y, X+30, Y+30, 10);
PickHeadColors := GetColors(ColorTPA);
PickStyle:= I;
Break;
End;
End;
ShrinkArray(PickHeadColors);
For II:= 0 To GetArrayLength(PickHeadColors)-1 Do
Begin
//WriteTimeln('PickHeadColor['+IntToStr(II)+']:= '+IntToStr(PickHeadColors[II])+';');
If( PickHeadColors[II] <> 0)Then
Result:= True;
End;
If(Not Result)Then
Begin
WriteTimeln('Getting NEW pickcolors, Failed');
FailedPick:= FailedPick + 1;
If(FailedPick > 4)Then
Begin
WriteTimeln('Coudlnt get pickcolors');
Players[CurrentPlayer].Loc:='Couldnt get pickcolors';
Logout;
Players[CurrentPlayer].Active:= False;
Exit;
End;
GoTo GetPickColors;
End;
WriteTimeln('Picked '+IntToStr(GetArrayLength(PickHeadColors)) + ' Colors');
Case I Of
1: WriteTimeln('You have a Bronze pick axe');
2: WriteTimeln('You have a Iron pick axe');
3: WriteTimeln('You have a Steel pick axe');
4: WriteTimeln('You have a Mith pick axe');
5: WriteTimeln('You have a Addy pick axe');
6: WriteTimeln('You have a Rune pick axe');
End
FreeDTM( PickDTM );
End;
Procedure EquipCurrentPick;
Var
PickTP: TPoint;
I: Integer;
Begin
If(Not Loggedin)Then Exit;
If(Not EquipPick)Then Exit;
GameTab(5);
For I:= 6 DownTo 1 Do
Begin
PickTP:= EquipmentCoords(5);
If(FindColorTolerance(X, Y, LoadPick('color', I), PickTP.X-30, PickTP.Y-30, PickTP.X+30, PickTP.Y+30, 5))Then
Exit;
End;
GameTab(4);
Wait(500+Random(400));
For I:= 1 To 28 Do
If(ExistsItem(I))Then
Begin
PickTP:= ItemCoords(I);
MMouse(PickTP.X, PickTP.Y, 4, 4);
Wait(50);
GetMousePos(X, Y);
If(IsUpText('ield'))Then
Begin
Mouse(X, Y, 0, 0, True);
Exit;
End;
End;
End;
Function ReturnBestPick: Integer;
Var
PickAxe, PickDTM, I, Pick: Integer;
Begin
For I:= 4 To 5 Do
Begin
GameTab(I);
PickAxe := DTMFromString('78DA63AC646460486540038C482490AE01B 23' +
'208A82906B2D209A82902B2B2F1AB010034EE038A');
If(FindDTM(PickAxe, X, Y, MIX1, MIY1, MIX2, MIY2))Then
Begin
For Pick := 6 DownTo 1 Do
Begin
PickDTM := LoadPick('dtm', Pick);
If(FindDTM( PickDTM, X, Y, MIX1, MIY1, MIX2, MIY2))Then
Begin
Result:= Pick;
FreeDTM(PickDTM);
FreeDTM(PickAxe);
Exit;
End;
End;
End;
FreeDTM ( PickAxe );
End;
If(Result = 0)Then
Begin
WriteTimeln('Error Pick');
Logout;
Players[CurrentPlayer].Active:= False;
End;
End;
Procedure InitPlayer;
Begin
CurrentLoad:= 0;
Disguise('Coal:' +IntToStr(Coal)+ ' Mith:' +IntToStr(Mith)+ ' [' +IntToStr(CurrentLoad)+ '/' +IntToStr(HowManyLoads)+ ']');
DrinkStout:= False;
If(Not Loggedin)Then Exit;
Wait(1000+Random(1000));
Autoretaliate(False);
If(GetCombatLevel < 20)Then
Begin
WriteTimeln('Please Level Up Your Charachters in Combat');
Logout;
Players[CurrentPlayer].Loc := 'Too Low Level';
Players[CurrentPlayer].Active:= False;
Exit;
End;
Players[CurrentPlayer].Level[1] := GetSkillInfo('attack', True);
Players[CurrentPlayer].Level[15]:= GetSkillInfo('mining', True);
If(Players[CurrentPlayer].Level[15]=59)Then
Begin
DrinkStout:= True;
WriteTimeln('Entering Guild with stout');
End Else
If(Players[CurrentPlayer].Level[15] < 59)Then
Begin
WriteTimeln('You need level 60, To enter the guild, Or 59 with stout!');
Players[CurrentPlayer].Loc := 'Not Enough Mining Lvl';
Logout;
Players[CurrentPlayer].Active:= False;
Exit;
End;
AbleToEquipPick(ReturnBestPick);
EquipPick := Players[CurrentPlayer].Booleans[0];
EquipCurrentPick;
If(Not GetPickHeadColors)Then
Begin
WriteTimeln('Couldnt get pick colors, Equip or have in inventory.');
Players[CurrentPlayer].Loc := 'Couldnt Get PickColors';
Logout;
Players[CurrentPlayer].Active:= False;
Exit;
End;
SetChat('On',1);
SetChat('Off',2);
SetChat('Off',3);
SetChat('Off',4);
SetChat('Off', 5);
MakeCompass('n');
SetAngle(True);
End;
Function FollowColor(Var X, Y: Integer; Color, Tol: Integer): Boolean;
Var
NoFlag, Fail: Integer;
Begin
MarkTime ( Fail );
If(FlagPresent)Then
Begin
Repeat
If(TimeFromMark( Fail ) > 5000 )Then
Begin
Result:= False;
Break;
End;
Wait(20);
Result:= FindColorSpiralTolerance(X, Y, Color, X-30, Y-30, X+30, Y+30, Tol);
Until(Not FlagPresent) Or (Not Loggedin) Or (Not Result);
If(Result)Then
Begin
MarkTime( NoFlag );
Repeat
Wait(20);
Result:= FindColorSpiralTolerance(X, Y, Color, X-30, Y-30, X+30, Y+30, Tol);
Until(TimeFromMark(NoFlag)>500) Or (Not Loggedin) Or (Not Result);
End;
End Else Result:= True;
End;
Function DetectGas(Var Gx, Gy: Integer; Tol: Integer): Boolean; Forward;
Procedure TakeScreenShot(Reason: String); Forward;
{Function FindRock(Var X, Y: Integer; Color, Tol: Integer): Boolean;
Var
Fx, Fy, L, I: Integer;
TPA, TPA2: TPointArray;
Begin
If(Not(LoggedIn))Then Exit;
Try
FX := MSCX; FY := MSCY;
FindColorsSpiralTolerance(FX, FY, TPA, Color, MSX1, MSY1, MSX2, MSY2, Tol+6);
L := GetArrayLength(TPA) - 1;
For I := 0 To L Do
Begin
FindColorsTolerance(TPA2, Color, TPA[i].X - 15, TPA[i].Y - 15, TPA[i].X + 15, TPA[i].Y - 15, Tol+6);
MiddleTPAEx(TPA2, FX, FY);
FindColorsTolerance(TPA2, Color, FX - 25, FY - 25, FX + 25, FY + 25, Tol+6);
If(GetArrayLength(TPA2)-1 >= 15)Then
Begin
MiddleTPAEx(TPA2, X, Y);
If(X > 0)And(Y > 0)Then
If(Not DetectGas(X, Y))Then
Begin
Result := True;
Break;
End;
End Else MMouse(TPA2[I].X, TPA2[I].Y, 0, 0);
End;
Except
Exit;
End;
End;}
{Function FindRock(Var X, Y, C, Tol: Integer): Boolean;
Var
L, I, CTS: Integer;
TPA, TPA2: TPointArray;
TP: TPoint;
Begin
If(Not(LoggedIn))Then Exit;
Tol := 4; //<-- Temporary. comment out this line if u want <--
// But 4 tolerance works very well for all rocks.
CTS := GetColorToleranceSpeed;
ColorToleranceSpeed(2);
FindColorsSpiralTolerance(MSCX, MSCY, TPA, C, MSx1, MSy1, MSx2, MSy2, Tol);
L := GetArrayLength(TPA) - 1;
For I := 0 To L Do
Begin
TP := TPA[i];
X := TP.x;
Y := TP.y;
Try
FindColorsTolerance(TPA2, C, X - 15, Y - 15, X + 15, Y + 15, 15);
MiddleTPAEx(TPA2, X, Y);
FindColorsTolerance(TPA2, C, X - 15, Y - 15, X + 15, Y + 15, 15);
If(GetArrayLength(TPA2)-1 >= 35)Then
Begin
MiddleTPAEx(TPA2, X, Y);
If(X > 0)And(Y > 0)Then
If(Not DetectGas(X, Y, GasTolerance))Then
Begin
Result := True;
Break;
End;
End;
Except
Result := False;
End;
End;
ColorToleranceSpeed(CTS);
End;}
{Function FindRock(Var X, Y: Integer; C, T: Integer): Boolean;
Var
CTS, I, I2, L, L2: Integer;
TP: TPoint;
TPA: TPointArray;
TPAA: Array Of TPointArray;
Begin
If(Not Loggedin)Then Exit;
CTS := GetColorToleranceSpeed;
ColorToleranceSpeed(2);
FindColorsSpiralTolerance(MSCX, MSCY, TPA, C, MSX1, MSY1, MSX2, MSY2, T);
TPAA := TPAtoATPAEx(TPA, 35, 35);
L := High(TPAA);
For I := 0 To L Do
Begin
L2 := High(TPAA[I]);
For I2 := 0 To L2 Do
Begin
Try
FindColorsTolerance(TPA, C, TPAA[I][I2].X - 20, TPAA[I][I2].Y - 20, TPAA[I][I2].X + 20, TPAA[I][I2].Y + 20, 15);
TP := MiddleTPA(TPA);
If(Not DetectGas(TP.X, TP.Y, 15))Then
Begin
X := TP.X;
Y := TP.Y;
If(X > 0)And(Y > 0)Then
Begin
Result := True;
ColorToleranceSpeed(CTS);
Exit;
End;
End;
Except
Result := False;
End;
End;
End;
ColorToleranceSpeed(CTS);
End;}
{Function FindRock(Var Tx, Ty: Integer; Colors: TIntegerArray): Boolean;
Var
CTS, I: Integer;
TP: TPoint;
TPA: TPointArray;
TPAA2: Array Of TPointArray;
T2Darray: T2DPointArray;
CInt: Array [0..1] of Integer;
Begin
If(Not Loggedin)Then Exit;
CTS := GetColorTolerancespeed;
ColorToleranceSpeed(2);
SetArrayLength(TPAA2, 2);
CInt[0] := AMax(Colors);
CInt[1] := AMin(Colors);
For I:= 0 To 1 Do
FindColorsSpiralTolerance(MSCX, MSCY, TPAA2[I], CInt[I], MSX1, MSY1, MSX2, MSY2, 10);
ColorToleranceSpeed(CTS);
TPA := CombineTPA(TPAA2[0], TPAA2[1]);
T2Darray := SplitTPAEx(TPA, 10, 10);
SortATPAFrom(T2Darray, Point(MSCX, MSCY));
For I:= 0 To High(T2Darray) Do
Begin
TP := MiddleTPA(T2Darray[I]);
If(TP.X = 0)Or(TP.Y = 0)Then Continue;
If(Not DetectGas(TP.X, TP.Y, 15))Then
Begin
MMouse(TP.X, TP.Y, 0, 0);
Wait(50+Random(50));
If(IsUpTextMultiCustom(['ine', 'ock']))Then
Begin
Result := True;
Exit;
End;
End;
End;
End;}
Function DebugTPA(Points: TPointArray; BmpName: String): Boolean;
Var
Width, Height, ClientBMP, I: Integer;
xs, ys, xe, ye: Integer;
Begin
Try
Begin
xe := xs xor xs;
ye := ys xor ys;
xs := 1 shl 20;
ys := 1 shl 20;
For I := 0 To High(Points) Do
Begin
xs := MSX1;
ys := MSY1;
xe := MSX2;
ye := MSY2;
End;
Width := xe - xs;
Height := ye - ys;
DisplayDebugImgWindow(0, 0);
DisplayDebugImgWindow(Width, Height);
ClientBMP := BitmapFromString(Width, Height, '');
CopyClientToBitmap(ClientBMP, xs, ys, xe, ye);
For I := 0 To High(Points) Do
FastSetPixel(ClientBMP, Points[i].X - xs, Points[i].Y - ys, 65535);
If BmpName <> '' Then
SaveBitmap(ClientBMP, ScriptPath + BmpName + '.bmp');
SafeDrawBitmap(ClientBMP, GetDebugCanvas, 0, 0);
DisplayDebugImgWindow(Width, Height);
FreeBitmap(ClientBMP);
End
Except
FreeBitmap(ClientBMP);
End;
Result := True;
End;
Function FindRock(Var Tx, Ty: Integer; Colors: TIntegerArray): Boolean;
Var
CTS, I: Integer;
TP: TPoint;
TPA: TPointArray;
TPAA2: Array Of TPointArray;
T2Darray: T2DPointArray;
CInt: Array [0..1] of Integer;
Begin
If(Not Loggedin)Then Exit;
CTS := GetColorTolerancespeed;
ColorToleranceSpeed(2);
SetArrayLength(TPAA2, 2);
CInt[0] := AMax(Colors);
CInt[1] := AMin(Colors);
For I:= 0 To 1 Do
FindColorsSpiralTolerance(MSCX, MSCY, TPAA2[I], CInt[I], MSX1, MSY1, MSX2, MSY2, 10);
ColorToleranceSpeed(CTS);
TPA := CombineTPA(TPAA2[0], TPAA2[1]);
RAaSTPAEx(TPA, 8, 8);
//DeBugTPA(TPA, '');
//Un blank ^^^ if u want to see how the finder works.
T2Darray := SplitTPAEx(TPA, 10, 10);
//SortATPAFrom(T2Darray, Point(MSCX, MSCY));
For I:= 0 To High(T2Darray) Do
Begin
TP := MiddleTPA(T2Darray[I]);
If(TP.X = 0)Or(TP.Y = 0)Then Continue;
If(Not DetectGas(TP.X, TP.Y, 15))Then
Begin
MMouse(TP.X, TP.Y, 0, 0);
Wait(100+Random(50));
If(IsUpTextMultiCustom(['ine', 'ake Co']))Then
Begin
Result := True;
Exit;
End;
End;
End;
End;
Function SuccessFullClick(mousex, mousey, ranx, rany: Integer; left: Boolean): Boolean;
var
a, b, c: Integer;
begin
MMouse(mousex, mousey, ranx, rany);
Wait(60 + Random(30));
GetMousePos(b, c);
HoldMouse(b + 1, c, left);
repeat
Wait(20 + Random(30));
a := a + 1;
until (a > 4);
GetMousePos(b, c);
ReleaseMouse(b, c, left);
Try
If(FindColor(b, c, 255, b-10, c-10, b+10, c+10))Then
Result:= True;
Except
Result := False;
End;
End;
Function FindRockMiddle: Boolean;
Begin
If(Not Loggedin)Then Exit;
If(InvFull)Then Exit;
TFollowColor := 0;
If(Players[CurrentPlayer].Booleans[1])And(CoalSearches <= 2)Then
Begin
If(FindColorTolerance(X, Y, MithColors[0], MSX1, MSY1, MSX2, MSY2, 4))Then
Begin
MiningColors := MithColors; //New in 2.1
TFollowColor := MithColors[0];
MiningNow:= 'Mith';
End Else
Begin
MiningColors := CoalColors; //New in 2.1
TFollowColor := CoalColors[0];
MiningNow:= 'Coal';
End;
End Else
Begin
MiningColors := CoalColors; //New in 2.1
TFollowColor := CoalColors[0];
MiningNow:= 'Coal';
End;
Status('Missed: '+IntToStr(CoalSearches)+', Now Mining: ' + MiningNow);
If( FindRock ( X , Y , MiningColors ) ) Then
Begin //New in 2.1
GetMousePos(X, Y); //New in 2.1
//If(IsUpText('Mine'))Then //Not actually needed here.
Begin
Case Random(5) Of
0, 1, 2, 3:
Begin
If(SuccessFullClick(X, Y, 0, 0, True))Then
Begin
GetMousePos(Dx, Dy);
If(FollowColor(Dx, Dy, TFollowColor, 4))Then
Begin
Result:= True;
Wait(500+Random(500));
End;
End;
End;
4:
Begin
Mouse(X, Y, 0, 0, False);
GetMousePos(Dx, Dy);
Wait(10);
If(ChooseOption('Mine'))Then
If(FollowColor(Dx, Dy, TFollowColor, 4))Then
Begin
Result:= True;
Wait(500+Random(500));
End;
End;
End;
End;
End;
End;
Function RockColorExists(Var Dx, Dy: Integer; Color, Tolerance: Integer): Boolean;
Begin
Result:= FindColorSpiralTolerance(X, Y, Color, Dx-10, Dy-10, Dx+10, Dy+10, Tolerance);
End;
Procedure TakeScreenShot(Reason: String);
Var
Screen: Integer;
Begin
If(Not Loggedin)Then Exit;
If(TakeScreens)Then
Begin
Try
ScreenShot:= ScreenShot + 1;
Screen:= BitmapFromString(764, 502, '');
CopyClientToBitmap(Screen, MSX1, MSY1, 764, 502);
SaveBitmap(Screen, ScriptPath + IntToStr(ScreenShot) + '' + Reason + '.bmp');
WriteTimeln('ScreenShot: ' + ScriptPath + IntToStr(ScreenShot) + '' + Reason + '.bmp');
FreeBitmap(Screen);
Except
WriteTimeln('Error In ScreenShot');
Exit;
End;
End;
End;
Function AttachPick: Boolean;
Var
Ax, Ay, Handle, AxeHead: Integer;
Begin
Handle := DTMFromString('78DA634C61626078CC8002BC9DAC18FE036 94' +
'620FE0F048C4940356F18D000231209A4F3806AEE105003B2 EB03' +
'0135894035EF895043C01C00F4030DB4');
AxeHead := DTMFromString('78DA637466626078C280024C9D4D19FE036 94' +
'620FE0F048CD640352F18D000231209A42D816A9E1150E388 6917' +
'861A27A09AC704D4B800D53C24A0C60DA8E63901359E44A87 1256' +
'C1700B0451030');
GameTab(4);
If(FindDTM(Handle, X, Y, MIX1, MIY1, MIX2, MIY2))And
(FindDTM(AxeHead, AX, AY, MIX1, MIY1, MIX2, MIY2))Then
Begin
FreeDTM(Handle);
FreeDTM(AxeHead);
Mouse(X, Y, 4, 4, False);
If(Not ChooseOption('Use'))Then Exit;
Wait(300+Random(400));
Mouse(AX, AY, 3, 3, True);
WriteTimeln('Pick Attached!');
Wait(300+Random(400));
Result := True;
Exit;
End;
FreeDTM(Handle);
FreeDTM(AxeHead);
End;
Procedure WalkToDropDot;
Begin
X:= MMCX; Y:= MMCY; //Red Drop Dot!
If(FindColorSpiralTolerance(X, Y, 3553023, MMX1, MMY1, MMX2, MMY2, 20))Then
Begin
Case 1+Random(4) Of
1: Mouse(X - 5, Y, 3, 3, True);
2: Mouse(X + 5, Y, 3, 3, True);
3: Mouse(X, Y + 5, 3, 3, True);
4: Mouse(X, Y - 5, 3, 3, True);
End
Flag;
End;
End;
Function FindLostPick: Boolean;
Var
PickHandle, BrokenPick, PickDTM, I, II, III, Tol, Pick: Integer;
PickTPA: TPointArray;
Begin
If(Not Loggedin)Then Exit;
If( InvCount >= 27 )Then
Begin
DropItem(3);
Wait(400+Random(350));
If( InvCount = 27 )And( EquipPick )Then
DropItem(2);
Wait(400+Random(350));
End;
BrokenPick := DTMFromString('78DA63DCCBC0C0D0CD800618914820BD1D4 8F' +
'412A166220135078830E73890984C849AA9F8D50000C33207 EA');
PickHandle := DTMFromString('78DA63DCC1C0C0E0C38002CCD51818FE036 94' +
'620FE0F048CFB800C170634C0884402E93D40C289809A8D40 2282' +
'809A2D402212BF1A003B1D0A81');
If( EquipPick )Then
Begin
GameTab(5);
Wait(400+Random(300));
If(FindDTM(BrokenPick, X, Y, MIX1, MIY1, MIX2, MIY2))Then
Begin
TakeOff(5);
NoPick:= True;
WriteTimeln('***** Pick broken *****');
BrokenPicks := BrokenPicks + 1;
TBroken := TBroken + 1;
FreeDTM( BrokenPick );
FreeDTM(PickHandle);
Exit; //Exit Because Broken Pick nothing we can do here..
End Else
If(FindDTM(PickHandle, X, Y, MIX1, MIY1, MIX2, MIY2))Then
Begin
WriteTimeln('***** Lost PickHead *****');
TakeScreenShot('PickHead');
TakeOff(5);
FreeDTM(BrokenPick);
FreeDTM(PickHandle);
NoPick := True;
End Else
Begin
NoPick := True;
TakeOff(5);
WriteTimeln('Error, Tell Jukka to update his DTMS');
FreeDTM(BrokenPick);
FreeDTM(PickHandle);
TerminateScript;
End;
End Else
Begin
GameTab(4);
Wait(400+Random(300));
If(FindDTM(BrokenPick, X, Y, MIX1, MIY1, MIX2, MIY2))Then
Begin
NoPick:= True;
WriteTimeln('***** Pick broken *****');
BrokenPicks := BrokenPicks + 1;
TBroken := TBroken + 1;
FreeDTM( BrokenPick );
FreeDTM(PickHandle);
Exit;
//Exit Because Broken Pick nothing we can do here..
End Else
If(FindDTM(PickHandle, X, Y, MIX1, MIY1, MIX2, MIY2))Then
Begin
WriteTimeln('***** Lost PickHead *****');
TakeScreenShot('PickHead');
FreeDTM(BrokenPick);
FreeDTM(PickHandle);
NoPick := True;
End Else
Begin
WriteTimeln('Error, Tell Jukka to update his DTMS');
FreeDTM(BrokenPick);
FreeDTM(PickHandle);
TerminateScript;
End;
End;
GameTab(4);
WalkToDropDot;
Flag;
Wait(500+Random(400));
MarkTime(Pick);
Repeat
For I:= 0 To GetArrayLength(PickHeadColors)-1 Do
If(PickHeadColors[I] <> 0)Then
Begin
FindColorsSpiralTolerance(X, Y, PickTPA, PickHeadColors[I], MSX1, MSY1, MSX2, MSY2, Tol);
For II:= 0 To GetArrayLength(PickTPA)-1 Do
Begin
X:= PickTPA[II].X; Y:= PickTPA[II].Y;
MMouse(X, Y, 0, 0);
Wait(10);
If(IsUpText('ake'))Then
Begin
Mouse(X, Y, 0, 0, True);
Wait(10);
TakeScreenShot('Found Pick');
Flag;
Wait(500+Random(400));
If(Not AttachPick)Then Break;
GameTab(4);
Wait(500+Random(300));
For III:= 1 To 6 Do
Begin
PickDTM:= LoadPick('DTM', III);
If(FindDTM( PickDTM, X, Y, MIX1, MIY1, MIX2, MIY2))Then
Begin
If( EquipPick )Then
Mouse(X+8, Y+8, 5, 5, True);
NoPick:= False;
Result:= True;
TakeScreenShot('Pick Attached');
WriteTimeln('***** Found Pick *****');
AxeAttaches := AxeAttaches + 1;
SRLRandomsReport;
FreeDTM(PickDTM);
Exit; //EXIT EVERYTHING!
End Else FreeDTM(PickDTM);
End;
End;
End;
End;
WalkToDropDot;
Flag;
Wait(500+Random(400));
Until(TimeFromMark(Pick)>60000)Or(Result)Or(Not Loggedin);
TakeScreenShot('CantFindHead');
WriteTimeln('***** Lost Head *****');
TLostHead := TLostHead + 1;
LostHead := LostHead + 1;
End;
Function PickCheck: Boolean;
Begin
If(FindColor(X, Y, 16711680, 192, 442, 204, 454))Then
If(FindText(X, Y, 'Pickax', NPCChars, 122, 373, 181, 395))Then
Begin
WriteTimeln('NoPick!');
TakeScreenShot('NO PICK!');
Result:= True;
If(FindLostPick)Then
Result:= False
Else NoPick:= True;
End;
End;
{************************************************* ******************************
function GasCheck(gx, gy: Integer): Boolean;
By: piv
Description: Pivs GasChecker.
************************************************** *****************************}
function FindGas(gx, gy: Integer): Boolean;
var
clientcanvas, gascanvas1, gascanvas2: TCanvas;
xG, yG, count: Integer;
pic1, pic2: Integer;
begin
if (FindColorTolerance(xG, yG, 8296866, gx - 20, gy - 20, gx + 20, gy + 20, 50)) then
begin
pic1 := BitmapFromString(40, 40, '');
pic2 := BitmapFromString(40, 40, '');
gascanvas1 := GetBitmapCanvas(pic1);
gascanvas2 := GetBitmapCanvas(pic2);
clientcanvas := getclientcanvas;
CopyCanvas(clientcanvas, gascanvas1, gx - 20, gy - 20, gx + 20, gy + 20, 0,
0, 40, 40);
Wait(100);
CopyCanvas(clientcanvas, gascanvas2, gx - 20, gy - 20, gx + 20, gy + 20, 0,
0, 40, 40);
count := 0;
for yG := 1 to 40 do
for xG := 1 to 40 do
if ((gascanvas1.pixels[xG, yG]) <> (gascanvas2.pixels[xG, yG])) then
count := count + 1;
if (count > 150) then //if more than 15% change
Begin
//WriteTimeln(IntToStr(Trunc(((count) / 1024) * 100)) + '% change.');
Result := True;
End;
FreeBitmap(pic1);
FreeBitmap(pic2);
end;
end;
Function InString(Text1, Text2: String): Boolean;
Begin
Result:= (Pos(LowerCase(Text2), LowerCase(Text1)) <> 0);
End;
Procedure IsString;Begin If(InString(TheLine, 'srl'))Then TypeSend('i auto');End;
Function Responder: Boolean; //fucking lucker lol ;), Black below..
Var
Responce: Array [0..9] of String;
NewLine: String;
Label
ResponceLabel;
Begin
If(Not Loggedin)Then Exit;
//IsString;
If(Not UseResponder)Then Exit;
If(TimeFromMark(ResponceTime)<1000)Then Exit;
MarkTime(ResponceTime);
If(Not LastChatter(LastChatterString))Then Exit;
If(InString(LastChatterString, Players[CurrentPlayer].Nick))Then Exit;
OldLine:= TheLine;
GetLastChatText(TheLine);
NewLine:= TheLine;
If(OldLine = TheLine)Then Exit;
If(InString(TheLine, 'hi')) Or (InString(TheLine, 'ello')) Or (InString(TheLine, 'yo'))Then
Begin
Responce[0]:= 'Hi';
Responce[1]:= 'Hello';
Responce[2]:= 'ello';
Responce[3]:= 'hi lol';
Responce[4]:= 'Hi there';
Responce[5]:= 'yo';
Responce[6]:= 'hi there!';
Responce[7]:= 'Yo wazzap';
Responce[8]:= 'lol hi';
Responce[9]:= 'Hi there';
Result:= True;
GoTo ResponceLabel;
End;
If(InString(TheLine, 'mining lvl')) Or (InString(TheLine, 'mining lev')) Or (InString(TheLine, 'mining lv'))Then
Begin
Responce[0]:= IntToStr(Players[CurrentPlayer].Level[15]);
Responce[1]:= IntToStr(Players[CurrentPlayer].Level[15]) +', You?';
Responce[2]:= IntToStr(Players[CurrentPlayer].Level[15])+ ' lol';
Responce[3]:= 'Currently ' +IntToStr(Players[CurrentPlayer].Level[15]);
Responce[4]:= 'right now ' +IntToStr(Players[CurrentPlayer].Level[15]);
Responce[5]:= 'soon ' +IntToStr(Players[CurrentPlayer].Level[15]+1);
Responce[6]:= 'very soon ' +IntToStr(Players[CurrentPlayer].Level[15]+1);
Responce[7]:= 'secret';
Responce[8]:= 'ask me later';
Responce[9]:= 'ill tell when i get level';
Result:= True;
GoTo ResponceLabel;
End;
If(InString(TheLine, 'lol')) Or (InString(TheLine, 'ha')) Or (InString(TheLine, 'he'))Or
(InString(TheLine, 'lmao')) Or (InString(TheLine, 'rofl')) Or (InString(TheLine, 'omg'))Then
Begin
Responce[0]:= 'lol';
Responce[1]:= 'lmao';
Responce[2]:= 'haha';
Responce[3]:= 'lmfao';
Responce[4]:= 'rofl';
Responce[5]:= 'hehe';
Responce[6]:= 'ahah';
Responce[7]:= 'lmao haha';
Responce[8]:= 'hehe lol';
Responce[9]:= 'haha lol lmao rofl';
Result:= True;
GoTo ResponceLabel;
End;
If(InString(TheLine, Players[CurrentPlayer].Nick)) Or (InString(TheLine, Players[CurrentPlayer].Name))Then
Begin
Responce[0]:= 'yes?';
Responce[1]:= 'what?';
Responce[2]:= 'umm yes?';
Responce[3]:= 'yes what?';
Responce[4]:= 'not now..';
Responce[5]:= 'nty not now';
Responce[6]:= 'what now?';
Responce[7]:= 'what?';
Responce[8]:= 'yes?!';
Responce[9]:= 'yessir?';
Result:= True;
GoTo ResponceLabel;
End;
ResponceLabel:
If(Result)Then
Begin
WriteTimeln('Responded: '+Responce[CurrentResponce]+' To: '+ TheLine);
TypeSend(Responce[CurrentResponce]);
CurrentResponce:= CurrentResponce + 1;
RespondedTimes:= RespondedTimes + 1;
TRespond:= TRespond + 1;
If(CurrentResponce = 9)Then
CurrentResponce:= 0;
End;
End;
Function DetectGas(Var Gx, Gy: Integer; Tol: Integer): Boolean;
Var
GasTPA: Array [0..6] Of TPointArray;
GasColor: Array [0..6] Of Integer;
I, Count: Integer;
Begin
GasColor[0] := 6123901;
GasColor[1] := 5795704;
GasColor[2] := 5270391;
GasColor[3] := 5599613;
GasColor[4] := 5136998;
GasColor[5] := 6321275;
For I:= 0 To 5 Do
Begin
FindColorsTolerance(GasTPA[I], GasColor[I], Gx-40, Gy-40, Gx+40, Gy+40, Tol);
Count:= Count + GetArrayLength(GasTPA[I])-1;
// ! Testing Marks !
//WriteTimeln(IntToStr(I) + ': ' + IntToStr(GetArrayLength(GasTPA[I])-1));
End;
//WriteTimeln('All - ' + IntToStr(Count));
If(Count > MinGasChange)And(Count < 2000)Then
Result := FindGas(Gx, Gy);
If(Result)Then
SRLRandomsReport;
End;
Function CheckAutoColors(LadderOrRoad: String): Integer; Forward;
Procedure MineOre;
Var
GasTimer, I, MineTimer, TGasC: Integer;
RandomTimer: Array [0..3] Of Integer;
Stone: TPointArray;
Begin
If(Not Loggedin)Then Exit;
If(WalkToFEBBool)Then Exit;
Players[CurrentPlayer].Loc := 'In Minings Guild';
CoalSearches:= 0;
Repeat
If ( FindRockMiddle ) Then
Begin
CoalSearches:= 0;
MarkTime( MineTimer );
For I:= 0 To 3 Do
MarkTime(RandomTimer[I]);
Repeat
Wait(50);
If(Not RockColorExists(Dx, Dy, TFollowColor, 4))Then
Break;
If(DetectGas(Dx, Dy, GasTolerance))Then
Begin
TGasC := GetColor(Dx, Dy);
If(Not SimilarColors(TGasC, 6123901, 10))Then
TGasC := 6123901;
WriteTimeln('Found Gas!');
TakeScreenShot('GasFound');
Gasses:= Gasses + 1;
TGas:= TGas + 1;
MFNF(MMCX+Random(50)-Random(50), MMCY+Random(50)-Random(50), 0, 0);
{
GasColor[0] := 6123901;
GasColor[1] := 5795704;
GasColor[2] := 5270391;
GasColor[3] := 5599613;
GasColor[4] := 5136998;
GasColor[5] := 6321275;
}
If(FollowColor(Dx, Dy, TGasC, 15))Then
Begin
TakeScreenShot('Gas Followed');
CoalSearches := CoalSearches + 10;
MarkTime(GasTimer);
While(DetectGas(Dx, Dy, 15))Do
Begin
If(Not Loggedin)Then Exit;
If(TimeFromMark( GasTimer ) > 30000)Then
Break;
FTWait(2);
End;
TakeScreenShot('Evaded Gas');
WriteTimeln('Evaded Gas for ' + IntToStr(TimeFromMark(GasTimer)/1000)+' seconds');
End Else Wait(10000+Random(5000));
Break;
End;
If(TimeFromMark( RandomTimer[0] ) > 500)Then
Begin
If( Responder )Then Break;
If( PickCheck )Then Break;
If(FindFight)Then
Begin
WriteTimeLn('Found Fight!');
Exit;
End;
If(TimeFromMark( RandomTimer[3] ) > 2000)Then
Begin
If(FindNormalRandoms)Then Break;
MarkTime( RandomTimer[3] );
End Else
If(TimeFromMark( RandomTimer[2] ) > 1500)Then
Begin
If(FindNormalRandoms)Then Break;
MarkTime( RandomTimer[2] );
End Else
If(TimeFromMark( RandomTimer[1] ) > 650)Then
Begin
If(FindTalk)Then Break;
MarkTime( RandomTimer[1] );
End;
End Else If(FindTalk)Then Break;
Until( TimeFromMark(MineTimer)>10000) Or (Not Loggedin);
End Else
Begin
FTWait(1);
CoalSearches:= CoalSearches + 1;
If(CoalSearches >= 10)Then
Begin
StoneColor := CheckAutoColors('stone');
If(StoneColor <> 0)Then
Begin
FindColorsTolerance(Stone, StoneColor, MMX1, MMY1, MMX2, MMY2, 0);
MiddleTPAEx(Stone, X, Y);
If(Not rs_OnMinimap(X, Y))Then Continue;
If(X = 0)Or(Y = 0)Then Break;
If(Distance(X, Y, MMCX, MMCY)>20)Then
Begin
MouseFlag(X, Y, 0, 0);
WriteTimeln('Walking to middle of mine.');
End Else
If(CoalSearches >= 15)Then
Begin
WriteTimeln('No Coal on screen..');
Break;
End;
End Else
If(CoalSearches > 15)Then
Begin
WriteTimeln('No Coal on screen..');
Break;
End;
End;
End;
Until( InvFull ) Or (Not Loggedin) Or ( NoPick ) Or (CoalSearches > 30);
End;
Function CantEnter: Boolean;
Begin
If(FindColor(X, Y, 16711680, 233, 447, 240, 447))Then
If(FindText(X, Y, 'Mining', NPCChars, 333, 403, 384, 422))Then
Result := True;
End;
Function UnderGround: Boolean;
Var
TPA: TPointArray;
Begin
//If(CountColor(65536, MMX1, MMY1, MMX2, MMY2) > 700)Then
//Somebug in countcolor... //MMX1, MMY1, MMX2, MMY2
FindColorsTolerance(TPA, 65536, MMX1, MMY1, MMX2, MMY2, 1);
If(GetArrayLength(TPA)-1 > 500)Then
Result := True;
End;
Function FindLadder(Color, Tolerance: Integer; Down: Boolean): Boolean;
Var
LadderTBA: TBoxArray;
Load, Tol: Integer;
Begin
If(Not Loggedin)Then Exit;
Flag;
Wait(500+Random(500));
X:= MSCX;
Y:= MSCY;
Tol:= Tolerance;
Repeat
If ( CantEnter ) Then Begin WriteTimeln('Cant Enter Minings Guild'); Result := False; Exit; End;
//Status('Tol: '+IntToStr(Tol)+' Boxes: '+IntToStr(GetArrayLength(LadderTBA)));
If(FindColorSkipBoxArrayTolerance(X, Y, Color, MSX1, MSY1, MSX2, MSY2, Tol, LadderTBA))Then
Begin
MMouse(X, Y, 0, 0);
GetMousePos(Dx, Dy);
Mouse(X, Y, 0, 0, False);
Wait(25);
If(ChooseOption('limb'))Then
Begin
Flag;
MarkTime(Load);
If(Down)Then
Repeat
Wait(500+Random(500));
If(UnderGround)Then
Result := True;
Until(Not Loggedin)Or(TimeFromMark(Load) > 5000)Or(Result)
Else
Repeat
Wait(500+Random(500));
If(Not UnderGround)Then
Result := True;
Until(Not Loggedin)Or(TimeFromMark(Load) > 5000)Or(Result);
End;
SetArrayLength(LadderTBA, GetArrayLength(LadderTBA)+1);
LadderTBA[GetArrayLength(LadderTBA)-1].X1 := Dx-10;
LadderTBA[GetArrayLength(LadderTBA)-1].Y1 := DY-10;
LadderTBA[GetArrayLength(LadderTBA)-1].X2 := Dx+10;
LadderTBA[GetArrayLength(LadderTBA)-1].Y2 := DY+10;
End Else Tol := Tol + 1;
If(Down)Then
Begin
If(UnderGround)Then
Begin
Result:= True;
//WriteTimeln('Successfully Climbed!');
Exit;
End Else
If(GetArrayLength(LadderTBA)>20)Then
Begin
WalkToFEBBool := True;
Result := False;
Exit;
End;
End Else
If(Not UnderGround)Then
Begin
Result:= True;
//WriteTimeln('Successfully Climbed!');
Exit;
End Else
If(GetArrayLength(LadderTBA)>20)Then
Begin
WalkToFEBBool := True;
Result:= False;
Exit;
End;
Until(Not Loggedin) Or (Result);
End;
Function LadderRadialWalk( TheColor, StartRadial, EndRadial, Radius, FlagBreakOut, Xmod, Ymod, Xoff, Yoff: Integer): Boolean;
Var
I, X1, Y1: Integer;
Begin
If(StartRadial = EndRadial)Then Exit
Else If(StartRadial < EndRadial)Then
Begin
Repeat
For i := StartRadial To EndRadial Do
Begin
x1 := Round(Radius * Sine(i)) + 646;
y1 := Round(-Radius * Cose(i)) + 84;
If FindColor(x, y, TheColor, X1, Y1, X1 + 1, Y1 + 1)then
Begin
Result := True;
MFNF(X + Xoff, Y + Yoff, Xmod, Ymod);
FFlag(FlagBreakOut);
Exit
End;
End;
Radius := Radius - 4;
Until Radius <= 1;
End Else
If(StartRadial > EndRadial)Then
Begin
Repeat
For i := StartRadial DownTo EndRadial Do
Begin
x1 := Round(Radius * Sine(i)) + 646;
y1 := Round(-Radius * Cose(i)) + 84;
If (FindColor(x, y, TheColor, X1, Y1, X1 + 1, Y1 + 1))Then
Begin
Result := True;
MFNF(X + Xoff, Y + Yoff, Xmod, Ymod);
FFlag(FlagBreakOut);
Exit
End;
End;
Radius := Radius - 4;
Until Radius <= 1;
End;
End;
Function rs_OnMinimapEx(x, y: Integer): Boolean;
Begin
Result := InCircle(x, y, MMCX, MMCY, 70);
End;
Function FindLadderColorEx: Integer;
Var
T, L, CC, GC, TestColor, A, Red, Green, Blue: Integer;
P: TPointArray;
Begin
T := GetSystemTime;
GC := 10837;
FindColorsSpiralTolerance(MMCX, MMCY, P, GC, MMX1, MMY1, MMX2, MMY2, 60);
L := High(P);
For a:= 0 To L Do
Begin
If(Not rs_OnMinimapEx(p[a].x, p[a].y))Then Continue;
TestColor := GetColor(p[a].x, p[a].y);
Red := (TestColor mod 256);
Green := ((TestColor / 256) mod 256);
Blue := ((TestColor / 256) / 256);
//Thanks tara for below ;)
//Pretty much everything his idea.
if Blue <= 30 then if Red - Blue <= 105 then if Red <= 115 then
if Green <= 70 then if Green >= 5 then if Green - Blue >= 5 then
if Green - Blue <= 60 then if Red >= 55 then
if Red - Green >= 25 then if Red - Green <= 65 then
if Red - Blue >= 55 then
Begin
CC := CountColor(TestColor, P[a].X - 10, P[a].Y - 10, P[a].X + 10, P[a].Y + 10);
If(CC >= 20)And(CC <= 200)Then
Begin
Result := TestColor;
WriteTimeln('Ladder color = ' +
IntToStr(Result)+ ' - took '+IntToStr(GetSystemTime - T)+ ' Msec, Ladder Points = '+IntToStr(CC));
Exit;
End;
End;
End;
WriteTimeln('Could not find Ladder color! - took '+IntToStr(GetSystemTime - T)+ ' Msec');
Result := 0;
End;
Function CheckAutoColors(LadderOrRoad: String): Integer;
Var
Ground: Boolean;
Begin
Case LowerCase(LadderOrRoad) Of
'road': Begin
If(RoadColor = 0)Then
RoadColor:= FindFallyRoadColor;
If(FindColor(X, Y, RoadColor, MMX1, MMY1, MMX2, MMY2))Then
Result:= RoadColor
Else Result:= FindFallyRoadColor;
End;
'ladder': Begin
If(LadderColor = 0)Then
LadderColor:= FindLadderColorEx;
If(FindColor(X, Y, LadderColor, MMX1, MMY1, MMX2, MMY2))Then
Result:= LadderColor
Else Result:= FindLadderColorEx;
End;
'stone': Begin
Ground := UnderGround;
If(StoneColor = 0)And(Ground)Then
StoneColor := FindRockColor;
If(Ground)And(FindColor(X, Y, StoneColor, MMX1, MMY1, MMX2, MMY2))Then
Result := StoneColor
Else
If(Ground)Then
Result := FindRockColor;
End;
End;
End;
Procedure InteractBeer(Style: String);
Var
Stout: Integer;
Begin
If(Not Loggedin)Then Exit;
If(Not DrinkStout)Then Exit;
GameTab(4);
Wait(300+Random(400));
Case Lowercase(Style) Of
'drink':
Begin
Stout := DTMFromString('78DA63B467626078C080023E7DF8C4F01F4 83' +
'302F17F2060B4C0540391859140DA01A8E60301357E40358F 8830' +
'E73A7E3500FBAA0D96');
If(FindDTM(Stout, X, Y, MIX1, MIY1, MIX2, MIY2))Then
Begin
Mouse(X, Y, 3, 3, True);
StoutsDrank:= StoutsDrank + 1;
TStout := TStout + 1;
WriteTimeln('Drank Beer!');
Wait(100+Random(100));
End Else Begin Players[CurrentPlayer].Loc := 'Couldnt Find Beer'; WriteTimeln('Couldnt Find (DTM) Beer'); Players[CurrentPlayer].Active:= False; Logout; End;
FreeDTM( Stout );
Exit;
End;
'drop':
Begin
Stout := DTMFromString('78DA638C616060E060644006B5D5D50CFF8 13' +
'448F43F103082D488A1AA81C8C248201D02243809A80199F3 9F01' +
'BF9A2C4CF7A0AB0100E8850981');
If(FindDTM(Stout, X, Y, MIX1, MIY1, MIX2, MIY2))Then
Begin
Mouse(X, Y, 0, 0, False);
ChooseOption('Drop');
WriteTimeln('Beer Dropped!!');
Wait(100+Random(100));
End;
FreeDTM( Stout );
Exit;
End;
'withdraw':
Begin
If(Not BankScreen)Then
Begin
Logout;
Players[CurrentPlayer].Active:= False;
Players[CurrentPlayer].Loc := 'Not In Bank';
Exit;
End;
Stout := DTMFromString('78DA63EC656060E86140038C482490EE061 24' +
'B09A8690612D308A8990924A61350D3052466A2AAF0727363 E042' +
'56D387698E8B83035C0D0B1003008825089D');
If(FindDTM(Stout, X, Y, MSX1, MSY1, MSX2, MSY2))Then
Begin
Mouse(X, Y, 0, 0, True);
WriteTimeln('Got Beer!');
Wait(100+Random(100));
FreeDTM( Stout );
Exit;
End Else Begin Players[CurrentPlayer].Loc := 'Couldnt Get More Beer'; WriteTimeln('Couldnt Find Beer (DTM) in Bank'); CloseBank; Players[CurrentPlayer].Active:= False; Logout; End;
FreeDTM( Stout );
Exit;
End;
Else
Begin
WriteTimeln('No such arguement in: ''Procedure InteractBeer(Style: String);');
TerminateScript;
End;
End;
End;
Function FindMiningLadder(Var X, Y: Integer): Boolean;
Var
I: Integer;
ColorPoints: TIntegerArray;
ColorPointTP: TPoint;
LadderTPA, LadderTPA2: TPointArray;
Begin
If(Not Loggedin)Then Exit;
FindColorsTolerance(LadderTPA, LadderColor, MMX1, MMY1, MMx2, MMY2, 0);
SetArrayLength( ColorPoints, GetArrayLength(LadderTPA) );
For I:= 0 To High( ColorPoints )Do
Begin
FindColorsTolerance(LadderTPA2, LadderColor, LadderTPA[I].X - 5, LadderTPA[I].Y - 5, LadderTPA[I].X + 5, LadderTPA[I].Y + 5, 0);
ColorPoints[I] := GetArrayLength(LadderTPA2);
If(AMax(ColorPoints) = ColorPoints[I])Then
ColorPointTP := LadderTPA[I];
End;
X := ColorPointTP.X;
Y := ColorPointTP.Y;
If(X > 0)And(Y > 0)Then
Result := True;
End;
Procedure GoToMine;
Begin
If(Not Loggedin)Then Exit;
If(WalkToFEBBool)Then Exit;
Players[CurrentPlayer].Loc := 'To Mine';
LadderColor:= CheckAutoColors('Ladder');
RoadColor:= CheckAutoColors('Road');
If( Random(10) > 5 )Then
SetRun(True);
FindNormalRandoms;
If(Not LadderRadialWalk( LadderColor , 78, 119, 60, 10, -1, -1, -15, 0))Then
Begin
RadialRoadWalk(RoadColor, 61, 90, 65, -1, 0);
LadderRadialWalk( LadderColor, 207, 145, 50, 5, -1, -1, -15, 10);
End;
FindNormalRandoms;
If(Not LinearRoadWalk(RoadColor, 180, 70, 0, -1))Then
If(Not RadialRoadWalk(RoadColor, 170, 200, 70, 0, 0))Then
Begin
X := MMCX;
Y := MMCY + 50;
If(FindColorSpiral(X, Y, RoadColor, MMX1, MMY1, MMX2, MMY2))Then
Begin
MouseFlag(X, Y, 0, 0);
Flag;
End;
End;
//If(FindColor(X, Y, 0, MSX1, MSY1, 648, 157))Then
// STUPID! Jagex thinks i cant solve that error ;)
If(FindMiningLadder(X, Y))Then
Begin
MouseFlag(X+10, Y-5, 0, 0);
InteractBeer('Drink');
If(Loggedin)Then
Players[CurrentPlayer].Loc := 'Ladders Entering';
FindLadder(2445165, 5, True);
If(WalkToFEBBool)Then Exit;
If(Not Loggedin)Then Exit;
If(Not UnderGround)Then
Begin
WalkToFEBBool := True;
Exit;
End;
Players[CurrentPlayer].Loc := 'Ladders UnderGround';
InteractBeer('Drop');
SetRun(True);
FindNormalRandoms;
Repeat
WalkCompass('right');
FindNormalRandoms;
Until(FindColorTolerance(X, Y, CoalColors[0], MSX1, MSY1, MSX2, MSY2, 4))Or(Not Loggedin);
Flag;
End Else
Begin
WalkToFEBBool := True;
End;
End;
Function FindBankers: Boolean;
Var
Bankers: Integer;
A: Extended;
Begin
If(Not Loggedin)Then Exit;
Bankers := DTMFromString('78DA63AC656260886640017FFE303188006 94' +
'620FE0F048C8DF8D580002135605C895F0D50960100216D0F AC');
If(FindDTMRotated(Bankers, X, Y, MMX1, MMY1, MMX2, MMY2, -10, 10, 0.1, A))Then
Result:= True;
FreeDTM(Bankers);
End;
Function LadderDistance: Integer;
Begin
X := MMCX;
Y := MMCY;
If(FindColorSpiral(X, Y, LadderColor, MMX1, MMY1, MMX2, MMY2))Then
Result := Distance(X, Y, MMCX, MMCY);
End;
Procedure GoToBank;
Var
I, Tries, LDist: Integer;
Begin
If(Not Loggedin)Then Exit;
If(WalkToFEBBool)Then Exit;
Players[CurrentPlayer].Loc := 'To Bank';
FindNormalRandoms;
Repeat
If(FindColor(X, Y, LadderColor, MMX1, MMY1, MMX2, MMY2))Then
Begin
Mouse(X, Y, 5, 0, True);
FindNormalRandoms;
Flag;
FindNormalRandoms;
End Else
WalkCompass('left');
LDist := LadderDistance;
If(LDist <> 0)Then
If(LDist <= 10)Then
Break;
If(Tries>3)Then
Wait(50);
Tries := Tries + 1;
Until(Not Loggedin)Or(Tries > 20);
If(Tries >= 20)Then
Begin
WalkToFEBBool := True;
Exit;
End;
FindNormalRandoms;
If(Loggedin)Then
Players[CurrentPlayer].Loc := 'Ladders Entering';
FindLadder(2708852, 5, False);
If(WalkToFEBBool)Then Exit;
If(Not Loggedin)Then Exit;
If(UnderGround)Then
Begin
WalkToFEBBool := True;
Exit;
End;
If( Random(10) > 3 )Then
SetRun(False);
If(Loggedin)Then
Players[CurrentPlayer].Loc := 'Ladders To Bank...';
FindNormalRandoms;
LadderColor:= CheckAutoColors('Ladder');
RoadColor:= CheckAutoColors('Road');
RadialRoadWalk(RoadColor, 80, 100, 60, 0, 0);
If(Not LadderRadialWalk( LadderColor , 300, 377, 69, 10, 0, 1, -10, 0))Then
Begin //NEW: 300, 377, 69 OLD: 323, 360, 75
// ^^^^<--- Tweak if fail... Lower it to add performance. not below 270... thats 100% fail.
RadialRoadWalk(RoadColor, 333, 367, 70, 0, 1);
RadialRoadWalk(RoadColor, 270, 340, 70, 1, 0);
End;
FindNormalRandoms;
Wait(500+Random(500));
If(FindBankers)Then
Begin
Mouse(X+Random(10)-Random(10), Y-10, 3, 0, True);
FindNormalRandoms;
Flag;
FindNormalRandoms;
End Else
Begin
RadialRoadWalk(RoadColor, 230, 360, 75, 0, 0);
Flag;
Wait(500+Random(500));
FindNormalRandoms;
If(FindBankers)Then
Begin
Mouse(X+Random(10)-Random(10), Y-10, 3, 0, True);
FindNormalRandoms;
Flag;
FindNormalRandoms;
End Else
Begin
For I:= 1 To 5 Do
Begin
If(FindBankers)Then
Begin
Mouse(X+Random(10)-Random(10), Y-10, 0, 0, True);
FindNormalRandoms;
Flag;
FindNormalRandoms;
Exit;
End Else FTWait(1);
End;
WalkToFEBBool := True;
End;
End;
{
Begin
Players[CurrentPlayer].Loc := 'Couldnt Find Bankers';
Players[CurrentPlayer].Active:= False;
Logout;
End;
}
End;
Function OpenFallyBankFast: Boolean;
var
x, y, i, l, c, z: Integer;
Info: TIntegerArray;
Booths, t: TPointArray;
Begin
Info := [MSCX-20, MSCY+20, 4810622, 5, 1];
MakeCompass('n');
z := GetColorToleranceSpeed;
If Info[4] <> GetColorToleranceSpeed Then
ColorToleranceSpeed(Info[4]);
FindColorsSpiralTolerance(Info[0], Info[1], Booths, Info[2], MSX1, MSY1, MSX2, MSY2, Info[3])
SetArrayLength(t, 0);
t := Booths;
SetArrayLength(Booths, 0);
Booths := ReArrangeAndShortenArray(t, 14);
l := GetArrayLength(Booths) -1;
ColorToleranceSpeed(z);
for i := 0 to l do
begin
If not LoggedIn then
Begin
Result := False;
ColorToleranceSpeed(z);
Exit;
End;
Wait(100);
MMouse(Booths[i].X, Booths[i].Y, 0, 0);
Wait(150);
if IsUpText('ooth') Then
begin
GetMousePos(x, y);
Mouse(x, y, 0, 0, False);
Wait(100);
if ChooseOption('uickly') then
begin
FFLag(0);
MarkTime(c);
repeat
Wait(100);
until (BankScreen) or (TimeFromMark(c) > 3000);
Result := BankScreen;
end;
end;
if Result then Exit;
end;
end;
Function OpenBankLoop: Boolean;
Var
Mark: Integer;
Begin
If(Not LoggedIn)Then Exit;
Flag;
Marktime(Mark);
Repeat
If(TimeFromMark(Mark)>25000)And(Not FlagPresent)Then
Begin
WalkToFEBBool := True;
Result := False;
Exit;
End;
FTWait(2)
If(OpenFallyBankFast)Then
Wait(200+Random(200));
Flag;
Until(BankScreen)or(PinScreen)or(Not LoggedIn)
Wait(500+Random(250));
If(BankScreen)Then
Begin
FixBank;
Result := True;
End Else
Begin
Result := False;
WalkToFEBBool := True;
End;
End;
Procedure Deposit2(FromItem,ToItem: integer);
Var
I: Integer;
aPoint: TPoint;
Begin
I := Fromitem;
For I := FromItem To ToItem Do
Begin
If(ExistsItem(I))Then
Begin
aPoint := ItemCoords(i);
Wait(10);
Case 1+Random(10) Of
1: Mouse(aPoint.x+Random(5)-Random(5), aPoint.y+Random(5)-Random(5), 0, 0, True);
2: Begin
Mouse(aPoint.x+Random(5)-Random(5), aPoint.y+Random(5)-Random(5), 0, 0, False);
Chooseoption('ore 5');
End;
3: Begin
Mouse(aPoint.x+Random(5)-Random(5), aPoint.y+Random(5)-Random(5), 0, 0, False);
Chooseoption('ore 10');
End;
Else Begin
Mouse(aPoint.x+Random(5)-Random(5), aPoint.y+Random(5)-Random(5), 0, 0, False);
Chooseoption('ore All');
End;
End
Wait(500+Random(500));
End;
End;
End;
Function CountItemColor(Color, Tol: Integer): Integer;
Var
Dx, Dy, I: Integer;
ItemTp: TPoint;
Begin
If(Not Loggedin)Then Exit;
GameTab(4);
For I:= 1 To 28 Do
Begin
ItemTP:= ItemCoords(I);
If(FindColorTolerance(Dx,Dy,Color,ItemTP.X-10,ItemTP.Y-10,ItemTP.X+10,ItemTP.Y+10, Tol))Then
Result:= Result + 1;
End;
End;
Function CountItemGems: Integer;
Var
GemColor: Array [1..4] of Integer;
Dx, Dy, Gem, I: Integer;
ItemTP: TPoint;
Begin
If(Not Loggedin)Then Exit;
GemColor[1]:= 11842741;
GemColor[2]:= 859003;
GemColor[3]:= 1543184;
GemColor[4]:= 9574162;
GameTab(4);
For I:= 1 To 28 Do
Begin
ItemTP:= ItemCoords(I);
For Gem:= 1 To 4 Do
If(FindColorTolerance(Dx,Dy,GemColor[Gem],ItemTP.X-10,ItemTP.Y-10,ItemTP.X+10,ItemTP.Y+10, 5))Then
Result:= Result + 1;
End;
End;
Procedure DoTheMath;
Var
TMith, TGems, TCoal: Integer;
Begin
TCoal:= CountItemColor(2175538, 5);
TMith:= CountItemColor(6571076, 5);
TGems:= CountItemGems;
If(TCoal > 0)Then
WriteTimeln(' Mined: '+IntToStr(TCoal) + ' Coals');
If(Players[CurrentPlayer].Booleans[1])And(TMith > 0)Then
WriteTimeln(' Mined: '+IntToStr(TMith) + ' Miths');
If(TGems > 0)Then
WriteTimeln(' Mined: '+IntToStr(TGems) + ' Gems');
CurrentLoad:= CurrentLoad + 1;
Gems:= Gems + TGems;
Coal:= Coal + TCoal;
Mith:= Mith + TMith;
Gained:= (Coal * 50) + (Mith * 80);
Banked:= Banked + 1;
Players[CurrentPlayer].Integers[0]:= Players[CurrentPlayer].Integers[0] + TCoal;
Players[CurrentPlayer].Integers[1]:= (Players[CurrentPlayer].Integers[0] * 50) + (Players[CurrentPlayer].Integers[3] * 80);
Players[CurrentPlayer].Integers[2]:= Players[CurrentPlayer].Integers[2] + 1;
Players[CurrentPlayer].Integers[3]:= Players[CurrentPlayer].Integers[3] + TMith;
Banks:= Banks + 1;
ReportVars[0] := TCoal;
ReportVars[1] := (TCoal * 50) + (TMith * 80);
ReportVars[2] := 1;
ReportVars[3] := TGas;
ReportVars[4] := TRespond;
ReportVars[5] := TGems;
ReportVars[6] := TStout;
ReportVars[7] := TMith;
ReportVars[8] := TBroken;
ReportVars[9] := TLostHead;
TLostHead:= 0;
TRespond:= 0;
TBroken:= 0;
TStout:= 0;
TGas:= 0;
If(TMith > 0)Then
Disguise('Coal:' +IntToStr(Coal)+ ' Mith:' +IntToStr(Mith)+ ' [' +IntToStr(CurrentLoad)+ '/' +IntToStr(HowManyLoads)+ ']')
Else Disguise('Coal:' +IntToStr(Coal)+ ' [' +IntToStr(CurrentLoad)+ '/' +IntToStr(HowManyLoads)+ ']');
SRLRandomsReport;
End;
Function FixProg(ST, Max: String): String;
Var
I, O, L: Integer;
Begin
L:= Length(ST);
I:= Length(Max);
L:= L - 1;
I:= I - 3;
For O:= L To I Do
Result:= Result + ' ';
Result:= Result + '|';
End;
Procedure ProgressReport;
Var
ActiveT, Longest: String;
Prog: Array [0..18] Of String;
Sec, I: Integer;
Begin
Sec := GetTimeRunning div 1000+1;
Writeln('/~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\');
Writeln('| JuKKas Guild Miner Script v'+FloatToStr(Version)+'! |');
Longest:= ('|~~~~~~~~~~~~ Mining Report ~~~~~~~~~~~~~|');
Writeln(Longest);
Prog[0]:= ('| Worked: ' + TimeRunning + '');
Prog[1]:= ('| Slept : ' + IntToStr(SleepInMinutes)+' Minutes');
Prog[2]:= ('| Mined : ' + IntToStr(Coal) + ' Coals');
Prog[3]:= ('| Mined : ' + IntToStr(Mith) + ' Miths');
Prog[4]:= ('| Gained: ' + IntToStr(Gained) + ' Exp');
Prog[5]:= ('| Banked: ' + IntToStr(Banked) + ' Loads');
Prog[6]:= ('|~~~~~~~~~~~~ Per Hour Report ~~~~~~~~~~~');
Prog[7]:= ('| Coals : ' + IntToStr(Round(3600*Coal/Sec)) + ' Per Hour');
Prog[8]:= ('| Miths : ' + IntToStr(Round(3600*Mith/Sec)) + ' Per Hour');
Prog[9]:= ('| Exp. : ' + IntToStr(Round(3600*Gained/Sec))+ ' Per Hour');
Prog[10]:= ('| Banked: ' + IntToStr(Round(3600*Banked/Sec))+ ' Per Hour');
Prog[11]:= ('|~~~~~~~~~~~~~ Misc Report ~~~~~~~~~~~~~~');
Prog[12]:= ('| Banked: ' + IntToStr(Gems) + ' Gems');
Prog[13]:= ('| Stouts: ' + IntToStr(StoutsDrank) + ' Drank');
Prog[14]:= ('| Found : ' + IntToStr(Gasses) + ' Gasses');
Prog[15]:= ('| Responded: ' +IntToStr(RespondedTimes)+ ' Times');
Prog[16]:= ('| Broken: ' +IntToStr(BrokenPicks) + ' Picks');
Prog[17]:= ('| Lost: ' + IntToStr(LostHead) + ' Heads');
Prog[18]:= ('| Lumby walks: ' + IntToStr(LumbyWalks) + ' Times');
For I:= 0 To 18 Do
Begin
Prog[I]:= FixProg(Prog[I], Longest);
Writeln(Prog[I]);
End;
If(Not Loggedin)Then
Begin
Players[CurrentPlayer].Active := False;
If(Players[CurrentPlayer].Rand = '')Then
Players[CurrentPlayer].Rand := 'Lost';
End;
Writeln('|~~~~~~~~~~~~ Players Report ~~~~~~~~~~~~|');
For I:= 0 To HowManyPlayers-1 Do
Begin
If(Players[I].Active)Then
ActiveT:= 'T'Else ActiveT:= 'F';
Prog[18]:= ('| #: '+IntToStr(I)+ ' Active: '+ActiveT+
' - Mining Level: '+IntToStr(Players[I].Level[15])+
'; Mined: '+IntToStr( Players[I].Integers[0] + Players[I].Integers[3])+
'; Coal: '+IntToStr(Players[I].Integers[0])+
'; Mith: '+IntToStr(Players[I].Integers[3])+
'; Gained: '+IntToStr(Players[I].Integers[1])+
'; Banked: '+IntToStr(Players[I].Integers[2])+
'; Location: '+Players[I].Loc +
'; Random: '+Players[I].Rand+';');
Writeln(Prog[18]);
End;
Writeln('\~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~/');
End;
Procedure GetBestPick;
Var
I, PickDTM: Integer;
Dx, Dy, BrokenPick: Integer;
Begin
If(Not Loggedin)Or(Not BankScreen)Then Exit;
For I:= 6 DownTo 1 Do
Begin
PickDTM := LoadPick('dtm',I);
If(FindDTM(PickDTM, X, Y, MSx1, MSy1, MSx2, MSy2))Then
Begin
BrokenPick := DTMFromString('78DA63DCCBC0C0D0CD800618914820BD1D4 8F' +
'412A166220135078830E73890984C849AA9F8D50000C33207 EA');
If(Not FindDTM(BrokenPick, Dx, Dy, X-20, Y-20, X+20, Y+20))Then
Begin
Mouse(X, Y, 4, 4, True);
Wait(500+Random(300));
FreeDTM(PickDTM);
FreeDTM(BrokenPick);
Case I Of
1: WriteTimeln('You Got Bronze pick axe');
2: WriteTimeln('You Got Iron pick axe');
3: WriteTimeln('You Got Steel pick axe');
4: WriteTimeln('You Got Mith pick axe');
5: WriteTimeln('You Got Addy pick axe');
6: WriteTimeln('You Got Rune pick axe');
End
GotPick := I;
Exit;
End;
FreeDTM(BrokenPick);
End;
FreeDTM(PickDTM);
End;
End;
Procedure EquipBestPick;
Begin
If(Not Loggedin)Then Exit;
If(Not NoPick)Then Exit;
GameTab(4);
Wait(500+Random(500));
If(EquipPick)And(ExistsItem(1))And(AbleToEquipPick (GotPick))Then
Begin
MouseItem(1, True);
Wait(500+Random(300));
If(Not GetPickHeadColors)Then
Begin
WriteTimeln('Couldnt get pick colors, Equip or have in inventory.');
Players[CurrentPlayer].Loc := 'No Pick, Colors';
Logout;
Players[CurrentPlayer].Active:= False;
End Else NoPick:= False;
Exit;
End Else
If(Not EquipPick)Then
Begin
If(Not GetPickHeadColors)Then
Begin
WriteTimeln('Couldnt get pick colors, Equip or have in inventory.');
Players[CurrentPlayer].Loc := 'No Pick, Colors';
Logout;
Players[CurrentPlayer].Active:= False;
Exit;
End Else NoPick:= False;
Exit;
End;
WriteTimeln('No more pickaxes!.');
Players[CurrentPlayer].Loc := 'No More Pickaxes';
Logout;
Players[CurrentPlayer].Active:= False;
End;
Procedure WithdrawMoney;
Var
MoneyTPA: TPointArray;
T2D: T2DPointArray;
I: Integer;
Begin
X := MSCX;
Y := MSCY;
FindColorsTolerance(MoneyTPA, 2149368, 77, 59, 442, 284, 5);
T2D := SplitTPAEx(MoneyTPA, 25, 25);
For I:= 0 To High(T2D) Do
Begin
MiddleTPAEx(T2D[I], X, Y);
MMouse(X, Y, 5, 5);
Wait(100+Random(100));
//WriteTimeln(rs_GetUpText);
If(IsUpText('raw 1 Co'))Then
Begin
GetMousePos(X, Y);
Mouse(X, Y, 0, 0, False);
If(ChooseOption('raw X'))Then
Begin
Wait(1500+Random(500));
TypeSend('1500');
Break;
End;
End;
End;
End;
Procedure Bank;
Begin
If(Not Loggedin)Then Exit;
WalkToFEBBool := False;
RepairNow := False;
DoTheMath;
Players[CurrentPlayer].Loc := 'Bank';
If(DrinkStout)Then
If(GetSkillInfo('mining', True) = 59)Then
DrinkStout:= True Else DrinkStout:= False;
If( OpenBankLoop )Then
Begin
If ( NoPick )Then
Begin
If(RepairBroken)Then
Begin
Deposit2(2, 28);
WithdrawMoney;
If(CoinAmount('inv') >= 1100)Then
Begin
WalkToFEBBool := True;
RepairNow := True;
End;
End Else
Deposit2(1, 28);
GetBestPick;
Wait(300+Random(300));
End Else
If(EquipPick)Then
Deposit2(1, 28)
Else Deposit2(2, 28);
InteractBeer('Withdraw');
CloseBank;
EquipBestPick;
End;
End;
Function LoadsDone: Boolean;
Begin
If(CurrentLoad >= HowManyLoads)Then
Result:= True;
End;
Procedure SleepScript;
Var
RanMin, Secu, Minu: Integer;
Begin
Logged := LoggedIn;
If(VersionCheck)Then
VersionChecker;
If(Not Logged)Or(Not UseSleep)Then Exit;
Logout;
RanMin := Random( RandomSleep );
While( Minu < HowLongSleep + RanMin )Do
Begin
Wait(1000);
Inc(Secu);
If(Secu = 60)Then
Begin
Inc(Minu);
Secu := 0;
End;
If(Minu > 0)Then
Status('Been Sleeping For - '+IntToStr( Minu )+' Minutes and '+IntToStr( Secu )+' Seconds')
Else
Status('Been Sleeping For - '+IntToStr( Secu )+' Seconds');
End;
WriteTimeln('Slept For '+IntToStr( Minu )+' Minutes and '+IntToStr( Secu )+' Seconds');
SleepInMinutes := SleepInMinutes + Minu;
End;
Begin
Setup;
Repeat
InitPlayer;
Repeat
GoToMine;
MineOre;
GoToBank;
WalkToFEB; //This is new!!!!!!
Bank;
Until(Not Loggedin)Or(NoPick)Or(LoadsDone);
ProgressReport;
SleepScript;
If(Logged)And(Not NoPick)Then
NextPlayer(True)Else NextPlayer(False);
Until(False);
End.
So yeah i hope you upload it :P.
Very nice script!
I will try and get 100k coal with this :).
StrikerX
04-13-2008, 12:14 PM
yo jukka put the proggie on main page plox
nikos
04-13-2008, 12:46 PM
/~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
| JuKKas Guild Miner Script v3! |
|~~~~~~~~~~~~ Mining Report ~~~~~~~~~~~~~|
| Worked: 6 Hours, 32 Minutes and 41 Seconds|
| Slept : 77 Minutes |
| Mined : 1573 Coals |
| Mined : 0 Miths |
| Gained: 78650 Exp |
| Banked: 57 Loads |
|~~~~~~~~~~~~ Per Hour Report ~~~~~~~~~~~|
| Coals : 240 Per Hour |
| Miths : 0 Per Hour |
| Exp. : 12017 Per Hour |
| Banked: 9 Per Hour |
|~~~~~~~~~~~~~ Misc Report ~~~~~~~~~~~~~~|
| Banked: 6 Gems |
| Stouts: 0 Drank |
| Found : 0 Gasses |
| Responded: 4 Times |
| Broken: 0 Picks |
| Lost: 0 Heads |
| Lumby walks: 0 Times |
|~~~~~~~~~~~~ Players Report ~~~~~~~~~~~~|
| #: 0 Active: T - Mining Level: **; Mined: 1573; Coal: 1573; Mith: 0; Gained: 78650; Banked: 57; Location: Bank; Random: ;
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~/
| www.srl-forums.com |
|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|
| SRL Logs : 19 |
| Fights : 1 |
| Talks : 2 |
| Ricks : 1 |
| Old Men : 1 |
| Boxes Solved : 2 |
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~/
issamawan
04-13-2008, 02:00 PM
[Runtime Error] : Out Of Range in line 2768 in script C:\Documents and Settings\Owner\Application Data\Opera\Opera\profile\cache4\temporary_download \GuildMiner 30 Release (1).scar
issamawan
04-13-2008, 07:11 PM
Y DID UR SCRIPT LOG ME OUT!!!
IT SAYS INCREASE UR COMBAT!
is that part of the script
coz its veryyyyy frustrating
im a skiller
lvl 16
and now it says increase ur combat
it wont lemme run
wtf
plz help,
issamawan
p.s im not willing to increase my combat
VivaLaRofl
04-13-2008, 09:48 PM
Line 2570: [Error] (15213:44): Type mismatch in script C:\Program Files\SCAR 3.15\GuildMiner 30 Release.scar
?
StrikerX
04-13-2008, 09:52 PM
Y DID UR SCRIPT LOG ME OUT!!!
IT SAYS INCREASE UR COMBAT!
is that part of the script
coz its veryyyyy frustrating
im a skiller
lvl 16
and now it says increase ur combat
it wont lemme run
wtf
plz help,
issamawan
p.s im not willing to increase my combat
sorry unless you learn some basic scripting or raise your combat lvl to 20 it's not going to work.....*Sneeze* look in the procedures*Sneeze*Sneeze*<-------long Sneeze
P.S Please dont write like that.....Very Annoying
abizon
04-14-2008, 08:58 AM
Line 2570: [Error] (15213:44): Type mismatch in script C:\Documents and Settings\Alex\Local Settings\Temporary Internet Files\Content.IE5\XLICY7ZL\GuildMiner%2030%20Relea se[1].scar
any help?
Replace that line with :
InPin((Players[CurrentPlayer].Pin));
:).
And JuKKa very nice script. I'll try and run it :).
Good Work!
issamawan
04-14-2008, 12:18 PM
sorry unless you learn some basic scripting or raise your combat lvl to 20 it's not going to work.....*Sneeze* look in the procedures*Sneeze*Sneeze*<-------long Sneeze
P.S Please dont write like that.....Very Annoying
VERY SORRRYYY
honestly
i made myself sound very rude
didnt mean it like that
i edited it after finding the place to edit
i did this 5 mins after riting that post
i cudnt close it coz i was soooo happy this script was working soooo gr8
my proggies got deleted accidentally :@
sry
it was around 400 coal in 2 hours i think
anyways thnx loads
and im very sry
this script is amazing
ill post proggies after a looong run,
issamawan
Benson
04-14-2008, 01:05 PM
/~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
| JuKKas Guild Miner Script v3! |
|~~~~~~~~~~~~ Mining Report ~~~~~~~~~~~~~|
| Worked: 6 Hours, 0 Minutes and 59 Seconds|
| Slept : 0 Minutes |
| Mined : 1372 Coals |
| Mined : 0 Miths |
| Gained: 68600 Exp |
| Banked: 51 Loads |
|~~~~~~~~~~~~ Per Hour Report ~~~~~~~~~~~|
| Coals : 228 Per Hour |
| Miths : 0 Per Hour |
| Exp. : 11402 Per Hour |
| Banked: 8 Per Hour |
|~~~~~~~~~~~~~ Misc Report ~~~~~~~~~~~~~~|
| Banked: 14 Gems |
| Stouts: 0 Drank |
| Found : 2 Gasses |
| Responded: 0 Times |
| Broken: 0 Picks |
| Lost: 0 Heads |
| Lumby walks: 0 Times |
|~~~~~~~~~~~~ Players Report ~~~~~~~~~~~~|
| #: 0 Active: F - Mining Level: 69; Mined: 1372; Coal: 1372; Mith: 0; Gained: 68600; Banked: 51; Location: Ladders Entering; Random: Lost;
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~/
issamawan
04-14-2008, 03:41 PM
hey yo how come ur thing isnt mining mith
it doesnt even think about clicking the mith
how shud i edit the script so it does at least bother looking at the mith?
besides that amazing
got 700 coa in one go
ill bring the proper proggy l8r,
issamawan
VivaLaRofl
04-14-2008, 03:52 PM
hey yo how come ur thing isnt mining mith
it doesnt even think about clicking the mith
how shud i edit the script so it does at least bother looking at the mith?
besides that amazing
got 700 coa in one go
ill bring the proper proggy l8r,
issamawan
Stop typing like a complete and utter imbeceil.
Ran for an hour and a bit, managed to mine around 649 ores. Progress report got owned since SCAR crashed :S.
issamawan
04-14-2008, 06:14 PM
Stop typing like a complete and utter imbeceil.
Ran for an hour and a bit, managed to mine around 649 ores. Progress report got owned since SCAR crashed :S.
imbeceil???:confused:
yo man this is how i type;)
i think imbeceil is pretty harsh...:(
anyways im not too sure ill be changing the way i type too quickly...,
issamawan
Minoizuri
04-14-2008, 11:12 PM
I have a problem when I start the script. It fails to compile and I get this error:
Line 2570: [Error] (15213:44): Type mismatch in script C:\Program Files\SCAR 3.15\Scripts\Runescape\GuildMiner 30 Release.scar
Griff
04-14-2008, 11:34 PM
where do i get gametab 4 update?
Dracody
04-15-2008, 03:58 AM
JuKKa I just wanted to say Thank You for a real good script , now im 99 mining , and well , thanks a lot , I wouldn't be able to do it without your script thanks :D
XRaye
04-15-2008, 04:24 AM
/~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
| JuKKas Guild Miner Script v3! |
|~~~~~~~~~~~~ Mining Report ~~~~~~~~~~~~~|
| Worked: 7 Minutes and 35 Seconds |
| Slept : 0 Minutes |
| Mined : 28 Coals |
| Mined : 0 Miths |
| Gained: 1400 Exp |
| Banked: 1 Loads |
|~~~~~~~~~~~~ Per Hour Report ~~~~~~~~~~~|
| Coals : 221 Per Hour |
| Miths : 0 Per Hour |
| Exp. : 11053 Per Hour |
| Banked: 8 Per Hour |
|~~~~~~~~~~~~~ Misc Report ~~~~~~~~~~~~~~|
| Banked: 0 Gems |
| Stouts: 0 Drank |
| Found : 0 Gasses |
| Responded: 0 Times |
| Broken: 0 Picks |
| Lost: 0 Heads |
| Lumby walks: 0 Times |
|~~~~~~~~~~~~ Players Report ~~~~~~~~~~~~|
| #: 0 Active: T - Mining Level: 71; Mined: 28; Coal: 28; Mith: 0; Gained: 1400; Banked: 1; Location: Bank; Random: ;
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~/
Flawless
EDIT:
/~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
| JuKKas Guild Miner Script v3! |
|~~~~~~~~~~~~ Mining Report ~~~~~~~~~~~~~|
| Worked: 18 Minutes and 48 Seconds |
| Slept : 0 Minutes |
| Mined : 83 Coals |
| Mined : 0 Miths |
| Gained: 4150 Exp |
| Banked: 3 Loads |
|~~~~~~~~~~~~ Per Hour Report ~~~~~~~~~~~|
| Coals : 265 Per Hour |
| Miths : 0 Per Hour |
| Exp. : 13233 Per Hour |
| Banked: 10 Per Hour |
|~~~~~~~~~~~~~ Misc Report ~~~~~~~~~~~~~~|
| Banked: 1 Gems |
| Stouts: 0 Drank |
| Found : 0 Gasses |
| Responded: 0 Times |
| Broken: 0 Picks |
| Lost: 0 Heads |
| Lumby walks: 0 Times |
|~~~~~~~~~~~~ Players Report ~~~~~~~~~~~~|
| #: 0 Active: T - Mining Level: 71; Mined: 83; Coal: 83; Mith: 0; Gained: 4150; Banked: 3; Location: Bank; Random: ;
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~/
I was watching it, it was going to bank because of full inventory, went up and back down the ladder 3-4 times, then i stopped it. Just thought i would let you know.
Some questions I have:
What does line 40 (UseLostDeath = True; //Use death & lost walk?) do?
What does line 41 (RepairBroken = True; //This does not work 100%) do?
Is there anyway i can make it so it will mine mith too?
What is a RC Master?
And Minoizuri, this script is for revision 14, I get the same error too if i use revision 15.
StrikerX
04-15-2008, 06:38 AM
What does line 40 (UseLostDeath = True; //Use death & lost walk?) do?
What does line 41 (RepairBroken = True; //This does not work 100%) do?
Is there anyway i can make it so it will mine mith too?
What is a RC Master?
Line 40 = If you get lost or you die it will walk back to the bank in fally
Line 41 = Repair your Broken Pickaxe
Mine Mith = P.M Jukka he might send you an older version of the script that mines Mith
Rc Master = http://www.villavu.com/forum/showthread.php?t=18786?t=20529&highlight=master
issamawan
04-15-2008, 12:06 PM
/~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
| JuKKas Guild Miner Script v3! |
|~~~~~~~~~~~~ Mining Report ~~~~~~~~~~~~~|
| Worked: 4 Hours, 20 Minutes and 0 Seconds|
| Slept : 0 Minutes |
| Mined : 1048 Coals |
| Mined : 0 Miths |
| Gained: 52400 Exp |
| Banked: 40 Loads |
|~~~~~~~~~~~~ Per Hour Report ~~~~~~~~~~~|
| Coals : 242 Per Hour |
| Miths : 0 Per Hour |
| Exp. : 12092 Per Hour |
| Banked: 9 Per Hour |
|~~~~~~~~~~~~~ Misc Report ~~~~~~~~~~~~~~|
| Banked: 7 Gems |
| Stouts: 0 Drank |
| Found : 2 Gasses |
| Responded: 13 Times |
| Broken: 1 Picks |
| Lost: 0 Heads |
| Lumby walks: 0 Times |
|~~~~~~~~~~~~ Players Report ~~~~~~~~~~~~|
| #: 0 Active: F - Mining Level: 73; Mined: 1048; Coal: 1048; Mith: 0; Gained: 52400; Banked: 40; Location: To Bank; Random: Lost;
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~/
/~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
| SRL 4 Randoms Report |
| www.srl-forums.com |
|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|
| Talks : 2 |
| Old Men : 1 |
| Certers Solved : 1 |
| Boxes Solved : 1 |
| Axes Fixed : 1 |
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~/
JuKKa
04-15-2008, 12:38 PM
To make it mine mith add this to ur player declaration:
Players[0].Booleans[1] := true;
else false.
Benson
04-15-2008, 02:18 PM
/~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
| JuKKas Guild Miner Script v3! |
|~~~~~~~~~~~~ Mining Report ~~~~~~~~~~~~~|
| Worked: 6 Hours, 0 Minutes and 18 Seconds|
| Slept : 0 Minutes |
| Mined : 1329 Coals |
| Mined : 0 Miths |
| Gained: 66450 Exp |
| Banked: 48 Loads |
|~~~~~~~~~~~~ Per Hour Report ~~~~~~~~~~~|
| Coals : 221 Per Hour |
| Miths : 0 Per Hour |
| Exp. : 11065 Per Hour |
| Banked: 8 Per Hour |
|~~~~~~~~~~~~~ Misc Report ~~~~~~~~~~~~~~|
| Banked: 11 Gems |
| Stouts: 0 Drank |
| Found : 1 Gasses |
| Responded: 0 Times |
| Broken: 0 Picks |
| Lost: 0 Heads |
| Lumby walks: 0 Times |
|~~~~~~~~~~~~ Players Report ~~~~~~~~~~~~|
| #: 0 Active: F - Mining Level: 70; Mined: 1329; Coal: 1329; Mith: 0; Gained: 66450; Banked: 48; Location: In Minings Guild; Random: Lost;
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~/
XRaye
04-15-2008, 03:25 PM
Thanks Strikerx25 and Jukka. So I have 10 rune picks in my bank, if i put repairbroken as false, and have my rune picks in the first bank slot, will it still get a new one out?
JuKKa
04-15-2008, 05:29 PM
Thanks Strikerx25 and Jukka. So I have 10 rune picks in my bank, if i put repairbroken as false, and have my rune picks in the first bank slot, will it still get a new one out?
Yes
Brain
04-15-2008, 07:05 PM
Hey Jukka, what is line 1672 all about?
I suggest that EVERYONE should look at line 1672
I found it to be very interesting.....
(and it's line 1672 on the default script, don't edit it at all, and make sure to scroll to the right a little ways. It is a very interesting mini Auto-Responder....)
I've just been curious about that little part of the script for a long time, it's been in there for awhile now ;)
Thanks for helping me.
Harry
04-15-2008, 07:11 PM
Idiot. You found his secret autoresponder. He uses it for his own use to see if a lvl 3 is using his script. Duh.
Brain
04-15-2008, 07:12 PM
but that means that ANYONE can use this to see if someone is using his script.
It's really not that hard to find....
Harry
04-15-2008, 07:16 PM
Well, no one noticed it until you pointed it out -_-
Brain
04-15-2008, 07:19 PM
I couldn't have been the only one to notice it...
In earlier versions of the script there was a seperate procedure for it named "B"
Or something like that.
zertunami
04-15-2008, 10:48 PM
Was running well until it got "lost" climbing the ladder.
/~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
| JuKKas Guild Miner Script v3! |
|~~~~~~~~~~~~ Mining Report ~~~~~~~~~~~~~|
| Worked: 4 Hours, 47 Minutes and 25 Seconds|
| Slept : 37 Minutes |
| Mined : 1083 Coals |
| Mined : 0 Miths |
| Gained: 54150 Exp |
| Banked: 40 Loads |
|~~~~~~~~~~~~ Per Hour Report ~~~~~~~~~~~|
| Coals : 226 Per Hour |
| Miths : 0 Per Hour |
| Exp. : 11303 Per Hour |
| Banked: 8 Per Hour |
|~~~~~~~~~~~~~ Misc Report ~~~~~~~~~~~~~~|
| Banked: 8 Gems |
| Stouts: 0 Drank |
| Found : 2 Gasses |
| Responded: 0 Times |
| Broken: 0 Picks |
| Lost: 0 Heads |
| Lumby walks: 0 Times |
|~~~~~~~~~~~~ Players Report ~~~~~~~~~~~~|
| #: 0 Active: T - Mining Level: 62; Mined: 1083; Coal: 1083; Mith: 0; Gained: 54150; Banked: 40; Location: Bank; Random: ;
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~/
| SRL 4 Randoms Report |
| www.srl-forums.com |
|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|
| SRL Logs : 4 |
| Fights : 1 |
| Talks : 2 |
| Old Men : 1 |
| Boxes Solved : 2 |
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~/
VivaLaRofl
04-15-2008, 11:07 PM
I have a problem when I start the script. It fails to compile and I get this error:
Line 2570: [Error] (15213:44): Type mismatch in script C:\Program Files\SCAR 3.15\Scripts\Runescape\GuildMiner 30 Release.scar
Change that line to:
InPin((Players[CurrentPlayer].Pin));
And you'll be fine.
XRaye
04-16-2008, 01:36 AM
I didn't know if you stopped it, it would not show you the proggy. Well i went to the airport and went out to eat and everything. Got 982 coal / 27 mith / 37 loads, then i stopped it when i got home.
/~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
| SRL 4 Randoms Report |
| www.srl-forums.com |
|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|
| Talks : 2 |
| Old Men : 1 |
| Certers Solved : 1 |
| Boxes Solved : 3 |
| Axes Fixed : 1 |
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~/
VivaLaRofl
04-16-2008, 09:30 AM
/~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
| JuKKas Guild Miner Script v3! |
|~~~~~~~~~~~~ Mining Report ~~~~~~~~~~~~~|
| Worked: 5 Hours, 59 Minutes and 58 Seconds|
| Slept : 0 Minutes |
| Mined : 1783 Coals |
| Mined : 0 Miths |
| Gained: 89150 Exp |
| Banked: 66 Loads |
|~~~~~~~~~~~~ Per Hour Report ~~~~~~~~~~~|
| Coals : 297 Per Hour |
| Miths : 0 Per Hour |
| Exp. : 14859 Per Hour |
| Banked: 11 Per Hour |
|~~~~~~~~~~~~~ Misc Report ~~~~~~~~~~~~~~|
| Banked: 47 Gems |
| Stouts: 0 Drank |
| Found : 5 Gasses |
| Responded: 4 Times |
| Broken: 0 Picks |
| Lost: 0 Heads |
| Lumby walks: 0 Times |
|~~~~~~~~~~~~ Players Report ~~~~~~~~~~~~|
| #: 0 Active: F - Mining Level: 1; Mined: 1783; Coal: 1783; Mith: 0; Gained: 89150; Banked: 66; Location: In Minings Guild; Random: Lost;
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~/
Woot.
issamawan
04-16-2008, 11:15 AM
/~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
| JuKKas Guild Miner Script v3! |
|~~~~~~~~~~~~ Mining Report ~~~~~~~~~~~~~|
| Worked: 6 Hours, 1 Minutes and 7 Seconds|
| Slept : 0 Minutes |
| Mined : 900 Coals |
| Mined : 125 Miths |
| Gained: 55000 Exp |
| Banked: 39 Loads |
|~~~~~~~~~~~~ Per Hour Report ~~~~~~~~~~~|
| Coals : 150 Per Hour |
| Miths : 21 Per Hour |
| Exp. : 9138 Per Hour |
| Banked: 6 Per Hour |
|~~~~~~~~~~~~~ Misc Report ~~~~~~~~~~~~~~|
| Banked: 10 Gems |
| Stouts: 0 Drank |
| Found : 319 Gasses |
| Responded: 0 Times |
| Broken: 0 Picks |
| Lost: 0 Heads |
| Lumby walks: 0 Times |
|~~~~~~~~~~~~ Players Report ~~~~~~~~~~~~|
| #: 0 Active: F - Mining Level: 74; Mined: 1025; Coal: 900; Mith: 125; Gained: 54680; Banked: 39; Location: In Minings Guild; Random: Lost;
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~/
/~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
| SRL 4 Randoms Report |
| www.srl-forums.com |
|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|
| Fights : 2 |
| Talks : 1 |
| Lamps Solved : 2 |
| Axes Fixed : 1 |
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~/
again nice script...also my thing doesnt go to sleep...everything is perfect in the settings
UseSleep = True; //Do u want the script to sleep?
HowLongSleep = 15; //In minutes.
RandomSleep = 5; //Random sleep in minutes.
anything else i shud change to make sure it sleeps???
its the second time after my other 6 hour run
it gets stuck in randoms,
issamawan
Keith102030
04-16-2008, 12:05 PM
Hey I would like to know why the script is always interrupted by random events?
I saw some proggies can run for 32 hours... and mine only 1 hour
StrikerX
04-16-2008, 12:09 PM
Hey I would like to know why the script is always interrupted by random events?
I saw some proggies can run for 32 hours... and mine only 1 hour
set sleep to every 5 runs for 1 minute you should get a proggie like mine
issamawan
04-16-2008, 12:57 PM
set sleep to every 5 runs for 1 minute you should get a proggie like mine
i have set a sleep thing same to urs...but my thing never sleeps!
sleep time=0
y?
everything is rite
true to sleep
5 minutes sleep
1min random time
perfect
but y?
plz help,
issamawan
Keith102030
04-16-2008, 01:42 PM
How to set sleep to every 5 runs for 1 minute ??
XRaye
04-16-2008, 03:04 PM
I found myself in al karad lol
Keith102030
04-16-2008, 03:46 PM
I've found that i cant log back in after the script slept for 1min.
The Scarscape window is not the foreground window so that my username cannot be typed.
chrsk13
04-17-2008, 03:00 AM
I am getting a type mismatch when I try to run it on line 2595. That line is: InPin(IntToStr(Players[CurrentPlayer].Pin));
Can you help me fix it? I'm not sure why it is doing that.
EDIT: I got it to run by removing the whole If find Pin part. I don't use Pins anyway so I think it shouldn't matter now.
EDIT: I have a new problem now. The script is running but the only thing the debug bow is showing is Warning in GameTab: 4 does not exist
VivaLaRofl
04-17-2008, 09:34 AM
I am getting a type mismatch when I try to run it on line 2595. That line is: InPin(IntToStr(Players[CurrentPlayer].Pin));
Can you help me fix it? I'm not sure why it is doing that.
EDIT: I got it to run by removing the whole If find Pin part. I don't use Pins anyway so I think it shouldn't matter now.
EDIT: I have a new problem now. The script is running but the only thing the debug bow is showing is Warning in GameTab: 4 does not exist
Theres a fix for InPin some pages back, like 1 or 2, posted by myself & someone else.
Anddon' worry about Gametab 4, theres nothing you can do about it.
issamawan
04-17-2008, 11:41 AM
I am getting a type mismatch when I try to run it on line 2595. That line is: InPin(IntToStr(Players[CurrentPlayer].Pin));
Can you help me fix it? I'm not sure why it is doing that.
EDIT: I got it to run by removing the whole If find Pin part. I don't use Pins anyway so I think it shouldn't matter now.
EDIT: I have a new problem now. The script is running but the only thing the debug bow is showing is Warning in GameTab: 4 does not exist
go to the link:
http://www.villavu.com/forum/showthread.php?t=28543?p=378281#post378281
and u got the pin problem bcoz u were using SRL Rev 15...u r meant to use 14
and cud someone plz help with the sleep problem???
i need to kno how to make my thing go to sleep,
issamawan
Keith102030
04-17-2008, 12:02 PM
Can someone teach me how to modify the script so that it can click the black region outside the scarscape application before logging in
I cant log in without that click after the script sleeps.
Benson
04-18-2008, 02:03 PM
was working fine for about 2 weeks now i cant get more then 6 loads in. it either gets lost at bank or at ladders ect ect.
any sugestions? ill run it tonight and watch what happens with it.
Griff
04-18-2008, 08:40 PM
i tried to run it and i got this:
Line 2570: [Error] (15213:44): Type mismatch in script
zertunami
04-18-2008, 11:38 PM
i tried to run it and i got this:
Line 2570: [Error] (15213:44): Type mismatch in script
Use rev 14.
StrikerX
04-19-2008, 04:17 AM
go to the link:
http://www.villavu.com/forum/showthread.php?t=28543?p=378281#post378281
and u got the pin problem bcoz u were using SRL Rev 15...u r meant to use 14
and cud someone plz help with the sleep problem???
i need to kno how to make my thing go to sleep,
issamawan
HowManyLoads = 5; //How Many Loads Per Player?
HowLongSleep = 2; //In minutes.
RandomSleep = 1; //Random sleep in minutes.
try that
Iced_Liquid
04-19-2008, 04:33 AM
Line 2570: [Error] (15213:44): Type mismatch in script
2xpnsv
04-20-2008, 07:20 AM
heres two different progess reports... this is my first chance to post them
/~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
| JuKKas Guild Miner Script v3! |
|~~~~~~~~~~~~ Mining Report ~~~~~~~~~~~~~|
| Worked: 2 Hours, 8 Minutes and 9 Seconds|
| Slept : 0 Minutes |
| Mined : 529 Coals |
| Mined : 0 Miths |
| Gained: 26450 Exp |
| Banked: 20 Loads |
|~~~~~~~~~~~~ Per Hour Report ~~~~~~~~~~~|
| Coals : 248 Per Hour |
| Miths : 0 Per Hour |
| Exp. : 12382 Per Hour |
| Banked: 9 Per Hour |
|~~~~~~~~~~~~~ Misc Report ~~~~~~~~~~~~~~|
| Banked: 2 Gems |
| Stouts: 0 Drank |
| Found : 1 Gasses |
| Responded: 13 Times |
| Broken: 0 Picks |
| Lost: 0 Heads |
| Lumby walks: 0 Times |
|~~~~~~~~~~~~ Players Report ~~~~~~~~~~~~|
| #: 0 Active: T - Mining Level: 67; Mined: 529; Coal: 529; Mith: 0; Gained: 26450; Banked: 20; Location: Bank; Random: ;
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~/
NextPlayer
/~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
| JuKKas Guild Miner Script v3! |
|~~~~~~~~~~~~ Mining Report ~~~~~~~~~~~~~|
| Worked: 2 Hours, 4 Minutes and 39 Seconds|
| Slept : 0 Minutes |
| Mined : 514 Coals |
| Mined : 0 Miths |
| Gained: 25700 Exp |
| Banked: 20 Loads |
|~~~~~~~~~~~~ Per Hour Report ~~~~~~~~~~~|
| Coals : 247 Per Hour |
| Miths : 0 Per Hour |
| Exp. : 12369 Per Hour |
| Banked: 10 Per Hour |
|~~~~~~~~~~~~~ Misc Report ~~~~~~~~~~~~~~|
| Banked: 1 Gems |
| Stouts: 0 Drank |
| Found : 2 Gasses |
| Responded: 1 Times |
| Broken: 0 Picks |
| Lost: 0 Heads |
| Lumby walks: 0 Times |
|~~~~~~~~~~~~ Players Report ~~~~~~~~~~~~|
| #: 0 Active: T - Mining Level: 69; Mined: 514; Coal: 514; Mith: 0; Gained: 25700; Banked: 20; Location: Bank; Random: ;
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~/
NextPlayer
JuKKa
04-20-2008, 07:49 AM
/~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
| JuKKas Guild Miner Script v3,1! |
|~~~~~~~~~~~~ Mining Report ~~~~~~~~~~~~~|
| Worked: 7 Hours, 59 Minutes and 25 Seconds|
| Slept : 49 Minutes |
| Mined : 1847 Coals |
| Mined : 0 Miths |
| Gained: 92350 Exp |
| Banked: 71 Loads |
|~~~~~~~~~~~~ Per Hour Report ~~~~~~~~~~~|
| Coals : 231 Per Hour |
| Miths : 0 Per Hour |
| Exp. : 11557 Per Hour |
| Banked: 9 Per Hour |
|~~~~~~~~~~~~~ Misc Report ~~~~~~~~~~~~~~|
| Banked: 15 Gems |
| Stouts: 0 Drank |
| Found : 7 Gasses |
| Responded: 0 Times |
| Broken: 0 Picks |
| Lost: 0 Heads |
| Lumby walks: 0 Times |
|~~~~~~~~~~~~ Players Report ~~~~~~~~~~~~|
| #: 0 Active: F - Mining Level: 73; Mined: 1847; Coal: 1847; Mith: 0; Gained: 92350; Banked: 71; Location: In Minings Guild; Random: Sandwich Lady;
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~/
issamawan
04-20-2008, 12:54 PM
HowManyLoads = 5; //How Many Loads Per Player?
HowLongSleep = 2; //In minutes.
RandomSleep = 1; //Random sleep in minutes.
try that
thnx striker,
issamawan
zertunami
04-20-2008, 08:19 PM
/~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
| JuKKas Guild Miner Script v3! |
|~~~~~~~~~~~~ Mining Report ~~~~~~~~~~~~~|
| Worked: 4 Hours, 31 Minutes and 3 Seconds|
| Slept : 14 Minutes |
| Mined : 1006 Coals |
| Mined : 0 Miths |
| Gained: 50300 Exp |
| Banked: 39 Loads |
|~~~~~~~~~~~~ Per Hour Report ~~~~~~~~~~~|
| Coals : 223 Per Hour |
| Miths : 0 Per Hour |
| Exp. : 11134 Per Hour |
| Banked: 9 Per Hour |
|~~~~~~~~~~~~~ Misc Report ~~~~~~~~~~~~~~|
| Banked: 7 Gems |
| Stouts: 0 Drank |
| Found : 7 Gasses |
| Responded: 0 Times |
| Broken: 1 Picks |
| Lost: 0 Heads |
| Lumby walks: 0 Times |
|~~~~~~~~~~~~ Players Report ~~~~~~~~~~~~|
| #: 0 Active: F - Mining Level: 64; Mined: 1006; Coal: 1006; Mith: 0; Gained: 50300; Banked: 39; Location: To Bank; Random: Mordaut;
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~/
NextPlayer
/~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
| SRL 4 Randoms Report |
| www.srl-forums.com |
|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|
| SRL Logs : 7 |
| Talks : 2 |
| Old Men : 1 |
| Lamps Solved : 2 |
| Boxes Solved : 2 |
| Axes Fixed : 1 |
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~/
Mordaut random stopped it.
Shady?
04-21-2008, 01:11 AM
Hey, while walking from lumby to FEB, it wont go through fallador south gate, it just stops near the guards there and i get the error "could not find water color" is this a problem from the script or is it my autocolor.scar?
Daniel
04-24-2008, 09:33 AM
Hey, while walking from lumby to FEB, it wont go through fallador south gate, it just stops near the guards there and i get the error "could not find water color" is this a problem from the script or is it my autocolor.scar?
That is probably because of the new auto colour beta.
Anyway, JuKKa, good script. You might want to fix some things that i noticed, such as starting errors. But all is good. Here is my progress report (Single Player):
/~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
| JuKKas Guild Miner Script v3! |
|~~~~~~~~~~~~ Mining Report ~~~~~~~~~~~~~|
| Worked: 2 Hours, 26 Minutes and 49 Seconds|
| Slept : 0 Minutes |
| Mined : 595 Coals |
| Mined : 0 Miths |
| Gained: 29750 Exp |
| Banked: 26 Loads |
|~~~~~~~~~~~~ Per Hour Report ~~~~~~~~~~~|
| Coals : 243 Per Hour |
| Miths : 0 Per Hour |
| Exp. : 12157 Per Hour |
| Banked: 11 Per Hour |
|~~~~~~~~~~~~~ Misc Report ~~~~~~~~~~~~~~|
| Banked: 3 Gems |
| Stouts: 0 Drank |
| Found : 0 Gasses |
| Responded: 1 Times |
| Broken: 0 Picks |
| Lost: 0 Heads |
| Lumby walks: 0 Times |
|~~~~~~~~~~~~ Players Report ~~~~~~~~~~~~|
| #: 0 Active: F - Mining Level: 69; Mined: 595; Coal: 595; Mith: 0; Gained: 29750; Banked: 26; Location: In Minings Guild; Random: Lost;
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~/
And the Randoms Report:
/~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
| SRL 4 Randoms Report |
| www.srl-forums.com |
|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|
| Talks : 2 |
| Sandwiches : 1 |
| Boxes Solved : 1 |
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~/
Also, ScarScape wasn't working for me, so i used the Normal Client and it worked fine.
Shady?
04-24-2008, 02:47 PM
/----------------------------------------\
| JuKKas Guild Miner Script! |
|------------ Mining Report -------------|
| Worked: 9 Hours, 40 Minutes and 30 Seconds|
| Mined : 2152 Coals |
| Mined : 182 Miths |
| Gained: 112331 Exp |
| Banked: 87 Loads |
|------------ Per Hour Report -----------|
| Coals : 221.125272670614 Per Hour |
| Miths : 19.2583359301963 Per Hour |
| Exp. : 12535.953459464 Per Hour |
| Banked: 8.73475449174198 Per Hour |
|------------- Misc Report --------------|
| Banked: 47 Gems |
| Stouts: 0 Drank |
| Found : 7 Gasses |
| Responded: 0 Times |
| Broken: 0 Picks |
| Lost: 0 Heads |
|------------ Players Report ------------|
| #: 0 Active: T - Mining Level: **; Coal: 2152; Mith: 182; Gained: 112331; Banked: 87; Location: Bank;
\----------------------------------------/
/~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
| SRL 4 Randoms Report |
| <a href="http://www.srl-forums.com" target="_blank">www.srl-forums.com</a> |
|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|
| SRL Logs : 30 |
| Fights : 22 |
| Talks : 6 |
| Dwarfs : 3 |
| Sandwiches : 3 |
| Lamps Solved : 3 |
| Frog Solved : 1 |
| Boxes Solved : 4 |
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~/
curiousgeorge322
04-25-2008, 01:24 AM
When it tries to log in to Scarscape, the screen just turns white and doesn't load any further...
Vapor
04-25-2008, 02:22 AM
The white screen is not from the script its supose to be scarscape I think its a major problem and alot of people got this white thing
Timer
04-25-2008, 02:41 AM
Vapor, Want The SMART Version..? All That Want It. PM Me.
Daniel
04-25-2008, 06:08 AM
Vapor, Want The SMART Version..? All That Want It. PM Me.
Can i have it :p
jamesh1002
04-25-2008, 11:17 AM
Scarscape isn't working for me. As soon as I log in, the screen turns white. Any solutions?
Shady?
04-26-2008, 01:35 AM
White screenie is showing up for me also.
Baked0420
04-26-2008, 01:51 AM
very good script, running it at the moment, the only thing I kinda don't like is that there was no coal on the screen when I had only mined 4 and it went and banked them, but it's not a big deal. But while running back to the ladder I passed some coal rocks, maybe next update, if you do update again, you could have it check for rocks while running to ladder or once it gets to the ladder.
Baked0420
04-26-2008, 02:43 AM
I lost road color in the middle of going back to bank but the proggy I got was
/~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
| JuKKas Guild Miner Script v3! |
|~~~~~~~~~~~~ Mining Report ~~~~~~~~~~~~~|
| Worked: 36 Minutes and 44 Seconds |
| Slept : 0 Minutes |
| Mined : 120 Coals |
| Mined : 0 Miths |
| Gained: 6000 Exp |
| Banked: 6 Loads |
|~~~~~~~~~~~~ Per Hour Report ~~~~~~~~~~~|
| Coals : 196 Per Hour |
| Miths : 0 Per Hour |
| Exp. : 9796 Per Hour |
| Banked: 10 Per Hour |
|~~~~~~~~~~~~~ Misc Report ~~~~~~~~~~~~~~|
| Banked: 0 Gems |
| Stouts: 0 Drank |
| Found : 0 Gasses |
| Responded: 0 Times |
| Broken: 0 Picks |
| Lost: 0 Heads |
| Lumby walks: 0 Times |
|~~~~~~~~~~~~ Players Report ~~~~~~~~~~~~|
| #: 0 Active: F - Mining Level: 65; Mined: 120; Coal: 120; Mith: 0; Gained: 6000; Banked: 6; Location: Ladders To Bank...; Random: Lost;
| #: 1 Active: T - Mining Level: 0; Mined: 0; Coal: 0; Mith: 0; Gained: 0; Banked: 0; Location: ; Random: ;
| #: 2 Active: T - Mining Level: 0; Mined: 0; Coal: 0; Mith: 0; Gained: 0; Banked: 0; Location: ; Random: ;
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~/
and the random report was
/~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
| SRL 4 Randoms Report |
| www.srl-forums.com |
|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|
| Boxes Solved : 1 |
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~/
I paused the script to write this and now my second guy got skipped, but I'll post the next proggy in the morning. (game logged 2nd guy out from not using him)
EDIT: sorry for the double post
2xpnsv
04-26-2008, 12:35 PM
ohk first.. i got banned using this script BAHAH ROFL!!! anyways it wont mine mith for me...... other den those problems.. best script EVER used!!
benjaa
04-26-2008, 01:10 PM
Jukka...is....da...man....
Ive been using this script for a while
Works soo well
Still gets lost, but recovers MOST of the time
++Use this script++ !!!!
JuKKa
04-26-2008, 01:44 PM
Vapor, Want The SMART Version..? All That Want It. PM Me.
Didnt i already say this...
I DONT WANT TO HEAR A WORD ABOUT SMART ON THIS THREAD!
xthxbai
Baked0420
04-26-2008, 01:50 PM
won't mine mithril for me either but I left it running last night here's the proggy
/~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
| JuKKas Guild Miner Script v3! |
|~~~~~~~~~~~~ Mining Report ~~~~~~~~~~~~~|
| Worked: 6 Hours, 1 Minutes and 15 Seconds|
| Slept : 0 Minutes |
| Mined : 1560 Coals |
| Mined : 0 Miths |
| Gained: 78000 Exp |
| Banked: 64 Loads |
|~~~~~~~~~~~~ Per Hour Report ~~~~~~~~~~~|
| Coals : 259 Per Hour |
| Miths : 0 Per Hour |
| Exp. : 12954 Per Hour |
| Banked: 11 Per Hour |
|~~~~~~~~~~~~~ Misc Report ~~~~~~~~~~~~~~|
| Banked: 7 Gems |
| Stouts: 0 Drank |
| Found : 1 Gasses |
| Responded: 0 Times |
| Broken: 0 Picks |
| Lost: 0 Heads |
| Lumby walks: 0 Times |
|~~~~~~~~~~~~ Players Report ~~~~~~~~~~~~|
| #: 0 Active: F - Mining Level: 65; Mined: 1560; Coal: 1560; Mith: 0; Gained: 78000; Banked: 64; Location: In Minings Guild; Random: Lost;
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~/
/~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
| SRL 4 Randoms Report |
| www.srl-forums.com |
|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|
| Fights : 2 |
| Talks : 4 |
| Old Men : 1 |
| Lamps Solved : 4 |
| Capn Hand[s] : 1 |
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~/
nice script, didn't get banned, bout to run it again.
EDIT: oh yea, I got an error with the bank pin part, it said type mismatch I think but I just took it out because I don't have a pin for my bank so it didn't affect me at all.
JuKKa
04-26-2008, 02:21 PM
yeh.
About the mithril add this to ur player declaration:
Players[0].Booleans[1] := True
Baked0420
04-26-2008, 02:39 PM
ok, thank you, I figured I just went through the script to fast so I missed somewhere where I had to set it to true for mithril or something like that at first.
Shady?
04-26-2008, 05:51 PM
Jukka, do you know anything about the "could not find water color" error im getting?
Rubenos
04-26-2008, 08:26 PM
ScarScape is keep turning white when loggin in? How to fix this?
Baked0420
04-26-2008, 08:35 PM
ScarScape is keep turning white when loggin in? How to fix this?
I just used the normal client window and it did fine for i think 6 hours and something minutes.... i can't remember exactly, if you look up a few posts you'll see my proggy and how well it did w/o using scarscape.
Vapor
04-27-2008, 03:19 AM
What revision and SCAR I should use for this script?
NoobNeedHelp
04-27-2008, 09:34 AM
Also scarscape does same to me so I cant make it use sleep options.
PS.
It didnt stop for any reason either it was at the ladders with full load inside guild.
/~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
| JuKKas Guild Miner Script v3! |
|~~~~~~~~~~~~ Mining Report ~~~~~~~~~~~~~|
| Worked: 5 Hours, 44 Minutes and 21 Seconds|
| Slept : 0 Minutes |
| Mined : 1247 Coals |
| Mined : 0 Miths |
| Gained: 62350 Exp |
| Banked: 50 Loads |
|~~~~~~~~~~~~ Per Hour Report ~~~~~~~~~~~|
| Coals : 217 Per Hour |
| Miths : 0 Per Hour |
| Exp. : 10863 Per Hour |
| Banked: 9 Per Hour |
|~~~~~~~~~~~~~ Misc Report ~~~~~~~~~~~~~~|
| Banked: 8 Gems |
| Stouts: 0 Drank |
| Found : 3 Gasses |
| Responded: 18 Times |
| Broken: 0 Picks |
| Lost: 0 Heads |
| Lumby walks: 0 Times |
|~~~~~~~~~~~~ Players Report ~~~~~~~~~~~~|
| #: 0 Active: F - Mining Level: 72; Mined: 1247; Coal: 1247; Mith: 0; Gained: 62350; Banked: 50; Location: Ladders Entering; Random: Lost;
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~/
/~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
| SRL 4 Randoms Report |
| www.srl-forums.com |
|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|
| Fights : 1 |
| Talks : 2 |
| Capn Hand[s] : 1 |
| Boxes Solved : 1 |
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~/
Rubenos
04-27-2008, 11:17 AM
Hmm, strange, can't find it? Which page is it on?
Whakey
04-27-2008, 11:29 AM
/~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
| JuKKas Guild Miner Script v3! |
|~~~~~~~~~~~~ Mining Report ~~~~~~~~~~~~~|
| Worked: 3 Hours, 13 Minutes and 16 Seconds|
| Slept : 12 Minutes |
| Mined : 715 Coals |
| Mined : 0 Miths |
| Gained: 35750 Exp |
| Banked: 32 Loads |
|~~~~~~~~~~~~ Per Hour Report ~~~~~~~~~~~|
| Coals : 222 Per Hour |
| Miths : 0 Per Hour |
| Exp. : 11098 Per Hour |
| Banked: 10 Per Hour |
|~~~~~~~~~~~~~ Misc Report ~~~~~~~~~~~~~~|
| Banked: 3 Gems |
| Stouts: 0 Drank |
| Found : 0 Gasses |
| Responded: 6 Times |
| Broken: 0 Picks |
| Lost: 0 Heads |
| Lumby walks: 0 Times |
|~~~~~~~~~~~~ Players Report ~~~~~~~~~~~~|
| #: 0 Active: F - Mining Level: 62; Mined: 715; Coal: 715; Mith: 0; Gained: 35750; Banked: 32; Location: Ladders Entering; Random: Lost;
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~/
Awesome script is awesome, but it stopped for no reason :((
It was outside Mining guild in the ladders, and yelled this error:
Could not find Road Color!
Srl-report:
/~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
| SRL 4 Randoms Report |
| www.srl-forums.com |
|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|
| SRL Logs : 6 |
| Fights : 2 |
| Talks : 1 |
| Lamps Solved : 2 |
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~/
Baked0420
04-27-2008, 03:31 PM
i added what you said Jukka and I got some mtihril this time,
/~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
| JuKKas Guild Miner Script v3! |
|~~~~~~~~~~~~ Mining Report ~~~~~~~~~~~~~|
| Worked: 2 Hours, 10 Minutes and 40 Seconds|
| Slept : 0 Minutes |
| Mined : 487 Coals |
| Mined : 13 Miths |
| Gained: 25390 Exp |
| Banked: 18 Loads |
|~~~~~~~~~~~~ Per Hour Report ~~~~~~~~~~~|
| Coals : 224 Per Hour |
| Miths : 6 Per Hour |
| Exp. : 11657 Per Hour |
| Banked: 8 Per Hour |
|~~~~~~~~~~~~~ Misc Report ~~~~~~~~~~~~~~|
| Banked: 2 Gems |
| Stouts: 0 Drank |
| Found : 1 Gasses |
| Responded: 0 Times |
| Broken: 0 Picks |
| Lost: 0 Heads |
| Lumby walks: 0 Times |
|~~~~~~~~~~~~ Players Report ~~~~~~~~~~~~|
| #: 0 Active: F - Mining Level: 67; Mined: 500; Coal: 487; Mith: 13; Gained: 25310; Banked: 18; Location: Ladders To Bank...; Random: Lost;
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~/
/~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
| SRL 4 Randoms Report |
| www.srl-forums.com |
|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|
| Talks : 2 |
| Dwarfs : 1 |
| Frog Solved : 1 |
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~/
Line 2570: [Error] (15213:44): Type mismatch in script C:\Documents and Settings\Owner\Desktop\GuildMiner 30 Release.scar
thats the error i get.
fixes?
EDT:
InPin(IntToStr(Players[CurrentPlayer].Pin));
thats whats on the line it says the error occured on.
Baked0420
04-27-2008, 10:09 PM
I got that too, if you don't have a bank pin you can jus delete lines.... hold on I need to get his old script (his script with bank pin in it where it has it to tell you, I'll edit this in one second.
EDIT: Just delete lines 2568-3572 if you don't have a bank pin, that's his procedure for entering a pin if you have one. Just so you don't accidently delete anything extra this is what you're supposed to be deleting.
If(PinScreen)Then
Begin
InPin(IntToStr(Players[CurrentPlayer].Pin));
Wait(500+Random(250));
End;
If you have a bank pin though then don't delete it, ask somone how to fix it.
EDIT2:oh yea, I wrote and then forgot what I wanted to say, then just completely forgot I came here for a reason after helping the person above me, but anway, how do you know where the genie lamp exp. is going to, I saw on my SRL stats I had 4 solved and I think they're from your script, Jukka, but either way it made me think bout it, I tried looking through your script for it but can't find it, if you or anyone knows please tell me, also is there a way to set it for where you want it to go with your script, because I don't think your script has the code, FindLamp('');.
EDIT3:I thougth your script made me lose my pick axe, but I found it in my bank broken, your script told me to tell you
(18:16:49): NoPick!
(18:16:50): Error, Tell Jukka to update his DTMS
Successfully executed
but it was only broken so I don't think you need to update it, but I was gonna tele to lumby but then I remembered Normof could fix it (didn't know his name till I got there), but for your next update you could have something where if the pick axe brakes then it opens the bank, takes out 1,100 gp and goes to him to fix it then goes through guild door and continues mining, I don't know if that'd be too hard but it doesn't seem it.
and should I raise the gastolerance so my pick doesn't brake again?? if so by how much?
Shady?
04-28-2008, 02:11 AM
Line 2570: [Error] (15213:44): Type mismatch in script C:\Documents and Settings\Owner\Desktop\GuildMiner 30 Release.scar
thats the error i get.
fixes?
EDT:
InPin(IntToStr(Players[CurrentPlayer].Pin));
thats whats on the line it says the error occured on.
This is due to your srl version, try to change it to:
InPin((Players[CurrentPlayer].Pin));
and to set your PIN number, in your DeclarePlayers use this
Players[0].Pin := '0000';
now when the PIN screen is on, it might look as it wont put the pin in, but after 5-10 seconds it does.
Shady?
04-28-2008, 02:20 AM
how do you know where the genie lamp exp. is going to, I saw on my SRL stats I had 4 solved and I think they're from your script, Jukka, but either way it made me think bout it, I tried looking through your script for it but can't find it, if you or anyone knows please tell me, also is there a way to set it for where you want it to go with your script, because I don't think your script has the code, FindLamp('');.
i think you could just add that to your Constants?
Baked0420
04-28-2008, 02:26 AM
ehh i don't wanna mess it up...I'll just let it do what ever it was doing already
Shady?
04-29-2008, 04:42 PM
/~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
| JuKKas Guild Miner Script v3! |
| Timer's SMART Version - Updated |
|~~~~~~~~~~~~ Mining Report ~~~~~~~~~~~~~|
| Worked: 20 Hours, 41 Minutes and 30 Seconds|
| Slept : 0 Minutes |
| Mined : 4460 Coals |
| Mined : 220 Miths |
| Gained: 240600 Exp |
| Banked: 232 Loads |
|~~~~~~~~~~~~ Per Hour Report ~~~~~~~~~~~|
| Coals : 235 Per Hour |
| Miths : 10 Per Hour |
| Exp. : 10568 Per Hour |
| Banked: 13 Per Hour |
|~~~~~~~~~~~~~ Misc Report ~~~~~~~~~~~~~~|
| Banked:256 Gems |
| Stouts: 0 Drank |
| Found : 90 Gasses |
| Responded: 67 Times |
| Broken: 0 Picks |
| Lost: 0 Heads |
| Lumby walks: 0 Times |
|~~~~~~~~~~~~ Players Report ~~~~~~~~~~~~|
| #: 0 Active: F - Mining Level: **; Mined: 4680; Coal: 4460; Mith: 220; Gained: 240600; Banked: 232; Location: Ladders To Bank...; Random: Lost;
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~/
/~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
| SRL 4 Randoms Report |
| www.srl-forums.com |
|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|
| Fights : 12 |
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~/
Whakey
04-29-2008, 06:09 PM
HOw the hell? IN single player? I get max 3hrs if I dont intervene
Unohdus
04-29-2008, 10:45 PM
- Script needs some update
- Your scarscape is not working with P2P
popoaoa
04-30-2008, 06:39 AM
When i get onto ScarScape The Runescape Login Page Loads, However after i log in and it should be going to the black page with the rectangles it just goes blank. Here is the error it had in my Java Console:
Error: ib.C({...},4) ie.D(false) client.D(true) rg.O(false) | ib:277 ie:469 client:276 rg:201 rg:729 java.lang.Thread.run | java.lang.ArrayIndexOutOfBoundsException: 0
Any ideas?
dallas574
04-30-2008, 08:24 PM
Thanks for this script
Rouge_Ling
05-01-2008, 03:42 AM
Line 2570: [Error] (15213:39) : Unknown identifier 'Pin' in script C:\Users\BLANK\Desktop\GuildMiner 30 Release.scar
What do I do?
Oh by the way im using Scar Divi 3.15 and SRL Revision #16
Also, I have the same error on ScarScape as popoaoa
I bypassed earlier problem by totaly deleting the Pin part of the bank loop wich is workable for me since i dont have a pin, but now every time it goes in the mine it'l get like a half load then since there is no more visible coal on the screen, then it goes back to the bank and repeats the entire process, sometimes mining more, sometimes less but never a full load, which i think makes it look like a autoer.
Is there anyway you could edit to make it like, go to a different part on the minimap or rotate the camera?
And because im not able to use ScarScape i have to use regular Runescape, is that what might be causing any of the above problems, or cause even more?
Shady?
05-01-2008, 06:42 PM
very good script, running it at the moment, the only thing I kinda don't like is that there was no coal on the screen when I had only mined 4 and it went and banked them, but it's not a big deal. But while running back to the ladder I passed some coal rocks, maybe next update, if you do update again, you could have it check for rocks while running to ladder or once it gets to the ladder.
Look up the line 1900 and you will see something like this:
FTWait(1);
CoalSearches:= CoalSearches + 1;
right under that add this code:
If(CoalSearches >= 5)Then
begin
Mouse(626, 102, 30, 30, True);
Wait(2000+Random(5000));
end;
NOTE:
This will NOT make it look for coal while walking, and i bet its NOT the best way to do it, but it will fix your "no coal on screen.." problem.
Timer
05-01-2008, 08:37 PM
Heh, 20hr proggie from my smart version... nice... :D
Shady?
05-02-2008, 01:24 AM
Heh, 20hr proggie from my smart version... nice... :D
Yeh, actually i used my smart version, i just compared it with yours and we had edited the same things so.. thanks for ur script anyway. Plus i added some st00f to my version of this great script developed by JuKKa, like a jewel cutter. Its not very usefull, but since my bank is full because i run out of membership i cant bank uncuts, so its great for me.
You 2 guys rock, JuKKa for this script
and Timer for his | Timer's SMART Version - Updated |
Baked0420
05-02-2008, 02:56 AM
Look up the line 1900 and you will see something like this:
FTWait(1);
CoalSearches:= CoalSearches + 1;
right under that add this code:
If(CoalSearches >= 5)Then
begin
Mouse(626, 102, 30, 30, True);
Wait(2000+Random(5000));
end;
NOTE:
This will NOT make it look for coal while walking, and i bet its NOT the best way to do it, but it will fix your "no coal on screen.." problem.
TYSM for posting that, that was like the only thing that kinda bugged me about the script was it doesn't search again after walking, I put it in script, bout to run the script with it in there now, thanks again, hopefully works. It looks good though.
Shady?
05-02-2008, 05:57 PM
No problem, im here to help =)
thebob142
05-02-2008, 10:10 PM
Jukka it will log into scarscape but after that screen goes white and it freezes up what should i do???:confused:
Unohdus
05-03-2008, 12:08 AM
Timer <3 Thanks :)
Works great, but sometimes it banks like after 5ores mined.
Shady?
05-03-2008, 12:34 AM
Jukka it will log into scarscape but after that screen goes white and it freezes up what should i do???:confused:
SS needs to be updated ATM, by now use it with the regular client, or you could try to fix ss yourself if you know how to :P
Shady?
05-03-2008, 08:15 AM
Timer <3 Thanks :)
Works great, but sometimes it banks like after 5ores mined.
try this: http://www.srl-forums.com/forum/srl-ss-jukkas-t19518p81.html#1617
/~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
| JuKKas Guild Miner Script v3! |
|~~~~~~~~~~~~ Mining Report ~~~~~~~~~~~~~|
| Worked: 4 Hours, 38 Minutes and 29 Seconds|
| Slept : 0 Minutes |
| Mined : 1092 Coals |
| Mined : 40 Miths |
| Gained: 57800 Exp |
| Banked: 43 Loads |
|~~~~~~~~~~~~ Per Hour Report ~~~~~~~~~~~|
| Coals : 235 Per Hour |
| Miths : 9 Per Hour |
| Exp. : 12452 Per Hour |
| Banked: 9 Per Hour |
|~~~~~~~~~~~~~ Misc Report ~~~~~~~~~~~~~~|
| Banked: 69 Gems |
| Stouts: 0 Drank |
| Found : 68 Gasses |
| Responded: 19 Times |
| Broken: 0 Picks |
| Lost: 0 Heads |
| Lumby walks: 0 Times |
|~~~~~~~~~~~~ Players Report ~~~~~~~~~~~~|
| #: 0 Active: F - Mining Level: **; Mined: 1132; Coal: 1092; Mith: 40; Gained: 57560; Banked: 43; Location: In Minings Guild; Random: Certer;
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~/
/~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
| SRL 4 Randoms Report |
| www.srl-forums.com |
|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|
| Talks : 4 |
| Dwarfs : 1 |
| Old Men : 1 |
| Lamps Solved : 2 |
| Certers Missed : 1 |
| Boxes Solved : 2 |
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~/
kevinlow
05-04-2008, 07:52 PM
can we use the normal runescape window, because my Scarscape isnt working
q3ick
05-04-2008, 08:20 PM
No, you cant. IT WILL NOT WORK AT ALL! Due to the fact that the script is scripted for scarscape only.
Shady?
05-04-2008, 10:22 PM
No, you cant. IT WILL NOT WORK AT ALL! Due to the fact that the script is scripted for scarscape only.
why dont you just try it before you talk bs?
maskedmous
05-05-2008, 06:32 AM
No, you cant. IT WILL NOT WORK AT ALL! Due to the fact that the script is scripted for scarscape only.
there is nothing wrong with using normal client
it works fine
this is with NORMAL client
/~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
| JuKKas Guild Miner Script v3! |
|~~~~~~~~~~~~ Mining Report ~~~~~~~~~~~~~|
| Worked: 5 Hours, 58 Minutes and 41 Seconds|
| Slept : 0 Minutes |
| Mined : 1670 Coals |
| Mined : 0 Miths |
| Gained: 83500 Exp |
| Banked: 67 Loads |
|~~~~~~~~~~~~ Per Hour Report ~~~~~~~~~~~|
| Coals : 279 Per Hour |
| Miths : 0 Per Hour |
| Exp. : 13967 Per Hour |
| Banked: 11 Per Hour |
|~~~~~~~~~~~~~ Misc Report ~~~~~~~~~~~~~~|
| Banked: 42 Gems |
| Stouts: 0 Drank |
| Found : 4 Gasses |
| Responded: 0 Times |
| Broken: 0 Picks |
| Lost: 0 Heads |
| Lumby walks: 0 Times |
|~~~~~~~~~~~~ Players Report ~~~~~~~~~~~~|
| #: 0 Active: F - Mining Level: 72; Mined: 1670; Coal: 1670; Mith: 0; Gained: 83500; Banked: 67; Location: In Minings Guild; Random: Lost;
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~/
Shady?
05-05-2008, 11:18 PM
WITH NORMAL CLIENT
/~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
| JuKKas Guild Miner Script v3! |
|~~~~~~~~~~~~ Mining Report ~~~~~~~~~~~~~|
| Worked: 5 Hours, 59 Minutes and 17 Seconds|
| Slept : 0 Minutes |
| Mined : 1306 Coals |
| Mined : 61 Miths |
| Gained: 70180 Exp |
| Banked: 55 Loads |
|~~~~~~~~~~~~ Per Hour Report ~~~~~~~~~~~|
| Coals : 218 Per Hour |
| Miths : 10 Per Hour |
| Exp. : 11719 Per Hour |
| Banked: 9 Per Hour |
|~~~~~~~~~~~~~ Misc Report ~~~~~~~~~~~~~~|
| Banked: 164 Gems |
| Stouts: 0 Drank |
| Found : 107 Gasses |
| Responded: 5 Times |
| Broken: 0 Picks |
| Lost: 0 Heads |
| Lumby walks: 0 Times |
|~~~~~~~~~~~~ Players Report ~~~~~~~~~~~~|
| #: 0 Active: F - Mining Level: **; Mined: 1367; Coal: 1306; Mith: 61; Gained: 70180; Banked: 55; Location: Ladders Entering; Random: Lost;
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~/
/~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
| SRL 4 Randoms Report |
| www.srl-forums.com |
|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|
| Fights : 1 |
| Talks : 3 |
| Old Men : 1 |
| Certers Solved : 2 |
| Boxes Solved : 2 |
| Axes Fixed : 1 |
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~/
Digger
05-06-2008, 01:50 AM
normal client: (scarscape didn't start)
/~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
| JuKKas Guild Miner Script v3! |
|~~~~~~~~~~~~ Mining Report ~~~~~~~~~~~~~|
| Worked: 2 Hours, 49 Minutes and 1 Seconds|
| Slept : 0 Minutes |
| Mined : 602 Coals |
| Mined : 0 Miths |
| Gained: 30100 Exp |
| Banked: 28 Loads |
|~~~~~~~~~~~~ Per Hour Report ~~~~~~~~~~~|
| Coals : 214 Per Hour |
| Miths : 0 Per Hour |
| Exp. : 10684 Per Hour |
| Banked: 10 Per Hour |
|~~~~~~~~~~~~~ Misc Report ~~~~~~~~~~~~~~|
| Banked: 5 Gems |
| Stouts: 0 Drank |
| Found : 2 Gasses |
| Responded: 0 Times |
| Broken: 0 Picks |
| Lost: 0 Heads |
| Lumby walks: 0 Times |
|~~~~~~~~~~~~ Players Report ~~~~~~~~~~~~|
| #: 0 Active: F - Mining Level: 78; Mined: 602; Coal: 602; Mith: 0; Gained: 30100; Banked: 28; Location: Ladders Entering; Random: Lost;
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~/
Got killed and it logged out in Lumbridge..
Great script!!
mine keeps failing to find my addy pick so it logs me out. could this be because im using latest SRL and SCAR updates?
2xpnsv
05-06-2008, 06:56 AM
i got a question dat might be kinda noob!!
which of the following mean that in a certain amount of minutes it will rest?
and what is for how long it rest for?
HowLongSleep = 60; //In minutes.
RandomSleep = 30; //Random sleep in minutes.
out of the to above
HowLongSleep is how long it will actually sleep
RandomSleep is how much random time will be added or subtracted from the sleep time to add more anti ban.
DirtyDimebag1
05-06-2008, 11:12 PM
It has an error with this line:
InPin(IntToStr(Players[CurrentPlayer].Pin));
Failed when compiling
Line 2570: [Error] (15224:44): Type mismatch in script
Shady?
05-07-2008, 01:10 AM
It has an error with this line:
InPin(IntToStr(Players[CurrentPlayer].Pin));
Failed when compiling
Line 2570: [Error] (15224:44): Type mismatch in script
http://www.srl-forums.com/forum/showpost.php?p=392689&postcount=1608
Search button next time
mine keeps failing to find my addy pick so it logs me out. could this be because im using latest SRL and SCAR updates?
anybody got an answer to that yet?
2xpnsv
05-07-2008, 07:14 AM
he did answear it for you.. click the link
XxXx Toxin XxXx
05-07-2008, 07:20 PM
Why dont all you noobs wait untill Jukka updates his script, or a new revision comes out, they changed the way the mining guild looks, so there has to be a few changes done. Just wait it out, it's not the end of the world.
Oh and to Q3ick, the script DOES work with a normal client. You're probably one of those people who thinks if they read the instructions correctly, they know everything... Try it out on a normal client and you will fall off your chair.
As for the reasons why it doesn't find your admant pickaxe, to all of you which ARE using addy pickaxes and NOT rune, JaGeX has updated all colours of the game, yet again. So DTM's need to be remade, or the autocolour finding procedure needs a few tweaks :)
Just remember, patience is all you guys need, and you'll be fine. ;)
JuKKa
05-07-2008, 07:24 PM
guys... how would it sound if i would REWRITE the whole script?
Shady?
05-07-2008, 07:28 PM
just to let you know, the AutoColor finding for the ladder inside the guild wont work :S thats the only thing that needs to be fixed for me
XxXx Toxin XxXx
05-07-2008, 07:29 PM
guys... how would it sound if i would REWRITE the whole script?
You don't necessarily need to re-write the whole thing, just use the same procedures for parts of it. Thing what I personally don't understand is why is it that you MUST use ScarScape with the script? I mean it works perfectly on a normal client, unassigned of course. If you do make a new script, make a good auto coloring procedure...(I'll even help ya, if you want help...) and make it just so that it runs on a RuneScape normal client, with or without smart. Smart is out there and it IS really convenient for those that have other things to do on their computer.
Either way Jukka, this script has helped several people and will continue to do so, Don't Let It DIE! :(
JuKKa
05-07-2008, 07:32 PM
You don't necessarily need to re-write the whole thing, just use the same procedures for parts of it. Thing what I personally don't understand is why is it that you MUST use ScarScape with the script? I mean it works perfectly on a normal client, unassigned of course. If you do make a new script, make a good auto coloring procedure...(I'll even help ya, if you want help...) and make it just so that it runs on a RuneScape normal client, with or without smart. Smart is out there and it IS really convenient for those that have other things to do on their computer.
Either way Jukka, this script has helped several people and will continue to do so, Don't Let It DIE! :(
yes, it will be compatible for normal RS. Ill start... tomorrow from 3 pm to 10 pm. Just for u guys. But i need one thing.... a guildminer since my main is still banned for 2 more days.
how ever i can start with the basics. Player switching etc. right now.
XxXx Toxin XxXx
05-07-2008, 07:37 PM
Done deal, I've sent you a PM with an account I've had for a while. But why is your main banned for 2 days? :(
Rouge_Ling
05-07-2008, 09:32 PM
Ok i have been using this script for awhile and it has been working perfectly but now since the new RS update it doesnt find the ladder, now i am to lazy to look through the whole script piece by piece so could any one tell me where i need to fix the script?
XxXx Toxin XxXx
05-07-2008, 11:12 PM
Ok i have been using this script for awhile and it has been working perfectly but now since the new RS update it doesnt find the ladder, now i am to lazy to look through the whole script piece by piece so could any one tell me where i need to fix the script?
How about next time you read a few posts up and realize that Jukka WILL be making an entire new script, so just wait it out, and it should be out in the next couple of days.
Benson
05-10-2008, 02:21 AM
towards Jukka:
i would have to say that i completely trust your scripting and would use your new script and give reports when i used it. i would try and help out as much as possible. an it turst you 100% with it. good luck :D
demon0254
05-11-2008, 03:21 PM
hey jukka, when ever i run, it always comes up with this:
Line 2570: [Error] (15224:44): Type mismatch in script C:\DOCUME~1\ADMINI~1\LOCALS~1\Temp\GuildMiner 30 Release-3.scar
line 2570 is: InPin(IntToStr(Players[CurrentPlayer].Pin));
whats wrong with it?
demon0254
05-11-2008, 03:24 PM
also, when ever i run, after i try to fix that error, by taking it out, it wont type in my username and password. it just clicks on the username spot, then clicks on the password spot, then it hits loggin without typing anything
JuKKa
05-11-2008, 03:26 PM
also, when ever i run, after i try to fix that error, by taking it out, it wont type in my username and password. it just clicks on the username spot, then clicks on the password spot, then it hits loggin without typing anything
that would be you & or srl.
2xpnsv
05-12-2008, 06:55 AM
just wait for new release there is no point using it till he updates it
I Rambozo I
05-13-2008, 07:01 PM
JuKKa just wondering; how is the new update coming along? :D
JuKKa
05-13-2008, 07:44 PM
JuKKa just wondering; how is the new update coming along? :D
Finnishd wiht a totrlllayu rewrtitten scritpat. Justh gottan fix somt e bugsgs and illl relalease it.
(durnk as fkcu)
XxXx Toxin XxXx
05-13-2008, 09:45 PM
Finnishd wiht a totrlllayu rewrtitten scritpat. Justh gottan fix somt e bugsgs and illl relalease it.
(durnk as fkcu)
I almost pissed myself laughing at that comment. Either you are a very good drunk impersonator, or you've had one too many. Make sure to wrap your willy if you decide to be silly ;)
By the way Jukka, the sig is done, I haven't had a chance to change the background though, I merged all of my layers on the sig so, I can't take the background layer off and just change it. Just use the one I made you for your sig, and I'll make you a new one within due time :) <3
Shady?
05-13-2008, 11:11 PM
Finnishd wiht a totrlllayu rewrtitten scritpat. Justh gottan fix somt e bugsgs and illl relalease it.
(durnk as fkcu)
I colud halpz tetstingf if jou went.
Ultra
05-13-2008, 11:38 PM
Yah you can rewrite the whole script, but to you have the temper to do it? :)
Dracody
05-14-2008, 03:10 AM
JuKKa as I said before, your script got me 99 mining, THANKS!! am I the first person to get to 99 mining with your script ? :p, may I add a little pic here?
Lol I cant believe you decided to re-write the script, after all its the best you can do, since its the best guild miner, and now it will work with normal Rs and SMART, it will own.
Good luck Re-writing it :D
JuKKa
05-14-2008, 05:24 AM
im kinda finished but i need to eliminate some bugs..
( no comment about yesterday )
issamawan
05-14-2008, 12:07 PM
can't wait...wud luvvvv to test it out...hope its better than the one b4
Baked0420
05-15-2008, 02:36 AM
EDIT: noticed questions are answered above, wasn't on newest page, sorry bout that, and I can't delete this post, I thought I could delete posts... I don't know where it is if I can, thought it was above the part where you add stuff into post, I don't know
Unohdus
05-18-2008, 08:40 PM
Can't wait updated version. Keep up teh good work.
shrubie1
05-24-2008, 01:44 PM
EDIT: sup jukka ya almost done with it? i just got 60 mining on my noob and am busting my balls to try it out.
r1chyb
05-25-2008, 10:41 AM
nice script m8.. just shame scar scape wont wont on members
gaberay
05-26-2008, 04:52 PM
hi it is saying there is an error in line 2570 =) hope you can fix
Hugolord
05-26-2008, 05:04 PM
It's outdated.
Benson
05-27-2008, 12:27 AM
wow you're really observant.... why not read the last three pages of this thread and notice how jukka is updating RIGHT NOW...
gaberay
05-27-2008, 07:06 PM
hey like evry one has sead it is out of date but i am not worried about that i am just conserned about when u think it might be coming back out =) well best of luck and i am looking forward to testing your script thx i will leave a post when it comes out so u better be waching for it bye
Benson
06-06-2008, 03:28 AM
did jukka hit a BUMP in his work??
(that was a good one, get the pun??)
issamawan
06-06-2008, 06:21 AM
probably....but is he even gonna come bak...hes not even leaving any messages on this thread,
issamawan
JuKKa
06-06-2008, 07:31 AM
*need lvl 60 miner*
issamawan
06-06-2008, 07:41 AM
oh...ines is abit busy....veryyy sry...surely someone will give it...ill chek if i have another one...but i doubt:(,
issamawan
JuKKa
06-06-2008, 07:45 AM
i might have my own, which is like very old, gotta check it out.
JuKKa
06-06-2008, 10:55 AM
K i just finished the script...
PM or MSN me "I want to beta test ur guildminer" BUT!
I want detailed reports on how it did, if it failed, what randoms u encountered, did it solve.
In this version you must have extra pickaxes in 1st bank slot! (1, 1) the gas solving might not be perfect, i havent had the time to test it fully. But it should work ALOT better than the one in srl. (my own) this one should also work alot better than the earlier ones of the old guildminer versions, btw this one supports SMART!
issamawan
06-06-2008, 01:35 PM
I LOVE THE JuKKa-NATOR!
ur mining guild pwns the wurld dude...ive sent u a pm on the whooooolllleee progress report on how ur update script is going....amazing...hope u release in public soon with that mithril problem fixed :p,
issamawan
jkmaster
06-07-2008, 01:26 AM
Hmm, i pmed u about the beta testing thing. Would love to try it, i know how awesome ur scripts are cause i used a number of them a while back. Cant wait to try your smart version.
PS >.> this goes against so much in your first page where u declared this script non-smart
issamawan
06-07-2008, 10:49 AM
JuKKa,
ur rite...ur gas detection thing is faulty...not abit but quite alot...so far two gases and two picks broken:f:....gud job tho....at least its mining :p...and th mith still isnt working :(....anyways hopeu get those things fixed soon,
issamawan
jkmaster
06-07-2008, 11:26 PM
Since u didnt send me the script yet, when will the official public release be? Hehe, im really looking to try out ur script.
issamawan
06-08-2008, 11:41 AM
maybe hes stil editing it....he sent it to me but i dont think im allowed to release it publically either....its pretty gud besides the bugs i have sent him...he will try to improve them and then he will release....major bugs include not mining mithril and the other bu is when it facing north, it tries finding another rock and doesnt realise its already mining one....thats a pain in the ass....but its still working fine and gettin the coal properly....also the proggy doesnt give the rite amount of exp...thot ud wanna kno,
issamawan
Benson
06-10-2008, 10:36 PM
quick question. waht srl and revision ect does it use?
NOOB QUESTION: how do i check waht ones i already have :/
JuKKa
06-10-2008, 10:43 PM
i would love if someone could get a picture of gas. Pls dont crop the mainscreen.
jkmaster
06-11-2008, 12:58 AM
Alright, i dont have a great proggy but the script works great! Mith like you said does not work and it doesnt seem to have human detection. Ksing people in the mines with my lvl 74 mining XD isnt the best way to remain inconspicuous. Also i have an off-topic question. My laptop keeps going into standby mode when i close the lid after awhile. In the power options I turned that off yet it still keeps going into stand-by. Anyone have a solution?
mager guy
06-11-2008, 01:47 AM
Heres a picture of gas it isnt the greatest but i think it will do
http://img248.imageshack.us/img248/2348/june10th2008agergasqn7.th.png (http://img248.imageshack.us/my.php?image=june10th2008agergasqn7.png)
jkmaster
06-11-2008, 02:14 AM
kay heres a proggy
<------------------------------------------------------------------>
< JuKKa Guild Miner v 0.1 BETA >
<------------------------------------------------------------------>
< Worked : 1 Hours, 9 Minutes and 27 Seconds >
< Mined : 241 Ores >
< Coal : 241 >
< Mith : 0 >
< Gained : 12050 Exp >
< Banked : 19 Loads >
<------------------------------------------------------------------>
< # - Status - Mined - Coals - Miths - Gained - Banked - Location >
< 0 False 241 241 0 3 UnderGround >1330 19
<------------------------------------------------------------------>
alright script is good but buggy. sorry the proggy up there is screwed up but the one before was 19 banked and 241 mined O.o also it screws up at moments after a while, maybe its just me. In all, an awesome script.
mrpickle
06-11-2008, 02:38 AM
Sry For not copying the progess... but in 3h, my miner got 700 coal.
The script makes my character run to next ore after 1-5 seconds of minng. Most of the time, My character just run from ore to ore, and getting no productivity (there was a mod on when I started... Lucky I stayed to take control XD).
issamawan
06-11-2008, 11:48 AM
@mrpickle
yea it happens with me too...but thats only wen hes facing north and then mining the rock...otherwise if the char is facing any other way while mining the rock...then it will run fine,
Alright, i dont have a great proggy but the script works great! Mith like you said does not work and it doesnt seem to have human detection. Ksing people in the mines with my lvl 74 mining XD isnt the best way to remain inconspicuous. Also i have an off-topic question. My laptop keeps going into standby mode when i close the lid after awhile. In the power options I turned that off yet it still keeps going into stand-by. Anyone have a solution?
yea same with my laptop....but wat i do is i only put the flap down..i dont shut the flap...the reason for this is because it will then go into hibernation....i went to settings and pt the settings off for hibernation when the laptop is inactive...i still havent found a way to close the flap completely but i guess its fine since i havent been caught yet:p,
issamawan
issamawan
06-11-2008, 11:52 AM
Delete
mrpickle
06-11-2008, 07:54 PM
Ok, i've tried getting my charcter to look other positions (this is with smart) and it still runs from ore every 1-5 secs. minimal productivity. Why is this? XD...
Edit: ok, this problems doesn;t happen when I use smart, it only happens when I try it without smart... So, i'm wondering if Jukka can make one to work properly without smart? =).
Edit2: Never mind, this problems still occurs during smart or not... except for one of my player (the only other one who got lv 60 mining)/.
Edit3.2: after alittle more testing, I've found that you must start in bank for the script to work properly. Otherwise it would just run around alot. Now, it still runs around, but much less. I think the problem is that you need to increase timing abit cuz it reads the next coal available too fast before it even starts mining the first 1.
Edit 4: Your script Works PERFECTLY for one of the two bots I have I dunno why. The first one I tried boting on has the problem now matter how I try it or what pick its using. The second bot on the other hand, Does it quite nicely, the script works well with it.
mrpickle
06-12-2008, 03:57 AM
Is there anyway to incorportate spaces while using smart?
mrpickle
06-12-2008, 10:43 AM
progress report.
JuKKa Guild Miner v 0.1 BETA >
<------------------------------------------------------------------>
< Worked : 40 Minutes and 43 Seconds >
< Mined : 134 Ores >
< Coal : 134 >
< Mith : 0 >
< Gained : 6700 Exp >
< Banked : 11 Loads >
<------------------------------------------------------------------>
< # - Status - Mined - Coals - Miths - Gained - Banked - Location >
< 0 False 134 134 0 17420 11 Underground to ladders >
issamawan
06-27-2008, 11:50 PM
nice proggy but do u minf not spamming???lol...a question for u mr pickle...does ur char continue mining without any interruption when it is mining a rock facing north???whenever mine was facing north it usually ignored it while mining and clicked on another rock,
issamawan
mrpickle
06-28-2008, 01:30 AM
i solved the problem actually... it worked perfect on one of my miners and crap on the other. So i changed the clothes of the miner that was messed up to the exact same as the other miner... for some damn reason.. vola it works =).
I also used it to mine about 8000 coal. But i deleted the progress report section as srl was not working then and without srl the script wont run. great work, it sometimes get stuck outside the mine on the ladders when commin out.
ChrisX
07-02-2008, 04:58 AM
Im Backkkk, seems likes we have some problems since RS updated lol.
mrpickle
07-03-2008, 03:01 AM
Yup, that seems to be a problem. I'm not macroing on my characters for abit, feared of some sorta hidden detector they might've gotten up.
YottaBytes
07-03-2008, 04:09 AM
That'b a lil' too extreme for Runescape, lol.
I woulden't worry about it.
All Runescape's got is UID in the Java to check what account are used on your computer.
mrpickle
07-05-2008, 05:35 AM
Ah ok... is JUkka active? he neeeds to update the script abit... some change of mouse locations and colour detection will be it =).
mrpickle
07-06-2008, 03:40 PM
It works now... harder to setup, but it works =). I just changed the colour of for the ladder, and start logged in, that will make it work.
<------------------------------------------------------------------>
< JuKKa Guild Miner v 0.1 BETA >
<------------------------------------------------------------------>
< Worked : 22 Minutes and 48 Seconds >
< Mined : 84 Ores >
< Coal : 84 >
< Mith : 0 >
< Gained : 4200 Exp >
< Banked : 6 Loads >
<------------------------------------------------------------------>
< # - Status - Mined - Coals - Miths - Gained - Banked - Location >
< 0 True 84 84 0 10920 6 UnderGround >
<------------------------------------------------------------------>
that i just tested, works fine, but be careful of the ladder colour, must be picked carefully, or your cursor will zigzag around abit before clicking.
oberhofedavi
07-07-2008, 04:27 AM
Line 2570: [Error] (15177:44): Type mismatch in script
kensaurus
07-07-2008, 01:33 PM
for ur error just delete the 5 or 6 lines of code which start with if(pinscreen) thingie...
because the pin variable is not initialised.
JuKKa
07-07-2008, 05:20 PM
im currently on vacation so dont send me any PMs about wanting the guildminer cause i wont give it. I havent tested the new RS yet, i have to do that too, oh and i might need a 60 miner, seems like my only one i had got banned for some stupid idea..
oberhofedavi
07-07-2008, 09:13 PM
ok now i have a new problem, it walks over to the guild entrance and then it just right clicks on the dwarfs and beds after a little while of that it goes to my spell book and clicks tele to lumbridge, and then it waits about 30 seconds and goes to the jewelery shop in west fally, its veryy weird
mrpickle
07-08-2008, 03:05 AM
ok now i have a new problem, it walks over to the guild entrance and then it just right clicks on the dwarfs and beds after a little while of that it goes to my spell book and clicks tele to lumbridge, and then it waits about 30 seconds and goes to the jewelery shop in west fally, its veryy weird
Well, that's an awkward problem. Never happened here... I dotn see anything in the script that can make it happen. I think you should just change it back to the original, then reinstall subversion, and then play on brightest setting, and repick the ladder colours... choose a colour on the ladder that is unique to it. (be specific about the area). Try the front of ladder and side of it(line 395, there's two possible colour options, replace them with your new choices). That should work
carlover
07-08-2008, 03:58 PM
Is using scarscape detectable by jagex?
Narcle
07-08-2008, 06:33 PM
im currently on vacation so dont send me any PMs about wanting the guildminer cause i wont give it. I havent tested the new RS yet, i have to do that too, oh and i might need a 60 miner, seems like my only one i had got banned for some stupid idea..
I've been telling people you've been stranded on an island and that he probably won't give it to you etc. etc.
btw, I'll be doing some fixes to it for the new one soon if you want them later on. Like I did with the gas. I know the ladder color for going down into cave is f'd. Idk if its autocolored or a tolerance based, you'd have to point it out to me (yes i'm being lazy & there is to many "ladder" functions).
Hope you get on irc / msn again soon. ;)
mrpickle
07-09-2008, 02:01 AM
<------------------------------------------------------------------>
< JuKKa Guild Miner v 0.1 BETA >
<------------------------------------------------------------------>
< Worked : 1 Hours, 51 Minutes and 16 Seconds >
< Mined : 379 Ores >
< Coal : 379 >
< Mith : 0 >
< Gained : 18950 Exp >
< Banked : 31 Loads >
<------------------------------------------------------------------>
< # - Status - Mined - Coals - Miths - Gained - Banked - Location >
< 0 False 379 379 0 49270 31 UnderGround >
<------------------------------------------------------------------>
anotehr progres.. it keeps stopping from the gas, and widthdraw new axe from bank doesn't work.
zeminhocao
07-09-2008, 03:44 AM
Line 2570: [Error] (15146:44): Type mismatch in script C:\Documents and Settings\Daniel\Configurações locais\Temporary Internet Files\Content.IE5\0HZYH149\GuildMiner%2030%20Relea se[1].scar
can someone help me! ?!?!
JuKKa
07-09-2008, 01:40 PM
Line 2570: [Error] (15146:44): Type mismatch in script C:\Documents and Settings\Daniel\Configurações locais\Temporary Internet Files\Content.IE5\0HZYH149\GuildMiner%2030%20Relea se[1].scar
can someone help me! ?!?!
yeah, wait 2 weeks - 1 month
mrpickle
07-13-2008, 03:12 PM
<------------------------------------------------------------------>
< JuKKa Guild Miner v 0.1 BETA >
<------------------------------------------------------------------>
< Worked : 54 Minutes and 7 Seconds >
< Mined : 167 Ores >
< Coal : 167 >
< Mith : 0 >
< Gained : 8350 Exp >
< Banked : 12 Loads >
<------------------------------------------------------------------>
< # - Status - Mined - Coals - Miths - Gained - Banked - Location >
< 0 False 167 167 0 21710 12 UnderGround >
<------------------------------------------------------------------>
one more prgress report. I have relog myself every hour. or so. That about how long it takes for one of those new randoms to hit. then the bot logs out.
mrpickle
07-13-2008, 05:48 PM
Line 2570: [Error] (15146:44): Type mismatch in script C:\Documents and Settings\Daniel\Configurações locais\Temporary Internet Files\Content.IE5\0HZYH149\GuildMiner%2030%20Relea se[1].scar
can someone help me! ?!?!
That just says your version is too old. Jukka is working on his newer version(as you can see from my progress reports 0.1 beta). and has not been giving it out to alot of people yet. Just wait til he releases the new version.
danman1212
07-25-2008, 02:17 AM
if u need a a 60 miner i could give u one on loan...i got alot of those just lying around pm and ill give u info when u need it
lordsaturn
07-25-2008, 09:47 PM
Have you uploaded the updated version of ScarScape to your website?
mrpickle
07-29-2008, 12:24 PM
I just changed slight bit of script(a number 1, changed to a two), didn't make him log out though, and now he can click the exit button the bank.
new proggy
<------------------------------------------------------------------>
< JuKKa Guild Miner v 0.1 BETA >
<------------------------------------------------------------------>
< Worked : 5 Hours, 18 Minutes and 15 Seconds >
< Mined : 1263 Ores >
< Coal : 1263 >
< Mith : 0 >
< Gained : 63150 Exp >
< Banked : 94 Loads >
<------------------------------------------------------------------>
< # - Status - Mined - Coals - Miths - Gained - Banked - Location >
< 0 False 1263 1263 0 164190 94 Couldnt find bankers >
<------------------------------------------------------------------>
he was at bank and couldn't find bankers during that one time, dunno why.
the scar noob
07-29-2008, 01:53 PM
I just changed slight bit of script(a number 1, changed to a two), didn't make him log out though, and now he can click the exit button the bank.
new proggy
<------------------------------------------------------------------>
< JuKKa Guild Miner v 0.1 BETA >
<------------------------------------------------------------------>
< Worked : 5 Hours, 18 Minutes and 15 Seconds >
< Mined : 1263 Ores >
< Coal : 1263 >
< Mith : 0 >
< Gained : 63150 Exp >
< Banked : 94 Loads >
<------------------------------------------------------------------>
< # - Status - Mined - Coals - Miths - Gained - Banked - Location >
< 0 False 1263 1263 0 164190 94 Couldnt find bankers >
<------------------------------------------------------------------>
he was at bank and couldn't find bankers during that one time, dunno why.
rofl, script still works?:p
-Tsn.
rs2joke
07-31-2008, 09:20 PM
is this script outdated? cant get it work :/ only bunch of errors.
jose89
07-31-2008, 09:45 PM
rofl, script still works?:p
-Tsn.
-->
That just says your version is too old. Jukka is working on his newer version(as you can see from my progress reports 0.1 beta). and has not been giving it out to alot of people yet. Just wait til he releases the new version.
the scar noob
08-02-2008, 01:11 PM
-->
Thank you to clear that out:)
-Tsn.
JuKKa
08-02-2008, 02:02 PM
http://jukka.pastebin.com/f705dba5e
Enjoy!
jas0npc
08-02-2008, 03:19 PM
Many thanks look forward to giving you a proggy soon.
frenzeeh
08-02-2008, 03:33 PM
After trying to run it i got this error can someone please help!,
Line 229: [Error] (16460:37): Invalid number of parameters in script C:\Documents and Settings\joss\Desktop\Pukka's Guildminer.scar
JuKKa
08-03-2008, 11:41 AM
http://jukka.pastebin.com/f6047d995
Works
frenzeeh
08-03-2008, 01:20 PM
Ok, mate will test and give you a proggy soon :)
heres a test proggy, will get a bigger 1 soon :)
<------------------------------------------------------------------>
< JuKKa Guild Miner v 0.1 BETA >
<------------------------------------------------------------------>
< Worked : 6 Minutes and 42 Seconds >
< Mined : 28 Ores >
< Coal : 26 >
< Mith : 2 >
< Gained : 1460 Exp >
< Banked : 2 Loads >
<------------------------------------------------------------------>
< # - Status - Mined - Coals - Miths - Gained - Banked - Location >
< 0 True 28 26 2 1460 2 Bank >
<------------------------------------------------------------------>
frenzeeh
08-03-2008, 04:16 PM
Ok, well i found some problems with it.
1. It clicks on bank symbol and then clicks on the falador path then back to the bank and logs out.
2. After 1 cycle of mining it banks good then goes back to the mine and gets stuck at the ladder and doesn't click on the ladder and logs out.
WYTE11
08-06-2008, 01:52 AM
Line 614 [Error] (16074:35): Unknown Identifier 'Smartready' in script C:\Program Files\SCAR 3.15\Includes\SRL\GuildMiner 30 Release.scar
I get this when i try to start script
andyroo
08-06-2008, 02:21 AM
http://jukka.pastebin.com/f6047d995
when i use the script from that website, it looks for a pickaxe even tho it says rune pickaxe found.
[Runtime Error] : Exception: Access violation at address 006D4E35 in module 'scar.exe'. Read of address 00000030 in line 406
Zuassi
08-06-2008, 10:47 AM
stops after 2-3 loads.. idk why
Neerthy101
08-06-2008, 02:00 PM
[Runtime Error] : Exception: Access violation at address 6D875D48 in module 'jvm.dll'. Read of address 00000008 in line 85 in script C:\Program Files\SCAR 3.15\includes\SRL/SRL/Misc/SMART.Scar
andyroo
08-06-2008, 07:35 PM
yo, dont post that in here, just search the forums.
WYTE11
08-07-2008, 10:25 AM
[Runtime Error] : Exception: Access violation at address 6D875D48 in module 'jvm.dll'. Read of address 00000008 in line 85 in script C:\Program Files\SCAR 3.15\includes\SRL/SRL/Misc/SMART.Scar
logs in and gets this error
if u found the link for the fix plz post i haven't been able to find any
johns8166
08-09-2008, 09:41 PM
update your java to the latest version
zertunami
08-09-2008, 11:39 PM
Scripts works fine till it gets to the second load. After that, it has trouble finding the stairs and stays idle till the character logs out.
<------------------------------------------------------------------>
< JuKKa Guild Miner v 0.1 BETA >
<------------------------------------------------------------------>
< Worked : 8 Minutes and 28 Seconds >
< Mined : 28 Ores >
< Coal : 28 >
< Mith : 0 >
< Gained : 1400 Exp >
< Banked : 2 Loads >
<------------------------------------------------------------------>
< # - Status - Mined - Coals - Miths - Gained - Banked - Location >
< 0 False 28 28 0 1400 2 Ladders >
<------------------------------------------------------------------>
jkmaster
08-10-2008, 12:38 AM
Alright i kinda lost my proggy but the moral of my proggy is. Did 2 rounds, stopped cause its kinda buggy and ended >.> Umm the mith works, it did mine mith for me, but stop working waaay to early. Sometimes it even stops when nothings wrong, my guess is the little bit of lag.
Smarter Child
08-11-2008, 09:27 PM
[Runtime Error] : Exception: Access violation at address 6D875D48 in module 'jvm.dll'. Read of address 00000008 in line 85 in script C:\Program Files\SCAR 3.15\includes\SRL/SRL/Misc/SMART.Scar
logs in and gets this error
if u found the link for the fix plz post i haven't been able to find any
Update Java to the latest version isn;t the only solution try updating the worlds.ini files in the includes or check if the hooks are right make sure Smart is included right
I cannot wait until my bots are 60 mining so i can try out this script will be posting a proggy when i can
http://www.fenjer.com/adnan/SRLStats/5825.png (http://www.fenjer.com/adnan/SRLStats/)
Vampspiro
08-12-2008, 11:04 PM
Help...i get this error whats going wrong ?
Line 609: [Error] (16080:35): Unknown identifier 'SmartReady' in script
anderson192
08-13-2008, 06:39 PM
I got the same error... Line 609 has nothing to do with smart though
Can anybody help please?
heliumbox
08-14-2008, 04:18 PM
Its outdated is y
dallas574
08-15-2008, 01:57 PM
Is this outdated it used to be my favourite script
jkmaster
08-15-2008, 04:59 PM
Is this outdated it used to be my favourite script
Yes it is outdated and so we're all out of any good guild mining scripts >.<
kensaurus
09-03-2008, 01:06 AM
it helped me level up from 60-85 mining last time XD
but too bad its outdated now -.-
jukka update it pllleleeeaseee
jkmaster
09-03-2008, 01:09 AM
it helped me level up from 60-85 mining last time XD
but too bad its outdated now -.-
jukka update it pllleleeeaseee
Gravedig... Jukka already said that (s)he is not updating it. If you want one so bad, just update it yourself or make one yourself...
kensaurus
09-03-2008, 02:45 AM
actually it work fine but it always screw up at the finding stairs part...
i tried to fix it but doesnt work for me
jk master why jukka doesn't update this script any more is one of the best i ever use and now it out of date i don't know wat to do lol waaaaaaaaaa
JuKKa
09-10-2008, 04:02 AM
been thinking about making a reflection one.... and that is the last thing i would do....
DirtyDimebag1
09-14-2008, 01:48 AM
been thinking about making a reflection one.... and that is the last thing i would do....
Let the guild miner go out in a cluster fuck of one last amazing version you say?
I think that would be an epic idea, good sir.:)
Rct33
09-14-2008, 08:24 PM
been thinking about making a reflection one.... and that is the last thing i would do....
That would be a great way to be remembered by.
kensaurus
09-15-2008, 04:39 AM
lol if he release one with reflection the coal price is gonna drop hard.
Vampspiro
09-15-2008, 11:22 PM
lol if he release one with reflection the coal price is gonna drop hard.
Amen to that xD
jkmaster
09-15-2008, 11:23 PM
lol if he release one with reflection the coal price is gonna drop hard.
No not really, ever realized that your coal gets sold just about instantly every time? People need coal. And let this thread die? Let Jukka post if he's going to update.
Melon
09-17-2008, 06:48 PM
when i fill in all the fields , i get Procedure GenerateColors;Begin If(SmartReady)Then Begin Writeln('NO SMART HERE!!'); TERMINATESCRIPT;End; End; why this ? and btw idk why i cant enter SS ;S
jkmaster
09-17-2008, 11:36 PM
when i fill in all the fields , i get Procedure GenerateColors;Begin If(SmartReady)Then Begin Writeln('NO SMART HERE!!'); TERMINATESCRIPT;End; End; why this ? and btw idk why i cant enter SS ;S
Wow.... How stupid can leechers get. Maybe you just didn't notice so sorry for offending you? But this script is like so old and outdated. I'm not sure but SS is probably broken atm and please read the posts next time.
Melon
09-18-2008, 02:49 AM
woops sorry didnt read all those crazy 88 pages ;D my bad...
trentuno30
09-25-2008, 10:10 AM
Failed when compiling
Line 609: [Error] (16717:35): Unknown identifier 'SmartReady' in script C:\Documents and Settings\User\Desktop\rs scripts\favourites\miners\GuildMiner 30 Release.scar
any idea's?
soddarkness
09-25-2008, 04:22 PM
is this SCARSCAPE save? cause its through freewebs dont want to offend u in any way just asking ^^
JuKKa
09-25-2008, 04:34 PM
yeah i got a idea... admin close the thread
Powered by vBulletin® Version 4.2.1 Copyright © 2024 vBulletin Solutions, Inc. All rights reserved.