SRL Archive - RS3 Outdated / Broken Scripts

Features:

• - AutoDetects and Logs the position in the mine.
• - Mines and Banks approx. 600 Essence per hour.
• - Can run around the clock with sufficient Players (8).
• - Solves Abyssal Random.

Notes:
The script will ask permission to connect to SRL-Stats, please let it connect, it is for the script Stats.
Link to Global Stats: http://www.stats.srl-forums.com/

New in version 1.08:

Added:

• BenMouse True.
• CloseWindow To Aubury Checking.
• IsUpTextBlue and GetUpTextBlue.
• PIN option.
• Brightness Checker.
• CurrentPlayerReport.
• Adepted ProgressReport Slightly.
• Anti LogOut. (1.09).

New in version 1.13:

Added:

• Aubury finding on MM has been inproved.
• OpenDoor now uses FindObj
• Added Run.
• Added different locations. (Fixed walking to bank with empty inv)
• Can mine 600 ess an hour.
• Better portal finding. (FindColorsTolerance)
• You don't need the portal fix anymore.

New in 1.16:

• Works with SRL 4 Beta now.
• Fixed level up bug. ;)
• Remember to fill in player names, lol.
• That was pretty much it. I had to 'use' a few vars so that mining won't pop up 4 tabs.

File Type: scar SRL Essence Miner 1.15.scar (32.4 KB, 5225 views)
File Type: scar SRL Essence Miner 1.16.scar (32.7 KB, 1925 views)
File Type: scar SRL Essence Miner SRL4 #3.scar (32.4 KB, 1013 views)
File Type: scar SRL Essence Miner SRL4 #6.scar (32.4 KB, 1066 views)

Current Script Stats:

http://www.stats.srl-forums.com/index.php?action=view_script&id=51

So there is some bug which makes your char no go through the portal, OK, increase the FindObj's (in tol to a higher tol. (25 should do);

Enjoy, Wizzup?

king vash:

[php]Rune Essence Mined and Banked : 6453.
Solved 14 Abyssal Random Events.
Worked for 20 Hours, 2 Minutes and 54 Seconds[/php]

nicbaz:

[php]Rune Essence Mined and Banked : 28337
Solved 53 Abyssal Random Events.
Missed 2 Abyssal Random Events.
Worked for 72 Hours, 18 Minutes and 20 Seconds[/php]

Birfday_Cake:

[PHP]Essence Miner by Wizzup?.
Version: 1.16

Rune Essence Mined and Banked : 9520.
Solved 12 Abyssal Random Events.
Missed 1 Abyssal Random Events.
Worked for 22 Hours, 18 Minutes and 23 Seconds

———————————————-[/PHP]

Diabloizze:

[php]Rune Essence Mined and Banked : 8065.
Solved 17 Abyssal Random Events.
Missed 2 Abyssal Random Events.
Worked for 23 Hours, 2 Minutes and 44 Seconds[/php]

[php]Rune Essence Mined and Banked : 9654.
Solved 12 Abyssal Random Events.
Missed 4 Abyssal Random Events.
Worked for 21 Hours, 37 Minutes and 33 Seconds[/php]

[php]Rune Essence Mined and Banked : 15743.
Solved 27 Abyssal Random Events.
Missed 1 Abyssal Random Events.
Worked for 35 Hours, 1 Minutes and 40 Seconds[/php]

spaztaz666:

[php]Rune Essence Mined and Banked : 3604.
Solved 7 Abyssal Random Events.
Worked for 10 Hours, 42 Minutes and 27 Seconds[/php]

all hail Wizzup?

Nice, I like the way you split up the little supporting functions.

WriteLn('Could not get the exact color.'+ Chr(13)+
'Wizzup, you should tweak your functions!');

hahah

nice an essence miner not many good of those out there
i'm going to check it out later

coud you helpe me out ? answer my question in the question forum plz

sick script too bad I dont have 8 characters to run it with, thanks a lot

you can use less players to, just delete enough players[number].nick/pass/user/whatevere else, untill it matches the amount of players you have, do not forget to change the numberofplayers value

I think he's saying too bad cuz he wants to run it around the clock safely.

Hey Wizzup? this sounds really good but when I run it I get "Unknown Identifier in script YourSRLStatsId on line 944

i think it's a good script, but:

in const:
YourSRLDSTATSID

in line 944:
If YourSRLstatsID <> '' Then SRLID := YourSRLstatsID;

uhm ofcource an error:
Failed when compiling
Line 944: [Error] (19571:4): Unknown identifier 'YourSRLstatsID' in script

I'm a right, or am i wrong? btw i'm busy with school now :d

From: the scar noob
i think it's a good script, but:

in const:
YourSRLDSTATSID

in line 944:
If YourSRLstatsID <> '' Then SRLID := YourSRLstatsID;

uhm ofcource an error:
Failed when compiling
Line 944: [Error] (19571:4): Unknown identifier 'YourSRLstatsID' in script

I'm a right, or am i wrong? btw i'm busy with school now :d

you're right i keep getting the exact same error even when i enter the SRL ID thing
help greatly appreciated seeing im yet to find an ess miner that works

My bad, Im upping a working version now.. stupid last moment changes!

i know all about those last moment changes:p
But i hope you're glad i helped ya, an htat's you're not thinkin somekinda like:
wtf that noob is going to teach me scripting, i can script 1000 times as good as he does
or something :)

Three w00ts for wizzup

w00t

w00t

w00t

nice job, with your great work with the pwrminer, i think this will be fine. You truly are the one-in-a-million person that is kind enough not to sell their script :P

did u fix the error with the SRL stats yet?

i geuss he fixed the stats, i didnt fill mine in and it worked fine

by the way, i tried 4 times, its not banking the ess, im assuming its somtehing to do with these lines:

Function MyOpenBank: Boolean;

Begin
OpenBankGlass('veb',False,False);
FFlag(0);
Wait(2000);
If BankScreen Then
Begin
Result := True;
Exit;
End;
If OpenBankQuiet('veb') Then Result := True;
End;

but im not sure how to fix it, it just keeps clicking on the walls/windows opposite the booths, might there be somtheng wrong with the color for the booth?

wow fucking nice thnx Wizzup? keep up the gud work :P

very nice wizzup? ill deffinatly test it tonight and tell you how it goes. i have like 15 essminers :D

Wow, Wizzup? this thing works amazing left it on for about 45minutes and bam! 424 essence thanks for this and keep up the good work!

Nice. You must want to pass up my chicken killer on the global stats. :) This should do it… eventually.

By the way, the time is messed up once you go beyond 1 month, so you might want to look at that.

EDIT:sorry figured it out needed a shortcut to scar in program files:duh: :duh:

another great script from wizzup? lol my ess miner will be finished soon, though not nearly as good as this but i'll try :P

DUDEE
You are amazing!!
I'm thinking of trying to dissect and learn from this script
Love you man

@stupedspam, why cant you copy and paste from SCAR? just highlight, ctrl+c, ctrl+v. simple as that.

From: stevenadrien
DUDEE
You are amazing!!
I'm thinking of trying to dissect and learn from this script
Love you man

remember to credit him if you use any of it.

hey thanks for this wizzup? !! i appreciate all ur hard work here and what u do! heres a quick proggy!

Essence Miner by Wizzup?.
Version: 1.06

Rune Essence Mined and Banked : 308.
Pure Essence Mined and Banked : 0.
Solved 0 Abyssal Random Events.
Missed 0 Abyssal Random Events.
Worked for 37 Minutes and 0 Seconds

——————————————–

awesome!, Wizzup?

Aubury text, very creative. (:

I don't have any ess miners though, don't got any patience to set players up and run them through that quest. :[

ok i don't know what's up with this for me……do you have to use all 8 players or something because mine leaves the bank heads to the rune shop…..then clicks on the compass and runs to between the dummies and ranger shop….it says door found and door open and then it logs out after a while i'm only using one character do i have to use all 8 to get it to work?

Awesome ;) Testing soon.. Ill post progressreport if i remember to. rkroxpunk do u have the map set north..?

From: rkroxpunk
ok i don't know what's up with this for me……do you have to use all 8 players or something because mine leaves the bank heads to the rune shop…..then clicks on the compass and runs to between the dummies and ranger shop….it says door found and door open and then it logs out after a while i'm only using one character do i have to use all 8 to get it to work?

no u can use however many you want, wether it be 1 or 100 players(or however many).

i works great but sometimes when its walking to the rune shop, instead of clicking on the shop, it click northeast on the map then eventually logs out. it happened with both my players. am i doing something wrong? i have SRL fully installed.

From: gamer716
i works great but sometimes when its walking to the rune shop, instead of clicking on the shop, it click northeast on the map then eventually logs out. it happened with both my players. am i doing something wrong? i have SRL fully installed.

Did you log in and out once?

If that doesn't work, try a different world.

this is an awsome script exept it doesnt work all the time it will do like 2 runs then it will logg out but i put how many runs i want but it still does it but not all the time it works sometimes also it would be a perfect script if it worked all the time and antibanned was included.but any way nice job its a great script you made.:f:

From: GoF
Awesome ;) Testing soon.. Ill post progressreport if i remember to. rkroxpunk do u have the map set north..?

Yes i do….i'll try log in and out thing again don't know if that will help
thx anyway

Essence Miner by Wizzup?.
Version: 1.06

Rune Essence Mined and Banked : 297.
Pure Essence Mined and Banked : 0.
Solved 0 Abyssal Random Events.
Missed 0 Abyssal Random Events.
Worked for 34 Minutes and 58 Seconds

———————————————-

0 : lif = F; Loc = Mine; Banked: 135 Ess; M lvl:49
1 : des = T; Loc = Bank; Banked: 162 Ess; M lvl:42

it works great…make sure you have in low detail and v-bright

cool can you do a script which can be used by 20 players and cut willow and banks at draynor? and not with 3.6srl with 3.5 or can u put a link where i can download srl 3.6 already install with scar please because im not able to do it! thx very much

do i've got permission to use your abby finder and guesser in a tele script?
i'll give credits…

Sounds Awesome, Sept I keep getting this error message when I try and run it.
"Line 871: [Error] (6737:11): Unknown identifier 'FindColorCircleD' in script C:\Program Files\SCAR 2.03\includes\srl\srl\core\Color.scar"

2 problems

1. The script I downloaded only had enough spaces for 6 ppl!

2. i keep getting

Failed when compiling
Line 48: [Error] (16418:16): Invalid number of parameters in script C:\Documents and Settings\MansoorK

awsome script cant copy and paste from scar for some reason just get numbers…well i worked for almost 2hours and mined 500ess with a mith pick.
weird thing i got a random event…the Evil Bob thing…script kept running. maby you could add some thing to dectect the events and make player false. idk it came when i was about to tele to the mines…well like i said awsome script!!!:D :D

yea i get that same problem some times.. it will click on NE corner of MM instead of the aubury shop.. =/ i logged in and out, i tryed diff worlds.. seems completely random wether it works or not on that aspect of script! other than that FLAWLESS!

leave it to wizzup to release the most populer powerminer, then put a lot of effort into a very good ess miner…

Sick Ess miner!
Been working for almost an hour no bugs yet, all randoms have worked so far!
Great job!

Great script.

From: stupedspam
awsome script cant copy and paste from scar for some reason just get numbers…well i worked for almost 2hours and mined 500ess with a mith pick.
weird thing i got a random event…the Evil Bob thing…script kept running. maby you could add some thing to dectect the events and make player false. idk it came when i was about to tele to the mines…well like i said awsome script!!!:D :D

Does that random have black on the minimap?

In my script, there ids crrently space for 6 players.

Let's learn how to add a player:

Procedure DeclarePlayers;

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

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

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

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

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

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

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

     Writeln( IntToStr ( NumberOfUsers ) + ' Players' );
  End;

Thats what he got right now right?

If we want to add a player, we copy player 5.
So

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

Copy = Ctrl + C.

Paste player 5 under player so you get this :

Paste = Ctrl + V

Procedure DeclarePlayers;

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

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

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

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

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

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

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

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

     Writeln( IntToStr ( NumberOfUsers ) + ' Players' );
  End;

Now, we change the copied 5's to 6'es.

Procedure DeclarePlayers;

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

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

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

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

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

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

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

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

     Writeln( IntToStr ( NumberOfUsers ) + ' Players' );
  End;

Now we have added a player to the player array.

We should not forgot to set NumberOfUsers at line 29.

The Following rule applies to NumberOfUsers:

NumberOfUsers is[B] 1 +[/B] The number of your last player in your player array, in this case, 6. SO [B]NumberOfUsers should be 7![/B] 

NumberOfUsers = 7; // The Number of users you use.

Now you have added an extra player. You can add more than one at the time, as long as you understand everything here. You can also "detele" player spots, as long as you remember to set NumberOfUsers.

Remember to set each player number.

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

If you would leave it a 5, the first number 5 slot will be skipped.

Thanks for reading this, and I hope it helped.

Worked good but everytime i use the script when it trys to find Aubury's shop it just click NE on the compass. is there any way to fix this?:fiery: :f:

This script is a beast! Id recommend it.

Essence Miner by Wizzup?.
Version: 1.06

Rune Essence Mined and Banked : 0.
Pure Essence Mined and Banked : 1789.
Solved 2 Abyssal Random Events.
Missed 0 Abyssal Random Events.
Worked for 3 Hours, 28 Minutes and 17 Seconds

Good job Wizzup?!

Mine wont complie becaues it says that ReportVars is an unknown identifier. What should i do?

From: antknee3
Mine wont complie becaues it says that ReportVars is an unknown identifier. What should i do?

Download SRL 3.6b.

ok

Getting the NE error with me too. It happens after the player lands on the first flag. I wonder why it happens…

Look forward to trying this script out.

From: Nucleus
Getting the NE error with me too. It happens after the player lands on the first flag. I wonder why it happens…

Look forward to trying this script out.

Did you login and logout once when you loaded a new world, and if that doesn't solve it, switch world.. I will look into it later.

From: 2goodforu
Worked good but everytime i use the script when it trys to find Aubury's shop it just click NE on the compass. is there any way to fix this?:fiery: :f:

if it does that it means you havn't logged out then logged back in…that was happening to me…so what i did was at the login screen i put the crosshair thing on the rs window and the box close around it then i logged in and logged out and it worked. that will fix your problems:D

mine has a problem with siwthching to the next player. It doesnt even log out. It waits until auto-logout and doest nothing for like 10 seconds. Waht to do?

Mine logs out, and then it tries to log in with
Username:[NOTHING]
Password:[NOTHING]

I have all other player (except one) set to False.

once again wizzup thnx -
anyway it works perfectly

Mined For 32mins.
Mined 306 essence …

I had the same problems with that the scripts lands on the first flag
Thats becouse the script thinks its close enough to start searching Aubury
To solve it i just rewrote the line 716 to ''Mouse(663, 120, 6, 6, True)''
Now its lovely

the only problem i had was because i only wanted to use two players i changed everything so it would be two players!

then i left it overnight (i know its risky but i always do that to try script before using it on any of my good accounts)

anyway when i woke up, i was logged off… when i looked at the progress report it had only done 2 hours work, and had mined 620ish on each account!

but after it had finished with the 2nd player why didnt it log into the first player again and mine more??

From: Kaldo
Mine logs out, and then it tries to log in with
Username:[NOTHING]
Password:[NOTHING]

I have all other player (except one) set to False.

Read all the posts on how to setup your players! I made a tutorial on it a day ago!

ok, i set up 3 palyers according to the tuts. The script will not switch to the next palyer. The scar box says nextplayer but it doent log out and when it automatically logs out it doesnt log in the next player. Help.

The first click to get out of the bank works fine. When the script tries to find the door or something, it clicks on my compass. I have tried every variation of loging out and in.

Other than that looks like a great script! Thanks for releasing.

From: raimis89
I had the same problems with that the scripts lands on the first flag
Thats becouse the script thinks its close enough to start searching Aubury
To solve it i just rewrote the line 716 to ''Mouse(663, 120, 6, 6, True)''
Now its lovely

Tried this… Didn't work.

Maybe you should try finding another rune shop symbol color. Also, the occasional times that it does make it to the Rune shop, it takes too long to find Aubury.

its messing up , it gets close to the rune shop then it walks north west and stops. :/ someone plz help.

Found the problem. Make sure your color is set to VERY BRIGHT. That solves the NE compass click problem. Well at least it fixed it for me.

Will post proggy when on my other computer.

EDIT: BEST SCRIPT YET! FLAWLESS!

Rune Essence Mined and Banked : 1128.
Pure Essence Mined and Banked : 0.
Solved 2 Abyssal Random Events.
Missed 0 Abyssal Random Events.
Worked for 3 Hours, 9 Minutes and 10 Seconds

^^With two characters

hey i found another weird bug… it will click on ess, then sometimes mine only 1 ess.. then other times mine half an inv of ess, other times 3/4 an inv or around there.. weird bug i dont know why its doing.. perharps it thinks the inv is full and it goes to portal.. i dont really know..? some please help if u know whats wrong

EDIT: more details: it will click on the ess, then writeln in the debug box "Found essence" then like 5 or less seconds after clickin on ess it will click on portal and repeat that,…?

EDIT: i think i may have found the cause of this, while its mining if some1 loggs in or out or messages u it will cause to scipt to run to transportation icon.. the cause for this is unkown as of now.. im working on seeing why it does this.. for now i just set script to put priv chat off

ye i left it on in the night it banked 205 in more than 10 hours because i keep getting teled to randoms is there any auto ess miner to get solve these thanks

p.s nice script

From: syberium
hey i found another weird bug… it will click on ess, then sometimes mine only 1 ess.. then other times mine half an inv of ess, other times 3/4 an inv or around there.. weird bug i dont know why its doing.. perharps it thinks the inv is full and it goes to portal.. i dont really know..? some please help if u know whats wrong

EDIT: more details: it will click on the ess, then writeln in the debug box "Found essence" then like 5 or less seconds after clickin on ess it will click on portal and repeat that,…?

EDIT: i think i may have found the cause of this, while its mining if some1 loggs in or out or messages u it will cause to scipt to run to transportation icon.. the cause for this is unkown as of now.. im working on seeing why it does this.. for now i just set script to put priv chat off

Hmm.. Alright, I will have a look later.

From: mikev
Found the problem. Make sure your color is set to VERY BRIGHT. That solves the NE compass click problem. Well at least it fixed it for me.

Will post proggy when on my other computer.

EDIT: BEST SCRIPT YET! FLAWLESS!

Rune Essence Mined and Banked : 1128.
Pure Essence Mined and Banked : 0.
Solved 2 Abyssal Random Events.
Missed 0 Abyssal Random Events.
Worked for 3 Hours, 9 Minutes and 10 Seconds

^^With two characters

:)

Thanks for the proggy, I was already very puzzled, I guess I will put a set-to-highest-brightness-function in the next version. ;)

I got a proggy aswell, I will post it at the first page in a min.

what will be on next version?
this is great but some things you could work on are is it sometimes accidentally trades aubury instead of tele so it should just be able to click cross on trade window shouldn't be too hard….maybe better anti random events…..i'm basically always dead when wake up…but this is fantastic tyvm.
sorry forgot 1 more thing it needs to click on the mining ess more not just once because sometimes for some reason it stops mining and he just stands there this is easily preventable if you just click on the ess a few more times….

From: rkroxpunk
what will be on next version?
this is great but some things you could work on are is it sometimes accidentally trades aubury instead of tele so it should just be able to click cross on trade window shouldn't be too hard….maybe better anti random events…..i'm basically always dead when wake up…but this is fantastic tyvm.
sorry forgot 1 more thing it needs to click on the mining ess more not just once because sometimes for some reason it stops mining and he just stands there this is easily preventable if you just click on the ess a few more times….

Okay I will consider that.
About the death count, what is your combat level.. make sure the mugger does not attack you…

Essence Miner by Wizzup?.
Version: 1.06

Rune Essence Mined and Banked : 2780.
Pure Essence Mined and Banked : 0.
Solved 4 Abyssal Random Events.
Missed 0 Abyssal Random Events.
Worked for 6 Hours, 31 Minutes and 32 Seconds

there ya go =] best proggy i got so far. it stopped cuz rs updated lol =]

Line 23: [Error] (8251:11): Unknown identifier 'FPOpenSCSS' in script C:\Program Files\SCAR 2.03\includes\srl\srl\misc\SCSS.scar

Iv been getting this error for every script i run that uses SRL. Im currently useing version 360b any ideas?

From: ronny.m.p
Iv been getting this error for every script i run that uses SRL. Im currently useing version 360b any ideas?

Install SRL again. Copy plugins.

how do i get it to just mine with 1 player… or 2?

i know how to set how many players used and to delete the other player things but…

when the second player has mined… the script never logs in the first player again!

From: hello to you all
how do i get it to just mine with 1 player… or 2?

i know how to set how many players used and to delete the other player things but…

when the second player has mined… the script never logs in the first player again!

Thats impossible, sorry but you must have done something wrong. ;)

what combat lvl i should get my lvl 3 so the mugger will stop attacking and Wizzup? what script you recommed for chickens or training lvl 3 ??

Very nice script!

well i dont think i have done anything wrong… i says next player and never logs onto the next player!

so what exactly do i have to change to have 1 or 2 players?

Essence Miner by Wizzup?.
Version: 1.06

Rune Essence Mined and Banked : 439.
Pure Essence Mined and Banked : 0.
Solved 0 Abyssal Random Events.
Missed 0 Abyssal Random Events.
Worked for 1 Hours, 6 Minutes and 24 Seconds

hey i got a question- the script ran for like 47 minutes then said next player, and a pop up window came up saying end of timer. and in the degux box it had three minutes has passed like 7000 times!?? it dident switch player.. idk why it usally does just not this time.. -.-?

From: syberium
hey i got a question- the script ran for like 47 minutes then said next player, and a pop up window came up saying end of timer. and in the degux box it had three minutes has passed like 7000 times!?? it dident switch player.. idk why it usally does just not this time.. -.-?

This was due to the fact that Scar lost track of the RuneScape window, prolly because a background process in your PC demanded attention, like MSN,P2P, Viruskiller/FireWall/Popup/Skype/Emule kinds of rubbish lots of people have running while autoing.

———————————————-

Essence Miner by Wizzup?.
Version: 1.06

Rune Essence Mined and Banked : 1708.
Pure Essence Mined and Banked : 0.
Solved 0 Abyssal Random Events.
Missed 0 Abyssal Random Events.
Worked for 7 Hours, 19 Minutes and 57 Seconds

———————————————-

0 : ***= T; Loc = Bank; Banked: 0 Ess; M lvl:15
1 : *** = F; Loc = ToBank2; Banked: 28 Ess; M lvl:1
2 : *** = F; Loc = Bank; Banked: 392 Ess; M lvl:6
3 : *** = F; Loc = No GameTab; Banked: 980 Ess; M lvl:1
4 : *** = F; Loc = No GameTab; Banked: 0 Ess; M lvl:1
5 : *** = F; Loc = No GameTab; Banked: 84 Ess; M lvl:1
6 : *** = F; Loc = Aubury; Banked: 224 Ess; M lvl:3

Great Scrpt Wizzup?, but then again you had a great teacher ;)

I've been waiting aong time for a good ess mining script…I originally made 10 miners, but 2 were banned right away for rule #1, while training their combat useing the goblin scheduler, but I suspect the name was offensive and not anything they actually said..and a 3rd player was banned a month ago useing a different ess miner found here in the forums :P…anyways, so i'm down to 6 for the time being, which works fine for now….the main problem I came across (and keep in mind I was running this on my old slow computer) was that it often traded the rune store, instead of teleporting..I manually fixed this quite a few times, but then let it continue to run after I went to bed….I suspect this is why the location is "no game tab"…a safeguard suggestion may be to log out and then to log back in to verify?..just a suggestion, I'm sure you'll figure out the best way to deal with this……and also the biggest problem I had was..in crowded banks, it does not always bank…just trys a few times, lags quite a bit…and then continues back to the mine with a full load of ess in inventory, then once it trys to mine again, it then goes on to bank the ess….I also had the problem of once it got to the mine…it would just start rotaing the screen and go on to exit the portal and go to the bank with out haveing mined anything and try banking an empty inventory…but once it was done banking (nothing) it would return to the mine….As you can see by my report, the ammount of ess mined compared to the miners and the time it ran (it stopped sometime in the night due to update) it had this problem quite often…As far as the walking, i consider it flawless…a little slow sometimes, but 'd rather have it be slow and consistant, rather than be fast and get lost occasionally …my plan is to use an ess miner as opposed to a power miner to level my characters, so instead of just dropping materials, I have accured something in the meantime…..
Thanks for the great work, As always, I'm much appreciative to anyone that is willing to share their hard work here for free. RAM

This script is starting to scare me lol. Its that good. heres another proggy. Take a look at the 2k ess. on my second miner! Thats a record :P He wasn't even false yet….he just completed 25 banks……WOW!

Rune Essence Mined and Banked : 2818.
Pure Essence Mined and Banked : 0.
Solved 9 Abyssal Random Events.
Missed 0 Abyssal Random Events.
Worked for 7 Hours, 39 Minutes and 51 Seconds

———————————————-

0 : **** = F; Loc = Aubury; Banked: 613 Ess; M lvl:27
1 : **** = T; Loc = Mine; Banked: 2065 Ess; M lvl:31
2 : **** = F; Loc = Mine; Banked: 140 Ess; M lvl:3
Connection Closed Gracefully.

wow nice proggy mikev. and only on one character.

omg mikev and ram_rune, how do you get those proggy? can u tell me exactly wat u do

From: mikev
This script is starting to scare me lol. Its that good. heres another proggy. Take a look at the 2k ess. on my second miner! Thats a record :P He wasn't even false yet….he just completed 25 banks……WOW!

Rune Essence Mined and Banked : 2818.
Pure Essence Mined and Banked : 0.
Solved 9 Abyssal Random Events.
Missed 0 Abyssal Random Events.
Worked for 7 Hours, 39 Minutes and 51 Seconds

———————————————-

0 : **** = F; Loc = Aubury; Banked: 613 Ess; M lvl:27
1 : **** = T; Loc = Mine; Banked: 2065 Ess; M lvl:31
2 : **** = F; Loc = Mine; Banked: 140 Ess; M lvl:3
Connection Closed Gracefully.

Thanks for the progress Report.

Keep them proggies coming, and don't forgot to reguraly either do something else with your players, or run a diff script. ;)

From: RAM_RUNE
———————————————-

Essence Miner by Wizzup?.
Version: 1.06

Rune Essence Mined and Banked : 1708.
Pure Essence Mined and Banked : 0.
Solved 0 Abyssal Random Events.
Missed 0 Abyssal Random Events.
Worked for 7 Hours, 19 Minutes and 57 Seconds

———————————————-

0 : l0ve = T; Loc = Bank; Banked: 0 Ess; M lvl:15
1 : ovie = F; Loc = ToBank2; Banked: 28 Ess; M lvl:1
2 : rain = F; Loc = Bank; Banked: 392 Ess; M lvl:6
3 : sop = F; Loc = No GameTab; Banked: 980 Ess; M lvl:1
4 : ken = F; Loc = No GameTab; Banked: 0 Ess; M lvl:1
5 : tod = F; Loc = No GameTab; Banked: 84 Ess; M lvl:1
6 : mae = F; Loc = Aubury; Banked: 224 Ess; M lvl:3

Great Scrpt Wizzup?, but then again you had a great teacher ;)

