Log in

View Full Version : SRL Essence Miner v2!



Pages : 1 [2] 3 4

Melon
09-18-2008, 04:24 PM
Hmm ... i don't know :O Must be so that thos Fagex'ers made the place cursed :duh:

wazzzup
09-18-2008, 05:26 PM
one thing , could you make it so that you dont need to wield pick ?

p.s. dont want to lvl att to lvl 40 ;P sorry

omfg so i dont need 40 att to use rune wc axe?????? im so freakin dumb!! ahh well i already started fishing, no going back now.

Melon
09-18-2008, 08:05 PM
omfg so i dont need 40 att to use rune wc axe?????? im so freakin dumb!! ahh well i already started fishing, no going back now.

dude that was epic fail >.> .... if u ran script with not wielding pickaxe script stores it along with ess....

Melon
09-18-2008, 08:09 PM
one more thing , script sometimes gets lost and walks to lumber mill... dont know how this happens

TViYH
09-18-2008, 11:21 PM
program PhailCalculation;

{
Double Post = 2.5 Phails
Triple Post = 5 Phails
Quadruple Post = 7.5 Phails
Quintuple Post = 10 Phails
Sextuple Post = 15 Phails
Septuple Post = 20 Phails
}

const
PhailureAmount = 2.5;
Username = 'Melon';

function FailureCalculator(Phails: extended): extended;
var PhailInt: extended;
begin
if (PhailureAmount = 0) or (PhailureAmount < 2.5) then
begin
WriteLn('Enter an amount stated above.');
TerminateScript;
end;
if PhailureAmount <= 5 then
begin
PhailInt := (((Phails * 75) + 6) * 9) / 9;
Result := Phails * PhailInt;
end else
PhailInt := (((Phails * 25) + 6) * 9) / 9;
Result := Phails * PhailInt;
end;

begin
WriteLn(Username + ' is ' + FloatToStr(Ceil(((FailureCalculator(PhailureAmount ) / 10120)) * 100)) + '% complete phail.');
end.




Successfully compiled (71 ms)
Melon is 5% complete phail.
Successfully executed

jkmaster
09-19-2008, 02:38 AM
program PhailCalculation;

{
Double Post = 2.5 Phails
Triple Post = 5 Phails
Quadruple Post = 7.5 Phails
Quintuple Post = 10 Phails
Sextuple Post = 15 Phails
Septuple Post = 20 Phails
}

const
PhailureAmount = 2.5;
Username = 'Melon';

function FailureCalculator(Phails: extended): extended;
var PhailInt: extended;
begin
if (PhailureAmount = 0) or (PhailureAmount < 2.5) then
begin
WriteLn('Enter an amount stated above.');
TerminateScript;
end;
if PhailureAmount <= 5 then
begin
PhailInt := (((Phails * 75) + 6) * 9) / 9;
Result := Phails * PhailInt;
end else
PhailInt := (((Phails * 25) + 6) * 9) / 9;
Result := Phails * PhailInt;
end;

begin
WriteLn(Username + ' is ' + FloatToStr(Ceil(((FailureCalculator(PhailureAmount ) / 10120)) * 100)) + '% complete phail.');
end.




Successfully compiled (71 ms)
Melon is 5% complete phail.
Successfully executed


LOLOLOLZ. Regarding the BM. Some people only get like 2.5 or 5 for botting while others get the ban hammer instantly *bam* and red zone. Sooo depends.

Melon
09-19-2008, 03:57 AM
funny, almost pissed my pants...

nething
09-19-2008, 05:43 AM
Looks cool.
I used to use the old Ess Miner and liked it alot. I would try this one if I wasn't working on wc atm... :(

x_²
09-19-2008, 11:22 AM
Wizzup? Essence Miner, Version 2.03

Worked for 4 Hours, 30 Minutes and 7 Seconds
Mined 2882 Essence
Solved 4 abyssal random events.


me an my stopping it but i don't want to get baned so no more then about 4hrs a day and i cant unpause it later an keep going on smart >.>



Yep, 10 BM for one offence, Breaking Rule 7 (autoing). I've just sent in my last chance appeal, but I'm not getting my hopes up.


that sucks i got 0.1 for autoing when i got banned for a week o.O

ConneX
09-20-2008, 06:41 AM
WTF! ;D
0 : = T; Bank; B: 2354 Essence; M : 76
1 : = F; NoBank; B: 560 Essence; M : 75
2 : = F; Bank; Rand: Quiz; B: 503 Essence; M : 0
3 : = T; Bank; B: 2264 Essence; M : 76
Its same account.

Vcanny
09-20-2008, 06:13 PM
can u add bank pin to this script?

noodlesalan
09-20-2008, 07:40 PM
I got banned for 10 days using this.

I run it about 8 hours a day, 5 days a week.


I think the problem is same keystrokes. Can you define a area where it will click rather than the same place? And it also clicks that door near the shop, rather than the actual door (It clicks the door to the right of the shop).

And I've been banned for 10 days.

imlvl127
09-20-2008, 10:27 PM
Wizzup? Essence Miner, Version 2.03

Worked for 3 Hours, 48 Minutes and 23 Seconds
Mined 2258 Essence
Solved 2 abyssal random events.

Still running:)

Smarter Child
09-20-2008, 11:42 PM
dude that was epic fail >.> .... if u ran script with not wielding pickaxe script stores it along with ess.... LMFAO No it doesn't as long as you fill Players[0].Booleans[0] := false; // Is The Pick Equipped?
true would mean it is equipped....Buddy ur double posting was useless...

Phail.

ExecutionerOz
09-21-2008, 01:34 AM
I got banned for 10 days using this.

I run it about 8 hours a day, 5 days a week.


I think the problem is same keystrokes. Can you define a area where it will click rather than the same place? And it also clicks that door near the shop, rather than the actual door (It clicks the door to the right of the shop).

And I've been banned for 10 days.

You have obviously been overusing this script. After you macro for 8 hours don't play for another 8hours

8 hours work
8 hours play
8 hours sleep
:)

edit: I might get my mining up to try out this script

P W N T
09-21-2008, 01:39 AM
I use this script about 10 hours every 2 days, Once I've turned off the script I Switch accounts and play. :D

Never gotten banned for Botting. :D

Widget
09-21-2008, 02:10 AM
I got banned for 10 days using this.

I run it about 8 hours a day, 5 days a week.


I think the problem is same keystrokes. Can you define a area where it will click rather than the same place? And it also clicks that door near the shop, rather than the actual door (It clicks the door to the right of the shop).

And I've been banned for 10 days.

The problem isn't "same keystrokes", it's you. If you're going to auto on a single account, don't do it for more than 4 hours a day. 8ish hours if you're doing it for two, and overnight for more. Humans would never mine essence for 8 hours straight on a level 30, it's just common knowledge.

Sorry I don't have a proggy for you, I mainly used this before you put progress reports in :p Maybe I should start autoing again.

soddarkness
09-21-2008, 07:58 PM
[Runtime Error] : Exception: in line 46 in script C:\Program Files\SCAR 3.15\includes\SRL/SRL/Core/Math.scar

Any fix for this

Wizzup?
09-21-2008, 08:55 PM
[Runtime Error] : Exception: in line 46 in script C:\Program Files\SCAR 3.15\includes\SRL/SRL/Core/Math.scar

Any fix for this

Set up your player correctly. I've said it at least once every page.

jakeyboy29
09-21-2008, 09:10 PM
Set up your player correctly. I've said it at least once every page.

its a joke isent it. and i auto for 3/4 loads then it logs out when im in the mine.

soddarkness
09-22-2008, 06:25 AM
Set up your player correctly. I've said it at least once every page.



He wizzup;)


i did that man :D not working ^^

x_²
09-22-2008, 12:29 PM
He wizzup;)


i did that man :D not working ^^

are you sure because I've had no problems with this scrips running?

Check that you didn't misspell something or put a space somewhere or redownload the script an try again.

soddarkness
09-22-2008, 02:10 PM
Working, like always :) if a script works good ill post the results =)

Wizzup? Essence Miner, Version 2.03

Worked for 1 Hours, 53 Minutes and 3 Seconds
Mined 1128 Essence
Solved 1 abyssal random events.


Thankyou Wizzup? for this great miner! Keep up the good work (y)

trentuno30
09-24-2008, 08:10 AM
hey i got my best proggy yet!!!!

its still going but i need to do dragon slayer now =.= lol so i stoping it =(

Wizzup? Essence Miner, Version 2.03

Worked for 24 Hours, 3 Minutes and 49 Seconds
Mined 15016 Essence
Solved 17 abyssal random events.

----------------------------



/~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
| SRL 26 Randoms Report |
| www.srl-forums.com |
|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|
| SRL Logs : 54 |
| Demons Solved : 2 |
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~/

deathcrow92
09-25-2008, 01:37 AM
i got this error trying to run it:
[Runtime Error] : Exception: Access violation at address 6720456E in module 'Embedded SMART.dll'. Read of address 00000000 in line 1098 in script C:\Program Files\SCAR 3.15\Scripts\essence miner.scar

so i checked to see if my smart works and it does (used quick test)
i re-dowloaded all my includes and srl revisions...didnt work :\
help please?

pini3000
09-25-2008, 09:28 AM
@ deathcrow92

I know you may think this sounds stupid but it solved my problems instantly when all scripts stop working when I first re-learnt this new system upon my return recently and I got the error.

Have you moved (not copy and paste but cut and move) the plugin Embedded_SMART.dll from

C:\Program Files\SCAR 3.15\Includes\SRL\place inside plugins folder

to

C:\Program Files\SCAR 3.15\Plugins

Hope this helps :)

deathcrow92
09-25-2008, 10:56 PM
@ deathcrow92

I know you may think this sounds stupid but it solved my problems instantly when all scripts stop working when I first re-learnt this new system upon my return recently and I got the error.

Have you moved (not copy and paste but cut and move) the plugin Embedded_SMART.dll from

C:\Program Files\SCAR 3.15\Includes\SRL\place inside plugins folder

to

C:\Program Files\SCAR 3.15\Plugins

Hope this helps :)


ok, i did what you said (over again =P) and now i just got to test to see if it works. ok, that error is gone but now this one came up:

[Runtime Error] : Exception: in line 46 in script C:\Program Files\SCAR 3.15\includes\SRL/SRL/Core/Math.scar

Help please? :s

mr n0obie2
09-25-2008, 11:52 PM
[Runtime Error] : Out Of Range in line 46 in script C:\Documents a


Help??

farhan1
09-26-2008, 06:22 AM
[Runtime Error] : Out Of Range in line 46 in script C:\Documents a


Help??

I noticed alot of people have been getting this error even thou you might be putting in your user name correctly.

This is how i solved the same problem. If there are any spaces in the names use underscolls. Make sure you fill out the nick names, atleast 4 chars long....

x_²
09-26-2008, 07:39 AM
should look something like this:


Players[0].Name :='ilovetobot';
Players[0].Pass :='botsftw';
Players[0].Nick :='tsft';
Players[0].Active := True;
Players[0].Loc := 'Bank';
Players[0].Booleans[0] := True

or this:

Players[0].Name :='woot_maccro';
Players[0].Pass :='yaybots';
Players[0].Nick :='macc';
Players[0].Active := True;
Players[0].Loc := 'Bank';
Players[0].Booleans[0] := True

Rich
09-26-2008, 10:09 AM
Nope, the account is permanently banned.

noodlesalan
09-26-2008, 01:17 PM
Wizzup?, can you give us a link or show us how to add the script for adding run to the miner? I want to get it as realistic looking as possible.

And I want to remove the "open Door" part of the script. It keeps opening the other door east of Aubury's and it looks obvious that you are autoing.

sik of it
09-27-2008, 07:20 AM
Set up your player correctly. I've said it at least once every page.

i have this error, and i dont mean to annoy you, but when you say set up your player, I think i have. I have put in the botting username, pass, nick, my srl id and pass but it still doesnt work for me. To repeat it, i dont mean to annoy you (sorry if i do) as i have seen u say you have put it up nearly every page.

Thanks.

soddarkness
09-27-2008, 09:11 AM
vivala wizzup!

Worked for 7 Hours, 52 Minutes and 45 Seconds
Mined 4717 Essence
Solved 5 abyssal random events.


Cheers!


@ Sik of it i had that and i remove'd player [1] so i only had player [0] left it worked for me i hope its working for u

sik of it
09-27-2008, 09:22 AM
vivala wizzup!

Worked for 7 Hours, 52 Minutes and 45 Seconds
Mined 4717 Essence
Solved 5 abyssal random events.


Cheers!


@ Sik of it i had that and i remove'd player [1] so i only had player [0] left it worked for me i hope its working for u

tyvm bro worked for me aswell, thanks again :)

soddarkness
09-27-2008, 09:51 AM
tyvm bro worked for me aswell, thanks again :)

Np man :D GL With ur ess=)

k1ngk03ra
09-28-2008, 01:46 AM
Wizzup?, can you give us a link or show us how to add the script for adding run to the miner? I want to get it as realistic looking as possible.

And I want to remove the "open Door" part of the script. It keeps opening the other door east of Aubury's and it looks obvious that you are autoing.
quit being a noob its posted a few pages back how to add run in the script...

Blue
09-28-2008, 04:03 PM
Ahh, got to love an old classic ;)


Wizzup? Essence Miner, Version 2.03

Worked for 30 Minutes and 32 Seconds
Mined 111 Essence
Solved 1 abyssal random events.

----------------------------

0 : level = F; NoBank; B: 84 Essence; M : 48
1 : urest = F; NoBank; B: 0 Essence; M : 48
2 : est Le = T; Bank; B: 27 Essence; M : 48
3 : level = T; Bank; B: 0 Essence; M : 0

x_²
09-30-2008, 07:35 AM
Wizzup?, can you give us a link or show us how to add the script for adding run to the miner? I want to get it as realistic looking as possible.

And I want to remove the "open Door" part of the script. It keeps opening the other door east of Aubury's and it looks obvious that you are autoing.
adding run is easy an so is taking out the opendoor

add this to banktoaubury
SetRun(True);

