It seems to work but when it logs in it just looks through the menus for a second then logs out. im still working with it hopefully i can get it to work.
Printable View
It seems to work but when it logs in it just looks through the menus for a second then logs out. im still working with it hopefully i can get it to work.
Thanks every one for comments:D. I assure you if you are having problems then it is you, not me because so many people use it a night :).
havent tried it but form the reviews it looks nice
Awesome script, but I'm new to SCAR, could you please point out where I edit the script so that It only uses 1 player?
Because now it mines for a few minutes then logs out to change characters.
Thank you, and awesome script!
Lines 82 through 133.Quote:
Originally Posted by shawnerino
I'm actually have a slightly similar problem; Instead of switching between players, it just stays with one. I need some help, please.
:( its just switching menus, until it unweilds my rune pick then stops. please help?
Nice Script. Works great!
Thank you.
good script
powerminer worked great keep up the good work!!!
:google: xaviar:google:
:f:
loved it hope u keep making it better
Worked For 0 hours, 11 minutes and 40 seconds
Mined 39 rock(s)
Handled 0 gas(es)
# | Nick | MiningLevel | RocksMined | Gases Encountered | Loc
0 | | ML = 1 | Mined 39 rocks | Handled 0 gases | Loc: Mining
Very Nice Script:)
I mined this with a bronze pickaxe
wow amazing script will try soon
it was downloaded 1337 (leet) times that's awsome.
Good script =D i love mac mining -_-
thanks man, its excellent
its a very nice script, first i was lvl 1 mining , after 6 hours jobb, i being 45 ;)
Don't know what happened with this one. It kept telling me "WARNING: don't use the first letter in your nick." I don't know what it wanted me to do.
good job
it looks in equip and inventory and in sript write no rock found wat i nee to do???
wow, good script
my proggy last half hour
although there was 1 gas wich it didnt solved but lucky me was watching :D.
/=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-\
| [SRL]Powerminer Version 3.04 |
| By : Pwnaz0r |
\-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=/
Worked For 0 hours, 36 minutes and 15 seconds
Mined 200 rock(s)
Handled 0 gas(es)
for me it just moves the cursor around and just lags...wat i need to do???
Thank you soo much for this script, i used it and it worked good, i couldnt post a proggy because my computer froze,:fiery:
it works pretty well, the only problem is it says my char is logged out after bout 7 mins...even though it isn't? any tip's?
My char logs out for coal instantly, it clicks on the door, then log out. I does that for iron aswell but it mines like 2 first.
This was on my skiller, all the noobs keep stealing the ores!!! Oh, well.Quote:
/=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-\
| [SRL]Powerminer Version 3.03 |
| By : Pwnaz0r |
\-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=/
Worked For 1 hours, 0 minutes and 51 seconds
Mined 264 rock(s)
Handled 0 gas(es)
# | Nick | MiningLevel | RocksMined | Gases Encountered | Loc
0 | **** | ML = 0 | Mined 264 rocks | Handled 0 gases | Loc: Mining
Btw, I started at like 53 mining and mined that and still have 53 mining!
Works good, I like it.
This is the try for version 3.04, the other was 3.03... I gotta say, very good script! I love you Powerminer. I now got 55 mining, thanks to your very good work on scripting this very fine powerminer. I gotta say, it needs some antirandoms...Quote:
/=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-\
| [SRL]Powerminer Version 3.04 |
| By : Pwnaz0r |
\-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=/
Worked For 0 hours, 34 minutes and 34 seconds
Mined 207 rock(s)
Handled 0 gas(es)
# | Nick | MiningLevel | RocksMined | Gases Encountered | Loc
0 | **** | ML = 1 | Mined 207 rocks | Handled 0 gases | Loc: Mining
I started it the first time, and went to watch my brother play the Xbox 360. When I came back, it was logged off, and he was in lumbridge with a broken pick. I think the gas rock finder didn't work.
For incase your wondering it was set to true. But, other than that, it was a very good script! Like I said, it needs some antirandoms. It keeps getting the surprise exam and it just logs off. But, as I seen it said it will be in the next version.
If I could rate this, I would give it a 5 out of 5!!
hey, i used it, after the first load, in stopped and shit it self
but good work
Um, It works well, I made a lvl 3 char. Got 12 mining and logged off, can anybody tell me why it logged off.
The stats were something like.
Mined for 20 mins and mined about 70 rocks I think.
EDIT: I re-did a test,
Worked For 0 hours, 12 minutes and 28 seconds
Mined 47 rock(s)
Handled 0 gas(es)
It logged out, why?
The anti didn't work.
Worked For 0 hours, 49 minutes and 18 seconds
Mined 92 rock(s)
Handled 0 gas(es)
ns script
This Powerminer works great. i set it up to mine iron and it got me from 15-32 in about 2 hrs howeever when the golem event came it stood there and didnt try to stop it and it didnt try to comunicate with rick turpintine or whatever his name is but other than that great job. oh and it did solve 3 mysterious box puzzles with ease great work with this miner and keep it up
Fantastic power-miner! Never used a better one!
I can never get it to mine coal in the mining guild?
The script worked good, but I added a few edits. One MAJOR problem, after I ran the script, my password was changed for the character I was autoing on. Can you say MALICIOUS????!??!
Well, it certainly wasn't the script. I would not do that and look at all these people, their passwords weren't changed. If anyone wants to check out the code, feel free....Quote:
Originally Posted by Southernprep4294
Simply amazing!
It could use better anti-random, but seeing this is in the free-scripts section I guess that's the reason :D
I was lucky and got rick turpentine as random and he'll always wait patiently :p (And I think that you cannot get a random while there's another one?)
Too bad it clears the debug window and I couldn't get a proggy :( (I need my computer so maybe another time)...
Keep up the good work!
Repped!
looks pretty good ill give it a go nice job
Ok, people seem to be complaining about the randoms alot. The random detection will lag your computer a whole lot when called alot. Let me show you all the random procedures.
Lines 314-362(has to do with pickhead flying off.
SCAR Code:function HoldingPick: boolean;
var
tab, cts, hcCount, px, py, PickCount: integer;
begin
PickCount:= 0;
cts:= GetColorToleranceSpeed;
ColorToleranceSpeed(1);
for tab:= 4 to 5 do
begin
Gametab(tab);
Case Tab of
4:begin
for hcCount:= 1 to 5 do
begin
if FindColor(px, py, HeadColors[hcCount], GTX1, GTY1, GTX2, GTY2) then
begin
Inc(PickCount);
if PickCount >= 4 then
begin
result:= true;
exit;
end;
end;
end;
break;
end;
5:begin
for hcCount:= 1 to 5 do
begin
if FindColor(px, py, HeadColors[hcCount], GTX1, GTY1, GTX2, GTY2) then
begin
Inc(PickCount);
if PickCount >= 4 then
begin
result:= true;
Mouse(px, py, 0, 0, true);
GameTab(4);
exit;
end;
end;
end;
break;
end;
end;
end;
ColorToleranceSpeed(cts);
Writeln('PICK LOST!');
Loc('Pick Lost');
end;
Lines 369 - 381 (Handling of gas)
SCAR Code:procedure HandleGas;
begin
MouseSpeed:= 12;
Mouse(MMCX, MMCY, 3, 3, true);
FFlag(0);
Inc(GasesHandled);
Inc(Players[CurrentPlayer].integers[1]);
Loc('Waiting out for Gas');
ReportVars[2]:= 1;
SendSRLReport;
FTWait(40);
Loc('Working');
end;
Lines 388-490 (the actual pickaxe random checking)
SCAR Code:function FindPick2: Boolean;
var
HeadDTM, HandleDTM, BrokenDTM, AxeDTM, hx, hy, mx, my, i, c, x, y: integer;
Lost, Wielded: boolean;
begin
BrokenDTM:= DTMFromString('78DA63CC62626098C0C8800A189148209D045' +
'4D347404D1E504D170135E540359388503385809A2A22D45403D5' +
'4C26C21C42EE4907AA994B404D2A50CD2222C2701901358940354' +
'B8950438C5D0B8870F32C026A328808C354C2E9070005DF1192');
HandleDTM:= DTMFromString('78DA634C676260F0656440058C482490CE00A' +
'A0921A02605A82686809A4422D42401D54410615730116EF626A0' +
'260FA8C69D809A2CA01A0FDC6AD8417436508D1B0135394035AE4' +
'498E347400DC83D0144A80924A02613A82608BF1A007DFD0B4F');
HeadDTM:= DTMFromString('78DA8DD2390E80300C44D198E39250B0738AB' +
'043071C15D34183BF0BBB79D2C8D2C89E38978BFB8EBCB6DE434D' +
'6B980598494D6798084CAFA60159B561066046609EDF2BC3CCC0A' +
'CC06CD094C0148621DDB8D40460BC614E3529E86100C60393FD9B' +
'1B6F23174D');
AxeDTM:= DTMFromString('78DA6374606260B8C38006189148206D0954F' +
'389801A6BA09A67B8D530C2CC7945408D0550CD5B026ACC816A3E' +
'1050E30454F380801A67A09AFB04D47800D5DC26A0C60DA8E6161' +
'16AAE13E19E6B44F8FD260135A684DD0300CC7D1006');
Lost:= false;
if FindDTM(BrokenDTM, hx, hy, 546, 203, 737, 466) then
begin
Writeln('Broken Pick Found!');
if FindDTM(AxeDTM, hx, hy, 546, 203, 737, 466) then
begin
Writeln('Found a new pickaxe.');
end else
begin
result:= true;
Writeln('No More picks found! Logging out.');
LogOut;
end;
end;
if not FindDTM(AxeDTM, hx, hy, 546, 203, 737, 466) then
for i:= 4 to 5 do
begin
GameTab(i);
if FindDTM(HandleDTM, hx, hy, 546, 203, 737, 466) then
begin
Writeln('Handle Found!');
Lost:= true
if i = 5 then
begin
Wielded:= true;
Mouse(hx, hy, 0 ,0, true);
end;
end;
end;
GameTab(4);
if not Lost then exit else Writeln('Lost!');
repeat
if not (LoggedIn) then Exit;
c := c + 1;
x := Random(510) + 5;
y := Random(330) + 5;
if (FindColorSpiral(x, y, hc1, 3, 3, 515, 338)) or
(FindColorSpiral(x, y, hc2, 3, 3, 515, 338)) or
(FindColorSpiral(x, y, hc3, 3, 3, 515, 338)) or
(FindColorSpiral(x, y, hc4, 3, 3, 515, 338)) or
(FindColorSpiral(x, y, hc5, 3, 3, 515, 338)) then
begin
MMouse(x, y, 2, 2);
if IsUpTextMulti('Take', 'pick', 'head') then
begin
GetMousePos(x, y);
Mouse(x, y, 0, 0, True);
end;
Flag;
Wait(1000 + Random(100));
lost:= not FindDTM(HeadDTM, hx, hy, 546, 203, 737, 466);
end;
until(c >= 10) or (Lost = false);
if (c >= 10) then
begin
Writeln('Could not find pick!');
exit;
end else
Writeln('Pick Head Found!');
for c:= 0 to 10 do
begin
if FindDTM(HandleDTM, hx, hy, 546, 203, 737, 466) then
if FindDTM(HeadDTM, mx, my, 546, 203, 737, 466) then
begin
Mouse(mx, my, 0, 0, true);
wait(500+random(600));
Mouse(hx, hy, 0, 0, true);
wait(1000+random(500));
result:= not FindDTM(AxeDTM, hx, hy, 546, 203, 737, 466);
if not result then
begin
Writeln('Pick Attached!');
break;
end;
end;
end;
FreeDTM(BrokenDTM);
FreeDTM(HandleDTM);
FreeDTM(HeadDTM);
FreeDTM(AxeDTM);
end;
Lines 492-559 (actual gas detection)
SCAR Code:function w_GasCheck(gx, gy: integer): boolean;
Var
x1, y1, x2, y2, I, time, c: Integer;
R, G, B: Integer;
H, S, L: ExtEnded;
X, Y, Z: ExtEnded;
Gas, Gas2: TPointArray;
Colors, C2: TIntegerArray;
begin
Try
x1 := gx - 35;
If x1 < 0 Then
x1 := 0;
y1 := gy - 35;
If y1 < 0 Then
y1 := 0;
x2 := gx + 35;
If x2 > 515 Then
x2 := 515;
y2 := gy + 35;
If y2 > 336 Then
y2 := 336;
Time := GetSystemTime;
Result := False;
c := GetColorToleranceSpeed;
ColorToleranceSpeed(2);
SetColorSpeed2ModIfiers(0.2, 0.2);
FindColorsTolerance(Gas, 8886170, x1, y1, x2, y2, 20);
ColorToleranceSpeed(c);
If length(Gas) < 10 Then
Exit;
Colors := GetColors(Gas);
C2 := Colors;
ClearSameIntegers(C2);
//writeln('w_Colors Length: ' + inttostr(length(colors)));
// writeln('w_C2 Length: ' + inttostr(length(C2)));
If Length(C2) < 40 Then
Exit;
For I := 0 To High(Gas) Do
Begin
ColorToRGB(Colors[I], R, G, B);
If Abs(R - G) <= 10.0 Then
Begin
ColorToHSL(Colors[I], H, S, L);
If (H > 11.5) And (H < 16.0) And (S < 12.0) Then
Begin
ColorToXYZ(Colors[I], X, Y, Z);
If (Abs(X - Y) < 5.0) And (Abs(X - Z) < 5.0) And (Abs(Y - Z) < 5.0) Then
Begin
SetLength(Gas2, Length(Gas2) + 1);
Gas2[High(Gas2)] := Gas[I];
End;
End;
End;
End;
WriteLn('w_time: ' + IntToStr(GetSystemTime - Time));
WriteLn('w_gas2 length: ' + IntToStr(Length(Gas2)));
Result := (Length(Gas2) > 30); // The only number you might want to tweak.
//debugtpa(Gas2, '');
If Result Then
Begin
GasesHandled := GasesHandled + 1;
WriteLn('*** GAS FOUND ***');
End;
Except WriteLn('w_gasCheck ERROR: No window selected'); End;
End;
Lines 566- 605(stringing together of finding all mining related randoms)
SCAR Code:function FindMiningRandoms(x, y: integer): boolean;
var
rCount: integer;
begin
for rCount:= 0 to 5 do
begin
Case rCount of
0: if w_GasCheck(x, y) then
begin
result:= true;
HandleGas;
end;
1:
begin
result:=FindPick2;
if(result)then
begin
Reportvars[3]:= 1;
SendSRLReport;
end;
end;
2: if FindFight then
begin
RunTo(RunDir, false);
FTWait(RunWaitTime);
RunBack;
end;
3: if FindFastRandoms then result:= true;
4: if ((TimeFromMark(LevelChecker)) > (15 * 60000))then
begin
GetAllLevels;
Writeln('Got all levels.');
MarkTime(LevelChecker);
end;
end;
if result then
Writeln('Random Found!');
if result then exit;
end;
end;
Lines 190 - 255
SCAR Code:function FindFastRandoms: Boolean; // By WT-Fakawi.
var
i: Integer;
begin
for i:=1 to 10 do
begin
case I of
1: If FindDead then
begin
Result := True;
Loc('Dead');
Logout;
end;
2: If FindTalk Then Result := True;
3: If FindMime then
begin
Result := True;
Loc('Mime');
Logout;
end;
4: If FindMaze then
begin
result:= true;
Loc('Maze');
logout;
end;
5: If FindQuiz then
begin
Result := True;
Loc('Quiz');
Logout;//Solve quiz in next SRL
end;
6: If FindDemon then
begin
Result := True;
Loc('Demon');
end;
7: begin
if NoGameTab then
begin
Result := True;
Players[CurrentPlayer].rand := 'No GameTab';
Logout;
Exit;
end;
end;
8: begin
If InBlack then
begin
Result := True;
Players[CurrentPlayer].rand := 'InBlack';
Logout;
Exit;
end;
end;
9 : If FindTalk Then Result := True;
10: if FindFight then
begin
RunTo(RunDir, false);
FTWait(RunWaitTime);
RunBack;
end;
end;
Wait(1);
end;
end;
Lines 834, 861 (mainloop so they are called alot. This finds all randoms).
SCAR Code:FindNormalRandoms;
Lines 593, 831, 847 (where find FastRandoms is actually used).
SCAR Code:FindFastRandoms
See? I have put tons of random protection. However, I guess I will make a randoms version that checks for randoms constantly, just so you guys can see how much it lags your computer.
Don't worry, I never doubted you!
(we are cheating, we cannot expect everything to be flawless)
Proggy:
Code:/=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-\
| [SRL]Powerminer Version 3.04 |
| By : Pwnaz0r |
\-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=/
Worked For 0 hours, 16 minutes and 48 seconds
Mined 165 rock(s)
Handled 0 gas(es)
# | Nick | MiningLevel | RocksMined | Gases Encountered | Loc
0 | dgh | ML = 1 | Mined 165 rocks | Handled 0 gases | Loc: Mining
Successfully executed