I've been waiting aong time for a good ess mining script…I originally made 10 miners, but 2 were banned right away for rule #1, while training their combat useing the goblin scheduler, but I suspect the name was offensive and not anything they actually said..and a 3rd player was banned a month ago useing a different ess miner found here in the forums :P…anyways, so i'm down to 6 for the time being, which works fine for now….the main problem I came across (and keep in mind I was running this on my old slow computer) was that it often traded the rune store, instead of teleporting..I manually fixed this quite a few times, but then let it continue to run after I went to bed….I suspect this is why the location is "no game tab"…a safeguard suggestion may be to log out and then to log back in to verify?..just a suggestion, I'm sure you'll figure out the best way to deal with this……and also the biggest problem I had was..in crowded banks, it does not always bank…just trys a few times, lags quite a bit…and then continues back to the mine with a full load of ess in inventory, then once it trys to mine again, it then goes on to bank the ess….I also had the problem of once it got to the mine…it would just start rotaing the screen and go on to exit the portal and go to the bank with out haveing mined anything and try banking an empty inventory…but once it was done banking (nothing) it would return to the mine….As you can see by my report, the ammount of ess mined compared to the miners and the time it ran (it stopped sometime in the night due to update) it had this problem quite often…As far as the walking, i consider it flawless…a little slow sometimes, but 'd rather have it be slow and consistant, rather than be fast and get lost occasionally …my plan is to use an ess miner as opposed to a power miner to level my characters, so instead of just dropping materials, I have accured something in the meantime…..
Thanks for the great work, As always, I'm much appreciative to anyone that is willing to share their hard work here for free. RAM

Thanks for the feedback!

I just wrote a very big reply, but then my comp crashed. :(

Anyway, I will look into the bugs you reported!

And.. Try putting BenMouse on true, might solve the trade problem?

Great script i will post progress report

Heres a proggie…..Good script, it automatically stopped because all players were No GameTab…….whatever that means.

Essence Miner by Wizzup?.
Version: 1.06

Rune Essence Mined and Banked : 1576.
Pure Essence Mined and Banked : 0.
Solved 0 Abyssal Random Events.
Missed 0 Abyssal Random Events.
Worked for 5 Hours, 0 Minutes and 31 Seconds

———————————————-

0 : ***= F; Loc = Bank; Banked: 140 Ess; M lvl:20
1 : *** = F; Loc = No GameTab; Banked: 112 Ess; M lvl:23
2 : ***= F; Loc = Mine; Banked: 224 Ess; M lvl:19
3 : *** = T; Loc = No GameTab; Banked: 560 Ess; M lvl:15
4 : *** = F; Loc = No GameTab; Banked: 56 Ess; M lvl:8
5 : ***= F; Loc = No GameTab; Banked: 484 Ess; M lvl:14

ok so, i am still haivng the problem with keeping htis script going…. its normally after about 50 minutes the player logs out and the script says next player, but no player ever logs in again!!

heres a progress report!

Rune Essence Mined and Banked : 0.
Pure Essence Mined and Banked : 513.
Solved 1 Abyssal Random Events.
Missed 0 Abyssal Random Events.
Worked for 1 Hours, 4 Minutes and 25 Seconds

———————————————-

0 : *** = T; Loc = No GameTab; Banked: 513 Ess; M lvl:61

———————————————-
NextPlayer


help me out here please!

Are you using 1 player?

From: Boreas
Are you using 1 player?

Judging by the intelligence of him, Probaly! (k im mean thx bye)

i use 1 player to test the script out. then i use it on my better players!

)at the start i would rather have 1 player banned than 6 thankyou) and when i know its safe to use i will use it on my better players!

but i wouldstill like to know why it isnt running!

Never auto on your main….if thats what you mean by "better player"..it's a very bad idea…i know from first hand experience.

i wasnt planning on autoing on my main!

when i say better players i generally just mean my older players which have autoed more and have more stuff/items/lvls.

i always test a script out on a brand new account! and if its good enough then i use it on my other accounts!

but i still need help with this problem of mine…i get that loc = GameTab… wtf does that mean?

and it beacause of getting that gametab thing… i think is why it wont log onto another other players or anything!

help please

I don't really understand the

StartPlayer = 1; // The Number of the player you wish to start with.
NumberOfUsers = 1; // The Number of users you use.

But how come when I run it, it goes south good, but it clicks north west for some reason then stops and goes south and goes to the same place. Am I doing something wrong.

Please help me ^_^

Do I need to have six accounts?

Rune Essence Mined and Banked : 3383.
Pure Essence Mined and Banked : 0.
Solved 7 Abyssal Random Events.
Missed 0 Abyssal Random Events.
Worked for 7 Hours, 40 Minutes and 47 Seconds

———————————————-

0 : ** = F; Loc = Bank; Banked: 0 Ess; M lvl:0
1 : ** = T; Loc = ToBank2; Banked: 1443 Ess; M lvl:35
2 : ** = F; Loc = Bank; Banked: 350 Ess; M lvl:28
3 : ** = F; Loc = ToBank2; Banked: 1266 Ess; M lvl:31
4 : ** = F; Loc = Bank; Banked: 0 Ess; M lvl:25
5 : ** = F; Loc = ScapeRune; Banked: 324 Ess; M lvl:26

Another proggy =] nice job =]]

about 2 of my players were logged out and set to F cuz it coudent find the bank in the rune shop.. i susspect some noob closed the door on me.. =[ that is how most my players get set to F cuz of ppl clossing the door over and over..

Your brand new account has level 61 mining? Lol

no actually my brand new account has lvl 7 mining… but i tried with a better player to see if there was any difference!

This is smart because the more characters I have, the more essence I can gather without getting banned. Brilliant! I've learned alot today ^_^

yes, i currently have 15 ess miners. bring in about 15k ess per day. sell easily for 35gp each in world 1, so i make around half a mil per day….give or take a couple K

so is this proggy

0 : *** = T; Loc = No GameTab; Banked: 513 Ess; M lvl:61

from the problem you describe here?

ok so, i am still haivng the problem with keeping htis script going…. its normally after about 50 minutes the player logs out and the script says next player, but no player ever logs in again!!

Could I make like 100 accounts and make all of them run? What's the maximum amount of accounts can the script hold? 2nd, if I had 6 accounts that all had a rune pickaxe, do you think I can get over 20k essence if I run for like 10 hours? If now, approximantly how many essence would I get?

well 100 acconts is plenty enough -.- i dont know if there is a maximum. and why dont u mine ess for 1 hr see how much u get and times by 20 for 20 hrs worth? that would a rough estimate

From: Neji Hyuga
Could I make like 100 accounts and make all of them run? What's the maximum amount of accounts can the script hold? 2nd, if I had 6 accounts that all had a rune pickaxe, do you think I can get over 20k essence if I run for like 10 hours? If now, approximantly how many essence would I get?

2k per hour, no. Closer to around 500 per hour.

dude do you know how long it would take to make 100 accounts! and then transfering the items to your banker account. and setting up all 100 characters. i'd say just stick to no more than 15 players. and only run like 5 at a time, so when one script stops then just start running a script with the next 5 players. so you could auto pretty much around the clock.

Proggy says it all. My players only get stuck in "middle southwest" I think. Hope that helps.

———————————————-

Essence Miner by Wizzup?.
Version: 1.06

Rune Essence Mined and Banked : 5311.
Pure Essence Mined and Banked : 0.
Solved 11 Abyssal Random Events.
Missed 1 Abyssal Random Events.
Worked for 15 Hours, 23 Minutes and 15 Seconds

———————————————-

0 : **** = F; Loc = Mine; Banked: 1088 Ess; M lvl:35
1 : **** = F; Loc = Abyss; Banked: 1509 Ess; M lvl:38
2 : ****= F; Loc = Mine; Banked: 588 Ess; M lvl:15
3 : **** = T; Loc = Bank; Banked: 1481 Ess; M lvl:25
4 : **** = F; Loc = ToBank2; Banked: 645 Ess; M lvl:23

———————————————-
again, Thank you. ;)

From: Neji Hyuga
Could I make like 100 accounts and make all of them run? What's the maximum amount of accounts can the script hold? 2nd, if I had 6 accounts that all had a rune pickaxe, do you think I can get over 20k essence if I run for like 10 hours? If now, approximantly how many essence would I get?

There is no limit to the number of Players to place in queue. However I would advice you to work in shifts of 6-12. Looking after your army takes a considerable amount of time. Also, make sure you run different scripts on your army. The Essence mine (and the Guildmine for that matter) is a big time ban-spot. Never run scripts like these for longer then 3 days (or 5 shifts with 8 Players), however clever they may be programmed.

Go Wizzy, go!

Does Loc: NoGameTab mean that the script does not know the players location, and will not use it anymore?

Have you ever noticed that when you are stuck inside a non-talking Random the configuration of GameTabs is different: i.e. some GameTabs are missing! Thats what we check for with NoGameTab; to discover if we are in some kind of trouble. A missing GameTab always means we are stuck:)

Why is it that when the script cannot find the essence mountain, it goes to the portal with no essence at all and go to the bank and I don't know what it does because I just stop the script and run it again from the begining. Hope this problem gets fixed. Why don't you just make it face north and move the cursor to the middle and go around in circles until it fines the mountain?

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

Essence Miner by Wizzup?.
Version: 1.06

Rune Essence Mined and Banked : 0.
Pure Essence Mined and Banked : 1874.
Solved 2 Abyssal Random Events.
Missed 0 Abyssal Random Events.
Worked for 4 Hours, 20 Minutes and 14 Seconds

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

0 : *** = F; Loc = Mine; Banked: 531 Ess; M lvl:76
1 : *** = F; Loc = ToBank2; Banked: 224 Ess; M lvl:76
2 : *** = F; Loc = ToBank2; Banked: 140 Ess; M lvl:76
3 : *** = F; Loc = ToBank2; Banked: 419 Ess; M lvl:76
4 : *** = T; Loc = Aubury; Banked: 392 Ess; M lvl:76
5 : *** = F; Loc = Mine; Banked: 168 Ess; M lvl:76

----------------------------------------------
NextPlayer

i used the same player 6 times

i don't know why it logged
i'm guessing but maybe it had 2 do with this:

/~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
|     SRL Randoms Report       |
|                              |
|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|
| Logged in              :  8  |
| Trade[s] Missed        :  1  |
| Mod[s] encountered     :  1  |
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~/

From: Neji Hyuga
Why is it that when the script cannot find the essence mountain, it goes to the portal with no essence at all and go to the bank and I don't know what it does because I just stop the script and run it again from the begining. Hope this problem gets fixed. Why don't you just make it face north and move the cursor to the middle and go around in circles until it fines the mountain?

Because that's more detectable. Why stop the script? Just let it go.

damnit i dunno why , now this scrpt works only like 20 mins max now . … I think the mini map allign changes or sumthing.

Yeah, ive been having some probs with it also. Let it run last nite, 1 guys out of 4 was still going (go him :)) but it was stuck at login player with "nextplayer" in the debug. Of the 3 that were false, 1 was sitting in bank (compleltly normal) 1 was halfway between bank and aubrory (same) and 1 was at the aubory (same). So, don't know what the prob is, might be the fact that my mouse speed is 1 (dunno, seems to put things a little off kilter in other scripts). Also, banking is a little queezy, sometimes it finds the bank 1st try, other times, it lags out like crazy, and moves mouse to the bank windows then sometime over the bankers, then, if it see's the "use bankbooth" as it passes over it (on its way to the window) it will right click on the windows, click cancel and then walk off to the mine with a full load of ess.

Just thought I'd let you know, otherwise thumbs up!

Cause

Hi-
Awesome Script ;)
Really really loved it…I'll post the proggy here:

Rune Essence Mined and Banked : 459.
Pure Essence Mined and Banked : 0.
Solved 0 Abyssal Random Events.
Missed 0 Abyssal Random Events.
Worked for 51 Minutes and 8 Seconds

More proof that 1 hour= 5oo Ess
Ty Wizzup :D

this script is very nice, also very quick thanks alot

Meh. Atleast this script makes my account logout. If usmthing goes wrng.

From: Neji Hyuga
Could I make like 100 accounts and make all of them run? What's the maximum amount of accounts can the script hold? 2nd, if I had 6 accounts that all had a rune pickaxe, do you think I can get over 20k essence if I run for like 10 hours? If now, approximantly how many essence would I get?

10 hours is 6000 Essence. :)

From: mikev
Proggy says it all. My players only get stuck in "middle southwest" I think. Hope that helps.

———————————————-

Essence Miner by Wizzup?.
Version: 1.06

Rune Essence Mined and Banked : 5311.
Pure Essence Mined and Banked : 0.
Solved 11 Abyssal Random Events.
Missed 1 Abyssal Random Events.
Worked for 15 Hours, 23 Minutes and 15 Seconds

———————————————-

0 : **** = F; Loc = Mine; Banked: 1088 Ess; M lvl:35
1 : **** = F; Loc = Abyss; Banked: 1509 Ess; M lvl:38
2 : ****= F; Loc = Mine; Banked: 588 Ess; M lvl:15
3 : **** = T; Loc = Bank; Banked: 1481 Ess; M lvl:25
4 : **** = F; Loc = ToBank2; Banked: 645 Ess; M lvl:23

———————————————-
again, Thank you. ;)

Again..Thanks for the Progress Report, but don't run this script too long with the same chars, I have never gotted a ban from it, but I haven't mined for more than 5 days, 10 hours a day.

From: cause
Yeah, ive been having some probs with it also. Let it run last nite, 1 guys out of 4 was still going (go him :)) but it was stuck at login player with "nextplayer" in the debug. Of the 3 that were false, 1 was sitting in bank (compleltly normal) 1 was halfway between bank and aubrory (same) and 1 was at the aubory (same). So, don't know what the prob is, might be the fact that my mouse speed is 1 (dunno, seems to put things a little off kilter in other scripts). Also, banking is a little queezy, sometimes it finds the bank 1st try, other times, it lags out like crazy, and moves mouse to the bank windows then sometime over the bankers, then, if it see's the "use bankbooth" as it passes over it (on its way to the window) it will right click on the windows, click cancel and then walk off to the mine with a full load of ess.
Just thought I'd let you know, otherwise thumbs up!

Cause

Yes, well let me see.

So the guy was not mining anymore?
Hmm, what where your guy's locations, was Brightness Set to highest as possible?

About the banking, I know, but IMO moving the mouse around a bit is not to detectable, and when you are flagged, this script will rather unflag you than get you a ban. :p
Okay, My script is still running, 11 hours, 3 False. 7 Left. ;)

~Wizzup?

Hmm…. Let me run the script again lets seee if i can fix .

———————————————-

Essence Miner by Wizzup?.
Version: 1.06

Rune Essence Mined and Banked : 0.
Pure Essence Mined and Banked : 511.
Solved 1 Abyssal Random Events.
Missed 0 Abyssal Random Events.
Worked for 56 Minutes and 48 Seconds

———————————————-

0 : ob8 = T; Loc = Bank; Banked: 511 Ess; M lvl:58

———————————————-

and still going and going….

this time it worked for 1hr . then it got lost , i think wat u need to do is check the compass when it gets to the bank and when teleported out of the mine.

Ok wow this is weird. My settings are all correct and positioning is fine but I'm having a problem. When leaving the bank to goto aubury it goes about halfway (one more click until i get to aub) and then it clicks somewhere near the arrow shop up to the left. I'm guessing this has to do with the autocoloring but I don't know. Im just starting to learn SCAR so anyone have a clue what the problem is?

is ur colour set to v bright?

Did you log in and out when you loaded a new world?

Yeah! I get that exact problem.
I login. Logout. And Login And. Logout (Just to be safe)
Have all setting correct.
Script clicks 2-3 times until im right above the rune shop.
Then it says 'Door Open' in debug.
And script click at northwest corner.

From: yohojo8
Yeah! I get that exact problem.
I login. Logout. And Login And. Logout (Just to be safe)
Have all setting correct.
Script clicks 2-3 times until im right above the rune shop.
Then it says 'Door Open' in debug.
And script click at northwest corner.

Highest Brightness.

I love you so much!!

:( It keeps talking to aub rather than teleporting (thats an entire two options up). I have no idea why.

And I've had the problem with going into the NE corner of the map a lot lately, but I'm trying the high brightness right now.

Its a huge problem however that it sits in front of aub hitting "talk" rather than "teleport" for a good 5-10 minutes.

omfg! this is my 1st day on this site, but this looks awsome!!!

WOWE!!! lol ty for this.

From: colordeath
:( It keeps talking to aub rather than teleporting (thats an entire two options up). I have no idea why.

And I've had the problem with going into the NE corner of the map a lot lately, but I'm trying the high brightness right now.

Its a huge problem however that it sits in front of aub hitting "talk" rather than "teleport" for a good 5-10 minutes.

Very weird? Try setting BenMouse to True?

He cant find Aub anymore

now he walks west to the range shop…;s

try re downloading the script!

as it works for so many of us!

this scritp is amazing but the longest its run for me is 2 hours

it loses track of aub, duno if this happens any1 else

still amazing script!

I set it for me and my bros accounts. When I run it it clicked quite a bit off of target on the login screen. Funny when I set the crosshairs to the toolbar it worked! BTW: How does it handle multiple players?

i think this script need another update :).

From: subin
i think this script need another update :).

:p

Well, maybe you could list all the things you want te see added once more?
I added some stuff, but I don't know if I added everything?

guess sumn has to look through 7 page :) - Dont look at me :D

Which script do you guys think works better, Essential Essence (this one) by Wizzup?

or

Stressminer by Starblaster.

?????????????????????????

From: Windoze
Which script do you guys think works better, Essential Essence (this one) by Wizzup?

or

Stressminer by Starblaster.

?????????????????????????

I can't tell but mine is free.

Spotted aubury text
[Runtime Error] : Exception: Access violation at address 00653F79 in module 'scar.exe'. Read of address 01A3BFFE in line 1084 in script C:\Program Files\SCAR 2.03\includes\srl\srl\core\AntiRandoms\AntiRandoms.scar

whats this lol :p

From: uberpwn3r
Spotted aubury text
[Runtime Error] : Exception: Access violation at address 00653F79 in module 'scar.exe'. Read of address 01A3BFFE in line 1084 in script C:\Program Files\SCAR 2.03\includes\srl\srl\core\AntiRandoms\AntiRandoms.scar

whats this lol :p

An error in AntiRandoms.

I dont get this really , all randoms work now exept the wizzy tower, isnt there a anti random for that? great script man welldone

Line 265: [Error] (19041:1): Unknown identifier 'ReportVars' in script C:\Program Files\SCAR 2.03\Scripts\ESSENCE.scar
wtf?? :S

nvm I installed SRL again and its working now

I will give it a quick update soon.
(BenMouse True)
(CloseWindow At Aubury just to be sure)
And some other tweaks..

It still works wonderfully for me though. :stirthepot:

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

Essence Miner by Wizzup?.
Version: 1.05

Rune Essence Mined and Banked : 5413.
Pure Essence Mined and Banked : 0.
Solved 4 Abyssal Random Events.
Missed 0 Abyssal Random Events.
Door Opened : 2.
Worked for 10 Hours, 41 Minutes and 51 Seconds

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

0 : *** = T; Loc = Bank; Banked: 1441 Ess; M lvl:62
1 : *** = F; Loc = Mine; Banked: 446 Ess; M lvl:61//Balloons
2 : *** = F; Loc = Mine; Banked: 476 Ess; M lvl:66
3 : *** = F; Loc = Mine; Banked: 224 Ess; M lvl:71// 
4 : *** = T; Loc = Bank; Banked: 1468 Ess; M lvl:71
5 : *** = F; Loc = Mine; Banked: 1358 Ess; M lvl:74 // Balloons

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

ur using v 1.05.. . i think thats why lol

whats v 1,05

Busted. lol

No really, 1.05 is just my "priv version"(My accs names in it) it is exactly the same as 1.06, I just didn't change the Version Number… :stirthepot:

Damn !!! for a sec i thought i've solved the damn problem <.< .. Damn ur autoers skills r gud its much better than my Mains !!! Mind if i borrow an account xD

Update. ;)

Version 1.08

Added :

- BenMouse True.
- CloseWindow To Aubury Checking.
- IsUpTextBlue and GetUpTextBlue.
- PIN option.
- Brightness Checker.
- CurrentPlayerReport.
- Adepted ProgressReport Slightly.

I haven't tested the pin too much, but it should work.

Enjoy.

Small wait added. The 7 that have downloaded it, please re-download.

Can you please tell me what this is -
YourRCMASTER = ''; // Remote Control Master.

~~~~Yesiammanu :spot:

Essence Miner by Wizzup?.
Version: 1.06

Rune Essence Mined and Banked : 5586.
Pure Essence Mined and Banked : 0.
Solved 8 Abyssal Random Events.
Missed 1 Abyssal Random Events.
Worked for 12 Hours, 59 Minutes and 37 Seconds

———————————————-

0 : *** = F; Loc = Bank; Banked: 476 Ess; M lvl:28
1 : ***= F; Loc = ScapeRune; Banked: 0 Ess; M lvl:0
2 : *** = F; Loc = ToBank2; Banked: 84 Ess; M lvl:25
3 : *** = F; Loc = Aubury; Banked: 2402 Ess; M lvl:33
4 : *** = T; Loc = Abyss; Banked: 2036 Ess; M lvl:29
5 : ***= F; Loc = ScapeRune; Banked: 532 Ess; M lvl:28
6 : *** = F; Loc = ToBank2; Banked: 56 Ess; M lvl:20

———————————————-
NextPlayer

….and it was still going strong with players still active…I just seen there was an update, so I thought I would stop it and give the new version a try :)…keep up the great work wizup?…my only suggestion was , perhaps adding an auto-talker/responder…as I have quite a few other people "hitting on" my female characters , and I would like to have them be able to reply "not interested" ,rather than haveing stawkers following them begging to be there boy freinds :p. Thanks for all your hard work RAM

i only hav 2 characters could u pls show me how i would set up the player bits so it runs good, cos atm it logs after 1 or 2 runs and b 4 i made it mine 650 ess b 4 it stopped..without me stopping it =(

thnx!

ok i will try it out now !

Essence Miner by Wizzup?.
Version: 1.08

Rune Essence Mined and Banked : 195.
Worked for 37 Minutes and 17 Seconds

Just a small test, hard to improve on perfection, but you have managed..seems to be running alot smoother now…One thing I did notice, It had a hard time getting started..the first couple of times I tried it, it just logged in, then ended the script, finally on the 4th try it started running…Could be because of a busy bank, IDK, but…… I just got my first miner to level 31 woot woot, addy axe seems to mine them very quickly now…as a side note, I haven't encountered any randoms on my characters until these last few days.I have been getting a few scaperunes, no big deal, except this possibly means my characters are flagged…anyways, I'm going to 'tweak" a few things ;) and let it run through he night again, hopefully I'll have another big juicy proggy for you tommorow, Thanks Again, RAM

I'm guess the pause after logging in has to do with the "first world"…I'm going to try and set it to false and see if it helps…..

very good script 2 thumbs up! no problems..banked and back and forth..A++!
best essance miner i ever used in a lonnnnnnngggg time.

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

Essence Miner by Wizzup?.
Version: 1.08

Rune Essence Mined and Banked : 476.
Door Opened : 2.
Worked for 1 Hours, 8 Minutes and 38 Seconds

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

0 : *** = T; Loc = Bank; Banked: 476 Ess; M lvl:51
1 : *** = T; Loc = Bank; Banked: 0 Ess; M lvl:0
2 : ***= T; Loc = Bank; Banked: 0 Ess; M lvl:0
3 : ***= T; Loc = Bank; Banked: 0 Ess; M lvl:0
4 : ***= T; Loc = Bank; Banked: 0 Ess; M lvl:0
5 : *** = T; Loc = Bank; Banked: 0 Ess; M lvl:0
----------------------------------------------

yeah i encountered alot of Scaperunes too .

From: RAM_RUNE
Just a small test, hard to improve on perfection, but you have managed..seems to be running alot smoother now…One thing I did notice, It had a hard time getting started..the first couple of times I tried it, it just logged in, then ended the script, finally on the 4th try it started running…Could be because of a busy bank, IDK, but…… I just got my first miner to level 31 woot woot, addy axe seems to mine them very quickly now…as a side note, I haven't encountered any randoms on my characters until these last few days.I have been getting a few scaperunes, no big deal, except this possibly means my characters are flagged…anyways, I'm going to 'tweak" a few things ;) and let it run through he night again, hopefully I'll have another big juicy proggy for you tommorow, Thanks Again, RAM

I'm guess the pause after logging in has to do with the "first world"…I'm going to try and set it to false and see if it helps…..

Yes.. Lots of ScapeRunes and Quizzes, I know.

My observation: You get the fishing one once. (All my men got fishing 7), after that you only get balloon and quizzez, all the missed abyss randoms are quizzes. ;)

I personally don't think you get flagged with this script, and even if you are, you can't get banned IMO.

Small AutoResponder, I will look into it. I once made a very complicated autoresponder.. Never got to finishing it though.

Oh and, I recommend running the script on a not-too-busy-world.
And make sure it is not too empty since you want the door to be open. ;)

From: yesiammanu
Can you please tell me what this is -
YourRCMASTER = ''; // Remote Control Master.

~~~~Yesiammanu :spot:

You don't have to set it. :)

wow looks good i might download scar again i stopped using cos of makor lag but this script sounds good from wat your progress reports say.
18 hours 6000 essence i wouldnt be able to do that without cheats lol nice

From: Wizzup?
I will give it a quick update soon.
(BenMouse True)
(CloseWindow At Aubury just to be sure)
And some other tweaks..

It still works wonderfully for me though. :stirthepot:

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

Essence Miner by Wizzup?.
Version: 1.05

Rune Essence Mined and Banked : 5413.
Pure Essence Mined and Banked : 0.
Solved 4 Abyssal Random Events.
Missed 0 Abyssal Random Events.
Door Opened : 2.
Worked for 10 Hours, 41 Minutes and 51 Seconds

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

0 : *** = T; Loc = Bank; Banked: 1441 Ess; M lvl:62
1 : *** = F; Loc = Mine; Banked: 446 Ess; M lvl:61//Balloons
2 : *** = F; Loc = Mine; Banked: 476 Ess; M lvl:66
3 : *** = F; Loc = Mine; Banked: 224 Ess; M lvl:71// 
4 : *** = T; Loc = Bank; Banked: 1468 Ess; M lvl:71
5 : *** = F; Loc = Mine; Banked: 1358 Ess; M lvl:74 // Balloons

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

ur so good at scripting thankfully ur a admin and u dont charge us for the l33t script :f:

SRL Compiled in 266msec.
[Runtime Error] : Out Of Range in line 58 in script C:\Documents and Settings\manny.HOME\Local Settings\Temporary Internet Files\Content.IE5\EX9YJM5G\SRL%20Essence%20Miner%201[1].06.scar

File access error
SRL Compiled in 328msec.
6 Players
Found Compass
Pick head colors… 3095087 3951676 3622199 3754297 4412739
Successfully executed

That was happened. I started in the bank and it click down to the place where you tele port and then the script just ended. Whats happening

And I tryed running it again and it went to the rs screen and then did nuthing. Just sat there until my guy logged out

Try putting FirstWorld to False.

holy (*@#) this a fawless script i only can run it 2 hours becasue then my computerstocks and don't do anything anymroe and i got to reset my computerbut in that 2 hours no bugs appears it's awesome!
thanks and if any 1 can help me with my computer it would be awesome :p :)

———————————————-

Essence Miner by Wizzup?.
Version: 1.08

Rune Essence Mined and Banked : 2131.
Solved 3 Abyssal Random Events.
Missed 1 Abyssal Random Events.
Worked for 5 Hours, 21 Minutes and 12 Seconds