then on auburytobank or minetoaubury add
SetRun(false);

to take out the door opening find it an take out the procedure and all the places its called
(to find the places its called compile the script script>compile and it will say error like blablabla then delete that line continue until it compiles)

D1zl3
10-02-2008, 12:54 AM
[Runtime Error] : Out Of Range in line 46 in script...
ok i think i figured out how to fix it.
I only know how to do this if your using one player.
Change number of users to 1
and keep start player at 0.

then delete this:

Players[1].Name :='';
Players[1].Pass :='';
Players[1].Nick :='';
Players[1].Active := False;
Players[1].Loc := 'Bank';
Players[1].Booleans[0] := True; // Is The Pick Equipped?

Players[2].Name :='';
Players[2].Pass :='';
Players[2].Nick :='';
Players[2].Active := False;
Players[2].Loc := 'Bank';
Players[2].Booleans[0] := True; // Is The Pick Equipped?}

Players[3].Name :='';
Players[3].Pass :='';
Players[3].Nick :='';
Players[3].Active := False;
Players[3].Loc := 'Bank';
Players[3].Booleans[0] := True; // Is The Pick Equipped?


then try it.

Wizzup?
10-02-2008, 11:48 AM
Read this: http://www.villavu.com/forum/showthread.php?t=5410?t=6267

Sanjuro
10-02-2008, 11:58 AM
Does it have to run with two people?
Because when I try to run it with one it stops after an hour.

Anyway great script, can't wait to post good proggies.

cheater95
10-02-2008, 07:53 PM
Just wondering if its only me but the script only goes to world 86 on smart even though I set it on 100 and sometimes it goes to 100 but thats really rare and only happenend twice any suggestions on fixing this?

jakeyboy29
10-02-2008, 07:55 PM
wizzup, i feel sorry for you. the people can't set up the script they dont deserve it.

cheater95
10-02-2008, 09:57 PM
wizzup, i feel sorry for you. the people can't set up the script they dont deserve it.

If your talking about me, mine just goes to wrong world even though I changed it on setup, and I came back to runescape only 2-3 days ago so I dont remember as much of doing Scar anymore.

xSaintias
10-03-2008, 12:42 AM
If your talking about me, mine just goes to wrong world even though I changed it on setup, and I came back to runescape only 2-3 days ago so I dont remember as much of doing Scar anymore.

I hear ya dude....
i used to be down with all these scripts untill i quit...
but whatever as i always say, what once was lost can be found again<--- :P

RSplaya1
10-03-2008, 01:00 PM
Worked for 3 Hours, 31 Minutes and 36 Seconds
Mined 2070 Essence
Solved 2 abyssal random events.

NoBank; Rand: Drill Demon; B: 2070 Essence; M : 59

----------------------------

NextPlayer(Active: False); It just stopped after this. I logged in and he was just standing there.

Wrycu
10-03-2008, 06:21 PM
Failed when compiling
Line 1: [Error] (112:10): Duplicate identifier 'ISKEYDOWN' in script C:\Program Files\SCAR 3.15\includes\SRL\SRL\Misc\Smart.scar

RSplaya1
10-04-2008, 03:35 AM
Wizzup? Essence Miner, Version 2.03

Worked for 5 Hours, 8 Minutes and 50 Seconds
Mined 3215 Essence
Solved 5 abyssal random events.

good stuff man

Wrycu
10-04-2008, 12:56 PM
Successfully compiled (3133 ms)
SRL Compiled in 2469 msec
4 Players
[Runtime Error] : Exception: in line 46 in script C:\Program Files\SCAR 3.15\includes\SRL/SRL/Core/Math.scar

cheater95
10-04-2008, 12:59 PM
Successfully compiled (3133 ms)
SRL Compiled in 2469 msec
4 Players
[Runtime Error] : Exception: in line 46 in script C:\Program Files\SCAR 3.15\includes\SRL/SRL/Core/Math.scar
Set players up correctly, answer has been said up this thread.

Wrycu
10-04-2008, 01:54 PM
Sorry for not reading a 15 page thread all the way through.



Const
NumberOfUsers = 1;
StartPlayer = 0;
Loads = 5;
VersionNumber = '2.03';
SRL_ID = '********'; // Stats ID.
SRL_PASS = '*******'; // Stats Pass.
SmartPrefix = 'world8';




Procedure DeclarePlayers;

Begin
NumberOfPlayers( NumberOfUsers );
CurrentPlayer := StartPlayer;

Players[0].Name :='******';
Players[0].Pass :='*****';
Players[0].Nick :='****';
Players[0].Active := True;
Players[0].Loc := 'Bank';
Players[0].Booleans[0] := True; // Is The Pick Equipped?

