View Full Version : [SRL]Sumilions Rimmington Miner
Hugolord
08-29-2007, 04:48 PM
Yep, the autocolor isnt perfect, far from it actually... it only works when its raining outside and a man shouts from under a umbrella 'Work damn you!'.
You can always turn the autocolor off and fill it in yourself everytime you go into a new world. Read the first page how to do so, and im happy to hear you read through it :)
Sum about the autocolor yer i know how it feels it tried using a similar way as you do but it failed sometimes too so i have an idea lets talk on msn about it pls?
TheGhostofChristmasPast
08-29-2007, 07:13 PM
got SRL 4 yet?
nope, where do i get it? and how do I actually run this stuff, i'm just opening it up from scar. I use to do this but now I'm retarded lol
Hugolord
08-29-2007, 07:16 PM
nope, where do i get it? and how do I actually run this stuff, i'm just opening it up from scar. I use to do this but now I'm retarded lol
maybe you should grab some cocoa and a cookie then come back to these forums when you're not retarded and you can read...
honestly if people are going to be like this I'm not going to help them any longer
we are not here to serve you, you must also contribute and try to figure out thing YOURSELF !
TheGhostofChristmasPast
08-29-2007, 07:27 PM
maybe you should grab some cocoa and a cookie then come back to these forums when you're not retarded and you can read...
honestly if people are going to be like this I'm not going to help them any longer
we are not here to server you, you must also contribute and try to figure out thing YOURSELF !
I know you are not here to server me, I'm just going to delete what I have done sofar and go back through all this shit. I use to use this compiler and program system pretty frequently but I am not up to the task of catching up with this bs right now. Thanks for trying to be condescending:)
Hugolord
08-29-2007, 07:33 PM
I know you are not here to server me, I'm just going to delete what I have done sofar and go back through all this shit. I use to use this compiler and program system pretty frequently but I am not up to the task of catching up with this bs right now. Thanks for trying to be condescending:)
WTF?
up to??
up to what?
do you have any idea how much work it is to make a scritp ( a good script) ??
or any idea how much work to build SRL???
obviously not and you still say you can't install things some of US made???
if not then you don't deserve to auto
TheGhostofChristmasPast
08-29-2007, 07:42 PM
WTF?
up to??
up to what?
do you have any idea how much work it is to make a scritp ( a good script) ??
or any idea how much work to build SRL???
obviously not and you still say you can't install things some of US made???
if not then you don't deserve to auto
well first loading up srl4 is proving to be different that previous versions, and yes I do know how hard it is to write scripts I've taken a couple programming classes, I know how pisser it can get. you didn't need to be so rude, its what you do with your life if you choose not to help me then just don't help, you do not have to go off and waste your time trying to yell at me to make me feel inferior and you superior lol
Hugolord
08-29-2007, 07:49 PM
well first loading up srl4 is proving to be different that previous versions, and yes I do know how hard it is to write scripts I've taken a couple programming classes, I know how pisser it can get. you didn't need to be so rude, its what you do with your life if you choose not to help me then just don't help, you do not have to go off and waste your time trying to yell at me to make me feel inferior and you superior lol
its just different this time because it involves more than 3 mouse clicks?
[-jesus-]
08-29-2007, 07:51 PM
<========== RimmingtonMiner ============>
<======= -0.25- Progress Report ========>
/=======================================\
Worked for 39 Minutes and 9 Seconds
Banked 6 loads[s].
Mined 166 ores.
Received 1 gem[s].
\=======================================/
Name : *******
Mining Lvl : 52
Worked for : 0 minutes.
Banked : 6 time[s].
Active : True
Location : no RoadColor
\\-------------------------------------//
0: Pure-ELlow = True, 6 Bank[s], Worked 0 minutes, Loc: no RoadColor
<==========================================>
Couldn't find roadcoler O.o
P.s. I r a n00bc4k3 :p
Take your name out of that proggy...
It lost the road many times
I had this like 5 times..=\:
Failed to find the road using SumFindRoadColor.
Trying default autocoloring.
Could not find Falador Road Color!
RoadColor = 0
Failed to find the road color.
Leaving it what it was.
Failed to find the road using SumFindRoadColor.
Trying default autocoloring.
Could not find Falador Road Color!
RoadColor = 0
Failed to find the road color.
Leaving it what it was.
Player Lost, timed out (5)
Invalid Script ID
<========== RimmingtonMiner ============>
<======= -0.25- Progress Report ========>
/=======================================\
Worked for 21 Minutes and 22 Seconds
Banked 2 loads[s].
Mined 56 ores.
Avoided gas 2 time[s].
\=======================================/
Name : Goid met extra veel B
Mining Lvl : 53
Worked for : 0 minutes.
Banked : 2 time[s].
Active : True
Location :
\\-------------------------------------//
0: SiDigOId = True, 2 Bank[s], Worked 0 minutes, Loc:
<==========================================>
Sumilion
08-29-2007, 08:36 PM
It lost the road many times
I had this like 5 times..=\:
Failed to find the road using SumFindRoadColor.
Trying default autocoloring.
Could not find Falador Road Color!
RoadColor = 0
Failed to find the road color.
Leaving it what it was.
Failed to find the road using SumFindRoadColor.
Trying default autocoloring.
Could not find Falador Road Color!
RoadColor = 0
Failed to find the road color.
Leaving it what it was.
Player Lost, timed out (5)
Invalid Script ID
<========== RimmingtonMiner ============>
<======= -0.25- Progress Report ========>
/=======================================\
Worked for 21 Minutes and 22 Seconds
Banked 2 loads[s].
Mined 56 ores.
Avoided gas 2 time[s].
\=======================================/
Name : Goid met extra veel B
Mining Lvl : 53
Worked for : 0 minutes.
Banked : 2 time[s].
Active : True
Location :
\\-------------------------------------//
0: SiDigOId = True, 2 Bank[s], Worked 0 minutes, Loc:
<==========================================>
Where was it ?
@hugolord, i kinda agree with the other guy, you over reacted a bit.
How to run in baby steps :
Install SRL (search for tut)
Download script and open it
Go through installation guide inside script
Focus scar on rs by dragging the crosshair to it
Press Play...
TheGhostofChristmasPast
08-29-2007, 10:00 PM
got it working, it likes to think a gas event is happening all the time though
[-jesus-]
08-30-2007, 01:36 AM
got it working, it likes to think a gas event is happening all the time though
What kind of clothes are you wearing while mining?
<========== RimmingtonMiner ============>
<======= -0.25- Progress Report ========>
/=======================================\
Worked for 49 Minutes and 38 Seconds
Banked 7 loads[s].
Mined 196 ores.
\=======================================/
Name : 67868
Mining Lvl : 53
Worked for : 0 minutes.
Banked : 7 time[s].
Active : True
Location : no RoadColor
\\-------------------------------------//
0: 9889768678 = True, 7 Bank[s], Worked 0 minutes, Loc: no RoadColor
<==========================================>
It didnt bank.. and it logged out at the copperrockMMcolour blablabla
Sumilion
08-30-2007, 09:01 AM
got it working, it likes to think a gas event is happening all the time though
Yep, your probably wearing something white, dont.
chrsk13
08-30-2007, 03:28 PM
Every time i try to run it it says this: [Runtime Error] : Out Of Range in line 68 in script C:\Documents and Settings\Chris Koos\Desktop\SRM v0.25.scar
Nebuli
08-30-2007, 04:11 PM
Every time i try to run it it says this: [Runtime Error] : Out Of Range in line 68 in script C:\Documents and Settings\Chris Koos\Desktop\SRM v0.25.scar
Your doing something wrong :P have you set your players right, I guess its about that becuz its line 68.. sry if im wrong :D
[-jesus-]
08-30-2007, 10:12 PM
Every time i try to run it it says this: [Runtime Error] : Out Of Range in line 68 in script C:\Documents and Settings\Chris Koos\Desktop\SRM v0.25.scar
Make sure this is correct since I guess you are only using 1 acc to mine:
HowManyPlayers := 5;//MAKE SURE THIS ONE IS CORRECT!
Now cut out all the other Player Arrays so only 1 is left ( the 1 w/ acc you're using).
<========== RimmingtonMiner ============>
<======= -0.25- Progress Report ========>
/=======================================\
Worked for 19 Minutes and 46 Seconds
Banked 1 loads[s].
Mined 0 ores.
\=======================================/
Name : -----
Mining Lvl : 1
Worked for : 0 minutes.
Banked : 0 time[s].
Active : True
Location :
\\-------------------------------------//
0: ---- = False, 1 Bank[s], Worked 9 minutes, Loc: no RoadColor
1: ---- = True, 0 Bank[s], Worked 0 minutes, Loc:
<==========================================>
Time is up
NextPlayer
-----
Pick head colors... 5148 65536 65536 2111818 1517362
RoadColor = 7309965
RoadColor = 7369337
Time is up
Failed to find the road using SumFindRoadColor.
Trying default autocoloring.
Could not find Road Color!
RoadColor = 0
Failed to find the road color.
Leaving it what it was.
Successfully executed
worked fine on player one logged out and into player 2 who was the bank
i logged in on player 2 and he was at the mining spot with nothing in the inv so i dont know what happend
im also using the auto color (not picked the mine ores colors)
ancheta543
08-31-2007, 03:19 AM
yeah um i cant get this autominer to work it keeps on saying line 64 error unknown identifier strings
[-jesus-]
08-31-2007, 03:20 AM
<========== RimmingtonMiner ============>
<======= -0.25- Progress Report ========>
/=======================================\
Worked for 19 Minutes and 46 Seconds
Banked 1 loads[s].
Mined 0 ores.
\=======================================/
Name : -----
Mining Lvl : 1
Worked for : 0 minutes.
Banked : 0 time[s].
Active : True
Location :
\\-------------------------------------//
0: ---- = False, 1 Bank[s], Worked 9 minutes, Loc: no RoadColor
1: ---- = True, 0 Bank[s], Worked 0 minutes, Loc:
<==========================================>
Time is up
NextPlayer
-----
Pick head colors... 5148 65536 65536 2111818 1517362
RoadColor = 7309965
RoadColor = 7369337
Time is up
Failed to find the road using SumFindRoadColor.
Trying default autocoloring.
Could not find Road Color!
RoadColor = 0
Failed to find the road color.
Leaving it what it was.
Successfully executed
worked fine on player one logged out and into player 2 who was the bank
i logged in on player 2 and he was at the mining spot with nothing in the inv so i dont know what happend
im also using the auto color (not picked the mine ores colors)
Change to SCAR tags plz. I'll erase this post once you do it ;)
yeah um i cant get this autominer to work it keeps on saying line 64 error unknown identifier strings
Make sure you have SRL4 Beta installed correctly. Read how to install here (http://www.villavu.com/forum/showthread.php?t=15544)
WrongTurn
09-01-2007, 10:31 AM
Line 25: [Error] (25:5): Duplicate identifier 'UpChars' in script C:\Program Files\SCAR 3.11\includes\srl\srl\core\Globals.scar
What does this mean?
Sumilion
09-01-2007, 10:43 AM
Not sure, do you have SRL 4 ?
Harry
09-01-2007, 01:03 PM
Gonna run! =]
WrongTurn
09-02-2007, 09:15 AM
No it will not let me download SRL 4 sorry I thought it was 3.8.
koolkishan
09-04-2007, 01:21 PM
Need some help, everytime i run this script i get this error message :
Line 67: [Error] (7055:1): Unknown identifier 'ChangeFPHandle' in script C:\Program Files\SCAR 3.11\includes\srl\srl\misc\SCSS.scar
whats going wrong?:confused:
thanks
Sumilion
09-04-2007, 01:39 PM
You didnt follow the SRL installation correctly.
koolkishan
09-04-2007, 02:44 PM
You didnt follow the SRL installation correctly.
yup ure right, as usual ha now ive got it working sorta just one problem that always happens.. when it has mined all ore it walks to middle, then to above the copper ores then cant find road colour.. this is the exact error:
-----------
Failed to find the road using SumFindRoadColor.
Trying default autocoloring.
Could not find Road Color!
RoadColor = 0
Failed to find the road color.
Leaving it what it was.
Failed to find the road using SumFindRoadColor.
Trying default autocoloring.
Could not find Road Color!
RoadColor = 0
Failed to find the road color.
Leaving it what it was.
Failed to find the road using SumFindRoadColor.
Trying default autocoloring.
Could not find Road Color!
RoadColor = 0
Failed to find the road color.
Leaving it what it was.
Failed to find the road using SumFindRoadColor.
Trying default autocoloring.
Could not find Road Color!
RoadColor = 0
Failed to find the road color.
Leaving it what it was.
Player Lost, timed out (3)
-----------------------
any ideas???
Sumilion
09-04-2007, 02:55 PM
Were you watching when it happened ? It might've been that SRL logged it out ...
Xeroz
09-08-2007, 06:12 PM
Gah!
I love it ^_^
Been running it.
Ill post any good proggies i get.
TYVM
Czepa
09-09-2007, 07:41 AM
ok, so i just downloaded this script for the first time today... first of all, WOW. very nice mining and the walking.. its good, but in some places its a bit :(
wasnt working very well for me, but i figured out wearing bunny ears whilst mining was doing it. then the problem which is causing it to stop every so often...
when it has mined a full load and starts to walk back... it clicks on the mining symbol then clicks up the top THEN... looks for the road color, and although the road is on the mininmap i dont think enough of it is showing for it to work.. therefore it logs me out here: http://img101.imageshack.us/img101/9632/mapha2.png and script continues to pump out (on the login page):
Failed to find the road using SumFindRoadColor.
Trying default autocoloring.
Could not find Road Color!
RoadColor = 0
over and over and over.. (this is after it has logged out)
so what i think should be done it just modifying it to go 2 clicks upward from the symbol before it trys to find road color instead of 1
cheers ,
Czepa
EDIT: one other small problem with the walking is the transition from lighter to darker road color as coming out of falador: it clicks at the end of the light color in roughly the same spot about 4 or 5 times before gaining the color of the darker road... i was just thinking that it might make the script more detectable.http://img380.imageshack.us/img380/2456/map2pr7.png
Negaal
09-09-2007, 08:48 AM
one other small problem with the walking is the transition from lighter to darker road color as coming out of falador: it clicks at the end of the light color in roughly the same spot about 4 or 5 times before gaining the color of the darker road... i was just thinking that it might make the script more detectable.http://img380.imageshack.us/img380/2456/map2pr7.png
line 955
FFlag(5);
to
flag;
Sumilion
09-09-2007, 09:51 AM
ok, so i just downloaded this script for the first time today... first of all, WOW. very nice mining and the walking.. its good, but in some places its a bit :(
Hehe, Thnx.
wasnt working very well for me, but i figured out wearing bunny ears whilst mining was doing it. then the problem which is causing it to stop every so often...
Yep, any white stuff messes up the gas finding.
when it has mined a full load and starts to walk back... it clicks on the mining symbol then clicks up the top THEN... looks for the road color, and although the road is on the mininmap i dont think enough of it is showing for it to work.. therefore it logs me out here: http://img101.imageshack.us/img101/9632/mapha2.png and script continues to pump out (on the login page):
Failed to find the road using SumFindRoadColor.
Trying default autocoloring.
Could not find Road Color!
RoadColor = 0
over and over and over.. (this is after it has logged out)
I know what that problem is, and its not in my script actually. RadialRoadWalk messes it up by logging out your player while it shouldnt. It's fixed in SRL 4.
so what i think should be done it just modifying it to go 2 clicks upward from the symbol before it trys to find road color instead of 1
So this wouldn't be necessary.
EDIT: one other small problem with the walking is the transition from lighter to darker road color as coming out of falador: it clicks at the end of the light color in roughly the same spot about 4 or 5 times before gaining the color of the darker road... i was just thinking that it might make the script more detectable.http://img380.imageshack.us/img380/2456/map2pr7.png
As said above, change FFlag(5); to Flag; in that line probably.
~Sumilion
Czepa
09-09-2007, 10:21 AM
I know what that problem is, and its not in my script actually. RadialRoadWalk messes it up by logging out your player while it shouldnt. It's fixed in SRL 4.
mmh? why is that? if radialwalk is broken and logs you out, then shouldnt it do so at random times and not in the same spot? (i don't really understand, but ill take your word for it)
btw, thanx for the flag fix negaal. Looking forward to SRL 4 too
Sumilion
09-09-2007, 11:09 AM
mmh? why is that? if radialwalk is broken and logs you out, then shouldnt it do so at random times and not in the same spot? (i don't really understand, but ill take your word for it)
btw, thanx for the flag fix negaal. Looking forward to SRL 4 too
Yes well almost, that spot where it keeps logging out is a soft spot for RRW.
When it clicks at the top of the mine it could sometimes loose the flag and then RRW is trying to search the road color, but since it doesnt, it says RRW failed and it will logout. At least that is my experience. Its easily fixed, just delete all LogOut; in RRW (MapWalk.scar).
~Sumilion
~Sumilion
Off Topic, Nice Siggi for VYC
Ciesson
09-09-2007, 06:53 PM
Im wearing full rune(T) no helm white hair.
:eek: that is probaly worse than autoing with a lvl 3!!!!!!! :eek:
And the script looks good Sum but all my guys do about 2 loads each then just stop working for sum reason?? Will run tonight and post a proggy tommorow...
Sumilion
09-09-2007, 08:03 PM
:eek: that is probaly worse than autoing with a lvl 3!!!!!!! :eek:
And the script looks good Sum but all my guys do about 2 loads each then just stop working for sum reason?? Will run tonight and post a proggy tommorow...
I've been working on the walking ... i hope it will help :)
S U P E R
09-09-2007, 08:17 PM
where do u start at
Sumilion
09-09-2007, 08:55 PM
Fala east bank.
Ciesson
09-10-2007, 12:17 PM
Here is the proggy i promised!
<========== RimmingtonMiner ============>
<======= -0.25- Progress Report ========>
/=======================================\
Worked for 6 Hours, 36 Minutes and 51 Seconds
Banked 37 loads[s].
Mined 691 ores.
Received 5 gem[s].
Avoided gas 12 time[s].
\=======================================/
Name : ***********
Mining Lvl : 16
Worked for : 39 minutes.
Banked : 4 time[s].
Active : True
Location :
\\-------------------------------------//
0: **********= False, 4 Bank[s], Worked 39 minutes, Loc: No GameTab
1: *******= True, 4 Bank[s], Worked 39 minutes, Loc:
2: ***********= False, 0 Bank[s], Worked 0 minutes, Loc:
3: *********= False, 3 Bank[s], Worked 24 minutes, Loc:
4: *********= True, 4 Bank[s], Worked 40 minutes, Loc:
5: **********= True, 5 Bank[s], Worked 39 minutes, Loc: no RoadColor
6: **********= False, 6 Bank[s], Worked 52 minutes, Loc: no RoadColor
7: **********= True, 5 Bank[s], Worked 58 minutes, Loc: no RoadColor
8: ***= False, 4 Bank[s], Worked 52 minutes, Loc:
9: ********= False, 2 Bank[s], Worked 16 minutes, Loc: No GameTab
<==========================================>
/~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
| SRL 4 Randoms Report |
| www.srl-forums.com |
|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|
| SRL Logs : 21 |
| Talks : 1 |
| Capn Hand[s] : 1 |
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~/
EDIT: In the SCAR there is a open from web option and your rimington miner is there! It is an old version though so why dont you update it?
Czepa
09-10-2007, 01:19 PM
hahahaha... love your sig! your version is way better than all the others
"If I see you autoing with level 3/default clothes /crap name (0038248) I WILL NOT HESITATE to report you (and pray that you get BANNED). If you Auto Incorrectly... I hope you DIE - put this in your sig!!!" especially the "i hope you DIE"
Sumilion
09-10-2007, 01:44 PM
Here is the proggy i promised!
<========== RimmingtonMiner ============>
<======= -0.25- Progress Report ========>
/=======================================\
Worked for 6 Hours, 36 Minutes and 51 Seconds
Banked 37 loads[s].
Mined 691 ores.
Received 5 gem[s].
Avoided gas 12 time[s].
\=======================================/
Name : ***********
Mining Lvl : 16
Worked for : 39 minutes.
Banked : 4 time[s].
Active : True
Location :
\\-------------------------------------//
0: **********= False, 4 Bank[s], Worked 39 minutes, Loc: No GameTab
1: *******= True, 4 Bank[s], Worked 39 minutes, Loc:
2: ***********= False, 0 Bank[s], Worked 0 minutes, Loc:
3: *********= False, 3 Bank[s], Worked 24 minutes, Loc:
4: *********= True, 4 Bank[s], Worked 40 minutes, Loc:
5: **********= True, 5 Bank[s], Worked 39 minutes, Loc: no RoadColor
6: **********= False, 6 Bank[s], Worked 52 minutes, Loc: no RoadColor
7: **********= True, 5 Bank[s], Worked 58 minutes, Loc: no RoadColor
8: ***= False, 4 Bank[s], Worked 52 minutes, Loc:
9: ********= False, 2 Bank[s], Worked 16 minutes, Loc: No GameTab
<==========================================>
/~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
| SRL 4 Randoms Report |
| www.srl-forums.com |
|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|
| SRL Logs : 21 |
| Talks : 1 |
| Capn Hand[s] : 1 |
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~/
EDIT: In the SCAR there is a open from web option and your rimington miner is there! It is an old version though so why dont you update it?
I can't, freddy does that.
Czepa
09-10-2007, 02:45 PM
what cs do you play? CSS or 1.6?
them changes you advised me to make sort of stuffed the script up and it wont click on the road when i start the script.. but never mind ill make do with what i have and wait for SRL 4 to be complete
Sumilion
09-10-2007, 03:04 PM
what cs do you play? CSS or 1.6?
them changes you advised me to make sort of stuffed the script up and it wont click on the road when i start the script.. but never mind ill make do with what i have and wait for SRL 4 to be complete
Hah, that CS was a looong time ago, but CSS. I <3 graphix.
Czepa
09-10-2007, 03:19 PM
Hah, that CS was a looong time ago, but CSS. I <3 graphix.
uuugghh... no way .oh well, at least you don't play silly games (like runescape?) what? who said that?
i play 1.6 coz its oldschool and u need skill
EDIT: sumilion can you add me on msn? i reckon i could provide you with some good feedback.. im gonna be running it alot i added you few days ago
Sumilion
09-10-2007, 05:03 PM
uuugghh... no way .oh well, at least you don't play silly games (like runescape?) what? who said that?
i play 1.6 coz its oldschool and u need skill
EDIT: sumilion can you add me on msn? i reckon i could provide you with some good feedback.. im gonna be running it alot i added you few days ago
Thanks for the gesture, but you can't feedback on it, well on some parts at least. I edited the walking quite a bit from this version. But im beginning to doubt if its for the better ...
Ciesson
09-10-2007, 05:25 PM
Thanks for the gesture, but you can't feedback on it, well on some parts at least. I edited the walking quite a bit from this version. But im beginning to doubt if its for the better ...
Why would you doubt if it was for the better???
And also, do you think you could add the mining level of the peeps into ur proggress report could that would be useful!
hahahaha... love your sig! your version is way better than all the others
I know, i got mine from bits of all the others so mine is the best of the lot!;) And put it in YOUR sig why dont ya???
Sumilion
09-10-2007, 05:45 PM
Why would you doubt if it was for the better???
And also, do you think you could add the mining level of the peeps into ur proggress report could that would be useful!
I suppose i could add that, but i thought it wouldn't be important.
I doubt it because it seemed like i had more errors than before... but maybe thats just me. After some adjustments it seems quite stable atm.
SRL 4 material though ;) (no beta)
Czepa
09-10-2007, 11:27 PM
<========== RimmingtonMiner ============>
<======= -0.25- Progress Report ========>
/=======================================\
Worked for 1 Hours, 29 Minutes and 23 Seconds
Banked 13 loads[s].
Mined 364 ores.
Avoided gas 6 time[s].
\=======================================/
Name : XXX
Mining Lvl : 76
Worked for : 0 minutes.
Banked : 13 time[s].
Active : True
Location : InBlack
was in lumbridge castle with ore noted
S U P E R
09-11-2007, 01:16 AM
where do i start this script at
[-jesus-]
09-11-2007, 03:16 AM
Fally East Bank, farthest bank booth to left.
Ciesson
09-11-2007, 04:32 AM
When will SRL 4 public release come out?
Sumilion
09-11-2007, 11:07 AM
When will SRL 4 public release come out?
At least until the next scar, when that is, is up to freddy.
<========== RimmingtonMiner ============>
<======= -0.25- Progress Report ========>
/=======================================\
Worked for 1 Hours, 29 Minutes and 23 Seconds
Banked 13 loads[s].
Mined 364 ores.
Avoided gas 6 time[s].
\=======================================/
Name : XXX
Mining Lvl : 76
Worked for : 0 minutes.
Banked : 13 time[s].
Active : True
Location : InBlack
was in lumbridge castle with ore noted
It was trying to get your ores to my stealing account ... [/sarcas] :p
You got a Niles random (or also known as certer, for obvious reasons).
S U P E R
09-11-2007, 11:47 AM
when i tryed to rune this it got to the road by the mine then it said it could find that mine
Czepa
09-11-2007, 11:49 AM
yep :D certer.. i laugh at that.. its funny thinking about back then and how hard it was to sell that coal i mined
coollukehand
09-11-2007, 01:04 PM
Here my progress,
seems to get lost should i be using client or explorer?
no game tab??
when watching it when a new player was started, and he got to the mine the clicks to set up hit the brightness control and lowered it on more than one occasion
first player works good each time then after that gives not much ore.
Also almost forgot should this stop after the 5th player or should it loop back to 0 ??
<========== RimmingtonMiner ============>
<======= -0.25- Progress Report ========>
/=======================================\
Worked for 1 Hours, 0 Minutes and 38 Seconds
Banked 5 loads[s].
Mined 54 ores.
\=======================================/
Name : coolblue315
Mining Lvl : 17
Worked for : 0 minutes.
Banked : 0 time[s].
Active : True
Location : No GameTab
\\-------------------------------------//
0: coolmo66 = False, 3 Bank[s], Worked 37 minutes, Loc:
1: coolchris533 = False, 1 Bank[s], Worked 15 minutes, Loc: No GameTab
2: cooljoe361 = False, 1 Bank[s], Worked 2 minutes, Loc: No GameTab
3: coolblue315 = True, 0 Bank[s], Worked 0 minutes, Loc: No GameTab
4: coollukehand = True, 0 Bank[s], Worked 0 minutes, Loc:
<==========================================>
NextPlayer
coollukehand
Pick head colors... 5148 65536 65536 2177354 1517362
RoadColor = 6189430
RoadColor = 6053220
Failed to find the road using SumFindRoadColor.
Trying default autocoloring.
Could not find Road Color!
RoadColor = 0
Failed to find the road color.
Leaving it what it was.
Failed to find the road using SumFindRoadColor.
Trying default autocoloring.
Could not find Road Color!
RoadColor = 0
Failed to find the road color.
Leaving it what it was.
Failed to find the road using SumFindRoadColor.
Trying default autocoloring.
Could not find Road Color!
RoadColor = 0
Failed to find the road color.
Leaving it what it was.
Failed to find the road using SumFindRoadColor.
Trying default autocoloring.
Could not find Road Color!
RoadColor = 0
Failed to find the road color.
Leaving it what it was.
Failed to find the road using SumFindRoadColor.
Trying default autocoloring.
Could not find Road Color!
RoadColor = 0
Failed to find the road color.
Leaving it what it was.
Failed to find the road using SumFindRoadColor.
Trying default autocoloring.
Could not find Road Color!
RoadColor = 0
Failed to find the road color.
Leaving it what it was.
Player Lost, timed out (3)
<========== RimmingtonMiner ============>
<======= -0.25- Progress Report ========>
/=======================================\
Worked for 1 Hours, 3 Minutes and 44 Seconds
Banked 6 loads[s].
Mined 54 ores.
\=======================================/
Name : coollukehand
Mining Lvl : 30
Worked for : 0 minutes.
Banked : 0 time[s].
Active : True
Location : No GameTab
\\-------------------------------------//
0: coolmo66 = False, 3 Bank[s], Worked 37 minutes, Loc:
1: coolchris533 = False, 1 Bank[s], Worked 15 minutes, Loc: No GameTab
2: cooljoe361 = False, 1 Bank[s], Worked 2 minutes, Loc: No GameTab
3: coolblue315 = False, 1 Bank[s], Worked 2 minutes, Loc: No GameTab
4: coollukehand = True, 0 Bank[s], Worked 0 minutes, Loc: No GameTab
<==========================================>
NextPlayer
Successfully executed
Sumilion
09-11-2007, 08:26 PM
It should go back to 0, but not if all players are false which is happening here, strangely. I have no idea how it can change the brightness... lol, i dont do anything with brightness in my script..
EDIT :
Next version is coming along nicely! Walking did in fact improve :)
<========== RimmingtonMiner ============>
<======= -0.30- Progress Report ========>
/=======================================\
Worked for 8 Hours, 16 Minutes and 6 Seconds
Banked 80 loads[s].
Mined 1987 ores.
Received 8 gem[s].
Avoided gas 2 time[s].
\=======================================/
Name :
Mining Lvl : 73
Worked for : 95 minutes.
Banked : 19 time[s].
Active : True
LastRandom :
\\-------------------------------------//
0: = True, 19 Bank[s], Worked 95 minutes, Random:
1: = True, 17 Bank[s], Worked 98 minutes, Random:
2: = False, 4 Bank[s], Worked 26 minutes, Random:
3: = True, 19 Bank[s], Worked 113 minutes, Random:
4: = True, 21 Bank[s], Worked 123 minutes, Random:
<==========================================>
Only one false in 8 hours ! :) (had to go to bed)
sudersmiley
09-12-2007, 01:18 AM
{================================================= ==================]
[ Sumilions Rimmington Miner ]
[ ]
[ NAME : Sumilions Rimmington Miner ]
[ WRITER : Sumilion ]
[ CATEGORY : Miner ]
[ DESCRIPTION : Mines in Rimmington, banks in Falador ]
[ USAGE : Start at bankbooth in Falador ]
[ AUTOCOLOR : Partially ]
[ SRL Used : 4.0 (Beta) ]
[ Scar User : Scar DIVI 3.11 ]
[ ]
[ More Scripts can be found at ]
[ www.SRL-Forums.com ]
[================================================== =================]
[ Instructions. ]
[================================================== =================]
[ 1. USE Runescape with Low Detail, Very Bright. ]
[ 2. Set your Screen to 32 bit TRUE color. ]
[ 3. Setup lines below ]
[ 4. Set CopperRockMMColor (and NormalRockMMColor)!!! ]
[ 5. Set Playernames and Passwords below. ]
[ 6. Have Pick in First invslot or wielded and more in the bank ]
[ 7. Start script Logged Out / Logged in ]
[================================================== =================}
program SumilionsRimmingtonMiner;
{.include SRL/SRL.scar}
{.include SRL/SRL/skill/Mining.scar}
//********Color Settings********\\
const
CopperRockMMColor = 5195582; // If AutoMMRockColor is true, then there is no need to fill this in.
NormalRockMMColor = 1126483; // If AutoMMRockColor is true, then there is no need to fill this in.
AutoMMRockColor = True; // Use the (experimental) Copper+Normal rock color finder ?
//********Player Settings********\\
const
MinutesPerPlayer = 15; // Time in minutes per player
RandomMinutes = 5; // Random number under this gets added to above.
MaxSecRock = 5; // Maximum seconds to wait for a rock
StartPlayer = 0; // With what player do you want to start ?
RunDir = 'N'; // Direction to run to when in fight
RunFar = True; // Run far when in fight ?
//********Additional Settings********\\
SRLStatsID = ''; // Your SRL ID for the stats (Leave blanc to set it to default, from SetupSRL.scar)
SRLStatsPW = ''; // Your Password for the stats (Leave blanc to set it to default, from SetupSRL.scar)
VersionNumber = '0.25'; // No need to change this
TheMinCount = 5; // No need to change this
BoxSize = 15; // No need to change this
RemoteMaster = 'umil'; // For advanved users only.
//********Player Settings********\\
procedure DeclarePlayers;
begin
HowManyPlayers := 5;//MAKE SURE THIS ONE IS CORRECT!
CurrentPlayer := StartPlayer;
NumberOfPlayers(HowManyPlayers);
Players[0].Name := 'my user'; // Your Runescape name
Players[0].Pass := 'my pass'; // The corresponding password
Players[0].Nick := 'hgd'; // 3-4 letters from your name, NO CAPITALS (that includes the first character)
Players[0].Strings[0] := 'Copper'; // Type of ore to mine (Clay / Copper / Tin / Iron / Gold)
Players[0].Strings[1] := '0000'; // Your BankPinNumber
Players[0].Active := True;
Players[1].Name := 'user';
Players[1].Pass := 'pass';
Players[1].Nick := 'kle';
Players[1].Strings[0] := 'Tin';
Players[1].Strings[1] := '0000';
Players[1].Active := True;
Players[2].Name := 'user';
Players[2].Pass := 'pass';
Players[2].Nick := 'uxd';
Players[2].Strings[0] := 'Copper';
Players[2].Strings[1] := '0000';
Players[2].Active := True;
Players[3].Name := 'user';
Players[3].Pass := 'pass';
Players[3].Nick := 'men';
Players[3].Strings[0] := 'Tin';
Players[3].Strings[1] := '0000';
Players[3].Active := True;
Players[4].Name := 'user ';
Players[4].Pass := 'pass';
Players[4].Nick := 'ccz';
Players[4].Strings[0] := 'Iron';
Players[4].Strings[1] := '0000';
Players[4].Active := True;
end;
//********RockColor Settings********\\
const
CopperColor = 4421053;
TinColor = 8224391;
ClayColor = 6196645;
IronColor = 1845058;
GoldColor = 1952246;
//********Dont go below unless your more advanced********\\
var
GasAvoided, bmpOreMask, bmpClayMask, RunTime, MinCount,
FalaRoadColor, MiningSiteColor, RockColor, a, GemsReceived,
OresMined, TotalLoads, bmpGemMask, TotalMinutesPerPlayer,
CopperRockColor, x, y: Integer;
dtmPaxes: array[1..6] of Integer;
PinNumber: string;
PlayerStatus: Boolean;
//-----------------------------------------------------------------\\
{ ProgressReport - Sets up the player array ||
\\-----------------------------------------------------------------//}
procedure ProgressReport;//Made by Fakawi, i think, edited by me
var
PActive, Spaces: string;
I, K, SpaceNumber: Integer;
begin
SRLRandomsReport;
if Players[CurrentPlayer].Active then
PActive:='True'
else
PActive:='False';
Writeln(' ');
Writeln('<========== RimmingtonMiner ============>');
Writeln('<======= -'+VersionNumber+'- Progress Report ========>');
Writeln('/=======================================\');
Writeln(' Worked for '+ TimeRunning);
Writeln(' Banked '+IntToStr(TotalLoads)+' loads[s].');
Writeln(' Mined '+inttostr(OresMined)+(' ores.'));
if(GemsReceived > 0)then
Writeln(' Received '+IntToStr(GemsReceived)+(' gem[s].'));
if(GasAvoided > 0)then
Writeln(' Avoided gas '+IntToStr(GasAvoided)+(' time[s].'));
Writeln('\=======================================/');
Writeln(' Name : '+Players[CurrentPlayer].Name);
Writeln(' Mining Lvl : '+IntToStr(Players[CurrentPlayer].Level[15]));
Writeln(' Worked for : '+IntToStr(Players[CurrentPlayer].Worked)+' minutes.');
Writeln(' Banked : '+IntToStr(Players[CurrentPlayer].Banked)+' time[s].');
Writeln(' Active : '+PActive);
Writeln(' Location : '+Players[CurrentPlayer].Loc);
Writeln('\\-------------------------------------//');
for I := 0 to HowManyPlayers-1 do
begin
if Players[I].Active then
PActive:='True'
else
PActive:='False';
SpaceNumber := 12 - Length(Players[I].Name);
for K := 0 to SpaceNumber do
Spaces := Spaces + ' ';
Writeln(IntToStr(I)+': '+Players[I].Name + Spaces +
'= ' + PActive + ', ' + IntToStr(Players[I].Banked) + ' Bank[s]' +
', Worked ' + IntToStr(Players[I].Worked) + ' minutes, ' +
'Loc: ' + Players[I].Loc);
Spaces := '';
end
Writeln('<==========================================>');
end;
//-----------------------------------------------------------------\\
{ LoadImages - Loads the images in the memory ||
\\-----------------------------------------------------------------//}
procedure LoadImages;
begin
bmpOreMask := BitmapFromString(9, 8, 'z78DA333040076E6080C9C60' +
'F064A17F17A71E9C2AFD70D03E09725DE4CF2DC0F00DCD05C 59');
bmpClayMask := BitmapFromString(9, 6, 'z78DA33302016B88101F' +
'12A4905B86CC1AF9E3CB7E1329F787F218B03004FC54795') ;
bmpGemMask := BitmapFromString(23, 24, 'z78DA3330183EC00D0C686732' +
'F10097AEC1E33BFC2EA77F08936AD7A84B465D428C8DA32E1 9750' +
'931F68EBA6434B50C45978CCC929F785B68ED1E52CDA76E9B 90BA' +
'7E74A3180CFE3E0200FDE18F27');
dtmPaxes[1] {Rune} := DTMFromString('78DA63F463646098C2800274E5181844803 45' +
'086E13F1030C60159BDA86AA2ABDA1938A06A40803114C8EA 4155' +
'E314998CAAC61FC8EA42B3CBC609554D1890D58EAAC63FBB0 C450' +
'D0091470D24');
dtmPaxes[2] {Addy} := DTMFromString('78DA635460646098CC800274E5181844803 45' +
'086E13F1030EA0359BDA86AA20AA31838A06A4080D110C89A 80AA' +
'C6DEDF1E558D3A90D58EAAC63BC117558D1A90D585AAC621C 8014' +
'50D0015F10BD5');
dtmPaxes[3] {Mith} := DTMFromString('78DA63FCC8C0C030990105E8CA313088006 94' +
'620FE0F048C4C40D604543536B6510C1C503520C0F80F48F4 A0AA' +
'F1F2CA4355F31D530D86393F80443B7E730020140ED3');
dtmPaxes[4] {Steel} := DTMFromString('78DA633CCCC0C030890105E8CA313088006 94' +
'620FE0F048C97818C09A86A4A73731838A06A4080F10490E8 21A0' +
'E62490684755D3DBDC8CAAE63CA639FDADAD286A00CE79110 5');
dtmPaxes[5] {Iron} := DTMFromString('78DA639CCCC0C030890105E8CA313088006 94' +
'620FE0F048C4B808C09A86AFC3D3D1938A06A4080711190E8 4555' +
'93979E8EAA661690E84155E3E5E282A9A61D554D6254248A1 A000' +
'6D30E58');
dtmPaxes[6] {Bronze} := DTMFromString('78DA634C66606098C2800274E5181844803 42' +
'310FF0702C652206302AA1A2F0B05060EA81A10602C0612BD A86A' +
'32FCF550D56401891E02E6640389765435912E9A286A005B9 A0C5' +
'9');
end;
//-----------------------------------------------------------------\\
{ KeepUpStats - Updates current statistics ||
\\-----------------------------------------------------------------//}
procedure KeepUpStats;
begin
ProgressReport;
OresMined := OresMined + CountItemBmpMaskTol(bmpOreMask, 5, 5) + CountItemBmpMaskTol(bmpClayMask, 5, 5);
ReportVars[0] := ReportVars[0] + CountItemBmpMaskTol(bmpOreMask, 5, 5) + CountItemBmpMaskTol(bmpClayMask, 5, 5);
GemsReceived := GemsReceived + CountItemBmpMaskTol(bmpGemMask, 5, 5);
ReportVars[3] := ReportVars[3] + CountItemBmpMaskTol(bmpGemMask, 5, 5);
TotalLoads := TotalLoads + 1;
ReportVars[1] := ReportVars[1] + 1;
Players[CurrentPlayer].Banked := Players[CurrentPlayer].Banked + 1;
end;
//------------------------------------------------------------------------\\
{ PlayerLost - Logs out player when lost ||
\\------------------------------------------------------------------------//}
procedure PlayerLost(Info:string);
begin
Writeln('Player Lost, '+ Info);
Logout;
end;
//-----------------------------------------------------------------\\
{ SetOreColor - Sets correct OreColor ||
\\-----------------------------------------------------------------//}
procedure SetOreColor;
begin
case LowerCase(Players[CurrentPlayer].Strings[0]) of
'copper' : OreColor := CopperColor;
'tin' : OreColor := TinColor;
'clay' : OreColor := ClayColor;
'iron' : OreColor := IronColor;
'gold' : OreColor := GoldColor;
'iron + gold': begin OreColor1 := GoldColor; OreColor2 := IronColor; end;
'gold + iron': begin OreColor1 := GoldColor; OreColor2 := IronColor; end;
end;
if(OreColor = 0)and(OreColor1 = 0)and(OreColor2 = 0)then
Writeln('String1 is NOT set properly or color is 0...');
OreColor3 := 0;
end;
//-----------------------------------------------------------------\\
{ FindFastRandoms - Finds the randoms fast ||
\\-----------------------------------------------------------------//}
function FindFastRandoms: Boolean; // By WT-Fakawi.
var
i: Integer;
begin
for I := 1 to 11 do
begin
case I of
1: if FindDead then
Result := True;
2: if FindMod then
Result := True;
3: if FindMime then
Result := True;
4: if FindMaze then
Result := True;
5: if FindQuiz then
Result := True;
//6: if FindDemon then
// Result := True;
7: begin
if NoGameTab then
begin
Result := True;
Players[CurrentPlayer].loc := 'No GameTab';
Logout;
Exit;
end;
end;
8: begin
if InBlack then
begin
Result := True;
Players[CurrentPlayer].loc := 'InBlack';
Logout;
Exit;
end;
end;
9 : if RC then
Result := True;
10 : if FindFight then
begin
Result := True;
RunTo(RunDir, RunFar);
end;
11: if FindTalk then
Result := True;
end;
Wait(1);
end;
end;
//-----------------------------------------------------------------\\
{ SumFindPickHeadColor - Gets pickhead colors ||
\\-----------------------------------------------------------------//}
function SumFindPickHeadColor: Boolean;
var
InvPAxe, WieldPAxe, Ix, Iy, Wx, Wy: integer;
begin
GameTab(4);
for InvPAxe := 1 to 7 do
begin
if(InvPAxe = 7)then
Break;
if(FindDtm(dtmPaxes[InvPAxe], Ix, Iy, MIX1, MIY1, MIX2, MIY2))then
Break;
end;
GameTab(5);
Wait(500);
for WieldPAxe := 1 to 7 do
begin
if(WieldPAxe = 7)then
Break;
if(FindDtm(dtmPaxes[WieldPAxe], Wx, Wy, MIX1, MIY1, MIX2, MIY2))then
Break;
end;
if(InvPAxe = 7)and(WieldPAxe = 7)then
begin
Result := False;
Exit;
end;
if((InvPAxe-WieldPAxe) < 0)then
EquipPick := False
else
EquipPick := True;
Result := true;
if(EquipPick)then
begin
GameTab(5);
hc1 := GetColor(585, 295);
hc2 := GetColor(597, 297);
hc3 := GetColor(594, 296);
hc4 := GetColor(588, 295);
hc5 := GetColor(582, 294);
end else
begin
GameTab(4);
if(Ix > 592)and(Iy > 238)then
begin
MMouse(Ix, Iy, 5, 5);
GetMousePos(Ix, Iy);
HoldMouse(Ix, Iy, True);
MMouse(529, 227, 5, 5);
GetMousePos(Ix, Iy);
ReleaseMouse(Ix, Iy, True);
end;
FindDtm(dtmPaxes[InvPAxe], Ix, Iy, MIX1, MIY1, MIX2, MIY2);
hc1 := GetColor(587, 216);
hc2 := GetColor(587, 219);
hc3 := GetColor(592, 222);
hc4 := GetColor(584, 216);
hc5 := GetColor(577, 219);
end;
WriteLn('Pick head colors... ' + IntToStr(hc1) + ' ' + IntToStr(hc2) + ' ' +
IntToStr(hc3) + ' ' + IntToStr(hc4) + ' ' + IntToStr(hc5));
end;
//-----------------------------------------------------------------\\
{ SumFindRoadColor - Finds both road colors on the screen ||
\\-----------------------------------------------------------------//}
function SumFindRoadColor(FalaColor: Boolean): Integer;
var
arRoadPoints: TPointArray;
GenericColor, a, b: Integer;
arRoughRoadColors, arRoadColors: array of Integer;
WeGotIt: Boolean;
ResultString: string;
begin
if(FalaColor)then
GenericColor := 6057843
else
GenericColor := 5921377;
if(FalaColor)then
ResultString := 'Fala';
ColorToleranceSpeed(2);
SetColorspeed2Modifiers(10.0, 0.03);
FindColorsTolerance(arRoadPoints, GenericColor, MMX1, MMY1, MMX2, MMY2, 50);
ColorToleranceSpeed(1);
arRoughRoadColors := GetColors(arRoadPoints);
for a := 0 to GetArrayLength(arRoughRoadColors) - 1 do
begin
WeGotIt := False;
if(arRoughRoadColors[a] > 5000000)and(arRoughRoadColors[a] < 8000000)then
begin
for b := 0 to GetArrayLength(arRoadColors) - 1 do
begin
if(arRoadColors[b] = arRoughRoadColors[a])then
WeGotIt := True;
end;
if not(WeGotIt)then
begin
if(CountColor(arRoughRoadColors[a], MMX1, MMY1, MMX2, MMY2) > 200)then
begin
if(rs_OnMinimap(arRoadPoints[a].x, arRoadPoints[a].y))then
begin
//Writeln(IntToStr(arRoughRoadColors[a]));
SetArrayLength(arRoadColors, GetArrayLength(arRoadColors) + 1);
arRoadColors[GetArrayLength(arRoadColors) - 1] := arRoughRoadColors[a];
end;
end;
end;
end;
end;
if not(GetArrayLength(arRoadColors) = 1)then
begin
Writeln('Failed to find the road using SumFindRoadColor.');
Writeln('Trying default autocoloring.');
if(FalaColor)then
Result := FindFallyRoadColor
else
Result := FindRoadColor;
end else
Result := arRoadColors[0];
Writeln('RoadColor = '+IntToStr(Result));
if(Result = 0)then
begin
Writeln('Failed to find the road color.');
Writeln('Leaving it what it was.');
if(FalaColor)then
Result := FalaRoadColor
else
Result := RoadColor;
end;
end;
//-----------------------------------------------------------------\\
{ SumFindCopperRockColor - Finds the MM Copper rock color ||
\\-----------------------------------------------------------------//}
function SumFindCopperRockColor: Integer;
var // <3 nielsie :)
R, G, B: Integer;
Points: TPointArray;
Colors, UniqueColors: TIntegerArray;
i, a: Integer;
NewColor: Boolean;
begin
if not LoggedIn then
Exit;
ColorToleranceSpeed(0);
FindColorsSpiralTolerance(MMCX, MMCY, Points, 3232641, MMCX + 20, MMCY + 20, MMX2, MMY2, 36);
ColorToleranceSpeed(1);
if Length(Points) > 1 then
begin
Colors := GetColors(Points);
for i := 0 to Length(Colors) -1 do
begin
NewColor := True;
for a := 0 to GetArrayLength(UniqueColors) - 1 do
begin
if(UniqueColors[a] = Colors[i])then
begin
NewColor := False;
Break;
end;
end;
if(NewColor)then
begin
SetArrayLength(UniqueColors, GetArrayLength(UniqueColors) + 1);
UniqueColors[GetArrayLength(UniqueColors) - 1] := Colors[i];
end;
end;
SetArrayLength(Colors, 0);
for i := 0 to Length(UniqueColors) -1 do
if UniqueColors[i] <> 0 then
begin
ColorToRGB(UniqueColors[i], R, G, B);
if (R < 158) and (R > 107) then
if (G < 103) and (G > 55) then
if (B < 82) and (B > 27) then
if CountColor(UniqueColors[i], MMX1, MMY1, MMX2, MMY2) > 50 then
begin
SetArrayLength(Colors, Length(Colors) +1);
Colors[Length(Colors) -1] := UniqueColors[i];
end;
end;
a := 0;
if Length(Colors) > 1 then
begin
for i := 0 to GetArrayLength(Colors) -1 do
begin
if Max(a, Colors[i]) <> a then
a := Colors[i];
//WriteLn('['+IntToStr(i)+'] Color: '+IntToStr(Colors[i]));
end;
Result := a;
WriteLn('CopperRockColor = '+IntToStr(a));
end;
end;
if(Result = 0)then
begin
Writeln('Failed finding CopperMMRockColor, trying default FindStoneColor...');
Result := FindStoneColor;
if(Result = 0)then
Writeln('Failed aswell, walking closer ...')
else
Writeln('CopperRockColor = '+IntToStr(Result));
end;
end;
//-----------------------------------------------------------------\\
{ SumFindNormalRockColor - Finds the MM Normal rock color ||
\\-----------------------------------------------------------------//}
function SumFindNormalRockColor: Integer;
var // <3 nielsie :)
R, G, B: Integer;
Points: TPointArray;
Colors, UniqueColors: TIntegerArray;
i, a: Integer;
NewColor: Boolean;
begin
//if not LoggedIn then Exit;
ColorToleranceSpeed(0);
FindColorsSpiralTolerance(MMCX, MMCY, Points, 5591896, MMX1, MMY1, MMX2, MMY2, 34);
if Length(Points) < 1 then Exit;
Colors := GetColors(Points);
for i := 0 to Length(Colors) -1 do
begin
NewColor := True;
for a := 0 to GetArrayLength(UniqueColors) - 1 do
begin
if(UniqueColors[a] = Colors[i])then
NewColor := False;
end;
if(NewColor)then
begin
SetArrayLength(UniqueColors, GetArrayLength(UniqueColors) + 1);
UniqueColors[GetArrayLength(UniqueColors) - 1] := Colors[i];
end;
end;
for i := 0 to Length(UniqueColors) -1 do
if UniqueColors[i] <> 0 then
begin
ColorToRGB(UniqueColors[i], R, G, B);
if (R < 115) and (R > 57) then
if (G < 110) and (G > 66) then
if (B < 101) and (B > 57) then
if CountColor(UniqueColors[i], MMX1, MMY1, MMX2, MMY2) > 50 then
begin
WriteLn('NormalRockColor = '+IntTostr(UniqueColors[i]))
Result := UniqueColors[i];
Break;
end;
end;
ColorToleranceSpeed(1);
if(Result = 0)then
begin
Writeln('Failed finding NormalMMRockColor, trying default FindRockColor...');
Result := FindRockColor;
if(Result = 0)then
begin
Writeln('All methods failed ... terminating.');
TerminateScript;
end;
end;
end;
//-----------------------------------------------------------------\\
{ SumCheckGas - Checks if there is gas ||
\\-----------------------------------------------------------------//}
function SumCheckGas(rx, ry: Integer): Boolean;
var
TempMouseSpeed, GasTime: Integer;
begin
Result := FindGas(rx, ry - 20);
if(Result)then
begin
Writeln('Gas found!');
TempMouseSpeed := MouseSpeed;
MouseSpeed := 5;
MouseFindNoFlag(MMCX, MMCY + 4, 1, 1);
MarkTime(GasTime);
MouseSpeed := TempMouseSpeed;
while(TimeFromMark(GasTime) < 35000)do
if(Random(20) > 15)then
IdleTime(500, 500, 0.4)
else
Wait(500 + Random(500));
GasAvoided := GasAvoided + 1;
ReportVars[2] := ReportVars[2] + 1;
end;
end;
//-----------------------------------------------------------------\\
{ IsOre - Did we found an ore or a rock ? ||
\\-----------------------------------------------------------------//}
function IsOre(rx, ry: Integer): Boolean;
begin
Result := FindColorSpiralTolerance(x, y, 4481401, rx - 5, ry - 5, rx + 5, ry + 5, 5);
end;
//-----------------------------------------------------------------\\
{ FindRockCenter - Finds the rock center ||
\\-----------------------------------------------------------------//}
function FindRockCenter(var RockPoint: TPoint; RockColor, BoxSize, RockMinimum: Integer): Boolean;
var
c, MaxTime, SMSX, SMSY: Integer;
arRoughRockPoints, arRockPoints: TPointArray;
begin
if(LowerCase(Players[CurrentPlayer].Strings[0]) = 'iron + gold')or
(LowerCase(Players[CurrentPlayer].Strings[0]) = 'gold + iron')and
(RockColor <> GoldColor)then
begin
SMSX := MSCX - 100;
SMSY := MSCY - 70;
end else
begin
SMSX := MSX1;
SMSY := MSY1;
end;
FindColorsSpiralTolerance(MSCX, MSCY, arRoughRockPoints, RockColor, SMSX, SMSY, MSX2, MSY2, 5);
if(GetArrayLength(arRoughRockPoints) < 1)then
Exit;
MarkTime(MaxTime);
for c := 0 to GetArrayLength(arRoughRockPoints) - 1 do
begin
if not(IsOre(arRoughRockPoints[c].x, arRoughRockPoints[c].y))then
begin
RockPoint.x := 0;
RockPoint.y := 0;
ColorToleranceSpeed(2);
SetColorspeed2Modifiers(0.4, 0.4);
FindColorsTolerance(arRockPoints, 940676, arRoughRockPoints[c].x - BoxSize, arRoughRockPoints[c].y - BoxSize, arRoughRockPoints[c].x + BoxSize, arRoughRockPoints[c].y + BoxSize, 3);
for a := 0 to GetArrayLength(arRockPoints) - 1 do
begin
RockPoint.x := RockPoint.x + arRockPoints[a].x;
RockPoint.y := RockPoint.y + arRockPoints[a].y;
end;
if(GetArrayLength(arRockPoints) <> 0)and
(RockPoint.x <> 0)and(RockPoint.y <> 0)then
begin
RockPoint.x := RockPoint.x / GetArrayLength(arRockPoints);
RockPoint.y := RockPoint.y / GetArrayLength(arRockPoints);
MMouse(RockPoint.x, RockPoint.y, 5, 5);
ColorToleranceSpeed(1);
Result := (GetArrayLength(arRockPoints) > RockMinimum)and
(IsUpText('Mine'));
end;
if(Result)or(TimeFromMark(MaxTime) > 5000)then
Break;
Wait(100);
end;
end;
end;
//-----------------------------------------------------------------\\
{ FindRockCenterBetter - Gets the center using a coordinate ||
\\-----------------------------------------------------------------//}
function FindRockCenterBetter(var RockPoint: TPoint; rx, ry, BoxSize, RockMinimum: Integer): Boolean;
var
fx, fy: Integer;
arRockPoints: TPointArray;
begin
if not(FindColorSpiralTolerance(fx, fy, 940676, rx - 5, ry - 5, rx + 5, ry + 5, 5))then
begin
fx := rx;
fy := ry;
end;
RockPoint.x := 0;
RockPoint.y := 0;
ColorToleranceSpeed(2);
SetColorspeed2Modifiers(0.4, 0.4);
FindColorsTolerance(arRockPoints, 940676, fx - BoxSize, fy - BoxSize, fx + BoxSize, fy + BoxSize, 3);
for a := 0 to GetArrayLength(arRockPoints) - 1 do
begin
RockPoint.x := RockPoint.x + arRockPoints[a].x;
RockPoint.y := RockPoint.y + arRockPoints[a].y;
end;
if(GetArrayLength(arRockPoints) <> 0)and
(RockPoint.x <> 0)and(RockPoint.y <> 0)then
begin
RockPoint.x := RockPoint.x / GetArrayLength(arRockPoints);
RockPoint.y := RockPoint.y / GetArrayLength(arRockPoints);
Result := GetArrayLength(arRockPoints) > RockMinimum;
end;
ColorToleranceSpeed(1);
end;
//-----------------------------------------------------------------\\
{ RockGone - Did we lost the rock ? ||
\\-----------------------------------------------------------------//}
function RockGone(rx, ry: Integer): Boolean;
begin
Result := not FindColorSpiralTolerance(rx, ry, OreColor, rx - 10, ry - 10, rx + 10, ry + 10, 10);
end;
//-----------------------------------------------------------------\\
{ GetNewPick - Goes to get a new pick from the bank ||
\\-----------------------------------------------------------------//}
procedure MineToBank; forward;
procedure BankToMine; forward;
procedure SLBank(WithdrawNewPick: Boolean); forward;
procedure GetNewPick;
begin
MineToBank;
SLBank(True);
BankToMine;
end;
//-----------------------------------------------------------------\\
{ WorkUntilMined - Loops until we're done mining ||
\\-----------------------------------------------------------------//}
procedure WorkUntilMined(wx, wy, InvSpot: Integer);
var
i, MineTime: Integer;
begin
MarkTime(MineTime);
while(LoggedIn)do
begin
for i := 0 to 6 do
begin
case i of
0 : if(NoPick)then
GetNewPick;
1 : if(FindFastRandoms)then
Break;
2 : if(SumCheckGas(wx, wy))then
Break;
3 : if(ExistsItem(InvSpot))then
Exit;
4 : if(RockGone(wx, wy))then
Exit;
5 : if(TimeFromMark(MineTime) > MaxSecRock * 1000)then
Exit;
6 : if not(FindPick)then
begin
Writeln('We lost our pick axe.');
Break;
end;
end;
Wait(1);
end;
if(Random(100) > 90)then
IdleTime(500, 500, 0.4);
end;
PlaySound('C:\WINDOWS\Media\winAquariumCritStop.wa v');
end;
//-----------------------------------------------------------------\\
{ UpdateRockCoord - Updates the coord of the rock ||
\\-----------------------------------------------------------------//}
function UpdateRockCoord(var ux, uy: Integer; UColor: Integer): Boolean;
var
FailSafeTime, i: Integer;
RockPoint: TPoint;
begin
if not(FlagPresent)then
begin
Result := True;
Exit;
end;
MarkTime(FailSafeTime);
while(FindColorSpiralTolerance(ux, uy, UColor, ux - 20, uy - 20, ux + 20, uy + 20, 10))and
(TimeFromMark(FailSafeTime) < 20000)and
(FlagPresent)do
begin
Result := FindRockCenterBetter(RockPoint, ux, uy, BoxSize, MinCount);
Wait(16);
ux := RockPoint.x;
uy := RockPoint.y;
end;
for i := 0 to 62 do
begin
Result := FindRockCenterBetter(RockPoint, ux, uy, BoxSize, MinCount);
Wait(8);
ux := RockPoint.x;
uy := RockPoint.y;
end;
end;
//-----------------------------------------------------------------\\
{ SumMine - Mines the rock ||
\\-----------------------------------------------------------------//}
function SumMine: Boolean;
var
rx, ry, InvSpot, i: Integer;
RockPoint: TPoint;
begin
for i := 0 to 1 do
begin
if(LowerCase(Players[CurrentPlayer].Strings[0]) = 'iron + gold')or
(LowerCase(Players[CurrentPlayer].Strings[0]) = 'gold + iron')then
case i of
0: OreColor := OreColor1;
1: OreColor := OreColor2;
end;
Result := FindRockCenter(RockPoint, OreColor, BoxSize, MinCount);
if(Result)then
begin
if(SumCheckGas(RockPoint.x, RockPoint.y))then
Exit;
for InvSpot := 1 to 28 do
if not(ExistsItem(InvSpot))then
Break;
GetMousePos(rx, ry);
if Random (20) < 19 then
Mouse(rx, ry, 0, 0, True)
else begin
Mouse(rx, ry, 0, 0, False);
ChooseOption('Mine');
end;
if not(UpdateRockCoord(RockPoint.x, RockPoint.y, GetColor(RockPoint.x, RockPoint.y)))then
Exit;
WorkUntilMined(RockPoint.x, RockPoint.y, InvSpot);
Break;
end;
if not((LowerCase(Players[CurrentPlayer].Strings[0]) = 'iron + gold')or
(LowerCase(Players[CurrentPlayer].Strings[0]) = 'gold + iron'))then
Break;
end;
end;
//-----------------------------------------------------------------\\
{ GoToCorrectSpot - Goes to the correct spot ||
\\-----------------------------------------------------------------//}
procedure GoToCorrectSpot;
begin
if(RockColor = 0)then
begin
if(AutoMMRockColor)then
RockColor := SumFindNormalRockColor
else
RockColor := NormalRockMMColor;
Writeln('RockColor = ' + IntToStr(RockColor));
end;
if(LowerCase(Players[CurrentPlayer].Strings[0]) = 'iron + gold')or
(LowerCase(Players[CurrentPlayer].Strings[0]) = 'gold + iron')then
begin
RadialWalk(RockColor, 170, 210, 100, 1, 0);
Flag;
end else
case OreColor of
TinColor :
begin
RadialWalk(RockColor, 90, 130, 100, -1, -1);
Flag;
end;
IronColor :
begin
RadialWalk(RockColor, 250, 290, 100, 1, 0);
Flag;
end;
ClayColor :
begin
RadialWalk(CopperRockMMColor, 50, 120, 70, 1, 0);
Flag;
end;
GoldColor :
begin
RadialWalk(RockColor, 170, 210, 100, 1, 0);
Flag;
end;
end;
end;
//-----------------------------------------------------------------\\
{ SumFindBank - Finds falador bankers on MM ||
\\-----------------------------------------------------------------//}
function SumFindBank(var bx, by: Integer): Boolean;
var
a, b, c, HighestCount: Integer;
arRoughBankCoords, HighestArray: TPointArray;
arBankCoords: array of TPointArray;
WeGotIt: Boolean;
begin
ColorToleranceSpeed(0);
FindColorsTolerance(arRoughBankCoords, 195836, MMX1, MMY1 + 40, MMX2, MMY2, 5);
for a := 0 to GetArrayLength(arRoughBankCoords) - 1 do
begin
WeGotIt := False;
for b := 0 to GetArrayLength(arBankCoords) - 1 do
begin
for c := 0 to GetArrayLength(arBankCoords[b]) - 1 do
begin
if(arRoughBankCoords[a].y > arBankCoords[b][c].y - 5)and
(arRoughBankCoords[a].y < arBankCoords[b][c].y + 5)then
begin
SetArrayLength(arBankCoords[b], GetArrayLength(arBankCoords[b]) + 1);
arBankCoords[b][GetArrayLength(arBankCoords[b]) - 1] := arRoughBankCoords[a];
WeGotIt := True;
Break;
end;
end;
end;
if not(WeGotIt)then
begin
SetArrayLength(arBankCoords, GetArrayLength(arBankCoords) + 1);
SetArrayLength(arBankCoords[GetArrayLength(arBankCoords) - 1], GetArrayLength(arBankCoords[GetArrayLength(arBankCoords) - 1]) + 1);
arBankCoords[GetArrayLength(arBankCoords) - 1][0] := arRoughBankCoords[a];
end;
end;
for a := 0 to GetArrayLength(arBankCoords) - 1 do
begin
if(GetArrayLength(arBankCoords[a]) > HighestCount)then
begin
HighestArray := arBankCoords[a];
HighestCount := GetArrayLength(arBankCoords[a]);
end;
end;
if(GetArrayLength(HighestArray) > 15)then
begin
Result := True;
for a := 0 to GetArrayLength(HighestArray) - 1 do
begin
bx := bx + HighestArray[a].x;
by := by + HighestArray[a].y;
end;
bx := bx / GetArrayLength(HighestArray);
by := (by / GetArrayLength(HighestArray)) - 10;
end;
ColorToleranceSpeed(1);
end;
//-----------------------------------------------------------------\\
{ BankToMine - Walks to the mine ||
\\-----------------------------------------------------------------//}
procedure BankToMine;
var
MaxTime: Integer;
begin
if not(LoggedIn)then
Exit;
if(FalaRoadColor = 0)or(not(FindColor(x, y, FalaRoadColor, MMX1, MMY1, MMX2, MMY2)))then
FalaRoadColor := SumFindRoadColor(True);
RadialWalk(FalaRoadColor, 250, 270, 70, 0, -1);
FFlag(5);
MarkTime(MaxTime);
repeat;
if not(FindColor(x, y, FalaRoadColor, MMX1, MMY1, MMX2, MMY2))then
FalaRoadColor := SumFindRoadColor(True);
RadialWalk(FalaRoadColor, 160, 210, 40, 0, -1);
FFlag(5);
until((not(FindColor(x, y, FalaRoadColor, MMCX - 20, MMCY + 10, MMX2, MMY2)))and
(FindColor(x, y, FalaRoadColor, MMX1, MMY1, MMX2, MMY2)))or
(TimeFromMark(MaxTime) > 90000);
if(TimeFromMark(MaxTime) > 90000)then
PlayerLost('timed out (1)');
if not(LoggedIn)then
Exit;
if(RoadColor = 0)or(not(FindColor(x, y, RoadColor, MMX1, MMY1, MMX2, MMY2)))then
RoadColor := SumFindRoadColor(False);
MarkTime(MaxTime);
while((not FindColor(x, y, CopperRockColor, MMX1, MMY1, MMX2, MMY2))or
(CopperRockColor = 0)or
(TimeFromMark(MaxTime) < 40000))and
(TimeFromMark(MaxTime) < 120000)do
begin
if not(RadialRoadWalk(RoadColor, 160, 280, 50, 0, -1))then
RoadColor := SumFindRoadColor(False);
FFlag(5);
if(CopperRockColor = 0)then
begin
if(TimeFromMark(MaxTime) > 40000)then
begin
if(AutoMMRockColor)then
CopperRockColor := SumFindCopperRockColor
else
CopperRockColor := CopperRockMMColor;
end;
end;
end;
if(TimeFromMark(MaxTime) > 120000)then
PlayerLost('timed out (2)');
if not(LoggedIn)then
Exit;
MouseFindNoFlag(x, y, 0, -1);
Flag;
if not(OreColor = CopperColor)then
begin
if(MiningSiteColor = 0)then
begin
MiningSiteColor := GetSymbolColor(x, y, 'mining site');
if(MiningSiteColor = 0)then
begin
Writeln('MiningSiteColor not found, terminating.');
TerminateScript;
end else
Writeln('MiningSiteColor = '+IntToStr(MiningSiteColor));
end else
if not(FindColor(x, y, MiningSiteColor, MMX1, MMY1, MMX2, MMY2))then
begin
MouseFindNoFlag(MMCX + 20, MMCY + 20, -1, -1);
Flag;
if not(FindColor(x, y, MiningSiteColor, MMX1, MMY1, MMX2, MMY2))then
begin
PlayerLost('Couldnt''t find the mine.');
Exit;
end;
end;
Mouse(x, y, 10, 10, True);
Flag;
GoToCorrectSpot;
end;
end;
//-----------------------------------------------------------------\\
{ MineToBank - Walks to the bank ||
\\-----------------------------------------------------------------//}
procedure MineToBank;
var
MaxTime, bx, by: Integer;
begin
if not(LoggedIn)then
Exit;
if not(OreColor = CopperColor)then
begin
if(MiningSiteColor = 0)then
begin
MiningSiteColor := GetSymbolColor(x, y, 'mining site');
end else
if(FindColor(x, y, MiningSiteColor, MMX1, MMY1, MMX2, MMY2))then
begin
Mouse(x, y, 20, 20, True);
Flag;
if(FindColor(x, y, CopperRockColor, MMX1, MMY1, MMX2, MMY2))then
begin
Mouse(x, y, 3, 3, True);
Flag;
end else
PlayerLost('Failed to find the Copper Rock');
end else
PlayerLost('Failed to find the Mining Site Symbol');
end;
MarkTime(MaxTime);
repeat;
if not(RadialRoadWalk(RoadColor, 320, 450, 70, 0, 2))then
begin
Mouse(MMCX, MMCY - 30, 5, 5, True);
Flag;
RoadColor := SumFindRoadColor(False);
if(RadialRoadWalk(RoadColor, 320, 450, 70, 0, 2))then
Break;
end else
Break;
FFlag(5);
until(TimeFromMark(MaxTime) > 40000);
if(TimeFromMark(MaxTime) > 40000)then
PlayerLost('timed out (3)');
if not(LoggedIn)then
Exit;
FFlag(5);
MarkTime(MaxTime);
while((FindColor(x, y, RoadColor, MMX1, MMY1, MMX2, MMCY - 20))or
(not FindColor(x, y, RoadColor, MMX1, MMY1, MMX2, MMY2)))and
(TimeFromMark(MaxTime) < 90000)and
(LoggedIn)do
begin
if not(RadialRoadWalk(RoadColor, 340, 495, 50, 0, -1))then
begin
if(FindColor(x, y, RoadColor, MMX1, MMY1, MMX2, MMY2))then
begin
RadialRoadWalk(RoadColor, 340, 495, 70, 0, -1);
Flag;
end;
RoadColor := SumFindRoadColor(False);
end;
FFlag(5);
end;
if(TimeFromMark(MaxTime) > 90000)then
PlayerLost('timed out (4)');
if not(LoggedIn)then
Exit;
MarkTime(MaxTime);
repeat;
if not(RadialWalk(FalaRoadColor, 330, 380, 40, 0, -1))then
begin
FalaRoadColor := SumFindRoadColor(True);
RadialWalk(FalaRoadColor, 0, 70, 40, -1, 0);
end;
Flag;
Wait(200+Random(200));
until(SumFindBank(bx, by))and
(not(FindColor(x, y, RoadColor, MMX1, MMY1, MMX2, MMY2)))or
(TimeFromMark(MaxTime) > 90000);
Mouse(bx, by, 3, 3, True);
if(TimeFromMark(MaxTime) > 90000)then
PlayerLost('timed out (5)');
if not(LoggedIn)then
Exit;
Flag;
end;
//------------------------------------------------------------------------\\
{ GetBestPaxe - Finds the best paxe in the bank ||
\\------------------------------------------------------------------------//}
function GetBestPaxe(var x, y : integer) : Boolean;
var
I : integer;
begin
FixBank;
for I := 1 to 7 do
begin
if(I = 7)then
Break;
if(FindDtm(dtmPaxes[I], x, y, MSX1, MSY1, MSX2, MSY2))then
begin
Result := True;
Break;
end;
end;
if(I = 7)then
begin
CloseBank;
PlayerLost('No Paxe in the bank');
end;
end;
//------------------------------------------------------------------------\\
{ SumFindBankBooths - Finds all falador bank booths ||
\\------------------------------------------------------------------------//}
function SumFindBankBooths: TPointArray;
var
a, b: Integer;
arRoughBankCoords, arFinalBoothCoords: TPointArray;
arRoughBoothCoords, arBoothCoords: array of TPointArray;
begin
ColorToleranceSpeed(2);
SetColorspeed2Modifiers(0.3, 0.3);
FindColorsTolerance(arRoughBankCoords, 4415093, MSX1, MSCY, MSX2, MSY2, 3);
SetArrayLength(arRoughBoothCoords, 1);
for a := 1 to GetArrayLength(arRoughBankCoords) - 1 do
begin
if(arRoughBankCoords[a].x < arRoughBankCoords[a - 1].x + 3)then
begin
SetArrayLength(arRoughBoothCoords[GetArrayLength(arRoughBoothCoords) - 1], GetArrayLength(arRoughBoothCoords[GetArrayLength(arRoughBoothCoords) - 1]) + 1);
arRoughBoothCoords[GetArrayLength(arRoughBoothCoords) - 1][GetArrayLength(arRoughBoothCoords[GetArrayLength(arRoughBoothCoords) - 1]) - 1] := arRoughBankCoords[a];
end else
begin
SetArrayLength(arRoughBoothCoords, GetArrayLength(arRoughBoothCoords) + 1);
end;
end;
for a := 0 to GetArrayLength(arRoughBoothCoords) - 1 do
begin
if(GetArrayLength(arRoughBoothCoords[a]) > 50)then
begin
SetArrayLength(arBoothCoords, GetArrayLength(arBoothCoords) + 1);
arBoothCoords[GetArrayLength(arBoothCoords) - 1] := arRoughBoothCoords[a];
end;
end;
for a := 0 to GetArraylength(arBoothCoords) - 1 do
begin
SetArrayLength(arFinalBoothCoords, GetArrayLength(arFinalBoothCoords) + 1);
for b := 0 to GetArrayLength(arBoothCoords[a]) - 1 do
begin
arFinalBoothCoords[GetArrayLength(arFinalBoothCoords) - 1].x := arFinalBoothCoords[GetArrayLength(arFinalBoothCoords) - 1].x + arBoothCoords[a][b].x;
arFinalBoothCoords[GetArrayLength(arFinalBoothCoords) - 1].y := arFinalBoothCoords[GetArrayLength(arFinalBoothCoords) - 1].y + arBoothCoords[a][b].y;
end;
arFinalBoothCoords[GetArrayLength(arFinalBoothCoords) - 1].x := arFinalBoothCoords[GetArrayLength(arFinalBoothCoords) - 1].x / GetArrayLength(arBoothCoords[a]);
arFinalBoothCoords[GetArrayLength(arFinalBoothCoords) - 1].y := arFinalBoothCoords[GetArrayLength(arFinalBoothCoords) - 1].y / GetArrayLength(arBoothCoords[a]);
end;
ColorToleranceSpeed(1);
Result := arFinalBoothCoords;
//Writeln(IntToStr(GetArrayLength(arRoughBankCoords) - 1));
{for a := 0 to GetArrayLength(Result) - 1 do
begin
MoveMouse(Result[a].x, Result[a].y);
Wait(500);
end;}
end;
//------------------------------------------------------------------------\\
{ SumOpenBank - Opens the bank ||
\\------------------------------------------------------------------------//}
function SumOpenBank: Boolean;
var
BankTime, i: Integer;
arBankCoords: TPointArray;
begin
if LoggedIn then
begin
Flag;
Wait(500);
MarkTime(BankTime);
while(not(BankScreen))and(TimeFromMark(BankTime) < 20000)do
begin
arBankCoords := SumFindBankBooths
for i := 0 to GetArrayLength(arBankCoords) - 1 do
begin
if not(LoggedIn)then
Exit;
Flag;
Wait(100 + Random(100));
MMouse(arBankCoords[Random(GetArrayLength(arBankCoords) - 1)].x, arBankCoords[Random(GetArrayLength(arBankCoords) - 1)].y, 5, 5);
if(IsUpTextMulti('se Ban', 'ank b', 'booth'))then
begin
GetMousePos(x, y);
Mouse(x, y, 2, 2, false);
Wait(100+Random(100));
ChooseOption('uickly');
Wait(100+Random(100));
Flag;
Wait(1000 + Random(500));
end;
if(PinScreen)then
if not(InPin(PinNumber))then
Writeln('Pin Failed.');
if(BankScreen)or(TimeFromMark(BankTime) > 20000)then
Break;
end;
end;
Result := BankScreen;
end;
end;
//------------------------------------------------------------------------\\
{ SLBank - Main banking procedure ||
\\------------------------------------------------------------------------//}
procedure SLBank(WithdrawNewPick: Boolean);
var
dtmOre: Integer;
begin
if LoggedIn then
begin
if(WithdrawNewPick)then
begin
if(InvCount = 28)then
begin
dtmOre := DTMFromString('78DA63DCCBC0C0F08C0105989828C1D9FF8 18' +
'0711D90F198010D302291407A0F90F84C40CD29207197809A E340' +
'E2157E3500FA360CCF');
if(FindDtm(dtmOre, x, y, MIX1, MIY1, MIX2, MIY2))then
begin
Mouse(x, y, 5, 5, false);
ChooseOption('rop');
end;
FreeDtm(dtmOre);
end;
GameTab(5);
Mouse(591, 304, 10, 10, true);
GameTab(4);
end;
SumOpenBank;
if(not BankScreen)then
begin
if(SumFindBank(x, y))then
begin
MouseFindNoFlag(x, y, 1, 0);
Flag;
if(FlagPresent)then
Wait(500 + Random(200));
end;
if not(OpenBankQuiet('feb'))then
begin
Wait(500);
if not(BankScreen)then
begin
PlayerLost('couldnt open the bank.');
Exit;
end;
end;
end;
FixBank;
if(EquipPick)or(WithdrawNewPick)then
begin
DepositAll;
DepositAll;
end else
Deposit(2, 28, 2);
if(WithdrawNewPick)then
begin
if(GetBestPAxe(x, y))then
begin
Mouse(x, y, 5, 5, true);
Wait(200+Random(300));
end;
end;
CloseBank;
Wait(200+Random(200));
if(BankScreen)then
CloseBank;
if(WithdrawNewPick)then
begin
if(FindColorTolerance(x, y, 876930, MIX1, MIY1, MIX2, MIY2, 10))then
Mouse(x, y, 4, 4, True);
Wait(400 + Random(400));
if not(SumFindPickHeadColor)then
PlayerLost('You dont have an axe');
end;
end;
end;
//-----------------------------------------------------------------\\
{ TimeToSwitchPlayers - Is it time to switch players ? ||
\\-----------------------------------------------------------------//}
function TimeToSwitchPlayers: boolean;
begin
if(TimeFromMark(RunTime) / 60 / 1000 > TotalMinutesPerPlayer)then
begin
Result := True;
WriteLn('Time is up');
end else
Result := False;
end;
//-----------------------------------------------------------------\\
{ Signature - My trade mark :) ||
\\-----------------------------------------------------------------//}
procedure Signature;
begin
Writeln(' _______ __ __ __');
Writeln(' / _____/__ __ _____ |__| |__| ___ ____');
Writeln(' \___ \| | \/ \| | | |/ _ \/ \');
Writeln(' / \ | / Y Y \ | | ( <_> ) | \');
Writeln('/_____ /____/|__|_| /__|__|__|\___/|__| /');
Writeln(' \/ \/ \/');
Writeln('Scripts Brings You:');
Writeln(' Sumilions Rimmington Miner');
end;
//-----------------------------------------------------------------\\
{ SetupScript - Sets up the script. ||
\\-----------------------------------------------------------------//}
procedure SetupScript;
begin
SetupSRL;
SetupMining;
ScriptID := '166';
RCMaster := RemoteMaster;
if(SRLStatsID <> '')then
SRLID := SRLStatsID;
if(SRLStatsPW <> '')then
SRLPassword := SRLStatsPW;
LoadImages;
DeclarePlayers;
MinCount := TheMinCount;
CurrentPlayer := StartPlayer;
ClearDebug;
Signature;
CheckUserNicks;
Wait(500);
ActivateClient;
Wait(500);
end;
//-----------------------------------------------------------------\\
{ SetupUser - Sets up the current user. ||
\\-----------------------------------------------------------------//}
procedure SetupUser;
begin
if not(LoggedIn)then
LoginPlayer;
FalaRoadColor := 0;
RoadColor := 0;
MakeCompass('N');
HighestAngle;
if not(SumFindPickHeadColor)then
begin
Writeln('No PickAxe found...');
Writeln('Make sure your at V-Bright');
LogOut;
end;
GameTab(2);
Players[CurrentPlayer].Level[15] := GetSkillLevel('mining');
PinNumber := Players[CurrentPlayer].Strings[1];
TotalMinutesPerPlayer := MinutesPerPlayer + Random(RandomMinutes);
SetOreColor;
GameTab(4);
MarkTime(RunTime);
end;
//-----------------------------------------------------------------\\
{ MainLine - The magic is down here. ||
\\-----------------------------------------------------------------//}
begin
SetupScript;
repeat;
SetupUser;
repeat;
BankToMine;
SetRun(True);
while(LoggedIn)and
(not(InvFull))and
(not(TimeToSwitchPlayers))do
begin
if not(SumMine)then
if(Random(100) > 85)then
IdleTime(500, 500, 0.4);
Wait(16);
FindNormalRandoms;
Wait(16);
end;
SetRun(False);
GameTab(4);
MineToBank;
KeepUpStats;
SLBank(False);
PlayerStatus := LoggedIn;
if(TimeToSwitchPlayers)then
LogOut;
until not(LoggedIn);
NextPlayer(PlayerStatus);
until not(Players[CurrentPlayer].Active);
Writeln('All players are false.');
end
---------------------------------------------------
for some reason it wont type at the log in screen i have srl 4 correctly installed and i have scar 3.11 divi any ideas?
Ciesson
09-12-2007, 12:46 PM
Firstly, USE CODE TAGS!!!!!!!! Put
before your text and after it please!!!!
Now your not logining in problem....
Add this to line 1389 ( around there anyway :p) above ActivateClient;
FindWindowBySize(766, 504);
AND PLEASE EDIT YOUR POST WITH CODE TAGS!!!!!!
EDIT: Just noticed that he did try to use them, he just forgot to put a / in the last tag...
Now for my proggy...
<========== RimmingtonMiner ============>
<======= -0.25- Progress Report ========>
/=======================================\
Worked for 7 Hours, 19 Minutes and 11 Seconds
Banked 45 loads[s].
Mined 581 ores.
Received 1 gem[s].
Avoided gas 3 time[s].
\=======================================/
Name : *****
Mining Lvl : 29
Worked for : 138 minutes.
Banked : 9 time[s].
Active : True
Location : no RoadColor
\\-------------------------------------//
0: ***** = False, 3 Bank[s], Worked 22 minutes, Loc:
1: *****= False, 4 Bank[s], Worked 23 minutes, Loc: No GameTab
2: *****= False, 0 Bank[s], Worked 0 minutes, Loc:
3: *****= False, 7 Bank[s], Worked 70 minutes, Loc: No GameTab
4: *****= False, 5 Bank[s], Worked 38 minutes, Loc:
5: *****= False, 6 Bank[s], Worked 43 minutes, Loc: No GameTab
6: *****= False, 1 Bank[s], Worked 2 minutes, Loc: No GameTab
7: *****= True, 9 Bank[s], Worked 138 minutes, Loc: no RoadColor
8: *****= False, 8 Bank[s], Worked 65 minutes, Loc: no RoadColor
9: *****= False, 2 Bank[s], Worked 18 minutes, Loc:
<==========================================>
/~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
| SRL 4 Randoms Report |
| www.srl-forums.com |
|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|
| SRL Logs : 25 |
| Talks : 2 |
| Sandwiches : 1 |
| Certers Missed : 1 |
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~/
The NoGameTab error is always at the bank... I think it picks up NoGameTab before the bank window is closed because when it is open there are no tabs... Think about it.
And Sum ur a mod how about editing that guys post? I had to work out how to use noparse just so i could show him...
Sumilion
09-12-2007, 02:10 PM
---------------------------------------------------
for some reason it wont type at the log in screen i have srl 4 correctly installed and i have scar 3.11 divi any ideas?
Ciesson already explained it.
http://www.villavu.com/forum/showthread.php?t=16195
The NoGameTab error is always at the bank... I think it picks up NoGameTab before the bank window is closed because when it is open there are no tabs... Think about it.
It doesn't search for it then... at least it shouldnt :p
Its a known problem in SRL 4 btw... not in my script
And Sum ur a mod how about editing that guys post? I had to work out how to use noparse just so i could show him...
I think he already did that :p
sudersmiley
09-12-2007, 11:17 PM
i think im stupid or somthin now im getting the error Line 1414: [Error] (14258:1): Identifier expected in script C:\Documents and Settings\Owner\Desktop\SRM v0.25.scar
yes the info is right....
{================================================= ==================]
[ Sumilions Rimmington Miner ]
[ ]
[ NAME : Sumilions Rimmington Miner ]
[ WRITER : Sumilion ]
[ CATEGORY : Miner ]
[ DESCRIPTION : Mines in Rimmington, banks in Falador ]
[ USAGE : Start at bankbooth in Falador ]
[ AUTOCOLOR : Partially ]
[ SRL Used : 4.0 (Beta) ]
[ Scar User : Scar DIVI 3.11 ]
[ ]
[ More Scripts can be found at ]
[ www.SRL-Forums.com ]
[================================================== =================]
[ Instructions. ]
[================================================== =================]
[ 1. USE Runescape with Low Detail, Very Bright. ]
[ 2. Set your Screen to 32 bit TRUE color. ]
[ 3. Setup lines below ]
[ 4. Set CopperRockMMColor (and NormalRockMMColor)!!! ]
[ 5. Set Playernames and Passwords below. ]
[ 6. Have Pick in First invslot or wielded and more in the bank ]
[ 7. Start script Logged Out / Logged in ]
[================================================== =================}
program SumilionsRimmingtonMiner;
{.include SRL/SRL.scar}
{.include SRL/SRL/skill/Mining.scar}
//********Color Settings********\\
const
CopperRockMMColor = 1324100; // If AutoMMRockColor is true, then there is no need to fill this in.
NormalRockMMColor = 4275508; // If AutoMMRockColor is true, then there is no need to fill this in.
AutoMMRockColor = True; // Use the (experimental) Copper+Normal rock color finder ?
//********Player Settings********\\
const
MinutesPerPlayer = 15; // Time in minutes per player
RandomMinutes = 5; // Random number under this gets added to above.
MaxSecRock = 5; // Maximum seconds to wait for a rock
StartPlayer = 0; // With what player do you want to start ?
RunDir = 'N'; // Direction to run to when in fight
RunFar = True; // Run far when in fight ?
//********Additional Settings********\\
SRLStatsID = ''; // Your SRL ID for the stats (Leave blanc to set it to default, from SetupSRL.scar)
SRLStatsPW = ''; // Your Password for the stats (Leave blanc to set it to default, from SetupSRL.scar)
VersionNumber = '0.25'; // No need to change this
TheMinCount = 5; // No need to change this
BoxSize = 15; // No need to change this
RemoteMaster = 'umil'; // For advanved users only.
//********Player Settings********\\
procedure DeclarePlayers;
begin
HowManyPlayers := 5;//MAKE SURE THIS ONE IS CORRECT!
CurrentPlayer := StartPlayer;
NumberOfPlayers(HowManyPlayers);
Players[0].Name := ''; // Your Runescape name
Players[0].Pass := '; // The corresponding password
Players[0].Nick := 'mil'; // 3-4 letters from your name, NO CAPITALS (that includes the first character)
Players[0].Strings[0] := 'Copper'; // Type of ore to mine (Clay / Copper / Tin / Iron / Gold)
Players[0].Strings[1] := '0000'; // Your BankPinNumber
Players[0].Active := True;
Players[1].Name := '';
Players[1].Pass := '';
Players[1].Nick := 'kle';
Players[1].Strings[0] := 'Tin';
Players[1].Strings[1] := '0000';
Players[1].Active := True;
Players[2].Name := ';
Players[2].Pass := ;
Players[2].Nick := 'uxd';
Players[2].Strings[0] := 'Copper';
Players[2].Strings[1] := '0000';
Players[2].Active := True;
Players[3].Name := '';
Players[3].Pass := ';
Players[3].Nick := 'men';
Players[3].Strings[0] := 'Tin';
Players[3].Strings[1] := '0000';
Players[3].Active := True;
Players[4].Name := '';
Players[4].Pass := ';
Players[4].Nick := 'man';
Players[4].Strings[0] := 'Copper';
Players[4].Strings[1] := '0000';
Players[4].Active := True;
end;
//********RockColor Settings********\\
const
CopperColor = 4421053;
TinColor = 8224391;
ClayColor = 6196645;
IronColor = 1845058;
GoldColor = 1952246;
//********Dont go below unless your more advanced********\\
var
GasAvoided, bmpOreMask, bmpClayMask, RunTime, MinCount,
FalaRoadColor, MiningSiteColor, RockColor, a, GemsReceived,
OresMined, TotalLoads, bmpGemMask, TotalMinutesPerPlayer,
CopperRockColor, x, y: Integer;
dtmPaxes: array[1..6] of Integer;
PinNumber: string;
PlayerStatus: Boolean;
//-----------------------------------------------------------------\\
{ ProgressReport - Sets up the player array ||
\\-----------------------------------------------------------------//}
procedure ProgressReport;//Made by Fakawi, i think, edited by me
var
PActive, Spaces: string;
I, K, SpaceNumber: Integer;
begin
SRLRandomsReport;
if Players[CurrentPlayer].Active then
PActive:='True'
else
PActive:='False';
Writeln(' ');
Writeln('<========== RimmingtonMiner ============>');
Writeln('<======= -'+VersionNumber+'- Progress Report ========>');
Writeln('/=======================================\');
Writeln(' Worked for '+ TimeRunning);
Writeln(' Banked '+IntToStr(TotalLoads)+' loads[s].');
Writeln(' Mined '+inttostr(OresMined)+(' ores.'));
if(GemsReceived > 0)then
Writeln(' Received '+IntToStr(GemsReceived)+(' gem[s].'));
if(GasAvoided > 0)then
Writeln(' Avoided gas '+IntToStr(GasAvoided)+(' time[s].'));
Writeln('\=======================================/');
Writeln(' Name : '+Players[CurrentPlayer].Name);
Writeln(' Mining Lvl : '+IntToStr(Players[CurrentPlayer].Level[15]));
Writeln(' Worked for : '+IntToStr(Players[CurrentPlayer].Worked)+' minutes.');
Writeln(' Banked : '+IntToStr(Players[CurrentPlayer].Banked)+' time[s].');
Writeln(' Active : '+PActive);
Writeln(' Location : '+Players[CurrentPlayer].Loc);
Writeln('\\-------------------------------------//');
for I := 0 to HowManyPlayers-1 do
begin
if Players[I].Active then
PActive:='True'
else
PActive:='False';
SpaceNumber := 12 - Length(Players[I].Name);
for K := 0 to SpaceNumber do
Spaces := Spaces + ' ';
Writeln(IntToStr(I)+': '+Players[I].Name + Spaces +
'= ' + PActive + ', ' + IntToStr(Players[I].Banked) + ' Bank[s]' +
', Worked ' + IntToStr(Players[I].Worked) + ' minutes, ' +
'Loc: ' + Players[I].Loc);
Spaces := '';
end
Writeln('<==========================================>');
end;
//-----------------------------------------------------------------\\
{ LoadImages - Loads the images in the memory ||
\\-----------------------------------------------------------------//}
procedure LoadImages;
begin
bmpOreMask := BitmapFromString(9, 8, 'z78DA333040076E6080C9C60' +
'F064A17F17A71E9C2AFD70D03E09725DE4CF2DC0F00DCD05C 59');
bmpClayMask := BitmapFromString(9, 6, 'z78DA33302016B88101F' +
'12A4905B86CC1AF9E3CB7E1329F787F218B03004FC54795') ;
bmpGemMask := BitmapFromString(23, 24, 'z78DA3330183EC00D0C686732' +
'F10097AEC1E33BFC2EA77F08936AD7A84B465D428C8DA32E1 9750' +
'931F68EBA6434B50C45978CCC929F785B68ED1E52CDA76E9B 90BA' +
'7E74A3180CFE3E0200FDE18F27');
dtmPaxes[1] {Rune} := DTMFromString('78DA63F463646098C2800274E5181844803 45' +
'086E13F1030C60159BDA86AA2ABDA1938A06A40803114C8EA 4155' +
'E314998CAAC61FC8EA42B3CBC609554D1890D58EAAC63FBB0 C450' +
'D0091470D24');
dtmPaxes[2] {Addy} := DTMFromString('78DA635460646098CC800274E5181844803 45' +
'086E13F1030EA0359BDA86AA20AA31838A06A4080D110C89A 80AA' +
'C6DEDF1E558D3A90D58EAAC63BC117558D1A90D585AAC621C 8014' +
'50D0015F10BD5');
dtmPaxes[3] {Mith} := DTMFromString('78DA63FCC8C0C030990105E8CA313088006 94' +
'620FE0F048C4C40D604543536B6510C1C503520C0F80F48F4 A0AA' +
'F1F2CA4355F31D530D86393F80443B7E730020140ED3');
dtmPaxes[4] {Steel} := DTMFromString('78DA633CCCC0C030890105E8CA313088006 94' +
'620FE0F048C97818C09A86A4A73731838A06A4080F10490E8 21A0' +
'E62490684755D3DBDC8CAAE63CA639FDADAD286A00CE79110 5');
dtmPaxes[5] {Iron} := DTMFromString('78DA639CCCC0C030890105E8CA313088006 94' +
'620FE0F048C4B808C09A86AFC3D3D1938A06A4080711190E8 4555' +
'93979E8EAA661690E84155E3E5E282A9A61D554D6254248A1 A000' +
'6D30E58');
dtmPaxes[6] {Bronze} := DTMFromString('78DA634C66606098C2800274E5181844803 42' +
'310FF0702C652206302AA1A2F0B05060EA81A10602C0612BD A86A' +
'32FCF550D56401891E02E6640389765435912E9A286A005B9 A0C5' +
'9');
end;
//-----------------------------------------------------------------\\
{ KeepUpStats - Updates current statistics ||
\\-----------------------------------------------------------------//}
procedure KeepUpStats;
begin
ProgressReport;
OresMined := OresMined + CountItemBmpMaskTol(bmpOreMask, 5, 5) + CountItemBmpMaskTol(bmpClayMask, 5, 5);
ReportVars[0] := ReportVars[0] + CountItemBmpMaskTol(bmpOreMask, 5, 5) + CountItemBmpMaskTol(bmpClayMask, 5, 5);
GemsReceived := GemsReceived + CountItemBmpMaskTol(bmpGemMask, 5, 5);
ReportVars[3] := ReportVars[3] + CountItemBmpMaskTol(bmpGemMask, 5, 5);
TotalLoads := TotalLoads + 1;
ReportVars[1] := ReportVars[1] + 1;
Players[CurrentPlayer].Banked := Players[CurrentPlayer].Banked + 1;
end;
//------------------------------------------------------------------------\\
{ PlayerLost - Logs out player when lost ||
\\------------------------------------------------------------------------//}
procedure PlayerLost(Info:string);
begin
Writeln('Player Lost, '+ Info);
Logout;
end;
//-----------------------------------------------------------------\\
{ SetOreColor - Sets correct OreColor ||
\\-----------------------------------------------------------------//}
procedure SetOreColor;
begin
case LowerCase(Players[CurrentPlayer].Strings[0]) of
'copper' : OreColor := CopperColor;
'tin' : OreColor := TinColor;
'clay' : OreColor := ClayColor;
'iron' : OreColor := IronColor;
'gold' : OreColor := GoldColor;
'iron + gold': begin OreColor1 := GoldColor; OreColor2 := IronColor; end;
'gold + iron': begin OreColor1 := GoldColor; OreColor2 := IronColor; end;
end;
if(OreColor = 0)and(OreColor1 = 0)and(OreColor2 = 0)then
Writeln('String1 is NOT set properly or color is 0...');
OreColor3 := 0;
end;
//-----------------------------------------------------------------\\
{ FindFastRandoms - Finds the randoms fast ||
\\-----------------------------------------------------------------//}
function FindFastRandoms: Boolean; // By WT-Fakawi.
var
i: Integer;
begin
for I := 1 to 11 do
begin
case I of
1: if FindDead then
Result := True;
2: if FindMod then
Result := True;
3: if FindMime then
Result := True;
4: if FindMaze then
Result := True;
5: if FindQuiz then
Result := True;
//6: if FindDemon then
// Result := True;
7: begin
if NoGameTab then
begin
Result := True;
Players[CurrentPlayer].loc := 'No GameTab';
Logout;
Exit;
end;
end;
8: begin
if InBlack then
begin
Result := True;
Players[CurrentPlayer].loc := 'InBlack';
Logout;
Exit;
end;
end;
9 : if RC then
Result := True;
10 : if FindFight then
begin
Result := True;
RunTo(RunDir, RunFar);
end;
11: if FindTalk then
Result := True;
end;
Wait(1);
end;
end;
//-----------------------------------------------------------------\\
{ SumFindPickHeadColor - Gets pickhead colors ||
\\-----------------------------------------------------------------//}
function SumFindPickHeadColor: Boolean;
var
InvPAxe, WieldPAxe, Ix, Iy, Wx, Wy: integer;
begin
GameTab(4);
for InvPAxe := 1 to 7 do
begin
if(InvPAxe = 7)then
Break;
if(FindDtm(dtmPaxes[InvPAxe], Ix, Iy, MIX1, MIY1, MIX2, MIY2))then
Break;
end;
GameTab(5);
Wait(500);
for WieldPAxe := 1 to 7 do
begin
if(WieldPAxe = 7)then
Break;
if(FindDtm(dtmPaxes[WieldPAxe], Wx, Wy, MIX1, MIY1, MIX2, MIY2))then
Break;
end;
if(InvPAxe = 7)and(WieldPAxe = 7)then
begin
Result := False;
Exit;
end;
if((InvPAxe-WieldPAxe) < 0)then
EquipPick := False
else
EquipPick := True;
Result := true;
if(EquipPick)then
begin
GameTab(5);
hc1 := GetColor(585, 295);
hc2 := GetColor(597, 297);
hc3 := GetColor(594, 296);
hc4 := GetColor(588, 295);
hc5 := GetColor(582, 294);
end else
begin
GameTab(4);
if(Ix > 592)and(Iy > 238)then
begin
MMouse(Ix, Iy, 5, 5);
GetMousePos(Ix, Iy);
HoldMouse(Ix, Iy, True);
MMouse(529, 227, 5, 5);
GetMousePos(Ix, Iy);
ReleaseMouse(Ix, Iy, True);
end;
FindDtm(dtmPaxes[InvPAxe], Ix, Iy, MIX1, MIY1, MIX2, MIY2);
hc1 := GetColor(587, 216);
hc2 := GetColor(587, 219);
hc3 := GetColor(592, 222);
hc4 := GetColor(584, 216);
hc5 := GetColor(577, 219);
end;
WriteLn('Pick head colors... ' + IntToStr(hc1) + ' ' + IntToStr(hc2) + ' ' +
IntToStr(hc3) + ' ' + IntToStr(hc4) + ' ' + IntToStr(hc5));
end;
//-----------------------------------------------------------------\\
{ SumFindRoadColor - Finds both road colors on the screen ||
\\-----------------------------------------------------------------//}
function SumFindRoadColor(FalaColor: Boolean): Integer;
var
arRoadPoints: TPointArray;
GenericColor, a, b: Integer;
arRoughRoadColors, arRoadColors: array of Integer;
WeGotIt: Boolean;
ResultString: string;
begin
if(FalaColor)then
GenericColor := 6057843
else
GenericColor := 5921377;
if(FalaColor)then
ResultString := 'Fala';
ColorToleranceSpeed(2);
SetColorspeed2Modifiers(10.0, 0.03);
FindColorsTolerance(arRoadPoints, GenericColor, MMX1, MMY1, MMX2, MMY2, 50);
ColorToleranceSpeed(1);
arRoughRoadColors := GetColors(arRoadPoints);
for a := 0 to GetArrayLength(arRoughRoadColors) - 1 do
begin
WeGotIt := False;
if(arRoughRoadColors[a] > 5000000)and(arRoughRoadColors[a] < 8000000)then
begin
for b := 0 to GetArrayLength(arRoadColors) - 1 do
begin
if(arRoadColors[b] = arRoughRoadColors[a])then
WeGotIt := True;
end;
if not(WeGotIt)then
begin
if(CountColor(arRoughRoadColors[a], MMX1, MMY1, MMX2, MMY2) > 200)then
begin
if(rs_OnMinimap(arRoadPoints[a].x, arRoadPoints[a].y))then
begin
//Writeln(IntToStr(arRoughRoadColors[a]));
SetArrayLength(arRoadColors, GetArrayLength(arRoadColors) + 1);
arRoadColors[GetArrayLength(arRoadColors) - 1] := arRoughRoadColors[a];
end;
end;
end;
end;
end;
if not(GetArrayLength(arRoadColors) = 1)then
begin
Writeln('Failed to find the road using SumFindRoadColor.');
Writeln('Trying default autocoloring.');
if(FalaColor)then
Result := FindFallyRoadColor
else
Result := FindRoadColor;
end else
Result := arRoadColors[0];
Writeln('RoadColor = '+IntToStr(Result));
if(Result = 0)then
begin
Writeln('Failed to find the road color.');
Writeln('Leaving it what it was.');
if(FalaColor)then
Result := FalaRoadColor
else
Result := RoadColor;
end;
end;
//-----------------------------------------------------------------\\
{ SumFindCopperRockColor - Finds the MM Copper rock color ||
\\-----------------------------------------------------------------//}
function SumFindCopperRockColor: Integer;
var // <3 nielsie :)
R, G, B: Integer;
Points: TPointArray;
Colors, UniqueColors: TIntegerArray;
i, a: Integer;
NewColor: Boolean;
begin
if not LoggedIn then
Exit;
ColorToleranceSpeed(0);
FindColorsSpiralTolerance(MMCX, MMCY, Points, 3232641, MMCX + 20, MMCY + 20, MMX2, MMY2, 36);
ColorToleranceSpeed(1);
if Length(Points) > 1 then
begin
Colors := GetColors(Points);
for i := 0 to Length(Colors) -1 do
begin
NewColor := True;
for a := 0 to GetArrayLength(UniqueColors) - 1 do
begin
if(UniqueColors[a] = Colors[i])then
begin
NewColor := False;
Break;
end;
end;
if(NewColor)then
begin
SetArrayLength(UniqueColors, GetArrayLength(UniqueColors) + 1);
UniqueColors[GetArrayLength(UniqueColors) - 1] := Colors[i];
end;
end;
SetArrayLength(Colors, 0);
for i := 0 to Length(UniqueColors) -1 do
if UniqueColors[i] <> 0 then
begin
ColorToRGB(UniqueColors[i], R, G, B);
if (R < 158) and (R > 107) then
if (G < 103) and (G > 55) then
if (B < 82) and (B > 27) then
if CountColor(UniqueColors[i], MMX1, MMY1, MMX2, MMY2) > 50 then
begin
SetArrayLength(Colors, Length(Colors) +1);
Colors[Length(Colors) -1] := UniqueColors[i];
end;
end;
a := 0;
if Length(Colors) > 1 then
begin
for i := 0 to GetArrayLength(Colors) -1 do
begin
if Max(a, Colors[i]) <> a then
a := Colors[i];
//WriteLn('['+IntToStr(i)+'] Color: '+IntToStr(Colors[i]));
end;
Result := a;
WriteLn('CopperRockColor = '+IntToStr(a));
end;
end;
if(Result = 0)then
begin
Writeln('Failed finding CopperMMRockColor, trying default FindStoneColor...');
Result := FindStoneColor;
if(Result = 0)then
Writeln('Failed aswell, walking closer ...')
else
Writeln('CopperRockColor = '+IntToStr(Result));
end;
end;
//-----------------------------------------------------------------\\
{ SumFindNormalRockColor - Finds the MM Normal rock color ||
\\-----------------------------------------------------------------//}
function SumFindNormalRockColor: Integer;
var // <3 nielsie :)
R, G, B: Integer;
Points: TPointArray;
Colors, UniqueColors: TIntegerArray;
i, a: Integer;
NewColor: Boolean;
begin
//if not LoggedIn then Exit;
ColorToleranceSpeed(0);
FindColorsSpiralTolerance(MMCX, MMCY, Points, 5591896, MMX1, MMY1, MMX2, MMY2, 34);
if Length(Points) < 1 then Exit;
Colors := GetColors(Points);
for i := 0 to Length(Colors) -1 do
begin
NewColor := True;
for a := 0 to GetArrayLength(UniqueColors) - 1 do
begin
if(UniqueColors[a] = Colors[i])then
NewColor := False;
end;
if(NewColor)then
begin
SetArrayLength(UniqueColors, GetArrayLength(UniqueColors) + 1);
UniqueColors[GetArrayLength(UniqueColors) - 1] := Colors[i];
end;
end;
for i := 0 to Length(UniqueColors) -1 do
if UniqueColors[i] <> 0 then
begin
ColorToRGB(UniqueColors[i], R, G, B);
if (R < 115) and (R > 57) then
if (G < 110) and (G > 66) then
if (B < 101) and (B > 57) then
if CountColor(UniqueColors[i], MMX1, MMY1, MMX2, MMY2) > 50 then
begin
WriteLn('NormalRockColor = '+IntTostr(UniqueColors[i]))
Result := UniqueColors[i];
Break;
end;
end;
ColorToleranceSpeed(1);
if(Result = 0)then
begin
Writeln('Failed finding NormalMMRockColor, trying default FindRockColor...');
Result := FindRockColor;
if(Result = 0)then
begin
Writeln('All methods failed ... terminating.');
TerminateScript;
end;
end;
end;
//-----------------------------------------------------------------\\
{ SumCheckGas - Checks if there is gas ||
\\-----------------------------------------------------------------//}
function SumCheckGas(rx, ry: Integer): Boolean;
var
TempMouseSpeed, GasTime: Integer;
begin
Result := FindGas(rx, ry - 20);
if(Result)then
begin
Writeln('Gas found!');
TempMouseSpeed := MouseSpeed;
MouseSpeed := 5;
MouseFindNoFlag(MMCX, MMCY + 4, 1, 1);
MarkTime(GasTime);
MouseSpeed := TempMouseSpeed;
while(TimeFromMark(GasTime) < 35000)do
if(Random(20) > 15)then
IdleTime(500, 500, 0.4)
else
Wait(500 + Random(500));
GasAvoided := GasAvoided + 1;
ReportVars[2] := ReportVars[2] + 1;
end;
end;
//-----------------------------------------------------------------\\
{ IsOre - Did we found an ore or a rock ? ||
\\-----------------------------------------------------------------//}
function IsOre(rx, ry: Integer): Boolean;
begin
Result := FindColorSpiralTolerance(x, y, 4481401, rx - 5, ry - 5, rx + 5, ry + 5, 5);
end;
//-----------------------------------------------------------------\\
{ FindRockCenter - Finds the rock center ||
\\-----------------------------------------------------------------//}
function FindRockCenter(var RockPoint: TPoint; RockColor, BoxSize, RockMinimum: Integer): Boolean;
var
c, MaxTime, SMSX, SMSY: Integer;
arRoughRockPoints, arRockPoints: TPointArray;
begin
if(LowerCase(Players[CurrentPlayer].Strings[0]) = 'iron + gold')or
(LowerCase(Players[CurrentPlayer].Strings[0]) = 'gold + iron')and
(RockColor <> GoldColor)then
begin
SMSX := MSCX - 100;
SMSY := MSCY - 70;
end else
begin
SMSX := MSX1;
SMSY := MSY1;
end;
FindColorsSpiralTolerance(MSCX, MSCY, arRoughRockPoints, RockColor, SMSX, SMSY, MSX2, MSY2, 5);
if(GetArrayLength(arRoughRockPoints) < 1)then
Exit;
MarkTime(MaxTime);
for c := 0 to GetArrayLength(arRoughRockPoints) - 1 do
begin
if not(IsOre(arRoughRockPoints[c].x, arRoughRockPoints[c].y))then
begin
RockPoint.x := 0;
RockPoint.y := 0;
ColorToleranceSpeed(2);
SetColorspeed2Modifiers(0.4, 0.4);
FindColorsTolerance(arRockPoints, 940676, arRoughRockPoints[c].x - BoxSize, arRoughRockPoints[c].y - BoxSize, arRoughRockPoints[c].x + BoxSize, arRoughRockPoints[c].y + BoxSize, 3);
for a := 0 to GetArrayLength(arRockPoints) - 1 do
begin
RockPoint.x := RockPoint.x + arRockPoints[a].x;
RockPoint.y := RockPoint.y + arRockPoints[a].y;
end;
if(GetArrayLength(arRockPoints) <> 0)and
(RockPoint.x <> 0)and(RockPoint.y <> 0)then
begin
RockPoint.x := RockPoint.x / GetArrayLength(arRockPoints);
RockPoint.y := RockPoint.y / GetArrayLength(arRockPoints);
MMouse(RockPoint.x, RockPoint.y, 5, 5);
ColorToleranceSpeed(1);
Result := (GetArrayLength(arRockPoints) > RockMinimum)and
(IsUpText('Mine'));
end;
if(Result)or(TimeFromMark(MaxTime) > 5000)then
Break;
Wait(100);
end;
end;
end;
//-----------------------------------------------------------------\\
{ FindRockCenterBetter - Gets the center using a coordinate ||
\\-----------------------------------------------------------------//}
function FindRockCenterBetter(var RockPoint: TPoint; rx, ry, BoxSize, RockMinimum: Integer): Boolean;
var
fx, fy: Integer;
arRockPoints: TPointArray;
begin
if not(FindColorSpiralTolerance(fx, fy, 940676, rx - 5, ry - 5, rx + 5, ry + 5, 5))then
begin
fx := rx;
fy := ry;
end;
RockPoint.x := 0;
RockPoint.y := 0;
ColorToleranceSpeed(2);
SetColorspeed2Modifiers(0.4, 0.4);
FindColorsTolerance(arRockPoints, 940676, fx - BoxSize, fy - BoxSize, fx + BoxSize, fy + BoxSize, 3);
for a := 0 to GetArrayLength(arRockPoints) - 1 do
begin
RockPoint.x := RockPoint.x + arRockPoints[a].x;
RockPoint.y := RockPoint.y + arRockPoints[a].y;
end;
if(GetArrayLength(arRockPoints) <> 0)and
(RockPoint.x <> 0)and(RockPoint.y <> 0)then
begin
RockPoint.x := RockPoint.x / GetArrayLength(arRockPoints);
RockPoint.y := RockPoint.y / GetArrayLength(arRockPoints);
Result := GetArrayLength(arRockPoints) > RockMinimum;
end;
ColorToleranceSpeed(1);
end;
//-----------------------------------------------------------------\\
{ RockGone - Did we lost the rock ? ||
\\-----------------------------------------------------------------//}
function RockGone(rx, ry: Integer): Boolean;
begin
Result := not FindColorSpiralTolerance(rx, ry, OreColor, rx - 10, ry - 10, rx + 10, ry + 10, 10);
end;
//-----------------------------------------------------------------\\
{ GetNewPick - Goes to get a new pick from the bank ||
\\-----------------------------------------------------------------//}
procedure MineToBank; forward;
procedure BankToMine; forward;
procedure SLBank(WithdrawNewPick: Boolean); forward;
procedure GetNewPick;
begin
MineToBank;
SLBank(True);
BankToMine;
end;
//-----------------------------------------------------------------\\
{ WorkUntilMined - Loops until we're done mining ||
\\-----------------------------------------------------------------//}
procedure WorkUntilMined(wx, wy, InvSpot: Integer);
var
i, MineTime: Integer;
begin
MarkTime(MineTime);
while(LoggedIn)do
begin
for i := 0 to 6 do
begin
case i of
0 : if(NoPick)then
GetNewPick;
1 : if(FindFastRandoms)then
Break;
2 : if(SumCheckGas(wx, wy))then
Break;
3 : if(ExistsItem(InvSpot))then
Exit;
4 : if(RockGone(wx, wy))then
Exit;
5 : if(TimeFromMark(MineTime) > MaxSecRock * 1000)then
Exit;
6 : if not(FindPick)then
begin
Writeln('We lost our pick axe.');
Break;
end;
end;
Wait(1);
end;
if(Random(100) > 90)then
IdleTime(500, 500, 0.4);
end;
PlaySound('C:\WINDOWS\Media\winAquariumCritStop.wa v');
end;
//-----------------------------------------------------------------\\
{ UpdateRockCoord - Updates the coord of the rock ||
\\-----------------------------------------------------------------//}
function UpdateRockCoord(var ux, uy: Integer; UColor: Integer): Boolean;
var
FailSafeTime, i: Integer;
RockPoint: TPoint;
begin
if not(FlagPresent)then
begin
Result := True;
Exit;
end;
MarkTime(FailSafeTime);
while(FindColorSpiralTolerance(ux, uy, UColor, ux - 20, uy - 20, ux + 20, uy + 20, 10))and
(TimeFromMark(FailSafeTime) < 20000)and
(FlagPresent)do
begin
Result := FindRockCenterBetter(RockPoint, ux, uy, BoxSize, MinCount);
Wait(16);
ux := RockPoint.x;
uy := RockPoint.y;
end;
for i := 0 to 62 do
begin
Result := FindRockCenterBetter(RockPoint, ux, uy, BoxSize, MinCount);
Wait(8);
ux := RockPoint.x;
uy := RockPoint.y;
end;
end;
//-----------------------------------------------------------------\\
{ SumMine - Mines the rock ||
\\-----------------------------------------------------------------//}
function SumMine: Boolean;
var
rx, ry, InvSpot, i: Integer;
RockPoint: TPoint;
begin
for i := 0 to 1 do
begin
if(LowerCase(Players[CurrentPlayer].Strings[0]) = 'iron + gold')or
(LowerCase(Players[CurrentPlayer].Strings[0]) = 'gold + iron')then
case i of
0: OreColor := OreColor1;
1: OreColor := OreColor2;
end;
Result := FindRockCenter(RockPoint, OreColor, BoxSize, MinCount);
if(Result)then
begin
if(SumCheckGas(RockPoint.x, RockPoint.y))then
Exit;
for InvSpot := 1 to 28 do
if not(ExistsItem(InvSpot))then
Break;
GetMousePos(rx, ry);
if Random (20) < 19 then
Mouse(rx, ry, 0, 0, True)
else begin
Mouse(rx, ry, 0, 0, False);
ChooseOption('Mine');
end;
if not(UpdateRockCoord(RockPoint.x, RockPoint.y, GetColor(RockPoint.x, RockPoint.y)))then
Exit;
WorkUntilMined(RockPoint.x, RockPoint.y, InvSpot);
Break;
end;
if not((LowerCase(Players[CurrentPlayer].Strings[0]) = 'iron + gold')or
(LowerCase(Players[CurrentPlayer].Strings[0]) = 'gold + iron'))then
Break;
end;
end;
//-----------------------------------------------------------------\\
{ GoToCorrectSpot - Goes to the correct spot ||
\\-----------------------------------------------------------------//}
procedure GoToCorrectSpot;
begin
if(RockColor = 0)then
begin
if(AutoMMRockColor)then
RockColor := SumFindNormalRockColor
else
RockColor := NormalRockMMColor;
Writeln('RockColor = ' + IntToStr(RockColor));
end;
if(LowerCase(Players[CurrentPlayer].Strings[0]) = 'iron + gold')or
(LowerCase(Players[CurrentPlayer].Strings[0]) = 'gold + iron')then
begin
RadialWalk(RockColor, 170, 210, 100, 1, 0);
Flag;
end else
case OreColor of
TinColor :
begin
RadialWalk(RockColor, 90, 130, 100, -1, -1);
Flag;
end;
IronColor :
begin
RadialWalk(RockColor, 250, 290, 100, 1, 0);
Flag;
end;
ClayColor :
begin
RadialWalk(CopperRockMMColor, 50, 120, 70, 1, 0);
Flag;
end;
GoldColor :
begin
RadialWalk(RockColor, 170, 210, 100, 1, 0);
Flag;
end;
end;
end;
//-----------------------------------------------------------------\\
{ SumFindBank - Finds falador bankers on MM ||
\\-----------------------------------------------------------------//}
function SumFindBank(var bx, by: Integer): Boolean;
var
a, b, c, HighestCount: Integer;
arRoughBankCoords, HighestArray: TPointArray;
arBankCoords: array of TPointArray;
WeGotIt: Boolean;
begin
ColorToleranceSpeed(0);
FindColorsTolerance(arRoughBankCoords, 195836, MMX1, MMY1 + 40, MMX2, MMY2, 5);
for a := 0 to GetArrayLength(arRoughBankCoords) - 1 do
begin
WeGotIt := False;
for b := 0 to GetArrayLength(arBankCoords) - 1 do
begin
for c := 0 to GetArrayLength(arBankCoords[b]) - 1 do
begin
if(arRoughBankCoords[a].y > arBankCoords[b][c].y - 5)and
(arRoughBankCoords[a].y < arBankCoords[b][c].y + 5)then
begin
SetArrayLength(arBankCoords[b], GetArrayLength(arBankCoords[b]) + 1);
arBankCoords[b][GetArrayLength(arBankCoords[b]) - 1] := arRoughBankCoords[a];
WeGotIt := True;
Break;
end;
end;
end;
if not(WeGotIt)then
begin
SetArrayLength(arBankCoords, GetArrayLength(arBankCoords) + 1);
SetArrayLength(arBankCoords[GetArrayLength(arBankCoords) - 1], GetArrayLength(arBankCoords[GetArrayLength(arBankCoords) - 1]) + 1);
arBankCoords[GetArrayLength(arBankCoords) - 1][0] := arRoughBankCoords[a];
end;
end;
for a := 0 to GetArrayLength(arBankCoords) - 1 do
begin
if(GetArrayLength(arBankCoords[a]) > HighestCount)then
begin
HighestArray := arBankCoords[a];
HighestCount := GetArrayLength(arBankCoords[a]);
end;
end;
if(GetArrayLength(HighestArray) > 15)then
begin
Result := True;
for a := 0 to GetArrayLength(HighestArray) - 1 do
begin
bx := bx + HighestArray[a].x;
by := by + HighestArray[a].y;
end;
bx := bx / GetArrayLength(HighestArray);
by := (by / GetArrayLength(HighestArray)) - 10;
end;
ColorToleranceSpeed(1);
end;
//-----------------------------------------------------------------\\
{ BankToMine - Walks to the mine ||
\\-----------------------------------------------------------------//}
procedure BankToMine;
var
MaxTime: Integer;
begin
if not(LoggedIn)then
Exit;
if(FalaRoadColor = 0)or(not(FindColor(x, y, FalaRoadColor, MMX1, MMY1, MMX2, MMY2)))then
FalaRoadColor := SumFindRoadColor(True);
RadialWalk(FalaRoadColor, 250, 270, 70, 0, -1);
FFlag(5);
MarkTime(MaxTime);
repeat;
if not(FindColor(x, y, FalaRoadColor, MMX1, MMY1, MMX2, MMY2))then
FalaRoadColor := SumFindRoadColor(True);
RadialWalk(FalaRoadColor, 160, 210, 40, 0, -1);
FFlag(5);
until((not(FindColor(x, y, FalaRoadColor, MMCX - 20, MMCY + 10, MMX2, MMY2)))and
(FindColor(x, y, FalaRoadColor, MMX1, MMY1, MMX2, MMY2)))or
(TimeFromMark(MaxTime) > 90000);
if(TimeFromMark(MaxTime) > 90000)then
PlayerLost('timed out (1)');
if not(LoggedIn)then
Exit;
if(RoadColor = 0)or(not(FindColor(x, y, RoadColor, MMX1, MMY1, MMX2, MMY2)))then
RoadColor := SumFindRoadColor(False);
MarkTime(MaxTime);
while((not FindColor(x, y, CopperRockColor, MMX1, MMY1, MMX2, MMY2))or
(CopperRockColor = 0)or
(TimeFromMark(MaxTime) < 40000))and
(TimeFromMark(MaxTime) < 120000)do
begin
if not(RadialRoadWalk(RoadColor, 160, 280, 50, 0, -1))then
RoadColor := SumFindRoadColor(False);
FFlag(5);
if(CopperRockColor = 0)then
begin
if(TimeFromMark(MaxTime) > 40000)then
begin
if(AutoMMRockColor)then
CopperRockColor := SumFindCopperRockColor
else
CopperRockColor := CopperRockMMColor;
end;
end;
end;
if(TimeFromMark(MaxTime) > 120000)then
PlayerLost('timed out (2)');
if not(LoggedIn)then
Exit;
MouseFindNoFlag(x, y, 0, -1);
Flag;
if not(OreColor = CopperColor)then
begin
if(MiningSiteColor = 0)then
begin
MiningSiteColor := GetSymbolColor(x, y, 'mining site');
if(MiningSiteColor = 0)then
begin
Writeln('MiningSiteColor not found, terminating.');
TerminateScript;
end else
Writeln('MiningSiteColor = '+IntToStr(MiningSiteColor));
end else
if not(FindColor(x, y, MiningSiteColor, MMX1, MMY1, MMX2, MMY2))then
begin
MouseFindNoFlag(MMCX + 20, MMCY + 20, -1, -1);
Flag;
if not(FindColor(x, y, MiningSiteColor, MMX1, MMY1, MMX2, MMY2))then
begin
PlayerLost('Couldnt''t find the mine.');
Exit;
end;
end;
Mouse(x, y, 10, 10, True);
Flag;
GoToCorrectSpot;
end;
end;
//-----------------------------------------------------------------\\
{ MineToBank - Walks to the bank ||
\\-----------------------------------------------------------------//}
procedure MineToBank;
var
MaxTime, bx, by: Integer;
begin
if not(LoggedIn)then
Exit;
if not(OreColor = CopperColor)then
begin
if(MiningSiteColor = 0)then
begin
MiningSiteColor := GetSymbolColor(x, y, 'mining site');
end else
if(FindColor(x, y, MiningSiteColor, MMX1, MMY1, MMX2, MMY2))then
begin
Mouse(x, y, 20, 20, True);
Flag;
if(FindColor(x, y, CopperRockColor, MMX1, MMY1, MMX2, MMY2))then
begin
Mouse(x, y, 3, 3, True);
Flag;
end else
PlayerLost('Failed to find the Copper Rock');
end else
PlayerLost('Failed to find the Mining Site Symbol');
end;
MarkTime(MaxTime);
repeat;
if not(RadialRoadWalk(RoadColor, 320, 450, 70, 0, 2))then
begin
Mouse(MMCX, MMCY - 30, 5, 5, True);
Flag;
RoadColor := SumFindRoadColor(False);
if(RadialRoadWalk(RoadColor, 320, 450, 70, 0, 2))then
Break;
end else
Break;
FFlag(5);
until(TimeFromMark(MaxTime) > 40000);
if(TimeFromMark(MaxTime) > 40000)then
PlayerLost('timed out (3)');
if not(LoggedIn)then
Exit;
FFlag(5);
MarkTime(MaxTime);
while((FindColor(x, y, RoadColor, MMX1, MMY1, MMX2, MMCY - 20))or
(not FindColor(x, y, RoadColor, MMX1, MMY1, MMX2, MMY2)))and
(TimeFromMark(MaxTime) < 90000)and
(LoggedIn)do
begin
if not(RadialRoadWalk(RoadColor, 340, 495, 50, 0, -1))then
begin
if(FindColor(x, y, RoadColor, MMX1, MMY1, MMX2, MMY2))then
begin
RadialRoadWalk(RoadColor, 340, 495, 70, 0, -1);
Flag;
end;
RoadColor := SumFindRoadColor(False);
end;
FFlag(5);
end;
if(TimeFromMark(MaxTime) > 90000)then
PlayerLost('timed out (4)');
if not(LoggedIn)then
Exit;
MarkTime(MaxTime);
repeat;
if not(RadialWalk(FalaRoadColor, 330, 380, 40, 0, -1))then
begin
FalaRoadColor := SumFindRoadColor(True);
RadialWalk(FalaRoadColor, 0, 70, 40, -1, 0);
end;
Flag;
Wait(200+Random(200));
until(SumFindBank(bx, by))and
(not(FindColor(x, y, RoadColor, MMX1, MMY1, MMX2, MMY2)))or
(TimeFromMark(MaxTime) > 90000);
Mouse(bx, by, 3, 3, True);
if(TimeFromMark(MaxTime) > 90000)then
PlayerLost('timed out (5)');
if not(LoggedIn)then
Exit;
Flag;
end;
//------------------------------------------------------------------------\\
{ GetBestPaxe - Finds the best paxe in the bank ||
\\------------------------------------------------------------------------//}
function GetBestPaxe(var x, y : integer) : Boolean;
var
I : integer;
begin
FixBank;
for I := 1 to 7 do
begin
if(I = 7)then
Break;
if(FindDtm(dtmPaxes[I], x, y, MSX1, MSY1, MSX2, MSY2))then
begin
Result := True;
Break;
end;
end;
if(I = 7)then
begin
CloseBank;
PlayerLost('No Paxe in the bank');
end;
end;
//------------------------------------------------------------------------\\
{ SumFindBankBooths - Finds all falador bank booths ||
\\------------------------------------------------------------------------//}
function SumFindBankBooths: TPointArray;
var
a, b: Integer;
arRoughBankCoords, arFinalBoothCoords: TPointArray;
arRoughBoothCoords, arBoothCoords: array of TPointArray;
begin
ColorToleranceSpeed(2);
SetColorspeed2Modifiers(0.3, 0.3);
FindColorsTolerance(arRoughBankCoords, 4415093, MSX1, MSCY, MSX2, MSY2, 3);
SetArrayLength(arRoughBoothCoords, 1);
for a := 1 to GetArrayLength(arRoughBankCoords) - 1 do
begin
if(arRoughBankCoords[a].x < arRoughBankCoords[a - 1].x + 3)then
begin
SetArrayLength(arRoughBoothCoords[GetArrayLength(arRoughBoothCoords) - 1], GetArrayLength(arRoughBoothCoords[GetArrayLength(arRoughBoothCoords) - 1]) + 1);
arRoughBoothCoords[GetArrayLength(arRoughBoothCoords) - 1][GetArrayLength(arRoughBoothCoords[GetArrayLength(arRoughBoothCoords) - 1]) - 1] := arRoughBankCoords[a];
end else
begin
SetArrayLength(arRoughBoothCoords, GetArrayLength(arRoughBoothCoords) + 1);
end;
end;
for a := 0 to GetArrayLength(arRoughBoothCoords) - 1 do
begin
if(GetArrayLength(arRoughBoothCoords[a]) > 50)then
begin
SetArrayLength(arBoothCoords, GetArrayLength(arBoothCoords) + 1);
arBoothCoords[GetArrayLength(arBoothCoords) - 1] := arRoughBoothCoords[a];
end;
end;
for a := 0 to GetArraylength(arBoothCoords) - 1 do
begin
SetArrayLength(arFinalBoothCoords, GetArrayLength(arFinalBoothCoords) + 1);
for b := 0 to GetArrayLength(arBoothCoords[a]) - 1 do
begin
arFinalBoothCoords[GetArrayLength(arFinalBoothCoords) - 1].x := arFinalBoothCoords[GetArrayLength(arFinalBoothCoords) - 1].x + arBoothCoords[a][b].x;
arFinalBoothCoords[GetArrayLength(arFinalBoothCoords) - 1].y := arFinalBoothCoords[GetArrayLength(arFinalBoothCoords) - 1].y + arBoothCoords[a][b].y;
end;
arFinalBoothCoords[GetArrayLength(arFinalBoothCoords) - 1].x := arFinalBoothCoords[GetArrayLength(arFinalBoothCoords) - 1].x / GetArrayLength(arBoothCoords[a]);
arFinalBoothCoords[GetArrayLength(arFinalBoothCoords) - 1].y := arFinalBoothCoords[GetArrayLength(arFinalBoothCoords) - 1].y / GetArrayLength(arBoothCoords[a]);
end;
ColorToleranceSpeed(1);
Result := arFinalBoothCoords;
//Writeln(IntToStr(GetArrayLength(arRoughBankCoords) - 1));
{for a := 0 to GetArrayLength(Result) - 1 do
begin
MoveMouse(Result[a].x, Result[a].y);
Wait(500);
end;}
end;
//------------------------------------------------------------------------\\
{ SumOpenBank - Opens the bank ||
\\------------------------------------------------------------------------//}
function SumOpenBank: Boolean;
var
BankTime, i: Integer;
arBankCoords: TPointArray;
begin
if LoggedIn then
begin
Flag;
Wait(500);
MarkTime(BankTime);
while(not(BankScreen))and(TimeFromMark(BankTime) < 20000)do
begin
arBankCoords := SumFindBankBooths
for i := 0 to GetArrayLength(arBankCoords) - 1 do
begin
if not(LoggedIn)then
Exit;
Flag;
Wait(100 + Random(100));
MMouse(arBankCoords[Random(GetArrayLength(arBankCoords) - 1)].x, arBankCoords[Random(GetArrayLength(arBankCoords) - 1)].y, 5, 5);
if(IsUpTextMulti('se Ban', 'ank b', 'booth'))then
begin
GetMousePos(x, y);
Mouse(x, y, 2, 2, false);
Wait(100+Random(100));
ChooseOption('uickly');
Wait(100+Random(100));
Flag;
Wait(1000 + Random(500));
end;
if(PinScreen)then
if not(InPin(PinNumber))then
Writeln('Pin Failed.');
if(BankScreen)or(TimeFromMark(BankTime) > 20000)then
Break;
end;
end;
Result := BankScreen;
end;
end;
//------------------------------------------------------------------------\\
{ SLBank - Main banking procedure ||
\\------------------------------------------------------------------------//}
procedure SLBank(WithdrawNewPick: Boolean);
var
dtmOre: Integer;
begin
if LoggedIn then
begin
if(WithdrawNewPick)then
begin
if(InvCount = 28)then
begin
dtmOre := DTMFromString('78DA63DCCBC0C0F08C0105989828C1D9FF8 18' +
'0711D90F198010D302291407A0F90F84C40CD29207197809A E340' +
'E2157E3500FA360CCF');
if(FindDtm(dtmOre, x, y, MIX1, MIY1, MIX2, MIY2))then
begin
Mouse(x, y, 5, 5, false);
ChooseOption('rop');
end;
FreeDtm(dtmOre);
end;
GameTab(5);
Mouse(591, 304, 10, 10, true);
GameTab(4);
end;
SumOpenBank;
if(not BankScreen)then
begin
if(SumFindBank(x, y))then
begin
MouseFindNoFlag(x, y, 1, 0);
Flag;
if(FlagPresent)then
Wait(500 + Random(200));
end;
if not(OpenBankQuiet('feb'))then
begin
Wait(500);
if not(BankScreen)then
begin
PlayerLost('couldnt open the bank.');
Exit;
end;
end;
end;
FixBank;
if(EquipPick)or(WithdrawNewPick)then
begin
DepositAll;
DepositAll;
end else
Deposit(2, 28, 2);
if(WithdrawNewPick)then
begin
if(GetBestPAxe(x, y))then
begin
Mouse(x, y, 5, 5, true);
Wait(200+Random(300));
end;
end;
CloseBank;
Wait(200+Random(200));
if(BankScreen)then
CloseBank;
if(WithdrawNewPick)then
begin
if(FindColorTolerance(x, y, 876930, MIX1, MIY1, MIX2, MIY2, 10))then
Mouse(x, y, 4, 4, True);
Wait(400 + Random(400));
if not(SumFindPickHeadColor)then
PlayerLost('You dont have an axe');
end;
end;
end;
//-----------------------------------------------------------------\\
{ TimeToSwitchPlayers - Is it time to switch players ? ||
\\-----------------------------------------------------------------//}
function TimeToSwitchPlayers: boolean;
begin
if(TimeFromMark(RunTime) / 60 / 1000 > TotalMinutesPerPlayer)then
begin
Result := True;
WriteLn('Time is up');
end else
Result := False;
end;
//-----------------------------------------------------------------\\
{ Signature - My trade mark :) ||
\\-----------------------------------------------------------------//}
procedure Signature;
begin
Writeln(' _______ __ __ __');
Writeln(' / _____/__ __ _____ |__| |__| ___ ____');
Writeln(' \___ \| | \/ \| | | |/ _ \/ \');
Writeln(' / \ | / Y Y \ | | ( <_> ) | \');
Writeln('/_____ /____/|__|_| /__|__|__|\___/|__| /');
Writeln(' \/ \/ \/');
Writeln('Scripts Brings You:');
Writeln(' Sumilions Rimmington Miner');
end;
//-----------------------------------------------------------------\\
{ SetupScript - Sets up the script. ||
\\-----------------------------------------------------------------//}
procedure SetupScript;
begin
SetupSRL;
SetupMining;
ScriptID := '166';
RCMaster := RemoteMaster;
if(SRLStatsID <> '')then
SRLID := SRLStatsID;
if(SRLStatsPW <> '')then
SRLPassword := SRLStatsPW;
LoadImages;
DeclarePlayers;
MinCount := TheMinCount;
CurrentPlayer := StartPlayer;
ClearDebug;
Signature;
CheckUserNicks;
Wait(500);
ActivateClient;
Wait(500);
end;
//-----------------------------------------------------------------\\
{ SetupUser - Sets up the current user. ||
\\-----------------------------------------------------------------//}
procedure SetupUser;
begin
if not(LoggedIn)then
LoginPlayer;
FalaRoadColor := 0;
RoadColor := 0;
MakeCompass('N');
HighestAngle;
if not(SumFindPickHeadColor)then
begin
Writeln('No PickAxe found...');
Writeln('Make sure your at V-Bright');
LogOut;
end;
GameTab(2);
Players[CurrentPlayer].Level[15] := GetSkillLevel('mining');
PinNumber := Players[CurrentPlayer].Strings[1];
TotalMinutesPerPlayer := MinutesPerPlayer + Random(RandomMinutes);
SetOreColor;
GameTab(4);
MarkTime(RunTime);
end;
//-----------------------------------------------------------------\\
{ MainLine - The magic is down here. ||
\\-----------------------------------------------------------------//}
begin
SetupScript;
SetupUser;
repeat;
BankToMine;
SetRun(True);
while(LoggedIn)and
(not(InvFull))and
(not(TimeToSwitchPlayers))do
begin
if not(SumMine)then
if(Random(100) > 85)then
IdleTime(500, 500, 0.4);
Wait(16);
FindNormalRandoms;
Wait(16);
end;
SetRun(False);
GameTab(4);
MineToBank;
KeepUpStats;
SLBank(False);
PlayerStatus := LoggedIn;
if(TimeToSwitchPlayers)then
LogOut;
until not(LoggedIn);
NextPlayer(PlayerStatus);
until not(Players[CurrentPlayer].Active);
Writeln('All players are false.');
end.
TheSantaMan
09-13-2007, 01:20 AM
I have an error every time it goes to walk. It stops just a little short of the mine. Then says can't find mine.
Ciesson
09-13-2007, 04:35 AM
Heres another proggy!
<========== RimmingtonMiner ============>
<======= -0.25- Progress Report ========>
/=======================================\
Worked for 9 Hours, 25 Minutes and 33 Seconds
Banked 57 loads[s].
Mined 1058 ores.
Received 2 gem[s].
Avoided gas 38 time[s].
\=======================================/
Name :
Mining Lvl : 29
Worked for : 79 minutes.
Banked : 9 time[s].
Active : True
Location : no RoadColor
\\-------------------------------------//
0: = False, 0 Bank[s], Worked 0 minutes, Loc:
1: = True, 14 Bank[s], Worked 103 minutes, Loc:
2: = False, 0 Bank[s], Worked 0 minutes, Loc:
3: = False, 8 Bank[s], Worked 73 minutes, Loc: no RoadColor
4: = True, 9 Bank[s], Worked 79 minutes, Loc: no RoadColor
5: = False, 1 Bank[s], Worked 5 minutes, Loc: No GameTab
6: = False, 2 Bank[s], Worked 18 minutes, Loc: No GameTab
7: = True, 7 Bank[s], Worked 83 minutes, Loc: no RoadColor
8: = True, 7 Bank[s], Worked 82 minutes, Loc: no RoadColor
9: = True, 9 Bank[s], Worked 83 minutes, Loc: no RoadColor
<==========================================>
/~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
| SRL 4 Randoms Report |
| www.srl-forums.com |
|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|
| SRL Logs : 27 |
| Fights : 2 |
| Talks : 4 |
| Dwarfs : 1 |
| Ricks : 2 |
| Old Men : 1 |
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~/
Sumilion
09-13-2007, 12:33 PM
i think im stupid or somthin now im getting the error Line 1414: [Error] (14258:1): Identifier expected in script C:\Documents and Settings\Owner\Desktop\SRM v0.25.scar
yes the info is right....
Redownload + Reset script and try again :)
I have an error every time it goes to walk. It stops just a little short of the mine. Then says can't find mine.
Maybe the autocoloring isnt working for you, turn it off and fill it in yourself (look on 1st page of this thread)
Heres another proggy!
<========== RimmingtonMiner ============>
<======= -0.25- Progress Report ========>
/=======================================\
Worked for 9 Hours, 25 Minutes and 33 Seconds
Banked 57 loads[s].
Mined 1058 ores.
Received 2 gem[s].
Avoided gas 38 time[s].
\=======================================/
Name :
Mining Lvl : 29
Worked for : 79 minutes.
Banked : 9 time[s].
Active : True
Location : no RoadColor
\\-------------------------------------//
0: = False, 0 Bank[s], Worked 0 minutes, Loc:
1: = True, 14 Bank[s], Worked 103 minutes, Loc:
2: = False, 0 Bank[s], Worked 0 minutes, Loc:
3: = False, 8 Bank[s], Worked 73 minutes, Loc: no RoadColor
4: = True, 9 Bank[s], Worked 79 minutes, Loc: no RoadColor
5: = False, 1 Bank[s], Worked 5 minutes, Loc: No GameTab
6: = False, 2 Bank[s], Worked 18 minutes, Loc: No GameTab
7: = True, 7 Bank[s], Worked 83 minutes, Loc: no RoadColor
8: = True, 7 Bank[s], Worked 82 minutes, Loc: no RoadColor
9: = True, 9 Bank[s], Worked 83 minutes, Loc: no RoadColor
<==========================================>
/~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
| SRL 4 Randoms Report |
| www.srl-forums.com |
|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|
| SRL Logs : 27 |
| Fights : 2 |
| Talks : 4 |
| Dwarfs : 1 |
| Ricks : 2 |
| Old Men : 1 |
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~/
Hehe, nice :) (perhaps i should ask you to test the new version ? ^^ )
sudersmiley
09-13-2007, 01:02 PM
i understand that the srl is losing its focus i put FindWindowBySize(766, 504);
in line 1389 and i got Line 1415: [Error] (14259:1): Identifier expected in script
and i redownloaded it like u said
Ciesson
09-13-2007, 01:09 PM
Well here another one!
<========== RimmingtonMiner ============>
<======= -0.25- Progress Report ========>
/=======================================\
Worked for 7 Hours, 51 Minutes and 19 Seconds
Banked 57 loads[s].
Mined 1275 ores.
Received 4 gem[s].
Avoided gas 9 time[s].
\=======================================/
Name :
Mining Lvl : 33
Worked for : 96 minutes.
Banked : 14 time[s].
Active : True
Location : no RoadColor
\\-------------------------------------//
0: = False, 0 Bank[s], Worked 0 minutes, Loc:
1: = False, 0 Bank[s], Worked 0 minutes, Loc:
2: = False, 0 Bank[s], Worked 0 minutes, Loc:
3: = False, 7 Bank[s], Worked 51 minutes, Loc:
4: = False, 12 Bank[s], Worked 93 minutes, Loc: no RoadColor
5: = False, 1 Bank[s], Worked 9 minutes, Loc:
6: = False, 9 Bank[s], Worked 83 minutes, Loc: no RoadColor
7: = True, 14 Bank[s], Worked 96 minutes, Loc: no RoadColor
8: = False, 5 Bank[s], Worked 46 minutes, Loc:
9: = False, 9 Bank[s], Worked 65 minutes, Loc:
<==========================================>
/~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
| SRL 4 Randoms Report |
| www.srl-forums.com |
|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|
| SRL Logs : 25 |
| Talks : 2 |
| Lamps Solved : 2 |
| Frog Solved : 1 |
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~/
Hehe, nice (perhaps i should ask you to test the new version ? ^^ )
Hell, why not! I got the guys and the time...
Sumilion
09-13-2007, 01:35 PM
Well here another one!
<========== RimmingtonMiner ============>
<======= -0.25- Progress Report ========>
/=======================================\
Worked for 7 Hours, 51 Minutes and 19 Seconds
Banked 57 loads[s].
Mined 1275 ores.
Received 4 gem[s].
Avoided gas 9 time[s].
\=======================================/
Name :
Mining Lvl : 33
Worked for : 96 minutes.
Banked : 14 time[s].
Active : True
Location : no RoadColor
\\-------------------------------------//
0: = False, 0 Bank[s], Worked 0 minutes, Loc:
1: = False, 0 Bank[s], Worked 0 minutes, Loc:
2: = False, 0 Bank[s], Worked 0 minutes, Loc:
3: = False, 7 Bank[s], Worked 51 minutes, Loc:
4: = False, 12 Bank[s], Worked 93 minutes, Loc: no RoadColor
5: = False, 1 Bank[s], Worked 9 minutes, Loc:
6: = False, 9 Bank[s], Worked 83 minutes, Loc: no RoadColor
7: = True, 14 Bank[s], Worked 96 minutes, Loc: no RoadColor
8: = False, 5 Bank[s], Worked 46 minutes, Loc:
9: = False, 9 Bank[s], Worked 65 minutes, Loc:
<==========================================>
/~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
| SRL 4 Randoms Report |
| www.srl-forums.com |
|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|
| SRL Logs : 25 |
| Talks : 2 |
| Lamps Solved : 2 |
| Frog Solved : 1 |
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~/
Hell, why not! I got the guys and the time...
Hehe, yep, but not the SRL 4 you need :p when it's out ill let you test it :)
i understand that the srl is losing its focus i put FindWindowBySize(766, 504);
in line 1389 and i got Line 1415: [Error] (14259:1): Identifier expected in script
and i redownloaded it like u said
Somehow you managed to delete a repeat around line 1389 ... it should be :
SetupScript;
repeat;
SetupUser;
which it is when i download it here...
sudersmiley
09-13-2007, 10:08 PM
so where do i put the FindWindowBySize(766, 504); which line D=
ExilianorxXx
09-13-2007, 11:49 PM
i am BACK!!! :)
Sumilion
09-14-2007, 01:53 PM
i am BACK!!! :)
Yippie?! :p
so where do i put the FindWindowBySize(766, 504); which line D=
http://www.villavu.com/forum/showthread.php?t=16195
[-jesus-]
09-14-2007, 05:29 PM
Sumilion:
1 of your lines in the MineToBank procedures is wrong :eek:
end else
PlayerLost('Failed to find the Mining Site Symbol');
end;
MarkTime(MaxTime);
repeat;
if not(RadialRoadWalk(RoadColor, 320, 350, 70, 0, 2))then
begin
It used to be (RoadColor, 320, 450, 70, 0, 2) but only 360 degrees or w/e in radialwalk/circle :p
Sumilion
09-14-2007, 06:31 PM
Lol, 450 is just fine ;)...
320, 450 kinda means it will search in -40, 90, get what i mean ?
[-jesus-]
09-14-2007, 07:41 PM
Lol, 450 is just fine ;)...
320, 450 kinda means it will search in -40, 90, get what i mean ?
Yeah. It wasn't working with it as 450 before. I'll retry it on 450 though.
& a small proggy from earlier today:
<========== RimmingtonMiner ============>
<======= -0.25- Progress Report ========>
/=======================================\
Worked for 1 Hours, 53 Minutes and 40 Seconds
Banked 11 loads[s].
Banked 11 loads[s].
Mined 238 ores.
Received 2 gem[s].
\=======================================/
Name :
Mining Lvl : 23
Worked for : 0 minutes.
Banked : 0 time[s].
Active : True
Active : True
Location : no RoadColor
\\-------------------------------------//
0: = False, 6 Bank[s], Worked 865 minutes, Loc: No GameTab
1: = False, 2 Bank[s], Worked 30 minutes, Loc: no RoadColor
2: = True, 3 Bank[s], Worked 38 minutes, Loc:
3: = True, 0 Bank[s], Worked 0 minutes, Loc: no RoadColor
4: = True, 0 Bank[s], Worked 0 minutes, Loc:
5: = True, 0 Bank[s], Worked 0 minutes, Loc:
6: = True, 0 Bank[s], Worked 0 minutes, Loc:
7: = True, 0 Bank[s], Worked 0 minutes, Loc:
8: = True, 0 Bank[s], Worked 0 minutes, Loc:
9: = True, 0 Bank[s], Worked 0 minutes, Loc:
<==========================================>
Idk why that says 865 mins lol :p
marre
09-16-2007, 09:40 AM
works great
koziru
09-19-2007, 10:42 AM
Great job on the miner/banker sumilion. For everyone who's been having problems finding map coordinates to the mine site and getting this error:
MiningSiteColor not found, terminating.
Then your problem is that you've click on the wrong colour for the copper ore. This is most likely due to the copper ore having a very close colour to the mining grounds. Your copper colour should be something like: 2XXXXXX, therefore 7 numbers. Where as if your colour for copper is 9XXXXX, etc, 6 numbers, then you've chosen the colour of the ground and not the copper. Keep an eye out on this, because this is what I found was the problem with the mining site co-ordinates.
koziru
09-19-2007, 10:45 AM
Just a glitch or an error or something I seem to be getting with this script. After it performs the mining and banking a few times, and once it gets to the mining area again, it will mine for a little while, then the cursor will just wander the screen (including non-runescape areas) about half-way through filling the inventory with iron ore and attempt to load the next player. Any suggestions anyone?
Greatly appreciated, Thanks.
Sumilion
09-19-2007, 02:30 PM
Hehe, i'll update when SRL does, there is quite a differnce in the walking :)
Silent
09-20-2007, 03:38 AM
Proggy,
<========== RimmingtonMiner ============>
<======= -0.25- Progress Report ========>
/=======================================\
Worked for 1 Hours, 25 Minutes and 0 Seconds
Banked 11 loads[s].
Mined 297 ores.
\=======================================/
Name :
Mining Lvl : 66
Worked for : 0 minutes.
Banked : 11 time[s].
Active : True
Location :
\\-------------------------------------//
0: = True, 11 Bank[s], Worked 0 minutes, Loc:
<==========================================>
Btw great script!
eaglejh
09-23-2007, 05:53 AM
<========== RimmingtonMiner ============>
<======= -0.25- Progress Report ========>
/=======================================\
Worked for 22 Minutes and 9 Seconds
Banked 1 loads[s].
Mined 0 ores.
\=======================================/
Name : ****
Mining Lvl : 36
Worked for : 0 minutes.
Banked : 0 time[s].
Active : True
Location :
\\-------------------------------------//
0: **** oth = False, 1 Bank[s], Worked 13 minutes, Loc: no RoadColor
1: **** = True, 0 Bank[s], Worked 0 minutes, Loc:
2: *** oth = True, 0 Bank[s], Worked 0 minutes, Loc:
there is a report... But it didnt bank It never left the mining area... I dont know if you have posted a fix or not... to tell you the truth I didnt read any of the posts b-4 me... But It didnt bank but it did walk down there just fine... auto colored and everything... I didnt have any random events so oh welll... Good script Be better if it banked lol :D
anandacote
09-23-2007, 07:19 AM
I got the error...can anyone help me?
Failed when compiling
Line 64: [Error] (12908:12): Unknown identifier 'STRING1' in script C:\Documents and Settings\Ananda\Bureau\SRM v0.20b.scar
kja87
09-27-2007, 03:03 PM
Failed when compiling
Line 233: [Error] (15565:14): Unknown identifier 'OreColor' in script C:\Documents and Settings\Ghiraw\Mijn documenten\SRM v0[1].25.scar
what should i do??
Sumilion
09-27-2007, 03:15 PM
You should try v0.30 :)
UPDATE!!
New SumInMine function that detects if we are near the mine! Fine tuned mining procedures a bit Walking updates
kja87
09-27-2007, 05:01 PM
whats this?
[Runtime Error] : Out Of Range in line 123 in script C:\Program Files\SCAR 3.12\includes\SRL/SRL/Core/Login.scar
Sumilion
09-27-2007, 05:20 PM
you probably set HowManyPlayers wrong.
kja87
09-28-2007, 11:07 AM
nahhh i had startplayer wrong :P!!!
just using 3 players to test...
so player 0, 1, 2
and startplayer was at 3 :p ;)
BTW good script again :) Sum
Still hoping of a new guild miner release :$
Sumilion
09-28-2007, 12:29 PM
Not from me at least not for free :)
I payed for the Guild miner.... Im still waiting for updates
mark9510
09-28-2007, 08:23 PM
ok this spot is reserved for one of the greatest proggies ever about 35 players working around the clock
Sumilion
09-28-2007, 09:14 PM
I payed for the Guild miner.... Im still waiting for updates
Then you will be happy to hear that i was testing it today.
Now can we stop about the guildminer in this thread?
kja87
09-29-2007, 09:22 AM
Not from me at least not for free :)
je kent me wel ;)
khad er ook voor betaald
also waiting for updates :P
XcanadamanX
09-29-2007, 01:43 PM
all my players got stuck here...
http://img232.imageshack.us/img232/3852/locfk8.png
all 14 of em
just so u know
Harry
09-29-2007, 01:46 PM
Were you using autocolor?
XcanadamanX
09-29-2007, 01:48 PM
nope...but it wasnt all 14 players more like 8 of 14
Harry
09-29-2007, 01:50 PM
I'll foward it to my superior..
Sumilion
09-29-2007, 01:52 PM
I'll take it under my sight ...
/=======================================\
Worked for 12 Minutes and 29 Seconds
Banked 2 loads[s].
Mined 53 ores.
Received 1 gem[s].
then it went to rimmington. (the village.) and got stuck. :(
kja87
09-30-2007, 02:27 AM
Worked for 3 Hours, 52 Minutes and 10 Seconds
Banked 32 loads[s].
Mined 877 ores.
Received 1 gem[s].
Avoided gas 7 time[s].
AsainOwnz
09-30-2007, 03:11 AM
K first im a noobie scripter all i made was a easy autotalker so yeah im a noob.
Well anyways i downloaded this, setup one of my chars cause i just want to use 1 i changed the HowManyPlayers to 0, setup up my player 0 n it had problems with [Runtime Error] : Out Of Range in line 61 in script, im using
Scar Divi 3.12 with the latest SRL, can some1 help me out..
Czepa
09-30-2007, 10:05 AM
fill in your players... :\
EDIT: sumilion. your name just reminded me. hi SUB ZERO :D
Sumilion
09-30-2007, 10:12 AM
fill in your players... :\
EDIT: sumilion. your name just reminded me. hi SUB ZERO :D
Busted... :p
Czepa
09-30-2007, 12:05 PM
an update on the miner. it ran VERY smoothly no problems at all for 400 or so ores, but got stopped by the school. this version kicks ass. hows the auto color finding goin? coz its been there in every ver, but not worked.. is that just my computer or is it something your working on?
Sumilion
09-30-2007, 01:51 PM
Autocoloring is hard in this area since the environment looks a lot like the copper rock colors. Anyway, have you tried it in v0.30 ?
Czepa
09-30-2007, 03:58 PM
yeh, its very smooth, but it got bugged in 1 part of walking to the bank. its always gonna be hard going from the 2 road colors
dr90210
10-01-2007, 08:56 AM
SUMILLION, YOU'RE A LEGEND!!!
Thanx a bunch:)
I just mined 1k of iron without any probs:eek:
mark9510
10-01-2007, 08:03 PM
<========== RimmingtonMiner ============>
<======= -0.30- Progress Report ========>
/=======================================\
Worked for 14 Hours, 56 Minutes and 40 Seconds
Banked 115 loads[s].
Mined 2864 ores.
Received 6 gem[s].
Avoided gas 32 time[s].
NiCbaZ
10-02-2007, 05:30 AM
thank you Sir Sumilion (ur pick makes u look like a solger)
dr90210
10-02-2007, 08:24 AM
<========== RimmingtonMiner ============>
<======= -0.30- Progress Report ========>
/=======================================\
Worked for 3 Hours, 47 Minutes and 53 Seconds
Banked 36 loads[s].
Mined 1001 ores.
Received 7 gem[s].
\=======================================/
Sumilion
10-02-2007, 12:35 PM
thank you Sir Sumilion (ur pick makes u look like a solger)
Hehe, im not :)
Thanks for all the proggies ! :)
mark9510
10-02-2007, 07:21 PM
okay one giant problem for me when i left the computer it ran for some time then it went to rimmington and logged out this is really bad for me
Appeljuice
10-02-2007, 08:39 PM
for me, when i try to mine iron, it walks to the iron fine and dandy but then it justs starts to move the mouse to the 'Walk here' text at the top left of the screen over and over again. Is this probably a problem on my end?:confused:
PeteBiff01
10-03-2007, 12:10 AM
Summillion,
I've been trying this out for most of the day, proggies are on my main PC running as we speak. I only intend on using one guy to mine i know its not ideal but meh im interested in it.
Right when the character gets to the junction nearing the highwaymen it can get stuck up by the farm and will log out, im not sure if this a fault at my end however it can be recitified without much issue.
The more pressing issue, is that when its mining it will mine 3/4 ores and the mouse will hover over the minimap, move, then it will sit still for 5/6 secconds the computer will make a beeping noise and then it will continue to mine 3/4 ores.
Any light you could shine would be wonderful
Thanks kindly.
kja87
10-03-2007, 09:14 AM
Worked for 11 Hours, 16 Minutes and 35 Seconds
Banked 100 loads[s].
Mined 2765 ores.
Received 3 gem[s].
Avoided gas 5 time[s].
i could have gone further with the process but i thought it was time for a short break :P
Sumilion
10-03-2007, 02:18 PM
Summillion,
I've been trying this out for most of the day, proggies are on my main PC running as we speak. I only intend on using one guy to mine i know its not ideal but meh im interested in it.
Right when the character gets to the junction nearing the highwaymen it can get stuck up by the farm and will log out, im not sure if this a fault at my end however it can be recitified without much issue.
The more pressing issue, is that when its mining it will mine 3/4 ores and the mouse will hover over the minimap, move, then it will sit still for 5/6 secconds the computer will make a beeping noise and then it will continue to mine 3/4 ores.
Any light you could shine would be wonderful
Thanks kindly.
Almost got my name right there ;)
I've never heard of that walking issue before ... I'll see if it happens for me too.
The mining / waiting is probably because your wearing white / light blue clothing. The script then thinks it is gas from the rock. Make sure to wear all dark.
mark9510
10-05-2007, 07:24 PM
okay that happens to me and what about my problem it goes to rimmington then logs out plus it only does one load
Sumilion
10-05-2007, 08:10 PM
Then it failed to find the copper rock color, fill it in manually (look at first post of this thread)
mark9510
10-05-2007, 08:46 PM
okay i will try that
mark9510
10-05-2007, 10:33 PM
well i did fill it in then it worked then i stoped it and i worked it again and it finished in rimmington
mark9510
10-05-2007, 11:38 PM
i will make a video and try to send it to you
[-jesus-]
10-06-2007, 12:17 AM
Plz don't triple post...:(
mark9510
10-06-2007, 12:31 AM
sorry i just really need this script it is litteraly my whole macroing career
Sumilion
10-06-2007, 09:19 AM
If you filled it in manually and then re-enter a world you would need to fill it in again.
~Sumilion
mark9510
10-06-2007, 02:44 PM
okay i will try with the auto color again
mark9510
10-06-2007, 10:16 PM
sry for the second post in a row i just want to know if this script works perfectly still for anyone
Sumilion
10-06-2007, 10:29 PM
It does for me :p
itchbiggan
10-07-2007, 01:49 PM
proggy for you:
<========== RimmingtonMiner ============>
<======= -0.30- Progress Report ========>
/=======================================\
Worked for 6 Hours, 40 Minutes and 41 Seconds
Banked 34 loads[s].
Mined 671 ores.
Received 2 gem[s].
Avoided gas 327 time[s].
\=======================================/
Name : ****
Mining Lvl : 56
Worked for : 199 minutes.
Banked : 17 time[s].
Active : True
LastRandom :
\\-------------------------------------//
0: **** = True, 17 Bank[s], Worked 199 minutes, Random:
1: **** = False, 1 Bank[s], Worked 7 minutes, Random: Sandwich Lady
2: **** = False, 15 Bank[s], Worked 180 minutes, Random: Forester
3: **** = False, 1 Bank[s], Worked 1 minutes, Random:
<==========================================>
Sumilion
10-07-2007, 02:41 PM
Hihi, thnx, so it's working well ?
itchbiggan
10-07-2007, 03:01 PM
oh yea it's working flawlessly, only reason it stopped is because i left it on and went to the movies, came home and saw my dad had turned my computer off.... :/
but the only thing i was concerned about was that it found gas 327 times?
is that normal?
if it is then tell me, but it seems like a bit much.
EDIT:
i've looked at other proggys and i noticed people haven't had maybe more than 12 gases for even more hours than mine went.
what do you think is the problem?
Sumilion
10-07-2007, 05:02 PM
oh yea it's working flawlessly, only reason it stopped is because i left it on and went to the movies, came home and saw my dad had turned my computer off.... :/
but the only thing i was concerned about was that it found gas 327 times?
is that normal?
if it is then tell me, but it seems like a bit much.
EDIT:
i've looked at other proggys and i noticed people haven't had maybe more than 12 gases for even more hours than mine went.
what do you think is the problem?
Is one of your characters wearing white like clothing ? Light blue maybe ? It triggers the gas finder.
itchbiggan
10-07-2007, 07:34 PM
ooooo
right on the money sumilion. =]
one had light blue clothes and white hair, and another white clothes lol, going to test this now =]
itchbiggan
10-08-2007, 12:06 AM
sorry double post.
but it worked sumilion. =]
duh right?
lol but yea
new proggy:
<========== RimmingtonMiner ============>
<======= -0.30- Progress Report ========>
/=======================================\
Worked for 3 Hours, 39 Minutes and 36 Seconds
Banked 36 loads[s].
Mined 920 ores.
Received 3 gem[s].
Avoided gas 1 time[s].
\=======================================/
Name : ****
Mining Lvl : 57
Worked for : 35 minutes.
Banked : 7 time[s].
Active : True
LastRandom :
\\-------------------------------------//
0: **** = True, 11 Bank[s], Worked 66 minutes, Random:
1: **** = True, 12 Bank[s], Worked 71 minutes, Random:
2: **** = True, 7 Bank[s], Worked 35 minutes, Random:
3: **** = True, 6 Bank[s], Worked 36 minutes, Random:
<==========================================>
much...much...MUCHHH...better. =]
thanks.
Sumilion
10-08-2007, 12:35 PM
No problem :) and ty for the proggy.
Paul23
10-08-2007, 04:02 PM
sumillion - this is working very well - I'm real impressed.
A suggestion for you - when the players time is up the character returns to the bank and next character logs in. This is often when the player has only mined a handful of ores on his current trip. I wonder if it would be better to get to see if the time is up when he returns to the bank. In this way the characters would not make so many fairly meaningless trips. (Note - you would have to have some method of making sure that the characters didn't stay on indefinitely)
Basically some way of only completing full trips and making sure that the character doesn't stay in the mine indefinitely.
Just a thought
mark9510
10-08-2007, 04:05 PM
i still dont get the problem with mine it mines one full inventory then banks it then it walks right past the mine to rimmington
ill try to redownload scar and srl maybe the problem is with those not with the script
Paul23
10-08-2007, 04:18 PM
i still dont get the problem with mine it mines one full inventory then banks it then it walks right past the mine to rimmington
ill try to redownload scar and srl maybe the problem is with those not with the script
Mark,
I am not as good as Sumillion with all of this scripting business, and he will probably have a better answer than myself - but from what I understand I will say this.
The script goes from the road to the mine based on recognising the color from the Copper that you choose when you color picked. When I play it either doesn't work (in which case i seem to have picked the wrong color - Note - this doesn't happen often and has always gone away when I have retried) or it works straight away and continues to work.
I have never been in a situation where it works once and then stops working on the second attempt.
I wonder if you able to try something - Are you unable to write out a Debug message that says what the setting of the copper color is close to the point where it reaches the mine as possible. From my very limited knowledge of SRL scripting I would suggest that if it works once and then stops then something is changing this color.
Sumilion
10-08-2007, 06:20 PM
Mark,
I am not as good as Sumillion with all of this scripting business, and he will probably have a better answer than myself - but from what I understand I will say this.
The script goes from the road to the mine based on recognising the color from the Copper that you choose when you color picked. When I play it either doesn't work (in which case i seem to have picked the wrong color - Note - this doesn't happen often and has always gone away when I have retried) or it works straight away and continues to work.
I have never been in a situation where it works once and then stops working on the second attempt.
I wonder if you able to try something - Are you unable to write out a Debug message that says what the setting of the copper color is close to the point where it reaches the mine as possible. From my very limited knowledge of SRL scripting I would suggest that if it works once and then stops then something is changing this color.
Not entirely conclusive but i think im going to like you anyway ;).
The real reason it does 1 load then stops :
There is a method that i use in my script to detect if the minimap is going dark, ie. when your getting near the mine. The script then clicks somewhat towards the mine and to my surprise it is often very precise aswell. It then fails to find the copper rock color or finds a false color but since its already in mine it can do it's business that it would do after it found the copper rock color. After that it walks out of the mine fine using some failsafe coordinates clicking. However the second time it walks to the mine the area detection is off because it should've found the copper rock color. So then it will purely search for the ... you guessed it ... copper rock color. If it still happens for you then fill in the copper rock color manually (check first post on this thread).
Hope that helps
~Sumilion
mark9510
10-09-2007, 12:38 AM
okay i did redownload srl and scar and it works but not as smoothly as i would like so everybody expect my 30 player proggy
buck cakes
10-09-2007, 12:44 AM
so if i chose the copper color myself, the problem with it overshooting the mine should go away?
Paul23
10-09-2007, 11:45 AM
Not entirely conclusive but i think im going to like you anyway ;).
The real reason it does 1 load then stops :
There is a method that i use in my script to detect if the minimap is going dark, ie. when your getting near the mine. The script then clicks somewhat towards the mine and to my surprise it is often very precise aswell. It then fails to find the copper rock color or finds a false color but since its already in mine it can do it's business that it would do after it found the copper rock color. After that it walks out of the mine fine using some failsafe coordinates clicking. However the second time it walks to the mine the area detection is off because it should've found the copper rock color. So then it will purely search for the ... you guessed it ... copper rock color. If it still happens for you then fill in the copper rock color manually (check first post on this thread).
Hope that helps
~Sumilion
Now I understand
What you are basically saying is that the first time it is there it is doing a slow thorough search to try and make sure of everything. On subsequent trips it just hits the copper color because it now regards itself as knowing where it is and doesn't see the need to be so careful. That seems fair enough. I am a little new to this (but not to programming) - it took me a little while to get used to the color picker (was trying to pick the color from the main screen and not the minimap) but everything ok now.
Sumilion
10-09-2007, 01:34 PM
Now I understand
What you are basically saying is that the first time it is there it is doing a slow thorough search to try and make sure of everything. On subsequent trips it just hits the copper color because it now regards itself as knowing where it is and doesn't see the need to be so careful. That seems fair enough. I am a little new to this (but not to programming) - it took me a little while to get used to the color picker (was trying to pick the color from the main screen and not the minimap) but everything ok now.
Exactly :)
so if i chose the copper color myself, the problem with it overshooting the mine should go away?
Yep it should. Check first post for some more info on what color to pick.
Harry
10-09-2007, 01:39 PM
Or use SS (it works Über flawless for me when I use SS on it)
Sorry for hijacking your thread :)
mark9510
10-09-2007, 10:00 PM
heres a small 12 player proggy
Worked for 11 Hours, 1 Minutes and 16 Seconds
Banked 91 loads[s].
Mined 2149 ores.
Received 4 gem[s].
Avoided gas 53 time[s].
Jonnee
10-10-2007, 07:04 PM
Very good script indeed! It works Fawless! Great job!
mark9510
10-10-2007, 07:12 PM
okay sumillion one big probelm i got it to work by reinstalling scar and srl but after i work it once it just messes up the next time and walks to rimmington if you can give me a name of a program that records my screen i will send you a video of it messing up and you might be able to help me
Sumilion
10-10-2007, 07:21 PM
Hypercam ? :)
mark9510
10-10-2007, 09:47 PM
okay i will try that and get back to you as soon as possible
Runescape Pro
10-11-2007, 04:25 PM
THIS SCRIPT IS AMAZING!!! everything worked/is working flawlessly. ill post a proggy when its doneon my vm.
mark9510
10-11-2007, 10:40 PM
okay Sumilion just forget my problem it has to be a problem with the computer i am planning on reformatting it plus i might get a brand new computer
dr90210
10-12-2007, 07:43 AM
another great prog :D - this script is really efficient!!!
/=======================================\
Worked for 3 Hours, 43 Minutes and 39 Seconds
Banked 33 loads[s].
Mined 921 ores.
Received 2 gem[s].
Avoided gas 1 time[s].
\=======================================/
Runescape Pro
10-12-2007, 09:52 AM
for some reason i left it going and when i logged in on one character, he was in the basement of the lumbridge bank... this could either be a failed atempt at a random or it just ignored the random. i think it didnt talk to a random because one time i was watching it and i had to manually talk to a random... strange
Sumilion
10-12-2007, 02:09 PM
for some reason i left it going and when i logged in on one character, he was in the basement of the lumbridge bank... this could either be a failed atempt at a random or it just ignored the random. i think it didnt talk to a random because one time i was watching it and i had to manually talk to a random... strange
Are you positive that your nick is filled in properly ?
Runescape Pro
10-12-2007, 09:05 PM
yes, and that it starts on that character and everything
edit: 200th post =P
mark9510
10-12-2007, 09:46 PM
yup its a problem with the script when it worked for me it happened also
sidishere
10-13-2007, 02:57 AM
looks great but im wondering...if i set it to mine gold, will it only mine gold or can i set it to mine iron aswell?
Hugolord
10-13-2007, 08:10 AM
looks great but im wondering...if i set it to mine gold, will it only mine gold or can i set it to mine iron aswell?
will only mine gold, read the instructions please.
Sumilion
10-13-2007, 08:56 AM
I forgot to add it to the comments but you can also fill in :
'Iron + Gold'
this will make it mine both. This is only for iron and gold, not for the others.
mark9510
10-13-2007, 12:40 PM
thats good i should do that on and sumilion got my computer to work with the script i just deleted some stuff and cleaned out viruses
thebob142
10-13-2007, 09:33 PM
thanks sum great script just like any of your scripts
sidishere
10-13-2007, 11:54 PM
will only mine gold, read the instructions please.
I forgot to add it to the comments but you can also fill in :
'Iron + Gold'
this will make it mine both. This is only for iron and gold, not for the others.
owned
sweet i wanted to mine iron aswell as gold thats a ton summilion.
mark9510
10-14-2007, 01:08 AM
its fine just i have to give you your props because the walking is hard to make
Sumilion
10-14-2007, 07:57 AM
Yup, it is :)
And thnks for the nice words.
mark9510
10-14-2007, 02:32 PM
you are welcome i have been running this for a long time just my computer has a low ram which does not let me run a virtual machine but i am getting a desktop with a 4gb ram which equals autoing attack
buck cakes
10-15-2007, 05:18 AM
working great for training my second mining army, but i keep having to stop it to do something on my comp, will post proggy as soon as i get a good 1
sidishere
10-15-2007, 05:54 AM
you are welcome i have been running this for a long time just my computer has a low ram which does not let me run a virtual machine but i am getting a desktop with a 4gb ram which equals autoing attack
what do you need to run a virtual machine for?
can you run like 2 autos with it?
mark9510
10-17-2007, 12:40 AM
yes that is why i need it i tried it with 60 players but all the players got messed up and it took a long time to trade all the iron and walk back to falador but if i run 5 at a time then it would be easier
mark9510
10-17-2007, 12:41 AM
sorry for the double post i just forgot to say thanks again i just made 21k iron ores and sold it all for 2.1 mill thanks
sidishere
10-17-2007, 06:02 AM
sweet i didnt know you could auto on 2 + accs on one pc. would you mind explaining to me how to do it?
thanks
[-jesus-]
10-18-2007, 01:33 AM
sweet i didnt know you could auto on 2 + accs on one pc. would you mind explaining to me how to do it?
thanks
http://www.villavu.com/forum/showthread.php?t=12644?t=14023&highlight=virtual+machine
Follow that TUT ^
mark9510
10-18-2007, 01:47 AM
yes but if you dont have enough ram(random access memory) then it wont work
m a t t
10-18-2007, 09:46 AM
thx heaps for the script sum :) ill try post proggies when i get some
sidishere
10-18-2007, 10:43 AM
how many virtual pcs could you run on 512 mb ram?
Sumilion
10-18-2007, 12:01 PM
how many virtual pcs could you run on 512 mb ram?
1, max.
mark9510
10-19-2007, 08:59 PM
well matters wat you use there are some which use barely any ram and you could use a couple of those
<========== RimmingtonMiner ============>
<======= -0.30- Progress Report ========>
/=======================================\
Worked for 1 Hours, 55 Minutes and 4 Seconds
Banked 18 loads[s].
Mined 478 ores.
Received 1 gem[s].
\=======================================/
sidishere
10-20-2007, 10:04 PM
well matters wat you use there are some which use barely any ram and you could use a couple of those
<========== RimmingtonMiner ============>
<======= -0.30- Progress Report ========>
/=======================================\
Worked for 1 Hours, 55 Minutes and 4 Seconds
Banked 18 loads[s].
Mined 478 ores.
Received 1 gem[s].
\=======================================/
which ones use " barely any ram"
the scar noob
10-20-2007, 10:18 PM
Mhhm, I se eit still works pretty good :)
I'm going to powermine my 30 characters (combat lvl 30+^^) with your powerminer or another one and start using this one:p
I wonder if I have 10 characters how long should I be able to run this beauty?
-Tsn.
dr90210
10-20-2007, 10:53 PM
had a bit of trouble after running away from something... - logged out because couldnt find a place. - But that's after 11 hours mining, so it still works like a charm :D
badman1
10-21-2007, 02:42 PM
<======= -0.30- Progress Report ========>
/=======================================\
Worked for 46 Hours, 45 Minutes and 57 Seconds
Banked 469 loads[s].
Mined 10859 ores.
Received 24 gem[s].
Avoided gas 174 time[s].
\=======================================/
Name : *
Mining Lvl : 0
Worked for : 255 minutes.
Banked : 47 time[s].
Active : True
LastRandom :
\\-------------------------------------//
0: *= False, 33 Bank[s], Worked 183 minutes, Random:
1: *= True, 51 Bank[s], Worked 284 minutes, Random:
2: *= True, 35 Bank[s], Worked 287 minutes, Random:
3: *= True, 49 Bank[s], Worked 278 minutes, Random:
4: *= True, 47 Bank[s], Worked 270 minutes, Random:
5: *= False, 28 Bank[s], Worked 157 minutes, Random:
6: *= True, 47 Bank[s], Worked 255 minutes, Random:
7: *= False, 14 Bank[s], Worked 76 minutes, Random:
8: *= False, 34 Bank[s], Worked 183 minutes, Random: Sandwich Lady
9: *= True, 45 Bank[s], Worked 254 minutes, Random:
10: *= False, 28 Bank[s], Worked 151 minutes, Random:
11: *= False, 15 Bank[s], Worked 88 minutes, Random: Sandwich Lady
12: *= True, 43 Bank[s], Worked 247 minutes, Random:
<==========================================>
New best proggy?
mark9510
10-21-2007, 09:09 PM
well tinyxp uses barely any ram
sidishere
10-21-2007, 11:40 PM
yea, its only like 300 mb download aswell
thebob142
10-21-2007, 11:46 PM
uh... the walking procedure kept messing up and going by the ham portal then loging out....
Sumilion
10-22-2007, 08:47 PM
<======= -0.30- Progress Report ========>
/=======================================\
Worked for 46 Hours, 45 Minutes and 57 Seconds
Banked 469 loads[s].
Mined 10859 ores.
Received 24 gem[s].
Avoided gas 174 time[s].
\=======================================/
Name : *
Mining Lvl : 0
Worked for : 255 minutes.
Banked : 47 time[s].
Active : True
LastRandom :
\\-------------------------------------//
0: *= False, 33 Bank[s], Worked 183 minutes, Random:
1: *= True, 51 Bank[s], Worked 284 minutes, Random:
2: *= True, 35 Bank[s], Worked 287 minutes, Random:
3: *= True, 49 Bank[s], Worked 278 minutes, Random:
4: *= True, 47 Bank[s], Worked 270 minutes, Random:
5: *= False, 28 Bank[s], Worked 157 minutes, Random:
6: *= True, 47 Bank[s], Worked 255 minutes, Random:
7: *= False, 14 Bank[s], Worked 76 minutes, Random:
8: *= False, 34 Bank[s], Worked 183 minutes, Random: Sandwich Lady
9: *= True, 45 Bank[s], Worked 254 minutes, Random:
10: *= False, 28 Bank[s], Worked 151 minutes, Random:
11: *= False, 15 Bank[s], Worked 88 minutes, Random: Sandwich Lady
12: *= True, 43 Bank[s], Worked 247 minutes, Random:
<==========================================>
New best proggy?
Fine, you win ! :p
It's on the first page btw.
mark9510
10-23-2007, 02:27 AM
well i cant compete with that but if 12 accounts is about 50 hours then 60 of mine should be 250 hours and 50k iron
Paul23
10-23-2007, 08:16 AM
Quick question - When I get the proggie after I have stopped the program running it is in the Debug box? I want to start posting these, but I can't seem to find any way of cutting and pasting stuff from the Debug box.
What am I missing? Am I being thick?
Note - I have tried CTRL - E then C as this is what I normally use.
What is best?
Sumilion
10-23-2007, 08:58 AM
Quick question - When I get the proggie after I have stopped the program running it is in the Debug box? I want to start posting these, but I can't seem to find any way of cutting and pasting stuff from the Debug box.
What am I missing? Am I being thick?
Note - I have tried CTRL - E then C as this is what I normally use.
What is best?
Thats quite a normal question ;)
select what you want to copy, then press Ctrl + C as you said. If you then press Ctrl + V here (or press Paste) it will paste the copied piece here.
Paul23
10-23-2007, 09:29 AM
Sumillion,
Thx - Always difficult when you're asking a question that you know has a very obvious answer, but until you know what what it is - you're struggling - and so you have to ask.
Well now I know - proggies to follow.
Paul
NiCbaZ
10-23-2007, 09:57 AM
They just got Cows and now you're releasing this! Lucky leechers! They get the good scripts for free when I make it into members!
where not all leachers i am a ok script but not a member yet gunna make somthing realy good for that=)(
Paul23
10-26-2007, 08:45 AM
Hi Sumillion,
Last night while running your script and half-watching TV and such, I noticed an unusual situation which your script doesn't handle so well and thought I'd advise you of it.
Basically I was given a box by the old man as I entered the bank to deposit. This was at the end of a run so my pack wasn't full. My character then tried to bank the box, which multiplied and before you could blink there was four of them and he stopped trying to bank.
I thought I'd let you know - you could consider random checking immediately before going into depositing into bank.
Other than that, running very nicely.
One more thing - have signed up to SRL stats - it says to put my userid and password into SetUpSRL.scar and there isn't one with SRL 4. Do I just put it in the script?
Paul
ikbenhet
10-26-2007, 10:31 AM
SRL Compiled in 0 msec
[Runtime Error] : Out Of Range in line 68 in script C:\Program Files\SCAR 3.12\Scripts\SRM v0[1].30.scar
what do i wrong?
i want to use only 1 char ,and on how many players i set 1
Sumilion
10-26-2007, 10:42 AM
Hi Sumillion,
Last night while running your script and half-watching TV and such, I noticed an unusual situation which your script doesn't handle so well and thought I'd advise you of it.
Basically I was given a box by the old man as I entered the bank to deposit. This was at the end of a run so my pack wasn't full. My character then tried to bank the box, which multiplied and before you could blink there was four of them and he stopped trying to bank.
I thought I'd let you know - you could consider random checking immediately before going into depositing into bank.
Other than that, running very nicely.
One more thing - have signed up to SRL stats - it says to put my userid and password into SetUpSRL.scar and there isn't one with SRL 4. Do I just put it in the script?
Paul
Thank you for your response :)
I suppose I could look for a random before banking ... but I must say I've never been given a box while walking to the bank =O
SRL Compiled in 0 msec
[Runtime Error] : Out Of Range in line 68 in script C:\Program Files\SCAR 3.12\Scripts\SRM v0[1].30.scar
what do i wrong?
i want to use only 1 char ,and on how many players i set 1
Delete the forms your not using.
Paul23
10-26-2007, 02:40 PM
I suppose I could look for a random before banking ... but I must say I've never been given a box while walking to the bank =O
I've never seen it before. But it did happen. You do as you see fit.
Paul
mark9510
10-26-2007, 07:59 PM
heres a new proggy
======== RimmingtonMiner ============>
<======= -0.30- Progress Report ========>
/=======================================\
Worked for 2 Hours, 34 Minutes and 23 Seconds
Banked 24 loads[s].
Mined 592 ores.
Received 1 gem[s].
Avoided gas 1 time[s].
\=======================================/
saurkulsh
10-27-2007, 01:10 PM
<========== RimmingtonMiner ============>
<======= -0.30- Progress Report ========>
/=======================================\
Worked for 1 Hours, 40 Minutes and 17 Seconds
Banked 16 loads[s].
Mined 430 ores.
Received 1 gem[s].
\=======================================/
saurkulsh
10-27-2007, 01:16 PM
that is one load takes 6 minutes...............
so 10 loads per hour.......
WOW!!!
saurkulsh
10-27-2007, 01:18 PM
I've never seen it before. But it did happen. You do as you see fit.
Paul
i have been give the box twice just after banking ............but weird your script solved it..............WOW!!! yet again...........thanx sumilion
saurkulsh
10-27-2007, 04:05 PM
<========== SumPowerMiner ============>
<======= -0.84- Progress Report ========>
/=======================================\
Worked for 54 Minutes and 12 Seconds
Banked 14 loads[s].
Mined 378 ores.
Avoided gas 3 time[s].
\=======================================/
mark9510
10-27-2007, 04:05 PM
have u ever heard of randoms in srl they solve almost everything and next time dont post 4 times in a row or u have a good chance of getting ip banned from srl-foums its spamming save all your proggies and make them longer i have like 30 proggies and i saved them not just posting one after another
saurkulsh
10-27-2007, 04:14 PM
sorry for the proggies but LISTEN that randoms thing it is another big troble u see read this ........
-------------------------------------------
Quote:
Originally Posted by Paul23 View Post
Hi Sumillion,
Last night while running your script and half-watching TV and such, I noticed an unusual situation which your script doesn't handle so well and thought I'd advise you of it.
Basically I was given a box by the old man as I entered the bank to deposit. This was at the end of a run so my pack wasn't full. My character then tried to bank the box, which multiplied and before you could blink there was four of them and he stopped trying to bank.
I thought I'd let you know - you could consider random checking immediately before going into depositing into bank.
Other than that, running very nicely.
One more thing - have signed up to SRL stats - it says to put my userid and password into SetUpSRL.scar and there isn't one with SRL 4. Do I just put it in the script?
Paul
Thank you for your response
------------------------------------
and this.......
------------------------------------
Originally Posted by Sumilion View Post
I suppose I could look for a random before banking ... but I must say I've never been given a box while walking to the bank =O
-------------------------------------------------------
ok so dont use rude language when u don know what the matter is
[-jesus-]
10-27-2007, 04:51 PM
sorry for the proggies but LISTEN that randoms thing it is another big troble u see read this ........
-------------------------------------------
Quote:
Originally Posted by Paul23 View Post
Hi Sumillion,
Last night while running your script and half-watching TV and such, I noticed an unusual situation which your script doesn't handle so well and thought I'd advise you of it.
Basically I was given a box by the old man as I entered the bank to deposit. This was at the end of a run so my pack wasn't full. My character then tried to bank the box, which multiplied and before you could blink there was four of them and he stopped trying to bank.
I thought I'd let you know - you could consider random checking immediately before going into depositing into bank.
Other than that, running very nicely.
One more thing - have signed up to SRL stats - it says to put my userid and password into SetUpSRL.scar and there isn't one with SRL 4. Do I just put it in the script?
Paul
Thank you for your response
------------------------------------
and this.......
------------------------------------
Originally Posted by Sumilion View Post
I suppose I could look for a random before banking ... but I must say I've never been given a box while walking to the bank =O
-------------------------------------------------------
ok so dont use rude language when u don know what the matter is
1. Use quote tags next time ;)
2. Where was any rude language used??
3. You triple posted on here earlier >.<
& to any SRL Members or w/e: How do I have access to SRL Members section + get the helper bear when I didn't apply???
Edit: Nvm, Wizzup? gave me the helper bear & didn't know it would auto give me access to mems section ;) he fixed it though.
P.S:
I'm pretty sure you WON'T get IP banned just for quad. -posting.
ikbenhet
10-28-2007, 07:06 PM
<========== RimmingtonMiner ============>
<======= -0.30- Progress Report ========>
/=======================================\
Worked for 5 Hours, 28 Minutes and 43 Seconds
Banked 40 loads[s].
Mined 950 ores.
Received 1 gem[s].
Avoided gas 29 time[s].
THX :D
MineOrChop
10-29-2007, 12:29 AM
Going to test this on an over nighter, see how long it lasts (With one player)...This will be interesting.
I will post a proggy when I get up or when I get some spare time!
Not to bad report; not sure why it stopped; but when I logged on the accoutns to see a possible reason, they were both outside the bank. Anyway; here's the proggy;
<========== RimmingtonMiner ============>
<======= -0.30- Progress Report ========>
/=======================================\
Worked for 6 Hours, 56 Minutes and 34 Seconds
Banked 45 loads[s].
Mined 1018 ores.
Received 5 gem[s].
Avoided gas 4 time[s].
\=======================================/
/~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
| SRL 4 Randoms Report |
| srl-forums.com |
|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|
| SRL Logs : 12 |
| Talks : 2 |
| Dwarfs : 1 |
| Capn Hand[s] : 1 |
| Boxes Solved : 1 |
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~/
rogeruk
10-30-2007, 06:29 PM
0% change.
26% change.
Gas found!
No gas, where should i use this script? I tried using it in Rimmington
Sumilion
10-30-2007, 07:07 PM
It is for rimmington only ... are you wearing white-like clothing ?
synesthetics
10-31-2007, 06:07 PM
I've got the same problem to. Every minute it find "gas" when it isn't there.
i am not wearing white colors. even the people/bots around me.
its quite time consuming :(
edit:
oh but i am wearing the new grim reapers hat. and other people around me to.
Sumilion
10-31-2007, 07:29 PM
Haven't seen it, is it white ? There only has to be one white pixel around for it to trigger the 'sensitive' gas detection.
rogeruk
10-31-2007, 09:03 PM
So i need to find a world where there isnt no players wearing white clothing? lol
Sumilion
10-31-2007, 09:50 PM
Pretty much :)
Or disable the whole gasfinder, there isn't THAT many gas in rimmington anyway.
rogeruk
10-31-2007, 09:52 PM
Yea, sorry didn't mean to be rude or anything if it came across like that.
Ill give it a go, nothing much to loose apart from bronze axes :D.
synesthetics
10-31-2007, 10:30 PM
uhm... if it detect gas, the mouse will hoover on the green "grass" next to the mine and looks like its checking it... maybe that can be a clue?
i continuely get this:
9% chance,
30% chance,
Gas found!!
every 3 ores i mine...
but ok, i will remove the detect gas section ^^
edit: oh yeah the grim reaper hat is gray.. so maybe there is one lost white pixel in it ^^
Sumilion
11-01-2007, 01:53 PM
Yea, sorry didn't mean to be rude or anything if it came across like that.
Ill give it a go, nothing much to loose apart from bronze axes :D.
Oh I didn't mean it like that either :) It's just a common thing for miners.
uhm... if it detect gas, the mouse will hoover on the green "grass" next to the mine and looks like its checking it... maybe that can be a clue?
i continuely get this:
9% chance,
30% chance,
Gas found!!
every 3 ores i mine...
but ok, i will remove the detect gas section ^^
edit: oh yeah the grim reaper hat is gray.. so maybe there is one lost white pixel in it ^^
Gray activates it too ;)
Very light blue activates it too.
belgin fish
11-02-2007, 03:39 PM
ok, well thanks sum, it doesnt even do 1 load each player now because it logs from all the gases, maybee try to mak a new procedure/function that wll only look for it above a rock? like only a certain distance from the iron color or the current rock being mined color, that might work
Sumilion
11-02-2007, 04:28 PM
ok, well thanks sum, it doesnt even do 1 load each player now because it logs from all the gases, maybee try to mak a new procedure/function that wll only look for it above a rock? like only a certain distance from the iron color or the current rock being mined color, that might work
It does that...
belgin fish
11-02-2007, 04:36 PM
:O lol, sorry sum my bad XD also does it get activated by purple stuff?
Sumilion
11-02-2007, 05:46 PM
Not that i know of.
mark9510
11-03-2007, 09:49 PM
well even if it finds a player with white clothes and not gas just let it run it works for me
Slimmeh
11-04-2007, 05:10 AM
<========== RimmingtonMiner ============>
<======= -0.30- Progress Report ========>
/=======================================\
Worked for 45 Minutes and 16 Seconds
Banked 6 loads[s].
Mined 135 ores.
\=======================================/
Name : i be ur god
Mining Lvl : 38
Worked for : 0 minutes.
Banked : 6 time[s].
Active : True
LastRandom :
\\-------------------------------------//
0: ****** = True, 6 Bank[s], Worked 0 minutes, Random:
<==========================================>
NextPlayer
Successfully executed
Only used one player, it was logged out. Logged back in and it had a full load a little south of air alter.
mark9510
11-04-2007, 02:51 PM
quick black out ur name or u gonna get banned
CatastrophicDesire
11-04-2007, 04:21 PM
Hey Sumilion, I ran the script yesterday for iron and its working great. Haven't had any problems with gas or anything. Today, I tried running it for gold, and for some reason the players suddenly can't find the mine, or they stop at the mine and log out. What's goin on?
Sumilion
11-04-2007, 06:11 PM
I honestly have no idea :)
mark9510
11-04-2007, 06:21 PM
i had a problem somewhat to that just redownload scar and srl
synesthetics
11-06-2007, 05:27 PM
<========== RimmingtonMiner ============>
<======= -0.30- Progress Report ========>
/=======================================\
Worked for 59 Minutes and 39 Seconds
Banked 10 loads[s].
Mined 189 ores.
\=======================================/
Name : bruk
Mining Lvl : 1
Worked for : 0 minutes.
Banked : 1 time[s].
Active : True
LastRandom :
\\-------------------------------------//
mark9510
11-07-2007, 02:58 AM
i think its something with computers im fine
mark9510
11-08-2007, 12:15 AM
sry for the double post but i ust saw the stats on this script and i have to have gotten at least 1/5 of the ores mined
Sumilion
11-08-2007, 02:39 PM
Haha, nice, your a good user :D
mark9510
11-08-2007, 10:06 PM
thanks so much i would just think that with a script of such great stature should have much more
heres a proggie
<========== RimmingtonMiner ============>
<======= -0.30- Progress Report ========>
/=======================================\
Worked for 34 Minutes and 40 Seconds
Banked 6 loads[s].
Mined 135 ores.
marzey
11-09-2007, 01:59 PM
Sumilion great script i only let it run through once so i dont have a proggy i will test later if i get time gotta move loads of players lol. Great script flawless AAA+++
Marzy
Sumilion
11-09-2007, 02:52 PM
thanks so much i would just think that with a script of such great stature should have much more
heres a proggie
<========== RimmingtonMiner ============>
<======= -0.30- Progress Report ========>
/=======================================\
Worked for 34 Minutes and 40 Seconds
Banked 6 loads[s].
Mined 135 ores.
Thank you, to be perfectly honest I have been neglecting this script for a while, any script for that matter, so I'm glad to see it still works rather well.
Sumilion great script i only let it run through once so i dont have a proggy i will test later if i get time gotta move loads of players lol. Great script flawless AAA+++
Marzy
Thank you very much
[Runtime Error] : Out Of Range in line 1384 in script C:\Users\myname\AppData\Local\Temp\SRM v0.30.scar
? Sorry if this was already said.
Sumilion
11-09-2007, 07:21 PM
Hmm, would you mind redownloading it and see if it still happens ? Or perhaps reïnstall SRL ?
mark9510
11-09-2007, 08:38 PM
sumilion this might not be the best progress report ever but it just shows you how good it works
<========== RimmingtonMiner ============>
<======= -0.30- Progress Report ========>
/=======================================\
Worked for 15 Hours, 30 Minutes and 20 Seconds
Banked 125 loads[s].
Mined 3039 ores.
Received 7 gem[s].
Avoided gas 20 time[s].
\=======================================/
Name : wowers23
Mining Lvl : 41
Worked for : 34 minutes.
Banked : 7 time[s].
Active : True
LastRandom :
\\-------------------------------------//
0: = True, 6 Bank[s], Worked 37 minutes, Random:
1: = True, 12 Bank[s], Worked 73 minutes, Random:
2: = True, 11 Bank[s], Worked 68 minutes, Random:
3: = True, 10 Bank[s], Worked 63 minutes, Random:
4: = True, 10 Bank[s], Worked 68 minutes, Random:
5: = False, 3 Bank[s], Worked 18 minutes, Random: Mime
6: = True, 11 Bank[s], Worked 72 minutes, Random:
7: = True, 12 Bank[s], Worked 75 minutes, Random:
8: = False, 9 Bank[s], Worked 64 minutes, Random: Forester
9: = True, 9 Bank[s], Worked 68 minutes, Random:
10: = False, 8 Bank[s], Worked 63 minutes, Random:
11: = True, 7 Bank[s], Worked 34 minutes, Random:
12: = False, 0 Bank[s], Worked 35 minutes, Random:
13: = True, 4 Bank[s], Worked 34 minutes, Random:
14: = True, 1 Bank[s], Worked 36 minutes, Random:
15 = True, 4 Bank[s], Worked 36 minutes, Random:
16: = True, 4 Bank[s], Worked 36 minutes, Random:
17: = True, 4 Bank[s], Worked 37 minutes, Random:
<==========================================>
i use this script to level my 60 miners until they are lvl 60 then i use jukkas miner to get coal but for now only 3 are lvl 60 and up but i still use it to get iron to make steel
itchbiggan
11-12-2007, 12:59 PM
with new update it seems to stop working after it reaches the mine
mark9510
11-12-2007, 01:35 PM
no that stinks i need to check it out
tofuli
11-12-2007, 04:26 PM
RS was updated today, and it can't find ore anymore? :P
It just stands in rimmington mining spot and does the bored human mouse thingy..
Sumilion
11-12-2007, 07:30 PM
'Released' v0.31 ... as far as I know the only difference is that i changed one color :)
Opal Tasty
11-12-2007, 10:08 PM
It doesn't find the pick axe anymore since the rs update.
Lorenzi
11-15-2007, 03:07 AM
It doesn't find the pick axe anymore since the rs update.
Yea, the same thing happened to me.
mark9510
11-15-2007, 03:29 AM
i think sumilion might not update this script anymore
Sumilion
11-15-2007, 01:57 PM
i think sumilion might not update this script anymore
I only do what needs to be done, seems like this needs to be done so I'll check it.
EDIT : It detected my Rune Pic just fine, what paxes are you using which it won't detect and what will it say (in the debug box) and do on RS ?
mark9510
11-18-2007, 04:39 AM
i am not going to use this.for a long time sorry i let you down
dr90210
11-18-2007, 04:46 AM
hmm... today i had trouble with it...
>>> it would get to the mine the first time, then it would go back to bank...
- it banks good... then it goes back to mine and carries on along the road 'till the range shop... it even one time ended up in front of draynor manor...
> i changed worlds 5 times and it still did the same thing :confused:
=== it says "player lost"... after saying somthing about the road...
this has only started happening to me from this morning:stirthepot:
synesthetics
11-18-2007, 09:58 PM
<========== RimmingtonMiner ============>
<======= -0.31- Progress Report ========>
/=======================================\
Worked for 3 Hours, 51 Minutes and 56 Seconds
Banked 31 loads[s].
Mined 674 ores.
Received 1 gem[s].
Avoided gas 2 time[s].
\=======================================/
Name :
Mining Lvl : 35
Worked for : 28 minutes.
Banked : 5 time[s].
Active : True
LastRandom :
\\-------------------------------------//
slakan
11-21-2007, 08:35 PM
Worked for 2 Hours, 28 Minutes and 19 Seconds
Banked 16 loads[s].
Mined 352 ores.
Received 1 gem[s].
Avoided gas 19 time[s].'
damit good script man! perfect for my lvl 10s mining lvls macros of mine :D
Sumilion
11-21-2007, 08:38 PM
Good :)
Billy Bobby8
11-22-2007, 01:19 AM
Logs in and just stands there until it auto logs out. Which bank do I start at? I'm at the east bank.
mark9510
11-22-2007, 01:24 AM
good this script is back on line what did you do change the tolerance
XcanadamanX
11-22-2007, 02:34 AM
<========== RimmingtonMiner ============>
<======= -0.30- Progress Report ========>
/=======================================\
Worked for 23 Hours, 40 Minutes and 24 Seconds
Banked 185 loads[s].
Mined 3623 ores.
Received 15 gem[s].
Avoided gas 9 time[s].
\=======================================/
sweet. just find the tin place on the mm needs tweeking
Sumilion
11-22-2007, 01:25 PM
good this script is back on line what did you do change the tolerance
Reset the iron color i think, not sure :p
sweetleaf
11-22-2007, 09:20 PM
sweet. just find the tin place on the mm needs tweeking
i say the same thing. when it goes to mine the tin, instead of clickin on the tin ore cluster of rocks, it clicks to the right of it where the trees are and tries to mine there.
XcanadamanX
11-23-2007, 01:55 AM
or sometimes when the symbol is too high up(towards the copper rocks) it wont find anything at all.
mark9510
11-23-2007, 10:01 PM
okay here are some of the proggies i have had over some time
======== RimmingtonMiner ============>
<======= -0.30- Progress Report ========>
/=======================================\
Worked for 2 Hours, 34 Minutes and 23 Seconds
Banked 24 loads[s].
Mined 592 ores.
Received 1 gem[s].
Avoided gas 1 time[s].
\=======================================/
<========== RimmingtonMiner ============>
<======= -0.30- Progress Report ========>
/=======================================\
Worked for 34 Minutes and 40 Seconds
Banked 6 loads[s].
Mined 135 ores.
/=======================================\
Worked for 1 Hours, 45 Minutes and 25 Seconds
Banked 16 loads[s].
Mined 403 ores.
Received 2 gem[s].
Avoided gas 1 time[s].
<========== RimmingtonMiner ============>
<======= -0.30- Progress Report ========>
/=======================================\
Worked for 1 Hours, 2 Minutes and 43 Seconds
Banked 11 loads[s].
Mined 243 ores.
Avoided gas 3 time[s].
\=======================================/
<========== RimmingtonMiner ============>
<======= -0.30- Progress Report ========>
/=======================================\
Worked for 12 Hours, 30 Minutes and 12 Seconds
Banked 119 loads[s].
Mined 2941 ores.
Received 7 gem[s].
Avoided gas 20 time[s].
\=======================================/
<========== RimmingtonMiner ============>
<======= -0.30- Progress Report ========>
/=======================================\
Worked for 7 Hours, 54 Minutes and 39 Seconds
Banked 40 loads[s].
Mined 869 ores.
Received 2 gem[s].
Avoided gas 3 time[s].
\=======================================/
/=======================================\
Worked for 11 Hours, 15 Minutes and 59 Seconds
Banked 103 loads[s].
Mined 2529 ores.
Received 4 gem[s].
Avoided gas 33 time[s].
\=======================================/
<========== RimmingtonMiner ============>
<======= -0.30- Progress Report ========>
/=======================================\
Worked for 1 Hours, 55 Minutes and 4 Seconds
Banked 18 loads[s].
Mined 478 ores.
Received 1 gem[s].
\=======================================/
<======= -0.30- Progress Report ========>
/=======================================\
Worked for 5 Hours, 1 Minutes and 14 Seconds
Banked 18 loads[s].
Mined 276 ores.
Received 1 gem[s].
Avoided gas 1 time[s].
\=======================================/
<========== RimmingtonMiner ============>
<======= -0.30- Progress Report ========>
/=======================================\
Worked for 6 Hours, 36 Minutes and 58 Seconds
Banked 59 loads[s].
Mined 1429 ores.
Received 5 gem[s].
Avoided gas 2 time[s].
\=======================================/
<========== RimmingtonMiner ============>
<======= -0.30- Progress Report ========>
/=======================================\
Worked for 8 Hours, 9 Minutes and 53 Seconds
Banked 74 loads[s].
Mined 1847 ores.
Received 6 gem[s].
Avoided gas 4 time[s].
\=======================================/
<========== RimmingtonMiner ============>
<======= -0.30- Progress Report ========>
/=======================================\
Worked for 7 Hours, 7 Minutes and 54 Seconds
Banked 64 loads[s].
Mined 1586 ores.
Received 5 gem[s].
Avoided gas 35 time[s].
\=======================================/
<========== RimmingtonMiner ============>
<======= -0.30- Progress Report ========>
/=======================================\
Worked for 11 Hours, 32 Minutes and 44 Seconds
Banked 106 loads[s].
Mined 2655 ores.
Received 5 gem[s].
Avoided gas 50 time[s].
\=======================================/
<========== RimmingtonMiner ============>
<======= -0.30- Progress Report ========>
/=======================================\
Worked for 16 Hours, 37 Minutes and 48 Seconds
Banked 119 loads[s].
Mined 2985 ores.
Received 11 gem[s].
Avoided gas 42 time[s].
\=======================================/
<========== RimmingtonMiner ============>
<======= -0.30- Progress Report ========>
/=======================================\
Worked for 10 Hours, 18 Minutes and 43 Seconds
Banked 82 loads[s].
Mined 1840 ores.
Received 3 gem[s].
Avoided gas 7 time[s].
\=======================================/
XcanadamanX
11-23-2007, 10:06 PM
heres one thats still going.
<========== RimmingtonMiner ============>
<======= -0.30- Progress Report ========>
/=======================================\
Worked for 20 Hours, 13 Minutes and 15 Seconds
Banked 94 loads[s].
Mined 1562 ores.
Received 6 gem[s].
Avoided gas 16 time[s].
\=======================================/
mark9510
11-23-2007, 10:24 PM
how did u take it while it is running did u pause it
Powered by vBulletin® Version 4.2.1 Copyright © 2024 vBulletin Solutions, Inc. All rights reserved.