———————————————-

0 : *** = T; Loc = Bank; Banked: 539 Ess; M lvl:33
1 : *** = T; Loc = Mine; Banked: 448 Ess; M lvl:26
2 : *** = F; Loc = Oh Dear You Are in Lumby; Banked: 308 Ess; M lvl:28
3 : *** = T; Loc = Bank; Banked: 431 Ess; M lvl:37
4 : ***= F; Loc = Abyss; Banked: 405 Ess; M lvl:32
5 : *** = F; Loc = Mine; Banked: 0 Ess; M lvl:30
6 : *** = F; Loc = Bank; Banked: 0 Ess; M lvl:21
———————————————-
***.
Mined 448 Essence.
Mining level is 26
Location is Mine.
———————————————-

———————————————-
NextPlayer
***
ERROR. RuneScape has been updated. Script Terminated.
Successfully executed

and still going and going and going :)….looks good so far
Thanks RAM

How do you think this script compares to SB100's stress miner?

Thank you for the script . Will post proggies.

Line 295: [Error] (19071:1): Unknown identifier 'ReportVars' in script C:\Documents and Settings\john bitschkat\Desktop\Wizzup Essence Miner 1.08 Pub(2).scar
pls help!!!!

best ess. miner + banker i've found yet. i'll get a progress report up the next run. It ran with no problem, mined 2404 pure ess. thanks for the great miner/banker. a little off topic but i tried to find your air crafter and the link is no good. can you pm me with a link or whatever. Thanks.

to bad i can imagine it was just as good as your other scripts. thanks anyway

From: wtfaj23
best ess. miner + banker i've found yet. i'll get a progress report up the next run. It ran with no problem, mined 2404 pure ess. thanks for the great miner/banker. a little off topic but i tried to find your air crafter and the link is no good. can you pm me with a link or whatever. Thanks.

I've removed it, it doesn't work anymore. :)

A question, whenever I use my really slow '94 computer with this script, the starting screen with messages, bank pin, etc. always takes a while to load. So by the time it's loaded the mouse just sits there and doesn't click anything. So, how exactly can I fix this? On my brand-new comp the script works perfectly.

Anyway, nice script Wizzup?!

-Dunceiam

From: Dunceiam
A question, whenever I use my really slow '94 computer with this script, the starting screen with messages, bank pin, etc. always takes a while to load. So by the time it's loaded the mouse just sits there and doesn't click anything. So, how exactly can I fix this? On my brand-new comp the script works perfectly.

Anyway, nice script Wizzup?!

-Dunceiam

Ah… do other scripts work on your slow computer?
I am afraid the computer is just too slow..
You could add alot of waits.. but I don't think that will be sufficient.

LOL why do some people keep thir old computers xD ….

From: subin
LOL why do some people keep thir old computers xD ….

haha dunno, maybe love at the first sight?! ;p:duh:

From: Dunceiam
A question, whenever I use my really slow '94 computer with this script, the starting screen with messages, bank pin, etc. always takes a while to load. So by the time it's loaded the mouse just sits there and doesn't click anything. So, how exactly can I fix this? On my brand-new comp the script works perfectly.

Anyway, nice script Wizzup?!

-Dunceiam

You could try to do the following to improve performance.
1. Format the pc and reinstall, prob windows 98 SE2
2. Only install the bare minimum programs, like a web browser (go for a low powered version so not IE), scar & SRL
3. Upgrade to the maximum amount of RAM that can fit into the PC.
4. Remove any PCI devices that are not needed

If this does not work, get a new PC, trying running a different OS or just pedal faster :)

Hope that helps

Well, I have 2 comps, brand-new and the '94. So, I was basically wondering whether I could be running scripts on the '94, while I can do whatever the hell I want on the brand-new. And the '94 runs the simple scripts (around 200 lines) But they keep screwing up. So no point. So, guess can't run the script on the '94 then…:(

———————————————-

Essence Miner by Wizzup?.
Version: 1.08

Rune Essence Mined and Banked : 3495.
Solved 6 Abyssal Random Events.
Door Opened : 1.
Worked for 7 Hours, 51 Minutes and 17 Seconds

———————————————-

0 : *** = T; Loc = Bank; Banked: 754 Ess; M lvl:35
1 : *** = T; Loc = Bank; Banked: 0 Ess; M lvl:0
2 : *** = F; Loc = ScapeRune; Banked: 504 Ess; M lvl:29
3 : *** = T; Loc = Bank; Banked: 1159 Ess; M lvl:37
4 : *** = F; Loc = Mine; Banked: 566 Ess; M lvl:34
5 : *** = F; Loc = ToBank2; Banked: 215 Ess; M lvl:33
6 : *** = F; Loc = Mine; Banked: 297 Ess; M lvl:31
———————————————-
***.
Mined 754 Essence.
Mining level is 35
Location is Bank.
———————————————-

And for today's proggy ;)….and still had 1 more charcter in que, (set for 50 loads)…I guess I should give them a well deserved break, they've been working pretty hard for me…maybe I'll let them kill some goblins for attack level, Seeing they can all almost use addy picks now, might as well be able to weild them ……THANKS AGAIN WIZZUP? !!!!!!! :D RAM

heres a little something for you…

Essence Miner by Wizzup?.
Version: 1.08

Rune Essence Mined and Banked : 1554.
Solved 1 Abyssal Random Events.
Door Opened : 1.
Worked for 4 Hours, 6 Minutes and 59 Seconds

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

0 :  = T; Loc = Bank; Banked: 1554 Ess; M lvl:53
1 :  = F; Loc = ; Banked: 0 Ess; M lvl:0
2 :  = F; Loc = ; Banked: 0 Ess; M lvl:0
3 :  = F; Loc = ; Banked: 0 Ess; M lvl:0
4 :  = F; Loc = ; Banked: 0 Ess; M lvl:0
5 :  = F; Loc = ; Banked: 0 Ess; M lvl:0
----------------------------------------------
Account Name.
Mined 1554 Essence.
Mining level is 53
Location is Bank.
----------------------------------------------

From: RAM_RUNE
And for today's proggy ;)….and still had 1 more charcter in que, (set for 50 loads)…I guess I should give them a well deserved break, they've been working pretty hard for me…maybe I'll let them kill some goblins for attack level, Seeing they can all almost use addy picks now, might as well be able to weild them ……THANKS AGAIN WIZZUP? !!!!!!! :D RAM

Your Welcome.

From: StK Squenc
heres a little something for you…

Essence Miner by Wizzup?.
Version: 1.08

Rune Essence Mined and Banked : 1554.
Solved 1 Abyssal Random Events.
Door Opened : 1.
Worked for 4 Hours, 6 Minutes and 59 Seconds

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

0 :  = T; Loc = Bank; Banked: 1554 Ess; M lvl:53
1 :  = F; Loc = ; Banked: 0 Ess; M lvl:0
2 :  = F; Loc = ; Banked: 0 Ess; M lvl:0
3 :  = F; Loc = ; Banked: 0 Ess; M lvl:0
4 :  = F; Loc = ; Banked: 0 Ess; M lvl:0
5 :  = F; Loc = ; Banked: 0 Ess; M lvl:0
----------------------------------------------
Account Name.
Mined 1554 Essence.
Mining level is 53
Location is Bank.
----------------------------------------------

Thanks for the report. Thats nice, 4 hours with 1 player.

Gj :) Ill post a progress report later today (if i remember to save it.)

this script worked great for the first 100 ess but one time I found it south east of varrock because it went to auburys shop then kept clicking south east hoping to find him and just kept clicking that way. Another time I got the scaperune random where u have to pop the right balloons and stuff and I saw in the scar console it said SCAPERUNE RANDOM FOUND then it went to the south west corner of the room in scaperujne and did nothing I then saw in the scar console it said bank not found… Lol u gotta fix these randoms

From: colm16
this script worked great for the first 100 ess but one time I found it south east of varrock because it went to auburys shop then kept clicking south east hoping to find him and just kept clicking that way. Another time I got the scaperune random where u have to pop the right balloons and stuff and I saw in the scar console it said SCAPERUNE RANDOM FOUND then it went to the south west corner of the room in scaperujne and did nothing I then saw in the scar console it said bank not found… Lol u gotta fix these randoms

Hmm.. not really it logs out anyways.. so it's no biggie, and it is not supposed to solve the balloon random.

Okay, well the script was working perfectly for the 1st run, but when returning to the shop, the script clicked on "Trade" instead of "Teleport" And then kept trying to click "Log out" But the button was disabled since he was trading with Aubury. Do you understand what I'm saying? If so, any ways to fix this? I'll run it again right now to see if it happens again.

-Dunceiam

version 1.8 doesnt even work for me :S. version 1.6 works for me, except there is an error occasionally. It mines like 28 ess and then it says that it clicked on the portal, but it really didnt. :(. is this fixed in 1.8?

yep hes still not banned!!! hes on right now but i pause it then turn it back on from where i left off…..i dont have any other accounts only this one…i hate makeing a "Noob" army ….i hate the turtorial…maybe you should make a turtorial runner…ill be sure to use that one! =)

omg

omfg

it……….it……………it works!!!!!!!!!!! :spot: :spot: :spot: :spot: :spot:

im gonna mine until i get to lvl 60 mining…

how long do you guys think its going to take…

From: legendaryhero90
omg

omfg

it……….it……………it works!!!!!!!!!!! :spot: :spot: :spot: :spot: :spot:

im gonna mine until i get to lvl 60 mining…

how long do you guys think its going to take…

Quite long, Powermining is faster, a new update of my powerminer will come out soon..

can you plz tell me exactualy what I have to change to the script if i only wanna play with 1 acc? because it logs out and then it stops…

wizzup can you help me with my problem?

version 1.8 doesnt even work for me :S. version 1.6 works for me, except there is an error occasionally. It mines like 28 ess and then it says that it clicked on the portal, but it really didnt. :( is this fixed in 1.8?

From: DanTeCruZ
can you plz tell me exactualy what I have to change to the script if i only wanna play with 1 acc? because it logs out and then it stops…

I' ve solved my problem but there is a other one I use the 1.08 and afther he has minded the ess and banked the ess he goas to aubury and then he just stops…. can anyone help me?

ill use it tomorrow atm its 1 in tha morning so no lol. or maby ill hav it while i sleep.

an other problem is that the second time I'm mining ess he just loggs out an he does nothing anymore:p

the script keeps logging me out after the first run or so
sometimes it even logs me out when im not done mining for essence and still in the abyss…
any help to fix this is aprreciated

oh yeah heres a proggy!!!

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

Essence Miner by Wizzup?.
Version: 1.06

Rune Essence Mined and Banked : 252.
Pure Essence Mined and Banked : 0.
Solved 0 Abyssal Random Events.
Missed 0 Abyssal Random Events.
Worked for 41 Minutes and 24 Seconds

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

/~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
|     SRL Randoms Report       |
|    [url]www.villu-reborn.com[/url]      |
|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|
| Logged in              :  1  |
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~/

Hey i gotta mention great job in 1.08 :)

In 1.06 i had problems with changing players, it would go through 2 players then it wouldnt log in the third one, it would just sit there saying next player.

Well in 1.08 it works great.

Heres a proggy :D

Rune Essence Mined and Banked : 4473.
Solved 7 Abyssal Random Events.
Door Opened : 3.
Worked for 9 Hours, 40 Minutes and 49 Seconds

Thanks for the proggie. :stirthepot:

wizzup can u sole the problem that I logg out when im mining the ess? its realy annoying:) for the rest great job;)

From: DanTeCruZ
wizzup can u sole the problem that I logg out when im mining the ess? its realy annoying:) for the rest great job;)

Yes I will look into it, but I can't fix it atm.

yes ok maybe you just can say what I've to change on the script ok?:p ty

what is the meaning of switching from account cant u just automine on 1 acc 12 hoours long?:p

No, u can't auto so long with only one acc because of randoms. If u have multiple accounts and u run each account for 20 mins at a time, change of getting randoms is much smaller than if u just try to run it 12hrs with one player.
1. It's recommend to have multiplayers, because if u have only one player, it probably gets stuck because of random event or even banned quite fast.
2. If u somehow don't get stuck, multiplayers atleast makes it more humanlike and helps u to avoid bans.

oh man how i hate it when i get logged out while mining ess

other than that it would run all night right???

heres another proggie and it lasted much longer this time

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

Essence Miner by Wizzup?.
Version: 1.06

Rune Essence Mined and Banked : 529.
Pure Essence Mined and Banked : 0.
Solved 0 Abyssal Random Events.
Missed 0 Abyssal Random Events.
Worked for 1 Hours, 35 Minutes and 49 Seconds

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

0 : e90 = F; Loc = Mine; Banked: 69 Ess; M lvl:12
1 : ne9 = F; Loc = Mine; Banked: 56 Ess; M lvl:9
2 : e90 = F; Loc = Bank; Banked: 279 Ess; M lvl:39
3 : ne9 = F; Loc = Mine; Banked: 84 Ess; M lvl:45
4 : e90 = T; Loc = Mine; Banked: 56 Ess; M lvl:31
5 : ne9 = T; Loc = Bank; Banked: 0 Ess; M lvl:0

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

I will add new version with more debug soon. When I do put WizzyDebug to true, then you can easily report bugs. :)

Best essence mienr I've ever tried. Great job.

and yet another proggie!!

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

Essence Miner by Wizzup?.
Version: 1.06

Rune Essence Mined and Banked : 223.
Pure Essence Mined and Banked : 0.
Solved 1 Abyssal Random Events.
Missed 0 Abyssal Random Events.
Worked for 56 Minutes and 42 Seconds

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

0 : e90 = F; Loc = No GameTab; Banked: 84 Ess; M lvl:13
1 : ne9 = F; Loc = ToBank2; Banked: 28 Ess; M lvl:11
2 : e90 = F; Loc = Mine; Banked: 55 Ess; M lvl:39
3 : ne9 = F; Loc = Mine; Banked: 56 Ess; M lvl:45
4 : e90 = F; Loc = Mine; Banked: 0 Ess; M lvl:32
5 : ne9 = T; Loc = Mine; Banked: 0 Ess; M lvl:29

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

/~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
|     SRL Randoms Report       |
|    [url]www.villu-reborn.com[/url]      |
|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|
| Logged in              :  5  |
| Death[s]               :  1  |
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~/

mind telling me why i died there wizzup?
none of my autoers died but it says one of them died…

lol i just had an idea!
if they died.. i could make them go to the goblin house to train lol like fakawi's script, lol!! :p

Hmmm…. I will get the update version running tomorrow.

k nice:) tomorrow I'm at school but I'll try it in the evening … I hope he won't logg out then when I'm mining the ess:p I think that was because the mouse wasn't doing anything so he loggs out automaticly…:p

yeah that happens to me after a few bank runs

i keep getting this:

Successfully compiled
Line 114: [Hint] (18746:16): Variable 'IX' never used in script
Line 114: [Hint] (18746:16): Variable 'IY' never used in script
Line 576: [Warning] (19208:4): "and True" is not needed in script
Line 174: [Hint] (182:43): Variable 'NEWLINE' never used in script
Line 32: [Hint] (18664:44): Variable 'POUCHBOOL' never used in script Line 32:[Hint] (18664:44): Variable 'POUCHBOOL2' never used in script
Successfully executed

I know it sucessfully compiles but when i run the script it logs in and just sits there. What to do?

EDIT: Nvm, got it wroking, just started it again >.> Ill try and post a proggrie very soon.

From: Wizzup?
Hmmm…. I will get the update version running tomorrow.

yeah ill be looking forward to it!
btw wizzup?

you might want to work on the ess mining since it sometimes misses the click on the big ess rock.

just wanted to point that out

Lol nice, it got aroun 800 ess. I couldnt get the proggrie sorry, Ill get it next time. One of my charcters were south of falador o.o Musta been a missed random.

From: DanTeCruZ
k nice:) tomorrow I'm at school but I'll try it in the evening … I hope he won't logg out then when I'm mining the ess:p I think that was because the mouse wasn't doing anything so he loggs out automaticly…:p

BoredHuman is in there? so that should solve it?

From: legendaryhero90
yeah ill be looking forward to it!
btw wizzup?

you might want to work on the ess mining since it sometimes misses the click on the big ess rock.

just wanted to point that out

Okay, anyway, I posted the update thing in the wrong thread lol.. I am going to update my powerminer in the next few days, haha sorry. :)

If you can try figure out exactly why it logs out, tell me.. but I can just solve the problem if you tell it just logs out?
Does it log automatically? Does the script log out? etc.:stirthepot:

Hey wizzup omg ur essence miner is great,I have one problem though after i use it after awhile is wanders of to the side of varrok bank where the tea seller is can you fix that ?

Mined 3k of essence with it

From: marzey
Hey wizzup omg ur essence miner is great,I have one problem though after i use it after awhile is wanders of to the side of varrok bank where the tea seller is can you fix that ?

Mined 3k of essence with it

Thanks, and no, I cannot solve that right now, but I guess if you have suffucient player that small and harmless bug doesn't matter. :D

Awesome script man, keep up the good work.

Works perfect, except from when it goes from the bank to the rune shop.
It seems to only be that way though, I have never seen it get stuck from the rune shop and back to the bank.

I made some screenshots from where it usually gets stuck:
Picture 1
Picture 2
Picture 3
Picture 4

Always use low detail! Then you can "look" through roofs!

ok i ran it again and well…
after an hour of observation
it can be concluded that its the runescape client thats logging my players out.
can you fix that wizzup?
perhaps make it click more on the runescape client to ensure it doesnt log out.

one more thing
is the script supposed to long back in my players after everyone has done their run

for example:

if the script ran from player A to player Z…
would it loop back to player A after player Z is done?

From: legendaryhero90
ok i ran it again and well…
after an hour of observation
it can be concluded that its the runescape client thats logging my players out.
can you fix that wizzup?
perhaps make it click more on the runescape client to ensure it doesnt log out.

one more thing
is the script supposed to long back in my players after everyone has done their run

for example:

if the script ran from player A to player Z…
would it loop back to player A after player Z is done?

Yes it will go back to A.

About the logging out:

I fixed that with BoredHuman, it should movecamera, and click at random objects…

What you can do, and what I will do in the next version, is some random gametab clicking, ok?

From: legendaryhero90
ok i ran it again and well…
after an hour of observation
it can be concluded that its the runescape client thats logging my players out.

wat runescape client are u using…i think most of us here use swiftswitch correct?




@wizzup? I personally use this script alot! when im in the can or just busy..i would turn it on and it would run ..meh descent.. why i say this….well heres a list of a couple of bugs.

1. It would get lost going back to bank. It would wander off to the east and can't find bank and log out.

2. Sometimes can't find big ess rock and it would just leave and go to bank then go back makeing that a useless run.

3. It would get lost go to Albury sometimes.. It would go to the west and end up at rangers shop. Then logs out

4. It would get lost going to Albury's shop also.. It would end up at a little house east of albursy shop ….

5. Finds Albury to slow..The mouse would follow albury trying to catch up to him then finally get him and goes.

6.Sometimes doesn't open the door. It would say it did in the prodjy but all it really did was put its mouse over then try's to click to the bank.

7. Anoter is it wont close the bank. It wont always do this but i see it happen from time to time. It would put mouse over the 'x' but wont close it. Then in the prodjy it said it couldnt find Pic Axe.

And that's basically it. I'll post some more if i see some…i have 6.5k essance and i have to make body =/ meh i wish i thier was a body crafter. =) lol

Your script is great…just work on those minor problems and it will be 1337!

From: StK Squenc
wat runescape client are u using…i think most of us here use swiftswitch correct?




@wizzup? I personally use this script alot! when im in the can or just busy..i would turn it on and it would run ..meh descent.. why i say this….well heres a list of a couple of bugs.

1. It would get lost going back to bank. It would wander off to the east and can't find bank and log out.

2. Sometimes can't find big ess rock and it would just leave and go to bank then go back makeing that a useless run.

3. It would get lost go to Albury sometimes.. It would go to the west and end up at rangers shop. Then logs out

4. It would get lost going to Albury's shop also.. It would end up at a little house east of albursy shop ….

5. Finds Albury to slow..The mouse would follow albury trying to catch up to him then finally get him and goes.

6.Sometimes doesn't open the door. It would say it did in the prodjy but all it really did was put its mouse over then try's to click to the bank.

7. Anoter is it wont close the bank. It wont always do this but i see it happen from time to time. It would put mouse over the 'x' but wont close it. Then in the prodjy it said it couldnt find Pic Axe.

And that's basically it. I'll post some more if i see some…i have 6.5k essance and i have to make body =/ meh i wish i thier was a body crafter. =) lol

Your script is great…just work on those minor problems and it will be 1337!

no im using the regular client becuase swiftswitch got my 2nd main banned while using it…

all those problems are a concern espicially the script wondering off on its own

Yes it will go back to A.

About the logging out:

I fixed that with BoredHuman, it should movecamera, and click at random objects…

What you can do, and what I will do in the next version, is some random gametab clicking, ok?

ok wizzup? ill put that into consideration

hey u know swift switch updated its now legit….so its ok to use it now…

you wont get banned no more

Essence Miner by Wizzup?.
Version: 1.08

Rune Essence Mined and Banked : 1454.
Solved 3 Abyssal Random Events.
Missed 1 Abyssal Random Events.
Door Opened : 2.
Worked for 4 Hours, 4 Minutes and 24 Seconds

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

0 :  = F; Loc = Abyss; Banked: 1342 Ess; M lvl:31
1 :  = T; Loc = Bank; Banked: 112 Ess; M lvl:28
----------------------------------------------

Great code.
Runs like a charm. worked for over 3 hours and not a single random. Amazing.

But there have been times where the character gets stuck in the mine. This happens after a full invent before going through the portal.

No idea y it does that but a accounts have stopped like that alot of the time.

This is really wierd, not sure if its mining because I leave it on for a long time. It only gets like 50 essessces, I dont know why. I always log onto th charaters and they are in the mine with half the inventory, looks like they are stuck. Also theres no progress report, just mini ones with 8-12 minutes each.

EDIT: Found the problem, at first it logs in and waits till it logs off then back in and finally starting (Is that normal?)
So what ahppens is when the character mines it stays there mining and it gets logged out and logs to other charcter. With the frequent charcter there is a lot of time wasted. Is there a fix to this problem?

From: StK Squenc
hey u know swift switch updated its now legit….so its ok to use it now…

you wont get banned no more

ok ill keep that in mind

im still having the problem of the script logging out while mining

*IMPORTANT*

the script isnt logging my chars back in after its gone through the entire roster.
after my last player logs out…the script idles and it just sits there on the login screen
and im still havin the problem of the script logging my players out while mining or is in the mine.
they havent even had a full load yet and they get logged off :confused:

This script logs off a player when it encounters a problem. For example a random event.
If you got teleported then there is no point in logging back in and trying to mine.

This script also starts from either the bank or the mine.
When you set your constants they most probably are set to Bank. So to be able to mine you will need to start from the bank.

If your player1 is logged of because it was stuck in the mine, when the script logs back on it will think that the player is in the bank, but its not so the script wont work and you will most probably end up in a random location.

Also your character might become spasticated and be a lunatic on the roads.
This will alarm people and you will be reported. I personally, and many other members here will report you.

I hope that answers your question as to why it doesn't loop through the player cycle.

From: StK Squenc
hey u know swift switch updated its now legit….so its ok to use it now…

you wont get banned no more

Swift switch gave me a keylogger…I wouldn't recommend using it…:p

From: Dunceiam
Swift switch gave me a keylogger…I wouldn't recommend using it…:p

lol another reason why i dont use swift switch!!

From: Dunceiam
Swift switch gave me a keylogger…I wouldn't recommend using it…:p

did u download it from the original site?

i scanned mine and didnt find anything…. its just you buddy

Well…I believe I did, although it was 5-6 months ago so I don't remember. But that's why I became involved in RS-Cheating..:p

But yeah, after I found 5 mil. missing from my account, I ran a virus scan and sure enough, "Hellz Little Devil" (Name of keylogger) was there…Since swift-switch was the only thing I downloaded that week, I'm pretty sure it was it that gave me the keylogger.

-Dunceiam

Hmm, where did you guys diownload the SwiftSwitch exe file from? I got mines from zybez and I dont think I have a keylogger.

From: stylen
This script logs off a player when it encounters a problem. For example a random event.
If you got teleported then there is no point in logging back in and trying to mine.

This script also starts from either the bank or the mine.
When you set your constants they most probably are set to Bank. So to be able to mine you will need to start from the bank.

If your player1 is logged of because it was stuck in the mine, when the script logs back on it will think that the player is in the bank, but its not so the script wont work and you will most probably end up in a random location.

Also your character might become spasticated and be a lunatic on the roads.
This will alarm people and you will be reported. I personally, and many other members here will report you.

I hope that answers your question as to why it doesn't loop through the player cycle.

well… i tried setting it to "mine" in the player arrays, starting off in the mines and that didnt do any good.
i was still getting logged out every now and then maybe because there isnt enough activity with the mouse i.e. "clicking" and the game is logging me off because of it

i liked wizzup?'s idea of clicking random tabs and i believe it'll solve one the problems, but there are still other problems such as the script wondering off and missing the click on the big ess rock.

if those problems are fixed, it would be one heck of a free script! :D

btw… i think its a problem with the script since it says "NextPlayer" when it's done with the entire list of players
… i just sits there….
then i wake up in the morning to find that all my players are in the mines with their inventory half filled with rune ess…
none of them had any major (unsolvable) randoms btw
they were all the ones that you could talk to

i keep getting this [Runtime Error] : Out Of Range in line 41 in script

trying to use one player and keep getting this message can anyone help me please?

Can anyone help me with my problem? When it is mining it takes to long and logs off, this destroys precious time by waiting for it to log in to another chacter and have same thing happen. Is there anyway to prevent it from logging off?

From: Itzkirby
Hmm, where did you guys diownload the SwiftSwitch exe file from? I got mines from zybez and I dont think I have a keylogger.

yea zybez is good thier safe…or you can just go to www.swiftswitch.org

From: god_im_emo
i keep getting this [Runtime Error] : Out Of Range in line 41 in script

trying to use one player and keep getting this message can anyone help me please?

You need to delete the other players forms…
Example—

Players[0].Name :='';
Players[0].Pass :='';
Players[0].Nick :='';
Players[0].Loc :='Bank';
Players[0].Active:=True;
Players[0].Boolean1 := True; // Is The Pick Equipped?
Players[0].Boolean2 := False; // False for brightness Check Once.
Players[0].String1 := ''; // Bank PIN, If any.

Players[1].Name :='';
Players[1].Pass :='';
Players[1].Nick :='';
Players[1].Loc :='Bank';
Players[1].Active:=True;
Players[1].Boolean1 := True; // Is The Pick Equipped?
Players[1].Boolean2 := False; // False for brightness Check Once.
Players[1].String1 := ''; // Bank PIN, If any.

Players[2].Name :='';
Players[2].Pass :='';
Players[2].Nick :='';
Players[2].Loc :='Bank';
Players[2].Active:=True;
Players[2].Boolean1 := True; // Is The Pick Equipped?
Players[2].Boolean2 := False; // False for brightness Check Once.
Players[2].String1 := ''; // Bank PIN, If any.

Players[3].Name :='';
Players[3].Pass :='';
Players[3].Nick :='';
Players[3].Loc :='Bank';
Players[3].Active:=True;
Players[3].Boolean1 := True; // Is The Pick Equipped?
Players[3].Boolean2 := False; // False for brightness Check Once.
Players[0].String1 := ''; // Bank PIN, If any.