{Players[1].Name :='';
Players[1].Pass :='';
Players[1].Nick :='';
Players[1].Active := False;
Players[1].Loc := 'Bank';
Players[1].Booleans[0] := True; // Is The Pick Equipped?

Players[2].Name :='';
Players[2].Pass :='';
Players[2].Nick :='';
Players[2].Active := True;
Players[2].Loc := 'False';
Players[2].Booleans[0] := True; // Is The Pick Equipped?}

{Players[3].Name :='';
Players[3].Pass :='';
Players[3].Nick :='';
Players[3].Active := True;
Players[3].Loc := 'False';
Players[3].Booleans[0] := True; // Is The Pick Equipped?}

Writeln( IntToStr ( HowManyPlayers ) + ' Players' );
SetPlayerNameTPAs;
End;


What exactly is wrong with it?

Sanjuro
10-04-2008, 02:57 PM
Successfully compiled (3133 ms)
SRL Compiled in 2469 msec
4 Players
[Runtime Error] : Exception: in line 46 in script C:\Program Files\SCAR 3.15\includes\SRL/SRL/Core/Math.scar

Math.scar is on your part, I had this issue before.
You should make sure your SRL is up-to-date and if it is, I don't know.

Wrycu
10-04-2008, 03:02 PM
Math.scar is on your part, I had this issue before.
You should make sure your SRL is up-to-date and if it is, I don't know.

It is up to date.

RSplaya1
10-05-2008, 12:45 PM
Wizzup usually it stops right next to the building with the teleport guy and says this 0 : ****= F; NoBank; B: 3814 Essence; M : 61. Any idea why it just logs out?

x_²
10-05-2008, 08:05 PM
Sorry for not reading a 15 page thread all the way through.



Const
NumberOfUsers = 1;
StartPlayer = 0;
Loads = 5;
VersionNumber = '2.03';
SRL_ID = '********'; // Stats ID.
SRL_PASS = '*******'; // Stats Pass.
SmartPrefix = 'world8';




Procedure DeclarePlayers;

Begin
NumberOfPlayers( NumberOfUsers );
CurrentPlayer := StartPlayer;

Players[0].Name :='******';
Players[0].Pass :='*****';
Players[0].Nick :='****';
Players[0].Active := True;
Players[0].Loc := 'Bank';
Players[0].Booleans[0] := True; // Is The Pick Equipped?

{Players[1].Name :='';
Players[1].Pass :='';
Players[1].Nick :='';
Players[1].Active := False;
Players[1].Loc := 'Bank';
Players[1].Booleans[0] := True; // Is The Pick Equipped?

Players[2].Name :='';
Players[2].Pass :='';
Players[2].Nick :='';
Players[2].Active := True;
Players[2].Loc := 'False';
Players[2].Booleans[0] := True; // Is The Pick Equipped?}

{Players[3].Name :='';
Players[3].Pass :='';
Players[3].Nick :='';
Players[3].Active := True;
Players[3].Loc := 'False';
Players[3].Booleans[0] := True; // Is The Pick Equipped?}

Writeln( IntToStr ( HowManyPlayers ) + ' Players' );
SetPlayerNameTPAs;
End;


What exactly is wrong with it?

you need to get rid of the players your not using buy deleting them or putting {} around them

Wrycu
10-06-2008, 03:35 PM
you need to get rid of the players your not using buy deleting them or putting {} around them

Thanks for the attempted help, but reread my posted player function. It does, in fact, comment the unused players out. I just didn't put the { on a new line, because the } wasn't on a new line.

DirtyDimebag1
10-09-2008, 02:45 PM
Great script
There are a lot of randoms it can't solve tho :[

paddiekiller
10-11-2008, 11:43 AM
ok....every single time i try to run this script i get [Runtime Error] : Exception: in line 46 in script C:\Program Files\SCAR 3.15\includes\SRL/SRL/Core/Math.scar i have read all these posts and all you say to the other members is set up your characters properly...now im a bit of a noob when it comes to anything to do with SRL so i dont really know what you mean, ive wrote my character name next to the Players[0] bit so i dont know

pini3000
10-11-2008, 12:13 PM
ok....every single time i try to run this script i get [Runtime Error] : Exception: in line 46 in script C:\Program Files\SCAR 3.15\includes\SRL/SRL/Core/Math.scar i have read all these posts and all you say to the other members is set up your characters properly...now im a bit of a noob when it comes to anything to do with SRL so i dont really know what you mean, ive wrote my character name next to the Players[0] bit so i dont know

Did you even try to search for your answer?

I dont even think you looked at this thread before posting this question did you? I mean did you even look one page back?


Read this: http://www.villavu.com/forum/showthread.php?t=5410?t=6267

No you didnt!

mnagi85
10-11-2008, 01:41 PM
I have to have my pickaxe wielded, and not in inventory?

jakeyboy29
10-11-2008, 01:54 PM
I have to have my pickaxe wielded, and not in inventory?

look at last line of set up. and select false,

mnagi85
10-11-2008, 01:55 PM
I got this error:

[Runtime Error] : Out Of Range in line 46 in script C:\Users\Mohammed Nagi\Desktop\Scar Scripts\Essence Miner #20.3 Pub.scar

And I have my player(s) set up correctly, to my understanding.

paddiekiller
10-11-2008, 02:30 PM
I know this may be annoying and i have tried over and over again, i have read all pages of info here and all on the other forum page and it doesnt seem to work heres what i have got

Begin
NumberOfPlayers( NumberOfUsers );
CurrentPlayer := StartPlayer;

Players[0].Name :='************';
Players[0].Pass :='******';
Players[0].Nick :='****';
Players[0].Active := True;
Players[0].Loc := 'Bank';
Players[0].Booleans[0] := True; // Is The Pick Equipped?

{Players[1].Name :='';
Players[1].Pass :='';
Players[1].Nick :='';
Players[1].Active := True;
Players[1].Loc := 'Bank';
Players[1].Booleans[0] := True; // Is The Pick Equipped?}

{Players[2].Name :='';
Players[2].Pass :='';
Players[2].Nick :='';
Players[2].Active := True;
Players[2].Loc := 'Bank';
Players[2].Booleans[0] := True; // Is The Pick Equipped?}

{Players[3].Name :='';
Players[3].Pass :='';
Players[3].Nick :='';
Players[3].Active := True;
Players[3].Loc := 'Bank';
Players[3].Booleans[0] := True; // Is The Pick Equipped?}

Writeln( IntToStr ( HowManyPlayers ) + 'Players' );
SetPlayerNameTPAs;
End;



I have lookede at the things and they are the same

jakeyboy29
10-11-2008, 02:53 PM
del all uneeded player set ups. quite pissing anoying.

Wrycu
10-11-2008, 04:40 PM
del all uneeded player set ups. quite pissing anoying.

He DID delete them - commenting them out means the compiler doesn't read them. It's the same thing as deleting them, except he doesn't have to actually type it back in if he wants to 'undelete' them.

sink998
10-11-2008, 04:54 PM
Sorry but for some reason I get a bunch of errors hhmm I'll see whats up.

We run u.s.
10-11-2008, 09:34 PM
Guys why not create +3 more characters to mine for you...


Picking a name... about 20 seconds,Tutorial island(script for that one srl-forums.com) takes maximum 10 minutes, "quest" takes about 10 minutes,get from wiz tower to varrock around 2 minutes (walking)... stop crying about that math.scar error you stupid douses, and if you wayy to lazy to make +3 characters which takes about 1 hour, then just type random letters in the script(declare players)


Players[1].Name :='hushakix'; <<<<random<<<<<<
Players[1].Pass :='qazxs'; <<<<random<<<<<<
Players[1].Nick :='sha'; <<<<random<<<<<<
Players[1].Active := True;
Players[1].Loc := 'Bank';
Players[1].Booleans[0] := True; // Is The Pick Equipped?

Players[2].Name :='ugyivgdood'; <<<<random<<<<<<
Players[2].Pass :='qazxs'; <<<random<<<<<<
Players[2].Nick :='dood'; <<<<random<<<<<<
Players[2].Active := True;
Players[2].Loc := 'Bank';
Players[2].Booleans[0] := True; // Is The Pick Equipped?

Players[3].Name :='ep9ucg9ugh'; <<<<random<<<<<<
Players[3].Pass :='qazxs'; <<<<random<<<<<<
Players[3].Nick :='ucg'; <<<<random<<<<<<
Players[3].Active := True;
Players[3].Loc := 'Bank';
Players[3].Booleans[0] := True; // Is The Pick Equipped?


Think out side the box you tarts and stop spamming nnooby errors!!e

Wrycu
10-12-2008, 02:12 AM
Guys why not create +3 more characters to mine for you...


Picking a name... about 20 seconds,Tutorial island(script for that one srl-forums.com) takes maximum 10 minutes, "quest" takes about 10 minutes,get from wiz tower to varrock around 2 minutes (walking)... stop crying about that math.scar error you stupid douses, and if you wayy to lazy to make +3 characters which takes about 1 hour, then just type random letters in the script(declare players)



Think out side the box you tarts and stop spamming nnooby errors!!e

I have more than three, I just test scripts with one account.

Sorry for spamming with nooby questions which no one has been able to answer yet.

Edit: After switching the number of users to 0, running it, and switching it back to 1, the script runs correctly. No idea why...

Scar Newbie v1
10-12-2008, 03:24 PM
Wizzup? Essence Miner, Version 2.03

Worked for 1 Hours, 12 Minutes and 22 Seconds
Mined 672 Essence

----------------------------

0 : visb = T; Bank; B: 280 Essence; M : 50
1 : visb = F; NoBank; B: 112 Essence; M : 50
2 : visb = F; NoBank; B: 140 Essence; M : 50
3 : visb = T; Bank; B: 140 Essence; M : 50



Got owned by the cat on the island where you have to do anything in reverse :(

edit: heres another one;


Worked for 1 Hours, 31 Minutes and 5 Seconds
Mined 850 Essence
Solved 1 abyssal random events.

----------------------------

0 : visb = T; Mine; B: 280 Essence; M : 51
1 : visb = T; Bank; B: 280 Essence; M : 50
2 : visb = T; Bank; B: 262 Essence; M : 50
3 : visb = F; NoBank; B: 28 Essence; M : 50

Moloch
10-13-2008, 02:12 AM
Successfully compiled (1313 ms)
SRL Compiled in 5297 msec
1 Players
[Runtime Error] : Exception: Access violation at address 6720138A in module 'Embedded SMART.dll'. Read of address 00000350 in line 48 in script C:\Program Files\SCAR 3.15\includes\srl/srl/misc/Smart.scar

pebkac i know :( what did I do wrong?

x_²
10-13-2008, 11:08 AM
Successfully compiled (1313 ms)
SRL Compiled in 5297 msec
1 Players
[Runtime Error] : Exception: Access violation at address 6720138A in module 'Embedded SMART.dll'. Read of address 00000350 in line 48 in script C:\Program Files\SCAR 3.15\includes\srl/srl/misc/Smart.scar

pebkac i know :( what did I do wrong?
are you running it on vista?
if so then load scar in administrator mode
if not then im not sure

Moloch
10-13-2008, 02:22 PM
are you running it on vista?
if so then load scar in administrator mode
if not then im not sure

No sir on Win Xp

Wrycu
10-13-2008, 07:50 PM
If you have Reflection, you need to copy the new DLL from the reflection folder (C:\Program Files\SCAR 3.15\Includes\SRL\SRL\reflection\Place inside plugins folder\embedded_smart.dll) into the plugin folder (C:\Program Files\SCAR 3.15\Plugins)

billben
10-14-2008, 04:57 PM
Wizzup? Essence Miner, Version 2.03

Worked for 45 Minutes and 13 Seconds
Mined 364 Essence

----------------------------

0 : atz = T; Mine; B: 364 Essence; M : 42
1 : atz = T; Bank; B: 0 Essence; M : 0

----------------------------

Ethien
10-20-2008, 10:19 PM
[Runtime Error] : Exception: in line 46 in script C:\Program Files\SCAR 3.15\includes\SRL/SRL/Core/Math.scar

the code of that line was
Result := CreateTPAFromBMP( GetBitmapDC(TempBMP));

Slimmeh
10-21-2008, 02:42 AM
When I run it I get a little pop-up "Error starting smart, check world prefix." Then when I press OK the box and Scar close.

faster789
10-21-2008, 04:12 AM
Hey Wizzup?
You might want to change the script from clicking the door beside audbury's shop because I think that caused me to get banned for the third time (orange zone :( )

xxgodsmackxx321
10-21-2008, 10:57 PM
Mined 1068 Essence
Solved 1 abyssal random events.

----------------------------

0 : bsak = T; Bank; B: 1068 Essence; M : 35

nice job, although i had to remove smart from it because of the stupid rs update :) ->2 hours using addy pick hehe
Rep+

Smarter Child
10-21-2008, 11:13 PM
I have more than three, I just test scripts with one account.

Sorry for spamming with nooby questions which no one has been able to answer yet.

Edit: After switching the number of users to 0, running it, and switching it back to 1, the script runs correctly. No idea why...

Wouldn't you achieve longer Progress Reports with 3 than just one player.
Especially for testing I try to use as many accounts as possible depending on how long it can run without a random etc.

Darando
10-24-2008, 06:03 AM
Brilliant script! works perfectly

Worked for 1 Hours, 9 Minutes and 56 Seconds
Mined 644 Essence

soulshooter
10-24-2008, 10:39 PM
how do i make it so it dosnt run off SMART?

jis777
10-25-2008, 05:07 AM
when i try to run the script it says
error starting SMART check world prefix

please help me

mnagi85
10-25-2008, 10:36 AM
Ok I'm guessing this script is either outdated, or no one wants to help these people out with their problems. I'm going to try it myself. It worked maybe a week or two ago, I'll try it again.

jis777
10-26-2008, 02:50 AM
hi,
i get this error with smart when i try to compile the ess miner by wizzup? script.
do i just delete the smart lines? if so which lines do i delete.
if not what do i do to fix it?
thx

hellian46
10-26-2008, 04:32 AM
I get this error

Line 109: [Error] (112:71): Invalid number of parameters in script C:\Program Files\SCAR 3.15\includes\srl/srl/misc/Smart.scar

Griff
10-26-2008, 06:25 PM
hellian, read some tuts in the SMART section, they will help you out, not here. Its very simple to do once you get there, it isn't the script, its your SMART

ahadvakil
10-27-2008, 08:04 AM
[Runtime Error] : Exception: in line 46 in script C:\Program Files\SCAR 3.15\includes\SRL/SRL/Core/Math.scar

Any ideas?

ahadvakil
10-27-2008, 12:32 PM
[Runtime Error] : Exception: in line 46 in script C:\Program Files\SCAR 3.15\includes\SRL/SRL/Core/Math.scar

Any ideas?

EDIT: Sorry for the question, I should have looked through all 17 goddamn pages on this thread.

Oook, this is weird.

I thought 'Nick' could be any 3-4 consecutive letters of your username, it didn't work that way. When I changed it to the FIRST 4 letters of my name, it worked.

Who cares anyways, thanks a lot wizzup, heres a proggie

Worked for 2 Hours, 17 Minutes and 46 Seconds
Mined 613 Essence
Solved 2 abyssal random events.

----------------------------(Stopped manually)

[It's slow because I'm using steel picks on noob accounts]

EDIT: EDIT: OMG DOUBLE POST. I'm sorry, purely an accident.

mvp6789
10-28-2008, 11:54 PM
Is there any way to get smart OFF the script, because smart hasnt been working for me lately like many others, and i really wanna use the script. :P

SOooo, any help?

eevus
10-30-2008, 03:56 AM
all you have to do is change

{.include srl/srl/misc/Smart.scar}
{.include SRL/SRL.scar}
{.include srl/srl/misc/NewAutoColor.scar}

to:

{.Include SRL\SRL.SCAR}


but i just get this : /

Line 317: [Error] (16536:20): Unknown identifier 'srl_AutoGetColor' in script C:\DOCUME~1\Momma\LOCALS~1\Temp\Essence Miner #20.3 Pub-1.scar

altec
10-30-2008, 02:00 PM
ok all noobs who wants to get this script working without smart :D
downlad latest version of script then find
1098 line ( this might vary )
that line shoul look like this

" Smartsetup(SmartPrefix, true, true, false); "

delete that line and go to top of the script

and delete this line

" {.include srl/srl/misc/Smart.scar} "

now run ur script while your logged in :)

i hope that helps ya ;D

Wizzup?
10-30-2008, 02:51 PM
ok all noobs who wants to get this script working without smart :D
downlad latest version of script then find
1098 line ( this might vary )
that line shoul look like this

" Smartsetup(SmartPrefix, true, true, false); "

delete that line and go to top of the script

and delete this line

" {.include srl/srl/misc/Smart.scar} "

now run ur script while your logged in :)

i hope that helps ya ;D

Also, don't forget to remove SetTargetDC(smartGetDC), (or SmartSetTarget; for that matter)

ahadvakil
10-30-2008, 04:30 PM
Also, don't forget to remove SetTargetDC(smartGetDC), (or SmartSetTarget; for that matter)

It doesn't really make a difference if you leave it there :P

altec
10-30-2008, 08:24 PM
cant imagine why it stopped working :S

----------------------------

Wizzup? Essence Miner, Version 2.03

Worked for 5 Hours, 42 Minutes and 53 Seconds
Mined 931 Essence
Solved 2 abyssal random events.

----------------------------

just found my acc standing in bank with full invt of ess....
btw if u could add function witch enters bank pin then it would be ace, because i cant use multiple accounts :S i have to do it with one acc and he must be on when i start script :S

edit: when i came back he was still working but was pushing login and could not login...still dont know why he logged

Itzkirby
10-31-2008, 04:35 AM
Hmm I'm having some trouble. When I run it on the runescape man login page, it randomly clicks between spots and it says failed to find graphics options button.

Any idea on what happened?

Btw: I removed SMART since it wasn't working for me.

faster789
10-31-2008, 09:33 PM
Hey, anyone have a version of script that works with SMART fixes?

mvp6789
11-02-2008, 04:00 AM
After removing SMART I get a runtime error that has to do with SRL/math/core or something like that

curiousgeorge322
11-02-2008, 12:51 PM
Wizzup? Essence Miner, Version 2.03

Worked for 9 Hours, 6 Minutes and 2 Seconds
Mined 5349 Essence
Solved 6 abyssal random events.

----------------------------

0 : socc = F; NoBank; B: 5062 Essence; M : 70
1 : slop = F; NoBank; B: 128 Essence; M : 11
2 : jake = F; NoBank; B: 159 Essence; M : 10

----------------------------

I dunno why, but characters 1 and 2 were stuck in the mine with only partial loads of ess

RedSpree
11-02-2008, 03:35 PM
[Runtime Error] : Exception: in line 46 in script C:\Program Files\SCAR 3.15\includes\SRL/SRL/Core/Math.scar

I'm getting this. (I removed SMART)

mvp6789
11-03-2008, 01:16 AM
^ same problem as above

faster789
11-03-2008, 06:14 AM
Hey, anyone have a version of script that works with SMART fixes?

Anyone please?

:)

RudeBoiAlex
11-03-2008, 04:23 PM
i dont have a copy for you but have you updated your login.scar and gametab.scar and removed all smart stuff in the script?

kinda a weird error but heres a progress report.

----------------------------

Wizzup? Essence Miner, Version 2.03

Worked for 6 Hours, 17 Minutes and 15 Seconds
Mined 3270 Essence
Solved 2 abyssal random events.

----------------------------

0 : ure = T; Bank; B: 549 Essence; M : 39
1 : 00b = T; Bank; B: 331 Essence; M : 11
2 : eek = T; Bank; B: 420 Essence; M : 66
3 : oob = T; Bank; B: 420 Essence; M : 68
4 : oob = T; Bank; B: 420 Essence; M : 64
5 : ain = T; Bank; B: 291 Essence; M : 9
6 : nug = T; Bank; B: 420 Essence; M : 63
7 : uff = T; Bank; B: 419 Essence; M : 61

----------------------------
In Abyss gave 320.
Location: South East
You levelled up
Succesfully used NewAutoColor for FindArrow
[Runtime Error] : Exception: Can't allocate the DIB handle in line 150

altec
11-03-2008, 06:23 PM
it seems not wroking anymore... i think jagex changed some colloros... it hardly finds aubury and sometimes it takes me to lumberyard ;DDD

NCDS
11-03-2008, 08:59 PM
it works just fine it just seems that most people here cant accomplish even the simplest of all fixes.

just ran it to prove to everyone that it works fine.
just failed on the quiz master random, which has nothing to do with the script.

No Bank
----------------------------

Wizzup? Essence Miner, Version 2.03

Worked for 2 Hours, 16 Minutes and 26 Seconds
Mined 1427 Essence
Solved 1 abyssal random events.

----------------------------

0 : lood = F; NoBank; B: 1427 Essence; M : 74

good script, glad to see its still going.

mvp6789
11-03-2008, 11:16 PM
[Runtime Error] : Exception: in line 46 in script C:\Program Files\SCAR 3.15\includes\SRL/SRL/Core/Math.scar

I'm getting this. (I removed SMART)

I have the same problem, yet no one has told us how to fix it =/

ekamjit
11-03-2008, 11:48 PM
u rock it owns all of them and the best prat is its non-reflection

test
11-04-2008, 06:33 AM
Hey, anyone have a version of script that works with SMART fixes?

I can get smart to run and load but I don't know how to fix

[Runtime Error] : Exception: in line 46 in script C:\Program Files\SCAR 3.15\includes\SRL/SRL/Core/Math.scar

Help me..I'll help you?

RudeBoiAlex
11-04-2008, 04:16 PM
nice proggie here

----------------------------

Wizzup? Essence Miner, Version 2.03

Worked for 17 Hours, 48 Minutes and 14 Seconds
Mined 6166 Essence
Solved 6 abyssal random events.

----------------------------

0 : ure = T; Bank; B: 1078 Essence; M : 40
1 : 00b = T; Bank; B: 991 Essence; M : 24
2 : eek = T; Bank; B: 1006 Essence; M : 66
3 : oob = F; NoBank; B: 196 Essence; M : 68
4 : oob = T; Bank; B: 1007 Essence; M : 64
5 : ain = T; Bank; B: 881 Essence; M : 21
6 : nug = F; NoBank; B: 0 Essence; M : 63
7 : uff = T; Bank; B: 1007 Essence; M : 61

----------------------------
Successfully executed

i had quite a few players still active but it was stuck in the top corner of my runescape screen doing nothing but the script was still running

mvp6789
11-05-2008, 02:56 AM
I can get smart to run and load but I don't know how to fix

[Runtime Error] : Exception: in line 46 in script C:\Program Files\SCAR 3.15\includes\SRL/SRL/Core/Math.scar

Help me..I'll help you?

lol some1 help us with this problem


EDIT: FIXED, for me atleast (i feel like a newb XD)

Randol_8o8
11-05-2008, 06:05 AM
i recently got this error

[Runtime Error] : Exception: Can't allocate the DIB handle in line 116 in script C:\Program Files\SCAR 3.15\Scripts\Ess miner.scar

any idea what is wrong?

test
11-05-2008, 11:58 PM
lol some1 help us with this problem


EDIT: FIXED, for me atleast (i feel like a newb XD)

Are you going to tell me what you did?

alias8818
11-06-2008, 05:17 PM
----------------------------

Wizzup? Essence Miner, Version 2.03

Worked for 29 Minutes and 1 Seconds
Mined 278 Essence
Mined 10 per minute.
Potential to mine 575 per hour.
Potential Exp per hour is 2873 exp.
Solved 2 abyssal random events.

----------------------------

0 : **** = T; Bank; B: 278 Essence; M : 63

----------------------------

I added some stuff :D

faster789
11-07-2008, 12:14 AM
omg, does anyone have a version "with" smart?

hellah14
11-07-2008, 09:57 PM
Line 46: [Error] (230:11): Unknown identifier 'CreateTPAFromBMP' in script C:\Program Files (x86)\SCAR 3.15\includes\SRL/SRL/Core/Math.scar

I dont think that is the same error that everyone else is getting because I have my characters set up correctly.

in2it
11-08-2008, 02:18 AM
its outdated.....

mnagi85
11-08-2008, 11:47 AM
After removing SMART from the script, here was my progress report:

----------------------------

Wizzup? Essence Miner, Version 2.03

Worked for 58 Minutes and 55 Seconds
Mined 454 Essence

----------------------------

Great script, I will continue to use.

kingstun
11-08-2008, 01:21 PM
can you add anti-randoms?

davidwang95
11-08-2008, 04:00 PM
[Runtime Error] : Exception: in line 46 in script C:\Program Files\SCAR 3.15\includes\SRL/SRL/Core/Math.scar

NCDS
11-09-2008, 04:50 AM
its outdated.....

it is most certainly not out dated i use this script almost religiously. it wont run forever but i have definitely ran it for 7 hours plus with only 1 player.


can you add anti-randoms?

If you want them because your afraid to get banned then:
1.dont auto lol
2. but seriously this script is one of the more safe scripts ive used, wizzup is a very good scripter and has taken care of us very good with this script

hellah14
11-10-2008, 12:32 AM
Figured out everything. i havent used scar ina while so i didnt have srl installed correctly and everything. But here is my proggy for the day :)

----------------------------

Wizzup? Essence Miner, Version 2.03

Worked for 3 Hours, 21 Minutes and 55 Seconds
Mined 2014 Essence
Solved 2 abyssal random events.

----------------------------

kingstun
11-10-2008, 11:36 PM
it messess with demon army random and quiz show random

hamza
11-11-2008, 04:41 PM
It opens up a new tab called newautocolor.scar and says this...
"Line 185: [Error] (188:1): Unknown identifier 'srl_Warn' in script C:\Program Files\SCAR 3.15\includes\srl/srl/misc/NewAutoColor.scar"
What did I do wrong?

dver
11-16-2008, 08:50 AM
it messess with demon army random and quiz show random


Thats SRL's problem , not this scripts. Scripters RARELY incorporate anti-randoms in their scripts ;) because SRL has them , and they get updated with each revision ( some woodcutters have their own ent functions tho etc)

lowstyle
11-16-2008, 09:05 AM
is there anyway to remove smart thing ? because i can't play it wen smart is avaible, it just says: Error starting smart check world prefix. then scar shuts down

lowstyle
11-16-2008, 09:08 AM
anyone know how to fix this ? Error starting smart check world prefix.?

noodlesalan
11-17-2008, 12:16 AM
All of you guys with the SMART errors: Check out the Public Test Corner for more info.

And Wizzup?, can you tell me what to take out so it won't click that door east of Aubury? That has been getting me banned and all you need to have it do is If Aubury is unaccessable, then wait 10 seconds and try again.

jacoby6000
11-17-2008, 05:35 AM
ok can someone please post a version with SMART removed

I did all the stuff in the Smart FIX forum and the script started (smart too), but it didnt do anything... just sat there for three mins then said "it has been 3 minutes and runescape is still not ready. Terminating script"

bulletq
11-17-2008, 01:48 PM
Line 1098: [Error] (17799:43): Invalid number of parameters in script C:\Program Files\SCAR 3.15\Scripts\ess miner.scar

please help, anyone?

what does the following do?



begin;
TempBMP := CreateBitmapMaskFromText(Txt,Chars);
Result := CreateTPAFromBMP( GetBitmapDC(TempBMP));
FreeBitmap(TempBMP);
end;

the result line screws up my entire code, with this message :
[Runtime Error] : Exception: in line 46 in script C:\Program Files\SCAR 3.15\includes\SRL/SRL/Core/Math.scar

help please

Method
11-17-2008, 02:48 PM
what does the following do?



begin;
TempBMP := CreateBitmapMaskFromText(Txt,Chars);
Result := CreateTPAFromBMP( GetBitmapDC(TempBMP));
FreeBitmap(TempBMP);
end;

the result line screws up my entire code, with this message :
[Runtime Error] : Exception: in line 46 in script C:\Program Files\SCAR 3.15\includes\SRL/SRL/Core/Math.scar

help please

Make sure your players are set up correctly and that you have the latest SCAR and SRL revision.

bulletq
11-17-2008, 09:43 PM
thanks for that method, that was what I needed to do

jacoby6000
11-17-2008, 11:03 PM
If the smart fix doesnt work for you (it didnt for me) then
Delete the Smart include at the top of the script, then goto line 1076 where it says

Smartsetup(SmartPrefix, true, true, false);

Change it too

//Smartsetup(SmartPrefix, true, true, false);

This will make it use your mouse... so no multi tasking (sorry) but it works... what it does is makes it ignore the smart startup, so its like running any other script without smart



P.S.
----------------------------

Wizzup? Essence Miner, Version 2.03

Worked for 3 Hours, 56 Minutes and 38 Seconds
Mined 2378 Essence
Solved 3 abyssal random events.

----------------------------
Dang ODD ONE OUT random

bulletq
11-18-2008, 07:11 AM
okay, here is a problem i have encountered and solved myself for anyone else with it and perhaps the scripter.

the players, the multiple options of players, if 1, 2 , and 3 aren't being used it seems to screw the program up. perhaps they should be neutralized with { } until being used?

cheers for this, looks great

senrath
11-18-2008, 09:15 AM
okay, here is a problem i have encountered and solved myself for anyone else with it and perhaps the scripter.

the players, the multiple options of players, if 1, 2 , and 3 aren't being used it seems to screw the program up. perhaps they should be neutralized with { } until being used?

cheers for this, looks great

There are a couple of solutions for this. The simplest being just to change the Players[x].Boolean[0] from true to false for all the ones that are unused. The other way is to delete/comment out the unused spots, then change the value of NumberOfUsers to the proper amount.

arteest90
11-19-2008, 11:54 PM
OK, I'm either blind or I need to add it in myself, but where do you put in your PIN?

Wizzup?
11-20-2008, 12:21 AM
I am very sorry. It seems I didn't add Pin support yet. I'll try to do that soon. :)

arteest90
11-20-2008, 12:24 AM
I am very sorry. It seems I didn't add Pin support yet. I'll try to do that soon. :)

Np, great script btw!

I can definitely see myself using this quite a bit once I have my army;)

alias8818
11-20-2008, 01:22 PM
I added the pin in myself...
But the damned randoms kick my ass almost every time :P

mepure155
11-21-2008, 05:11 AM
well it works good but everytime my guys levels up in mining it automatically heads back to bank when it doesnt have a full load

gimillii1592
11-21-2008, 05:40 AM
Line 1098: [Error] (17799:43): Invalid number of parameters in script C:\Program Files\SCAR 3.15\Scripts\ess miner.scar

please help, anyone?

what does the following do?



begin;
TempBMP := CreateBitmapMaskFromText(Txt,Chars);
Result := CreateTPAFromBMP( GetBitmapDC(TempBMP));
FreeBitmap(TempBMP);
end;

the result line screws up my entire code, with this message :
[Runtime Error] : Exception: in line 46 in script C:\Program Files\SCAR 3.15\includes\SRL/SRL/Core/Math.scar

help please

FIX:
Setup all your players correctly, and you will not get this error.
(Make sure SRL is updated)

kautkto
11-21-2008, 11:25 AM
Downloading now, will test later on.

mnagi85
11-21-2008, 12:05 PM
At first it keeps clicking around the audio and graphics settings, and then it finally starts walking after some time. I don't know why, needs to get updated.

gimillii1592
11-21-2008, 02:29 PM
Wizzup? Essence Miner, Version 2.03

Worked for 6 Hours, 2 Minutes and 41 Seconds
Mined 3934 Essence
Solved 5 abyssal random events.

----------------------------

0 : gim = F; NoBank; B: 3934 Essence; M : 53

WOW!
This script OWNS!
:D

noodlesalan
11-21-2008, 11:56 PM
I am very sorry. It seems I didn't add Pin support yet. I'll try to do that soon. :)

And when you add that, can you make the DoorClosed as a boolean? It keeps opening that door next to Aubury's. Aubury's door is always open.

cycrosism
11-22-2008, 03:28 AM
Error starting SMART, Check the world prefix.

Help me someone i want to get this script working

DW i found a solution

cycrosism
11-22-2008, 09:47 PM
Sweet dude! im using it now on SMART so its working in the backround, does it have anti-bans? (you know so it looks like a human is getting essence)

Lorken
11-23-2008, 12:44 AM
sorry im a noob but which one of the four shoulod i be running?
i tried all of them but an error comes up and says something about SMART and the world prefix
it was set at world 10 so i chenged it to 38 but that still doesnt fix it

help!

Edit: it says: "error starting SMART check world prefix"

gimillii1592
11-23-2008, 04:27 AM
Wizzup? Essence Miner, Version 2.03

Worked for 5 Hours, 23 Minutes and 57 Seconds
Mined 3457 Essence
Solved 3 abyssal random events.

----------------------------

0 : gim = F; NoBank; B: 3457 Essence; M : 47

WOW!
Yet ANOTHER awesome proggy.
Thank you for this script Wizzup!
:]

