View Full Version : Wizzup's [SRL] Essence Miner.
Pages :
1
[
2]
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
stylen
02-13-2007, 08:29 PM
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.
DanTeCruZ
02-13-2007, 09:28 PM
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?:)
elvew
02-13-2007, 11:04 PM
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[s] Missed : 2 |
| New Box[es] Solved : 1 |
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~/
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
Dunceiam
02-13-2007, 11:16 PM
elvew, just wondering. But how many characters did you use?
-Dunceiam
legendaryhero90
02-13-2007, 11:20 PM
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?
Itzkirby
02-14-2007, 03:26 AM
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.
legendaryhero90
02-14-2007, 05:28 AM
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
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 (http://www.villavu.com/forum/showthread.php?t=528?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
Wizzup?
02-14-2007, 07:15 AM
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.
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[s] Missed : 2 |
| New Box[es] Solved : 1 |
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~/
Thanks, added to first page.
Phat Smither
02-14-2007, 09:48 AM
k, the problem i refered to yesterday..should be fixed..laptop wasnt on 32 bit colour lol :P
DanTeCruZ
02-14-2007, 12:19 PM
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;
Wizzup?
02-14-2007, 03:13 PM
k, the problem i refered to yesterday..should be fixed..laptop wasnt on 32 bit colour lol :P
Thought so. ;)
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
Itzkirby
02-15-2007, 01:47 AM
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.
simba49
02-15-2007, 05:51 AM
dude this is the shit...better then penttis and this one is a free one...could get much more l33t then stablasters also =0
legendaryhero90
02-15-2007, 06:07 AM
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
darth arcon
02-15-2007, 06:55 AM
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.
Wizzup?
02-15-2007, 02:39 PM
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.
rkroxpunk
02-15-2007, 02:44 PM
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
Wizzup?
02-15-2007, 03:36 PM
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. ;)
XunTric
02-15-2007, 04:38 PM
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.
Maxtriplex
02-15-2007, 04:49 PM
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....
tuomari9
02-15-2007, 05:17 PM
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
Wizzup?
02-15-2007, 06:38 PM
I will add RandomGametab update soon.
Dark_Sniper
02-15-2007, 07:17 PM
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.
the flea
02-15-2007, 08:19 PM
this rocks my socks :lol: :) good work im guna use this now.
is this better than starblasters pay one?
rkroxpunk
02-15-2007, 08:47 PM
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[s] encountered : 2
rkroxpunk
02-15-2007, 08:50 PM
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
WT-Fakawi
02-15-2007, 10:45 PM
Just moving the mouse is not enough, that will get you logged out. Try BoredHuman; instead.
darth arcon
02-15-2007, 10:57 PM
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.
Avaphi
02-15-2007, 11:21 PM
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).
Dark_Sniper
02-16-2007, 12:05 AM
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.
rkroxpunk
02-16-2007, 03:55 AM
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
Dark_Sniper
02-16-2007, 04:24 AM
rkr your kinda (actully way) off topic pl0x ask somwhere else it'l be answered :)
rkroxpunk
02-16-2007, 05:32 AM
:( 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.
Wizzup?
02-16-2007, 07:04 AM
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[s] encountered : 2
Yes, FindMod screws every script. :p
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. :)
Dark_Sniper
02-16-2007, 12:00 PM
ok waiting for update :p.
mean time ill be working on a script. :spot:
waleed
02-16-2007, 05:10 PM
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%2 01.06[1].scar what does that mean?
julle13
02-16-2007, 09:06 PM
Have u srl 3.6 and globalstats patch file?
Syrex
02-16-2007, 09:40 PM
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
Dark_Sniper
02-16-2007, 11:16 PM
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%2 01.06[1].scar what does that mean?
he needs global stats patch file.
takeNout
02-16-2007, 11:22 PM
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
Dark_Sniper
02-17-2007, 09:09 AM
taken out thats a nice proggy you got there :p
lelle
02-17-2007, 09:12 AM
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?
Wizzup?
02-17-2007, 09:23 AM
Thanks for all the proggies, and check my tutorial on how to setup your players.
rkroxpunk
02-17-2007, 02:50 PM
bored human in yet?
Dunceiam
02-17-2007, 03:58 PM
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
lelle
02-17-2007, 04:08 PM
yes i have. I chose 0 players to use. Cause atm I only have one essminer
Dunceiam
02-17-2007, 04:35 PM
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....
julle13
02-17-2007, 06:41 PM
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
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?
takeNout
02-17-2007, 10:35 PM
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....
Dunceiam
02-18-2007, 01:54 AM
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
rkroxpunk
02-18-2007, 01:59 AM
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
jczar
02-18-2007, 02:47 AM
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?
snobrder
02-18-2007, 03:28 AM
----------------------------------------------
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
mug22
02-18-2007, 03:42 AM
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[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('78DA63FCCDC0C0309F01053426CB3370016 94' +
'620FE0F048C6F808C7E5435E97E520CFC503520C0C80E644D 4055' +
'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('78DA636C666260486140016FDEBC61F80FA 41' +
'981F83F1030B603D5E4A0AA79FB96814103AA060418EB816A B251' +
'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' +
'2BE1B02B9B1288B9FF91222315149107EFCCAFF4B08037BB5 84F0' +
'E0E6F9143D724EBAC5F79BE0F1BABF7DDCEB25374B3925858 BCC1' +
'3BBC78E82AA1DBB07EBFAAC8DA3D3130BC1B8A191DFD8F8A6 C424' +
'57515D945E1C685D35564973FA23DD4D48ED5ABACDB560092 CED4' +
'BB9DF73F7ACE7D1F');
PureEss := BitmapFromString(11, 10, 'z78DAA5CF490E03211003C' +
'02FB1B56D8E0CCBFF9F1492CC012962B2B5251F4B6E451616 192B' +
'ABC8CEA62CC771F6A120AFA638D39594B213841C342F27151 536A' +
'6994110F214A59DB9D1783032FCE39018E8CCF474BF693434 B48F' +
'9C555B1CBAF98A185050BED0963DE8B8DFA3DF689BEF90E16 70EA' +
'4994F9C65D5D38159B736596763AB5D3A362C5B46B46AF5D4 AE57' +
'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) > (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.
Itzkirby
02-18-2007, 03:55 AM
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....
mug22
02-18-2007, 04:00 AM
i guess im not gonna get any help, this is such a friendly forum
Meanage
02-18-2007, 04:10 AM
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
[SCAR]script here[-/SCAR] take out the '-'
jczar
02-18-2007, 04:55 AM
----------------------------------------------
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"
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 (http://www.villavu.com/forum/showthread.php?t=5265?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.
Wizzup?
02-18-2007, 07:13 AM
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.
lelle
02-18-2007, 08:36 AM
Thank you very much Dunceiam. It works now. +rep for you
lelle
02-18-2007, 08:58 AM
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?
Wizzup?
02-18-2007, 09:27 AM
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.
lelle
02-18-2007, 09:34 AM
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
savormix
02-18-2007, 04:10 PM
----------------------------------------------
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...
muffinman177
02-18-2007, 07:02 PM
Someone told me that this wizups essence miner was really good.. i need to try it out ;)
uruglyxd
02-18-2007, 07:20 PM
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
thisisme
02-18-2007, 08:21 PM
Thanks
ill go try this
Do i have to choose high or low detail ?
StK Squenc
02-18-2007, 11:44 PM
low detail for better script results...high u cant see inside a building ...low u can. helps find albury better =)
Wizzup?
02-19-2007, 07:40 AM
----------------------------------------------
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.
Do i have to choose high or low detail ?
Low Detail.
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. ;)
savormix
02-19-2007, 12:48 PM
yes, wizzup, that didn't happen again.
Btw, it works quite good with high detail too. But low detail brings BEST results.
the scar noob
02-19-2007, 06:22 PM
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?
Smartzkid
02-19-2007, 06:30 PM
haha that'd be pretty funny -> free script beats 1m pay script in performance
I'd say they're about the same....
Wizzup?
02-19-2007, 07:10 PM
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. :)
warbeak1245
02-19-2007, 07:40 PM
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('78DA63FCCDC0C0309F01053426CB3370016 94' +
'620FE0F048C6F808C7E5435E97E520CFC503520C0C80E644D 4055' +
'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('78DA636C666260486140016FDEBC61F80FA 41' +
'981F83F1030B603D5E4A0AA79FB96814103AA060418EB816A B251' +
'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' +
'2BE1B02B9B1288B9FF91222315149107EFCCAFF4B08037BB5 84F0' +
'E0E6F9143D724EBAC5F79BE0F1BABF7DDCEB25374B3925858 BCC1' +
'3BBC78E82AA1DBB07EBFAAC8DA3D3130BC1B8A191DFD8F8A6 C424' +
'57515D945E1C685D35564973FA23DD4D48ED5ABACDB560092 CED4' +
'BB9DF73F7ACE7D1F');
PureEss := BitmapFromString(11, 10, 'z78DAA5CF490E03211003C' +
'02FB1B56D8E0CCBFF9F1492CC012962B2B5251F4B6E451616 192B' +
'ABC8CEA62CC771F6A120AFA638D39594B213841C342F27151 536A' +
'6994110F214A59DB9D1783032FCE39018E8CCF474BF693434 B48F' +
'9C555B1CBAF98A185050BED0963DE8B8DFA3DF689BEF90E16 70EA' +
'4994F9C65D5D38159B736596763AB5D3A362C5B46B46AF5D4 AE57' +
'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.
Itzkirby
02-19-2007, 09:25 PM
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.
----------------------------------------------
Mjordan
02-19-2007, 09:48 PM
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
xxchronic2007xx
02-19-2007, 10:22 PM
what is rcm?? i dont kno what i means by my remote control master..help plz
WT-Fakawi
02-19-2007, 10:59 PM
RC (http://wiki.srl-forums.com/index.php/RC.scar)
mcnab
02-19-2007, 11:13 PM
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..>!
warbeak1245
02-19-2007, 11:37 PM
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...
xxchronic2007xx
02-19-2007, 11:50 PM
nvm fixed
syberium
02-19-2007, 11:57 PM
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 . =]
A G E N T
02-20-2007, 01:28 AM
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?
Hey321
02-20-2007, 02:03 AM
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!
hardcore007
02-20-2007, 04:00 AM
Ausome script Wizzup?.. ill try and get a good proggie, last time scar died on me before i could get it.
diamondhero5
02-20-2007, 04:37 AM
nice
Pwnt by Pwnt
02-20-2007, 05:17 AM
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.
Wizzup?
02-20-2007, 08:29 AM
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
takeNout
02-20-2007, 08:43 AM
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?
Wizzup?
02-20-2007, 01:19 PM
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
eddie
02-20-2007, 06:56 PM
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
testje
02-20-2007, 07:47 PM
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.
snobrder
02-20-2007, 08:18 PM
----------------------------------------------
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:
xxchronic2007xx
02-20-2007, 08:50 PM
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 =)
maddux_91
02-20-2007, 09:18 PM
the miner seems to stop with 8 slots left in the inventory, then logs out and changed player. Any reason for this?
syberium
02-20-2007, 11:53 PM
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
warbeak1245
02-20-2007, 11:55 PM
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('78DA63FCCDC0C0309F01053426CB3370016 94' +
'620FE0F048C6F808C7E5435E97E520CFC503520C0C80E644D 4055' +
'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('78DA636C666260486140016FDEBC61F80FA 41' +
'981F83F1030B603D5E4A0AA79FB96814103AA060418EB816A B251' +
'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' +
'2BE1B02B9B1288B9FF91222315149107EFCCAFF4B08037BB5 84F0' +
'E0E6F9143D724EBAC5F79BE0F1BABF7DDCEB25374B3925858 BCC1' +
'3BBC78E82AA1DBB07EBFAAC8DA3D3130BC1B8A191DFD8F8A6 C424' +
'57515D945E1C685D35564973FA23DD4D48ED5ABACDB560092 CED4' +
'BB9DF73F7ACE7D1F');
PureEss := BitmapFromString(11, 10, 'z78DAA5CF490E03211003C' +
'02FB1B56D8E0CCBFF9F1492CC012962B2B5251F4B6E451616 192B' +
'ABC8CEA62CC771F6A120AFA638D39594B213841C342F27151 536A' +
'6994110F214A59DB9D1783032FCE39018E8CCF474BF693434 B48F' +
'9C555B1CBAF98A185050BED0963DE8B8DFA3DF689BEF90E16 70EA' +
'4994F9C65D5D38159B736596763AB5D3A362C5B46B46AF5D4 AE57' +
'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.
Wizzup?
02-21-2007, 07:13 AM
That is probably because your miner are high level mining, level 1's with iron picks do logout. :)
EDIT:
Wow:
Essence Miner by Wizzup?.
Version: 1.08
Rune Essence Mined and Banked : 8956.
Solved 6 Abyssal Random Events.
Missed 4 Abyssal Random Events.
Door Opened : 1.
Worked for 24 Hours, 18 Minutes and 0 Seconds
----------------------------------------------
5 False, 4 Quiz. 1 Freaky Forester.
The Missed Abyssal Are quizzez, since it in facts, never missed abyss. :)
Killerdou
02-21-2007, 08:27 AM
mh... somehow my computer thought it was a good idea to reboot... i only got like 2-3k in a night:'( and i dont have a progy for you:(:(:(:(:(:(:mad:
savormix
02-21-2007, 12:44 PM
----------------------------------------------
Essence Miner by Wizzup?.
Version: 1.08
Rune Essence Mined and Banked : 1371.
Solved 1 Abyssal Random Events.
Worked for 3 Hours, 30 Minutes and 43 Seconds
----------------------------------------------
0 : ... = F; Loc = ToBank2; Banked: 139 Ess; M lvl:23 //door was closed
1 : ... = F; Loc = Mine; Banked: 1231 Ess; M lvl:15 //low mining lvl logout
2 : ... = T; Loc = Mine; Banked: 1 Ess; M lvl:14 //socket error WTF?
----------------------------------------------
last account from the three.
Mined 1 Essence.
Mining level is 14
Location is Mine.
----------------------------------------------
Socket Error # 10060
Connection timed out.
----------------------------------------------
NextPlayer [after last of the three, so it stopped]
Successfully executed
testje
02-21-2007, 04:49 PM
Another progress report
Rune Essence Mined and Banked : 108.
Missed 1 Abyssal Random Events. //It is the quiz, not the abyss
Worked for 16 Minutes and 0 Seconds
----------------------------------------------
0 : *** = T; Loc = Abyss; Banked: 108 Ess; M lvl:49
----------------------------------------------
*******.
Mined 108 Essence.
Mining level is 49
Location is Abyss. //Wrong, was quiz
----------------------------------------------
This script has run for 2 hours, sorry, dont saved all the progress reports.
edit: new report, this time an one hour report:
Essence Miner by Wizzup?.
Version: 1.08
Rune Essence Mined and Banked : 620.
Solved 1 Abyssal Random Events.
Worked for 1 Hours, 13 Minutes and 32 Seconds
----------------------------------------------
0 : *** = T; Loc = NoColor; Banked: 620 Ess; M lvl:49
----------------------------------------------
**********.
Mined 620 Essence.
Mining level is 49
Location is NoColor. //My mom shutted down RuneScape, she wanted to internet herself.
antknee3
02-21-2007, 10:53 PM
Very Good script!!:D
Only some problems that I noticed:
1. Your Mining procedure does not take into effect that runescape logs you out automatically after no movement. So if it takes too long to mine ess(bad pic, low level) it will log out and the script wil make to player false. I suggest that you add a few boredhumans or hovers to avoid this during mining.
2. Using the floor bitmap to get into Aubery's shop is ingenous, but this is not fail proof. Some times the script will not get close enough to the shop when it starts looking for the bitmap and the roof of the shop will cover it. The script doesnt realize this and just sits there until runescape logs the player out. Im not sue what you could do to solve this problem. Maybe you could make a roof bitmap and if the script detects it lowers the angle and rotates until it can see the floor bitmap. Just maybe.
Otherwise this is a very good script and I lookforward to using it. Il post a proggy soon.
monkey776
02-22-2007, 02:17 AM
I tried like 6 ess miner scripts and all had problems with teleporting, finding aubury, and banking, but this, this, GOD OF SCRIPTS has saved me from the impending failure that is nooby scripters!!!! ^_^
IT'S PERFECT BY THE WAY!
I GIVE U AN 11/10!!!
:spot: :spot: :spot: :spot: :spot: :spot:
legendaryhero90
02-22-2007, 05:17 AM
2. Using the floor bitmap to get into Aubery's shop is ingenous, but this is not fail proof. Some times the script will not get close enough to the shop when it starts looking for the bitmap and the roof of the shop will cover it. The script doesnt realize this and just sits there until runescape logs the player out. Im not sue what you could do to solve this problem. Maybe you could make a roof bitmap and if the script detects it lowers the angle and rotates until it can see the floor bitmap. Just maybe.
antknee...are you using low details and v-bright...
if not thats why ur having that roof problem:eek:
Killerdou
02-22-2007, 08:34 AM
----------------------------------------------
Essence Miner by Wizzup?.
Version: 1.08
Rune Essence Mined and Banked : 4928.
Solved 9 Abyssal Random Events.
Door Opened : 1.
Worked for 10 Hours, 33 Minutes and 16 Seconds
----------------------------------------------
0 : **** = F; Loc = Oh Dear You Are in Lumby; Banked: 336 Ess; M lvl:49
1 : **** = T; Loc = Bank; Banked: 1476 Ess; M lvl:45
2 : **** = F; Loc = ScapeRune; Banked: 0 Ess; M lvl:38
3 : **** = T; Loc = Bank; Banked: 1509 Ess; M lvl:45
4 : **** = T; Loc = Bank; Banked: 1523 Ess; M lvl:46
5 : **** = F; Loc = Bank; Banked: 84 Ess; M lvl:41
----------------------------------------------
do i need to say more?
savormix
02-22-2007, 11:08 AM
SRL Compiled in 1125msec.
3 Players
In Abyss gave 125.
Our position is MiddleSW.
Through The portal
----------------------------------------------
Essence Miner by Wizzup?.
Version: 1.08
Worked for 3 Minutes and 10 Seconds
----------------------------------------------
0 : = T; Loc = Mine; Banked: 0 Ess; M lvl:27
1 : = T; Loc = Mine; Banked: 0 Ess; M lvl:0
2 : = T; Loc = Mine; Banked: 0 Ess; M lvl:0
----------------------------------------------
.
Mined 0 Essence.
Mining level is 27
Location is Mine.
----------------------------------------------
----------------------------------------------
NextPlayer
ERROR! cannot find pick in screen, please put pick in inventory or your equip page and restart the script!
----------------------------------------------
Essence Miner by Wizzup?.
Version: 1.08
Worked for 5 Minutes and 36 Seconds
----------------------------------------------
0 : = F; Loc = Mine; Banked: 0 Ess; M lvl:27
1 : = T; Loc = No GameTab; Banked: 0 Ess; M lvl:0
2 : = T; Loc = Mine; Banked: 0 Ess; M lvl:0
----------------------------------------------
.
Mined 0 Essence.
Mining level is 0
Location is No GameTab.
----------------------------------------------
----------------------------------------------
NextPlayer
Found quiz, solving...
ERROR! cannot find pick in screen, please put pick in inventory or your equip page and restart the script!
NextPlayer
Found quiz, solving...
ERROR! cannot find pick in screen, please put pick in inventory or your equip page and restart the script!
0
Error detecting Compass Angle.
----------------------------------------------
Essence Miner by Wizzup?.
Version: 1.08
Worked for 11 Minutes and 26 Seconds
----------------------------------------------
0 : = F; Loc = Mine; Banked: 0 Ess; M lvl:27 //WRONG!!! scaperune
1 : = F; Loc = Quiz; Banked: 0 Ess; M lvl:0
2 : = F; Loc = Quiz; Banked: 0 Ess; M lvl:0 // WRONG!!! location is mine with full inv
----------------------------------------------
.
Mined 0 Essence.
Mining level is 0
Location is Quiz.
----------------------------------------------
----------------------------------------------
NextPlayer
Successfully executed
Another report, got both chars to quiz in rune shop.
ReyMen
02-22-2007, 01:34 PM
Hey Wizzup!
Can i use your function SpotAubury to my script ?
Wizzup?
02-22-2007, 02:54 PM
Thanks for all the Progress Reports guys!
Yes, you can always use my procedures, as long as you at least put my name in there. :)
Expect an update in - or after - the weekend.
shought
02-22-2007, 03:46 PM
Wizzup this is really a great script!!! I've already mined 3k ess with it in a few hours. Only i changed one thing myself and maybe you might do it to the original: Place an option in the setup to switch private chat(and maybe public too) off. Now i had to search the script before i could change it. And one more thing i noticed your script barely uses run. I adjusted the script and now it runs like this: Shop--->Bank...banking...Bank--->Shop and then just before it starts to search Aubury it turns run off.
Looks like this:
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('78DA636C666260486140016FDEBC61F80FA 41' +
'981F83F1030B603D5E4A0AA79FB96814103AA060418EB816A B251' +
'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(True); (U can leave this out if u want to i guess..)
End;
and then:
Function SpotAubury: Boolean;
// 10855856, 3005947, 2998011
Var
iX, iY, C: Integer;
Begin
SetRun(False);
Repeat
CloseWindow;
Wait(50);
If FindAuburyText Then
Wizzup?
02-22-2007, 06:50 PM
Wizzup this is really a great script!!! I've already mined 3k ess with it in a few hours. Only i changed one thing myself and maybe you might do it to the original: Place an option in the setup to switch private chat(and maybe public too) off. Now i had to search the script before i could change it. And one more thing i noticed your script barely uses run. I adjusted the script and now it runs like this: Shop--->Bank...banking...Bank--->Shop and then just before it starts to search Aubury it turns run off.
Looks like this:
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('78DA636C666260486140016FDEBC61F80FA 41' +
'981F83F1030B603D5E4A0AA79FB96814103AA060418EB816A B251' +
'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(True); (U can leave this out if u want to i guess..)
End;
and then:
Function SpotAubury: Boolean;
// 10855856, 3005947, 2998011
Var
iX, iY, C: Integer;
Begin
SetRun(False);
Repeat
CloseWindow;
Wait(50);
If FindAuburyText Then
Yes, I don't want to over-use run.
And, run most of the times makes scripts more instable, but edit whatever you want. ;)
Ok, I will look at the private chat set. :)
testje
02-22-2007, 06:57 PM
Maybe an idea to put remote control in it or something?
It would be nice if I could pm one of my essmining guys to ask a report.
I can make one for you once I've studied srl remote control functions enough...
Wizzup?
02-22-2007, 07:05 PM
Maybe an idea to put remote control in it or something?
It would be nice if I could pm one of my essmining guys to ask a report.
I can make one for you once I've studied srl remote control functions enough...
RC is in it. :)
trey death
02-22-2007, 09:05 PM
I love this! Except for one problem, i want one person, to mine for a LONG time, and get alot in my bank, but after a while i get:
Location is ToBank2.
----------------------------------------------
----------------------------------------------
NextPlayer
even if i have it set to 1 player, any ideas?
thephanatik
02-22-2007, 10:09 PM
Essence Miner by Wizzup?.
Version: 1.08
Rune Essence Mined and Banked : 980.
Worked for 2 Hours, 45 Minutes and 23 Seconds
It worked amazingly, except I appear to have died. I was in Lumby with my 3 items in my inventory. I started at level 1 mining, and it got me to 21.
Thanks :)
mage of begu
02-22-2007, 10:35 PM
Looks great im going to test it out soon!
syberium
02-23-2007, 12:00 AM
hey wizzup another proggy - this is what i meant by tobank2; perefect example..
Essence Miner by Wizzup?.
Version: 1.08
Rune Essence Mined and Banked : 5910.
Solved 10 Abyssal Random Events.
Door Opened : 2.
Worked for 13 Hours, 48 Minutes and 55 Seconds
0 : ast = F; Loc = ToBank2; Banked: 889 Ess; M lvl:48
1 : = F; Loc = Oh Dear You Are in Lumby; Banked: 944 Ess; M lvl:45
2 : = F; Loc = ToBank2; Banked: 135 Ess; M lvl:39
3 : = T; Loc = ToBank2; Banked: 2638 Ess; M lvl:46
4 : = F; Loc = ToBank2; Banked: 674 Ess; M lvl:38
5 : = F; Loc = ToBank2; Banked: 54 Ess; M lvl:43
6 : = F; Loc = ToBank2; Banked: 324 Ess; M lvl:55
7 : = F; Loc = ToBank2; Banked: 252 Ess; M lvl:34
trey death
02-23-2007, 02:35 AM
anyone know the answer to my problem??
grats
02-23-2007, 06:56 AM
Hey thank you! I do not really know how to script but my boyfriends teaching me basics lol cus I really don't understand anything you guys talk about!
-Jazmin =]
Killerdou
02-23-2007, 08:22 AM
Essence Miner by Wizzup?.
Version: 1.08
Rune Essence Mined and Banked : 3969.
Solved 6 Abyssal Random Events.
Door Opened : 3.
Worked for 9 Hours, 8 Minutes and 1 Seconds
and another proggy:) thanks wizzup? !!!
Wizzup?
02-23-2007, 08:27 AM
hey wizzup another proggy - this is what i meant by tobank2; perefect example..
Essence Miner by Wizzup?.
Version: 1.08
Rune Essence Mined and Banked : 5910.
Solved 10 Abyssal Random Events.
Door Opened : 2.
Worked for 13 Hours, 48 Minutes and 55 Seconds
0 : ast = F; Loc = ToBank2; Banked: 889 Ess; M lvl:48
1 : = F; Loc = Oh Dear You Are in Lumby; Banked: 944 Ess; M lvl:45
2 : = F; Loc = ToBank2; Banked: 135 Ess; M lvl:39
3 : = T; Loc = ToBank2; Banked: 2638 Ess; M lvl:46
4 : = F; Loc = ToBank2; Banked: 674 Ess; M lvl:38
5 : = F; Loc = ToBank2; Banked: 54 Ess; M lvl:43
6 : = F; Loc = ToBank2; Banked: 324 Ess; M lvl:55
7 : = F; Loc = ToBank2; Banked: 252 Ess; M lvl:34
ToBank2 means that it has missed the bank, like, not found the DTM. :)
That means that the player is False.
Also bankfinding has got an update.
Thanks for the proggy, you to iloveit8
mage of begu
02-23-2007, 02:01 PM
Im going to test this out...
revolink24
02-23-2007, 05:12 PM
Version: 1.06
Rune Essence Mined and Banked : 323.
Pure Essence Mined and Banked : 0.
Solved 1 Abyssal Random Events.
Missed 0 Abyssal Random Events.
Worked for 41 Minutes and 12 Seconds
not bad, not bad at all :P love this script, good job.
+Tyler
02-23-2007, 10:30 PM
Very nice script works amazingly well. Thanks. Only things i can suggest are getting them to open doors that seems to be the only thing that can be improved imo.
----------------------------------------------
Essence Miner by Wizzup?.
Version: 1.08
Rune Essence Mined and Banked : 4775.
Solved 8 Abyssal Random Events.
Missed 1 Abyssal Random Events.
Worked for 11 Hours, 16 Minutes and 4 Seconds
----------------------------------------------
/~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
| SRL Randoms Report |
| www.villu-reborn.com |
|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|
| Logged in : 24 |
| Trade[s] Made : 1 |
| Trade[s] Missed : 3 |
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~/
monkey776
02-23-2007, 10:43 PM
:spot: You rule :spot:
:spot::spot::spot:
:spot::spot::spot:
:spot::spot::spot:
Taylor
02-24-2007, 02:20 AM
OK, lets go over the checks. I have the latest version of SRL, Ive filled out everything, now read below :)
When I start it, it goes to the RuneScape window, but then clicks where the inventory should be(like its logged in). When I start it logged in, it does nothing. When I start it(at random), it will log in, but then do nothing.
Help would be gravely appreciated,
-TaylorV.
snobrder
02-24-2007, 02:43 AM
Dammnnnnnnnnnnnnnnnnnnn son wizzup u truly outdid yourself on this one
----------------------------------------------
Essence Miner by Wizzup?.
Version: 1.08
Rune Essence Mined and Banked : 6768.
Solved 12 Abyssal Random Events.
Missed 1 Abyssal Random Events.
Door Opened : 1.
Worked for 15 Hours, 37 Minutes and 12 Seconds
----------------------------------------------
0 : ncom = T; Loc = Bank; Banked: 1202 Ess; M lvl:44
1 : eeld = F; Loc = Abyss; Banked: 448 Ess; M lvl:39
2 : maum = T; Loc = Bank; Banked: 1131 Ess; M lvl:42
3 : ynjr = T; Loc = Bank; Banked: 1185 Ess; M lvl:42
4 : bany = T; Loc = Bank; Banked: 1090 Ess; M lvl:41
5 : ldch = F; Loc = Bank; Banked: 761 Ess; M lvl:39
6 : dopo = F; Loc = ScapeRune; Banked: 671 Ess; M lvl:37
7 : erta = F; Loc = Bank; Banked: 280 Ess; M lvl:33
----------------------------------------------
and this was with mith pics... if i had addy it would be much better
Taylor
02-24-2007, 03:01 AM
OK, lets go over the checks. I have the latest version of SRL, Ive filled out everything, now read below :)
When I start it, it goes to the RuneScape window, but then clicks where the inventory should be(like its logged in). When I start it logged in, it does nothing. When I start it(at random), it will log in, but then do nothing.
Help would be gravely appreciated,
-TaylorV.
Help please ;)
snobrder
02-24-2007, 03:04 AM
Help please ;)
Try this:
After setting everything up in the script target the RS window with the target thing
Next just click on the RS screen and start it with Ctrl+Alt+R
Taylor
02-24-2007, 03:10 AM
You know, why doesn't it work with the button? Thats just weird..
Thanks anyways man :)
snobrder
02-24-2007, 03:12 AM
You know, why doesn't it work with the button? Thats just weird..
Thanks anyways man :)
I don't know, the button normally doesn't work for me, it just tries to like click inventory when im not logged in
Taylor
02-24-2007, 03:13 AM
Exactly the same here.. Anyways now it logs in, but when logged, it does nothing.. Any ideas?
snobrder
02-24-2007, 03:14 AM
Exactly the same here.. Anyways now it logs in, but when logged, it does nothing.. Any ideas?
Your using the newest version 1.08 correct?
What im thinking is that your in a packed world and it cant pick colors but then again i am just starting with all this SCAR stuff so.....
Taylor
02-24-2007, 03:14 AM
Ya..
Wizzup?
02-24-2007, 08:06 AM
Help please ;)
Highest Brightness.
FirstWorld to False.
32 - Bit Colors.
Start in bank, logged out.
Drag Window.
Ctrl + Alt + R (or Run Button)
Thanks for all the progress reports! Keep them coming. :)
Neapsisprendes
02-24-2007, 12:28 PM
i will try it :)
Lamborg
02-24-2007, 02:49 PM
it is an awesome script!! but the problem is it stops after an hour or so? The script says next player. I'm only using 1 player to mine. I have already set the no. of players to 1 but it still logs out? any advice?
Killerdou
02-24-2007, 02:54 PM
it will wait some time i believe... and log in again but dont use 1 player, i'd advice at least 4, i use 6 myself...
Wizzup?
02-24-2007, 02:58 PM
it is an awesome script!! but the problem is it stops after an hour or so? The script says next player. I'm only using 1 player to mine. I have already set the no. of players to 1 but it still logs out? any advice?
Maybe the player got lost, and was set to false.
Lamborg
02-24-2007, 03:03 PM
does increasing the loads amount in line 20 helps?
Wizzup?
02-24-2007, 03:20 PM
Not when your player is false. But yes you could try.
omghax
02-24-2007, 05:09 PM
hey, this script is great wizzip? but thers 1 problem im having. When the player is mining, its then idle and since rs logs out automatically, it wont log back in >.< is there a way to make it not do this, or log back in automatically. Plz I would glady appreciate your help Thanks again, this script is great!
coolguy14136
02-24-2007, 06:21 PM
love the script but im havin the same problem, perhaps you could add a boredhuman; somewhere?
at line 1027 i enterd and it seems to keep me active, i love this script =p
wait(100);
boredhuman(1);
Wizzup?
02-24-2007, 07:02 PM
love the script but im havin the same problem, perhaps you could add a boredhuman; somewhere?
I think I added boredhuman, anyway, I will add a RandomGametab aswell/instead.
darkboarder7
02-25-2007, 08:24 AM
Is anyone else getting this/
[Runtime Error] : Out Of Range in line 41 in script
sorry if it is a noob question though
Wizzup?
02-25-2007, 08:32 AM
Read my tutorial on how to setup your players. :)
RudeBoiAlex
02-25-2007, 09:21 AM
boredhuman dont work for me i do like 2 trips on my 3rd it logs out.
savormix
02-25-2007, 11:08 AM
hey, this script is great wizzip? but thers 1 problem im having. When the player is mining, its then idle and since rs logs out automatically, it wont log back in >.< is there a way to make it not do this, or log back in automatically. Plz I would glady appreciate your help Thanks again, this script is great!
just levelup the mining and add a better pick :D
another report:
----------------------------------------------
Essence Miner by Wizzup?.
Version: 1.08
Rune Essence Mined and Banked : 1314.
Solved 3 Abyssal Random Events.
Worked for 3 Hours, 16 Minutes and 11 Seconds
----------------------------------------------
0 : = F; Loc = Oh Dear You Are in Lumby; Banked: 307 Ess; M lvl:31 //WRONG, it has run past the bank to the road near varrock museum
1 : = F; Loc = ToBank2; Banked: 280 Ess; M lvl:32 //Door was closed.
2 : = T; Loc = Bank; Banked: 727 Ess; M lvl:17
----------------------------------------------
and another...
----------------------------------------------
Essence Miner by Wizzup?.
Version: 1.08
Rune Essence Mined and Banked : 1287.
Solved 1 Abyssal Random Events.
Door Opened : 1.
Worked for 3 Hours, 12 Minutes and 27 Seconds
----------------------------------------------
0 : = F; Loc = Bank; Banked: 308 Ess; M lvl:34 //ehm it's actually evil bob's island
1 : = F; Loc = ScapeRune; Banked: 699 Ess; M lvl:32 //prison
2 : = F; Loc = ScapeRune; Banked: 280 Ess; M lvl:24 //evil bob's island
----------------------------------------------
RudeBoiAlex
02-25-2007, 11:16 AM
just levelup the mining and add a better pick :D
another report:
----------------------------------------------
Essence Miner by Wizzup?.
Version: 1.08
Rune Essence Mined and Banked : 1314.
Solved 3 Abyssal Random Events.
Worked for 3 Hours, 16 Minutes and 11 Seconds
----------------------------------------------
0 : = F; Loc = Oh Dear You Are in Lumby; Banked: 307 Ess; M lvl:31 //WRONG, it has run past the bank to the road near varrock museum
1 : = F; Loc = ToBank2; Banked: 280 Ess; M lvl:32 //Door was closed.
2 : = T; Loc = Bank; Banked: 727 Ess; M lvl:17
----------------------------------------------
and another...
----------------------------------------------
Essence Miner by Wizzup?.
Version: 1.08
Rune Essence Mined and Banked : 1287.
Solved 1 Abyssal Random Events.
Door Opened : 1.
Worked for 3 Hours, 12 Minutes and 27 Seconds
----------------------------------------------
0 : = F; Loc = Bank; Banked: 308 Ess; M lvl:34 //ehm it's actually evil bob's island
1 : = F; Loc = ScapeRune; Banked: 699 Ess; M lvl:32 //prison
2 : = F; Loc = ScapeRune; Banked: 280 Ess; M lvl:24 //evil bob's island
----------------------------------------------
I have 41 minning and an iron pick should i get mith pick?
takeNout
02-25-2007, 11:18 AM
Rune Essence Mined and Banked : 1592.
Solved 1 Abyssal Random Events.
Door Opened : 3.
Worked for 3 Hours, 22 Minutes and 23 Seconds
----------------------------------------------
0 : *** = T; Loc = ToBank2; Banked: 1268 Ess; M lvl:56 - Just stuck at aub
1 : *** = F; Loc = No GameTab; Banked: 324 Ess; M lvl:48 - Molly random
funky_nappy
02-25-2007, 12:05 PM
hi...i keep getting this problem any help would be greatly appreciated..
Include file C:\Program Files\SCAR 2.03\includes\SRL/SRL.scar does not exist.
Include file C:\Program Files\SCAR 2.03\includes\SRL/SRL/Skill/Mining.scar does not exist.
Failed when compiling
savormix
02-25-2007, 01:02 PM
I have 41 minning and an iron pick should i get mith pick?
I use steel, cheap and effective (now i'll move to addys).
A few tips:
1) Start at level 15+ mining (15 is minimum). Otherwise you will be logged off at your first/second trip.
2) Use a crowded world. This way rune shop door will get closed way less. Also it is harder to find out u didn't reply when someone is already undertaking the chat.
3) Use a good pickaxe. First, levelup attack to 5 on dummies right nearby and use a wielded steel one (500gp at numof). Later, move to the addy (rune isn't very effective if u plan getting banned)
4) keep combat level at least 20. You can stick to the steel pick and lvl 4 at the beggining, but levelup when u get to 21/31 mining. This will drastically reduce your chances of being reported and will allow to wield a better pickaxe.
5) use alot of players (simple, reduces the loss when logged off and greatly increases effectivity)
Hope this helps.
RudeBoiAlex
02-25-2007, 02:11 PM
Yes thanks il get a steel 1 right away i got lots of time on myhands so ill do big proggie if it works.
Wizzup?
02-25-2007, 02:27 PM
1.09
hi...i keep getting this problem any help would be greatly appreciated..
Include file C:Program FilesSCAR 2.03includesSRL/SRL.scar does not exist.
Include file C:Program FilesSCAR 2.03includesSRL/SRL/Skill/Mining.scar does not exist.
Failed when compiling
Hi and welcome to the forums, First off, may I suggest to you that you take the time to read the entire thread here, Yes I know, 20 + pages, but there wouldn't be, if you would have read them first, In particular, there is a post by me at the bottom of Page 16 you will find quite useful.....In the meantime, you have been awarded some very special points.....
NOOBY POINTS (yest to be determined by TooManySitUps)
Not Searching First-A great way to be a special type of Noob, Lazy Noob, is to say something that has been said before, or ask a question that has been answered a million times before. Losers like Boreas say search first, or look at Stickied Tutorials (http://www.villu-reborn.com/showthread.php?t=4845), but the best way is to be Lazy Noob and not bother. Go ahead and post whatever crap comes to your mind, without thinking about it first, or putting in effort, then sit back and watch those losers flame you.
After you read all of the pages here, Please take your time to familiarize yourself with these Tutorials, they will be very beneficial to your learing process.....
How to Be a Noob by TooManySitUps (http://www.villavu.com/forum/showthread.php?t=5265?t=6116)
and here in lays the answer to your question...you have not set Scar/SRL up properly.....
What The FAQ? (http://www.villavu.com/forum/showthread.php?t=4064?t=4845)
#7 You got a common error
See TOP 10 WIKI (http://wiki.srl-forums.com/index.php/Top_10)
See SETUPSRL (http://www.villavu.com/forum/showthread.php?t=4826?t=5650)
I sincerly hope this helps you, If you have any other questions pertaing to the Actual Script, Please feel free to post them here and Wizzup? will gladly help you out..But In the future, Please post all other questions in the approaite sections, RAM
And this does not just apply to funky_nappy, to anyone else reading this thread, Please take the time to read EVERY SINGLE PAGE HERE before you post a question, I've said this numerous times before and I hate sounding like your MOM, but there would be alot less pages to read through, If people weren't so dam lazy in the first place :fiery:
Wizzup?
02-25-2007, 02:32 PM
1.09
Thanks for the reply RAM.
1.09.
savormix
02-25-2007, 02:37 PM
1.09
ok then...
I'll post the progress 2morrow
RudeBoiAlex
02-25-2007, 03:02 PM
ok i got a steel pick tht didnt work bt anyway whats new in 1.9?doing proggy now
savormix
02-25-2007, 04:20 PM
----------------------------------------------
Essence Miner by Wizzup?.
Version: 1.09
Rune Essence Mined and Banked : 56.
Worked for 11 Minutes and 26 Seconds
----------------------------------------------
0 : = T; Loc = Bank; Banked: 56 Ess; M lvl:34
1 : = T; Loc = Bank; Banked: 0 Ess; M lvl:0
2 : = T; Loc = Bank; Banked: 0 Ess; M lvl:0
----------------------------------------------
Great. Anti-Logout.
Will need to get normal amount of loads. How many loads would take 3h? Approx. (you can tell me with rune pick)
RudeBoiAlex
02-25-2007, 04:39 PM
----------------------------------------------
Essence Miner by Wizzup?.
Version: 1.09
Rune Essence Mined and Banked : 587.
Solved 1 Abyssal Random Events.
Door Opened : 1.
Worked for 1 Hours, 30 Minutes and 42 Seconds
----------------------------------------------
0 : nan = T; Loc = Bank; Banked: 587 Ess; M lvl:42
----------------------------------------------
Stupid scaperune random got me it didnt show any randoms.
Wizzup?
02-25-2007, 07:31 PM
500 Ess a hour.
500 * 3 / 28 = Number Of loads. :)
RudeBoiAlex
02-25-2007, 08:15 PM
:) I got a better 1 but i cant make it last like 11 hours it said next playr when i set 1 but here
----------------------------------------------
Essence Miner by Wizzup?.
Version: 1.09
Rune Essence Mined and Banked : 950.
Solved 2 Abyssal Random Events.
Worked for 2 Hours, 30 Minutes and 4 Seconds
----------------------------------------------
0 : nan = T; Loc = ToBank2; Banked: 950 Ess; M lvl:42
----------------------------------------------
Yanan06.
Mined 950 Essence.
Mining level is 42
Location is ToBank2.
----------------------------------------------
----------------------------------------------
antknee3
02-25-2007, 11:44 PM
Wizzup? Once again your script is very nice but there seems to be a problem with switching players. When it is time to swich the script will wait until auto-logout and then not log in the next player. The SCAR box still says Next Player, but nothing happens. Any ideas?
3Garrett3
02-26-2007, 01:10 AM
Rune Essence Mined and Banked : 308.
Pure Essence Mined and Banked : 0.
Solved 1 Abyssal Random Events.
Missed 0 Abyssal Random Events.
Worked for 1 Hours, 11 Minutes and 44 Seconds
And this is with 24 mining and bronze pick
legendaryhero90
02-26-2007, 03:07 AM
ill try it out again and see if it works well
i sure hope it works.. :(
terkoiz
02-26-2007, 03:33 AM
for me when i run the scripts, it just logs me out. I have downloaded SRL, i just dont know why its happening....
phatal
02-26-2007, 05:04 AM
Wizzup? Once again your script is very nice but there seems to be a problem with switching players. When it is time to swich the script will wait until auto-logout and then not log in the next player. The SCAR box still says Next Player, but nothing happens. Any ideas?
I am getting the same problem anyway you can make a change so once it cycles through all players it will default back to the original starting act in an endless loop?
legendaryhero90
02-26-2007, 05:23 AM
for me when i run the scripts, it just logs me out. I have downloaded SRL, i just dont know why its happening....
it logs in to check for screen brightness then logs out...
THEN logs in and start auto mining ess... or at least it should.
I am getting the same problem anyway you can make a change so once it cycles through all players it will default back to the original starting act in an endless loop?
i believe you can but since it waits to auto log out.... it can logout anywhere so its a good idea to have 6- 8 players minimum
Wizzup?
02-26-2007, 09:36 AM
I am getting the same problem anyway you can make a change so once it cycles through all players it will default back to the original starting act in an endless loop?
That's exactly what the script does, lol.
Wizzup? Once again your script is very nice but there seems to be a problem with switching players. When it is time to swich the script will wait until auto-logout and then not log in the next player. The SCAR box still says Next Player, but nothing happens. Any ideas?
That normal, wait for rs to you out, then login the next player.
RudeBoiAlex
02-26-2007, 06:10 PM
Does using more players make it run longer?
3Garrett3
02-26-2007, 07:09 PM
For me, after it goes through the players once, it doesnt start over, even though the thing says next player, I left it for 2 hours and it had only worked for 1 then not logged in for the next hour, and just sat there.
RudeBoiAlex
02-26-2007, 07:51 PM
hmmm well i gta get 6 players together i just sold 4k ess on a noob acount for 122k
Sonyedorly
02-26-2007, 08:32 PM
thank you so much!!!
this script is amazing! I have made 1396 ess in a little over 2 hours!!!
so nice, gotta make some more noobs tho, right now I have two!
thanks again!
legendaryhero90
02-27-2007, 01:03 AM
left it on over night and ALL 6 of my players all got logged out in the mines... -.-
i was hoping for it to work better this time...
and plus the player log in didnt loop meaning after the last player... it just sat there... :(
god_im_emo
02-27-2007, 06:34 AM
haha yea this script made me lots of gold if it wasnt for this i wouldnt have started playing again thanks
legendaryhero90
02-27-2007, 02:18 PM
ran it overnight again...
got better though
----------------------------------------------
Essence Miner by Wizzup?.
Version: 1.09
Rune Essence Mined and Banked : 2588.
Solved 4 Abyssal Random Events.
Worked for 6 Hours, 11 Minutes and 36 Seconds
----------------------------------------------
/~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
| SRL Randoms Report |
| www.villu-reborn.com |
|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|
| Logged in : 6 |
| Trade[s] Missed : 1 |
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~/
Wizzup?
02-27-2007, 04:14 PM
left it on over night and ALL 6 of my players all got logged out in the mines... -.-
i was hoping for it to work better this time...
and plus the player log in didnt loop meaning after the last player... it just sat there... :(
Hm... The anti-logout still doesn't work!?
Problem is.. al my miners are mining 50+ so they don't logout. :(
RudeBoiAlex
02-27-2007, 04:31 PM
hmm well i have a 45 miner it dont log me out until 2 hours use wizzups power miner over night with noobs to get 40 - 50 mining. by the way wizup this scripts pwnz
the flea
02-27-2007, 07:38 PM
what is a remote control master? im just about to start running it and im wondering what to fill in here.
the flea
02-27-2007, 07:42 PM
i just started running it and i get this error :(
[Runtime Error] : Out Of Range in line 47 in script C:\Program Files\SCAR 2.03\Scripts\wizzup ess miner.scar
~PuRePoWeR~
02-27-2007, 10:11 PM
Why Wont It Let Me Paste My Progress Reports?
Dunceiam
02-27-2007, 10:32 PM
Why Wont It Let Me Paste My Progress Reports?
You should be able to just highlight the proggy in the debug box, then Ctrl+C (Copy). Then Ctrl+V to paste it here...
i just started running it and i get this error [Runtime Error] : Out Of Range in line 47 in script C:Program FilesSCAR 2.03Scriptswizzup ess miner.scar
You have not set-up your players correctly...If you're using 1 player, you fill out player[0]'s form, and then set your numberofusers to 1. If you're using 2 players you fill out player forms 0 and 1. And then set your numberofusers to 2. And the same pattern for how many players you want.
If you need a more detailed explanation, you can either go to Wizzup's Tut on how to set-up your players, http://www.villavu.com/forum/showthread.php?t=5410 or you can just ask me.:)
-Dunceiam
zenith22
02-27-2007, 10:56 PM
im having a problem when i start macro and i dont alter a thing on the script i log into rs and start script. it sits there for a little then logs me out help plz by the way im at bank
king vash
02-28-2007, 01:10 AM
having trouble with two things,
1. most of the time it gets to the essance rock but never mines.
2. doesn't bank, gets to bank opens bank, but doesn't deposit, hovers over tinderbox, and the inventory gametab
plz help, but otherwise crazy good script
king vash
02-28-2007, 02:06 AM
----------------------------------------------
Essence Miner by Wizzup?.
Version: 1.09
Worked for 4 Minutes and 25 Seconds
----------------------------------------------
0 : doom = T; Loc = Bank; Banked: 0 Ess; M lvl:0
----------------------------------------------
i have got it to mine once now, but normally it roams over the rock (text in corner is correct) but never clicks
~PuRePoWeR~
02-28-2007, 02:43 AM
You should be able to just highlight the proggy in the debug box, then Ctrl+C (Copy). Then Ctrl+V to paste it here...
You have not set-up your players correctly...If you're using 1 player, you fill out player[0]'s form, and then set your numberofusers to 1. If you're using 2 players you fill out player forms 0 and 1. And then set your numberofusers to 2. And the same pattern for how many players you want.
If you need a more detailed explanation, you can either go to Wizzup's Tut on how to set-up your players, http://www.villavu.com/forum/showthread.php?t=5410 or you can just ask me.:)
-Dunceiam
Okay thanks for the help, Ill try this next time I get a progress report [tomorrow]
EDIT:
Essence Miner by Wizzup?.
Version: 1.09
Pure Essence Mined and Banked : 1203.
Solved 1 Abyssal Random Events.
Worked for 2 Hours, 27 Minutes and 15 Seconds
Thanks Wizzup
~PuRePoWeR~
02-28-2007, 09:59 PM
Pure Essence Mined and Banked : 3691.
Solved 5 Abyssal Random Events.
Worked for 7 Hours, 10 Minutes and 35 Seconds
----------------------------------------------
0 : = T; Loc = Bank; Banked: 784 Ess; M lvl:62
1 : = T; Loc = Bank; Banked: 755 Ess; M lvl:62
2 : = T; Loc = Bank; Banked: 586 Ess; M lvl:62
3 : = T; Loc = Bank; Banked: 504 Ess; M lvl:62
4 : = T; Loc = Bank; Banked: 532 Ess; M lvl:62
5 : = T; Loc = Bank; Banked: 530 Ess; M lvl:62
ty again Wizzup :D
syberium
02-28-2007, 11:35 PM
check this out wizzup! this could have easily gone for 24hrs but i MANUALLY stopped to get on. its ok if i edited ur script a little bit right?
Rune Essence Mined and Banked : 7751.
Solved 10 Abyssal Random Events.
Door Opened : 3.
Worked for 16 Hours, 5 Minutes and 51 Seconds
Mouse Speed is 21
----------------------------------------------
0 : @@ = T; Loc = Bank; Banked: 1*03 Ess; M lvl:50
1 : @@ = T; Loc = Bank; Banked: 1*61 Ess; M lvl:48
2 : @@ = T; Loc = Bank; Banked: 1*17 Ess; M lvl:42
3 : @@ = T; Loc = Bank; Banked: 1*05 Ess; M lvl:47
4 : @@ = F; Loc = ScapeRune; Banked: 5*7 Ess; M lvl:43
5 : @@ = T; Loc = Bank; Banked: 1*03 Ess; M lvl:45
6 : @@ = T; Loc = Bank; Banked: 1*04 Ess; M lvl:55
7 : @@ = F; Loc = ToBank2; Banked: 3*1 Ess; M lvl:36
----------------------------------------------
added stars cuz im kind of paranoid =/
zenith22
03-01-2007, 12:25 AM
omg... i have been trying to get this to work for like 3 days now and Dunceiam has been trying to help me to get this to work. The problem is that i set up everything (at least i think i am) and it logs me into rs and then it goes in and logs me out. These are the thing im filling out where i am in rs what i have equiped and all other info:
the things im changing is that im deleting players 1-5 because i only have 1 user to afford members then filling in my player info with login and pass and nick as random letters and bank pin and the number of users near the top with the character i want to start on, thats the only stuff im touching in script.
In rs im at east bank in the middle facing north with screen at highest point. the brightness of my screen is at highest setting. i have pick equipped and a cape and some boots thats it. plz help!!!!!!!!
Ghetto
03-01-2007, 02:33 AM
Can someone get banned using this?
Is it possible to be detected at all using SCAR?
I'm just ...weary..and hesitant.
First time hacker.
*shrugs*
mikev
03-01-2007, 03:22 AM
lol, "first time hacker" ... thats not what we do.
yes theres a chance you can get banned. Yes SCAR is detectable if in the wrong or uneducated hands.
You can find some basic rules and answers here --> http://wiki.srl-forums.com/index.php/Main_Page
Hope this helps.
Dunceiam
03-01-2007, 03:25 AM
Ghetto, you can get banned using any script. But you can minimize your chance of being banned by not having a bad name such as, "Essminer101" Not using lvl 3 accounts, but rather lvl 20+ accounts. Getting other skills up as well as just mining, etc. To get your combat up, I recommend Wt-Fakawi's Goblin Scheduler. http://www.villavu.com/forum/showthread.php?t=2318
Btw, it's not "hacking" but rather macroeing...:)
-Dunceiam
stupedspam
03-01-2007, 04:02 AM
Awsome script!!! lots of amazing works by you and I personaly thank you!
*I'll try the new 1.09*
Been saving this good progress report...:D
----------------------------------------------
Essence Miner by Wizzup?.
Version: 1.08
Rune Essence Mined and Banked : 1443.
Solved 2 Abyssal Random Events.
Missed 1 Abyssal Random Events.
Worked for 5 Hours, 16 Minutes and 15 Seconds
----------------------------------------------
/~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
| SRL Randoms Report |
| ww.villu-reborn.com |
|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|
| Logged in : 9 |
| Trade[s] Missed : 1 |
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~/
Wizzup?
03-01-2007, 09:32 AM
check this out wizzup! this could have easily gone for 24hrs but i MANUALLY stopped to get on. its ok if i edited ur script a little bit right?
Rune Essence Mined and Banked : 7751.
Solved 10 Abyssal Random Events.
Door Opened : 3.
Worked for 16 Hours, 5 Minutes and 51 Seconds
Mouse Speed is 21
----------------------------------------------
0 : @@ = T; Loc = Bank; Banked: 1*03 Ess; M lvl:50
1 : @@ = T; Loc = Bank; Banked: 1*61 Ess; M lvl:48
2 : @@ = T; Loc = Bank; Banked: 1*17 Ess; M lvl:42
3 : @@ = T; Loc = Bank; Banked: 1*05 Ess; M lvl:47
4 : @@ = F; Loc = ScapeRune; Banked: 5*7 Ess; M lvl:43
5 : @@ = T; Loc = Bank; Banked: 1*03 Ess; M lvl:45
6 : @@ = T; Loc = Bank; Banked: 1*04 Ess; M lvl:55
7 : @@ = F; Loc = ToBank2; Banked: 3*1 Ess; M lvl:36
----------------------------------------------
added stars cuz im kind of paranoid =/
Maybe you can PM me your edits? Might be usefull. :)
@stupedspam, thanks for the report
Itzkirby
03-01-2007, 08:50 PM
Well it ran for one hour
----------------------------------------------
Essence Miner by Wizzup?.
Version: 1.09
Rune Essence Mined and Banked : 243.
Missed 1 Abyssal Random Events.
Door Opened : 2.
Worked for 1 Hours, 10 Minutes and 14 Seconds
----------------------------------------------
0 : = T; Loc = Bank; Banked: 189 Ess; M lvl:14
1 : = F; Loc = Abyss; Banked: 54 Ess; M lvl:0
2 : = T; Loc = Bank; Banked: 0 Ess; M lvl:41
----------------------------------------------
Then it was switching players and I got this
[Runtime Error] : Exception: Access violation at address 00653F79 in module 'scar.exe'. Read of address 014AFFFE in line 1084 in script C:\Program Files\SCAR 2.03\includes\srl\srl\core\AntiRandoms\AntiRandoms .scar
Euro-Stylz
03-01-2007, 09:55 PM
Amazing script thanks i made 100k for 4 hours of ess mining lots of thanks, i can tell you worked really hard
dertykid555
03-02-2007, 03:58 AM
GREAT JOB WIZZUP !!!
Got 2000 ess first night now got 700 pure
1 question though my player keeps getting lost !!! I only have 2 guys rite now doing it and i'm wondering if i can wright down there names twice ???
Would that help or hinder things ?
i'm new at this so thansk for you pationce
ExplosiveMan
03-02-2007, 04:00 AM
Another great piece of work by Wizzup? Keep up the good work, I look forward to seeing more work from you!
Euro-Stylz
03-02-2007, 04:07 AM
Im going to do a major macro tonight ill post the reports in the morning im going to do 6 players mining 2k of ess each soo ill post the results thnx soo much Wizzup :D
ExplosiveMan
03-02-2007, 04:29 AM
I have been waiting for a time to use it over night but my computer is shared and I can't seem to get on and run it over night :( But when I get the time I will do it and tell you aobut it
Wizzup?
03-02-2007, 09:28 AM
GREAT JOB WIZZUP !!!
Got 2000 ess first night now got 700 pure
1 question though my player keeps getting lost !!! I only have 2 guys rite now doing it and i'm wondering if i can wright down there names twice ???
Would that help or hinder things ?
i'm new at this so thansk for you pationce
Nope, that won't work, they will still be lost. :)
thisisme
03-02-2007, 12:03 PM
first
i love the script :)
and maby i will donate a million rs gold later when i got some :) (if it isen't unlegal on this forum)
but some times it ends up here
http://img225.imageshack.us/img225/5096/unavngivetva1.jpg
Euro-Stylz
03-02-2007, 12:20 PM
Hey Wizzup,
Lol i ran into Bob the evil cat umm
i dont think the script has any support for him
like the anti-random
so im sorry i cant post my report lol i want it complete
ill run another one duting the day
Edit: Nevermind it does
getting some errors like: out of reach.
when i delete the multiple users. it logs in, logs out
Euro-Stylz
03-02-2007, 08:56 PM
heres my report =D
----------------------------------------------
0 : war = F; Loc = ScapeRune; Banked: 392 Ess; M lvl:34
1 : mag = F; Loc = Aubury; Banked: 1637 Ess; M lvl:21
2 : war2 = F; Loc = ToBank2; Banked: 112 Ess; M lvl:35
3 : mag2 = F; Loc = Bank; Banked: 0 Ess; M lvl:30
4 : war3 = F; Loc = ScapeRune; Banked: 280 Ess; M lvl:35
5 : mag3 = T; Loc = Aubury; Banked: 0 Ess; M lvl:30
----------------------------------------------
my 2 charas war2 and wa3 got stuck in the [place were you have to pop the ballons though =( can someone fix it if you can =D
RudeBoiAlex
03-02-2007, 09:45 PM
Thats a scaperne random i dont think this script solves it :(
Wizzup?
03-03-2007, 09:23 AM
first
i love the script :)
and maby i will donate a million rs gold later when i got some :) (if it isen't unlegal on this forum)
but some times it ends up here
http://img225.imageshack.us/img225/5096/unavngivetva1.jpg
Donations are always welcome. :p
To everyone, SRL does not solve ScapeRune randoms, neither does my script.
I downloaded your script and I'm having trouble making it work. Could you post something explaining all what you have to do to make the script work just after you have opened it with scar? It would be really helpfull. By the way I'm a newcommer here and I don't understand some more complicated terms. (Like player 'nick') I would like it if you could explain these too.
Mined 588 Essence.
Mining level is 45
Location is Bank.
--
thx for making this script. im buying membership soon.
Ruroken
03-03-2007, 04:38 PM
Wizzy, after im done with your (excellent) VEM i'll take the time to run RMQ on 8 players and give you a proggie :p
Dunceiam
03-03-2007, 04:51 PM
I downloaded your script and I'm having trouble making it work. Could you post something explaining all what you have to do to make the script work just after you have opened it with scar? It would be really helpfull. By the way I'm a newcommer here and I don't understand some more complicated terms. (Like player 'nick') I would like it if you could explain these too.
I've already replied to you in Wizzup's Tut on how to set-up your players, but I'll repeat my-self here..:)
Okay, with your nick-name, you want to choose 3-4 letters, that people don't commonly say. If my name was Dunceiam, I may want unc,cei,eia,nce. Because the whole point of your nickname is to spot randoms. Let's say your name is "Monkeysonice" Mon wouldn't be good, because people commonly say "money"
And now for the player-setup. Before you said that you only wanted to use 1 character.
Begin
HowManyPlayers:= NumberOfUsers;
NumberOfPlayers( HowManyPlayers );
CurrentPlayer := StartPlayer;
Players[0].Name :='Username';
Players[0].Pass :='Password';
Players[0].Nick :='Nick-name';
Players[0].Loc :='Bank';
Players[0].Active:=True;
Players[0].Boolean1 := True; // Is The Pick Equipped?
Since you want to use 1 player, you want to delete all the other player forms.
Const
StartPlayer = 0; // The Number of the player you wish to start with.
NumberOfUsers = 1; // The Number of users you use.
MinutesPerLoad = 5; // No need to change this.
Loads = 10; // I liked 10 as loads value.
VersionNumber = '1.06'; // No need to change this.
YourSRLDSTATSID = ''; // Stats ID. Optional.
YourSRLDSTATSPASS = ''; // Stats Pass. Optional.
YourRCMASTER = ''; // Remote Control Master. Optional.
You'd want to change NumberofUsers to 1. And then all the others are up to you.
I believe that should get it started up...:p
-Dunceiam
openthedoor754
03-03-2007, 07:47 PM
i'm having trouble for this script to stay working... it does work, but for some reason it stops every once and awhile, gives me this:
Mined 279 Essence.
Mining level is 53
Location is Mine.
----------------------------------------------
----------------------------------------------
NextPlayer
i'm guessing i have to change the loads value... right?
legendaryhero90
03-03-2007, 07:52 PM
ran it again...
it sometimes misses Aubury. why? i think its becuase he is covered by people and the script sometimes lag when trying to find his text...
it never found aubury and i got autologged out. can you fix it so if it does get logged out... the next player can still log in?
openthedoor754
03-03-2007, 08:15 PM
well... i changed the "loads" value to 100, and got this to happen
Mined 140 Essence. (that's 5 loads)
Mining level is 53
Location is Bank.
----------------------------------------------
----------------------------------------------
NextPlayer
any help?
Wizzup?
03-03-2007, 09:02 PM
i'm having trouble for this script to stay working... it does work, but for some reason it stops every once and awhile, gives me this:
Mined 279 Essence.
Mining level is 53
Location is Mine.
----------------------------------------------
----------------------------------------------
NextPlayer
i'm guessing i have to change the loads value... right?
Yes that should do it.
well... i changed the "loads" value to 100, and got this to happen
Mined 140 Essence. (that's 5 loads)
Mining level is 53
Location is Bank.
----------------------------------------------
----------------------------------------------
NextPlayer
any help?
Your player might got False?
Itzkirby
03-03-2007, 10:23 PM
Great script but my charcters is always getting lost and becoming false. I found 1 guy in mine and 1 in aubury shop, both were false
Wy do i always get this prob in the script plz?
Include file C:\Program Files\SCAR 2.03\includes\SRL/SRL.scar does not exist.
Include file C:\Program Files\SCAR 2.03\includes\SRL/SRL/Skill/Mining.scar does not exist.
(in line 2 and 3)
thx
*fixed problem*
3Garrett3
03-03-2007, 11:14 PM
Wy do i always get this prob in the script plz?
Include file C:\Program Files\SCAR 2.03\includes\SRL/SRL.scar does not exist.
Include file C:\Program Files\SCAR 2.03\includes\SRL/SRL/Skill/Mining.scar does not exist.
(in line 2 and 3)
thx
You dont have SRL installed
You dont have SRL installed
Im sure i have it installed so i will try now to reinstall it.
thx anyway reinstalling it worked
Well sometimes its mines one load then logs off and not logs back in and this si what i wrote please tell me whats wrong
Const
StartPlayer = 0;
NumberOfUsers = 0;
MinutesPerLoad = 5;
Loads = 70000;
VersionNumber = '1.09';
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, IdleMark2, Doors: Integer;
PortalBool, PouchBool, PouchBool2 : Boolean;
Procedure DeclarePlayers;
Begin
HowManyPlayers:= NumberOfUsers;
NumberOfPlayers( 1 );
CurrentPlayer := StartPlayer;
Players[0].Name :='il burt il';
Players[0].Pass :='***********';
Players[0].Nick :='bur';
Players[0].Loc :='Bank';
Players[0].Active:=True;
Players[0].Boolean1 := False; // Is The Pick Equipped?
Players[0].Boolean2 := False; // False for brightness Check Once.
Players[0].String1 := ''; // Bank PIN, If any.
Covert
03-04-2007, 12:32 AM
If I start in the east bank it logs me out, with or without a pickaxe, if I start it with the bank open, it puts the mouse over one of my items and says spotted random, then the script just sits their doing nothing until I log out
Euro-Stylz
03-04-2007, 02:14 AM
Heres another Report However the Mime anti-Random dint work
0 : war = F; Loc = ScapeRune; Banked: 647 Ess; M lvl:0
1 : mag = F; Loc = No GameTab; Banked: 209 Ess; M lvl:30
2 : war2 = F; Loc = ScapeRune; Banked: 698 Ess; M lvl:0
3 : mag2 = F; Loc = No GameTab; Banked: 0 Ess; M lvl:0
4 : war3 = F; Loc = Aubury; Banked: 168 Ess; M lvl:38
5 : mag3 = F; Loc = Mime; Banked: 0 Ess; M lvl:0
| SRL Randoms Report |
| www.villu-reborn.com |
|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|
| Logged in : 7 |
| Trade[s] Missed : 3 |
| Talking Random[s] : 1 |
| SandWich[es] Solved : 1 |
| Mime[s] found : 1 |
| ScapeRune[s] found : 2 |
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~/
After 2h of testing i came to this conclusion:
the good part: almost everything (thanks to wizzup)
the bad part which anyone tell me how to fix them thank you:
1.minor problem occasonnaly the person will go to the mine and well not mine and come back to the bank.(this one is not a big problem since it will still continu anyway)
2.the bigger problem the script will stop completly but rarely and display this problem
[Runtime Error] : Exception: Access violation at address 00653F79 in module 'scar.exe'. Read of address 01E77FFE in line 1084 in script C:\Program Files\SCAR 2.03\includes\srl\srl\core\AntiRandoms\AntiRandoms .scar
soo it makes it a problem running it throught the night
rkroxpunk
03-04-2007, 03:45 AM
EVERYONE READ!!!!!
when you first run the god damn script it logs you in then straight away logs you
out. then wait a little bit and it will log you in and the script will start!!!!!
Euro-Stylz
03-04-2007, 04:04 AM
[Runtime Error] : Exception: Access violation at address 00653F79 in module 'scar.exe'. Read of address 01E77FFE in line 1084 in script C:\Program Files\SCAR 2.03\includes\srl\srl\core\AntiRandoms\AntiRandoms .scar
soo it makes it a problem running it throught the night
Update you're scar go to file and update includes i think, correction it is download includes then try runing:)
qweqwe
03-04-2007, 07:59 AM
in love, i can make at least 1 mill worth of ess perday, only stops working with randoms like bob the evil cat and that balloon thing
Wizzup?
03-04-2007, 09:27 AM
After 2h of testing i came to this conclusion:
the good part: almost everything (thanks to wizzup)
the bad part which anyone tell me how to fix them thank you:
1.minor problem occasonnaly the person will go to the mine and well not mine and come back to the bank.(this one is not a big problem since it will still continu anyway)
2.the bigger problem the script will stop completly but rarely and display this problem
[Runtime Error] : Exception: Access violation at address 00653F79 in module 'scar.exe'. Read of address 01E77FFE in line 1084 in script C:\Program Files\SCAR 2.03\includes\srl\srl\core\AntiRandoms\AntiRandoms .scar
soo it makes it a problem running it throught the night
Did you set your nick?
Gwallunit
03-04-2007, 02:27 PM
Essence Miner by Wizzup?.
Version: 1.09
Pure Essence Mined and Banked : 196.
Worked for 24 Minutes and 11 Seconds
nice script !
frederick213
03-04-2007, 03:09 PM
here's my proggy. this script is the best i've come accross with yet. fyi, i run this script with only one account, and if you ask me, this proggy is really impressive. his mining all the way to 54 just all from your script, and he's mined over 30k pure ess. thanks a lot!
----------------------------------------------
Essence Miner by Wizzup?.
Version: 1.08
Pure Essence Mined and Banked : 2236.
Solved 4 Abyssal Random Events.
Worked for 5 Hours, 43 Minutes and 15 Seconds
----------------------------------------------
0 : for = F; Loc = ToBank2; Banked: 84 Ess; M lvl:54
1 : for = F; Loc = Aubury; Banked: 2152 Ess; M lvl:54
2 : for = F; Loc = Bank; Banked: 0 Ess; M lvl:55
3 : for = T; Loc = Bank; Banked: 0 Ess; M lvl:55
4 : = T; Loc = Bank; Banked: 0 Ess; M lvl:0
5 : = T; Loc = Bank; Banked: 0 Ess; M lvl:0
----------------------------------------------
Mjordan
03-04-2007, 03:14 PM
@frederick213, wow dude thats alot for one account. if your not careful that guys gonna get banned really fast, if you have anything on him i'd take trade it to another account. but good proggy.
Did you set your nick?
yes i did...
legendaryhero90
03-04-2007, 05:35 PM
here's my proggy. this script is the best i've come accross with yet. fyi, i run this script with only one account, and if you ask me, this proggy is really impressive. his mining all the way to 54 just all from your script, and he's mined over 30k pure ess. thanks a lot!
----------------------------------------------
Essence Miner by Wizzup?.
Version: 1.08
Pure Essence Mined and Banked : 2236.
Solved 4 Abyssal Random Events.
Worked for 5 Hours, 43 Minutes and 15 Seconds
----------------------------------------------
0 : for = F; Loc = ToBank2; Banked: 84 Ess; M lvl:54
1 : for = F; Loc = Aubury; Banked: 2152 Ess; M lvl:54
2 : for = F; Loc = Bank; Banked: 0 Ess; M lvl:55
3 : for = T; Loc = Bank; Banked: 0 Ess; M lvl:55
4 : = T; Loc = Bank; Banked: 0 Ess; M lvl:0
5 : = T; Loc = Bank; Banked: 0 Ess; M lvl:0
----------------------------------------------
thats hard to believe since randoms will almost always kill any scripts...
wizzup why does the script stop after one of my chars get a random box??? scar stayed idle and i got logged off and it just sat there at the log in screen??? :eek:
xist2spire
03-04-2007, 07:30 PM
nice script! i do have a few questions however. If i sign up for members, and i use this for pure essence, and i mine 10k, then take a 1 hour break, then mine another 10k per day, what are the chances of me getting banned?
*Shadow*
03-04-2007, 08:06 PM
It runs fine for me until it teleports with aubury, and then when my character is in the mine it pauses for about 3 seconds with the mouse over the rune essence (but it doesn't click) then it clicks on the transportation symbol, rotates the camera a couple times. It clicks on portal, and continues rotating the camera about 2 times, then it clicks on the entrance of one of the houses south of aubury. And after a second or two it logs me out.
Heres the log thingy:
SRL Compiled in 360msec.
1 Players
*my characters name*
*my characters name*
Pick head colors... 3095343 4017213 3687736 3820090 4478276
RuneShopColor = 5211787
Found with Floor3 bmp.
Exact Color Found
Distance = 49
Walking INTO the shop now...
In Abyss gave 297.
Our position is South-West.
Through The portal
The door is open
Bank not found
Successfully executed
Right after bold part is when the mouse hovers over the rune essence.
ducels
03-04-2007, 08:17 PM
Essence Miner by Wizzup?.
Version: 1.09
Rune Essence Mined and Banked : 1053.
Door Opened : 2.
Worked for 3 Hours, 13 Minutes and 49 Seconds
----------------------------------------------
0 : x= T; Loc = Bank; Banked: 243 Ess; M lvl:13
1 : x= T; Loc = Bank; Banked: 324 Ess; M lvl:12
2 : x= T; Loc = Bank; Banked: 270 Ess; M lvl:7
3 : x= T; Loc = Bank; Banked: 216 Ess; M lvl:5
As others have said, very happy with the way it ran :) I encountered no problems and it leveled my accounts up to ~13 mining each in that time.
qweqwe
03-04-2007, 08:20 PM
@frederick213, wow dude thats alot for one account. if your not careful that guys gonna get banned really fast, if you have anything on him i'd take trade it to another account. but good proggy.
yo i mined 3 mill worth of essence no ban, no black mark nothing ^^
Flame Guard
03-04-2007, 09:21 PM
im new to this but i left it on for 5 hours and no randoms kinda weird isnt it? :spot:
qweqwe
03-04-2007, 10:12 PM
naw the only randoms is like the abyss prision pete and evil cat
Ransom
03-04-2007, 11:53 PM
EDIT: I'm dumb....i'll shut up. lol. misposted
Powered by vBulletin® Version 4.2.1 Copyright © 2024 vBulletin Solutions, Inc. All rights reserved.