Players[4].Name :='';
Players[4].Pass :='';
Players[4].Nick :='';
Players[4].Loc :='Bank';
Players[4].Active:=True;
Players[4].Boolean1 := True; // Is The Pick Equipped?
Players[4].Boolean2 := False; // False for brightness Check Once.
Players[4].String1 := ''; // Bank PIN, If any.

Players[5].Name :='';
Players[5].Pass :='';
Players[5].Nick :='';
Players[5].Loc :='Bank';
Players[5].Active:=True;
Players[5].Boolean1 := True; // Is The Pick Equipped?
Players[5].Boolean2 := False; // False for brightness Check Once.
Players[5].String1 := ''; // Bank PIN, If any.

Delete everything in red…

Although I recommend using more then one players, it's better overall.

-Dunceiam

Thanks alot for the help works great

pretty good script man just finished my chars from tut island gonna give a try

From: gangsta
pretty good script man just finished my chars from tut island gonna give a try

You might wanna let them run on this script for a bit first and get their combat up…….. http://www.villavu.com/forum/showthread.php?t=2318?t=2808 …there are "muggers" there that love to "own" lvl 3 characters…not to mention a "few" other reasons to train your character's combat levels up…… http://www.villavu.com/forum/showthread.php?t=1342
Hope this helps you, RAM

From: RAM_RUNE
You might wanna let them run on this script for a bit first and get their combat up…….. http://www.villavu.com/forum/showthread.php?t=2318?t=2808 …there are "muggers" there that love to "own" lvl 3 characters…not to mention a "few" other reasons to train your character's combat levels up…… http://www.villavu.com/forum/showthread.php?t=1342
Hope this helps you, RAM

lol are you talking about the powerminer? lol
this is the essence miner
there are no muggers :p

For some reason, it needs to log out then log back in once more for it to start working. Also, when it has finished however many loads until it switches characters, it finishes the last load then it has to wait for it to auto log out before it logs back onto the next account. Besides that, it works really well. Haven't noticed any serious bugs.

Hmm, It dosent continuesly mine, it mines around 2 essence then goes to portal..

From: legendaryhero90
lol are you talking about the powerminer? lol
this is the essence miner
there are no muggers :p

There's a mugger normally at the door to the rune shop. Half the time he's there for me..:p
And in a lot of people's sigs they have, "If I see you autoing with a lvl 3, crap name, I WILL report you" You're going to get banned very quickly if you auto with a lvl 3. Just use the goblin Scheduler for 1 night on all your characters and you'll be fine.

-Dunceiam

whats the entire script???

From: bobthebuilder
whats the entire script???

I think your question is, "Where is the entire script?"? If it is, then Page 1 of this thread, underneath the downloads button. There are currently 2 attached files, click on whatever one you want.

-Dunceiam

I have a problem..i THINK i set my "1" player i want up..but when it logs me in..it doesnt click the play rs button or whatever, when i click that button the script does absolutly nothing..please help =\

From: Phat Smither
I have a problem..i THINK i set my "1" player i want up..but when it logs me in..it doesnt click the play rs button or whatever, when i click that button the script does absolutly nothing..please help =\

I had the same problem with my '94 computer. But it's because your computer's too slow. See if you can run other scripts, if not, then as I said. Your computer is just too slow..:(

-Dunceiam

k, i will see what i can do..but i can run rs lag free lol, i own on my range pure..=\

well i tried to run a auto fighter..i lagged a lil bit..and it just spun the screen around lol….

Okay, first of all, try not to double post. Just edit your first post…:)

So there's nothing we can help with since it's your computer…

-Dunceiam

well, its a brand new laptop -.-

i run it on my laptop and it just mines 1 thn goes back but b4 it done around 2 trips then got lost

From: legendaryhero90
well… i tried setting it to "mine" in the player arrays, starting off in the mines and that didnt do any good.
i was still getting logged out every now and then maybe because there isnt enough activity with the mouse i.e. "clicking" and the game is logging me off because of it

i liked wizzup?'s idea of clicking random tabs and i believe it'll solve one the problems, but there are still other problems such as the script wondering off and missing the click on the big ess rock.

if those problems are fixed, it would be one heck of a free script! :D

btw… i think its a problem with the script since it says "NextPlayer" when it's done with the entire list of players
… i just sits there….
then i wake up in the morning to find that all my players are in the mines with their inventory half filled with rune ess…
none of them had any major (unsolvable) randoms btw
they were all the ones that you could talk to

It sound line you connection is a bit laggy.
Do you notice some lag when ur normally playing.

Also what it go for a few trips and see if it works perfectly.

my accounts log very fast out so m scipt is finished very fast. where in the scipt can I edit the time that 1 acc is playing?:)

Essence Miner by Wizzup?.
Version: 1.08

Rune Essence Mined and Banked : 3540.
Solved 10 Abyssal Random Events.
Door Opened : 1.
Worked for 10 Hours, 15 Minutes and 18 Seconds


/~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
| SRL Randoms Report |
| www.villu-reborn.com |
|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|
| Logged in : 11 |
| Trade Missed : 2 |
| New Box[es] Solved : 1 |
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~/

From: DanTeCruZ
my accounts log very fast out so m scipt is finished very fast. where in the scipt can I edit the time that 1 acc is playing?:)

Line 20 Loads = 10; (by default) Change this to however many trips you want each character to make…but don't get to greedy, (although this is an EXCELENT SCRIPT, the longer the charecter is logged in at 1 time, the more randoms that will appear, and the more chance of a legitimate player will be monitoring your actions… Hope this helps, RAM

elvew, just wondering. But how many characters did you use?

-Dunceiam

From: stylen
It sound line you connection is a bit laggy.
Do you notice some lag when ur normally playing.

Also what it go for a few trips and see if it works perfectly.

my connection isnt laggy one bit even while unsigned

its the first player that always does the most (dont know why but the first player runs perfectly)…
the players after always gets logged off by the game
idk…. maybe i need to get them mith and addy picks so they can mine faster

btw elvew
what are your ess miners using Rune Pick lol :p

one more thing…. im still havin the problem of the script not looping my players
any fixes?

Hmm can anyone help me? I cant get it to not log out when mining the essence. It miens then logs out on its on, waits a few minutes goes on other charcter same thing…

EDIT: Aww man, I can baerly use this great script =( Wonder why it doenst work for me. Also it gets really laggy inside the essence area, also when it clicks to mine and misses theres no backup or somethng because it just stands there.

From: Itzkirby
Hmm can anyone help me? I cant get it to not log out when mining the essence. It miens then logs out on its on, waits a few minutes goes on other charcter same thing…

EDIT: Aww man, I can baerly use this great script =( Wonder why it doenst work for me. Also it gets really laggy inside the essence area, also when it clicks to mine and misses theres no backup or somethng because it just stands there.

yep those are the usual problems…
i guess we just got to wait up on wizzup to update this thing

From: legendaryhero90
yep those are the usual problems…
i guess we just got to wait up on wizzup to update this thing

Sorry, I just think your computers are to just slow…this Script runs FLAWLESS for me !!!!

No matter how fast you think your computer is, it never hurts to free up some resources or tweak your connection….have a look at some of these tutorials and see if it helps…..

Stopping Lag on Runescape Published by Pyro
http://www.srl-forums.com/forum/stop...482.html?t=482

Viruses? Spyware? A DIRTY COMPUTER? Published by Ron
http://www.srl-forums.com/forum/viru...53.html?t=4153

Windows Tweaks Published by hlstriker
http://www.srl-forums.com/forum/wind...625.html?t=625

Speed up Broadband Published by puj
http://www.srl-forums.com/forum/spee...423.html?t=423

Increase Your Net Speed(Big Tut :)) Published by Home
http://www.srl-forums.com/forum/incr...447.html?t=447

Hope these help, RAM

You also need to use 32-bit Colors..
I don't know what is wrong with your chars, what I can do it, Add some more waits.

Also, when I look at my code, I cannot see anything which might just make you walk back.

From: elvew
Essence Miner by Wizzup?.
Version: 1.08

Rune Essence Mined and Banked : 3540.
Solved 10 Abyssal Random Events.
Door Opened : 1.
Worked for 10 Hours, 15 Minutes and 18 Seconds


/~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
| SRL Randoms Report |
| www.villu-reborn.com |
|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|
| Logged in : 11 |
| Trade Missed : 2 |
| New Box[es] Solved : 1 |
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~/

Thanks, added to first page.

k, the problem i refered to yesterday..should be fixed..laptop wasnt on 32 bit colour lol :P

what do you have to fil in here?:)

YourSRLSTATSID = ''; // Stats ID.
YourSRLSTATSPASS = ''; // Stats Pass.
YourRCMASTER = ''; // Remote Control Master.

And I have still the problem that whan I'm mining the ess he loggs out automaticly because the mouse isn't clicking or something…. Can someone plz help me:(
maybe is had to do something with this???

Players[0].Active:=True;

From: Phat Smither
k, the problem i refered to yesterday..should be fixed..laptop wasnt on 32 bit colour lol :P

Thought so. ;)

From: DanTeCruZ
what do you have to fil in here?:)

YourSRLSTATSID = ''; // Stats ID.
YourSRLSTATSPASS = ''; // Stats Pass.
YourRCMASTER = ''; // Remote Control Master.

And I have still the problem that whan I'm mining the ess he loggs out automaticly because the mouse isn't clicking or something…. Can someone plz help me:(
maybe is had to do something with this???

Players[0].Active:=True;

Look at SRL Wiki, those are optional though, you don't need to fill them in. :D

Verry good script thanks for that.

But why does it stop running when it enters the bank ?
Anyway great script, thanks again

Yea I think it may be the computers problem that its not working because on my bro's laptop it wors fine. Ill try to get it to run during sschool.

dude this is the shit…better then penttis and this one is a free one…could get much more l33t then stablasters also =0

From: Wizzup?
Thought so. ;)



Look at SRL Wiki, those are optional though, you don't need to fill them in. :D

wizzup… you didnt answer his second question
and i still got that same problem of being automatically logged out
i sure hope you update this script soon

Holy hell! This script is amazing! Its the first script I can trust to leave alone for large periods of time. It handles randoms very easily, solves the abyss every time, and has gotten me thousands of essences! The only problem I could see is that running it for an extended period of time on a single char tends to degrade the quality of the script, often times resulting in my char in the corner and my game timed out. A small price to pay, especially since the script is so powerful.

If only your guild miner was so stable…But I thank you greatly for producing such an effective script as this.

GuildMiner is not on my list of priorities, Varrock Miner is, I got one, I want to get it more stable first, then I will most likely post it PUB.

Ha Wizzup you dissapoint me.
you did everything perfectly except you keep letting it time out. when it's mining you have to get the mouse to move around like you did in your first version. i just used ur 1 then and first go it timed out lmao. fix that and it should be perfect :D i will try 1 more time. then i'm going back to old one

From: rkroxpunk
Ha Wizzup you dissapoint me.
you did everything perfectly except you keep letting it time out. when it's mining you have to get the mouse to move around like you did in your first version. i just used ur 1 then and first go it timed out lmao. fix that and it should be perfect :D i will try 1 more time. then i'm going back to old one

Alright I will. ;)

My longest progress report was 6 hours I think, but I forgot to save it.
Been using this for about a week and got me around 20k ess.
It seems to get stuck when switching players for me.
Everytime I've had it running at night, I've waked up with it saying "next player" and with no player logged in.

From: Hillgoat
Three w00ts for wizzup

w00t

w00t

w00t

nice job, with your great work with the pwrminer, i think this will be fine. You truly are the one-in-a-million person that is kind enough not to sell their script :P

and ur 999.999 of the million leechers now a days…. 7posts….

Very good job wizzup.. and thx alot :) your all scripts is high-tech i think so ^^, all your scripts rulez .. keep up your super good work

I will add RandomGametab update soon.

mabye a bored human when it starts mining or somthing…also ill dig up a proc for you that i use to use which SRL does not have included but i see RS player(at school) do a lot of :p

edit: phew found it :p

   //////////////////////////////////////////////////////////
  // Use : BoredSkillCheck(15)                            //
 // randomly checks out skills at a random number of 15  //
//////////////////////////////////////////////////////////

Procedure BoredSkillCheck(RandomCheck : Integer);

var abb, bbb : Integer;

begin
  bbb:=Random(RandomCheck);
  GameTab(2);
  
  MMouse(558, 212, 178, 238)
  wait(1000 + random (3000))
  abb:= abb + 1;
  
  Repeat
    MMouse(558, 212, 178, 238)
    wait(100 + random(1500))
    abb := abb + 1;
  until(abb >= bbb)
  
end;

it randomly moves the mouse in the skills tab like a human would when they get bored like you were checking you exp :p

———————————————-
Essence Miner by Wizzup?.
Version: 1.08
Rune Essence Mined and Banked : 5058.
Solved 6 Abyssal Random Events.
Missed 1 Abyssal Random Events.
Door Opened : 3.
Worked for 11 Hours, 8 Minutes and 50 Seconds
———————————————-
0 : ***= F; Loc = Mine; Banked: 195 Ess; M lvl:38
1 : *** = F; Loc = No GameTab; Banked: 1824 Ess; M lvl:38
2 : *** = T; Loc = Aubury; Banked: 1557 Ess; M lvl:37
3 : *** = F; Loc = Aubury; Banked: 643 Ess; M lvl:42
4 : ***= F; Loc = Aubury; Banked: 0 Ess; M lvl:39
5 : *** = F; Loc = Quiz; Banked: 168 Ess; M lvl:35
6 : *** = F; Loc = NoColor; Banked: 671 Ess; M lvl:33
———————————————-
***.
Mined 1557 Essence.
Mining level is 37
Location is Aubury.

And still, 1 player left to go…I just stopped it so I could check the forums…It works so good for me, I wish it was this smooth for everyone else…However, I do know when i run it on my slower computer, it does lag a bit more, times out, etc Thanks again Wzzup? RAM

BTW, I did notice that when I log in manually to check on them, the ones that have timed out without completeing a full load, are standing just to the west and north a little,against the wall of the house with the anvil in it, same exact spot for all of them, I haven't actually seen them get lost there, but I will keep an eye out for it,for you.

this rocks my socks :lol: :) good work im guna use this now.

is this better than starblasters pay one?

From: rkroxpunk
Ha Wizzup you dissapoint me.
you did everything perfectly except you keep letting it time out. when it's mining you have to get the mouse to move around like you did in your first version. i just used ur 1 then and first go it timed out lmao. fix that and it should be perfect :D i will try 1 more time. then i'm going back to old one

ok ok now i have to take this comment back.
i did it the second try and this is what i got.
0 : *** = F; Loc = ToBank2; Banked: 252 Ess; M lvl:30
1 : *** = F; Loc = Bank; Banked: 432 Ess; M lvl:16
2 : *** = T; Loc = Bank; Banked: 1268 Ess; M lvl:20

how do u get full proggies cos i dont know how.
o well congratz on being first script that worked overnight.
one more thing why did it mine 250 then 430 then 1200!?
cheers

o the 250 and 430 might be because of this.
Mod encountered : 2

From: Dark_Sniper
mabye a bored human when it starts mining or somthing…also ill dig up a proc for you that i use to use which SRL does not have included but i see RS player(at school) do a lot of :p

edit: phew found it :p

   //////////////////////////////////////////////////////////
  // Use : BoredSkillCheck(15)                            //
 // randomly checks out skills at a random number of 15  //
//////////////////////////////////////////////////////////

Procedure BoredSkillCheck(RandomCheck : Integer);

var abb, bbb : Integer;

begin
  bbb:=Random(RandomCheck);
  GameTab(2);
  
  MMouse(558, 212, 178, 238)
  wait(1000 + random (3000))
  abb:= abb + 1;
  
  Repeat
    MMouse(558, 212, 178, 238)
    wait(100 + random(1500))
    abb := abb + 1;
  until(abb >= bbb)
  
end;

it randomly moves the mouse in the skills tab like a human would when they get bored like you were checking you exp :p

soz for double post but would it work if i just added that in anywhere in the script or should i let the master do it?
cheers

Just moving the mouse is not enough, that will get you logged out. Try BoredHuman; instead.

From: Wizzup?
GuildMiner is not on my list of priorities, Varrock Miner is, I got one, I want to get it more stable first, then I will most likely post it PUB.

The Varrock miner? I was talking about the miner's guild miner in Varrock…Is that what you speak of? Anyways, good job on all your work. I highly appreciate everything you do.

From: twobac
You could try to do the following to improve performance.
1. Format the pc and reinstall, prob windows 98 SE2
2. Only install the bare minimum programs, like a web browser (go for a low powered version so not IE), scar & SRL
3. Upgrade to the maximum amount of RAM that can fit into the PC.
4. Remove any PCI devices that are not needed

If this does not work, get a new PC, trying running a different OS or just pedal faster :)

Hope that helps

If you dont want to buy a new pc, buy some ram. Other than that there is NO other option except for a new pc. (Buying a new OS would not help, newer, the more required system specs AKA more system resources required).

From: WT-Fakawi
Just moving the mouse is not enough, that will get you logged out. Try BoredHuman; instead.

tried that.. but hey you wont be logged out unless you put the number of mouse movements up to hi.. like 250….. but that script just randomly moves over a random skill :p its very nice :p …


to the guy who quoted me:

add it in your script if you want but make sure you put it into the loop so it runs if u want it to run.

k will try. thx again.
i just put the procedure in the loop right?

EDIT: o god im too nooby at scripting. like to be able to do it but im to much of a dumbass so can some1 tell me what lines to put the bored thingy in.
cheers.
P.S if you call me a leecher i understand. but leecher's don't contribute to helping people make their scrpit better :D

rkr your kinda (actully way) off topic pl0x ask somwhere else it'l be answered :)

:( soz.
one more suggestion. might want to make mouse a little bit faster. used to be able to mine 500+ in an hour now its 400.

From: rkroxpunk
ok ok now i have to take this comment back.
i did it the second try and this is what i got.
0 : *** = F; Loc = ToBank2; Banked: 252 Ess; M lvl:30
1 : *** = F; Loc = Bank; Banked: 432 Ess; M lvl:16
2 : *** = T; Loc = Bank; Banked: 1268 Ess; M lvl:20

how do u get full proggies cos i dont know how.
o well congratz on being first script that worked overnight.
one more thing why did it mine 250 then 430 then 1200!?
cheers

o the 250 and 430 might be because of this.
Mod encountered : 2

Yes, FindMod screws every script. :p

From: Dark_Sniper
mabye a bored human when it starts mining or somthing…also ill dig up a proc for you that i use to use which SRL does not have included but i see RS player(at school) do a lot of :p

edit: phew found it :p

   //////////////////////////////////////////////////////////
  // Use : BoredSkillCheck(15)                            //
 // randomly checks out skills at a random number of 15  //
//////////////////////////////////////////////////////////

Procedure BoredSkillCheck(RandomCheck : Integer);

var abb, bbb : Integer;

begin
  bbb:=Random(RandomCheck);
  GameTab(2);
  
  MMouse(558, 212, 178, 238)
  wait(1000 + random (3000))
  abb:= abb + 1;
  
  Repeat
    MMouse(558, 212, 178, 238)
    wait(100 + random(1500))
    abb := abb + 1;
  until(abb >= bbb)
  
end;

it randomly moves the mouse in the skills tab like a human would when they get bored like you were checking you exp :p

I added BoredHuman Already, now made a RandomGameTab, I can add one more, I have to run it with RandomGametab first though. :)

ok waiting for update :p.

mean time ill be working on a script. :spot:

Line 265: [Error] (15920:1): Unknown identifier 'ReportVars' in script C:\Documents and Settings\user\Local Settings\Temporary Internet Files\Content.IE5\0JDP72OQ\SRL%20Essence%20Miner%201.06[1].scar what does that mean?

Have u srl 3.6 and globalstats patch file?

Wizzup, I love the Miner. Its making me cash now! :)

Thanks for your hard work, it WORKS GREAT!

———————————————-
Essence Miner by Wizzup?.
Version: 1.08
Rune Essence Mined and Banked : 5170.
Solved 8 Abyssal Random Events.
Worked for 10 Hours, 47 Minutes and 57 Seconds
———————————————-
0 : *** = T; Loc = Bank; Banked: 1315 Ess; M lvl:38
1 : *** = F; Loc = Mine; Banked: 590 Ess; M lvl:39
2 : *** = T; Loc = Bank; Banked: 1224 Ess; M lvl:37
3 : *** = T; Loc = Bank; Banked: 812 Ess; M lvl:42
4 : *** = T; Loc = Bank; Banked: 0 Ess; M lvl:0
5 : *** = T; Loc = Bank; Banked: 0 Ess; M lvl:0
6 : *** = T; Loc = Bank; Banked: 1229 Ess; M lvl:35
———————————————-

and 2 still left in que…As Always, Thanks Wizup? RAM

From: waleed
Line 265: [Error] (15920:1): Unknown identifier 'ReportVars' in script C:\Documents and Settings\user\Local Settings\Temporary Internet Files\Content.IE5\0JDP72OQ\SRL%20Essence%20Miner%201.06[1].scar what does that mean?

he needs global stats patch file.

Rune Essence Mined and Banked : 3556.
Solved 6 Abyssal Random Events.
Worked for 4 Hours, 32 Minutes and 5 Seconds
0 :*** = F; Loc = Maze; Banked: 1483 Ess; M lvl:55
1 : *** = F; Loc = ToBank2; Banked: 838 Ess; M lvl:46
2 : *** = F; Loc = Maze; Banked: 1235 Ess; M lvl:53

taken out thats a nice proggy you got there :p

I get the [run time] Out of range 41 problem. I tried to delete the other player forms but it didn't work. Could someone please help me?

Thanks for all the proggies, and check my tutorial on how to setup your players.

bored human in yet?

From: lelle
I get the [run time] Out of range 41 problem. I tried to delete the other player forms but it didn't work. Could someone please help me?

Have you set how many players you are using?

-Dunceiam

yes i have. I chose 0 players to use. Cause atm I only have one essminer

If you're only using 1 player, you need to set how many players you are using to 1. For example…

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

Players[0].Name :='namegoeshere';
Players[0].Pass :='passgoeshere';
Players[0].Nick :='nickgoeshere';
Players[0].Loc :='Bank';
Players[0].Active:=True;
Players[0].Boolean1 := True; // Is The Pick Equipped?
Players[0].Boolean2 := False; // False for brightness Check Once.
Players[0].String1 := 'pingoeshere'; // Bank PIN, If any.

You still want to set your number of players to 1. Even though you're using player[0].

I think that was your question…

-Dunceiam

I need to know how to setup more than 1 minner, not in the code, i have that down but do i need like two rs windows if i have two minners? help please….

Omg,u should read wizzup's tut
http://www.villavu.com/forum/showthread.php?t=5410?t=6267
And u need only one rs window, u can't run more than one player at same time

From: julle13
Omg,u should read wizzup's tut
http://www.villavu.com/forum/showthread.php?t=5410?t=6267
And u need only one rs window, u can't run more than one player at same time

srry i didn't know were his tut was, im new to the site (look at post count) and you CAN have more than 1 rs window open, the accounts just can't be on the same world *snicker*

i read the tutorial i told you i KNOW how to set it up in code, but in the log it says:
*******
Mined **** Essence.
Mining level is 52
Location is Bank.
———————————————-

———————————————-
NextPlayer

and then nothing happens he just sits there…help?

From: llib
srry i didn't know were his tut was, im new to the site (look at post count) and you CAN have more than 1 rs window open, the accounts just can't be on the same world *snicker*

i read the tutorial i told you i KNOW how to set it up in code, but in the log it says:
*******
Mined **** Essence.
Mining level is 52
Location is Bank.
———————————————-

———————————————-
NextPlayer

and then nothing happens he just sits there…help?

Who sits where? If it is saying "next player" and your character is sitting in the bank, wait for it the character to auto log out. After it does, it will go to the next user. I don't know if that is what is supposed to happen, but that is what happens to my guys whenever they are switching players, it waits for them to auto log out rather than manually logging out for you.

ty its works now, i just have one more questons..its kinda dumb but, when he says you need 8 players for it to run around the clock does that mean a minium of 0-7? or do you have to have a player 8….

It's basically saying that with the more players you have, the longer it should run…So you don't need to have 8 players, but it's better to have 8. So yes, you can still use 7.

-dunceiam

ok after it worked for a whole night i can now only get it to do 1 or 2 loads everytime it timesout when it gets to the essence. so yeah might redownload just to make sure i didn't stuff something up.
cheers
rk

Hey This is wierd i did 50 trips but mined 0 ess evertime i go to ess place it goes straight out and back to bank and repats… can someone help?

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

Essence Miner by Wizzup?.
Version: 1.06

Rune Essence Mined and Banked : 2451.
Pure Essence Mined and Banked : 0.
Solved 3 Abyssal Random Events.
Missed 0 Abyssal Random Events.
Worked for 6 Hours, 22 Minutes and 12 Seconds

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

0 : ncom = F; Loc = Bank; Banked: 251 Ess; M lvl:36
1 : eeld = F; Loc = No GameTab; Banked: 448 Ess; M lvl:30
2 : maum = T; Loc = Bank; Banked: 1254 Ess; M lvl:33
3 : ynjr = F; Loc = Mine; Banked: 162 Ess; M lvl:32
4 : bany = F; Loc = No GameTab; Banked: 140 Ess; M lvl:29
5 : ldch = F; Loc = Bank; Banked: 0 Ess; M lvl:0
6 : dopo = F; Loc = No GameTab; Banked: 84 Ess; M lvl:28
7 : erta = F; Loc = No GameTab; Banked: 112 Ess; M lvl:25

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

Thanks for the awesome script man:D

HI, everytime i try to start this it says"runtime error out of range in line 50". i have set the players to one since im only using me and i have put my name in, can someone tell me what im doing wrong, heres my program, point out the mistakes in it please!

Here mine is
————————————————————————–
program EssMiner;
{.include SRL/SRL.scar}
{.include SRL/SRL/Skill/Mining.scar}

{
"Stars, Hide your fires, Let not light see my black and deep desires.
The eye wink at the hand; Yet let that be, Which the eye fears when it
is done to see"
Macbeth - Shakespeare
}


Const
FirstWorld = True;
// IF you first loaded a
// world and are too lazy to logout once.
StartPlayer = 0;
NumberOfUsers = 6;
MinutesPerLoad = 5;
Loads = 10;
VersionNumber = '1.08';
YourSRLSTATSID = ''; // Stats ID.
YourSRLSTATSPASS = ''; // Stats Pass.
YourRCMASTER = ''; // Remote Control Master.
WizzyDebug = True;

Var
Position : String;
EssencePoint : Array [0..4] Of TPoint;
MiningMark, Abyss, NOAbyss, AuburyText, RuneShopColor,
RuneEssenceMined, PureEssenceMined, iMark, IdleMark, Doors: Integer;
PortalBool, PouchBool, PouchBool2 : Boolean;

Procedure DeclarePlayers;

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

Players[0].Name :='';
Players[0].Pass :='';
Players[0].Nick :='';
Players[0].Loc :='Bank';
Players[0].Active:=True;
Players[0].Boolean1 := True; // Is The Pick Equipped?
Players[0].Boolean2 := False; // False for brightness Check Once.
Players[0].String1 := ''; // Bank PIN, If any.

Players[1].Name :='';
Players[1].Pass :='';
Players[1].Nick :='';
Players[1].Loc :='Bank';
Players[1].Active:=True;
Players[1].Boolean1 := True; // Is The Pick Equipped?
Players[1].Boolean2 := False; // False for brightness Check Once.
Players[1].String1 := ''; // Bank PIN, If any.