supersayian2224
11-25-2008, 10:18 PM
Umm.. whenever I level up it goes staright back to bank.... to bank.

NCDS
11-25-2008, 10:19 PM
sorry im a noob but which one of the four shoulod i be running?
i tried all of them but an error comes up and says something about SMART and the world prefix
it was set at world 10 so i chenged it to 38 but that still doesnt fix it

help!

Edit: it says: "error starting SMART check world prefix"

Use the search button.
look for SMART fixes

botsrs
11-25-2008, 10:24 PM
It rocks! I love this script so much, just as much as your MultiMiner.

cycrosism
11-26-2008, 01:31 AM
Umm.. whenever I level up it goes staright back to bank.... to bank.

Same i have a level 44 so i made him do the rune mysteries quest and after i did that i looked at his mining level and he had 4 mining. So he mined about 3 essence, got a level up and walked to the bank and didnt finish off the load, happens every time he levels up

supersayian2224
11-26-2008, 01:36 AM
Lol thats funnny same here he has 4 mining atm .

supersayian2224
11-26-2008, 04:41 AM
Wooot FIRST Report!!!

----------------------------

Wizzup? Essence Miner, Version 2.03

Worked for 1 Hours, 43 Minutes and 48 Seconds
Mined 677 Essence

----------------------------

Gained 19 mining levels for me, thanks :] Looking forward to posting more!

Rune Killer
11-26-2008, 08:06 PM
Great script, stopped it manually using one player.
----------------------------
In Abyss gave 267.
Location: South West
----------------------------

Wizzup? Essence Miner, Version 2.03

Worked for 2 Hours, 54 Minutes and 11 Seconds
Mined 1769 Essence
Solved 2 abyssal random events.

----------------------------

supersayian2224
11-26-2008, 10:12 PM
----------------------------

Wizzup? Essence Miner, Version 2.03

Worked for 46 Minutes and 18 Seconds
Mined 327 Essence

----------------------------

It also solved an abyssal random. :D 21 MINING NOW YAY :D

bloodargon
11-29-2008, 02:34 AM
Epic. Quality work from you as always.
Nice free 127k an hour. When Im on I dick around 90% of the time anyway, so, this is great. Useful for when Im not at the computer too.

Larrylucky
11-29-2008, 05:10 AM
The script seems to be working extremely well so far.
(Reserved for proggie)

cycrosism
11-29-2008, 08:02 AM
the script was working yesterday and now it doesnt it says check word prefix. Please fix this bug

quiescent_87
11-29-2008, 10:23 PM
the script was working yesterday and now it doesnt it says check word prefix. Please fix this bug

It has been saying that to me for the past couple of days. I cannot get SMART to work on this for some reason. For some reason, I can't get it to log on after I take SMART out too.:(

nimo
11-29-2008, 11:01 PM
Yup, got same problem ^^,

cycrosism
11-30-2008, 07:41 AM
so has anyone fixed the smart issue yet

Sags
12-04-2008, 06:14 AM
My best so far, and this was manually stopped.

----------------------------

Wizzup? Essence Miner, Version 2.03

Worked for 13 Hours, 20 Minutes and 48 Seconds
Mined 8413 Essence

----------------------------

Im fairly sure thank you's are in order. :) made a few mill off this script so far

Wizzup?
12-04-2008, 09:17 AM
My best so far, and this was manually stopped.

----------------------------

Wizzup? Essence Miner, Version 2.03

Worked for 13 Hours, 20 Minutes and 48 Seconds
Mined 8413 Essence

----------------------------

Im fairly sure thank you's are in order. :) made a few mill off this script so far

Nice, added to the first page. :)

wired357
12-06-2008, 02:22 AM
Wizzup? Essence Miner, Version 2.03

Worked for 2 Hours, 29 Minutes and 34 Seconds
Mined 1507 Essence
Solved 1 abyssal random events.

Only thing I have noticed is that it gets hung up on the boot camp random. Not a big deal for me, just letting you know.

I finally got around to getting SMART working just to try this out. Love it!

Edit:

Wizzup? Essence Miner, Version 2.03

Worked for 3 Hours, 22 Minutes and 33 Seconds
Mined 2461 Essence
Solved 3 abyssal random events.

Added running. 745 essence/hr=105,790gp/hr@current market price of 142gp
original: 602 essence/hr=85,484gp/hr@current market price of 142gp

Laimonas171
12-06-2008, 09:39 PM
someone please post version whitout smart.
PLEASE :D

