[srl4] moltenminer 1.3 by denial

[Denial]

downdated, my attempt at antirandoms failed miserably, therfore i've taken them out now v 1.35
65 views, 7 posts, if your gonna leech get outta here i work hard for reasons

does'nt really use srl 4 functions but is compatible with it
basic powerminer, though very good and useful, don't forget to drop target on rs.

                              // ~ bo|om ~ \\
                            //////harlz\\\\\\
                           ////moltenminer\\\\
                          /////////1.3\\\\\\\\\
                         //___________________\\

    //how to use: setup right below, that explains most of it :)\\
   // note that this power/autominer won't work well in all mines\\
 {------------------------drops every 25 ore------------------------}
{have pick equipped and inventory empty, don't wear anything you like}


program moltenminer;

const

startupwait = 10000;//how long before script starts after compiling

rockcolor1 = 856870;// set 3 rock colors, default iron.

rockcolor2 = 659229;// set 3 rock colors, default iron.

rockcolor3 = 856870;// set 3 rock colors, default iron.

mininginterval = 25000;// time before mining each ore

rockstomine = 100;//how many rocks to mine

 {.include SRL/SRL.scar}
 
 
 
procedure moltenminer;


var
i, x, y: integer;
begin
cleardebug;
writeln('molten miner will begin soon, please post comments bugs and ')
writeln('sugestions on site you got this script from')
writeln('moltenminer 1.5 will include better progress report and form use')



 wait(startupwait+random(1000))
repeat




  if (FindColor(x, y, rockcolor1, 0, 0, 517, 337)) or
   (FindColor(x, y, rockcolor2, 0, 0, 517, 337)) or
    (FindColor(x, y, rockcolor3, 0, 0, 517, 337))then
    mmouse(x,y,2,2)
    mouse(x,y,1,1,true)
    i:= i + 1
if (invfull = true) then
writeln('dropping')
dropall;
cleardebug;
writeln('mined: ' + inttostr(i))
writeln('dropped: ' + inttostr(i))
writeln('script has been working for ' + timerunning)
    
 wait(mininginterval+random(1000))
until i = rockstomine


writeln('script has worked for ' + timerunning)
writeln('ores mined ' + inttostr(i))
writeln('ores dropped ' +inttostr(i))
end;


begin
setupsrl
moltenminer
end.

 

[Town]

if (i = 25) or (i = 50) or (i = 75) or (i = 100) then

--->

if (i mod 25 = 0) then

Mod results the remainder if the two numbers were divided so if the number is divisible by 25 it will be 0.

if (FindColor(x, y, rockcolor1, 0, 0, 517, 337)) or (FindColor(x, y, rockcolor2, 0, 0, 517, 337)) or (FindColor(x, y, rockcolor3, 0, 0, 517, 337))then
mmouse(x,y,2,2)
mouse(x,y,1,1,true)

--->

if (FindColor(x, y, rockcolor1, 0, 0, 517, 337)) or (FindColor(x, y, rockcolor2, 0, 0, 517, 337)) or (FindColor(x, y, rockcolor3, 0, 0, 517, 337))then
begin
    mmouse(x,y,2,2)
    mouse(x,y,1,1,true)
end;

That's what you want. Keep in mind that Mouse() has MMouse() inside it so you probably want:

if (FindColor(x, y, rockcolor1, 0, 0, 517, 337)) or (FindColor(x, y, rockcolor2, 0, 0, 517, 337)) or (FindColor(x, y, rockcolor3, 0, 0, 517, 337))then
    mouse(x,y,1,1,true)

 

[AntiFrost]

Very nice this script will be very usefull to me.

 

[Denial]

if (i = 25) or (i = 50) or (i = 75) or (i = 100) then

--->

if (i mod 25 = 0) then

Mod results the remainder if the two numbers were divided so if the number is divisible by 25 it will be 0.

if (FindColor(x, y, rockcolor1, 0, 0, 517, 337)) or (FindColor(x, y, rockcolor2, 0, 0, 517, 337)) or (FindColor(x, y, rockcolor3, 0, 0, 517, 337))then
mmouse(x,y,2,2)
mouse(x,y,1,1,true)

--->

if (FindColor(x, y, rockcolor1, 0, 0, 517, 337)) or (FindColor(x, y, rockcolor2, 0, 0, 517, 337)) or (FindColor(x, y, rockcolor3, 0, 0, 517, 337))then
begin
    mmouse(x,y,2,2)
    mouse(x,y,1,1,true)
end;

That's what you want. Keep in mind that Mouse() has MMouse() inside it so you probably want:

if (FindColor(x, y, rockcolor1, 0, 0, 517, 337)) or (FindColor(x, y, rockcolor2, 0, 0, 517, 337)) or (FindColor(x, y, rockcolor3, 0, 0, 517, 337))then
    mouse(x,y,1,1,true)

thnx m8, and congratz on nearly 3.5k posts

 

[Denial]

im working on molten miner 1.5 now, stay tuned for it

 

[xp z]

i know this is intended to be a power-miner, but maybe in a later release, you could add the option to bank the ores? and location tags (i.e.) script can detect which mining location you are in. maybe a bit advanced but this could become a nice script.

 

[Denial]

fear not as i- holy crap dude my sig is huge!!- plan to make version 2.3 a banker...its very far from 2.3 so stay tuned, ill have it out early next year hopefully

 

[Denial]

updated to 1.4

 

[Denial]

god dasmn leechers, 82 views 7 posts, mostly me this is screwed up

 

[Denial]

leechers here leechers there leechers here and everywhere, get outta here if your not even gonna comment...

 

[Denial]

no1s gonna comment?

 

[Evil Goblin4]

Is there a fally coal miner auto? and a varrok iron miner? P.s Haven't tried your script yet, just getting into cheating atm I look forward to using it

 

[Denial]

Is there a fally coal miner auto? and a varrok iron miner? P.s Haven't tried your script yet, just getting into cheating atm I look forward to using it

rightio, hope you enjoy

 

[Sparticus]

Nice one im gunna try it out

 

[Denial]

Nice one im gunna try it out

i don't reccomend that, i just found a massive error in the antirandoms that stopped the script from fighting, so im downgrading the script back to 1.35

 

[gauthiertim]

Why are u using old code (mmouse) and not MoveMouse?

 

[Denial]

movemouse is pathetically detectable, mmouse is an srl version of movemosue that is undetectable.

 

[irondragons9]

good script

 

[Denial]

rofl like your avatar -.-

 

[naynay1212]

Does it have antirandoms,what are the chances of my main getting banned?