Players[2].Name :='';
Players[2].Pass :='';
Players[2].Nick :='';
Players[2].Loc :='Bank';
Players[2].Active:=True;
Players[2].Boolean1 := True; // Is The Pick Equipped?
Players[2].Boolean2 := False; // False for brightness Check Once.
Players[2].String1 := ''; // Bank PIN, If any.

Players[3].Name :='';
Players[3].Pass :='';
Players[3].Nick :='';
Players[3].Loc :='Bank';
Players[3].Active:=True;
Players[3].Boolean1 := True; // Is The Pick Equipped?
Players[3].Boolean2 := False; // False for brightness Check Once.
Players[0].String1 := ''; // Bank PIN, If any.

Players[4].Name :='';
Players[4].Pass :='';
Players[4].Nick :='';
Players[4].Loc :='Bank';
Players[4].Active:=True;
Players[4].Boolean1 := True; // Is The Pick Equipped?
Players[4].Boolean2 := False; // False for brightness Check Once.
Players[4].String1 := ''; // Bank PIN, If any.

Players[5].Name :='';
Players[5].Pass :='';
Players[5].Nick :='';
Players[5].Loc :='Bank';
Players[5].Active:=True;
Players[5].Boolean1 := True; // Is The Pick Equipped?
Players[5].Boolean2 := False; // False for brightness Check Once.
Players[5].String1 := ''; // Bank PIN, If any.

Writeln( IntToStr ( NumberOfUsers ) + ' Players' );
End;

Function HighestBrightNess: Boolean;

Begin
GameTab(11);
Wait(400);
If GetColor(712, 226) <> 16777215 Then
Begin
Mouse(712, 226, 2, 2, True);
Result := True;
Wait(200);
End;
End;

Function GetUpTextBlue:String;

Var
iX, iY: Integer;
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 FindAuburyText: Boolean; // FindTalk by Renax, but adepted.
var
ExitCond, NoMoreYellow: Boolean;
Yint, Xmin, diff, difflast, Xmax, XmidRec, Xmid: Integer;
RawMenuText: string;
begin
x := 0;
y := 0;
Xmid := 0;
Xmin := 0;
Xmax := 0;
NoMoreYellow := False;
if (FindColor(x, y, 65535, 10, 25, 511, 334)) and (not (FindColor(x, y, 65280, 220, 130, 290, 165))) then
begin
Result := False;
if (not (FindBitmapMaskTolerance(AuburyText, x, y, 0, 0, 516, 338, 0, 40)))
then
Exit;
if (FindColorSpiral(x, y, 65535, x - 10, y - 10, x + 10, y + 10)) then
begin
Wait(10);
if (GetColor(x, y) = 65535) then
begin
If WizzyDebug Then WriteLn('Spotted aubury text');
Wait(10);
NoMoreYellow := False;
Yint := 0;
repeat
Yint := Yint + 1;
y := y + Yint;
x := 0;
repeat
ExitCond := False;
x := x + 1;
Xmin := x;
if (GetColor(x, y) = 65535) then
ExitCond := True;
if (x > 500) then
begin
x := 0;
ExitCond := True;
NoMoreYellow := True;
end;
until (ExitCond);
ExitCond := False;
x := 520;
while (NoMoreYellow = False) and (ExitCond = False) do
begin
x := x - 1;
Xmax := x;
if (GetColor(x, y) = 65535) then
ExitCond := True;
end;
diff := (Xmax - Xmin);
if (diff > difflast) and (diff > 25) then
begin
XmidRec := ((diff / 2) + Xmin);
end;
difflast := diff;
until (NoMoreYellow)
x := XmidRec;
MMouse(x, y + 6, 3, 0);
Wait(100);
if IsUpTextMulti('Talk', 'lk-to', 'to') Then
begin
GetMousePos(x, y);
Mouse(x, y + 6, 0, 0, False);
if (ChooseOptionGetMenuText(RawMenuText, x, y, 'Teleport')) then
begin
If WizzyDebug Then WriteLn('Found Aubury')
FFlag(1);
Wait(1000 + Random(500))
Result := True;
Exit;
end;
end;
end;
end;
end;
end;

Function AtMine: Boolean;

Var
iX, iY: Integer;

Begin
Result := FindColoredAreaTolerance(iX, iY, 0, MMX1, MMY1, MMX2, MMY2, 100, 0);
End;

Function ScanMiniMap(iFrom, iTo, Distance: Integer): Integer;

Var
I, iX,iY: Integer;
Begin
For I := iFrom To ITo Do
Begin
iX := Round(Distance * Sin(I * Pi / 180)) + 648;
iY := Round(-Distance * Cos(I * Pi / 180)) + 80;
If GetColor(iX, iY) = 0 Then
Begin
Result := Result + 1;
End;
End;
End;

Function InAbyss: Boolean;

Var
A : Integer;

Begin
A := ScanMiniMap(0, 359, 50);
If WizzyDebug Then WriteLn('In Abyss gave '+IntToStr(A)+'.');
If A = 360 Then
Begin
Result := True;
End
End;

Function GuessAbyssRandom: Boolean;

Var
AbyssalMark, iX, iY, I, ChosenColor, Tol, Tries: Integer;
WeirdColors: Array [0..3] Of Integer;
Operate: TPoint;
Begin
WeirdColors[0] := 13751777;
WeirdColors[1] := 4953873;
WeirdColors[2] := 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, MSX1, MSY1, MSX2, MSY2, Tol) Then
Begin
ChosenColor := WeirdColors;
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(10);
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(10);
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;
NOAbyss := NOAbyss + 1;
ReportVars[9] := ReportVars[9] + 1;
Players[CurrentPlayer].Loc := 'Abyss';
SRLRandomsReport;
WriteLn('Abyss Random Event.');
End;

Function GetPositionInMine: String;

Begin
MakeCompass('N');
If Not LoggedIn Then Exit;
If Not FindSymbol(x, y, 'transportation') Then
Begin
Result := 'Middle';
Exit;
End;

If ScanMiniMap(220, 240, 60) < 15 Then
Begin
Result := 'North-East';
ReportVars[5] := ReportVars[5] + 1;
EssencePoint[0].X := 340;
EssencePoint[0].Y := 61;
EssencePoint[1].X := 295;
EssencePoint[1].Y := 50;
EssencePoint[2].X := 395;
EssencePoint[2].Y := 120;
Exit;
End;

If ScanMiniMap(125,155, 60) < 20 Then
Begin
Result := 'North-West';
ReportVars[6] := ReportVars[6] + 1;
EssencePoint[0].X := 140;
EssencePoint[0].Y := 115;
EssencePoint[1].X := 18;
EssencePoint[1].Y := 70;
EssencePoint[2].X := 120;
EssencePoint[2].Y := 150;
Exit;
End;

If ScanMiniMap(290,330, 55) < 20 Then
Begin
Result := 'South-East';
ReportVars[7] := ReportVars[7] + 1;
EssencePoint[0].X := 350;
EssencePoint[0].Y := 160;
EssencePoint[1].X := 337;
EssencePoint[1].Y := 210;
EssencePoint[2].X := 362;
EssencePoint[2].Y := 125;
If (ScanMiniMap(140, 170, 55) <> 31) Then
Exit;
End;

Result := 'South-West';
ReportVars[2] := ReportVars[2] + 1;
EssencePoint[0].X := 190;
EssencePoint[0].Y := 60;
EssencePoint[1].X := 146;
EssencePoint[1].Y := 94;
EssencePoint[2].X := 285;
EssencePoint[2].Y := 54;

End;

Function GetMiddle:String;

Var
Ex, Ey: Integer;
Begin
If Not LoggedIn Then Exit;

If ScanMiniMap(330, 380, 55) < 35 Then
Begin
Result := 'MiddleSW';
ReportVars[4] := ReportVars[4] + 1;
Ex := 605;
Ey := 116;
EssencePoint[0].X := 170;
EssencePoint[0].Y := 240;
EssencePoint[1].X := 190;
EssencePoint[1].Y := 290;
EssencePoint[2].X := 254;
EssencePoint[2].Y := 274;
End
Else
Begin
Result := 'MiddleNE';
ReportVars[3] := ReportVars[3] + 1;
Ex := 690;
Ey := 30;
EssencePoint[0].X := 360;
EssencePoint[0].Y := 40;
EssencePoint[1].X := 450;
EssencePoint[1].Y := 100;
EssencePoint[2].X := 390;
EssencePoint[2].Y := 30;
End;
Mouse(Ex, Ey, 2, 2, True);
Wait(10);
FFlag(0);
Wait(100);
End;

Function FindEssence(Var iX, iY: Integer): Boolean;

Var
I, Tolerance : Integer;
Begin
If Not LoggedIn Then Exit;
For I := 0 To 2 Do
Begin
Tolerance := - 1;
While Tolerance < 10 Do
Begin
Tolerance := Tolerance + 1;
iX := EssencePoint.X;
iY := EssencePoint.Y;
If FindColorSpiralTolerance(iX, iY, 9539996, MSX1, MSY1, MSX2, MSY2, Tolerance) Then
Begin
If Distance(iX, iY, EssencePoint.X, EssencePoint.Y) < 80 Then
Begin
MMouse(iX, iY, 0, 0);
Wait(10);
If IsUpTextBlue('ssen') Then
// If IsUpTextMulti('Esse', 'une Es', 'ine') Then
Begin
GetMousePos(iX, iY);
Result := True;
If WizzyDebug Then WriteLn('Found Essence');
Exit;
End;
End;
End;
End;
End;
End;

Function ToPortal: Boolean;

Var
iX, iY, C : Integer;
Boolie : Boolean;
Begin
If Not LoggedIn Then Exit;
If FindSymbol(iX, iY, 'transportation') Then
Begin
Mouse(iX, iY, 2, 2, True);
Wait(10);
FFlag(0);
FindNormalRandoms;
iX := MSCX;
iY := MSCY;
Repeat
If Random(4) = 3 Then
Boolie := True;
If Boolie Then
Begin
Case Random(3) Of
0: MakeCompass('E');
1: MakeCompass('S');
2: MakeCompass('W');
End;
End;
Wait(50);
C := C + 1;
If FindObj(iX, iY, 'rtal', 12051688, 9) Then
Begin
Mouse(iX, iY, 0, 0, True);
Wait(10);
Result := True;
FFlag(0);
If Boolie Then MakeCompass('N');
Exit;
End;
Wait(1000);
Until C > 2;
If Boolie Then MakeCompass('N');
End;
End;

Function RunToPortal: Boolean;

Begin
MarkTime(iMark);
Repeat
If Not LoggedIn Then Break;
If (TimeFromMark(iMark) > 120000) Then
Begin
If WizzyDebug Then WriteLn('Portal Took too long..logging');
LogOut;
Players[CurrentPlayer].Loc := 'Portal';
End;
If ToPortal Then
Begin
FFlag(0);
Wait(6000);
End
Else Wait(100);
Until Not AtMine;
Result := True;
PortalBool := True;
End;

Function OpenDoor : Boolean;

Var iX, iY,DoorClosed : Integer;

Begin
DoorClosed := DTMFromString('78DA63FCCDC0C0309F01053426CB337001694' +
'620FE0F048C6F808C7E5435E97E520CFC503520C0C80E644D4055' +
'13E7218EAAE617A639E86A0097700CBE');
If Not LoggedIn Then Exit;

If FindDTM(DoorClosed, iX, iY, 140, 90, 425, 325) Then
Begin
MMouse(iX, iY, 2, 2);
GetMousePos(iX, iY);
If isUpText('pen') Then
Mouse(iX, iY, 0,0, True);
Result := True;
If Result Then Doors := Doors + 1;
End;
FreeDTM(DoorClosed);
If Result And WizzyDebug Then writeln('The door was closed, but now opened.')
Else If WizzyDebug Then WriteLn('The door is open');
End;

Function ToBank: Boolean;

Var
iX, iY, BankDTM, D, WalkMark, aMark : Integer;
AngleVar : Extended;
Begin
If Not LoggedIn Then Exit;
SetRun(True);
OpenDoor;
Mouse(687, 30, 4, 4, True);
Wait(100);
MarkTime(aMark);
Repeat
If Not FlagPresent Then
Begin
OpenDoor;
Mouse(687, 30, 4, 4, True);
MarkTime(WalkMark)
Repeat
FindColorSpiral(iX, iY, RuneShopColor, MMX1, MMY1, MMX2, MMY2)
D := Distance(iX, iY, MMCX, MMCY);
Wait(100);
Until ((D > 15) Or (TimeFromMark(WalkMark) > 8000));
End
Else Break;
If TimeFromMark(aMark) > 120000 Then
Begin
WriteLn('ToBank took too long.. logging.');
LogOut;
Players[CurrentPlayer].Loc := 'ToBank2';
Exit;
End;
Until D > 15;
Wait(6000);
FFlag(10);
BankDTM:= DTMFromString('78DA636C666260486140016FDEBC61F80FA41' +
'981F83F1030B603D5E4A0AA79FB96814103AA060418EB816AB251' +
'D57CFD8AAA0600B6210EA4');

If FindDTMRotated(BankDTM, iX, iY, MMX1, MMY1, MMX2, MMY2, -1.0, 2.0, 1, AngleVar) Then
Begin
Result := True;
Mouse(iX, iY + 1, 0, 0, True);
Wait(3000);
FFlag(0);
End
Else
Begin
LogOut;
Players[CurrentPlayer].Loc := 'ToBank2';
WriteLn('Bank not found');
Exit;
End;
FreeDTM(BankDTM);
SetRun(False);
End;

Function FindAuburyFloorColor(Var iX, iY: Integer): Boolean;

Var
Tol, Floor3 : Integer;
Begin
If Not LoggedIn Then Exit;
Floor3 := BitmapFromString(3, 3, 'z78DA3377333735B1302791' +
'04004AD80BFE');

If FindColoredAreaTolerance(iX, iY, RuneShopColor, MMX1, MMY1, MMX2, MMY2, 16, 9) Then
Begin
RuneShopColor := GetColor(iX , iY);
If WizzyDebug Then WriteLn('RuneShopColor = '+IntToStr(RuneShopColor));
If WIzzyDebug Then WriteLn('Found with FindColoredAreaTolerance.');
Result := True;
End;
Tol := 0;
Repeat
Wait(10);
If Result Then Break;
Tol := Tol + 2;
iX := 618;
iY := 127;
If FindBitMapSpiralTolerance(Floor3, iX, iY, MMX1, MMY1, 650, 150, Tol) Then
Begin
RuneShopColor := GetColor(iX , iY);
If WizzyDebug Then WriteLn('RuneShopColor = '+IntToStr(RuneShopColor));
If WizzyDebug Then WriteLn('Found with Floor3 bmp.');
Result := True;
Break;
End;
Until Tol > 39;
FreeBitMap(Floor3);
End;

Function ToDoor: Boolean;

Var
iX, iY: Integer;

Begin
If FindColorRightTol(iX, iY, RuneShopColor, MMX1, MMY1, MMX2, MMY2, 0) Then
Begin
If WizzyDebug Then WriteLn('Door found');
Result := True;
Mouse(iX - 8, iY + 20, 0, 0, True);
FFlag(0);
End;
End;

Function SpotAubury: Boolean;
// 10855856, 3005947, 2998011
Var
iX, iY, C: Integer;

Begin
Repeat
CloseWindow;
Wait(50);
If FindAuburyText Then
Begin
Result := True;
Break;
End;
iX := MSCX;
iY := MSCY;
If AtMine Then
Begin
Result := True;
Exit;
End;
If FindColorSpiralTolerance(iX, iY, 2998011, MSX1, MSY1, MSX2, MSY2, 4)
Or FindColorSpiralTolerance(iX, iY, 1888494, MSX1, MSY1, MSX2, MSY2, 4) Then
Begin
MMouse(iX, iY, 0, 0);
Wait(10);
If IsupTextMulti('Talk','bury','alk-to') Then
Begin
Mouse(iX, iY, 0, 0, False);
Result := ChooseOption(iX, iY, 'eleport');
If Result Then Exit;
End;
End;
C := C + 1;
Until C > 5;
Wait(500);

If Not LoggedIn Then Exit;
End;

Function PreciseFlag(Var iX, iY: Integer):Boolean;

Begin
Result := FindColor(iX, iY, 255, 570, 5, 735, 166);
If Result Then iX := iX + 1;
If Result Then iY := iY + 14;
End;

Function ColorAroundFlag(iX, iY: Integer) : Boolean;

Begin
Result := FindColorSpiral(iX, iY, RuneShopColor, iX - 2, iY - 2, iX + 2, iY + 2)
End;

Function ToMine: Boolean;

Var
iX, iY, D, zMark : Integer;
Begin

If Not Players[CurrentPlayer].Boolean2 Then
Begin
HighestBrightness;
Players[CurrentPlayer].Boolean2 := True;
End;
If Not LoggedIn Then Exit;
FindPickHeadColor;
Mouse(663, 142, 6, 6, True);
Wait(15000+Random(4000));
FFlag(5);

If FindAuburyFloorColor(iX, iY) Then
Begin
If WizzyDebug Then WriteLn('Exact Color Found');
End
Else
Begin
LogOut;
WriteLn('Could not get the exact color.'+ Chr(13)+
'Wizzup, you should tweak your functions!');
Players[CurrentPlayer].Loc := 'NoColor';
End;

FindColorSpiral(iX, iY, RuneShopColor, MMX1, MMY1, MMX2, MMY2);
D := Distance(iX, iY, MMCX, MMCY);
If WizzyDebug Then WriteLn('Distance = '+IntToStr(D));

If D > 15 Then
Begin
iX := MMCX;
iY := MMCY;
If FindColorSpiral2(iX, iY, RuneShopColor, MMX1, MMY1, MMX2, MMY2) Then
Begin
Mouse(iX, iY, 0, 0, True);
If PreciseFlag(iX, iY) Then
Begin
If ColorAroundFlag(iX, iY) Then
Begin
If WizzyDebug Then WriteLn('Walking INTO the shop now…');
End;
End;
FFlag(0);
End;
End;

iX := MMCX;
iY := MMCY;
FindColorSpiral(iX, iY, RuneShopColor, MMX1, MMY1, MMX2, MMY2)

If Distance(iX, iY, MMCX, MMCY) > 10 Then
Begin
ToDoor;
OpenDoor;
If FindColorSpiral2(iX, iY, RuneShopColor, MMX1, MMY1, MMX2, MMY2) Then
Begin
Mouse(iX, iY, 0, 0, True);
If PreciseFlag(iX, iY) Then
Begin
If ColorAroundFlag(iX, iY) Then
Begin
If WizzyDebug Then WriteLn('Walking INTO the shop now…');
End;
End;
FFlag(0);
End;
End;

If Random(10) = 9 Then BoredHuman;

MarkTime(zMark);
Repeat
FindNormalRandoms;
If (TimeFromMark(zMark) > 240000) Then
Begin
WriteLn('Aubury Took too long..logging');
LogOut;
Players[CurrentPlayer].Loc := 'Aubury';
End;

If SpotAubury Then
Begin
FFlag(0);
Wait(4000);
End
Else
Begin
Wait(100);
ChooseOption(iX, iY, 'ancel');
End;

If Not LoggedIn Then Break;
Until AtMine;

Result := True;
If LoggedIn Then Players[CurrentPlayer].Loc := 'Mine';
End;

Function MyOpenBank: Boolean;

Begin
OpenBankGlass('veb',False,False);
FFlag(0);
Wait(2000);
If BankScreen Or PinScreen Then
Begin
Result := True;
If PinScreen Then InPin(Players[CurrentPlayer].String1);
Exit;
End;
If OpenBankQuiet('veb') Then Result := True;
If PinScreen Then InPin(Players[CurrentPlayer].String1);
End;

Function BankStuff: Boolean;

Var
RuneEss, PureEss: Integer;
Begin
If Not BankScreen Then Exit;
RuneEss := BitmapFromString(8, 12, 'z78DA8DCD3112C3200C44D1' +
'2BE1B02B9B1288B9FF91222315149107EFCCAFF4B08037BB584F0' +
'E0E6F9143D724EBAC5F79BE0F1BABF7DDCEB25374B3925858BCC1' +
'3BBC78E82AA1DBB07EBFAAC8DA3D3130BC1B8A191DFD8F8A6C424' +
'57515D945E1C685D35564973FA23DD4D48ED5ABACDB560092CED4' +
'BB9DF73F7ACE7D1F');
PureEss := BitmapFromString(11, 10, 'z78DAA5CF490E03211003C' +
'02FB1B56D8E0CCBFF9F1492CC012962B2B5251F4B6E451616192B' +
'ABC8CEA62CC771F6A120AFA638D39594B213841C342F27151536A' +
'6994110F214A59DB9D1783032FCE39018E8CCF474BF693434B48F' +
'9C555B1CBAF98A185050BED0963DE8B8DFA3DF689BEF90E1670EA' +
'4994F9C65D5D38159B736596763AB5D3A362C5B46B46AF5D4AE57' +
'BD3837C02891A6');
// FixBank;
RuneEssenceMined := RuneEssenceMined + CountItemBmpTol(RuneEss, 15);
PureEssenceMined := PureEssenceMined + CountItemBmpTol(PureEss, 15);
ReportVars[1] := ReportVars[1] + 1;
ReportVars[0] := CountItemBmpTol(RuneEss, 15) + CountItemBmpTol(PureEss, 15);
Players[CurrentPlayer].Integer1 := Players[CurrentPlayer].Integer1 + CountItemBmpTol(PureEss, 15) + CountItemBmpTol(RuneEss, 15);
ClickAllItemsBmpTolWait('All', RuneEss, 15, 1500);
ClickAllItemsBmpTolWait('All', PureEss, 15, 1500);
If EquipPick Then Deposit(1, 28, 2)
Else Deposit(2, 28, 2);
FreeBitMap(RuneEss);
FreeBitMap(PureEss);
If BankScreen Then CloseBank;
Players[CurrentPlayer].Banked := Players[CurrentPlayer].Banked + 1;
Banks := Banks + 1;
Result := True;
End;

Procedure PlayerReport;

Var
Active: String;
I:Integer;

Begin
For I := 0 to HowManyPlayers - 1 Do
Begin
If Players.Active=True Then Active := 'T' Else Active := 'F';
WriteLn( (IntToStr(I))+' : '+Players.nick+ ' = '+
Active+ +'; Loc = '+Players.Loc+'; Banked: '+IntToStr(Players.Integer1)
+' Ess; M lvl:'+IntToStr(Players.Level[15]));
End;
End;

Procedure CurrentPlayerReport;

Begin
WriteLn('———————————————-')
WriteLn(Players[CurrentPlayer].Name+'.');
WriteLn('Mined ' + IntToStr(Players[CurrentPlayer].Integer1) + ' Essence.');
WriteLn('Mining level is ' + IntToStr(Players[CurrentPlayer].Level[15]));
WriteLn('Location is ' + Players[CurrentPlayer].Loc+ '.');
WriteLn('———————————————-')
End;

Procedure ProgressReport;

Begin
WriteLn('———————————————-')
WriteLn('')
WriteLn('Essence Miner by Wizzup?.')
WriteLn('Version: '+VersionNumber)
WriteLn('')
If RuneEssenceMined > 0 Then WriteLn('Rune Essence Mined and Banked : '+IntToStr(RuneEssenceMined)+'.');
If PureEssenceMined > 0 Then WriteLn('Pure Essence Mined and Banked : '+IntToStr(PureEssenceMined)+'.');
If Abyss > 0 Then WriteLn('Solved '+IntToStr(Abyss)+' Abyssal Random Events.');
If NOAbyss > 0 Then WriteLn('Missed '+IntToStr(NoAbyss)+' Abyssal Random Events.');
If Doors > 0 Then WriteLn('Door Opened : '+IntToStr(Doors)+'.');
Writeln('Worked for '+ TimeRunning);
WriteLn('')
WriteLn('———————————————-')
WriteLn('')
PlayerReport;
CurrentPlayerReport;
SRLRandomsReport;
WriteLn('')
WriteLn('———————————————-')
End;

Procedure ClearVars;

Var
I : Integer;
Begin
For I := 1 To 19 Do
ReportVars := 0;
End;

Procedure DoChats;

Begin
SetChat('On', 1);
SetChat('On', 1);
SetChat('Friends', 2);
SetChat('Friends', 2);
SetChat('On', 3);
SetChat('On', 3);
End;

Procedure SetupScript;

Begin
ClearDebug;
SetupSRL;
SetupSRLMining;
DeclarePlayers;
RuneShopColor := 4551800; // Temp.
Rcmaster := YourRCMASTER;
RcLoc := 'Bank';
ScriptID := '51';
ClearVars;
SRLID := YourSRLstatsID;
SRLPassword := YourSRLstatsPASS;
CurrentPlayer := StartPlayer;
If FirstWorld Then LoginPlayer;
If FirstWorld Then Wait(1000);
If FirstWorld Then LogOut;
If FirstWorld Then Wait(1000);
LoginPlayer;
Wait(1000);
DoChats;
EquipPick := Players[CurrentPlayer].Boolean1;
AuburyText := CreateBitmapMaskFromText('isthine', upchars);
BenMouse := True;
GetAllLevels;
End;

begin
ActivateClient;
SetupScript;
Repeat
MakeCompass('N');
If Players[CurrentPlayer].Loc = 'Bank' Then
Begin
ToMine;
End;

If Players[CurrentPlayer].Loc = 'Mine' Then
Begin
Wait(500);
If InAbyss Then
Begin
GuessAbyssRandom;
BoredHuman;
End;
Wait(1000);
FindNormalRandoms;
SymbolAccuracy := 0.4;
Position := GetPositionInMine;
If Position = 'Middle' Then Position := GetMiddle;
WriteLn('Our position is '+ Position+'.');

Wait(1000);
If FindEssence(X, Y) Then
Begin
Mouse(X, Y, 0, 0, True);
Wait(10);
FFlag(0);
End
Else
Begin
RunToPortal;
End;
Wait(1000);
MarkTime(IdleMark);
MarkTime(MiningMark);
Repeat
If Not LoggedIn Then Break;
If PortalBool Then Break;
If TimeFromMark(IdleMark) > (85000+Random(5000)) Then
Begin
BoredHuman;
MarkTime(IdleMark);
End;
Wait(400);
If FindNormalRandoms Then
RunToPortal;
Wait(400);
RC;
Wait(400);
ClickToContinue;
If FindFight Then
Begin
RunToPortal;
Break;
End;
Wait(1);
Until ((InvFull) Or (TimeFromMark(MiningMark) > 1000 * 60 * MinutesPerLoad));
If Not PortalBool Then
Begin
MarkTime(iMark);
Repeat
If Not LoggedIn Then Break;
If (TimeFromMark(iMark) > 120000) Then
Begin
WriteLn('Portal Took too long..logging');
LogOut;
Players[CurrentPlayer].Loc := 'Portal';
End;
If ToPortal Then
Begin
FFlag(0);
Wait(3000);
End
Else Wait(100);
Until Not AtMine;
End
WriteLn('Through The portal');
SymbolAccuracy := 0.8;
PortalBool := False;
Wait(500);
ToBank;
MyOpenBank;
BankStuff;
If LoggedIn Then Players[CurrentPlayer].Loc := 'Bank';
End;
ProgressReport;
If ( LoggedIn And (Players[CurrentPlayer].Banked Mod Loads = 0 )) Then
Begin
DoChats;
LogOut;
Wait(1000);
NextPlayer(True);
EquipPick := Players[CurrentPlayer].Boolean1;
FindPickHeadColor;
GetAllLevels;
End;