Kiloch
12-06-2008, 09:44 PM
Use search, i'm sure someone made a tut on how to de-SMART a script.

Or use the Non-SMART to smart script and invert it.

n33d scripts
12-07-2008, 04:32 AM
how do i disable smart on it... smart prefix dosnt work but i have the latest worlds file...

Smexyprince
12-07-2008, 05:34 AM
Update Your SRL rev to 28.
Update Your SRL

Do Ctrl+F
Search SmartSetup or SetupSmart.

Delete that line And Put

SMARTSetupEx(2, False, True, False);


Btw If Using 1 Player Use This Format for those who Don't Know how to Shorten.


Begin
HowManyPlayers := 1;
NumberOfPlayers( HowManyPlayers );
CurrentPlayer := StartPlayer;

Players[0].Name :='Username'; //Username of Your Account
Players[0].Pass :='Password'; //Password Of Your Account
Players[0].Nick :='NickName'; //3 Letters of You Username,No Numbers
Players[0].Active:=True; // Don't Touch
Players[0].Loc := 'Bank'; // Don't Touch

Writeln( IntToStr ( HowManyPlayers ) + ' Player[s]' );
End;


Replace The Current Declare Players procedures with that for 1 Player.

Edit:
This is to get Smart to Work.
Once S.M.A.R.T Opens (Big Box)
MINIMIZE it. Don't Open it Until Your Done,Or the Script Stopped.

P1nky
12-07-2008, 05:56 AM
NON-SMART VERSION:

program New;

{.include SRL/SRL.scar}
{.include srl/srl/misc/NewAutoColor.scar}

Const
NumberOfUsers = 4;
StartPlayer = 0;
Loads = 5;
VersionNumber = '2.03';
SRL_ID = ''; // Stats ID.
SRL_PASS = ''; // Stats Pass.
SmartPrefix = 'world10';

Type
EssLoc = Record
Name: String;
Info: Array Of Array Of Integer;
MMClicks, MSEss: TPointArray;
L, ReportIDVar: Integer;
End;
EssLocArray = Array Of EssLoc;

Var
EssInfo: EssLocArray;
AubTPA: TPointArray;
NewAutoColorWorked, NoEssFound: Boolean;
EssenceMined, Abyss: Integer;

//{$DEFINE DEBUG}

Procedure DeclarePlayers;

Begin
NumberOfPlayers( NumberOfUsers );
CurrentPlayer := StartPlayer;

Players[0].Name :='';
Players[0].Pass :='';
Players[0].Nick :='';
Players[0].Active := True;
Players[0].Loc := 'Bank';
Players[0].Booleans[0] := True; // Is The Pick Equipped?

Players[1].Name :='';
Players[1].Pass :='';
Players[1].Nick :='';
Players[1].Active := True;
Players[1].Loc := 'Bank';
Players[1].Booleans[0] := True; // Is The Pick Equipped?

Players[2].Name :='';
Players[2].Pass :='';
Players[2].Nick :='';
Players[2].Active := True;
Players[2].Loc := 'Bank';
Players[2].Booleans[0] := True; // Is The Pick Equipped?}

Players[3].Name :='';
Players[3].Pass :='';
Players[3].Nick :='';
Players[3].Active := True;
Players[3].Loc := 'Bank';
Players[3].Booleans[0] := True; // Is The Pick Equipped?

Writeln( IntToStr ( HowManyPlayers ) + ' Players' );
SetPlayerNameTPAs;
End;

Procedure FNRWait(ms: Integer);

Var
T: Integer;
Begin
T := GetSystemTime;
While GetSystemTime - T < ms Do
Begin
Wait(200);
FindNormalRandoms;
End;
End;

Procedure DebugMM(TPA: TPointArray);

Var
I, L: Integer;
C: TCanvas;

Begin
DisplayDebugImgWindow(0, 0);
DisplayDebugImgWindow(MMX2-MMX1, MMY2-MMY1);
C := GetDebugCanvas;
CopyCanvas(GetClientCanvas, C, MMX1, MMY1, MMX2, MMY2, 0, 0, MMX2 - MMX1, MMY2 - MMy1);
L := High(tpa);
For I := 0 To L Do
C.Pixels[tpa[i].x - MMX1, tpa[i].y - MMY1] := 255;
DisplayDebugImgWindow(MMX2-MMX1, MMY2-MMY1);
End;

Function FindMagicSymbol(Var P: TPoint): Boolean;

Var
I, J, cts: Integer;
Points, P2: TPointArray;
aTPA: T2DPointArray;
MagicSymbolColors, C: TIntegerArray;
H, S, L: Extended;

Begin
cts := GetColorToleranceSpeed;
ColorToleranceSpeed(2);
SetColorSpeed2Modifiers(0.20, 2.0);
Result := False;
MagicSymbolColors := [2326527, 2925567];

SetLength(Points, 0);
For I := 0 To High(MagicSymbolColors) Do
Begin
SetLength(P2, 0);
SetLength(C, 0);
FindColorsTolerance(P2, MagicSymbolColors[I], MMX1, MMY1, MMX2, MMY2, 18);
C := GetColors(P2);
For J := 0 To High(C) Do
Begin
ColorToHSL(C[J], H, S, L);
//If ((H > 8.5) And (H < 9.5)) Or ((H > 5.5) And (H < 7.5)) Then
If (((H > 5.5) And (H < 10.0)) Or (H < 1.0)) And (S > 85.0) Then
Begin
SetLength(Points, Length(Points) + 1);
Points[High(Points)] := P2[J];
End;
End;
//Points := CombineTPA(Points, P2);
End;
{$IFDEF DEBUG} debugMM(Points); {$ENDIF}
ColorToleranceSpeed(cts);
aTPA := SplitTPA(Points, 5);
SortATPASize(aTPA, True);
If Length(aTPA) = 0 Then
Exit;
Result := Length(aTPA[0]) > 2;
P := MiddleTPA(aTPA[0]);
If Not Result Then
WriteLn('No Aubury Shop');
End;

Function LevelUp: Boolean;

Begin
Result := FindNPCChatText('gratu', Nothing);
If Not Result Then
Result := FindNPCChatText('atio', Nothing);
If Result Then
Begin
While ClickContinue(True, True) Do
Wait(500);
End;
End;

Function FindBankers(Var Bank: TPoint; Var Angle: Extended): Boolean;

Var
I: Integer;
B, gB: TPointArray;
aTPA: T2DPointArray;

Begin
Result := False;
FindColorsSpiralTolerance(MMCX, MMY2, B, 60909, MMX1, MMY1, MMX2, MMY2, 0);
aTPA := SplitTPA(B, 10);
SortATPASize(aTPA, True);
If Length(aTPA) = 0 Then
Exit;
B := aTPA[0];
For I := 0 To High(B) - 1 Do
Begin
If (Abs(B[I].Y - B[I + 1].Y) < 15) And (Abs(B[I].X - B[I + 1].X) < 60) Then
Begin
SetLength(gB, Length(gB) + 1);
gB[High(gB)] := B[I];
If High(gB) > 3 Then // 4 bankers.
Begin
Bank := MiddleTPA(gB);
Bank.Y := Bank.Y - 5;
Angle := Degrees(ArcTan2(gB[0].y - gB[High(gB)].y, gB[0].x - gB[High(gB)].x)) + 90;
If Angle < 0 Then
Angle := 90 - (Angle * -1) + 270;
Result := True;
Exit;
End;
End
Else
SetLength(gB, 0);
End;
End;

Function Randomize(x, Randomness: Integer): Integer;

Begin
Result := RandomRange(X - Randomness, X + Randomness);
End;

Function AtMine: Boolean;

Var
TPA: TPointArray;
Begin
FindColorsTolerance(TPA, 65536, MMX1, MMY1, MMX2, MMY2, 1);
Result := Length(TPA) > 2000;
End;

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;

Begin
Result := (Pos(Text, GetUpTextBlue) <> 0)
End;

Function FindPortal(Var x, y: Integer): Boolean;

Var
CTS, I, C: Integer;
vPoint: TPoint;
Points: TPointArray;
aPoints: T2DPointArray;
s: String;
sa: Array Of String;

Begin
Cts := GetColorToleranceSpeed;
ColorToleranceSpeed(2);
SetColorSpeed2Modifiers(0.40, 1.50); // 9743280
FindColorsSpiralTolerance(MSCX, MSCY, Points, 9481130, MSX1, MSY1, MSX2, MSY2, 10);
aPoints := TPAToATPAEx(Points, 40, 40);
sa := ['Use', 'Portal', 'ortal', 'se Por'];
ColorToleranceSpeed(Cts);
For I := 0 To High(aPoints) Do
Begin
If Length(aPoints[I]) < 40 Then
Continue;
vPoint := MiddleTPA(aPoints[I]);
MMouse(vPoint.X, vPoint.Y, 5, 5);
Wait(150);
Cts := GetColorToleranceSpeed;
ColorToleranceSpeed(2);
SetColorSpeed2Modifiers(0.2, 0.2); // 9743280
If CountColorTolerance(14342657, 7, 7, 100, 25, 50) > 100 Then
Begin
GetMousePos(x, y);
Result := True;
ColorToleranceSpeed(Cts);
Exit;
End;

ColorToleranceSpeed(1);
s := rs_GetUpText;
For C := 0 To High(sa) Do
If Pos(sa[C], s) <> 0 Then
Break;
If C = Length(sa) Then
If Not IsUpTextBlue('ortal') Then
Continue;
GetMousePos(x, y);
Result := True;
End;
ColorToleranceSpeed(Cts);
End;

Function DoorClosed: Boolean;

Var
TP: TPoint;
TPA: TPointArray;
aTPA: T2DPointArray;
I, c: Integer;

Begin
Result := False;
c := GetColorToleranceSpeed;
ColorToleranceSpeed(2);
SetColorspeed2Modifiers(0.2, 0.5);
FindColorsTolerance(TPA, 5208714, 3, 3, 515, 336, 8);
//aTPA := TPAToATPAEx(TPA, 50, 50);
aTPA := SplitTPA(TPA, 3);
For I := 0 To High(aTPA) Do
Begin
If Length(aTPA[I]) < 320 Then
Continue;
TP := MiddleTPA(aTPA[I]);
MMouse(TP.X, TP.Y, 0, 0);
Wait(200);
If IsUpText('pen') And IsUpText('oor') Then
Begin
Result := True;
Mouse(TP.X, TP.Y, 0, 0, True);
FFlag(0);
Break;
End;
End;
ColorToleranceSpeed(c);
SetColorspeed2Modifiers(0.2, 0.2);
End;

Function FindArrow: Boolean;

Var
x, y: Integer;
Begin
Result := False;
If NewAutoColorWorked Then
If FindColor(x, y, srl_AutoGetColor('transport'), MMX1, MMY1, MMX2, MMY2) Then
Begin
Result := True;
WriteLn('Succesfully used NewAutoColor for FindArrow');
End;
If Not Result Then
If FindSymbol(x, y, 'transportation') Then
Result := True;
If Result Then
Begin
Mouse(x, y, 4, 4, True);
Wait(1000);
FFlag(0);
FNRWait(1000);
End;
End;

Procedure BankToAubury;

Var
V: TPoint;
T: Integer;

Begin
FindNormalRandoms;
MFNF(Randomize(640, 4), Randomize(140, 4), -1, -1);
Wait(10000);
T := GetSystemTime;
While (GetSystemTime - T < 60000) Do
Begin
FindNormalRandoms;
If FindMagicSymbol(V) Then
Break;
Wait(500);
End;
If GetSystemTime - T >= 60000 Then
Begin
WriteLn('BankToAuburyTime');
LogOut;
Exit;
End;
Mouse(V.X, V.Y + 3, 0, 0, True);
Wait(500);
FFlag(0);
Players[CurrentPlayer].Loc := 'Aubury';
End;

Procedure MineToAubury;

Var
x, y, T, T2, I: Integer;

Begin
FNRWait(1000);

T := GetSystemTime;
While GetSystemTime - T < 60000 Do
Begin
If GetSystemTime - T > 30000 Then
MakeCompass('E');
If Not AtMine Then
Break;
FindNormalRandoms;
If Not FindArrow Then
Begin
WriteLn('MineToAubury - Could not find the transportation symbol. Exiting');
FNRWait(5000);
Continue;
End;
FindNormalRandoms;
For I := 0 To 5 Do
Begin
If FindPortal(x, y) Then
Begin
Mouse(x, y, 0, 0, True);
T2 := GetSystemTime;
While AtMine And (GetSystemTime - T2 < 10000) Do
Begin
//FindTalk;
FNRWait(500);
End;
Break;
End;
Wait(250);
End;
FNRWait(1000);
FindNormalRandoms;
End;
If GetSystemTime - T >= 60000 Then
Begin
//LogOut;
WriteLn('No Portal!');
LogOut;
Exit;
End;
MakeCompass('N');
End;

Procedure AuburyToBank;

Var
T: Integer;
P: TPoint;
A: Extended;

Begin
T := GetSystemTime;
While GetSystemTime - T < 120000 Do
Begin
FindNormalRandoms;
Mouse(665, 30, 8, 8, True);
If (FlagDistance < 40) Or (Not FlagPresent)Then
Begin
Mouse(MMCX, RandomRange(MMCY + 5, MMCY + 15), 4, 0, True);
FNRWait(1500);
DoorClosed;
End
Else
Begin
{ T2 := GetSystemTime;
While GetSystemTime - T2 < 8000 Do
Begin
Wait(1000);
FindMagicSymbol(P);
If Distance(P.x, P.y, MMCX, MMCY) > 30 Then
Break;
End;
FFlag(10); }
FNRWait(8000);
FFlag(10);
FindMagicSymbol(P);
If Distance(P.x, P.y, MMCX, MMCY) > 30 Then
Break;
End;
If Not FindMagicSymbol(P) Then
Break;
If Distance(P.X, P.Y, MMCX, MMCY) > 30 Then
Break;
End;
WriteLn('Out of shop');
FFlag(0);
If FindBankers(P, A) Then
Begin
Mouse(P.x, P.y, 0, 0, True);
FNRWait(3000);
FFlag(0);
End
Else
If FindSymbol(P.x, P.y, 'Bank') Then
Begin
Mouse(P.x, P.y, 0, 0, True);
FNRWait(3000);
FFlag(0);
End Else
Begin
WriteLn('No Bank');
LogOut;
End;
Players[CurrentPlayer].Loc := 'Bank';
End;

