Simply amazing!
It could use better anti-random, but seeing this is in the free-scripts section I guess that's the reason
I was lucky and got rick turpentine as random and he'll always wait patiently(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!
http://img516.imageshack.us/img516/6...lpwnagexx9.gif
I didn't created this, I just found it on the web
Scripts in progress
● A simple Wood Cutter
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
http://img516.imageshack.us/img516/6...lpwnagexx9.gif
I didn't created this, I just found it on the web
Scripts in progress
● A simple Wood Cutter
Progress Report
/=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-\
| [SRL]Powerminer Version 3.04 |
| By : Pwnaz0r |
\-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=/
Worked For 1 hours, 5 minutes and 36 seconds
Mined 395 rock(s)
Handled 2 gas(es)
# | Nick | MiningLevel | RocksMined | Gases Encountered | Loc
0 | **** | ML = 1 | Mined 395 rocks | Handled 1 gases | Loc: Mining
Random Report
/~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
| SRL 4 Randoms Report |
| www.srl-forums.com |
|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|
| Talks : 4 |
| Ricks : 1 |
| No Sandwiches : 1 |
| Frog Solved : 1 |
| Capn Hand[s] : 1 |
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~/
Very great script, this is my third test. I almost have 58 mining now. Again, thanks to your wonderful script. Btw, the gasses I passed are passed by me. I clicked away when a gas popped up, the macroer didn't.
Thank you, for your time on creating this wonderful macroer.
// - Magic Scripts
Current Work: P Miner
About me: I hate to work, so I chose to macro.
If I see you autoing with level 3/defaultclothes/crap name I WILL report you. Auto Correctly. - put this in your sig!
http://www.anotherfree.com/banners/3.gif
Click the image to get your 100% free domain name!
.com, .net, .org, .info, .biz, .us, .name, and much more!
thanks!!!! DIS IS HAWT!
My feedback:
It did all ok, but it lost the head of my pick, it didnt recover it, the script do have a feature for that?
this miner worked great thx
thanks but the gas finder doesnt work too well. i exited out of scar so i dont have proggie. will post one next time i use.
Good script, worked great for me!![]()
If I see you autoing with level 3/default clothes/crap name I WILL report you. Auto Correctly. - put this in your sig
best auto i have ever used
http://www.villavu.com/forum/showthr...22253?p=288409
Could that help?
http://img516.imageshack.us/img516/6...lpwnagexx9.gif
I didn't created this, I just found it on the web
Scripts in progress
● A simple Wood Cutter
very nice. one of the few scripts that has always worked for me
it worked well, but it didnt pick up my axes. couldn't copy a progress report either, i mined about 1k rocks i think, lost 2 axe heads also.
Thanks, Great Script!
i dont think i did this right but when i try to run the scrpit(keep in mind this is the frist time i have done this) i get this message at the bottom....include file c:/program files/scar 3.13/includes/srl/srl.scar dose not exist. dose this mean i did not install it right???
Free Money For Runescape Mebers!! all you need to do is sign up!! Free Money For Playing Games!!
http://www.stats.srl-forums.com/sigs/3611.png
ok i got it to work but it seems to be mineing the rocks slowly and clicks on one and then another before it mines the last one. i will use the scrpit and post P.R. after
Free Money For Runescape Mebers!! all you need to do is sign up!! Free Money For Playing Games!!
http://www.stats.srl-forums.com/sigs/3611.png
sounds good ill try it soon and post a proggie
worked for 10 mins and 5 secs mined 26 rocks handled 0 gases. it was working ok but then it broke my guys axe on a gas rock. needs to be fixed so it dose not mine gasses
Free Money For Runescape Mebers!! all you need to do is sign up!! Free Money For Playing Games!!
http://www.stats.srl-forums.com/sigs/3611.png
Thanks, works awesome! Never seen an autominer so good as this one!
It doesnt work good.
It stops mining after some inventors.
Loads = 95;// Loads for each player to do before switching
RTimeout = 10;// Max time to wait before changing rocks(Seconds)
LTimeout = 5;// Max time for Load(Minutes);
PTimeout = 425;// Max time for Player(Minutes); He will not go inactive,just change
RunDir = 'N';// Direction to run if fight found
RunWaitTime = 15;// Time in seconds to wait if run away
UseMyGasFinder = true; //Set to true to try my gas finder.
But it stops after 2-3 inv. Can somebody help me or send his copy of this that i can use.
TY.
Nice Script!
worked for 29 mins and 11 secs mined 94 copper ores and handled 2 gasess. it stop because my cuz had to use comp for 1 sec im going to use again and will post another P.R.
Free Money For Runescape Mebers!! all you need to do is sign up!! Free Money For Playing Games!!
http://www.stats.srl-forums.com/sigs/3611.png
There are currently 1 users browsing this thread. (0 members and 1 guests)