If Not LoggedIn Then
Begin
DoChats;
NextPlayer(False);
EquipPick := Players[CurrentPlayer].Boolean1;
FindPickHeadColor;
GetAllLevels;
End;
Until False;
end.

Wow you idiot, if you are gonna put that whole long thing crop out the line where there is the error or put

tags around it. Good way to start your first post here….

i guess im not gonna get any help, this is such a friendly forum

From: mug22
i guess im not gonna get any help, this is such a friendly forum

you have set it to run 1 player but there is 5 slots extra, take out all the player setup stuff from 1-5 or put {} around them.

Procedure DeclarePlayers;

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

Players[0].Name :='';
Players[0].Pass :='';
Players[0].Nick :='';
Players[0].Loc :='Bank';
Players[0].Active:=True;
Players[0].Boolean1 := True; // Is The Pick Equipped?
Players[0].Boolean2 := False; // False for brightness Check Once.
Players[0].String1 := ''; // Bank PIN, If any.

{Players[1].Name :='';
Players[1].Pass :='';
Players[1].Nick :='';
Players[1].Loc :='Bank';
Players[1].Active:=True;
Players[1].Boolean1 := True; // Is The Pick Equipped?
Players[1].Boolean2 := False; // False for brightness Check Once.
Players[1].String1 := ''; // Bank PIN, If any.

Players[2].Name :='';
Players[2].Pass :='';
Players[2].Nick :='';
Players[2].Loc :='Bank';
Players[2].Active:=True;
Players[2].Boolean1 := True; // Is The Pick Equipped?
Players[2].Boolean2 := False; // False for brightness Check Once.
Players[2].String1 := ''; // Bank PIN, If any.

Players[3].Name :='';
Players[3].Pass :='';
Players[3].Nick :='';
Players[3].Loc :='Bank';
Players[3].Active:=True;
Players[3].Boolean1 := True; // Is The Pick Equipped?
Players[3].Boolean2 := False; // False for brightness Check Once.
Players[0].String1 := ''; // Bank PIN, If any.

Players[4].Name :='';
Players[4].Pass :='';
Players[4].Nick :='';
Players[4].Loc :='Bank';
Players[4].Active:=True;
Players[4].Boolean1 := True; // Is The Pick Equipped?
Players[4].Boolean2 := False; // False for brightness Check Once.
Players[4].String1 := ''; // Bank PIN, If any.

Players[5].Name :='';
Players[5].Pass :='';
Players[5].Nick :='';
Players[5].Loc :='Bank';
Players[5].Active:=True;
Players[5].Boolean1 := True; // Is The Pick Equipped?
Players[5].Boolean2 := False; // False for brightness Check Once.
Players[5].String1 := ''; // Bank PIN, If any.}

Writeln( IntToStr ( NumberOfUsers ) + ' Players' );
End;

or

Procedure DeclarePlayers;

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

Players[0].Name :='';
Players[0].Pass :='';
Players[0].Nick :='';
Players[0].Loc :='Bank';
Players[0].Active:=True;
Players[0].Boolean1 := True; // Is The Pick Equipped?
Players[0].Boolean2 := False; // False for brightness Check Once.
Players[0].String1 := ''; // Bank PIN, If any.

Writeln( IntToStr ( NumberOfUsers ) + ' Players' );
End;

or better still, use 6 players…

also could you put scar tags around the script u posted like this

script here[-/SCAR] take out the '-'

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

Essence Miner by Wizzup?.
Version: 1.08

Rune Essence Mined and Banked : 1308.
Solved 1 Abyssal Random Events.
Worked for 1 Hours, 33 Minutes and 14 Seconds

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

0 : noni = T; Loc = Bank; Banked: 1308 Ess; M lvl:35
1 : 1425 = T; Loc = Bank; Banked: 0 Ess; M lvl:0
2 : 4321 = T; Loc = Bank; Banked: 0 Ess; M lvl:0
3 : 1234 = T; Loc = Bank; Banked: 0 Ess; M lvl:0
4 : inon = T; Loc = Bank; Banked: 0 Ess; M lvl:0
5 : 5241 = T; Loc = Bank; Banked: 0 Ess; M lvl:0
----------------------------------------------
m*n*r p*re**.
Mined 728 Essence.
Mining level is 35
Location is Bank.
----------------------------------------------

"RIGHT HERE TREY DEATH"

From: mug22
i guess im not gonna get any help, this is such a friendly forum

Yes, this probably the most freindly goup of people you will ever meet, BUT ,In order to better help you better, you need to help yourself first…and this applies to everyone with a question…I'VE said this a few times before ..I KNOW, I can ephasise with you, that there is a lot of reading to be done here, but..I would dare to say, as high as 99% of the questions people have, have already been asked before…Please take the time to do a little research into the matter on your own first…

• It saves yoourself a whole lot of embaressemrnt.
• It keeps people from being frusterated at you, and in turn more willing to help.
• It frees the actual thread from being carried off topic, so people won't have to search through MORE pages of irelevant infor mation.
• You will be able to get your answers to your questions almost imedialtely, rather than haveing to wait for someone to answer.
• You will have a better sense of acomplishment, knowing you were able to answer your question for yourself, rather than someone pointing it out to you.

Now, seeing youve alrady earned yourself a few nooby points (yet to be calculated by Boreas ;) ) Here is your chance to redeem yourself….. Learn to use the Edit button ..It's a little button on the bottom of every reply you make..it looks like this

EDIT

, If you would please be so kind as to go back and delete all the unessecary stuff from your post, in which you coppied the entire script, that would be so great.

..and just a reminder, when posting your error codes you may recieve at the bottom…you'll need to just write the line that it refers to , because once you have edited the script in any way, We are not able to compare the line to the original line in the script…..

Now, on to your actual learning…IT IS HIGLY SUGGESTED..that you read some of the following pages, guides and tutorials, this will give you a firm foundation of not only how Scar works, but SRL and common edicit here at the forums…….

How to Be a Noob by TooManySitUps
http://www.srl-forums.com/forum/noob...16.html?t=6116

What The FAQ? Published by Boreas
http://www.villavu.com/forum/showthread.php?t=4064?t=4845

How to look better in ANY forum(SRL) Published by dwas-woot
http://www.srl-forums.com/forum/spea...07.html?t=3507

I believe the first 2 should be mandatory to anyone apply for basic registration here…the 3rd helps you improve yourself, so people will take you more seriously….

and if you wish to advance yourself any higher than a leecher status, here is my tutorial list I have created..I guarntee, any basic question you may have, WILL be answered in here….

http://www.villavu.com/forum/showthread.php?t=5906?t=6804

Also, I wasn't meaning to single mug22 out…I hope everyone that reads this, Is able to take something away from it…..Even myself..I admit I am relatively new here, but because of kind people helping me along, this in turn encourages me to help others……Oh, and Thanks to the

edit

and

delete

buttons…I was able to go back and "cover my tracks" and erase any incriminating evedince of my past stupidity ;)


Hope this helps, RAM

BTW, there are links here to most people's messenger in their names, you can try adding people and maybe they can help you if you have further questions.Of course, the more information you know, the more people are willing to help.

From: noni95
Hey This is wierd i did 50 trips but mined 0 ess evertime i go to ess place it goes straight out and back to bank and repats… can someone help?

32-Bit Colors, Highest Brightness. :)

Thanks for the great reply RAM.

Thank you very much Dunceiam. It works now. +rep for you

Now i got this error..
[Runtime Error] : Out Of Range in line 303 in script C:\Program\SCAR 2.03\includes\srl\srl\core\Login.scar
anyone know what to do?

From: lelle
Now i got this error..
[Runtime Error] : Out Of Range in line 303 in script C:\Program\SCAR 2.03\includes\srl\srl\core\Login.scar
anyone know what to do?

Read my tutorial on how to setup your players.

Actually i have read it. But i used to get it to work. But when i started it today it didn't. I'm gonna read your tut again now

———————————————-

Essence Miner by Wizzup?.
Version: 1.08

Rune Essence Mined and Banked : 56.
Worked for 6 Minutes and 51 Seconds

———————————————-

0 : nobanplzmaybetoolonguser = T; Loc = Bank; Banked: 56 Ess; M lvl:11
1 : nobanplzmaybetoolonguser1 = T; Loc = Bank; Banked: 0 Ess; M lvl:0
2 : nobanplzmaybetoolonguser2 = T; Loc = Bank; Banked: 0 Ess; M lvl:0
———————————————-
nobanplzmaybetoolonguser.
Mined 56 Essence.
Mining level is 11
Location is Bank.
———————————————-

———————————————-
Pick head colors… 1649206 2177354 2044481 2045510 2506834
RuneShopColor = 4947588
Found with FindColoredAreaTolerance.
Exact Color Found
Distance = 9
Spotted aubury text
[Runtime Error] : Exception: Access violation at address 00653F79 in module 'scar.exe'. Read of address 04F3BFFE in line 1084 in script C:\Program Files\SCAR 2.03\includes\srl\srl\core\AntiRandoms\AntiRandoms.scar

got any ideas?

Scar working fine
SRL working fine

Quick specs: P4 3,2Ghz/2GB DDR2-400/no other programs run at that time…

Someone told me that this wizups essence miner was really good.. i need to try it out ;)

when im mining the ess it doesnt click while im mining so i get logged out after i mine 14 rune ess…. so it doesnt bank any then it doesnt log me back in either

Thanks
ill go try this

Do i have to choose high or low detail ?

low detail for better script results…high u cant see inside a building …low u can. helps find albury better =)

From: savormix
———————————————-

Essence Miner by Wizzup?.
Version: 1.08

Rune Essence Mined and Banked : 56.
Worked for 6 Minutes and 51 Seconds

———————————————-

0 : nobanplzmaybetoolonguser = T; Loc = Bank; Banked: 56 Ess; M lvl:11
1 : nobanplzmaybetoolonguser1 = T; Loc = Bank; Banked: 0 Ess; M lvl:0
2 : nobanplzmaybetoolonguser2 = T; Loc = Bank; Banked: 0 Ess; M lvl:0
———————————————-
nobanplzmaybetoolonguser.
Mined 56 Essence.
Mining level is 11
Location is Bank.
———————————————-

———————————————-
Pick head colors… 1649206 2177354 2044481 2045510 2506834
RuneShopColor = 4947588
Found with FindColoredAreaTolerance.
Exact Color Found
Distance = 9
Spotted aubury text
[Runtime Error] : Exception: Access violation at address 00653F79 in module 'scar.exe'. Read of address 04F3BFFE in line 1084 in script C:\Program Files\SCAR 2.03\includes\srl\srl\core\AntiRandoms\AntiRandoms.scar

got any ideas?

Scar working fine
SRL working fine

Quick specs: P4 3,2Ghz/2GB DDR2-400/no other programs run at that time…

That happens sometimes, I will look into it.

From: yarz
Do i have to choose high or low detail ?

Low Detail.

From: uruglyxd
when im mining the ess it doesnt click while im mining so i get logged out after i mine 14 rune ess…. so it doesnt bank any then it doesnt log me back in either

Yes.. Soon a new update will be released with Anti Logout again. ;)

yes, wizzup, that didn't happen again.

Btw, it works quite good with high detail too. But low detail brings BEST results.

Wizzup, i heard your free essence miner works better then the one from starblaster100, si this really true? Because i already bought his one a time ago :) ist juist?

haha that'd be pretty funny -> free script beats 1m pay script in performance

I'd say they're about the same….

From: the scar noob
Wizzup, i heard your free essence miner works better then the one from starblaster100, si this really true? Because i already bought his one a time ago :) ist juist?

Don't know. :)

From: Wizzup?
Yes I will look into it, but I can't fix it atm.

ill fix it for u lol… i used this for forever and it worked for forever until runescape got updated, i just changed one value that was really important, and i thinka couple unimportant things, but there it is for u lazy bums, it took me forever to figure out why it wouldnt work, but i noticed that they all logged with exactly 18 ess in their inventory at the mine, so i fixed it! yay! it should work, i just took out my macroers names there, so, (hopefullly) have fun!, and if not, too bad, ask wizzup

program EssMiner;
{.include SRL/SRL.scar}
{.include SRL/SRL/Skill/Mining.scar}

{
"Stars, Hide your fires, Let not light see my black and deep desires.
The eye wink at the hand; Yet let that be, Which the eye fears when it
is done to see"
               Macbeth - Shakespeare
}


Const
   FirstWorld = False;
   //  IF you first loaded a
   // world and are too lazy to logout once.
   StartPlayer = 0;
   NumberOfUsers = 6;
   MinutesPerLoad = 5;
   Loads = 10000;
   VersionNumber = '1.08';
   YourSRLSTATSID   = '';  // Stats ID.
   YourSRLSTATSPASS = ''; // Stats Pass.
   YourRCMASTER      = ''; // Remote Control Master.
   WizzyDebug = True;

Var
   Position : String;
   EssencePoint : Array [0..4] Of TPoint;
   MiningMark, Abyss, NOAbyss, AuburyText, RuneShopColor,
   RuneEssenceMined, PureEssenceMined, iMark, IdleMark, Doors: Integer;
   PortalBool, PouchBool, PouchBool2 : Boolean;

Procedure DeclarePlayers;

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

     Players[0].Name :='';
     Players[0].Pass :='';
     Players[0].Nick :='';
     Players[0].Loc :='Bank';
     Players[0].Active:=True;
     Players[0].Boolean1  := True;   // Is The Pick Equipped?
     Players[0].Boolean2 := False; // False for brightness Check Once.
     Players[0].String1 := '';   // Bank PIN, If any.

     Players[1].Name :='';
     Players[1].Pass :='';
     Players[1].Nick :='';
     Players[1].Loc :='Bank';
     Players[1].Active:=True;
     Players[1].Boolean1  := True;   // Is The Pick Equipped?
     Players[1].Boolean2 := False; // False for brightness Check Once.
     Players[1].String1 := '';   // Bank PIN, If any.

     Players[2].Name :='';
     Players[2].Pass :='';
     Players[2].Nick :='';
     Players[2].Loc :='Bank';
     Players[2].Active:=True;
     Players[2].Boolean1  := True;   // Is The Pick Equipped?
     Players[2].Boolean2 := False; // False for brightness Check Once.
     Players[2].String1 := '';   // Bank PIN, If any.

     Players[3].Name :='';
     Players[3].Pass :='';
     Players[3].Nick :='';
     Players[3].Loc :='Bank';
     Players[3].Active:=True;
     Players[3].Boolean1  := True;   // Is The Pick Equipped?
     Players[3].Boolean2 := False; // False for brightness Check Once.
     Players[0].String1 := '';   // Bank PIN, If any.

     Players[4].Name :='';
     Players[4].Pass :='';
     Players[4].Nick :='';
     Players[4].Loc :='Bank';
     Players[4].Active:=True;
     Players[4].Boolean1  := True;   // Is The Pick Equipped?
     Players[4].Boolean2 := False; // False for brightness Check Once.
     Players[4].String1 := '';   // Bank PIN, If any.

     Players[5].Name :='';
     Players[5].Pass :='';
     Players[5].Nick :='';
     Players[5].Loc :='Bank';
     Players[5].Active:=True;
     Players[5].Boolean1  := True;   // Is The Pick Equipped?
     Players[5].Boolean2 := False; // False for brightness Check Once.
     Players[5].String1 := '';   // Bank PIN, If any.

     Writeln( IntToStr ( NumberOfUsers ) + ' Players' );
  End;

Function HighestBrightNess: Boolean;

Begin
  GameTab(11);
  Wait(400);
  If GetColor(712, 226) <> 16777215 Then
  Begin
    Mouse(712, 226, 2, 2, True);
    Result := True;
    Wait(200);
  End;
End;

Function GetUpTextBlue:String;

Var
  iX, iY: Integer;
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 FindAuburyText: Boolean;  // FindTalk by Renax, but adepted.
var
  ExitCond, NoMoreYellow: Boolean;
  Yint, Xmin, diff, difflast, Xmax, XmidRec, Xmid: Integer;
  RawMenuText: string;
begin
  x := 0;
  y := 0;
  Xmid := 0;
  Xmin := 0;
  Xmax := 0;
  NoMoreYellow := False;
  if (FindColor(x, y, 65535, 10, 25, 511, 334)) and (not (FindColor(x, y, 65280, 220, 130, 290, 165))) then
  begin
    Result := False;
    if (not (FindBitmapMaskTolerance(AuburyText, x, y, 0, 0, 516, 338, 0, 40)))
      then
      Exit;
    if (FindColorSpiral(x, y, 65535, x - 10, y - 10, x + 10, y + 10)) then
    begin
      Wait(10);
      if (GetColor(x, y) = 65535) then
      begin
        If WizzyDebug Then WriteLn('Spotted aubury text');
        Wait(10);
        NoMoreYellow := False;
        Yint := 0;
        repeat
          Yint := Yint + 1;
          y := y + Yint;
          x := 0;
          repeat
            ExitCond := False;
            x := x + 1;
            Xmin := x;
            if (GetColor(x, y) = 65535) then
              ExitCond := True;
            if (x > 500) then
            begin
              x := 0;
              ExitCond := True;
              NoMoreYellow := True;
            end;
          until (ExitCond);
          ExitCond := False;
          x := 520;
          while (NoMoreYellow = False) and (ExitCond = False) do
          begin
            x := x - 1;
            Xmax := x;
            if (GetColor(x, y) = 65535) then
              ExitCond := True;
          end;
          diff := (Xmax - Xmin);
          if (diff > difflast) and (diff > 25) then
          begin
            XmidRec := ((diff / 2) + Xmin);
          end;
          difflast := diff;
        until (NoMoreYellow)
          x := XmidRec;
        MMouse(x, y + 6, 3, 0);
        Wait(100);
        if IsUpTextMulti('Talk', 'lk-to', 'to')  Then
        begin
          GetMousePos(x, y);
          Mouse(x, y + 6, 0, 0, False);
          if (ChooseOptionGetMenuText(RawMenuText, x, y, 'Teleport')) then
          begin
            If WizzyDebug Then WriteLn('Found Aubury')
            FFlag(1);
            Wait(1000 + Random(500))
            Result := True;
            Exit;
          end;
        end;
      end;
    end;
  end;
end;

Function AtMine: Boolean;

Var
  iX, iY: Integer;

Begin
  Result := FindColoredAreaTolerance(iX, iY, 0, MMX1, MMY1, MMX2, MMY2, 100, 0);
End;

Function ScanMiniMap(iFrom, iTo, Distance: Integer): Integer;

Var
   I, iX,iY: Integer;
Begin
  For I := iFrom To ITo Do
  Begin
    iX := Round(Distance * Sin(I * Pi / 180)) + 648;
    iY := Round(-Distance * Cos(I * Pi / 180)) + 80;
    If GetColor(iX, iY) = 0 Then
    Begin
      Result := Result + 1;
    End;
  End;
End;

Function InAbyss: Boolean;

Var
   A : Integer;

Begin
  A := ScanMiniMap(0, 359, 50);
  If WizzyDebug Then WriteLn('In Abyss gave '+IntToStr(A)+'.');
  If A = 360 Then
  Begin
    Result := True;
  End
End;

Function GuessAbyssRandom: Boolean;

Var
   AbyssalMark, iX, iY, I, ChosenColor, Tol, Tries: Integer;
   WeirdColors: Array [0..3] Of Integer;
   Operate: TPoint;
Begin
  WeirdColors[0] := 13751777;
  WeirdColors[1] := 4953873;
  WeirdColors[2] := 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(10);
      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(10);
          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;
  NOAbyss := NOAbyss + 1;
  ReportVars[9] := ReportVars[9] + 1;
  Players[CurrentPlayer].Loc := 'Abyss';
  SRLRandomsReport;
  WriteLn('Abyss Random Event.');
End;

Function GetPositionInMine: String;

Begin
  MakeCompass('N');
  If Not LoggedIn Then Exit;
  If Not FindSymbol(x, y, 'transportation') Then
  Begin
    Result := 'Middle';
    Exit;
  End;

  If ScanMiniMap(220, 240, 60) < 15 Then
  Begin
    Result := 'North-East';
    ReportVars[5] := ReportVars[5] + 1;
    EssencePoint[0].X := 340;
    EssencePoint[0].Y := 61;
    EssencePoint[1].X := 295;
    EssencePoint[1].Y := 50;
    EssencePoint[2].X := 395;
    EssencePoint[2].Y := 120;
    Exit;
  End;

  If ScanMiniMap(125,155, 60) < 20 Then
  Begin
    Result := 'North-West';
    ReportVars[6] := ReportVars[6] + 1;
    EssencePoint[0].X := 140;
    EssencePoint[0].Y := 115;
    EssencePoint[1].X := 18;
    EssencePoint[1].Y := 70;
    EssencePoint[2].X := 120;
    EssencePoint[2].Y := 150;
    Exit;
  End;

  If ScanMiniMap(290,330, 55) < 20 Then
  Begin
    Result := 'South-East';
    ReportVars[7] := ReportVars[7] + 1;
    EssencePoint[0].X := 350;
    EssencePoint[0].Y := 160;
    EssencePoint[1].X := 337;
    EssencePoint[1].Y := 210;
    EssencePoint[2].X := 362;
    EssencePoint[2].Y := 125;
    If (ScanMiniMap(140, 170, 55) <> 31) Then
      Exit;
  End;

  Result := 'South-West';
  ReportVars[2] := ReportVars[2] + 1;
  EssencePoint[0].X := 190;
  EssencePoint[0].Y := 60;
  EssencePoint[1].X := 146;
  EssencePoint[1].Y := 94;
  EssencePoint[2].X := 285;
  EssencePoint[2].Y := 54;

End;

Function GetMiddle:String;

Var
   Ex, Ey: Integer;
Begin
  If Not LoggedIn Then Exit;
  
  If ScanMiniMap(330, 380, 55) < 35 Then
  Begin
    Result := 'MiddleSW';
    ReportVars[4] := ReportVars[4] + 1;
    Ex := 605;
    Ey := 116;
    EssencePoint[0].X := 170;
    EssencePoint[0].Y := 240;
    EssencePoint[1].X := 190;
    EssencePoint[1].Y := 290;
    EssencePoint[2].X := 254;
    EssencePoint[2].Y := 274;
  End
  Else
  Begin
    Result := 'MiddleNE';
    ReportVars[3] := ReportVars[3] + 1;
    Ex := 690;
    Ey := 30;
    EssencePoint[0].X := 360;
    EssencePoint[0].Y := 40;
    EssencePoint[1].X := 450;
    EssencePoint[1].Y := 100;
    EssencePoint[2].X := 390;
    EssencePoint[2].Y := 30;
  End;
  Mouse(Ex, Ey, 2, 2, True);
  Wait(10);
  FFlag(0);
  Wait(100);
End;

Function FindEssence(Var iX, iY: Integer): Boolean;

Var
  I, Tolerance : Integer;
Begin
  If Not LoggedIn Then Exit;
  For I := 0 To 2 Do
  Begin
    Tolerance := - 1;
    While Tolerance < 10 Do
    Begin
      Tolerance := Tolerance + 1;
      iX := EssencePoint[I].X;
      iY := EssencePoint[I].Y;
      If FindColorSpiralTolerance(iX, iY, 9539996, MSX1, MSY1, MSX2, MSY2, Tolerance) Then
      Begin
        If Distance(iX, iY, EssencePoint[I].X, EssencePoint[I].Y) < 80 Then
        Begin
          MMouse(iX, iY, 0, 0);
          Wait(10);
          If IsUpTextBlue('ssen') Then
//          If IsUpTextMulti('Esse', 'une Es', 'ine') Then
          Begin
            GetMousePos(iX, iY);
            Result := True;
            If WizzyDebug Then WriteLn('Found Essence');
            Exit;
          End;
        End;
      End;
    End;
  End;
End;

Function ToPortal: Boolean;

Var
  iX, iY, C : Integer;
  Boolie : Boolean;
Begin
  If Not LoggedIn Then Exit;
  If FindSymbol(iX, iY, 'transportation') Then
  Begin
    Mouse(iX, iY, 2, 2, True);
    Wait(10);
    FFlag(0);
    FindNormalRandoms;
    iX := MSCX;
    iY := MSCY;
    Repeat
      If Random(4) = 3 Then
        Boolie := True;
      If Boolie Then
      Begin
        Case Random(3) Of
          0: MakeCompass('E');
          1: MakeCompass('S');
          2: MakeCompass('W');
        End;
      End;
      Wait(50);
      C := C + 1;
      If FindObj(iX, iY, 'rtal', 12051688, 9) Then
      Begin
        Mouse(iX, iY, 0, 0, True);
        Wait(10);
        Result := True;
        FFlag(0);
        If Boolie Then MakeCompass('N');
        Exit;
      End;
      Wait(1000);
    Until C > 2;
    If Boolie Then MakeCompass('N');
  End;
End;

Function RunToPortal: Boolean;

Begin
  MarkTime(iMark);
  Repeat
    If Not LoggedIn Then Break;
    If (TimeFromMark(iMark) > 120000) Then
    Begin
      If WizzyDebug Then WriteLn('Portal Took too long..logging');
      LogOut;
      Players[CurrentPlayer].Loc := 'Portal';
    End;
    If ToPortal Then
    Begin
      FFlag(0);
      Wait(6000);
    End
    Else Wait(100);
  Until Not AtMine;
  Result := True;
  PortalBool := True;
End;

Function OpenDoor : Boolean;

Var iX, iY,DoorClosed : Integer;

Begin
  DoorClosed := DTMFromString('78DA63FCCDC0C0309F01053426CB337001694' +
       '620FE0F048C6F808C7E5435E97E520CFC503520C0C80E644D4055' +
       '13E7218EAAE617A639E86A0097700CBE');
  If Not LoggedIn Then Exit;

  If FindDTM(DoorClosed, iX, iY, 140, 90, 425, 325) Then
  Begin
    MMouse(iX, iY, 2, 2);
    GetMousePos(iX, iY);
    If isUpText('pen') Then
      Mouse(iX, iY, 0,0, True);
    Result := True;
    If Result Then Doors := Doors + 1;
  End;
  FreeDTM(DoorClosed);
  If Result And WizzyDebug Then writeln('The door was closed, but now opened.')
  Else If WizzyDebug Then WriteLn('The door is open');
End;

Function ToBank: Boolean;

Var
   iX, iY, BankDTM, D, WalkMark, aMark : Integer;
   AngleVar : Extended;
Begin
  If Not LoggedIn Then Exit;
  SetRun(True);
  OpenDoor;
  Mouse(687, 30, 4, 4, True);
  Wait(100);
  MarkTime(aMark);
  Repeat
    If Not FlagPresent Then
    Begin
      OpenDoor;
      Mouse(687, 30, 4, 4, True);
      MarkTime(WalkMark)
      Repeat
        FindColorSpiral(iX, iY, RuneShopColor, MMX1, MMY1, MMX2, MMY2)
        D := Distance(iX, iY, MMCX, MMCY);
        Wait(100);
      Until ((D > 15) Or (TimeFromMark(WalkMark) > 8000));
    End
    Else Break;
    If TimeFromMark(aMark) > 120000 Then
    Begin
      WriteLn('ToBank took too long.. logging.');
      LogOut;
      Players[CurrentPlayer].Loc := 'ToBank2';
      Exit;
    End;
  Until D > 15;
  Wait(6000);
  FFlag(10);
  BankDTM:= DTMFromString('78DA636C666260486140016FDEBC61F80FA41' +
       '981F83F1030B603D5E4A0AA79FB96814103AA060418EB816AB251' +
       'D57CFD8AAA0600B6210EA4');

  If FindDTMRotated(BankDTM, iX, iY, MMX1, MMY1, MMX2, MMY2, -1.0, 2.0, 1, AngleVar) Then
  Begin
    Result := True;
    Mouse(iX, iY + 1, 0, 0, True);
    Wait(3000);
    FFlag(0);
  End
  Else
  Begin
    LogOut;
    Players[CurrentPlayer].Loc := 'ToBank2';
    WriteLn('Bank not found');
    Exit;
  End;
  FreeDTM(BankDTM);
  SetRun(False);