Function FindAuburyText: Boolean;
var // FindTalk but modded.
TPA,Matches : TPointArray;
TempATPA : T2DPointArray;
I,CTS,x,y : integer;
Box : TBox;

begin;
CTS := GetColorToleranceSpeed;
ColorToleranceSpeed(1);
FindColorsTolerance(TPA, 65535, 3, 3, 515, 336, 0);
if FindTPAinTPA(aubtpa ,TPA,Matches) then //Length check inside the function ;)
For I := 0 to High(Matches) do
begin;
FindColorsTolerance(TPA,65535,3, Matches[I].y - 1,516,Matches[I].y + 14,0);
if High(TPA) < 0 then
Continue;
TempATPA := FindGapsTPA(TPA,10);
if Length(TempATPA) > 1 then
begin;
SetLength(TPA,Length(TempATPA));
For x := 0 to High(TempATPA) do
begin;
Box := GetTPABounds(TempATPA[x]);
TPA[x] := Point((Box.x2 + Box.x1) shr 1, Box.y2);
end;
SortTPAFrom(TPA,Point(Matches[I].x,Matches[I].y));
x := TPA[0].x;
y := TPA[0].y;
end else
begin;
Box := GetTPABounds(TempATPA[0]);
x := (Box.x2 + Box.x1) shr 1;
y := Box.y2;
end;
y := y + 8;
MMouse(x, y, 0, 0);
Wait(100 + Random(50));
if IsUpTextMultiCustom(['Talk','lk-to']) then
begin
GetMousePos(x, y);
Mouse(x, y, 0, 0, False);
Wait(450 + Random(125));
If ChooseOption('eleport') Then
Begin
Result := True;
Exit;
End;
end;
end;
ColorToleranceSpeed(CTS);
end;

Function FindAubury: Boolean;

Var
I, T, cts: Integer;
P: TPoint;
PA: TPointArray;
aPA: T2DPointArray;

Begin
Result := False;
If FindMagicSymbol(P) Then
Begin
If (Distance(P.x, P.y, MMCX, MMCY) > 15) Or (Random(20) = 0) Then
Begin
Mouse(P.x + 3, P.y + 10, 2, 2, True);
Wait(1000);
FFlag(0);
End;
End;
If FindAuburyText Then
Begin
Result := True;
Exit;
End;
cts := GetColorToleranceSpeed;
ColorToleranceSpeed(1);
FindColorsTolerance(PA, 2153723, MSX1, MSY1, MSX2, MSY2, 50);
//writeln(inttostr(length(pa)));
aPA := TPAToATPA(PA, 50);
//writeln(inttostr(length(apa)));
For I := 0 To High(aPA) Do
Begin
Wait(200);
If AtMine Then
Begin
Result := True;
Break;
End;
If Length(aPA[I]) < 3 Then
Continue;
P := MiddleTPA(aPA[I]);
MMouse(p.X, P.Y, 3, 3);
Wait(250);
If Not IsUpText('bury') Then
Continue;
GetMousePos(P.X, P.Y);
Mouse(P.X, P.Y, 0, 0, False);
Wait(50);
If Not ChooseOption('eleport') Then
Continue;
T := GetSystemTime;
While GetSystemTime - T < 15000 Do
Begin
Wait(500);
If AtMine Or (Not FindMagicSymbol(P)) Then
Break;
End;
Result := GetSystemTime - T < 10500;
If AtMine Then
Result := True;
If Result Then
Break;
End;
ColorToleranceSpeed(cts);
End;

Function GetCurrentTPA: TPointArray;

Var
cts: Integer;

Begin
cts := GetColorToleranceSpeed;
ColorToleranceSpeed(1);
FindColorsTolerance(Result, clWhite, MMX1, MMy1, MMX2, MMY2, 421);
ColorToleranceSpeed(cts);
End;

Function ScanMM(Const TPA: TPointArray; SD, ED, MinR, MaxR: Integer): Integer;

Begin
FilterPointsPie(TPA, SD, ED, MinR, MaxR, MMCX, MMCY);
Result := Length(TPA);
{$IFDEF DEBUG} DebugMM(TPA); {$ENDIF}
End;

Procedure LoadLocations;

Begin
SetLength(EssInfo, 6);
With EssInfo[0] Do
Begin
Name := 'North West';
Info := [TIntegerArray([80, 160, 60, 70, 400]), TIntegerArray([270, 30, 30, 50, 900])];
MSEss := [Point(190, 100)];
L := 1;
ReportIDVar := 6;
End;
With EssInfo[1] Do
Begin
Name := 'Middle North';
Info := [TIntegerArray([0, 80, 60, 70, 300]), TIntegerArray([80, 180, 55, 70, 300]),
TIntegerArray([170, 260, 60, 70, 190]), TIntegerArray([270, 340, 30, 75, 900])];
{Info := [TIntegerArray([0, 80, 60, 70, 320]), TIntegerArray([80, 180, 55, 70, 320]),
TIntegerArray([170, 260, 60, 70, 210]), TIntegerArray([270, 340, 30, 75, 1000])];}
MMClicks := [Point(670, 35)];
MSEss := [Point(370, 30), Point(430, 55)];
L := 3;
ReportIDVar := 3;
End;
With EssInfo[2] Do
Begin
Name := 'Middle South';
Info := [TIntegerArray([170, 270, 30, 70, 1700]), TIntegerArray([330, 120, 25, 50, 1700])];
MMClicks := [Point(590, 120)];
MSEss := [Point(255, 270), Point(150, 175)];
L := 1;
ReportIDVar := 4;
End;
With EssInfo[3] Do
Begin
Name := 'North East';
//Info := [TIntegerArray([350, 130, 30, 60, 2000]), TIntegerArray([180, 270, 60, 74, 700])];
Info := [TIntegerArray([350, 130, 30, 60, 1500]), TIntegerArray([180, 270, 60, 74, 450])];
MSEss := [Point(365, 95)];
L := 1;
ReportIDVar := 5;
End;
With EssInfo[4] Do
Begin
Name := 'South West';
Info := [TIntegerArray([290, 70, 0, 74, 3000])];
MSEss := [Point(252, 65)];
L := 0;
ReportIDVar := 8;
End;
With EssInfo[5] Do
Begin
Name := 'South East';
//Info := [TIntegerArray([285, 0, 0, 74, 1600]), TIntegerArray([0, 270, 0, 50, 2800])];
Info := [TIntegerArray([285, 0, 0, 74, 1400]), TIntegerArray([0, 270, 0, 50, 2500])];
MSEss := [Point(350, 195)];
L := 1;
ReportIDVar := 7;
End;
End;

Function AdeptDegree(CompassAngle: Extended; Degree: Integer): Integer;

Begin
Result := Round(Abs(CompassAngle + Degree));
While Result > 360 Do
Result := Result - 360;
End;

Function FindEssence: Boolean;

Var
I, cts: Integer;
P: TPoint;
TPA: TPointArray;
aTPA: T2DPointArray;

Begin
cts := GetColorToleranceSpeed;
ColorToleranceSpeed(2);
SetColorSpeed2Modifiers(0.2, 0.2);
FindColorsTolerance(TPA, 9737632, MSX1, MSY1, MSX2, MSY2, 20);
aTPA := TPaToATPAEx(TPA, 15, 15);
SetLength(TPA, 0);
SortATPASize(aTPA, True);
ColorToleranceSpeed(cts);
For I := 0 To High(aTPA) Do
Begin
If Length(aTPa[I]) < 30 Then
Continue;
P := MiddleTPA(aTPA[I]);
MMouse(P.X, P.Y, 5, 5);
Wait(200);
If (CountColorTolerance(14342657, 7, 7, 100, 25, 50) > 100) Or IsUpText('ssen') Then
Begin
Result := True;
GetMousePos(P.X, P.Y);
Mouse(P.X, P.Y, 0, 0, True);
FNRWait(1000);
Exit;
End;
End;
End;

Function ScanMiniMap(iFrom, iTo, Distance: Integer): Integer;
// Old Code. Still works.
Var
I, iX,iY: Integer;
Begin
For I := iFrom To ITo Do
Begin
iX := Round(Distance * Sin(I * Pi / 180)) + MMCX;
iY := Round(-Distance * Cos(I * Pi / 180)) + MMCY;
If GetColor(iX, iY) = 65536 Then
Begin
Result := Result + 1;
End;
End;
End;

Function InAbyss: Boolean;
// Old Code. Still works.
Var
A : Integer;

Begin
Result := False;
A := ScanMiniMap(0, 359, 50);
WriteLn('In Abyss gave '+IntToStr(A)+'.');
If A = 360 Then
Begin
WriteLn('We are in the Abyss random.');
Result := True;
End
End;

Function GuessAbyssRandom: Boolean;
// Old Code. Still works.
Var
AbyssalMark, iX, iY, I, ChosenColor, Tol, Tries: Integer;
WeirdColors: Array Of Integer;
Operate: TPoint;
Begin
WriteLn('In GuessAbyssRandom');
WeirdColors := [13751777, 4953873, 2509833];
Repeat
Case Random(4) Of
0: Begin Operate.X := 252; Operate.Y := 150; End;
1: Begin Operate.X := 278; Operate.Y := 170; End;
2: Begin Operate.X := 238; Operate.Y := 200; End;
3: Begin Operate.X := 215; Operate.Y := 166; End;
End;
For I := 0 To 2 Do
Begin
Tol := 0;
Repeat
Tol := Tol + 1;
iX := MSCX;
iY := MSCY;
If FindColorSpiralTolerance(iX, iY, WeirdColors[I], MSX1, MSY1, MSX2, MSY2, Tol) Then
Begin
ChosenColor := WeirdColors[I];
If (Distance (iX, iY, MSCX, MSCY) < 120) Then Break;
End;
If ChosenColor <> 0 Then
Break;
Until Tol > 9;
End;

If ChosenColor <> 0 Then
Begin
MMouse(iX, iY, 0, 0);
Wait(100);
If IsUpText('perate') Then
Begin
GetMousePos(iX, iY);
Mouse(iX, iY, 0, 0, True);
End;
End;

Wait(5000+Random(500));
If Not InAbyss Then
Begin
Abyss := Abyss + 1;
ReportVars[8] := ReportVars[8] + 1;
Result := True;
Wait(1000);
ClickToContinue;
SRLRandomsReport;
Exit;
End;
Tries := Tries + 1;
If TimeFromMark(AbyssalMark) > 60000 * 5 Then Break;
Until Tries > 30;

Tries := 0;
If InAbyss Then
Begin
Repeat
Case Random(4) Of
0: Begin Operate.X := 252; Operate.Y := 150; End;
1: Begin Operate.X := 278; Operate.Y := 170; End;
2: Begin Operate.X := 238; Operate.Y := 200; End;
3: Begin Operate.X := 215; Operate.Y := 166; End;
End;
iX := Operate.X;
iY := Operate.Y;
If FindColorSpiralTolerance(iX, iY, 3393, MSX1, MSY1, MSX2, MSY2, Tol)
Or FindColorSpiralTolerance(iX, iY, 2040150, MSX1, MSY1, MSX2, MSY2, Tol) Then
Begin
If (Distance (iX, iY, MSCX, MSCY) < 80) Then
Begin
MMouse(iX, iY, 0, 0);
Wait(100);
If IsUpText('perate') Then
Begin
GetMousePos(iX, iY);
Mouse(iX, iY, 0, 0, True);
Wait(5000+ Random(500));
If Not InAbyss Then
Begin
Abyss := Abyss + 1;
ReportVars[8] := ReportVars[8] + 1;
Result := True;
ClickToContinue;
SRLRandomsReport;
Exit;
End;
End;
End;
End;
Tries := Tries + 1;
Tol := Tol + 2;
If Tol > 20 Then Tol := 2;
Until Tries > 50;
End;
LogOut;
ReportVars[9] := ReportVars[9] + 1;
Players[CurrentPlayer].Loc := 'Abyss';
SRLRandomsReport;
WriteLn('Abyss Random Event Failed.');
End;

Function GetPos: String;
// Get's our position and acts accoringly.
Var
TPA: TPointArray;
I, C, E: Integer;
CA: Extended;

Begin
Wait(500);

MakeCompass('N');
Result := '';

TPA := GetCurrentTPA;
CA := rs_GetCompassAngleDegrees;
For I := Low(EssInfo) To High(EssInfo) Do
Begin
With EssInfo[I] Do
Begin
//WriteLn(EssInfo[I].Name + ': Info Length ' + IntToStr(Length(Info)));
For C := 0 To L Do
Begin
E := ScanMM(TPA, AdeptDegree(CA, Info[C][0]), AdeptDegree(CA, Info[C][1]),
Info[C][2], Info[C][3]);

//WriteLn(IntToStr(c) + '...' + IntToStr(E) + ' vs ' + IntToStr(Info[C][4]));

If E < Info[C][4] Then
Begin
//WriteLn('Breaking... ' + IntToStr(C) + ' E('+inttostr(E) + ') was smaller than info[C][4](' + inttostr(info[C][4]) + ')');
Break;
End;
End;
If C = L + 1 Then
Begin
Result := Name;
WriteLn('Location: ' + Result);
Break;
End;
End;
End;
If Result = '' Then
Begin
WriteLn('No Location!');
TerminateScript;
End;

If I = Length(EssInfo) Then
Exit;
Inc(ReportVars[EssInfo[I].ReportIDVar]);

With EssInfo[I] Do
Begin
For I := Low(MMClicks) To High(MMClicks) Do
Begin
Mouse(MMClicks[I].X, MMClicks[I].Y, 4, 4, True);
Wait(2000);
FFlag(0);
Wait(500);
End;
If Not FindEssence Then
Begin
NoEssFound := True;
WriteLn('No Essence');
//TerminateScript;
End;
End;
End;

