Install SRL...
Printable View
Install SRL...
I said it was error in mapwalk (Comes with SRL)
So your half right, reinstalled SRL and it worked.
This is an awesome script, works perfectly.
Thankyou :) .
I don't get it... in setup it says new and old rocks... what are new and old rocks?
Old Rocks are standard Rocks, New Rocks and the rocks in Rimmington and Crafting guild... the newer ones
mine says:
SRL Compiled in 109msec.
[Runtime Error] : Out Of Range in line 39 in script
what am i doing wrong with it lol i cant even log on
heres my prog report
/~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
| SRL Randoms Report |
| www.villu-reborn.com |
|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|
| Logged in : 2 |
| Trade[s] Made : 2 |
| Trade[s] Missed : 1 |
| Fight Random[s] : 3 |
| Lamp[s] Solved : 1 |
| New Box[es] Solved : 2 |
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~/
Powerminer created by Wizzup?.
Version: 3.09.
Ores Mined and Dropped : 577
Number of avoided gasses: 6
Worked for 2 Hours, 8 Minutes and 14 Seconds
----------------------------------------------
0 : gen = F; Mined: 54 Ores; M lvl:15
1 : gen = F; Mined: 161 Ores; M lvl:18
2 : gen = T; Mined: 362 Ores; M lvl:23
3 : gen = T; Mined: 0 Ores; M lvl:0
4 : gen = T; Mined: 0 Ores; M lvl:0
5 : gen = T; Mined: 0 Ores; M lvl:0
----------------------------------------------
I think i am a total dumbass... can some1 take a screen shot of 'new and old rocks'? lol
lol, new ones are in rimington, dont worry:P
Ummm...this may sound nubish but why does my miner keep stoping after it mined 111 ores. Can i change this if yes how?
change how many loads it mines~its probably at 5(default) change script to 100 or whatever:)
ok..but where can i change it...i mean what line is that in?:duh:
should be on Const hit Ctrl and F and put in Const
should say ammount to mine before changing char oe whatever:)
thx!!!!!11111
you do know there is a + reputation near my name, maybe you should click on it:)
you sir, are a dumbass(ooo i love that live...what is it from?:P)Quote:
mine says:
SRL Compiled in 109msec.
[Runtime Error] : Out Of Range in line 39 in script
what am i doing wrong with it lol i cant even log on
what is on line 39? ammount of users? edit this to how many players you have a put {} around the players you're not using:)
my bad lol i know what i was doing wrong, i got it to work. fantastic script :)
my progress report
----------------------------------------------
Powerminer created by Wizzup?.
Version: 3.09.
Ores Mined and Dropped : 266
Number of avoided gasses: 1
Worked for 25 Minutes and 28 Seconds
----------------------------------------------
0 : ***** = T; Mined: 266 Ores; M lvl:60
1 : = T; Mined: 0 Ores; M lvl:0
2 : = T; Mined: 0 Ores; M lvl:0
3 : = T; Mined: 0 Ores; M lvl:0
4 : = T; Mined: 0 Ores; M lvl:0
5 : = T; Mined: 0 Ores; M lvl:0
----------------------------------------------
Successfully executed
i watched it and was impressed when it solved a trade and replied even with the person's name. the only problems i saw when watching was that it couldnt solve the randoms i got (drunken drawf and rick turpentine) should it have? does any1 know why that is?
Did you set the player's nickname?
oh i figured out why it didnt solve the random lol, my bad :) im a noob lol but very nice script i cant stop watching it lol its very impressive. i got up to lvl 60 legit but legit i be no more! my hat is off to you, very nice
Hey im new for scar and when i run your script it says this:eek: :eek: :
Line 35: [Error] (19390:34): Identifier expected in script C:\Documents and Settings\Rick Balk\Local Settings\Temporary Internet Files\Content.IE5\CDM3WL6J\SRL%20Powerminer%203[1].09.scar
.................................................. .................................................. ....
Plz help me
Grtz Rick
plz help me ... :eek:eek:
Very nice script wizzup?, But still, you're ess miner rocks!!!
Also, i might use this and show a proggie :) but im busy ATM :(
-Ashur:spot:
just wondering, but is the script supposed to pick up the heads and put them back on? lol i went to go watch a movie and let it auto and i came back after bout 10 mins to check it and i was missing a rune pickaxe head :p not complaining just notifying you so u no theres a problem
Yes it is supposed to. Now if you have multiple pickaxes in your inventory, then it won't bother fixing it. But do remember, randoms aren't always 100%.Quote:
Originally Posted by wick3dways
Wizup?, nice script now finnaly understand it... but after 2 hours is he changing player i dont want that, how can i change that??
Really nice script, Wizzup?.Quote:
----------------------------------------------
Powerminer created by Wizzup?.
Version: 3.09.
Ores Mined and Dropped : 484
Number of avoided gasses: 18
Worked for 1 Hours, 39 Minutes and 51 Seconds
----------------------------------------------
0 : leetz = T; Mined: 484 Ores; M lvl:30
----------------------------------------------
Thanks for keeping it free!
I'll try to get a better proggie report later. :D
i might use over night but it wont be for the next 2 days trying to get a good proggie wifffffff lAMEEEEEE
how do you fix this:
Include file C:\Program Files\SCAR 2.03\includes\SRL\SRL.scar does not exist.
Include file C:\Program Files\SCAR 2.03\includes\SRL\SRL\Skill\Mining.scar does not exist.
Include file C:\Program Files\SCAR 2.03\includes\SRL\SRL\Misc\Trade.scar does not exist.
Failed when compiling
You gota install srl.
[Runtime Error] : Out Of Range in line 49 in script C:\Documents and Settings\ssmith\Desktop\SRL Powerminer 3.09.scar
NO!!!!!
then it lost my pick head :duh:Code:----------------------------------------------
Powerminer created by Wizzup?.
Version: 3.09.
Ores Mined and Dropped : 192
Number of avoided gasses: 11
Worked for 57 Minutes and 23 Seconds
----------------------------------------------
0 : *** = T; Mined: 192 Ores; M lvl:54
----------------------------------------------
tested your powerminer today for few hours.. it looks great, color picking works like dream and even rimmington rocks are peace of cake for your great powerminer!
but i also found one problem... when dropping ores, the mouse seems to click always exatly same spot, wich can be detected by jagex.. i know its possible to change? heres pic about it;
http://img86.imageshack.us/img86/740...blemxs3.th.gif
thanks!!
Same here. Pick head lost after working for about 1 hour. :duh:Quote:
Originally Posted by Nebuli
Are we supposed to manually find the color of the pickhead?
hey bro/sis not sure this is my first ever post on srl downloaded this and checked it out i got from lvl 4 to lvl 44
im sorry i lost the progress coz comp crashed but this is the latest
Powerminer created by Wizzup?.
Version: 3.09.
Ores Mined and Dropped : 193
Worked for 31 Minutes and 49 Seconds
----------------------------------------------
0 : = T; Mined: 193 Ores; M lvl:44
it ran from 2 golems and 1 strange plant solved 2 boxes and did 1 rick thompson that i saw hope that helps u some
also if u needed to know i did it at varrock and i did it on iron and copper
am going to try on coal if u want progress let me know i will doit in mining guild :(h): verry happy with this also i was looking at it and it had so many diffrent players so insted of logging out into anouther i just deleated them and left 1 in there and it worked good dose 99 loads then logs out and back in :-)
@jj1232aq
Powermining coal will get people suspicius, I suggest iron.
Hi im a super noob at SRL and O was wondering if any1 could tell me how to setup the script (e.g wat to add or delete) to make it work in the following ways.
1. So that it never logs out (so to specify only 1 player being used)
2. So it never randomly stops ( I am using at the dwarf mine northmost iron/copper area.
3. How to make it mine iron only (to make it not go to copper wen no iron present)
i kno there may be many reasons y the bot seemilly stops randomly but it is v annoying, I am a noob so it may be my doing, somone plz answer my questions :) thx
You don't need to only use one player. He will get banned very soon if you keep abusing him like that.Quote:
Originally Posted by Unanonymous
sorry if i did somthing wrong by doing this
copy and past it into the scar
just change in were it says username and password line 48 and 49
and it will auto mine iron
still mine copper but hardly ever
Quote:
program Powerminer;
{.include SRL\SRL.scar}
{.include SRL\SRL\Skill\Mining.scar}
{.include SRL\SRL\Misc\Trade.scar}
Const
StartPlayer = 0; // The Number of the player that has to start.
NumberOfUsers = 1; // How many players you are using.
YourSRLStatsID = ''; // Must be a string!
YourSRLStatsPass = ''; // Must be a string!
TheMinCount = 4; // MinCount 4 for normal (old rocks), 1 for Rimmington (new) rocks
OreTol = 9; // Anything between 4 - 19. (4 to 9) with normal rocks
// 9 - 14 on new rocks.
SecondsToWait = 1; // Number Of Seconds You want to wait.
Loads = 99; // Number Of Loads.
RunDir = 'S'; // RunDirection, choose it wisely.
MinutesPerLoad = 5; // Max amount of minutes to take before dropping.
AutoColor = True; // True for autocolor, recommend for better preformance.
WizzyDebug = False; // WizzyDebug.
Const
VersionNumber = '3.09';
{--------------------------------------------------------
Procedure DeclarePlayers;
--------------------------------------------------------}
Procedure DeclarePlayers;
Begin
HowManyPlayers := NumberOfUsers;
NumberOfPlayers( HowManyPlayers );
CurrentPlayer := StartPlayer;
Players[0].Name :='username';
Players[0].Pass :='password';
Players[0].Nick :='';
Players[0].Active:=True;
Players[0].String1 := 'Iron'; // Primairy Ore Color
Players[0].String2 := 'Iron'; // Secondairy Ore Color wont be mined as much as 1.
Players[0].String3 := 'Iron'; // Third Ore Color, won't be mined as much as 1 and 2.
Players[0].Boolean1 := True; // Is The Pick Equipped?
Players[0].Boolean2 := True; // False for brightness Check Once.
Writeln( IntToStr ( HowManyPlayers ) + ' Players' );
End;
// ----------------------------------------------------------------- //
Const
CopperColor = 4286610;
TinColor = 9277080;
ClayColor = 4553880;
IronColor = 2370383;
SilverColor = 12434885;
CoalColor = 2834753;
GoldColor = 1881051;
MithrilColor = 7359564;
AdamantColor = 6322272;
RuniteColor = 8681306;
{ Don't change below if you consider yourself a beginner.}
Var
MinCount : Byte;
Clay, Ores, OreMask, MyMark, OreCounter, Gasses, DroppedOreColor: Integer;
ScriptStartTime1, ScriptStartTime2,
FindNorMalRandomsTime, FindFastRandomsTime: LongInt;
NormalRandomsTime, FastRandomsTime, FindTalkTime: LongInt;
//----------------------------------------------------------------------------//
//-- Checks and sets Auto Retaliate. True = On, False = Off --//
//----------------------------------------------------------------------------//
procedure Retaliate(AutoRet:Boolean); // WT-Fakawi.
begin
GameTab(1);
if AutoRet then
begin
If not FindColor(x,y,1777020,624, 385, 719,396) then
begin
Mouse(666,381,8,8, True);
end;
end;
if not AutoRet then
begin
If FindColor(x,y,1777020,624, 385, 719,396) then
begin
Mouse(666,381,8,8, True);
end;
end;
end;
{--------------------------------------------------------
Function Explode(S: String): Array Of String;
--------------------------------------------------------}
Function Explode(S: String): Array Of String;
Var
Counter, Start, ResultCounter, B: LongInt;
EndOfWord : Boolean;
Begin
S := Trim(S);
Insert(Chr(13), S, 0);
Repeat
Counter := Counter +1;
If EndOfWord Then Counter := Counter -1;
EndOfWord := False;
If StrGet(S, Counter) = Chr(13) Then
Begin
Start := Counter;
Repeat
Counter := Counter + 1;
If Counter > Length(S) Then
Begin
Break;
End;
Until StrGet(S, Counter) = Chr(13);
ResultCounter := ResultCounter +1;
SetArrayLength(Result, ResultCounter + 1);
Result[ResultCounter] := Trim(Copy(S, Start, Counter - Start));
B := Pos(Chr(13), Result[ResultCounter])
If B > 0 Then
Delete(Result[ResultCounter], B, 1);
B := Pos(Chr(10), Result[ResultCounter])
If B > 0 Then
Delete(Result[ResultCounter], B, 1);
WriteLn(Result[ResultCounter]);
EndOfWord := True;
End;
Until Counter > Length(S)-1;
End;
{--------------------------------------------------------
Function GetLatestNews: String;
--------------------------------------------------------}
Function GetLatestNews: Array Of String;
Var
S : String;
Begin
// S := GetPage('http://www.villavu.com/wizzups%20scripts/powerminer/news.txt');
S := GetPage('http://82.92.130.193/wizzups%20scripts/powerminer/news.txt');
Result := Explode(S);
WriteLn('');
End;
{--------------------------------------------------------
Function GetLatestVersionNumber: Extended;
Checks if you have the latest version.
--------------------------------------------------------}
Function GetLatestVersionNumber: String;
Begin
// Result := GetPage('http://www.villavu.com/wizzups%20scripts/powerminer/version.txt');
Result := GetPage('http://82.92.130.193/wizzups%20scripts/powerminer/version.txt');
If Result <> VersionNumber Then
Begin
WriteLn('You currently do not have the latest version.');
WriteLn('http://www.villu-reborn.com/showthread.php?t=1517');
WriteLn('For the latest version');
End
Else
Begin
WriteLn('You have the latest version.');
WriteLn('Please post all your progress reports here : ');
WriteLn('http://www.villu-reborn.com/showthread.php?t=1517');
End;
End;
{--------------------------------------------------------
Function HighestBrightNess: Boolean;
--------------------------------------------------------}
Function HighestBrightNess: Boolean;
Begin
GameTab(11);
Wait(400);
If GetColor(712, 226) <> 16777215 Then
Begin
Mouse(712, 226, 2, 2, True);
Result := True;
Wait(200);
End;
End;
{--------------------------------------------------------
Procedure SetOreColor;
--------------------------------------------------------}
Procedure SetOreColor;
Begin
Case LowerCase(Players[CurrentPlayer].String1) Of
'copper' : OreColor1:=CopperColor;
'tin' : OreColor1:=TinColor;
'clay' : OreColor1:=ClayColor;
'iron' : OreColor1:=IronColor;
'silver' : OreColor1:=SilverColor;
'coal' : OreColor1:=CoalColor;
'gold' : OreColor1:=GoldColor;
'mithril' : OreColor1:=MithrilColor;
'adamant' : OreColor1:=AdamantColor;
'runite' : OreColor1:=RuniteColor;
End;
Case Lowercase(Players[CurrentPlayer].String2) Of
'copper' : OreColor2:=CopperColor;
'tin' : OreColor2:=TinColor;
'clay' : OreColor2:=ClayColor;
'iron' : OreColor2:=IronColor;
'silver' : OreColor2:=SilverColor;
'coal' : OreColor2:=CoalColor;
'gold' : OreColor2:=GoldColor;
'mithril' : OreColor2:=MithrilColor;
'adamant' : OreColor2:=AdamantColor;
'runite' : OreColor2:=RuniteColor;
End;
Case LowerCase(Players[CurrentPlayer].String3) Of
'copper' : OreColor3:=CopperColor;
'tin' : OreColor3:=TinColor;
'clay' : OreColor3:=ClayColor;
'iron' : OreColor3:=IronColor;
'silver' : OreColor3:=SilverColor;
'coal' : OreColor3:=CoalColor;
'gold' : OreColor3:=GoldColor;
'mithril' : OreColor3:=MithrilColor;
'adamant' : OreColor3:=AdamantColor;
'runite' : OreColor3:=RuniteColor;
End;
End;
Function GetDroppedOreColor: Integer;
Var
DroppedOreColorBMP: Integer;
iX, iY: Integer;
Begin
If CountItemBmpMaskTol(OreMask, 20, 25) = 0 Then Exit;
DroppedOreColorBMP := BitmapFromString(3, 4, '866C4C866C4C8' +
'06849866C4C896E4D866C4C896E4D8B70508B7050896E4D8B 7050' +
'8D7251');
If FindBitmapToleranceIn(DroppedOreColorBMP, iX, iY, 560, 205, 725, 460, 9) Then
Begin
Result := GetColor(iX, iY + 2);
If WizzyDebug Then WriteLn('DroppedOreColor = ' + IntToStr(Result));
End
Else
Begin
WriteLn('DroppedOreColor not found');
WriteLn('Logout and try again.');
LogOut;
TerminateScript;
End;
FreeBitmap(DroppedOreColorBMP);
End;
{--------------------------------------------------------
Function GetUpTextBlue:String;
--------------------------------------------------------}
Function GetUpTextBlue:String;
Begin
Result := Trim(GetTextAtEx(7, 7, 140, upchars, true,
true, 0, 2, 14277634, 50, True, tr_AllChars));
End;
{--------------------------------------------------------
Function IsUpTextBlue(Text: String): Boolean;
--------------------------------------------------------}
Function IsUpTextBlue(Text: String): Boolean;
Begin
Result := (Pos(Text, GetUpTextBlue) <> 0)
End;
{--------------------------------------------------------
Function DroppedOre(iX, iY: Integer): Boolean;
--------------------------------------------------------}
Function DroppedOre(iX, iY: Integer): Boolean;
Begin
Result := FindColor(iX, iY, DroppedOreColor, iX - 10, iY - 10, iX + 10, iY + 10)
If Result And WizzyDebug Then WriteLn('DroppedOre')
Else If WizzyDebug Then WriteLn('No Dropped ore');
End;
{--------------------------------------------------------
Procedure AutoGetRockColors;
--------------------------------------------------------}
Procedure AutoGetRockColors;
Var
ATPoint : TPoint;
Begin
WriteLn('AutoColor:');
If FindObjOre(ATPoint.X, ATPoint.Y, 'ocks', OreColor1, 14, MinCount) Then
OreColor1 := GetColor(ATPoint.X, ATPoint.Y);
If FindObjOre(ATPoint.X, ATPoint.Y, 'ocks', OreColor2, 14, MinCount) Then
OreColor2 := GetColor(ATPoint.X, ATPoint.Y);
If FindObjOre(ATPoint.X, ATPoint.Y, 'ocks', OreColor3, 14, MinCount) Then
OreColor3 := GetColor(ATPoint.X, ATPoint.Y);
WriteLn(Players[CurrentPlayer].String1+' Color = '+IntToStr(OreColor1));
WriteLn(Players[CurrentPlayer].String2+' Color = '+IntToStr(OreColor2));
WriteLn(Players[CurrentPlayer].String3+' Color = '+IntToStr(OreColor3));
End;
{--------------------------------------------------------
Function ItemSelected: Boolean;
Checks if an item is selected.
--------------------------------------------------------}
Function ItemSelected: Boolean;
Var
ItemSPoint: TPoint;
Begin
If FindColor(ItemSPoint.X, ItemSPoint.Y, 16777215, MIX1, MIY1, MIX2, MIY2) Then
Begin
Result := True;
GameTab(2);
GameTab(4);
End;
End;
{--------------------------------------------------------
Function FindFastRandoms: Boolean; // By WT-Fakawi.
FindFastRandoms is a quicker version of FindNormalRandoms.
It does not include ALL the Anti-Randoms though.
--------------------------------------------------------}
Function FindFastRandoms: Boolean; // By WT-Fakawi.
Var
i: Integer;
Begin
For I := 1 To 11 Do
Begin
Case I Of
1: If FindDead Then
Result := True;
2: If FindMod Then
Result := True;
3: If FindMime Then
Result := True;
4: If FindMaze Then
Result := True;
5: If FindQuiz Then
Result := True;
6: If FindDemon Then
Result := True;
7: Begin
If NoGameTab Then
Begin
Result := True;
Players[CurrentPlayer].loc := 'No GameTab';
Logout;
Exit;
End;
End;
8 : If RC Then
Result := True;
9 : If FindFight Then
Begin
Result := True;
RunTo(RunDir, True);
End;
10: If FindTalk Then
Result := True;
11: If HandleTrade Then
Result := True;
End;
Wait(1);
End;
End;
{--------------------------------------------------------
Procedure FTWaitAll(Time:Integer); // By WT-Fakawi.
Anti-Random and Wait Procedure.
--------------------------------------------------------}
Procedure FTWaitAll(Time:Integer); // By WT-Fakawi.
var t: integer;
begin
For T:=1 to Time do
begin
Wait(5); // Adepted.
FindTalk;
RC;
HandleTrade;
end;
FindFastRandoms;
MarkTime(FindNormalRandomsTime);
if FindNormalRandomsTime-ScriptStartTime1 >(10000+Random(5000)) Then
begin
FindNormalRandoms;
MarkTime(ScriptStartTime1);
end;
MarkTime(FindFastRandomsTime);
if FindFastRandomsTime-ScriptStartTime2 >(1500+Random(1500)) Then
begin
FindFastRandoms;
MarkTime(ScriptStartTime2);
end;
end;
Function FindNormalRandomsTimeEx: Boolean;
Var
TempTime, Time1, Time2: LongInt;
Begin
TempTime := GetSystemTime;
If TempTime - NormalRandomsTime > 6000 Then
Begin
NormalRandomsTime := GetSystemTime;
Time1 := GetSystemTime;
Result := FindNormalRandoms;
Time2 := GetSystemTime;
Status('Calling FNRandoms; Took '+IntToStr(Time2-Time1)+'.');
Exit;
End;
If TempTime - FastRandomsTime > 2000 Then
Begin
FastRandomsTime := GetSystemTime;
Time1 := GetSystemTime;
Result := FindFastRandoms;
Time2 := GetSystemTime;
Status('Calling FFRandoms; Took '+IntToStr(Time2-Time1)+'.');
Exit;
End;
If TempTime - FindTalkTime > 500 Then
Begin
FindTalkTime := GetSystemTime;
Time1 := GetSystemTime;
Result := FindTalk;
Time2 := GetSystemTime;
Status('Calling FT; Took '+IntToStr(Time2-Time1)+'.');
Exit;
End;
End;
{--------------------------------------------------------
Procedure BitMaps;
--------------------------------------------------------}
Procedure BitMaps;
Begin
Clay := BitmapFromString(4, 4, '86714C89734D8B7650907A52978' +
'1569781569A8357957E55A1895CA38B5D9F875B9C8559AC92 62A8' +
'8F60A58D5FA1895C');
OreMask := BitmapFromString(11, 11, 'z78DA73730301033070436' +
'2238B60024C35B84CC0A5923C13F0BB937813F0EB22DE04CC 5022' +
'CF04CADD404CC890EA0BFCE2F85D4E4C6A212FF470998FCC0 600F' +
'B599CC1');
End;
{--------------------------------------------------------
Function FindOre(MaxTol:Integer):Boolean;
One of my core mining procedures,
this is needed for Mining
different ores and following gas.
--------------------------------------------------------}
Procedure ChangeOreColor;
Begin
If Random(4) = 3 Then OreCounter := 1;
If OreCounter > 3 Then OreCounter := 1;
Case OreCounter Of
1: OreColor:= OreColor1;
2: OreColor:= OreColor2;
3: OreColor:= OreColor3;
End;
If WizzyDebug Then WriteLn('OreCounter = '+IntToStr(OreCounter));
End;
{--------------------------------------------------------
Function GetChatMessage: String;
--------------------------------------------------------}
Function GetChatMessage: String;
Begin
Result := Trim(GetTextAtEx(20, 415, 0, SmallChars, False,
False, 0, 1, 0, 80, False, tr_AllChars));
End;
{--------------------------------------------------------
Function YouSwing: Boolean;
--------------------------------------------------------}
Function YouSwing: Boolean;
Begin
Result := (Pos('swing', GetChatMessage) <> 0)
End;
{--------------------------------------------------------
Function Youmanage: Boolean;
--------------------------------------------------------}
Function Youmanage: Boolean;
Begin
Result := (Pos('anage', GetChatMessage) <> 0)
End;
{--------------------------------------------------------
Function YouManage: Boolean;
--------------------------------------------------------}
Function PowerMine: Boolean;
Var
MMark, Dx, Dy, YMMark: Integer;
Begin
ChangeOreColor;
If (Not FindObjOre2(Dx, Dy, 'ocks', OreColor, OreTol, MinCount)) Then
Begin
OreCounter := OreCounter + 1;
FTWaitAll(1);
Exit;
End;
Status('MyMine;');
Result := True;
GetMousePos(Dx, Dy);
If FindGas(Dx, Dy - 20) Then
Begin
FTWait(80);
Gasses := Gasses + +1;
ReportVars[5] := ReportVars[5] + 1;
WriteLn('Gas Found.');
Exit;
End;
Mouse(Dx, Dy, 0, 0, True);
MarkTime(MMark);
MarkTime(YMMark);
Repeat
If Not FindColorSpiralTolerance(Dx, Dy, OreColor, Dx - 30, Dy - 30, Dx + 30, Dy + 30, 9) Then
Begin
Status('No More FindColor.');
Exit;
End;
FindNormalRandomsTimeEx;
Wait(50);
If TimeFromMark(YMMark) > 3500 Then
Begin
If YouManage Then Exit;
If FindGas(Dx, Dy - 40) Then
Begin
Mouse(646, 82, 3, 3, True);
ReportVars[5] := ReportVars[5] + 1;
Gasses := Gasses + +1;
FTWait(40);
FindPick;
End;
If FindFight Then
Begin
MakeCompass('N');
RunTo(RunDir, True);
MakeCompass('N');
End;
Wait(50);
End;
Until TimeFromMark(MMark) > (3500 + (SecondsToWait * 1000));
End;
{--------------------------------------------------------
Procedure DropAllOres;
--------------------------------------------------------}
Procedure DropAllOres;
Begin
Players[CurrentPlayer].Integer2 := Players[CurrentPlayer].Integer2+
CountItemBmpMaskTol(OreMask, 20, 25);
Players[CurrentPlayer].Integer2 := Players[CurrentPlayer].Integer2+
CountItemBmpTol(Clay, 10);
ReportVars[0] := ReportVars[0] + 1;
Banks := Banks + 1;
Players[CurrentPlayer].Banked := Players[CurrentPlayer].Banked + 1;
ReportVars[1] := ReportVars[1] + CountItemBmpMaskTol(OreMask, 20, 25);
ReportVars[1] := ReportVars[1] + CountItemBmpTol(Clay, 10);;
Ores := Ores + CountItemBmpMaskTol(OreMask, 20, 25);
Ores := Ores + CountItemBmpTol(Clay, 10);
ClickAllItemsBmpMaskTolWait('rop', OreMask, 20, 25, 30+Random(30));
ClickAllItemsBmpTolWait('rop', Clay, 10, 30+Random(30));
DwarfItem;
ClickAllItemsBmpMaskTolWait('rop', OreMask, 20, 25, 30+Random(30));
ClickAllItemsBmpTolWait('rop', Clay, 10, 30+Random(30));
End;
{--------------------------------------------------------
Procedure PlayerReport;
--------------------------------------------------------}
Procedure PlayerReport;
Var
Active: String;
I:Integer;
Begin
For I := 0 to HowManyPlayers - 1 Do
Begin
If Players[i].Active=True Then Active := 'T' Else Active := 'F';
WriteLn( (IntToStr(I))+' : '+Players[I].nick+ ' = '+
Active+'; Mined: '+IntToStr(Players[I].Integer2)+' Ores; M lvl:'+IntToStr(Players[i].Level[15]));
End;
End;
{--------------------------------------------------------
Procedure PowerMinerReport;
--------------------------------------------------------}
Procedure PowerMinerReport;
Begin
ClearDebug;
WriteLn('----------------------------------------------')
WriteLn('')
WriteLn('Powerminer created by Wizzup?.')
WriteLn('Version: '+VersionNumber+'.')
WriteLn('')
WriteLn('Ores Mined and Dropped : '+IntToStr(Ores));
If Gasses > 0 Then WriteLn('Number of avoided gasses: '+IntToStr(Gasses))
Writeln('Worked for '+ TimeRunning);
WriteLn('')
WriteLn('----------------------------------------------')
WriteLn('')
PlayerReport;
SRLRandomsReport;
WriteLn('')
WriteLn('----------------------------------------------')
End;
{--------------------------------------------------------
Procedure DoChats;
--------------------------------------------------------}
Procedure DoChats;
Begin
SetChat('On', 1);
SetChat('On', 1);
SetChat('Friends', 2);
SetChat('Friends', 2);
SetChat('On', 3);
SetChat('On', 3);
End;
{--------------------------------------------------------
Procedure DoChats;
--------------------------------------------------------}
Procedure ClearVars;
Var
I : Integer;
Begin
For I := 1 To 19 Do
ReportVars[I] := 0;
End;
{--------------------------------------------------------
MainLoop
--------------------------------------------------------}
Procedure SetupScript;
Begin
SetupSRL;
ScriptID := '45';
SetupSRLMining;
SetUpSRLReport;
ClearVars;
// GetLatestNews;
// GetLatestVersionNumber;
SRLID := YourSRLSTATSID;
SRLPassword:= YOURSRLSTATSPASS;
ReportVars[2] := 1;
BitMaps;
TradeSameTrader := True;
MinCount := TheMinCount;
DeclarePlayers;
CurrentPlayer := StartPlayer;
LoginPlayer;
BenMouse := True;
MouseSpeed := 10;
If Not Players[CurrentPlayer].Boolean2 Then
Begin
HighestBrightness;
Players[CurrentPlayer].Boolean2 := True;
SetRun(True);
End;
SetOreColor;
If AutoColor Then AutoGetRockColors;
EquipPick := Players[CurrentPlayer].Boolean1;
FindPickHeadColor;
Players[CurrentPlayer].Level[15] := GetSkillLevel('mining');
NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
End;
{--------------------------------------------------------
MainLoop
--------------------------------------------------------}
begin
ClearDebug;
ActivateClient;
SetupScript;
MakeCompass('N');
DoChats;
SetRun(True);
NormalRandomsTime := GetSystemTime;
FastRandomsTime := GetSystemTime;
FindTalkTime := GetSystemTime;
Repeat
if Players[CurrentPlayer].Boolean3 = False then
begin
Retaliate(False);
Players[CurrentPlayer].Boolean3:=True;
end;
MarkTime(MyMark);
Repeat
PowerMine;
If DroppedOreColor = 0 Then
DroppedOreColor := GetDroppedOreColor;
FindNormalRandomsTimeEx;
Wait(1);
If NoPick Then Break;
Until (( InventoryCount = 28 )
Or (TimeFromMark( MyMark ) > 1000 * 60 * MinutesPerLoad))
If LoggedIn Then
Begin
DropAllOres;
ItemSelected;
End;
PowerMinerReport;
If NoPick Then
Begin
LogOut;
Wait(5000);
End;
If ( LoggedIn And (Players[CurrentPlayer].Banked mod Loads = 0 )) Then
Begin
Begin
SetChat('friends', 1);
Repeat
FTWaitAll(1);
If(TimeFromMark(MyMark) > 240000) Then
Begin
Logout;
Break;
End;
Until(Not(LoggedIn));
End;
NextPlayer(True);
If Not Players[CurrentPlayer].Boolean2 Then
Begin
HighestBrightness;
Players[CurrentPlayer].Boolean2 := True;
End;
MakeCompass('N');
SetOreColor;
Players[CurrentPlayer].Level[48] :=GetSkillLevel('mining');
EquipPick := Players[CurrentPlayer].Boolean1;
FindPickHeadColor;
DoChats;
SetRun(True);
If AutoColor Then AutoGetRockColors;
PowerMinerReport;
End;
If Not LoggedIn Then
Begin
NextPlayer(False);
If Not Players[CurrentPlayer].Boolean2 Then
Begin
HighestBrightness;
Players[CurrentPlayer].Boolean2 := True;
End;
MakeCompass('N');
NoPick:=False;
SetOreColor;
Players[CurrentPlayer].Level[48] :=GetSkillLevel('mining');
EquipPick := Players[CurrentPlayer].Boolean1;
FindPickHeadColor;
DoChats;
If AutoColor Then AutoGetRockColors;
SetRun(True);
PowerMinerReport;
End;
Until(False);
end.
Why on earth did you just post the whole script lol?
lol... pointless