End;

Function FindAuburyFloorColor(Var iX, iY: Integer): Boolean;

Var
   Tol, Floor3 : Integer;
Begin
  If Not LoggedIn Then Exit;
  Floor3 := BitmapFromString(3, 3, 'z78DA3377333735B1302791' +
       '04004AD80BFE');

  If FindColoredAreaTolerance(iX, iY, RuneShopColor, MMX1, MMY1, MMX2, MMY2, 16, 9) Then
  Begin
    RuneShopColor := GetColor(iX , iY);
    If WizzyDebug Then WriteLn('RuneShopColor = '+IntToStr(RuneShopColor));
    If WIzzyDebug Then WriteLn('Found with FindColoredAreaTolerance.');
    Result := True;
  End;
  Tol := 0;
  Repeat
    Wait(10);
    If Result Then Break;
    Tol := Tol + 2;
    iX := 618;
    iY := 127;
    If FindBitMapSpiralTolerance(Floor3, iX, iY, MMX1, MMY1, 650, 150, Tol) Then
    Begin
      RuneShopColor := GetColor(iX , iY);
      If WizzyDebug Then WriteLn('RuneShopColor = '+IntToStr(RuneShopColor));
      If WizzyDebug Then WriteLn('Found with Floor3 bmp.');
      Result := True;
      Break;
    End;
  Until Tol > 39;
  FreeBitMap(Floor3);
End;

Function ToDoor: Boolean;

Var
  iX, iY: Integer;

Begin
  If FindColorRightTol(iX, iY, RuneShopColor, MMX1, MMY1, MMX2, MMY2, 0) Then
  Begin
    If WizzyDebug Then WriteLn('Door found');
    Result := True;
    Mouse(iX - 8, iY + 20, 0, 0, True);
    FFlag(0);
  End;
End;

Function SpotAubury: Boolean;
                                    // 10855856, 3005947, 2998011
Var
  iX, iY, C: Integer;

Begin
  Repeat
    CloseWindow;
    Wait(50);
    If FindAuburyText Then
    Begin
      Result := True;
      Break;
    End;
    iX := MSCX;
    iY := MSCY;
    If AtMine Then
    Begin
      Result := True;
      Exit;
    End;
    If FindColorSpiralTolerance(iX, iY, 2998011, MSX1, MSY1, MSX2, MSY2, 4)
    Or FindColorSpiralTolerance(iX, iY, 1888494, MSX1, MSY1, MSX2, MSY2, 4) Then
    Begin
      MMouse(iX, iY, 0, 0);
      Wait(10);
      If IsupTextMulti('Talk','bury','alk-to') Then
      Begin
        Mouse(iX, iY, 0, 0, False);
        Result := ChooseOption(iX, iY, 'eleport');
        If Result Then Exit;
      End;
    End;
    C := C + 1;
  Until C > 5;
  Wait(500);

  If Not LoggedIn Then Exit;
End;

Function PreciseFlag(Var iX, iY: Integer):Boolean;

Begin
  Result := FindColor(iX, iY, 255, 570, 5, 735, 166);
  If Result Then iX := iX + 1;
  If Result Then iY := iY + 14;
End;

Function ColorAroundFlag(iX, iY: Integer) : Boolean;

Begin
  Result := FindColorSpiral(iX, iY, RuneShopColor, iX - 2, iY - 2, iX + 2, iY + 2)
End;

Function ToMine: Boolean;

Var
  iX, iY, D, zMark : Integer;
Begin

  If Not Players[CurrentPlayer].Boolean2 Then
  Begin
    HighestBrightness;
    Players[CurrentPlayer].Boolean2 := True;
  End;
  If Not LoggedIn Then Exit;
  FindPickHeadColor;
  Mouse(663, 142, 6, 6, True);
  Wait(15000+Random(4000));
  FFlag(5);

  If FindAuburyFloorColor(iX, iY) Then
    Begin
      If WizzyDebug Then WriteLn('Exact Color Found');
    End
    Else
    Begin
      LogOut;
      WriteLn('Could not get the exact color.'+ Chr(13)+
       'Wizzup, you should tweak your functions!');
       Players[CurrentPlayer].Loc := 'NoColor';
    End;

  FindColorSpiral(iX, iY, RuneShopColor, MMX1, MMY1, MMX2, MMY2);
  D := Distance(iX, iY, MMCX, MMCY);
  If WizzyDebug Then WriteLn('Distance = '+IntToStr(D));

  If D > 15 Then
  Begin
    iX := MMCX;
    iY := MMCY;
    If FindColorSpiral2(iX, iY, RuneShopColor, MMX1, MMY1, MMX2, MMY2) Then
    Begin
      Mouse(iX, iY, 0, 0, True);
      If PreciseFlag(iX, iY) Then
      Begin
        If ColorAroundFlag(iX, iY) Then
        Begin
          If WizzyDebug Then WriteLn('Walking INTO the shop now...');
        End;
      End;
      FFlag(0);
    End;
  End;

  iX := MMCX;
  iY := MMCY;
  FindColorSpiral(iX, iY, RuneShopColor, MMX1, MMY1, MMX2, MMY2)

  If Distance(iX, iY, MMCX, MMCY) > 10 Then
  Begin
    ToDoor;
    OpenDoor;
    If FindColorSpiral2(iX, iY, RuneShopColor, MMX1, MMY1, MMX2, MMY2) Then
    Begin
      Mouse(iX, iY, 0, 0, True);
      If PreciseFlag(iX, iY) Then
      Begin
        If ColorAroundFlag(iX, iY) Then
        Begin
          If WizzyDebug Then WriteLn('Walking INTO the shop now...');
        End;
      End;
      FFlag(0);
    End;
  End;

  If Random(10) = 9 Then BoredHuman;

  MarkTime(zMark);
  Repeat
    FindNormalRandoms;
    If (TimeFromMark(zMark) > 240000) Then
    Begin
      WriteLn('Aubury Took too long..logging');
      LogOut;
      Players[CurrentPlayer].Loc := 'Aubury';
    End;

    If SpotAubury Then
    Begin
      FFlag(0);
      Wait(4000);
    End
    Else
    Begin
      Wait(100);
      ChooseOption(iX, iY, 'ancel');
    End;
    
    If Not LoggedIn Then Break;
  Until AtMine;

  Result := True;
  If LoggedIn Then Players[CurrentPlayer].Loc := 'Mine';
End;

Function MyOpenBank: Boolean;

Begin
  OpenBankGlass('veb',False,False);
  FFlag(0);
  Wait(2000);
  If BankScreen Or PinScreen Then
  Begin
    Result := True;
    If PinScreen Then InPin(Players[CurrentPlayer].String1);
    Exit;
  End;
  If OpenBankQuiet('veb') Then Result := True;
  If PinScreen Then InPin(Players[CurrentPlayer].String1);
End;

Function BankStuff: Boolean;

Var
  RuneEss, PureEss: Integer;
Begin
  If Not BankScreen Then Exit;
  RuneEss := BitmapFromString(8, 12, 'z78DA8DCD3112C3200C44D1' +
       '2BE1B02B9B1288B9FF91222315149107EFCCAFF4B08037BB584F0' +
       'E0E6F9143D724EBAC5F79BE0F1BABF7DDCEB25374B3925858BCC1' +
       '3BBC78E82AA1DBB07EBFAAC8DA3D3130BC1B8A191DFD8F8A6C424' +
       '57515D945E1C685D35564973FA23DD4D48ED5ABACDB560092CED4' +
       'BB9DF73F7ACE7D1F');
  PureEss := BitmapFromString(11, 10, 'z78DAA5CF490E03211003C' +
       '02FB1B56D8E0CCBFF9F1492CC012962B2B5251F4B6E451616192B' +
       'ABC8CEA62CC771F6A120AFA638D39594B213841C342F27151536A' +
       '6994110F214A59DB9D1783032FCE39018E8CCF474BF693434B48F' +
       '9C555B1CBAF98A185050BED0963DE8B8DFA3DF689BEF90E1670EA' +
       '4994F9C65D5D38159B736596763AB5D3A362C5B46B46AF5D4AE57' +
       'BD3837C02891A6');
//  FixBank;
  RuneEssenceMined := RuneEssenceMined + CountItemBmpTol(RuneEss, 15);
  PureEssenceMined := PureEssenceMined + CountItemBmpTol(PureEss, 15);
  ReportVars[1] := ReportVars[1] + 1;
  ReportVars[0] := CountItemBmpTol(RuneEss, 15) + CountItemBmpTol(PureEss, 15);
  Players[CurrentPlayer].Integer1 := Players[CurrentPlayer].Integer1 + CountItemBmpTol(PureEss, 15) + CountItemBmpTol(RuneEss, 15);
  ClickAllItemsBmpTolWait('All', RuneEss, 15, 1500);
  ClickAllItemsBmpTolWait('All', PureEss, 15, 1500);
  If EquipPick Then Deposit(1, 28, 2)
  Else Deposit(2, 28, 2);
  FreeBitMap(RuneEss);
  FreeBitMap(PureEss);
  If BankScreen Then CloseBank;
  Players[CurrentPlayer].Banked := Players[CurrentPlayer].Banked + 1;
  Banks := Banks + 1;
  Result := True;
End;

Procedure PlayerReport;

Var
  Active: String;
  I:Integer;

Begin
  For I  :=  0 to HowManyPlayers - 1 Do
   Begin
     If Players[i].Active=True Then Active := 'T' Else Active := 'F';
     WriteLn( (IntToStr(I))+' : '+Players[I].nick+ ' = '+
     Active+ +'; Loc = '+Players[I].Loc+'; Banked: '+IntToStr(Players[I].Integer1)
     +' Ess; M lvl:'+IntToStr(Players[i].Level[15]));
   End;
End;

Procedure CurrentPlayerReport;

Begin
  WriteLn('----------------------------------------------')
  WriteLn(Players[CurrentPlayer].Name+'.');
  WriteLn('Mined ' + IntToStr(Players[CurrentPlayer].Integer1) + ' Essence.');
  WriteLn('Mining level is ' + IntToStr(Players[CurrentPlayer].Level[15]));
  WriteLn('Location is ' + Players[CurrentPlayer].Loc+ '.');
  WriteLn('----------------------------------------------')
End;

Procedure ProgressReport;

Begin
  WriteLn('----------------------------------------------')
  WriteLn('')
  WriteLn('Essence Miner by Wizzup?.')
  WriteLn('Version: '+VersionNumber)
  WriteLn('')
  If RuneEssenceMined > 0 Then WriteLn('Rune Essence Mined and Banked : '+IntToStr(RuneEssenceMined)+'.');
  If PureEssenceMined > 0 Then WriteLn('Pure Essence Mined and Banked : '+IntToStr(PureEssenceMined)+'.');
  If Abyss > 0 Then WriteLn('Solved '+IntToStr(Abyss)+' Abyssal Random Events.');
  If NOAbyss > 0 Then WriteLn('Missed '+IntToStr(NoAbyss)+' Abyssal Random Events.');
  If Doors > 0 Then WriteLn('Door Opened : '+IntToStr(Doors)+'.');
  Writeln('Worked for '+ TimeRunning);
  WriteLn('')
  WriteLn('----------------------------------------------')
  WriteLn('')
  PlayerReport;
  CurrentPlayerReport;
  SRLRandomsReport;
  WriteLn('')
  WriteLn('----------------------------------------------')
End;

Procedure ClearVars;

Var
  I : Integer;
Begin
  For I := 1 To 19 Do
  ReportVars[I] := 0;
End;

Procedure DoChats;

Begin
  SetChat('On', 1);
  SetChat('On', 1);
  SetChat('Friends', 2);
  SetChat('Friends', 2);
  SetChat('On', 3);
  SetChat('On', 3);
End;

Procedure SetupScript;

Begin
  ClearDebug;
  SetupSRL;
  SetupSRLMining;
  DeclarePlayers;
  RuneShopColor := 4551800; // Temp.
  Rcmaster := YourRCMASTER;
  RcLoc := 'Bank';
  ScriptID := '51';
  ClearVars;
  SRLID := YourSRLstatsID;
  SRLPassword := YourSRLstatsPASS;
  CurrentPlayer := StartPlayer;
  If FirstWorld Then LoginPlayer;
  If FirstWorld Then Wait(1000);
  If FirstWorld Then LogOut;
  If FirstWorld Then Wait(1000);
  LoginPlayer;
  Wait(1000);
  DoChats;
  EquipPick := Players[CurrentPlayer].Boolean1;
  AuburyText := CreateBitmapMaskFromText('isthine', upchars);
  BenMouse := True;
  GetAllLevels;
End;

begin
  ActivateClient;
  SetupScript;
  Repeat
    MakeCompass('N');
    If Players[CurrentPlayer].Loc = 'Bank' Then
    Begin
      ToMine;
    End;

    If Players[CurrentPlayer].Loc = 'Mine' Then
    Begin
      Wait(500);
      If InAbyss Then
      Begin
        GuessAbyssRandom;
        BoredHuman;
      End;
      Wait(1000);
      FindNormalRandoms;
      SymbolAccuracy := 0.4;
      Position := GetPositionInMine;
      If Position = 'Middle' Then Position := GetMiddle;
      WriteLn('Our position is '+ Position+'.');
      
      Wait(1000);
      If FindEssence(X, Y) Then
      Begin
        Mouse(X, Y, 0, 0, True);
        Wait(10);
        FFlag(0);
      End
      Else
      Begin
        RunToPortal;
      End;
      Wait(1000);
      MarkTime(IdleMark);
      MarkTime(MiningMark);
      Repeat
        If Not LoggedIn Then Break;
        If PortalBool Then Break;
        If TimeFromMark(IdleMark) > (65000+Random(5000)) Then
        Begin
          BoredHuman;
          MarkTime(IdleMark);
        End;
        Wait(400);
        If FindNormalRandoms Then
          RunToPortal;
        Wait(400);
        RC;
        Wait(400);
        ClickToContinue;
        If FindFight Then
        Begin
          RunToPortal;
          Break;
        End;
        Wait(1);
      Until ((InvFull) Or (TimeFromMark(MiningMark) > 1000 * 60 * MinutesPerLoad));
      If Not PortalBool Then
      Begin
        MarkTime(iMark);
        Repeat
          If Not LoggedIn Then Break;
          If (TimeFromMark(iMark) > 120000) Then
          Begin
            WriteLn('Portal Took too long..logging');
            LogOut;
            Players[CurrentPlayer].Loc := 'Portal';
          End;
          If ToPortal Then
          Begin
            FFlag(0);
            Wait(3000);
          End
          Else Wait(100);
        Until Not AtMine;
      End
      WriteLn('Through The portal');
      SymbolAccuracy := 0.8;
      PortalBool := False;
      Wait(500);
      ToBank;
      MyOpenBank;
      BankStuff;
      If LoggedIn Then Players[CurrentPlayer].Loc := 'Bank';
    End;
    ProgressReport;
    If ( LoggedIn And (Players[CurrentPlayer].Banked Mod Loads = 0 )) Then
    Begin
      DoChats;
      LogOut;
      Wait(1000);
      NextPlayer(True);
      EquipPick := Players[CurrentPlayer].Boolean1;
      FindPickHeadColor;
      GetAllLevels;
    End;

    If Not LoggedIn Then
    Begin
      DoChats;
      NextPlayer(False);
      EquipPick := Players[CurrentPlayer].Boolean1;
      FindPickHeadColor;
      GetAllLevels;
    End;
  Until False;
end.

This question isnt about the script but the game. Sometimes I see my charcters holding noted essence. Where does it come from? Event? If so which.

This is my proggrie. Sucks cause it was a few players.

Essence Miner by Wizzup?.
Version: 1.08

Rune Essence Mined and Banked : 915.
Solved 3 Abyssal Random Events.
Worked for 3 Hours, 20 Minutes and 47 Seconds

———————————————-

0 : = F; Loc = ScapeRune; Banked: 108 Ess; M lvl:41
1 : = T; Loc = Mine; Banked: 807 Ess; M lvl:29
———————————————-
Mined 807 Essence.
Mining level is 29
Location is Mine.
———————————————-

From: Itzkirby
This question isnt about the script but the game. Sometimes I see my charcters holding noted essence. Where does it come from? Event? If so which.

the teleportation matrix. if you solve it, it gives you some noted essence

what is rcm?? i dont kno what i means by my remote control master..help plz

RC

guys can u send me the text wat i copy to get the auto??? i really weanna make millions and get thoughs of ess in 1 nite..>!

From: mcnab
guys can u send me the text wat i copy to get the auto??? i really weanna make millions and get thoughs of ess in 1 nite..>!

then go away, u arent getting it here…

nvm fixed

hey wizzup one flaw ive noticed that occurs repeatdly for me is- i get my player report back and alot of em are Active:=F Loc:tobank; and this is caused most likely by by noobs closing the rune store door. ive watched when some1 closed the door and it thouhg it was open then it clicked north thought it was bank and mouse moved around looking for bank booth, i think if this was fixed it would last a LOT longer . =]

Sorry if this is redundant, but I didn't really feel like reading through 17 pages of replies…before you jump all over me, I did read the first 5…. So I'm sorry in advance.

Sometimes, I get a problem where my guy gets stuck between the bank and the rune store, just northeast of the rune store, and the debug just says "found aubury text" a lot of times…any ideas on what may be causing this?

EDIT: Hmm…just occured to me, might this be because I am running it on High Detail?

We have a winner! Ding ding ding:

———————————————-

Essence Miner by Wizzup?.
Version: 1.08

Rune Essence Mined and Banked : 297.
Worked for 39 Minutes and 5 Seconds

———————————————-

0 : rago = T; Loc = Bank; Banked: 297 Ess; M lvl:36
———————————————-

Mined 297 Essence.
Mining level is 36
Location is Bank.
———————————————-

———————————————-

You totally own dude!

Ausome script Wizzup?.. ill try and get a good proggie, last time scar died on me before i could get it.

nice

just a short proggress report…it worked great! got a me a mining lvl and 548ess in one hour :o i just got 31 mining when i started it so not bad,i had to change the settings after like 4 trips cuz it wouldnt go staight to bank.
a bug that i found was it click to go to the bank but it didnt make it to the bank and store ess, it just click towards bank and after like not even a second it clicked back to the mage shop icon, but i changed a setting in this line,
FindColorSpiral(iX, iY, RuneShopColor, MMX1, MMY1, MMX2, MMY2)
D := Distance(iX, iY, MMCX, MMCY);
Wait(5000);
I think it was that…but it waid Wait(100) and i changed it to (5000) and then it worked perfect! Sorry if this is already posted somewhere… new to forum :p


———————————————-

Essence Miner by Wizzup?.
Version: 1.08

Rune Essence Mined and Banked : 432.
Worked for 59 Minutes and 56 Seconds

———————————————-

the only thing i found was that when starting the the left (west) most bank slot, it click to the north west on the way to the rune shop. fixed it by starting in the one on the right :P.

From: ss23
the only thing i found was that when starting the the left (west) most bank slot, it click to the north west on the way to the rune shop. fixed it by starting in the one on the right :P.

Thanks! This is usefull info. So a longer wait .. hmm.. thanks

Whenever it switches players, it waits for it to auto log out THEN logs onto the next character - is this supposed to happen?
Also, it has to wait for the first character to auto log out THEN start mining.
If this is supposed to happen, then nevermind the question, but if it isn't, why is it happening?

From: takeNout
Whenever it switches players, it waits for it to auto log out THEN logs onto the next character - is this supposed to happen?
Also, it has to wait for the first character to auto log out THEN start mining.
If this is supposed to happen, then nevermind the question, but if it isn't, why is it happening?

If you are reffering to auto logout when it's done, yes that is normal.
Auto Logout in mine is not, next version will have anti logout.

Anyway, I am going to get a long report. :p

Totally cool wizzup? ! Works great for me, apart from when i had to stop and world hop cus of a door closing n00b :D still, awesome stuff man, thnx

Nice script, got a report:

Essence Miner by Wizzup?.
Version: 1.08

Rune Essence Mined and Banked : 380.
Worked for 46 Minutes and 52 Seconds

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

0 : *** = T; Loc = Bank; Banked: 380 Ess; M lvl:48
----------------------------------------------
*****.
Mined 380 Essence.
Mining level is 48 //Now its 49, tnx to this script
Location is Bank.
----------------------------------------------

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

Only one problem, the timeout problem while mining ess. Fixed it by using a addy pickaxe instead of steel.
Gotta love this script :p. It could have run a little longer but I decided to stop it manually.

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

Essence Miner by Wizzup?.
Version: 1.08

Rune Essence Mined and Banked : 4036.
Solved 7 Abyssal Random Events.
Missed 1 Abyssal Random Events.
Worked for 9 Hours, 18 Minutes and 35 Seconds

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

0 : ncom = T; Loc = Bank; Banked: 559 Ess; M lvl:39
1 : eeld = T; Loc = Bank; Banked: 587 Ess; M lvl:34
2 : maum = T; Loc = Bank; Banked: 558 Ess; M lvl:37
3 : ynjr = T; Loc = Bank; Banked: 620 Ess; M lvl:36
4 : bany = F; Loc = Abyss; Banked: 112 Ess; M lvl:32
5 : ldch = T; Loc = Bank; Banked: 593 Ess; M lvl:32
6 : dopo = T; Loc = Bank; Banked: 560 Ess; M lvl:34
7 : erta = T; Loc = Bank; Banked: 447 Ess; M lvl:27
----------------------------------------------

Awesome man, it probably could of gone much longer but I wanted to get on :spot:

i got a problem i thought it goes back and forth like from player a to player b and goes back to player a? or it doesnt ? Im confused cuz from an earlier post i thought it does…? cuz i wanted to switch back and fourth like every 30 mins to aviod randoms better =)

the miner seems to stop with 8 slots left in the inventory, then logs out and changed player. Any reason for this?

 
Rune Essence Mined and Banked : 5001.
Solved 7 Abyssal Random Events.
Missed 1 Abyssal Random Events.
Door Opened : 3.
Worked for 11 Hours, 6 Minutes and 32 Seconds

very nice!

My players always get stuck either on "tobank" or "aubury" alot.. prolly cuz noobs close door as i posted on a couple of posts up well heres the player report- the o dear u are in lumby is wrong.. i was alive in the essence place. –.–

 
0 : @@@ = F; Loc = Aubury; Banked: 0 Ess; M lvl:47
1 : r@@ = F; Loc = Oh Dear You Are in Lumby; Banked: 916 Ess; M lvl:44
2 : @@@ = F; Loc = ScapeRune; Banked: 81 Ess; M lvl:38
3 : @@@ = F; Loc = ScapeRune; Banked: 540 Ess; M lvl:43
4 : @@@ = F; Loc = Oh Dear You Are in Lumby; Banked: 269 Ess; M lvl:36
5 : @@@ = F; Loc = ToBank2; Banked: 795 Ess; M lvl:41
6 : @@@ = F; Loc = Bank; Banked: 195 Ess; M lvl:54
7 : @@@ = T; Loc = Abyss; Banked: 2205 Ess; M lvl:32

program EssMiner;
{.include SRL/SRL.scar}
{.include SRL/SRL/Skill/Mining.scar}

{
"Stars, Hide your fires, Let not light see my black and deep desires.
The eye wink at the hand; Yet let that be, Which the eye fears when it
is done to see"
               Macbeth - Shakespeare
}


Const
   FirstWorld = False;
   //  IF you first loaded a
   // world and are too lazy to logout once.
   StartPlayer = 0;
   NumberOfUsers = 6;
   MinutesPerLoad = 5;
   Loads = 10000;
   VersionNumber = '1.08';
   YourSRLSTATSID   = '';  // Stats ID.
   YourSRLSTATSPASS = ''; // Stats Pass.
   YourRCMASTER      = ''; // Remote Control Master.
   WizzyDebug = True;

Var
   Position : String;
   EssencePoint : Array [0..4] Of TPoint;
   MiningMark, Abyss, NOAbyss, AuburyText, RuneShopColor,
   RuneEssenceMined, PureEssenceMined, iMark, IdleMark, Doors: Integer;
   PortalBool, PouchBool, PouchBool2 : Boolean;

Procedure DeclarePlayers;

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

     Players[0].Name :='';
     Players[0].Pass :='';
     Players[0].Nick :='';
     Players[0].Loc :='Bank';
     Players[0].Active:=True;
     Players[0].Boolean1  := True;   // Is The Pick Equipped?
     Players[0].Boolean2 := False; // False for brightness Check Once.
     Players[0].String1 := '';   // Bank PIN, If any.

     Players[1].Name :='';
     Players[1].Pass :='';
     Players[1].Nick :='';
     Players[1].Loc :='Bank';
     Players[1].Active:=True;
     Players[1].Boolean1  := True;   // Is The Pick Equipped?
     Players[1].Boolean2 := False; // False for brightness Check Once.
     Players[1].String1 := '';   // Bank PIN, If any.

     Players[2].Name :='';
     Players[2].Pass :='';
     Players[2].Nick :='';
     Players[2].Loc :='Bank';
     Players[2].Active:=True;
     Players[2].Boolean1  := True;   // Is The Pick Equipped?
     Players[2].Boolean2 := False; // False for brightness Check Once.
     Players[2].String1 := '';   // Bank PIN, If any.

     Players[3].Name :='';
     Players[3].Pass :='';
     Players[3].Nick :='';
     Players[3].Loc :='Bank';
     Players[3].Active:=True;
     Players[3].Boolean1  := True;   // Is The Pick Equipped?
     Players[3].Boolean2 := False; // False for brightness Check Once.
     Players[0].String1 := '';   // Bank PIN, If any.

     Players[4].Name :='';
     Players[4].Pass :='';
     Players[4].Nick :='';
     Players[4].Loc :='Bank';
     Players[4].Active:=True;
     Players[4].Boolean1  := True;   // Is The Pick Equipped?
     Players[4].Boolean2 := False; // False for brightness Check Once.
     Players[4].String1 := '';   // Bank PIN, If any.

     Players[5].Name :='';
     Players[5].Pass :='';
     Players[5].Nick :='';
     Players[5].Loc :='Bank';
     Players[5].Active:=True;
     Players[5].Boolean1  := True;   // Is The Pick Equipped?
     Players[5].Boolean2 := False; // False for brightness Check Once.
     Players[5].String1 := '';   // Bank PIN, If any.

     Writeln( IntToStr ( NumberOfUsers ) + ' Players' );
  End;

Function HighestBrightNess: Boolean;

Begin
  GameTab(11);
  Wait(400);
  If GetColor(712, 226) <> 16777215 Then
  Begin
    Mouse(712, 226, 2, 2, True);
    Result := True;
    Wait(200);
  End;
End;

Function GetUpTextBlue:String;

Var
  iX, iY: Integer;
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 FindAuburyText: Boolean;  // FindTalk by Renax, but adepted.
var
  ExitCond, NoMoreYellow: Boolean;
  Yint, Xmin, diff, difflast, Xmax, XmidRec, Xmid: Integer;
  RawMenuText: string;