Function EssenceCount: Integer;

Var
I: Integer;
TPA: TPointArray;
B: TBox;

Begin
Result := 0;
For I := 1 To 28 Do
Begin
B := InvBox(I);
FindColorsTolerance(TPA, 65536, B.X1, B.Y1, B.X2, B.Y2, 0);
If Length(TPA) = 82 Then
Result := Result + 1;
End;
End;

Procedure Bank;

Var
I: Integer;
P: TPoint;
A: Extended;
TempEss: Integer;

Begin
ReportVars[1] := ReportVars[1] + 1; // Banks
Players[CurrentPlayer].Banked := Players[CurrentPlayer].Banked + 1;
For I := 0 To 2 Do
If OpenBankFast('veb') Then
Break
Else
If FindBankers(P, A) Then
Begin
Mouse(p.x, p.y, 0, 0, True);
Wait(4000);
FFlag(0);
Wait(1500);
End;
If Not BankScreen Or PinScreen Then
Begin
LogOut;
Players[CurrentPlayer].Loc := 'NoBank';
Players[CurrentPlayer].Active := False;
Exit;
End;
TempEss := EssenceCount;
EssenceMined := EssenceMined + TempEss;
ReportVars[0] := ReportVars[0] + TempEss;
Players[CurrentPlayer].Integers[0] := Players[CurrentPlayer].Integers[0] + TempEss;
If Players[CurrentPlayer].Booleans[0] Then
Deposit(1, 28, True)
Else
Deposit(2, 28, True);

CloseBank;
End;

Procedure PlayerReport;

Var
Active, Rand: string;
I: Integer;

Begin
For I := 0 To High(Players) Do
Begin
If Players[i].Active Then
Active := 'T'
Else
Active := 'F';
If Players[i].Rand <> '' Then
Rand := '; Rand: ' + Players[i].Rand
Else
Rand := '';

WriteLn((IntToStr(I)) + ' : ' + Players[I].Nick + ' = ' +
Active + '; ' + Players[I].Loc + rand + '; B: ' + IntToStr(Players[I].Integers[0])
+ ' Essence;'+ ' M : ' + IntToStr(Players[I].Level[15]));
End;
End;

Procedure ProgressReport;

Begin
WriteLn('----------------------------');
WriteLn('');
WriteLn('Wizzup? Essence Miner, Version ' + VersionNumber);
WriteLn('');
WriteLn('Worked for '+ TimeRunning);
WriteLn('Mined ' + IntToStr(EssenceMined) + ' Essence');
If Abyss > 0 Then WriteLn('Solved ' + IntToStr(Abyss) + ' abyssal random events.');
WriteLn('');
WriteLn('----------------------------');
WriteLn('');
PlayerReport;
WriteLn('');
WriteLn('----------------------------');
SRLRandomsReport;
End;

Procedure ScriptTerminate;

Begin
ProgressReport;
End;

Function GetAndSetAnyReferenceColor: Boolean;

Var
c: integer;

Begin
NewAutoColorWorked := False;
c := FindRockColor;
If c > 0 Then
Begin
SetAutoColorReference('grey rock', c);
WriteLn('Got the color using the grey rock');
NewAutoColorWorked := True;
Result := True;
Exit;
End;
End;

Procedure InitPlayer;

Var
I: Integer;
Begin
For I := 1 To 5 Do
If Not Players[CurrentPlayer].Booleans[I] Then
Begin
Case I Of
1: SetGraphics(4, '', '' ,'', '', '', '', '', '');
2: Retaliate(False);
3: SetAudio(0, 0, 0, Mono);
End;
Players[CurrentPlayer].Booleans[I] := True;
End;

GetAllLevels;
SetChat('on',1);
SetChat('friends',2);
SetChat('on',3);
SetAngle(True);
End;

Procedure SetupScript;

Var
I: Integer;
Begin
SRLID := SRL_ID;
SRLPassword := SRL_PASS;
For I := 1 To 19 Do
ReportVars[I] := 0;
ScriptID := '51';
DeclarePlayers;
LoginPlayer;
InitPlayer;
End;

Var
T, T2, I:integer;

begin
AubTPA := CreateTPAFromText('isthin', UpChars);
SetupSRL;
SetupScript;

LoadLocations;
SetupNewAutoColor;
GetAndSetAnyReferenceColor;
Repeat

If Players[CurrentPlayer].Loc = 'Bank' Then
BankToAubury;

If Players[CurrentPlayer].Loc = 'Aubury' Then
Begin
T2 := GetSystemTime;
While Not AtMine Do
Begin
If GetSystemTime - T2 > 180000 Then
Begin
Players[CurrentPlayer].Loc := 'NoAubury';
Break;
End;
DoorClosed;
If FindAubury Then
Begin
T := GetSystemTime;
While (Not AtMine) and (GetSystemTime - t < 10000) Do Wait(250);
If AtMine Then
Break;
End;
Wait(500);
End;
Players[CurrentPlayer].Loc := 'Mine';
End;

If Players[CurrentPlayer].Loc = 'Mine' Then
Begin
Wait(500);
If InAbyss Then
GuessAbyssRandom;

GetPos;
T := GetSystemTime;
T2 := GetSystemTime;
While (GetSystemTime - T < 180000) And (InvCount < 28) Do
Begin
If NoEssFound Then
Begin
WriteLn('We did not find any essence...');
NoEssFound := NoEssFound xor NoEssFound;
Break;
End;
If GetSystemTime - T2 > 60000 Then
Begin
I := Random(13) + 1;
If I = 4 Then I := 2;
GameTab(I);
Wait(RandomRange(200, 4000));
GameTab(4);
T2 := GetSystemTime;
End;

If FindFight Then
Break;
Wait(1000);
If LevelUp Then
Begin
WriteLn('You levelled up');
Break;
End;
If FindNormalRandoms Then
Begin
T := GetSystemTime;
While GetSystemTime - T < 5000 Do
Begin
Wait(250);
FindNormalRandoms;
End;
End;
End;
MineToAubury;
AuburyToBank;
Bank;
End;

ProgressReport;

If Not LoggedIn Then
Begin
NextPlayer(False);
InitPlayer;
Continue;
End;

If Players[CurrentPlayer].Banked Mod Loads = 0 Then
Begin
NextPlayer(True);
InitPlayer;
Continue;
End;

Until False;
End.

:) rep me if you love me lol,

wow was surfing through the pages for proggies.

its great, i better make a army using this script :spot: ;)

Widget
12-07-2008, 06:05 AM
Oh nice, you fixed the listing of every single page :D

*has nothing useful to say about the actual script itself :p*

Laimonas171
12-07-2008, 09:10 AM
I disabled smart and added RUN procedure i post it here but i dont knoiw or i can do that.. becouse script is by Wizzup? . . .

--------------------------------------------------------
Wizzup? Essence Miner, Version 2.03
--------------------------------------------------------
Worked for 1 Hours, 59 Minutes and 32 Seconds
Mined 1398 Essence
Solved 2 abyssal random events.

--------------------------------------------------------

0 : aim = T; Bank; B: 1398 Essence; M : 77
--------------------------------------------------------
Best script EVER!
I think!

Wizzup?
12-07-2008, 10:45 AM
It's fine to add or remove run or smart yourself. In fact, you may mod it as much as you want, as long as you don't publish it without asking me. :)

weby
12-07-2008, 11:00 AM
ooh i love wizzy cant wiat to try this one out! ill post proggy asap
:spot:

Laimonas171
12-07-2008, 12:03 PM
It's fine to add or remove run or smart yourself. In fact, you may mod it as much as you want, as long as you don't publish it without asking me. :)
i do not publish it anywhere.. :P
i added run but very simple.. then run 100% then it clicks on it (DTM), i am just start programing at scar, so dont have other way in my mind.. anyway it start then takes essences in the bank checks or run 100 then do procedure. :) anyway script is exelent.. just here i dont see bank pin funcion..., and smart doesnt work for me :X trying to fix that problemi hope it works somehow..
~Laimonas

Smexyprince
12-08-2008, 02:18 AM
**Someone Please Tell me How to Add RUN Command to the Script. Or Post the Script With RUN in It. Please will be highly Appreciated.




----------------------------

Wizzup? Essence Miner, Version 2.03

Worked for 6 Hours, 5 Minutes and 29 Seconds
Mined 3709 Essence
Solved 4 abyssal random events.

----------------------------

0 : oob = T; Bank; B: 3709 Essence; M : 51
1 : = F; ; B: 0 Essence; M : 0
2 : = F; ; B: 0 Essence; M : 0
3 : = F; ; B: 0 Essence; M : 0

----------------------------


Still Running :P
Going to Stop When it Hits 12+ Hours Or W.e

tls
12-08-2008, 03:26 AM
**Someone Please Tell me How to Add RUN Command to the Script. Or Post the Script With RUN in It. Please will be highly Appreciated.



add this underneath setangle(true); on line 1076

setrun(true);


so that the procedure looks like this

Procedure InitPlayer;

Var
I: Integer;
Begin
For I := 1 To 5 Do
If Not Players[CurrentPlayer].Booleans[I] Then
Begin
Case I Of
1: SetGraphics(4, '', '' ,'', '', '', '', '', '');
2: Retaliate(False);
3: SetAudio(0, 0, 0, Mono);
End;
Players[CurrentPlayer].Booleans[I] := True;
End;

GetAllLevels;
SetChat('on',1);
SetChat('friends',2);
SetChat('on',3);
SetAngle(True);
SetRun(True);
End;

ttocszed
12-08-2008, 03:46 AM
wizzup u sir are the man!! great work :)!

cycrosism
12-08-2008, 05:59 AM
How do i disable smart

senrath
12-08-2008, 06:38 AM
How do i disable smart

Find and remove lines 3, 14, 1098, and 1099.

Smexyprince
12-08-2008, 01:09 PM
----------------------------

Wizzup? Essence Miner, Version 2.03

Worked for 16 Hours, 44 Minutes and 40 Seconds
Mined 10261 Essence
Solved 13 abyssal random events.

----------------------------

0 : oob = T; Mine; Rand: Found Mod; B: 10261 Essence; M : 53
1 : = F; ; B: 0 Essence; M : 0
2 : = F; ; B: 0 Essence; M : 0
3 : = F; ; B: 0 Essence; M : 0

----------------------------
Successfully executed


Wizzup Have my babies?

noodlesalan
12-08-2008, 01:21 PM
That DoorClosed thing is annoying!

Keeps getting me banned, even if I run it for an hour a day!

Wizzup?
12-08-2008, 01:34 PM
That DoorClosed thing is annoying!

Keeps getting me banned, even if I run it for an hour a day!

I suppose you could take it out.

jacoby6000
12-08-2008, 02:46 PM
Great script, but i think my luck is T3h Sux because my friend can bot, same settings, and he wont get any special randoms for 9hrs straight, but i get 2hrs and oh look its EVIL BOB, or ODD ONE OUT... pisses me off. we use the same script and the only thing we change is the logins

impiwimpi
12-08-2008, 04:12 PM
I keep getting this error:

Failed when compiling
Line 1098: [Error] (18087:43): Invalid number of parameters in script C:\Documents and Settings\Eigenaar\Bureaublad\***\Essence Miner #20.3 Pub.scar

How can i fix this?

ttocszed
12-08-2008, 04:13 PM
Wizzup? Essence Miner, Version 2.03

Worked for 8 Hours, 32 Minutes and 40 Seconds
Mined 3988 Essence
Solved 8 abyssal random events.

----------------------------

0 : 1984 = F; NoBank; B: 195 Essence; M : 45
1 : 1942 = F; NoBank; B: 3521 Essence; M : 64
2 : 19422 = F; NoBank; B: 0 Essence; M : 46
3 : 19425 = F; NoBank; B: 134 Essence; M : 14
4 : 19426 = F; NoBank; Rand: Oh Dear You Are in Lumby; B: 138 Essence; M : 12
5 : 19427 = F; NoBank; B: 0 Essence; M : 22


eh not bad they always get lost lol

ttocszed
12-08-2008, 04:14 PM
I keep getting this error:

Failed when compiling
Line 1098: [Error] (18087:43): Invalid number of parameters in script C:\Documents and Settings\Eigenaar\Bureaublad\***\Essence Miner #20.3 Pub.scar

How can i fix this?

at the very top more then likely u put in an invalid srl stats id

impiwimpi
12-08-2008, 04:30 PM
at the very top more then likely u put in an invalid srl stats id

Nope, even if I did change it, it did'nt change anything.
I think there is something wrong in Smartsetup(Smartprefix,true,true,false)

ttocszed
12-08-2008, 04:39 PM
did u read the thread about nvas2's fix to smart?

impiwimpi
12-08-2008, 05:13 PM
Now i dont have that error anymore but now this error

[Runtime Error] : Exception: in line 46 in script C:\Program Files\SCAR 3.15\includes\SRL/SRL/Core/Math.scar

Laimonas171
12-08-2008, 08:13 PM
Wizzup? can i post here your script whit Run Function (whitout SMART) ? :)
For Run function i used DTM, it click on Run button then it is OFF before walking procedure. i commented Smart Lined by "//"
edited someother line. in first 10 Lines i credited Wizzup?, and me about small edit.(+Run,-smart)

Wizzup?
12-08-2008, 08:42 PM
Wizzup? can i post here your script whit Run Function (whitout SMART) ? :)
For Run function i used DTM, it click on Run button then it is OFF before walking procedure. i commented Smart Lined by "//"
edited someother line. in first 10 Lines i credited Wizzup?, and me about small edit.(+Run,-smart)

Nope...

Laimonas171
12-08-2008, 09:15 PM
Nope...

i mean here... but nevermind :)

jonny3558
12-08-2008, 09:40 PM
it doesn't move or do anything. I hit run and it just does nothing.

Smexyprince
12-08-2008, 11:54 PM
You Set up the Players Wrong.
Pm Me Error.
And line 46.
Which is SetUpPlayers I believe.

jonny3558
12-09-2008, 12:29 AM
You Set up the Players Wrong.
Pm Me Error.
And line 46.
Which is SetUpPlayers I believe.

i get the error about smart starting up and world prefixes

ttocszed
12-09-2008, 01:09 AM
i get the error about smart starting up and world prefixes

search feature to the forums makes find things alot easier

Smexyprince
12-09-2008, 02:02 AM
Gave You the Smart Fixes thread. By Nava2.
If Need More Help PM me.

Wizzup?
12-09-2008, 10:32 AM
i get the error about smart starting up and world prefixes

SRL Revision #30 should fix most of your problems.

Smexyprince
12-09-2008, 12:50 PM
ERROR
Line 75: [Error] (78:1): 'BEGIN' expected in script C:\Program Files\SCAR 3.15\includes\srl/srl/misc/Smart.scar

Line 75:
<<<<<<< .mine

I Keep getting that error.
Fix?

senrath
12-09-2008, 01:48 PM
ERROR
Line 75: [Error] (78:1): 'BEGIN' expected in script C:\Program Files\SCAR 3.15\includes\srl/srl/misc/Smart.scar

Line 75:
<<<<<<< .mine

I Keep getting that error.
Fix?

Delete your smart.scar and redownload it using the Update to Rev 30 option in SCAR.

impiwimpi
12-09-2008, 04:29 PM
I keep getting this error:
[Runtime Error] : Exception: in line 46 in script C:\Program Files\SCAR 3.15\includes\SRL/SRL/Core/Math.scar


any ideas?.

jonny3558
12-09-2008, 09:10 PM
i get this error:
Line 1098: [Error] (17782:43): Invalid number of parameters in script C:\Documents and Settings\************\Desktop\Essence Miner #20.3 Pub.scar

Laimonas171
12-10-2008, 03:18 PM
I keep getting this error:
[Runtime Error] : Exception: in line 46 in script C:\Program Files\SCAR 3.15\includes\SRL/SRL/Core/Math.scar


any ideas?.

fill correctly players :)

jonny3558
12-11-2008, 01:48 AM
what about my error.

radragon16
12-11-2008, 07:30 AM
I may be wrong... but shouldn't SmartSetup be SmartSetupEx considering you're using 4 variables instead of two...

Edit: Nice one wiz. Got it to work after some modding hehe.

siniCheah
12-11-2008, 12:48 PM
----------------------------

Wizzup? Essence Miner, Version 2.03

Worked for 4 Hours, 16 Minutes and 4 Seconds
Mined 2662 Essence
Solved 4 abyssal random events.

----------------------------

0 : xxxx = F; NoBank; B: 2662 Essence; M : 50

----------------------------

Left it overnight. Awesome work wiz.

Laimonas171
12-11-2008, 03:24 PM
i get this error:
Line 1098: [Error] (17782:43): Invalid number of parameters in script C:\Documents and Settings\************\Desktop\Essence Miner #20.3 Pub.scar

i don't know which line it's, my script is edited so i can't look so copy/post line maybe i/or someone help too you.

flaminhaz
12-11-2008, 06:54 PM
----------------------------

Wizzup? Essence Miner, Version 2.03

Worked for 45 Minutes and 37 Seconds
Mined 448 Essence

----------------------------

stopped myself as didn't need any extra essence

jonny3558
12-11-2008, 07:40 PM
Smartsetup(SmartPrefix, true, true, false);

radragon16
12-11-2008, 08:10 PM
Smartsetup(SmartPrefix, true, true, false);

For SmartSetup there's only two variables not four... With SmartSetupEx there's 4... Unless they updated smart without me knowing... I would just comment smart out anyway and use ff as smart seems to lose focus a lot for me...

Mined 2k over night. Lost prog due to stupid vista updating... -.-

jonny3558
12-11-2008, 08:58 PM
so I just comment all traces of smart out of it? U mind sending me a script with all smart commented out?

radragon16
12-12-2008, 02:54 AM
so I just comment all traces of smart out of it? U mind sending me a script with all smart commented out?

Just comment out the import and other smart features and you're done... If you can't do that then oh well lol.

Smexyprince
12-12-2008, 04:58 AM
wtf I Can Only run it for Like 1 Hour Max Now :(
My Last Proggie was 18 Hours or 16 I think :(

Is It Me or What?

radragon16
12-12-2008, 09:48 AM
wtf I Can Only run it for Like 1 Hour Max Now :(
My Last Proggie was 18 Hours or 16 I think :(

Is It Me or What?

It's you.

flaminhaz
12-12-2008, 06:00 PM
----------------------------

Wizzup? Essence Miner, Version 2.03

Worked for 1 Hours, 8 Minutes and 27 Seconds
Mined 672 Essence

----------------------------

thankyou!

does this script have a scaperune random because it logged me out when i get to there. it might of just been the once im not sure

I Pk I Ko I
12-12-2008, 07:05 PM
----------------------------

Wizzup? Essence Miner, Version 2.03

Worked for 3 Hours, 25 Minutes and 20 Seconds
Mined 1749 Essence
Solved 2 abyssal random events.

----------------------------

flaminhaz
12-12-2008, 07:30 PM
----------------------------

Wizzup? Essence Miner, Version 2.03

Worked for 1 Hours, 16 Minutes and 44 Seconds
Mined 750 Essence

----------------------------
stopped it manually, didn't want essence economy to go down!

Dervish
12-12-2008, 09:44 PM
Wizzup? Essence Miner, Version 2.03

Worked for 3 Hours, 19 Minutes and 7 Seconds
Mined 2012 Essence
Solved 2 abyssal random events.

----------------------------

0 : zorx = T; Bank; B: 2012 Essence; M : 62

----------------------------


He's still going ! AMAZING script, will post final proggy, probably be like 12 hr ? :)

EDIT : FINAL PROGGIE !!! (Script lost me somewhere outside varrock :()


Wizzup? Essence Miner, Version 2.03

Worked for 9 Hours, 28 Minutes and 58 Seconds
Mined 8433 Essence
Solved 6 abyssal random events.

----------------------------

0 : zorx = T; Bank; B: 8428 Essence; M : 6

----------------------------

Awesome script, got me almost 1M !!!

Thanks thousands Wizzup? ;)

kakka
12-13-2008, 02:03 PM
Line 1098: [Error] (17784:43): Invalid number of parameters in script C:\Documents and Settings\Evgeny\Desktop\Essence Miner #20.3 Pub(2).scar
Failed when compiling i get this error when i start it any advices

Timer
12-13-2008, 02:15 PM
Its not updated for the new smart, here try this... ;)

lordtivo
12-13-2008, 02:20 PM
Until fix all my updates, i emoved SMART and character switch and all that from the script and got this the 1st trial


Wizzup? Essence Miner, Version 2.03

Worked for 3 Hours, 32 Minutes and 16 Seconds
Mined 2229 Essence
Solved 2 abyssal random events.

kakka
12-13-2008, 03:03 PM
ty timer but now it opens runescape but i dont see the red dot and i get new error: [Runtime Error] : Exception: in line 46 in script C:\Program Files\SCAR 3.20\includes\SRL/SRL/Core/Math.scar

Dervish
12-13-2008, 03:23 PM
Setup your players correctly and you won't get that error ;)

kakka
12-13-2008, 03:27 PM
players are okay but i just noticed when i click play the script changes to math.scar so the problem is something else :( ty anyway

flaminhaz
12-13-2008, 05:42 PM
players are okay but i just noticed when i click play the script changes to math.scar so the problem is something else :( ty anyway
on line 8 change to this: NumberOfUsers = 1;
and on line 1098 does it say: SMARTSetupEx(2, False, True, False);

----------------------------
Wizzup? Essence Miner, Version 2.03
Worked for 3 Hours, 14 Minutes and 18 Seconds
Mined 2013 Essence
Solved 3 abyssal random events.
----------------------------

thankyou once again

and the one off my other comp:

----------------------------

Wizzup? Essence Miner, Version 2.03

Worked for 1 Hours, 46 Minutes and 45 Seconds
Mined 1114 Essence
Solved 1 abyssal random events.

----------------------------

kakka
12-13-2008, 07:28 PM
ty flaminhaz for help everything works fine now ;D

flaminhaz
12-13-2008, 09:38 PM
no problem and:

----------------------------

Wizzup? Essence Miner, Version 2.03

Worked for 1 Hours, 45 Minutes and 22 Seconds
Mined 1063 Essence

----------------------------

----------------------------

Wizzup? Essence Miner, Version 2.03

Worked for 1 Hours, 1 Minutes and 37 Seconds
Mined 623 Essence
Solved 1 abyssal random events.

----------------------------

----------------------------

Wizzup? Essence Miner, Version 2.03

Worked for 3 Hours, 8 Minutes and 42 Seconds
Mined 1952 Essence
Solved 2 abyssal random events.

----------------------------

kakka
12-14-2008, 10:34 AM
Wizzup could you add to that script so it would write the pin i mean i have a pin but do i have to remove it? cause when the bank asks the pin my account log out from runescape

kakka
12-14-2008, 11:22 AM
hmm why did it work only 40 mins i made it to do 237 loads and it mined only 301 essence


Wizzup? Essence Miner, Version 2.03

Worked for 40 Minutes and 14 Seconds
Mined 301 Essence

flaminhaz
12-14-2008, 12:55 PM
hmm why did it work only 40 mins i made it to do 237 loads and it mined only 301 essence


Wizzup? Essence Miner, Version 2.03

Worked for 40 Minutes and 14 Seconds
Mined 301 Essence



you probably got a scaperune random or something or maybe it lagged and logged out

nope it works for me =]

----------------------------

Wizzup? Essence Miner, Version 2.03

Worked for 3 Hours, 21 Minutes and 40 Seconds
Mined 2097 Essence
Solved 3 abyssal random events.

----------------------------

Simtoon
12-14-2008, 08:27 PM
opps wrong thread

I Pk I Ko I
12-15-2008, 03:56 AM
----------------------------

Wizzup? Essence Miner, Version 2.03

Worked for 4 Hours, 2 Minutes and 19 Seconds
Mined 2014 Essence
Solved 2 abyssal random events.

----------------------------

/~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
| SRL 28 Randoms Report |
| www.srl-forums.com |
|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|
| Talks : 38 |
| Old Men : 1 |
| Capn Hands : 1 |
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~/

Wizzup?
12-15-2008, 11:42 AM
Loving all the reports! Keep it up!

flaminhaz
12-15-2008, 03:55 PM
wizzup? i've got an even better one here the only reason it stopped is because my dog chewed my mouse while i was away from comp:

----------------------------

Wizzup? Essence Miner, Version 2.03

Worked for 5 Hours, 58 Minutes and 9 Seconds
Mined 3736 Essence
Solved 4 abyssal random events.

----------------------------

and again, Thankyou!

kakka
12-16-2008, 03:08 PM
great script wizzup but i runned on a problem...once again it doesent run moren then 40 mins and last thing it writes to the log is well actyallu it spams that i runned in 40 mins 36 seconds mined 299 essence and then nextplayer (active: False);

flaminhaz
12-16-2008, 03:53 PM
----------------------------

Wizzup? Essence Miner, Version 2.03

Worked for 6 Hours, 1 Minutes and 15 Seconds
Mined 3826 Essence
Solved 5 abyssal random events.

----------------------------

i'm guessing today's update stopped it as it was in the bank with ess

kakka
12-16-2008, 07:28 PM
nope it does it always. see i use only 1 player with this script and for when it opens runescape i have to disable smart put the pin and then again play the script i think now that it is because pin needs to be rewrote im notsure and the other theory is that the player loggs off and then loggs on and then the pin surely needs to be rewritten.

koo29
12-17-2008, 12:37 AM
Failed when compiling
Line 1098: [Error] (17784:43): Invalid number of parameters in script

I downloaded last version, but it does not work. Whats wrong?

Home
12-17-2008, 02:02 AM
Failed when compiling
Line 1098: [Error] (17784:43): Invalid number of parameters in script

I downloaded last version, but it does not work. Whats wrong?

Replace SmartSetup With This
SmartSetupEx(SmartPrefix, True, True, False);
SetTargetDC(SmartGetDC);


~Home

koo29
12-17-2008, 03:43 AM
So, I am going to put that on the top where it gets everything from SRL?

Btw, I am from Finland, smart guys over there...

magixboy
12-17-2008, 01:04 PM
[Error] (17763:45): Type mismatch in script C:\Documents and Settings\Administrator\Desktop\SCAR 3.15\Scripts\Essence Miner #20.3 Pub.scar

I got this error after i put these
SmartSetupEx(SmartPrefix, True, True, False);
SetTargetDC(SmartGetDC);

jneves7
12-17-2008, 01:47 PM
niceeeeeeeee
----------------------------

0 : *** = F; NoBank; B: 3663 Essence; M : 65

----------------------------

koo29
12-17-2008, 02:08 PM
Line 1098: [Error] (17784:45): Type mismatch in script

Ya, got the same error, plz could someone help? I really need to get my macro going...

kakka
12-17-2008, 07:29 PM
read 24 page and there is timer posted fix (rly sorry if the name is wrong)

koo29
12-17-2008, 08:35 PM
[Runtime Error] : Out Of Range in line 48 in script

I always get that error when I run that script in page 24. I dont know what curse I have, but computers and macros just hate me so much.

kakka
12-18-2008, 06:17 AM
read 24 page and there is timer posted fix (rly sorry if the name is wrong)

koo29
12-18-2008, 01:50 PM
I did actually did. It always says the same errors. What Scar r u using, kakka, or should I call you Paska? Anyways, does anyone has any clues whats wrong with my scar. Culd Wizzup? post updated ess miner if this one is outdated or something.

kakka
12-18-2008, 01:53 PM
well dont kall me paska xDDD but i use scar 3.20 http://freddy1990.com/forums/index.php?topic=2957.0
oh by the way when installed go to the folder where your scar is its usually if you dont change settings in program files and if you have old version of scar remove it

koo29
12-18-2008, 01:56 PM
OO, Im using 3.15. Tyvm Uloste! Ur my hero, I hope that I can get it working, Right now Im in school so I cant test it. Im curious to get home for once.

WTF!!! It works, but my computer is too slow(3 yrs old laptop) Luckily gonna buy new one on saturday.