begin
  x := 0;
  y := 0;
  Xmid := 0;
  Xmin := 0;
  Xmax := 0;
  NoMoreYellow := False;
  if (FindColor(x, y, 65535, 10, 25, 511, 334)) and (not (FindColor(x, y, 65280, 220, 130, 290, 165))) then
  begin
    Result := False;
    if (not (FindBitmapMaskTolerance(AuburyText, x, y, 0, 0, 516, 338, 0, 40)))
      then
      Exit;
    if (FindColorSpiral(x, y, 65535, x - 10, y - 10, x + 10, y + 10)) then
    begin
      Wait(10);
      if (GetColor(x, y) = 65535) then
      begin
        If WizzyDebug Then WriteLn('Spotted aubury text');
        Wait(10);
        NoMoreYellow := False;
        Yint := 0;
        repeat
          Yint := Yint + 1;
          y := y + Yint;
          x := 0;
          repeat
            ExitCond := False;
            x := x + 1;
            Xmin := x;
            if (GetColor(x, y) = 65535) then
              ExitCond := True;
            if (x > 500) then
            begin
              x := 0;
              ExitCond := True;
              NoMoreYellow := True;
            end;
          until (ExitCond);
          ExitCond := False;
          x := 520;
          while (NoMoreYellow = False) and (ExitCond = False) do
          begin
            x := x - 1;
            Xmax := x;
            if (GetColor(x, y) = 65535) then
              ExitCond := True;
          end;
          diff := (Xmax - Xmin);
          if (diff > difflast) and (diff > 25) then
          begin
            XmidRec := ((diff / 2) + Xmin);
          end;
          difflast := diff;
        until (NoMoreYellow)
          x := XmidRec;
        MMouse(x, y + 6, 3, 0);
        Wait(100);
        if IsUpTextMulti('Talk', 'lk-to', 'to')  Then
        begin
          GetMousePos(x, y);
          Mouse(x, y + 6, 0, 0, False);
          if (ChooseOptionGetMenuText(RawMenuText, x, y, 'Teleport')) then
          begin
            If WizzyDebug Then WriteLn('Found Aubury')
            FFlag(1);
            Wait(1000 + Random(500))
            Result := True;
            Exit;
          end;
        end;
      end;
    end;
  end;
end;

Function AtMine: Boolean;

Var
  iX, iY: Integer;

Begin
  Result := FindColoredAreaTolerance(iX, iY, 0, MMX1, MMY1, MMX2, MMY2, 100, 0);
End;

Function ScanMiniMap(iFrom, iTo, Distance: Integer): Integer;

Var
   I, iX,iY: Integer;
Begin
  For I := iFrom To ITo Do
  Begin
    iX := Round(Distance * Sin(I * Pi / 180)) + 648;
    iY := Round(-Distance * Cos(I * Pi / 180)) + 80;
    If GetColor(iX, iY) = 0 Then
    Begin
      Result := Result + 1;
    End;
  End;
End;

Function InAbyss: Boolean;

Var
   A : Integer;

Begin
  A := ScanMiniMap(0, 359, 50);
  If WizzyDebug Then WriteLn('In Abyss gave '+IntToStr(A)+'.');
  If A = 360 Then
  Begin
    Result := True;
  End
End;

Function GuessAbyssRandom: Boolean;

Var
   AbyssalMark, iX, iY, I, ChosenColor, Tol, Tries: Integer;
   WeirdColors: Array [0..3] Of Integer;
   Operate: TPoint;
Begin
  WeirdColors[0] := 13751777;
  WeirdColors[1] := 4953873;
  WeirdColors[2] := 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(10);
      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(10);
          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;
  NOAbyss := NOAbyss + 1;
  ReportVars[9] := ReportVars[9] + 1;
  Players[CurrentPlayer].Loc := 'Abyss';
  SRLRandomsReport;
  WriteLn('Abyss Random Event.');
End;

Function GetPositionInMine: String;

Begin
  MakeCompass('N');
  If Not LoggedIn Then Exit;
  If Not FindSymbol(x, y, 'transportation') Then
  Begin
    Result := 'Middle';
    Exit;
  End;

  If ScanMiniMap(220, 240, 60) < 15 Then
  Begin
    Result := 'North-East';
    ReportVars[5] := ReportVars[5] + 1;
    EssencePoint[0].X := 340;
    EssencePoint[0].Y := 61;
    EssencePoint[1].X := 295;
    EssencePoint[1].Y := 50;
    EssencePoint[2].X := 395;
    EssencePoint[2].Y := 120;
    Exit;
  End;

  If ScanMiniMap(125,155, 60) < 20 Then
  Begin
    Result := 'North-West';
    ReportVars[6] := ReportVars[6] + 1;
    EssencePoint[0].X := 140;
    EssencePoint[0].Y := 115;
    EssencePoint[1].X := 18;
    EssencePoint[1].Y := 70;
    EssencePoint[2].X := 120;
    EssencePoint[2].Y := 150;
    Exit;
  End;

  If ScanMiniMap(290,330, 55) < 20 Then
  Begin
    Result := 'South-East';
    ReportVars[7] := ReportVars[7] + 1;
    EssencePoint[0].X := 350;
    EssencePoint[0].Y := 160;
    EssencePoint[1].X := 337;
    EssencePoint[1].Y := 210;
    EssencePoint[2].X := 362;
    EssencePoint[2].Y := 125;
    If (ScanMiniMap(140, 170, 55) <> 31) Then
      Exit;
  End;

  Result := 'South-West';
  ReportVars[2] := ReportVars[2] + 1;
  EssencePoint[0].X := 190;
  EssencePoint[0].Y := 60;
  EssencePoint[1].X := 146;
  EssencePoint[1].Y := 94;
  EssencePoint[2].X := 285;
  EssencePoint[2].Y := 54;

End;

Function GetMiddle:String;

Var
   Ex, Ey: Integer;
Begin
  If Not LoggedIn Then Exit;
  
  If ScanMiniMap(330, 380, 55) < 35 Then
  Begin
    Result := 'MiddleSW';
    ReportVars[4] := ReportVars[4] + 1;
    Ex := 605;
    Ey := 116;
    EssencePoint[0].X := 170;
    EssencePoint[0].Y := 240;
    EssencePoint[1].X := 190;
    EssencePoint[1].Y := 290;
    EssencePoint[2].X := 254;
    EssencePoint[2].Y := 274;
  End
  Else
  Begin
    Result := 'MiddleNE';
    ReportVars[3] := ReportVars[3] + 1;
    Ex := 690;
    Ey := 30;
    EssencePoint[0].X := 360;
    EssencePoint[0].Y := 40;
    EssencePoint[1].X := 450;
    EssencePoint[1].Y := 100;
    EssencePoint[2].X := 390;
    EssencePoint[2].Y := 30;
  End;
  Mouse(Ex, Ey, 2, 2, True);
  Wait(10);
  FFlag(0);
  Wait(100);
End;

Function FindEssence(Var iX, iY: Integer): Boolean;

Var
  I, Tolerance : Integer;
Begin
  If Not LoggedIn Then Exit;
  For I := 0 To 2 Do
  Begin
    Tolerance := - 1;
    While Tolerance < 10 Do
    Begin
      Tolerance := Tolerance + 1;
      iX := EssencePoint[I].X;
      iY := EssencePoint[I].Y;
      If FindColorSpiralTolerance(iX, iY, 9539996, MSX1, MSY1, MSX2, MSY2, Tolerance) Then
      Begin
        If Distance(iX, iY, EssencePoint[I].X, EssencePoint[I].Y) < 80 Then
        Begin
          MMouse(iX, iY, 0, 0);
          Wait(10);
          If IsUpTextBlue('ssen') Then
//          If IsUpTextMulti('Esse', 'une Es', 'ine') Then
          Begin
            GetMousePos(iX, iY);
            Result := True;
            If WizzyDebug Then WriteLn('Found Essence');
            Exit;
          End;
        End;
      End;
    End;
  End;
End;

Function ToPortal: Boolean;

Var
  iX, iY, C : Integer;
  Boolie : Boolean;
Begin
  If Not LoggedIn Then Exit;
  If FindSymbol(iX, iY, 'transportation') Then
  Begin
    Mouse(iX, iY, 2, 2, True);
    Wait(10);
    FFlag(0);
    FindNormalRandoms;
    iX := MSCX;
    iY := MSCY;
    Repeat
      If Random(4) = 3 Then
        Boolie := True;
      If Boolie Then
      Begin
        Case Random(3) Of
          0: MakeCompass('E');
          1: MakeCompass('S');
          2: MakeCompass('W');
        End;
      End;
      Wait(50);
      C := C + 1;
      If FindObj(iX, iY, 'rtal', 12051688, 9) Then
      Begin
        Mouse(iX, iY, 0, 0, True);
        Wait(10);
        Result := True;
        FFlag(0);
        If Boolie Then MakeCompass('N');
        Exit;
      End;
      Wait(1000);
    Until C > 2;
    If Boolie Then MakeCompass('N');
  End;
End;

Function RunToPortal: Boolean;

Begin
  MarkTime(iMark);
  Repeat
    If Not LoggedIn Then Break;
    If (TimeFromMark(iMark) > 120000) Then
    Begin
      If WizzyDebug Then WriteLn('Portal Took too long..logging');
      LogOut;
      Players[CurrentPlayer].Loc := 'Portal';
    End;
    If ToPortal Then
    Begin
      FFlag(0);
      Wait(6000);
    End
    Else Wait(100);
  Until Not AtMine;
  Result := True;
  PortalBool := True;
End;

Function OpenDoor : Boolean;

Var iX, iY,DoorClosed : Integer;

Begin
  DoorClosed := DTMFromString('78DA63FCCDC0C0309F01053426CB337001694' +
       '620FE0F048C6F808C7E5435E97E520CFC503520C0C80E644D4055' +
       '13E7218EAAE617A639E86A0097700CBE');
  If Not LoggedIn Then Exit;

  If FindDTM(DoorClosed, iX, iY, 140, 90, 425, 325) Then
  Begin
    MMouse(iX, iY, 2, 2);
    GetMousePos(iX, iY);
    If isUpText('pen') Then
      Mouse(iX, iY, 0,0, True);
    Result := True;
    If Result Then Doors := Doors + 1;
  End;
  FreeDTM(DoorClosed);
  If Result And WizzyDebug Then writeln('The door was closed, but now opened.')
  Else If WizzyDebug Then WriteLn('The door is open');
End;

Function ToBank: Boolean;

Var
   iX, iY, BankDTM, D, WalkMark, aMark : Integer;
   AngleVar : Extended;
Begin
  If Not LoggedIn Then Exit;
  SetRun(True);
  OpenDoor;
  Mouse(687, 30, 4, 4, True);
  Wait(100);
  MarkTime(aMark);
  Repeat
    If Not FlagPresent Then
    Begin
      OpenDoor;
      Mouse(687, 30, 4, 4, True);
      MarkTime(WalkMark)
      Repeat
        FindColorSpiral(iX, iY, RuneShopColor, MMX1, MMY1, MMX2, MMY2)
        D := Distance(iX, iY, MMCX, MMCY);
        Wait(100);
      Until ((D > 15) Or (TimeFromMark(WalkMark) > 8000));
    End
    Else Break;
    If TimeFromMark(aMark) > 120000 Then
    Begin
      WriteLn('ToBank took too long.. logging.');
      LogOut;
      Players[CurrentPlayer].Loc := 'ToBank2';
      Exit;
    End;
  Until D > 15;
  Wait(6000);
  FFlag(10);
  BankDTM:= DTMFromString('78DA636C666260486140016FDEBC61F80FA41' +
       '981F83F1030B603D5E4A0AA79FB96814103AA060418EB816AB251' +
       'D57CFD8AAA0600B6210EA4');

  If FindDTMRotated(BankDTM, iX, iY, MMX1, MMY1, MMX2, MMY2, -1.0, 2.0, 1, AngleVar) Then
  Begin
    Result := True;
    Mouse(iX, iY + 1, 0, 0, True);
    Wait(3000);
    FFlag(0);
  End
  Else
  Begin
    LogOut;
    Players[CurrentPlayer].Loc := 'ToBank2';
    WriteLn('Bank not found');
    Exit;
  End;
  FreeDTM(BankDTM);
  SetRun(False);
End;

Function FindAuburyFloorColor(Var iX, iY: Integer): Boolean;

Var
   Tol, Floor3 : Integer;
Begin
  If Not LoggedIn Then Exit;
  Floor3 := BitmapFromString(3, 3, 'z78DA3377333735B1302791' +
       '04004AD80BFE');

  If FindColoredAreaTolerance(iX, iY, RuneShopColor, MMX1, MMY1, MMX2, MMY2, 16, 9) Then
  Begin
    RuneShopColor := GetColor(iX , iY);
    If WizzyDebug Then WriteLn('RuneShopColor = '+IntToStr(RuneShopColor));
    If WIzzyDebug Then WriteLn('Found with FindColoredAreaTolerance.');
    Result := True;
  End;
  Tol := 0;
  Repeat
    Wait(10);
    If Result Then Break;
    Tol := Tol + 2;
    iX := 618;
    iY := 127;
    If FindBitMapSpiralTolerance(Floor3, iX, iY, MMX1, MMY1, 650, 150, Tol) Then
    Begin
      RuneShopColor := GetColor(iX , iY);
      If WizzyDebug Then WriteLn('RuneShopColor = '+IntToStr(RuneShopColor));
      If WizzyDebug Then WriteLn('Found with Floor3 bmp.');
      Result := True;
      Break;
    End;
  Until Tol > 39;
  FreeBitMap(Floor3);
End;

Function ToDoor: Boolean;

Var
  iX, iY: Integer;

Begin
  If FindColorRightTol(iX, iY, RuneShopColor, MMX1, MMY1, MMX2, MMY2, 0) Then
  Begin
    If WizzyDebug Then WriteLn('Door found');
    Result := True;
    Mouse(iX - 8, iY + 20, 0, 0, True);
    FFlag(0);
  End;
End;

Function SpotAubury: Boolean;
                                    // 10855856, 3005947, 2998011
Var
  iX, iY, C: Integer;

Begin
  Repeat
    CloseWindow;
    Wait(50);
    If FindAuburyText Then
    Begin
      Result := True;
      Break;
    End;
    iX := MSCX;
    iY := MSCY;
    If AtMine Then
    Begin
      Result := True;
      Exit;
    End;
    If FindColorSpiralTolerance(iX, iY, 2998011, MSX1, MSY1, MSX2, MSY2, 4)
    Or FindColorSpiralTolerance(iX, iY, 1888494, MSX1, MSY1, MSX2, MSY2, 4) Then
    Begin
      MMouse(iX, iY, 0, 0);
      Wait(10);
      If IsupTextMulti('Talk','bury','alk-to') Then
      Begin
        Mouse(iX, iY, 0, 0, False);
        Result := ChooseOption(iX, iY, 'eleport');
        If Result Then Exit;
      End;
    End;
    C := C + 1;
  Until C > 5;
  Wait(500);

  If Not LoggedIn Then Exit;
End;

Function PreciseFlag(Var iX, iY: Integer):Boolean;

Begin
  Result := FindColor(iX, iY, 255, 570, 5, 735, 166);
  If Result Then iX := iX + 1;
  If Result Then iY := iY + 14;
End;

Function ColorAroundFlag(iX, iY: Integer) : Boolean;

Begin
  Result := FindColorSpiral(iX, iY, RuneShopColor, iX - 2, iY - 2, iX + 2, iY + 2)
End;

Function ToMine: Boolean;

Var
  iX, iY, D, zMark : Integer;
Begin

  If Not Players[CurrentPlayer].Boolean2 Then
  Begin
    HighestBrightness;
    Players[CurrentPlayer].Boolean2 := True;
  End;
  If Not LoggedIn Then Exit;
  FindPickHeadColor;
  Mouse(663, 142, 6, 6, True);
  Wait(15000+Random(4000));
  FFlag(5);

  If FindAuburyFloorColor(iX, iY) Then
    Begin
      If WizzyDebug Then WriteLn('Exact Color Found');
    End
    Else
    Begin
      LogOut;
      WriteLn('Could not get the exact color.'+ Chr(13)+
       'Wizzup, you should tweak your functions!');
       Players[CurrentPlayer].Loc := 'NoColor';
    End;

  FindColorSpiral(iX, iY, RuneShopColor, MMX1, MMY1, MMX2, MMY2);
  D := Distance(iX, iY, MMCX, MMCY);
  If WizzyDebug Then WriteLn('Distance = '+IntToStr(D));

  If D > 15 Then
  Begin
    iX := MMCX;
    iY := MMCY;
    If FindColorSpiral2(iX, iY, RuneShopColor, MMX1, MMY1, MMX2, MMY2) Then
    Begin
      Mouse(iX, iY, 0, 0, True);
      If PreciseFlag(iX, iY) Then
      Begin
        If ColorAroundFlag(iX, iY) Then
        Begin
          If WizzyDebug Then WriteLn('Walking INTO the shop now...');
        End;
      End;
      FFlag(0);
    End;
  End;

  iX := MMCX;
  iY := MMCY;
  FindColorSpiral(iX, iY, RuneShopColor, MMX1, MMY1, MMX2, MMY2)

  If Distance(iX, iY, MMCX, MMCY) > 10 Then
  Begin
    ToDoor;
    OpenDoor;
    If FindColorSpiral2(iX, iY, RuneShopColor, MMX1, MMY1, MMX2, MMY2) Then
    Begin
      Mouse(iX, iY, 0, 0, True);
      If PreciseFlag(iX, iY) Then
      Begin
        If ColorAroundFlag(iX, iY) Then
        Begin
          If WizzyDebug Then WriteLn('Walking INTO the shop now...');
        End;
      End;
      FFlag(0);
    End;
  End;

  If Random(10) = 9 Then BoredHuman;

  MarkTime(zMark);
  Repeat
    FindNormalRandoms;
    If (TimeFromMark(zMark) > 240000) Then
    Begin
      WriteLn('Aubury Took too long..logging');
      LogOut;
      Players[CurrentPlayer].Loc := 'Aubury';
    End;

    If SpotAubury Then
    Begin
      FFlag(0);
      Wait(4000);
    End
    Else
    Begin
      Wait(100);
      ChooseOption(iX, iY, 'ancel');
    End;
    
    If Not LoggedIn Then Break;
  Until AtMine;

  Result := True;
  If LoggedIn Then Players[CurrentPlayer].Loc := 'Mine';
End;

Function MyOpenBank: Boolean;

Begin
  OpenBankGlass('veb',False,False);
  FFlag(0);
  Wait(2000);
  If BankScreen Or PinScreen Then
  Begin
    Result := True;
    If PinScreen Then InPin(Players[CurrentPlayer].String1);
    Exit;
  End;
  If OpenBankQuiet('veb') Then Result := True;
  If PinScreen Then InPin(Players[CurrentPlayer].String1);
End;

Function BankStuff: Boolean;

Var
  RuneEss, PureEss: Integer;
Begin
  If Not BankScreen Then Exit;
  RuneEss := BitmapFromString(8, 12, 'z78DA8DCD3112C3200C44D1' +
       '2BE1B02B9B1288B9FF91222315149107EFCCAFF4B08037BB584F0' +
       'E0E6F9143D724EBAC5F79BE0F1BABF7DDCEB25374B3925858BCC1' +
       '3BBC78E82AA1DBB07EBFAAC8DA3D3130BC1B8A191DFD8F8A6C424' +
       '57515D945E1C685D35564973FA23DD4D48ED5ABACDB560092CED4' +
       'BB9DF73F7ACE7D1F');
  PureEss := BitmapFromString(11, 10, 'z78DAA5CF490E03211003C' +
       '02FB1B56D8E0CCBFF9F1492CC012962B2B5251F4B6E451616192B' +
       'ABC8CEA62CC771F6A120AFA638D39594B213841C342F27151536A' +
       '6994110F214A59DB9D1783032FCE39018E8CCF474BF693434B48F' +
       '9C555B1CBAF98A185050BED0963DE8B8DFA3DF689BEF90E1670EA' +
       '4994F9C65D5D38159B736596763AB5D3A362C5B46B46AF5D4AE57' +
       'BD3837C02891A6');
//  FixBank;
  RuneEssenceMined := RuneEssenceMined + CountItemBmpTol(RuneEss, 15);
  PureEssenceMined := PureEssenceMined + CountItemBmpTol(PureEss, 15);
  ReportVars[1] := ReportVars[1] + 1;
  ReportVars[0] := CountItemBmpTol(RuneEss, 15) + CountItemBmpTol(PureEss, 15);
  Players[CurrentPlayer].Integer1 := Players[CurrentPlayer].Integer1 + CountItemBmpTol(PureEss, 15) + CountItemBmpTol(RuneEss, 15);
  ClickAllItemsBmpTolWait('All', RuneEss, 15, 1500);
  ClickAllItemsBmpTolWait('All', PureEss, 15, 1500);
  If EquipPick Then Deposit(1, 28, 2)
  Else Deposit(2, 28, 2);
  FreeBitMap(RuneEss);
  FreeBitMap(PureEss);
  If BankScreen Then CloseBank;
  Players[CurrentPlayer].Banked := Players[CurrentPlayer].Banked + 1;
  Banks := Banks + 1;
  Result := True;
End;

Procedure PlayerReport;

Var
  Active: String;
  I:Integer;

Begin
  For I  :=  0 to HowManyPlayers - 1 Do
   Begin
     If Players[i].Active=True Then Active := 'T' Else Active := 'F';
     WriteLn( (IntToStr(I))+' : '+Players[I].nick+ ' = '+
     Active+ +'; Loc = '+Players[I].Loc+'; Banked: '+IntToStr(Players[I].Integer1)
     +' Ess; M lvl:'+IntToStr(Players[i].Level[15]));
   End;
End;

Procedure CurrentPlayerReport;

Begin
  WriteLn('----------------------------------------------')
  WriteLn(Players[CurrentPlayer].Name+'.');
  WriteLn('Mined ' + IntToStr(Players[CurrentPlayer].Integer1) + ' Essence.');
  WriteLn('Mining level is ' + IntToStr(Players[CurrentPlayer].Level[15]));
  WriteLn('Location is ' + Players[CurrentPlayer].Loc+ '.');
  WriteLn('----------------------------------------------')
End;

Procedure ProgressReport;

Begin
  WriteLn('----------------------------------------------')
  WriteLn('')
  WriteLn('Essence Miner by Wizzup?.')
  WriteLn('Version: '+VersionNumber)
  WriteLn('')
  If RuneEssenceMined > 0 Then WriteLn('Rune Essence Mined and Banked : '+IntToStr(RuneEssenceMined)+'.');
  If PureEssenceMined > 0 Then WriteLn('Pure Essence Mined and Banked : '+IntToStr(PureEssenceMined)+'.');
  If Abyss > 0 Then WriteLn('Solved '+IntToStr(Abyss)+' Abyssal Random Events.');
  If NOAbyss > 0 Then WriteLn('Missed '+IntToStr(NoAbyss)+' Abyssal Random Events.');
  If Doors > 0 Then WriteLn('Door Opened : '+IntToStr(Doors)+'.');
  Writeln('Worked for '+ TimeRunning);
  WriteLn('')
  WriteLn('----------------------------------------------')
  WriteLn('')
  PlayerReport;
  CurrentPlayerReport;
  SRLRandomsReport;
  WriteLn('')
  WriteLn('----------------------------------------------')
End;

Procedure ClearVars;

Var
  I : Integer;
Begin
  For I := 1 To 19 Do
  ReportVars[I] := 0;
End;

Procedure DoChats;

Begin
  SetChat('On', 1);
  SetChat('On', 1);
  SetChat('Friends', 2);
  SetChat('Friends', 2);
  SetChat('On', 3);
  SetChat('On', 3);
End;

Procedure SetupScript;

Begin
  ClearDebug;
  SetupSRL;
  SetupSRLMining;
  DeclarePlayers;
  RuneShopColor := 4551800; // Temp.
  Rcmaster := YourRCMASTER;
  RcLoc := 'Bank';
  ScriptID := '51';
  ClearVars;
  SRLID := YourSRLstatsID;
  SRLPassword := YourSRLstatsPASS;
  CurrentPlayer := StartPlayer;
  If FirstWorld Then LoginPlayer;
  If FirstWorld Then Wait(1000);
  If FirstWorld Then LogOut;
  If FirstWorld Then Wait(1000);
  LoginPlayer;
  Wait(1000);
  DoChats;
  EquipPick := Players[CurrentPlayer].Boolean1;
  AuburyText := CreateBitmapMaskFromText('isthine', upchars);
  BenMouse := True;
  GetAllLevels;
End;

begin
  ActivateClient;
  SetupScript;
  Repeat
    MakeCompass('N');
    If Players[CurrentPlayer].Loc = 'Bank' Then
    Begin
      ToMine;
    End;

    If Players[CurrentPlayer].Loc = 'Mine' Then
    Begin
      Wait(500);
      If InAbyss Then
      Begin
        GuessAbyssRandom;
        BoredHuman;
      End;
      Wait(1000);
      FindNormalRandoms;
      SymbolAccuracy := 0.4;
      Position := GetPositionInMine;
      If Position = 'Middle' Then Position := GetMiddle;
      WriteLn('Our position is '+ Position+'.');
      
      Wait(1000);
      If FindEssence(X, Y) Then
      Begin
        Mouse(X, Y, 0, 0, True);
        Wait(10);
        FFlag(0);
      End
      Else
      Begin
        RunToPortal;
      End;
      Wait(1000);
      MarkTime(IdleMark);
      MarkTime(MiningMark);
      Repeat
        If Not LoggedIn Then Break;
        If PortalBool Then Break;
        If TimeFromMark(IdleMark) > (65000+Random(5000)) Then
        Begin
          BoredHuman;
          MarkTime(IdleMark);
        End;
        Wait(400);
        If FindNormalRandoms Then
          RunToPortal;
        Wait(400);
        RC;
        Wait(400);
        ClickToContinue;
        If FindFight Then
        Begin
          RunToPortal;
          Break;
        End;
        Wait(1);
      Until ((InvFull) Or (TimeFromMark(MiningMark) > 1000 * 60 * MinutesPerLoad));
      If Not PortalBool Then
      Begin
        MarkTime(iMark);
        Repeat
          If Not LoggedIn Then Break;
          If (TimeFromMark(iMark) > 120000) Then
          Begin
            WriteLn('Portal Took too long..logging');
            LogOut;
            Players[CurrentPlayer].Loc := 'Portal';
          End;
          If ToPortal Then
          Begin
            FFlag(0);
            Wait(3000);
          End
          Else Wait(100);
        Until Not AtMine;
      End
      WriteLn('Through The portal');
      SymbolAccuracy := 0.8;
      PortalBool := False;
      Wait(500);
      ToBank;
      MyOpenBank;
      BankStuff;
      If LoggedIn Then Players[CurrentPlayer].Loc := 'Bank';
    End;
    ProgressReport;
    If ( LoggedIn And (Players[CurrentPlayer].Banked Mod Loads = 0 )) Then
    Begin
      DoChats;
      LogOut;
      Wait(1000);
      NextPlayer(True);
      EquipPick := Players[CurrentPlayer].Boolean1;
      FindPickHeadColor;
      GetAllLevels;
    End;

    If Not LoggedIn Then
    Begin
      DoChats;
      NextPlayer(False);
      EquipPick := Players[CurrentPlayer].Boolean1;
      FindPickHeadColor;
      GetAllLevels;
    End;
  Until False;
end.

wizzup, just use this, u dont need to add anti log out, the only way it stops when u use this is if a random stops it, then it moves on to the next one, it has never logged in the mines before with this.