View Full Version : RICK 4 SRL - iron mine and banker! (varrock east)
Pages :
1
2
3
4
5
6
7
8
9
[
10]
11
faster789
04-06-2008, 03:39 PM
that sounds pretty good:)
i didn't have any problems with walking tough
i am using this script for..
wait.. i look it now 3.5 hours now..
i will stop it when all my players did 14 loads:p
a pre-proggy for you;)
will post the longer one later...
- MasterKill Progress Report.
Total loads done: 26
Total iron Mined: 702 ore`s
Responds made: 11
Time running: 3 Hours, 34 Minutes and 52 Seconds
Player stuff:
= In the bank, M-lvl = 40, 324 ore`s, active? True
= In the bank, M-lvl = 38, 189 ore`s, active? True
= In the bank, M-lvl = 38, 189 ore`s, active? True
- MasterKill Progress Report.
/~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
| SRL 4 Randoms Report |
| www.srl-forums.com |
|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|
| SRL Logs : 3 |
| Trades Missed : 3 |
| Talks : 1 |
| Old Men : 1 |
| Boxes Solved : 3 |
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~/
very nice script:)
will the new version be released today?
EDIT:
there was a little walking bug 2 times today..
when it walked to the bank.. it walked to this place:
i paused and walked to bank manually :p
its on that way to the old wildy, now bounty hunter..
it found the bankers dtm in that museum thing (i think it is a museum... not sure)
i made a picture of it:
http://i30.tinypic.com/2mpndwg.jpg
script is still running with all 3 players true:)
EDIT:
on the last player...
i always get this error
it has an addy pickaxe in his inventory..
the debug says:
player setup.
Combat lvl is 35
xxxxxxxx got a good enough combat :)
xxxxxxxx mining lvl is 40
Pickaxe check:
Addy pickaxe found in your iventory
Iron pickaxe found in your iventory
Your pickaxe is wielded now =D
but it does NOT have an iron pickaxe! not even in bank!
it clicks on the addy pickaxe.. and it says Your pickaxe is wielded now =D
but it aint!
so i paused it.. got a bronze axe from the bank.. and wielded it..
because when it did a load..
it goes to bank.. and banks the whole inventory.. since the script thinks the pickaxe is wielded (which is not).
and it banks the pickaxe too..
and it leaves the bank without a pickaxe..
so i got that bronze pickaxe... and wielded it.. so i could at least mine...
here is a picture of it.. which i took when it was walking (with that bronze pickaxe which i wielded manually)
http://i31.tinypic.com/ztdelx.jpg
please note..
my other players dont have this..
but they can wield it..
and they used an addy pickaxe too..
but the debug did NOT say:
Iron pickaxe found in your iventory
wierd...
anyway..
1 more lvl on this player and they all will use a rune pickaxe:p
so i hope i dont get this error anymore..
still running;)
Yea this happens to my script ALL the time...I can't wait for his new version I want to see how he fixed this bug.
@ MasterKill
I'm guessing the new version going to be released today?
And I shall KILL U!!:p Because of this owning script;) my new script has no point to it and No One is using :(
Jim.Bean
04-06-2008, 06:02 PM
It has been working great for me!
I just tried it today again and now it is saying it can't find pick.
I'm wielding it just like yesterday and i tried unwielding also.
What is going wrong would you say?
Jim.Bean
04-07-2008, 01:57 AM
There is a problem finding pickaxe once in awhile....
Also with Bank booth error....
And when reaching mine, only mining at one rock and then saying we got lost but found the mine DDTM.
Jim.bean.. yes i get that error sometimes too..
hopefully it will be fixed in the next version.
but please... do not double post.. use the edit button
MasterKill
04-07-2008, 10:42 AM
I'm half sick and I just started walking a "morning paper round".
I'll try to at least release it this weak. running last test rounds now.
well.. i understand the reason;)
beterschap!
i hope the test round is good^^
the scar noob
04-07-2008, 03:23 PM
well.. i understand the reason;)
beterschap!
i hope the test round is good^^
You speak dutch??(Haha, ik ook!:p)
However, I hope your object finding and walking will be improved;)
-Tsn.
issamawan
04-07-2008, 06:30 PM
- MasterKill Progress Report.
Total loads done: 14
Total iron Mined: 432 ore`s
Responds made: 5
Time running: 1 Hours, 57 Minutes and 58 Seconds
Player stuff:
woolmer died = In the bank, M-lvl = 73, 270 ore`s, active? True
scorpions442 = In the bank, M-lvl = 44, 162 ore`s, active? True
- MasterKill Progress Report.
/~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
| SRL 4 Randoms Report |
| www.srl-forums.com |
|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|
| SRL Logs : 8 |
| Fights : 1 |
| Talks : 1 |
| Certers Solved : 1 |
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~/
gr8 script...its just sometime in the end it starts saying i have a bronze pickaxe and starts banking weird stuff....its abit messed up in the end...but who cares
the beginning is perfect
gr8 job
keep it up
issamawan
issamawan
04-07-2008, 06:35 PM
that sounds pretty good:)
i didn't have any problems with walking tough
i am using this script for..
wait.. i look it now 3.5 hours now..
i will stop it when all my players did 14 loads:p
a pre-proggy for you;)
will post the longer one later...
- MasterKill Progress Report.
Total loads done: 26
Total iron Mined: 702 ore`s
Responds made: 11
Time running: 3 Hours, 34 Minutes and 52 Seconds
Player stuff:
= In the bank, M-lvl = 40, 324 ore`s, active? True
= In the bank, M-lvl = 38, 189 ore`s, active? True
= In the bank, M-lvl = 38, 189 ore`s, active? True
- MasterKill Progress Report.
/~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
| SRL 4 Randoms Report |
| www.srl-forums.com |
|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|
| SRL Logs : 3 |
| Trades Missed : 3 |
| Talks : 1 |
| Old Men : 1 |
| Boxes Solved : 3 |
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~/
very nice script:)
will the new version be released today?
EDIT:
there was a little walking bug 2 times today..
when it walked to the bank.. it walked to this place:
i paused and walked to bank manually :p
its on that way to the old wildy, now bounty hunter..
it found the bankers dtm in that museum thing (i think it is a museum... not sure)
i made a picture of it:
http://i30.tinypic.com/2mpndwg.jpg
script is still running with all 3 players true:)
EDIT:
on the last player...
i always get this error
it has an addy pickaxe in his inventory..
the debug says:
player setup.
Combat lvl is 35
xxxxxxxx got a good enough combat :)
xxxxxxxx mining lvl is 40
Pickaxe check:
Addy pickaxe found in your iventory
Iron pickaxe found in your iventory
Your pickaxe is wielded now =D
but it does NOT have an iron pickaxe! not even in bank!
it clicks on the addy pickaxe.. and it says Your pickaxe is wielded now =D
but it aint!
so i paused it.. got a bronze axe from the bank.. and wielded it..
because when it did a load..
it goes to bank.. and banks the whole inventory.. since the script thinks the pickaxe is wielded (which is not).
and it banks the pickaxe too..
and it leaves the bank without a pickaxe..
so i got that bronze pickaxe... and wielded it.. so i could at least mine...
here is a picture of it.. which i took when it was walking (with that bronze pickaxe which i wielded manually)
http://i31.tinypic.com/ztdelx.jpg
please note..
my other players dont have this..
but they can wield it..
and they used an addy pickaxe too..
but the debug did NOT say:
Iron pickaxe found in your iventory
wierd...
anyway..
1 more lvl on this player and they all will use a rune pickaxe:p
so i hope i dont get this error anymore..
still running;)
ive got exactly the same problem
it says i have a bronze pick when i have like 10 rune picks
its pretty annoying
and my guy once ended up in varok west bank
plz fix it MK
thnx loads
Vapor
04-08-2008, 01:02 AM
I ran for like 20min and after when I came back my pickaxe was broke???
q3ick
04-08-2008, 01:54 AM
Yeah sometimes that happens, I suggest keeping four to five extra in your bank.
Syurba
04-08-2008, 02:31 AM
Sometimes when ppl say "mining lvls" the script types in "0".
Keith102030
04-08-2008, 12:46 PM
I cant use your script because it always says 'mine full load'
what does it mean ?
MasterKill
04-09-2008, 08:35 AM
sorry people i became realy sick now, yesterday I had a temp. of 40 degrees celsius. I hope I get better soon to release version 13
TViYH
04-09-2008, 07:07 PM
That's 104 degrees Fahrenheit for you Americans...Sorry, MK. Get better soon.
Codeman
04-09-2008, 09:09 PM
woah 104 thats deadly without treatment hope you get better man
vinny13
04-09-2008, 11:03 PM
Get well soon :)
I haven't been that sick in over a year *knocks on wood*... Before that I was the AIO Sickness Package :(
Floor66
04-10-2008, 09:04 AM
I'm gonna use this, it looks very good!
I like it that it Writeln's all actions, so i can keep track.
VivaLaRofl
04-11-2008, 12:31 AM
Can't wait for verion 13. Maybe if I can be assed to get from level 5 - 15 mining I'll use it :D.
Lul.
issamawan
04-11-2008, 01:54 PM
- MasterKills Hyper Progress Report.
Worked for: 1 Hours, 52 Minutes and 27 Seconds
Total ores mined: 540
Total loads done: 19
Trade[s] made: 0
Respond[s] made: 8
Player reset[s]: 4
(sensored):
Location: not found the mine
Random?:
total ore`s mined: 540
Mining lvl: 73
Current Pickaxe using: Rune
amazing....ended up near alkharid and it cudnt walk any further...might have missed the mining spot
but otherwise nice job,
issamawan
MasterKill
04-11-2008, 03:39 PM
tonight last test run for the release.
i cured *haleluja*
the scar noob
04-11-2008, 03:57 PM
tonight last test run for the release.
i cured *haleluja*
Show me! Surprise me!:)
-Tsn.
yay,
im glad your cured:)
dang... 40 degrees celsius is much=O
i'll wait for the release:D
faster789
04-12-2008, 04:56 AM
impatiently ...waits for release!!!:D
MasterKill
04-12-2008, 06:23 AM
It's kinda not done yet, so i'll call it beta...
VERSION 13beta RELEASED
for scar 3.15 with srl 15
//----------------------------------------------------------------------------//
Start your players in the varrock east bank. Some stuff this script is including:
* Fast Auto Responder
* Perfect Bank And Mine Finding
* Anti Randoms, Anti Ban
* Awesome Reports
* Very Fast
* TPoint Array Object Finding (for bank, iron and mine).
* Pick Related:
- Get New Pick From Bank When No Pick
- Bank Pickaxe If Broken
- Attamps to find the pickhead if it flies of
//----------------------------------------------------------------------------//
yay... new version is released:D
ima try it NOW:)
EDIT:
in your smartsetup.. you got signed smart..
maybe make it unsigned (multiplayer?)
or add an option like this
WriteLn('Loading RuneScape.SMART ...');
SmartSetupEx(world, False, Signed);
SetTargetDC(SmartGetDC);
while not(SmartReady) do Wait(100);
ReplaceDebugLine(8, 'Loading RuneScape ...');
and at the beginning of the script:
[scar]
World := ; // What world to macro in? be smart and chage this!
Signed := ; True = signed, False = unsigned
i changed it for myself:p
MasterKill
04-12-2008, 07:28 AM
of course rs is signed and ofcourse it has multi player :D
and the world number IS in the script setup :D
unsigned client makes the script failing. keep is signed.
signed makes a random.dat thing
unsigned not.
rs reads your random.dat and sees al your players..
so if 1 is banned.. all will be banned..
thats why you should add it;)
anyway.., i made it unsigned and it works fine...
al you got to do is start the script once... let it log in... stop the script..
logout manually,.. start again
than it works normally..
only some waits
this new version works very good for me:)
EDIT:
walking aint flawles..
it just walked to the museum thingie:(
i paused and walked to bank myself:p
all players still true:)
MasterKill
04-12-2008, 07:42 AM
I'll add the option in next version, and i never had problems with the banking.
ohh and another problem!
IT DOES NOT SWITCH THE PLAYERS!
this is my setup..
might be my fault... but i dont think so:
Procedure SetupPlayers;
begin
HowManyPlayers := 3; // NO MAX <-- SETUP CORRECT
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0; // Start Player? <-- SETUP CORRECT
World := 113; // What world to macro in? be smart and chage this!
SRLid := ''; // to run this script you need an srl ID and PASS
SRLPassword := ''; // plz get those at "www.stats.srl-forums.com" and hit register
Players[0].Name := ''; // UserName
Players[0].Pass := ''; // Password
Players[0].Nick := ''; // 3/4 String of Name (example: if accname is 'macroman' then set .nick at 'acro')
Players[0].Active := True; // Use this account? True / False
Players[0].integers[0] := 7; // loads before: logout / nextplayer
Players[1].Name := '';
Players[1].Pass := '';
Players[1].Nick := '';
Players[1].Active := True;
Players[1].integers[0] := 7;
Players[2].Name := ''; // UserName
Players[2].Pass := ''; // Password
Players[2].Nick := ''; // 3/4 String of Name (example: if accname is 'macroman' then set .nick at 'acro')
Players[2].Active := True; // Use this account? True / False
Players[2].integers[0] := 7; // loads before: logout / nextplayer
MouseSpeed := 12; // Mouse speed
end;
so it should switch after 7 loads..
this is my proggie :
[Time Running: 46 Minutes and 46 Seconds]
[Iron Mined: 224]
[Times Banked: 0]
[Respond[s] made: 0]
[Mining 287,961433736553 Iron a hour]
player1 = [224 Iron Mined] [active? True] [Location: In The Bank]
player2 = [0 Iron Mined] [active? True] [Location: In The Bank]
player3 = [0 Iron Mined] [active? True] [Location: In The Bank]
as you see... 196 ores = 7 loads... and this is more..
maybe you forgot that switch thing?
MasterKill
04-12-2008, 08:21 AM
It does switch mine :s
Varrock east mine and banker version 13.0
created by MasterKill
Last status found in script:
there still where 2 of the 2 players active.
Script Report:
Iron Mined : 205
Times Banked : 10
Responds Made : 0
Player Report:
player1
Iron Mined : 115
Location : In The Bank
Mining level : 69
player2
Iron Mined : 90
Location : In The Bank
Mining level : 66
procedure HyperMainLoop;
begin
Repeat
ToThaMine;
MineThaLoad;
ToThaBank;
BankThaLoad;
WhileReport;
Load := Load + 1;
Until (Not LoggedIn) Or (Load - 1 > Players[CurrentPlayer].Integers[0])
end;
thats wierd:s
well..
i make my players all lvl 46 mining..
than i'll reboot my pc, restart script and try signed
lets see what happens than;)
edit: after a reboot, it worked:S
still on false..
sorry
my fault..i'll make them all lvl 46 mining, than run it for a few hours
edit2:
a short proggy
stopped, because i got to go now:(
[Time Running: 1 Hours, 31 Minutes and 1 Seconds]
[Iron Mined: 446]
[Times Banked: 0]
[Respond[s] made: 1]
[Mining 295,814054262792 Iron a hour]
1 = [251 Iron Mined] [active? True] [Location: In The Bank]
2 = [195 Iron Mined] [active? True] [Location: In The Bank]
3 = [0 Iron Mined] [active? True] [Location: In The Bank]
MasterKill
04-12-2008, 01:30 PM
that looks better allready ;)
btw people version 13 is released check previous page
vinny13
04-12-2008, 02:24 PM
Great :)
I will be trying this just as soon as I level up my new Power Noob :)
issamawan
04-12-2008, 02:27 PM
yay version 13
trying it now!
hope its gud,
issamawan
faster789
04-12-2008, 05:31 PM
BRAAP new version!! NICE way of finding the bank kwl TPA...I used a different version in my new version (not released yet)...I used a DDTM of the rocks before it reaches to bank to make sure it stays below and doesnt go to museum...AND OMGGG I JUST FOUND I AM THE FIRST POSTER OF THIS THREADD!!! HAHA WOOOTT>>:D :D
issamawan
04-12-2008, 06:12 PM
hey yo chek this
i was running it yea it was running fine
i editted some responds and stuff
got the script workin
but the problem is that it keeps banking my pick
it says banking all ores but pickaxe
but the next thing its banking my pick
it goe to the mine, comes bak to take out another pick, then another load begins
also i ended up in varok museum after the 3rd load
still liked ur older version
but ur still a gr8 scripter
not posting proggies coz tey werent tooo gud(only like max 4 loads),
issamawan
elf5380
04-12-2008, 10:14 PM
It works great, but freezes every few hundred ores.
Minoizuri
04-13-2008, 12:03 AM
Hmm...the script doesn't work for meh...it logs in, but then it doesn't push the "click here to play button". Then, when I try fixing it by taking control and pushing it, the script then properly starts back up, and "sets up/checks" the character. Then, it gives me a bogus proggy, and then finishes the script.
Here's the proggy:
- MasterKills Hyper Progress Report.
Worked for: 8 Minutes and 48 Seconds
Total ores mined: 0
Total loads done: 0
Trade[s] made: 0
Respond[s] made: 0
Player reset[s]: 0
*********:
Location: In the bank
Random?:
total ore`s mined: 0
Mining lvl: 0
Current Pickaxe using:
- MasterKills Hyper Progress Report.
Successfully executed
vinny13
04-13-2008, 12:28 AM
Old vers. mined my friend 700 iron in 2-3 hours with one account on one pick... It would have run longer but I forgot to put the second pick in the first slot...
He says thanks ;)
VivaLaRofl
04-13-2008, 12:40 AM
I love it. But for me it ends up in the Meuseum after every trip to the bank :(.
faster789
04-14-2008, 06:40 AM
I love it. But for me it ends up in the Meuseum after every trip to the bank :(.
lol yep, apparently he didnt fix his find bank procedure yet..
MasterKill
04-14-2008, 06:45 AM
Wich means i need to update the bankers DTM, i'll soon ;)
Thanks guys
the scar noob
04-14-2008, 08:24 PM
Wich means i need to update the bankers DTM, i'll soon ;)
Thanks guys
It seems that you still needs some things to fix, but I understand..it's in beta phase:)
Ooh, I see proggys like: "Mining 758.3435425741527452452714257452 iron ores an hour" or something among those lines.
Hehe, use the function "ceil" for make the number above 759;)
The thing ceil does, is round the extended upwards to the nearest integer, so 7.1 will return 8 aswell;)
I'm a bit sick atm, I'll have a better look to your script another time:)
-Tsn.
MasterKill
04-15-2008, 05:13 AM
It seems that you still needs some things to fix, but I understand..it's in beta phase:)
Ooh, I see proggys like: "Mining 758.3435425741527452452714257452 iron ores an hour" or something among those lines.
Hehe, use the function "ceil" for make the number above 759;)
The thing ceil does, is round the extended upwards to the nearest integer, so 7.1 will return 8 aswell;)
I'm a bit sick atm, I'll have a better look to your script another time:)
-Tsn.
IntToStr() makes it as round numbers to, but i like the 287,4523897 ores an hour :D
faster789
04-15-2008, 05:54 AM
Yep, well for my varrock east banker I've made a DDTM of the rocks.:p (Don't copy, LOL )
Check this you'll see what I mean by the DDTM of rocks.
http://www.villavu.com/forum/showthread.php?t=28581
cocodog13
04-15-2008, 07:14 PM
hi, iv had a few problems with this script,
1: the script banked my pickaxe when i had it in the inventory(the miner in question is a str pure)
2:sometimes when it starts it will say [Location: Not Found Mine] when the player is standing in the bank.
3: when a fighting random is found my player just sort of ran off and got lost, a possible fix would be to turn run on and then call a run to the bank, that way the player is far less likely to get lost.
Minoizuri
04-15-2008, 10:01 PM
Epic win! The script works for me now...I don't know why it didn't work before (see post somewhere above here). Here's a short proggy:
- MasterKills Hyper Progress Report.
Worked for: 6 Hours, 2 Minutes and 11 Seconds
Total ores mined: 1917
Total loads done: 14
Trade[s] made: 0
Respond[s] made: 0
Player reset[s]: 9
********:
Location: wierd bank error
Random?:
total ore`s mined: 1917
Mining lvl: 77
Current Pickaxe using: Rune
- MasterKills Hyper Progress Report.
MasterKill
04-16-2008, 08:01 AM
Epic win! The script works for me now...I don't know why it didn't work before (see post somewhere above here). Here's a short proggy:
- MasterKills Hyper Progress Report.
Worked for: 6 Hours, 2 Minutes and 11 Seconds
Total ores mined: 1917
Total loads done: 14
Trade[s] made: 0
Respond[s] made: 0
Player reset[s]: 9
********:
Location: wierd bank error
Random?:
total ore`s mined: 1917
Mining lvl: 77
Current Pickaxe using: Rune
- MasterKills Hyper Progress Report.
You are not useing version 13 lol :p
kingarabian
04-16-2008, 08:05 AM
You are not useing version 13 lol :p
Hi masterkill, completely off topic, but could you please tell me what needs updating for your pest controler? Sorry for the off-topicness.
effinpanda
04-17-2008, 02:35 AM
could you post a non-smart version of this script please?
Mr beat
04-17-2008, 01:48 PM
i tried vers 13 and then this come:
Line 970: [Error] (14109:21): Type mismatch in script D:\Varrock_East_Mine_And_Banker_By_MasterKill_V13_ BETA.scar
Mr beat
04-17-2008, 01:49 PM
Np im so dumb -.- forgot to update srl
effinpanda
04-18-2008, 12:45 AM
i cant wield my pick ax and when i go to the bank it banks it and logs out...
how do i fix?
MasterKill
04-18-2008, 05:06 AM
is your pickaxe in the first slot?
Iced_Liquid
04-18-2008, 09:46 PM
Ok, it seems every script it ry i keep getting this error - Line 27: [Error] (122:1): Duplicate identifier 'UpChars' in script C:\Program Files\SCAR 3.15\includes\srl\srl\core\Globals.scar
effinpanda
04-18-2008, 10:29 PM
yeah my ax is in first slot
thebob142
04-18-2008, 11:09 PM
when ever i click run it says ok its loading smart whatever after a few seconds it says that scar will suddenly disappear from my task bar but when i open my task manager scar.exe is open and running anything i can do about this?
Iced_Liquid
04-19-2008, 03:08 AM
[Runtime Error] : Exception: Access violation at address 006CF23E in module 'scar.exe'. Read of address FFFFFFFC in line 227 in script C:\Program Files\SCAR 3.15\includes\SRL/SRL/Core/Login.scar
Iced_Liquid
04-19-2008, 08:26 AM
Flawless except when a strange plant poisons you, when poison does damage it says found fighting random and runs off, but its just the poison, is there a way to make it pick fruit?
EX.
Starting mining...
******** FOUND FIGHTING RANDOM ********
******** FOUND FIGHTING RANDOM ********
... until where full.
[To The Bank]
******** FOUND FIGHTING RANDOM ********
We have found the bankers DTM, entering bank...
Luckily poison only does 2 dmg and wears off quickly.
MasterKill
04-20-2008, 01:05 PM
Flawless except when a strange plant poisons you, when poison does damage it says found fighting random and runs off, but its just the poison, is there a way to make it pick fruit?
EX.
Starting mining...
******** FOUND FIGHTING RANDOM ********
******** FOUND FIGHTING RANDOM ********
... until where full.
[To The Bank]
******** FOUND FIGHTING RANDOM ********
We have found the bankers DTM, entering bank...
Luckily poison only does 2 dmg and wears off quickly.
srl doesn't support member randoms :duh:
and thanks, evry one :p
infested999
04-20-2008, 03:11 PM
Lol some dude had the same color as the bank and it never opend the bank. Well even Worse...
- It walked to mine flawlessly
- It found an iron ore
- It went bank to bank with an empty inventory
- It couldent find the bank because some dud had the same color as bank
- It ran to the center of varrock
- It went bank to bank
- It ran to the center of varrock
- It went bank to bank
- It ran to the center of varrock
- It went bank to bank
- It ran to the center of varrock
- It went bank to bank
- It ran to the center of varrock
- It went bank to bank
- It ran to the center of varrock
- It went bank to bank
- It ran to the center of varrock
- It went bank to bank
- It ran to the center of varrock
- It went bank to bank
- It ran to the center of varrock
- It went bank to bank
- It ran to the center of varrock
- It went bank to bank
- It ran to the center of varrock
- It went bank to bank
EDIT : i used the rev 14 version :headbang:
EDIT : I made a proogie,, i dont like yours :P
////////Masterkill Iron\\\\\\\\\
{ }
{ Iron : 161 }
{ Banked : 10 }
{ Responds : 0 }
{ }
\\\\\\\\\\\\\\\/////////////////
/ \
\ 0 : **** M:54 I:81 NO PICK /
/ 1 : **** M:53 I:80 NO PICK \
\ 2 : **** M:00 I:00 NOT IN USE/
/ \
\ /
/ \
\ /
/ \
\\\\\\\\\\\\\\\/////////////////
Players 0 and 1 had a pick and 3 more in bank, Player 2 was working fine...
occassionally it misses the bank and keeps walking north to the museum or w/e. I think its just a bad DTM or something. Other than that it works great!
here is my proggie...
[Time Running: 1 Hours, 45 Minutes and 38 Seconds]
[Iron Mined: 558]
[Times Banked: 0]
[Respond[s] made: 1]
[Mining 316.065680865234 Iron a hour]
MasterKill
04-21-2008, 05:20 AM
occassionally it misses the bank and keeps walking north to the museum or w/e. I think its just a bad DTM or something. Other than that it works great!
here is my proggie...
hmm I guess I need to fix the radial walking of the walking to the bank :p
thanks.
Coh3n
04-21-2008, 07:52 PM
when ever i click run it says ok its loading smart whatever after a few seconds it says that scar will suddenly disappear from my task bar but when i open my task manager scar.exe is open and running anything i can do about this?
This has happened to me also, but once I load up scar again it works fine. I do have a buddy that is having this problem and it doesn't work if he opens it, and its repeated this many times.
The only suggestion I can give you is try re downloading. This has worked for me for other problems.
Hope that helps.
EDIT: I'm going to try this script, I'll post proggy later.
stalin
04-21-2008, 09:32 PM
smart wont work for me when i run the script scar closes it self
thebob142
04-22-2008, 12:20 AM
it says it loading smart but ive waited 10 mins but nothing um big problem? help plz
jdisco
04-22-2008, 02:58 AM
Things i noticed with V13 Beta:
1. It sometimes will leave the bank w/o a pick, but will realize this at the mine and go back.
2. The auto-responder might be responding a little too quick. (I like how the Q and A setup is cleaner tho)
3. Sometimes the walk to the mine will end up here:http://img134.imageshack.us/img134/7356/snu17746357og2.jpg
4. Rarely, when someone asks mining lvl, it will respond with "0". This happened in the previous version also, In the proggies it wouldn't recognize how much you've lvl'd. (not that big of an issue)
Other than the above, I love this new version and have always loved this miner. Great work!
MananRulz
04-22-2008, 05:46 AM
[Time Running: 9 Minutes and 0 Seconds]
[Iron Mined: 28]
[Times Banked: 0]
[Respond[s] made: 0]
[Mining 200.603003074719 Iron a hour]
I will post a longer one later :D
Lee Lok Hin
04-22-2008, 06:21 AM
To the above guys that smart would'nt work for them : Your worlds/ini is corruipetd in your SCSS folder. Try to get someone to send their copy to you.
xentha
04-22-2008, 02:24 PM
I have this problem.
Walking to the mine...
prolly found the mine, try entering now...
lol not found the mine anymore :s
prolly found the mine, try entering now...
lol not found the mine anymore :s
prolly found the mine, try entering now...
lol not found the mine anymore :s
Keeps walking south, misses the mine then logs out when its as south east as it can go by following the track and logs out, goes to next player and same thing happens
tetazoo
04-22-2008, 03:36 PM
I have this problem.
Walking to the mine...
prolly found the mine, try entering now...
lol not found the mine anymore :s
prolly found the mine, try entering now...
lol not found the mine anymore :s
prolly found the mine, try entering now...
lol not found the mine anymore :s
Keeps walking south, misses the mine then logs out when its as south east as it can go by following the track and logs out, goes to next player and same thing happens
This happened sometimes before, but after this morning's update (around 8:30am EDT), it always fails to find the mine now. Probably need an update to color/bitmap somewhere to fix this.
Oh, btw, I made some mods to my script to do the following:
- Run SMART using unsigned applet (you can just update arg 2)
- Comment out lines that equip the pick to keep character pure.
MananRulz
04-22-2008, 03:38 PM
I have this problem.
Walking to the mine...
prolly found the mine, try entering now...
lol not found the mine anymore :s
prolly found the mine, try entering now...
lol not found the mine anymore :s
prolly found the mine, try entering now...
lol not found the mine anymore :s
Keeps walking south, misses the mine then logs out when its as south east as it can go by following the track and logs out, goes to next player and same thing happens
same thing happens for me :(
It isnt working anymore!
says
Walking to the mine...
prolly found the mine, try entering now...
lol not found the mine anymore :s
prolly found the mine, try entering now...
lol not found the mine anymore :s
prolly found the mine, try entering now...
lol not found the mine anymore :s
then logs me out after making it half way to al kharid. I tried tweaking the color detection in the find mine function but it didnt help. I will keep trying and see if i can make a fix.
Ritacame
04-22-2008, 09:10 PM
Runescape's colors have been updated. Wait for an SRL update to come out. Or colors update.
rawsilk
04-22-2008, 11:32 PM
Characters constantly miss the mine and end up by the members gate in bottom right hand corner. Perhaps you could make a procdure that searchs for a DTM right there and if it is found make your character to go north and find mine again.
thebob142
04-23-2008, 02:00 AM
it keeps going to members gate i also noticed it searches to early for the mine before the mine is even on the mini-map perhaps better walking dtms or something
Baked0420
04-23-2008, 06:32 PM
mine keeps saying,
- From bank to mine.
Mine spotted by symbol.
Succesfully entered the mine by the symbol.
- From bank to mine.
- Mine full load.
(!) We got lost but found the mine DDTM =D
(!) We got lost but found the mine DDTM =D
(!) We got lost but found the mine DDTM =D
about 100,000 times lol, my guy stands a tiny bit south of the three iron rocks and then just moves up a space north then a space south over and over
MasterKill
04-23-2008, 08:01 PM
hmm people try the older version until its updated
Baked0420
04-23-2008, 08:44 PM
I tried using the older one, I got like 8 iron ores I think then it just started making me walk near the rocks from one spot back to a different one everty like 5 seconds, I'll just wait for an update or something, then I'll try again.
thebob142
04-23-2008, 09:43 PM
same results mk old version does same thing
Griff
04-24-2008, 10:12 PM
doesnt work for me, walks past the mine every time
btw i have scar 3.15 and rev 16
sunny
04-25-2008, 02:32 PM
scar closed after the pop up box that said "please start all players at the varrock east mine, start" after i pressed start it just closed
i got it setup for one player, and rev 15
can someone please help i really want to try this script it looks great
BigJohn8742
04-26-2008, 01:13 AM
Does anyone have fix for mine finding prob?
jdisco
04-26-2008, 02:28 AM
Does anyone have fix for mine finding prob?
As far as I know, there is no fix. I guess we just have to wait for Masterkill to release a newer version.
Coh3n
04-26-2008, 03:05 AM
Well before the RS update this script worked very smoothly for me. Forgot to save proggy, sorry :(
Once SRL updates I'll get another asap.
slayerkiller13
04-26-2008, 03:27 PM
this is great script update it soon plz... :( i will post more proggys :(
xminimanx
04-26-2008, 06:30 PM
Ok, great script however, I have problems with it... It goes to the mine Flawlessly (= but it kept on saying that it couldnt find any of the rocks. Then, it walked back to the bank. banked without opening up the bank windo and then when it went to walk back to the mine.. it went haywire and clicked like everywhere.
-Any suggestions on why it wont work for me?
letme shoot
04-26-2008, 06:48 PM
Line 106: [Hint] (13313:1): Variable 'WARN' never used in script C:\Program Files\SCAR 3.15\Scripts\Varrock_East_Mine_And_Banker_By_Maste rKill_V13_BETA.scar
File access error
SRL Compiled in 15 msec
Then it dissappears but nothing happends
xminimanx
04-26-2008, 07:33 PM
uh-oh... Ok guys, I got it to mine the full load but it dosent bank. it walks to the bank.. and dosent bank anything? Whats going on?
XxXx Toxin XxXx
04-26-2008, 08:00 PM
Although many people think that this autominer is not functional, it was working for me this morning. Thing is I hear that there is a problem with the AutoColour.scar... but that's not the problem. You may or may not be able to help, but almost ALL of my SMART scripts that I am trying to run aren't working right now, why? I don't know. Every time I try and run a SMART script, it just closes, and I have to end it using the task manager... Same thing happens to this script, although it was working this morning, and now its not anymore :(
Two more things, why when it loads smart does it go to an unassigned applet, and also why can't we load member worlds with the script? :( I have an army of 4 that are members and I wanted them to go into the member world...
EDIT: Problem Fixed and the miner is working without any problems:D
nielskool
04-26-2008, 08:25 PM
i tryed to fix the mine finding... for me it works hope for you guys too:P
Program NewIronMinerByMasterKill;
{.include SRL/SRL/Misc/Smart.scar}
{.include srl/srl.scar}
{.include srl/srl/skill/mining.scar}
var
World, HowManyResponds: Integer;
TheQuestion, TheRespond: array of array of String;
{/----------------------------------------------------------------------------//
Welcome to the varrock east mine and banker!
This script is created by MasterKill from SRL-Forums
SCAR : 3.15
SRL REV : 15
SCRIPT VERSION : 13.0
DO NOT COPY THIS SCRIPT AND CLAIM IT AS YOUR OWN.
If you want to use some procedures, it's ok, but CREDIT MASTERKILL.
//----------------------------------------------------------------------------//
Start your players in the varrock east bank. Some stuff this script is including:
* Fast Auto Responder
* Perfect Bank And Mine Finding
* Anti Randoms, Anti Ban
* Awesome Reports
* Very Fast
* TPoint Array Object Finding (for bank, iron and mine).
* Pick Related:
- Get New Pick From Bank When No Pick
- Bank Pickaxe If Broken
- Attamps to find the pickhead if it flies of
//----------------------------------------------------------------------------//
Start your players in the Varrock east bank with a pickaxe in first slot OR
wielded. Make sure the mining level is > 14. Be smart and add some responds
in the responds setup. plz setup the script:
//----------------------------------------------------------------------------/}
{Script Setup!}
//----------------------------------------------------------------------------//
Procedure SetupPlayers;
begin
HowManyPlayers := 2; // NO MAX <-- SETUP CORRECT
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0; // Start Player? <-- SETUP CORRECT
World := 51; // What world to macro in? be smart and chage this!
SRLid := ''; // to run this script you need an srl ID and PASS
SRLPassword := ''; // plz get those at "www.stats.srl-forums.com" and hit register
Players[0].Name := ''; // UserName
Players[0].Pass := ''; // Password
Players[0].Nick := ''; // 3/4 String of Name (example: if accname is 'macroman' then set .nick at 'acro')
Players[0].Active := True; // Use this account? True / False
Players[0].integers[0] := 3; // loads before: logout / nextplayer
Players[1].Name := '';
Players[1].Pass := '';
Players[1].Nick := '';
Players[1].Active := False;
Players[1].integers[0] := 3;
MouseSpeed := 12; // Mouse speed
end;
Procedure SetupResponds; // ADD RESPONDS FOR BETTER ANTI BAN !
begin
HowManyResponds := 3; {<-- SETUP CORRECT !!}
SetArrayLength(TheQuestion, HowManyResponds); SetArrayLength(TheRespond, HowManyResponds);
TheQuestion[0] := ['mining', 'mine'];
TheRespond[0] := [IntToStr(Players[CurrentPlayer].Integers[1])]; // your players mining level
TheQuestion[1] := ['respond'];
TheRespond[1] := ['what to say?', 'i dont have anything to say', 'no im bussy'];
TheQuestion[2] := [Players[CurrentPlayer].nick]; // your players nickname
TheRespond[2] := ['no', 'get lost', 'im bussy', 'go away', 'just let me mine okeey?'];
end;
//----------------------------------------------------------------------------//
{End Script Setup!}
//----------------------------------------------------------------------------//
//----------------------------------------------------------------------------//
{Script Code! don't touch all below}
//----------------------------------------------------------------------------//
var
x, y, I, Load, RockWaitTime, Responds, bankers, IronMined, IronOre: Integer;
PickaxeStick, BrokenPickaxe, PickaxeD, Banked, ScriptRunTime, warn: Integer;
Wielded: Boolean;
SafeReportFileName: String;
PickaxeDTM: Array [1..6] Of Integer;
Procedure SetupDTM;
begin
Bankers := DTMFromString('78DA633CC3CCC070890105FCFFFF9FE13F9 06' +
'684B0FF331E02AAB905916383AAF9F38789810BAA060418AF 01D5' +
'DC26A0E614617300197B14BA');
IronOre := DTMFromString('78DA6314616060106640038C48249066071 2A' +
'204D408000945026AE481840C0135AA40828F801A2920C141 400D' +
'C85FECF8D50000ACCF0135');
PickaxeStick := DTMFromString('78DA6314666060906140038C48249016011 24' +
'204D44801095E026A40F2CA04D408000929026A0481842201 35E2' +
'404214BF1A00B23A014A');
BrokenPickaxe := DTMFromString('78DA6334676660A8656440058C482490760 3A' +
'A2926A0C61BA8A688801A3BA09A4C026A8C806A728950D34A 408D' +
'13504D3E7E3500C8FC050A');
PickaxeDTM[1] := DTMFromString('78DA639CC0CCC0708B91011530229140BA1 3A' + //rune//
'8E60301350B816AEE1350330DA8E60A01350B30CD71894A61 1041' +
'52030015D70885');
PickaxeDTM[2] := DTMFromString('78DA63DCC5CCC0708B91011530C2C9FF40C 0B' + //addy//
'819A8E6036E3560FA3450CD7D026A0E00D55C21A0E614A639 4E41' +
'4E0CBC486A00B2A90D20');
PickaxeDTM[3] := DTMFromString('78DA637CC2CCC0708B91011530229140FA2 E5' + //mith//
'0CD07026ABE02D5DC27A0E61550CD15026ABE609AE3E010C7 2082' +
'A40600C3490A05');
PickaxeDTM[4] := DTMFromString('78DA63E4636160B8C5C8800A18914820CD0 E5' + //steel//
'4F381801A79A09AFB04D48800D55C21A0460ED39C8A820206 1124' +
'35000D5E0656');
PickaxeDTM[5] := DTMFromString('78DA639CC0CCC0F08F91011530229140BA1 3A' + //iron//
'8468409BF9A854035CC04D44C03AAF941C0AE0598E604F9FA 3288' +
'20A901004D1D0626');
PickaxeDTM[6] := DTMFromString('78DA63DCC5CCC0F08F910115302291407A3 35' + //bronz//
'08D08137E35A7816A9809A8390054F383805DA730CDF1B551 6110' +
'41520300A15606B9');
PickaxeD := DTMFromString('78DA6314606060E06540038C48249096051 25' +
'C04D470020976026A40662810502302245808A801B9590CBF 1A00' +
'612000CF');
end;
// srl function, edited the WriteLn out
function FindVarrockRoadColor2: Integer;
var
GC, a, l, TestColor, Red, Green, Blue : integer;
var
P:array of Tpoint;
begin
GC := 7304312;
Flag;
FindColorsSpiralTolerance(x, y, P, GC, MMX1, MMY1, MMX2, MMY2, 60);
l:=GetArrayLength(P);
for a:= 0 to l-1 do
begin
TestColor := GetColor(P[a].x, P[a].y);
red := (TestColor mod 256);
green := ((TestColor / 256) mod 256);
blue := ((TestColor / 256) / 256);
if Red - Blue <= 12 then if Red - Blue >= 8 then
if Red - Green <= 6 then if Red - Green >= -1 then
if Green - Blue <= 10 then if Green - Blue >= 4 then
if GetColor(P[a].x + 5, P[a].y + 5) = TestColor then
if GetColor(P[a].x + 3, P[a].y + 3) = TestColor then
if GetColor(P[a].x, P[a].y + 5) = TestColor then
if GetColor(P[a].x + 5, P[a].y) = TestColor then
if GetColor(P[a].x, P[a].y + 3) = TestColor then
if GetColor(P[a].x + 3, P[a].y) = TestColor then
if GetColor(P[a].x + 5, P[a].y + 3) = TestColor then
if GetColor(P[a].x + 3, P[a].y + 5) = TestColor then
begin
Result := TestColor;
Exit;
end;
end;
WriteLn('Could not find Varrock Road Color!');
Result := 0;
end;
// srl function, edited the WriteLn out
function FindStoneColor2: Integer;
var
GC, a, l, TestColor: integer;
var
P:array of Tpoint;
begin
GC := 2176863;
Flag;
FindColorsSpiralTolerance(MMCX, MMCY, P, GC, MMX1,MMY1,MMX2,MMY2, 60);
l:=GetArrayLength(P);
for a:= 0 to l-1 do
begin
TestColor := GetColor(P[a].x,P[a].y);
if (GetColor(P[a].x-1,P[a].y)=TestColor-461068) then
begin
Result := TestColor;
Exit;
end;
end;
//WriteLn('Could not find Stone Color!');
Result := 0;
end;
Function TheResponder: boolean;
var
I, II, Rand: Integer;
Text, Name: String;
begin
If Not GetLastChatText(Text) Then Exit;
For I := 0 To HowManyResponds - 1 Do
begin
For II := 0 To High(TheQuestion[I]) Do
begin
If (Pos(TheQuestion[I][II], Text) <> 0) then
begin
Name := GetBlackChatMessage;
If (Pos(Players[CurrentPlayer].nick, Name) <> 0) then break;
WriteLn('Respond:');
WriteLn('/ ' + Name + ' ' + Text);
Rand := Random(High(TheRespond[I]));
TypeSend(TheRespond[I][Rand]);
WriteLn('/ ' + Players[CurrentPlayer].Name + ': ' + TheRespond[I][Rand]);
Responds := Responds + 1;
ReportVars[2] := ReportVars[2] + 1;
Result := True;
exit;
end;
end;
end;
end;
Procedure Randoms;
begin
FindNormalRandoms;
if FindFight then
begin
MakeCompass('n');
mouse(630, 154, 5, 5, True);
fflag(0);
SleepAndMoveMouse(15000+random(5000));
Mouse(630, 15, 5, 5, True);
SleepAndMoveMouse(2000 + random(2000));
fflag(0);
end;
end;
Function NumberOfActive(WriteLin: boolean): Integer;
var
R: Integer;
begin
Result := 0;
for R := 0 To HowManyPlayers - 1 do
if (Players[R].active = True) then
Result := Result + 1;
If (Result = 0) Then WriteLn('No More Players Active.')
Else WriteLn('Still ' + IntToStr(Result) + ' players of the ' + IntToStr(howManyPlayers) + ' players are active.');
end;
Procedure WieldPickaxe;
var
rx, ry: Integer;
begin
Wielded := False;
If (Players[CurrentPlayer].Integers[4] < 1) Then
Players[CurrentPlayer].Integers[4] := GetSkillInfo('attack', False);
Gametab(4);
Wait(500 + random(500));
if FindDTM(PickaxeD, rx, ry, 525, 182, 745, 473) then
begin
case Players[CurrentPlayer].strings[0] of
'Rune': begin
If (Players[CurrentPlayer].Integers[4] > 39) then
begin
Mouse(rx, ry, 0, 0, True);
Wielded := True;
end;
end;
'Addy': begin
If (Players[CurrentPlayer].Integers[4] > 29) then
begin
Mouse(rx, ry, 0, 0, True);
Wielded := True;
end;
end;
'Mith': begin
If (Players[CurrentPlayer].Integers[4] > 19) then
begin
Mouse(rx, ry, 0, 0, True);
Wielded := True;
end;
end;
'Steel': begin
If (Players[CurrentPlayer].Integers[4] > 4) then
begin
Mouse(rx, ry, 0, 0, True);
Wielded := True;
end;
end;
'Iron': begin
Mouse(rx, ry, 0, 0, True);
Wielded := True;
end;
'Bronz': begin
Mouse(rx, ry, 0, 0, True);
Wielded := True;
end;
end;
If Wielded Then
WriteLn('Your strong enough to wield your pickaxe... Wielded.');
end;
end;
Function MasterRoadWalk(TheColor, StartRadial, EndRadial, Radius, Xmod, Ymod: Integer; FailWait: Boolean): Boolean; // BETA
Var
ResultTPA: TPointArray;
Begin
If RadialWalkEx(ResultTPA, MMCX, MMCY, TheColor, 0, StartRadial, EndRadial, Radius) Then
Begin
Mouse(ResultTPA[0].x, ResultTPA[0].y, Xmod, Ymod, True);
If FailWait Then
Begin
Wait(4000);
FFlag(20);
End Else
Begin
SleepAndMoveMouse(Random(2000));
Wait(2000 + Random(2000));
End;
Result := True;
End;
End;
Function GetPickAxe: Integer;
Var
MK: Integer;
Begin
Result := 0;
For MK := 1 To 6 Do
Begin
If FindDTM(PickaxeDTM[MK], x, y, 532, 183, 751, 485) Then
Begin
Result := MK;
Exit;
End;
End;
End;
Function SetupPick(PickaxeNumber: Integer): Boolean;
Begin
Case PickaxeNumber Of
0: Exit;
1: Begin
RockWaitTime := 4000;
Players[CurrentPlayer].Strings[0] := 'Rune';
End;
2: Begin
RockWaitTime := 5000;
Players[CurrentPlayer].Strings[0] := 'Addy';
End;
3: Begin
RockWaitTime := 6000;
Players[CurrentPlayer].Strings[0] := 'Mith';
End;
4: Begin
RockWaitTime := 7000;
Players[CurrentPlayer].Strings[0] := 'Steel';
End;
5: Begin
RockWaitTime := 8000;
Players[CurrentPlayer].Strings[0] := 'Iron';
End;
6: Begin
RockWaitTime := 8000;
Players[CurrentPlayer].Strings[0] := 'Bronz';
End;
End;
Result := True;
WriteLn(Players[CurrentPlayer].Strings[0] + ' pickaxe found in your iventory.');
End;
Procedure WhatPickaxeDoWeHave;
Begin
If Not LoggedIn Then Exit;
WriteLn('Checking your Pickaxe...');
GameTab(4);
If Not SetupPick(GetPickaxe) Then
Begin
GameTab(5);
If Not SetupPick(GetPickaxe) Then
Begin
WriteLn('You do not have a pickaxe! Plz get a pickaxe to mine iron.');
Players[CurrentPlayer].Loc := 'No Pickaxe!';
LogOut;
End Else Wielded := True;
End Else WieldPickaxe;
End;
Function GetInMine: boolean;
Var
RockCoords: Array Of TPoint;
CheckCol: Integer;
Begin
WriteLn('prolly found the mine, try entering now...');
FFlag(0);
CheckCol := FindStoneColor2;
If (CheckCol = 0) Then
Begin
WriteLn('lol not found the mine anymore :s but i wil try again');
If FindColorTolerance (x, y, 2176863, MMX1, MMY1, MMX2, MMY2, 1) Then
Begin
MiddleTPAEx(RockCoords, X, Y);
Mouse(x, y, 0, 0, True);
FFlag(0);
WriteLn('succesfully enterd the mine.');
Result := True;
Exit;
end;
WriteLn('i really could not find it sorry:P');
Exit;
End;
FindColorsSpiralTolerance(x, y, RockCoords, 2176863, MMX1, MMY1, MMX2, MMY2, 1);
MiddleTPAEx(RockCoords, X, Y);
Mouse(x, y, 0, 0, True);
FFlag(0);
WriteLn('succesfully enterd the mine.');
Result := True;
End;
Procedure ToThaMine;
Var
RicksRoadWalk: Integer;
begin
MakeCompass('N');
If Not LoggedIn Then Exit;
Players[CurrentPlayer].Loc := 'Moving To The Mine';
WriteLn('');
WriteLn('[To The Mine]');
WriteLn('');
WriteLn('Walking to the mine...');
MasterRoadWalk(FindVarrockRoadColor2, 133, 20, 65, 3, 3, True);
RadialRoadWalk(FindVarrockRoadColor2, 133, 60, 65, 3, 3);
Repeat
RicksRoadWalk := RicksRoadWalk + 1;
If Not LoggedIn Then
Begin
WriteLn('player logged out while walking to the bank...');
Players[CurrentPlayer].Loc := 'Logged Out To Mine';
exit;
End;
If Not RadialRoadWalk(FindVarrockRoadColor2, 127, 228, 55, 1, 1) Then Break;
If (RicksRoadWalk > 2) Then
If FindColorTolerance (x, y, FindStoneColor2, MMX1, MMY1, MMX2, MMY2, 1) Then
If GetInMine Then Exit;
Until(RicksRoadWalk > 20)
WriteLn('We did not found the mine, logging out player.');
Players[CurrentPlayer].Loc := 'Not Found Mine';
LogOut;
end;
Function FindTheBank: Boolean;
Begin
If Not LoggedIn Then Exit;
FFlag(0);
If FindDTM(bankers, x, y, MMX1, MMY1, MMX2, MMY2) Then
Begin
WriteLn('We have found the bankers DTM, entering bank...');
Mouse(x, y, 2, 2, True);
Result := True;
Wait(3000);
FFlag(0);
WriteLn('Welcome in the Varrock east bank.');
End;
End;
Procedure ToThaBank;
var
RRoadWalk: Integer;
begin
If Not LoggedIn Then Exit;
Players[CurrentPlayer].Loc := 'Moving To The Bank';
WriteLn('');
WriteLn('[To The Bank]');
WriteLn('');
RadialRoadWalk(FindVarrockRoadColor2, 5, 50, 70, 1, 1);
Randoms;
RadialRoadWalk(FindVarrockRoadColor2, 337, 385, 65, 1, 1);
Randoms;
repeat
If Not LoggedIn then
begin
WriteLn('Player logged out while walking to the bank.');
Players[CurrentPlayer].Loc := 'Logged Out To Bank';
Exit;
end;
RadialRoadWalk(FindVarrockRoadColor2, 240, 380, 65, 1, 1);
Randoms;
RRoadWalk := RRoadWalk + 1;
If (RRoadWalk > 2) Then
If FindDTM(bankers, x, y, 547, 6, 703, 163) Then
If FindTheBank Then Exit;
until (RRoadWalk > 20)
WriteLn('Omg, can not find the bank! logging out...');
Players[CurrentPlayer].Loc := 'Not Found The Bank';
LogOut;
end;
{Function FindIron(var xr, yr: Integer): boolean;
var
TolSpeed, mx, my, NumberOfLenght, MK: Integer;
IronCoords, RockCoords: Array Of TPoint;
DaPoint: TPoint;
begin
TolSpeed := GetColorToleranceSpeed;
ColorToleranceSpeed(2);
FindColorsSpiralTolerance(mx, my, IronCoords, 2832993, MSX1, MSY1, MSX2, MSY2, 6);
NumberOfLenght := High(IronCoords);
For MK := 0 To NumberOfLenght Do
begin
DaPoint := IronCoords[MK];
FindColorsTolerance(RockCoords, 2832734, DaPoint.X - 15, DaPoint.Y - 15, DaPoint.X + 15, DaPoint.Y + 15, 20);
MiddleTPAEx(RockCoords, X, Y);
FindColorsTolerance(RockCoords, 1394003, X - 15, Y - 15, X + 15, Y + 15, 25);
If(GetArrayLength(RockCoords)-1 > 5)Then
Begin
MiddleTPAEx(RockCoords, Xr, Yr);
MMouse(xr, yr, 0, 0);
If (GetColor(43, 9) = 14344978) Then
If not GasFound(mx, my) Then
Begin
Result := True;
Break;
End;
End;
End;
ColorToleranceSpeed(TolSpeed);
End;}
Function FindIron(var xr, yr: Integer): Boolean;
Var
RealIron, IronRock: Array Of TPoint;
CurPoint: TPoint;
TolSpeed, MK, xx, yy: Integer;
Begin
TolSpeed := GetColorToleranceSpeed;
ColorToleranceSpeed(2);
FindColorsSpiralTolerance(x, y, RealIron, 2832989, MSX1, MSY1, MSX2, MSY2, 6);
For MK := 0 To High(RealIron) Do
Begin
CurPoint := RealIron[MK];
FindColorsTolerance(IronRock, 1659234, CurPoint.X - 15, CurPoint.Y - 15, CurPoint.X + 15, CurPoint.Y + 15, 20);
If (High(IronRock) > 15) Then
Begin
MiddleTPAEx(IronRock, xx, yy);
MMouse(xx, yy, 0, 0);
If FindColorTolerance(x, y, 2832989, xx - 15, yy - 15, xx + 15, yy + 15, 6) Then
Begin
Wait(100 + Random(100));
If (Pos('ine', rs_getuptext) <> 0) Then
Begin
xr := xx; yr := yy;
Result := True;
Exit;
End;
End;
End;
End;
ColorToleranceSpeed(TolSpeed);
End;
Function CheckPickaxe: Boolean;
begin
If Wielded Then
GameTab(5) Else GameTab(4);
If FindDTM(PickaxeStick, x, y, 532, 183, 751, 485) Then
Begin
WriteLn('Noes! your pickhead flyd off!');
Wielding := Wielded;
If Not FindPick Then
Begin
Result := True;
WriteLn('We lost your pickaxe head... moving back to bank...');
GameTab(5);
Mouse(584, 302, 10, 10, True);
Wielded := False;
Exit;
End;
End;
If FindDTM(BrokenPickaxe, x, y, 532, 183, 751, 485) Then
Begin
Result := True;
WriteLn('Sorry, but ' + Players[CurrentPlayer].Nick + ' broke your pickaxe, not MasterKills foult ;)');
WriteLn('Moving back to the bank...');
GameTab(5);
Mouse(584, 302, 10, 10, True);
Wielded := False;
Exit;
End;
If Not FindDTM(PickaxeD, x, y, 532, 183, 751, 485) Then
Begin
Result := True;
WriteLn('We cant find your pickaxe at all! Back to bank...');
Wielded := False;
End;
End;
Procedure MineThaLoad;
Var
NotF, errF, RWTime: Integer;
BlackText: String;
begin
If Not LoggedIn Then Exit;
Players[CurrentPlayer].Loc := 'Mining Full Load';
WriteLn('');
WriteLn('[MineThaLoad]');
WriteLn('');
FindPickHeadColor;
SetRun(true);
WriteLn('Run activated.');
WriteLn('Starting mining...');
Repeat
If Not LoggedIn Then Exit;
If FindIron(x, y) Then
begin
Mouse(x, y, 0, 0, True);
MarkTime(RWTime);
NotF := 0;
TheResponder;
Wait(1500);
If FlagPresent Then Wait(1000);
Repeat
BlackText := GetBlackChatMessage;
if (getcolor(486, 384) = 0) then
if FindNpcChatText('ickaxe', Nothing) then
If CheckPickaxe Then Exit;
If GasFound(x, y) then
begin
Mouse(633, 83, 8, 8, True);
Wait(25000);
end;
Randoms;
If (Pos('anage', BlackText) <> 0) or (Pos('vailable', BlackText) <> 0) then break;
SleepAndMoveMouse(200 + random(1000));
Until(TimeFromMark(RWTime) > RockWaitTime)
end else
begin
Wait(300);
Randoms;
NotF := NotF + 1;
If (NotF > 14) Then
Begin
errF := errF + 1;
If (errF > 4) Then
Begin
WriteLn('huh the script can not find any iron, while were in the mine...');
Exit;
End;
WriteLn('Not found any iron, try to find the mine again...');
If Not GetInMine Then
Begin
WriteLn('O dear, we got lost while mining... How wierd is that?');
Players[CurrentPlayer].Loc := 'Lost While Mining';
LogOut;
Exit;
End;
WriteLn('Resume mining...');
NotF := 0;
End;
End;
Until InvFull
WriteLn('... until where full.');
End;
var
frmDesign : TForm;
Label1 : TLabel;
Label2 : TLabel;
StartButton : TButton;
OkiClick: Boolean;
Upzor, onezor, twozor, buttumtext: string;
procedure StartClick(sender: TObject);
begin
frmDesign.ModalResult:= mrOk;
OkiClick := True;
end;
procedure InitForm;
begin
frmDesign := CreateForm;
frmDesign.Left := 300;
frmDesign.Top := 300;
frmDesign.Width := 500;
frmDesign.Height := 100;
frmDesign.Caption := upzor;
frmDesign.Color := clBlack;
frmDesign.Font.Color := clWindowText;
frmDesign.Font.Height := -11;
frmDesign.Font.Name := upzor;
frmDesign.Font.Style := [];
frmDesign.Visible := False;
frmDesign.PixelsPerInch := 96;
Label2 := TLabel.Create(frmDesign);
Label2.Font.Color := clWhite
Label2.Parent := frmDesign;
Label2.Left := 5;
Label2.Top := 5;
Label2.Width := 46;
Label2.Height := 13;
Label2.Font.Size := 10;
Label2.Caption := onezor;
Label1 := TLabel.Create(frmDesign);
Label1.Font.Color := clWhite
Label1.Parent := frmDesign;
Label1.Left := 5;
Label1.Top := 25;
Label1.Width := 46;
Label1.Height := 13;
Label1.Font.Size := 10;
Label1.Caption := twozor;
StartButton := TButton.Create(frmDesign);
StartButton.Parent := frmDesign;
StartButton.OnClick := @StartClick;
StartButton.Left := 5;
StartButton.Top := 45;
StartButton.Width := 80;
StartButton.Height := 20;
StartButton.Caption := buttumtext;
StartButton.TabOrder := 10;
end;
procedure SafeInitForm;
var
v: TVariantArray;
begin
setarraylength(V, 0);
ThreadSafeCall('InitForm', v);
end;
procedure ShowFormModal;
begin
frmDesign.ShowModal;
end;
procedure SafeShowFormModal;
var
v: TVariantArray;
begin
setarraylength(V, 0);
ThreadSafeCall('ShowFormModal', v);
end;
Procedure ErrorForm(Uptextt, msgone, msgtwo, buttontext: String; Terminate: Boolean);
begin
upzor := uptextt;
onezor := msgone;
twozor := msgtwo;
OkiClick := False;
buttumtext := buttontext;
repeat
SafeInitForm;
SafeShowFormModal;
If OkiClick Then Break;
PlaySound('C:\WINDOWS\Media\Windows XP Shutdown.wav');
Wait(1000);
Until OkiClick
If Terminate then
begin
WriteLn('');
Terminatescript;
end;
end;
Function CurrentStatus: String;
var
MK, PlayerCount: Integer;
begin
for MK := 0 To HowManyPlayers - 1 do
if (Players[MK].active = True) then
PlayerCount := PlayerCount + 1;
IF (PlayerCount = 0) then
Result := 'Script succesfully ended. All players False.' else
Result := 'there still where ' + IntToStr(PlayerCount) + ' of the ' + IntToStr(HowManyPlayers) + ' players active.';
end;
Procedure SafeReport;
var
SaveFileCreate: TStringList;
MK: Integer;
begin
SaveFileCreate := TStringList.Create;
SaveFileCreate.Add('Varrock east mine and banker version 13.0');
SaveFileCreate.Add(' created by MasterKill');
SaveFileCreate.Add('');
SaveFileCreate.Add('Last status found in script:');
SaveFileCreate.Add(' ' + CurrentStatus);
SaveFileCreate.Add('');
SaveFileCreate.Add('Script Report:');
SaveFileCreate.Add(' Iron Mined : ' + IntToStr(IronMined));
SaveFileCreate.Add(' Times Banked : ' + IntToStr(Banked));
SaveFileCreate.Add(' Responds Made : ' + IntToStr(Responds));
SaveFileCreate.Add('');
SaveFileCreate.Add('Player Report:');
For MK := 0 To HowManyPlayers - 1 Do
begin
SaveFileCreate.Add(' ' + Players[MK].Name);
SaveFileCreate.Add(' Iron Mined : ' + IntToStr(Players[MK].integers[2]));
SaveFileCreate.Add(' Location : ' + Players[MK].Loc);
SaveFileCreate.Add(' Mining level : ' + IntToStr(Players[MK].integers[1]));
end;
If Not SaveToFile(SaveFileCreate, SafeReportFileName) Then
WriteLn('Could not save your report.');
end;
Procedure WhileReport;
Var
MK: Integer;
begin
WriteLn('');
WriteLn('[Time Running: ' + TimeRunning + ']');
WriteLn('[Iron Mined: ' + IntToStr(IronMined) + ']');
WriteLn('[Times Banked: ' + IntToStr(Banks) + ']');
WriteLn('[Respond[s] made: ' + IntToStr(Responds) + ']');
WriteLn('[Mining ' + FloatToStr(IronMined div TimeFromMark(ScriptRunTime) * 3600000.0) + ' Iron a hour]');
For MK := 0 To HowManyPlayers - 1 Do
WriteLn(Players[MK].Name + ' = [' + IntToSTr(players[MK].integers[2]) + ' Iron Mined] [active? ' + BoolToStr(Players[MK].Active) + '] [Location: ' + Players[MK].Loc + ']');
SrlRandomsReport;
SafeReport;
WriteLn('Progress report saved to: ' + SafeReportFileName);
end;
Function FindThaBankTPA: boolean;
Var
BankCoords, BoothCoords: Array Of TPoint;
MK, mx, my, TolSpeed, NumberOfLenght: Integer;
DaPoint: TPoint;
begin
TolSpeed := GetColorToleranceSpeed;
ColorToleranceSpeed(2);
FindColorsSpiralTolerance(mx, my, BankCoords, 1593183, MSX1, MSY1, MSX2, MSY2, 6);
NumberOfLenght := High(BankCoords);
For MK := 1 To NumberOfLenght Do
begin
DaPoint := BankCoords[MK];
FindColorsTolerance(BoothCoords, 1593183, DaPoint.X - 15, DaPoint.Y - 15, DaPoint.X + 15, DaPoint.Y + 15, 11);
If(GetArrayLength(BoothCoords)-1 > 30)Then
Begin
MiddleTPAEx(BoothCoords, x, y);
Mouse(x, y, 0, 0, False);
Wait(100 + Random(50));
If ChooseOption('uick') Then
Begin
Result := True;
Break;
End Else WriteLn('No bank booth here.');
End;
End;
ColorToleranceSpeed(TolSpeed);
End;
Function PickaxeFound: Boolean;
Begin
If Wielded Then Result := True Else
Result := FindDTM(PickaxeD, x, y, MIX1, MIY1, MIX2, MIY2);
End;
Function GetNewPickFromBank: Boolean;
Begin
If (Players[CurrentPlayer].Integers[1] > 40) then
begin
if FindDTM(PickaxeDTM[1], x, y, msx1, msy1, msx2, msy2) then
begin
Result := True;
Mouse(x, y, 0, 0, True);
Exit;
end;
end;
If (Players[CurrentPlayer].Integers[1] > 30) then
begin
if FindDTM(PickaxeDTM[2], x, y, msx1, msy1, msx2, msy2) then
begin
Result := True;
Mouse(x, y, 0, 0, True);
Exit;
end;
end;
If (Players[CurrentPlayer].Integers[1] > 20) then
begin
if FindDTM(PickaxeDTM[3], x, y, msx1, msy1, msx2, msy2) then
begin
Result := True;
Mouse(x, y, 0, 0, True);
Exit;
end;
end;
If (Players[CurrentPlayer].Integers[1] > 5) then
begin
if FindDTM(PickaxeDTM[4], x, y, msx1, msy1, msx2, msy2) then
begin
Result := True;
Mouse(x, y, 0, 0, True);
Exit;
end;
end;
if FindDTM(PickaxeDTM[5], x, y, msx1, msy1, msx2, msy2) then
begin
Result := True;
Mouse(x, y, 0, 0, True);
Exit;
end;
if FindDTM(PickaxeDTM[6], x, y, msx1, msy1, msx2, msy2) then
begin
Result := True;
Mouse(x, y, 0, 0, True);
Exit;
end;
End;
Procedure SetupPlayer;
begin
If Not LoggedIn Then Exit;
WriteLn('');
WriteLn('[' + Players[CurrentPlayer].name + ' setup]');
WriteLn('');
SetAngle(True);
MakeCompass('N');
GameTab(2);
Players[CurrentPlayer].integers[1] := GetSkillInfo('mining', False);
WriteLn('Players mining level is ' + IntToStr(Players[CurrentPlayer].integers[1]));
If (Players[CurrentPlayer].Integers[3] < 1) Then
Players[CurrentPlayer].integers[3] := GetCombatLevel;
WriteLn('Players combat level is ' + IntToStr(Players[CurrentPlayer].Integers[3]));
WhatPickaxeDoWeHave;
SetupResponds;
end;
Procedure BankThaLoad;
Var
IronLoad, NotF: integer;
begin
If Not LoggedIn Then Exit;
WriteLn('');
WriteLn('[Bank The Load]');
WriteLn('');
Players[CurrentPlayer].Loc := 'In The Bank';
IronLoad := CountItemsDtm('inv', IronOre);
Repeat
If Not LoggedIn Then
begin
WriteLn('Player logged out while banking?!');
Players[CurrentPlayer].Loc := 'Logged Out While Banking';
Exit;
end;
If FindThaBankTPA Then
begin
WriteLn('Opening the bank...');
FFlag(0);
players[CurrentPlayer].integers[2] := players[CurrentPlayer].integers[2] + IronLoad;
IronMined := IronMined + IronLoad;
WriteLn('Mined ' + IntToStr(IronLoad) + ' Iron, wich makes the grand total ' + IntToStr(IronMined) + '.');
ReportVars[0] := ReportVars[0] + 1;
ReportVars[1] := ReportVars[1] + IronLoad;
Wait(1000 + Random(1000));
If FindDTM(BrokenPickaxe, x, y, MIX1, MIY1, MIX2, MIY2)
Or FindDTM(pickaxestick, x, y, MIX1, MIY1, MIX2, MIY2)
Or Not PickaxeFound then
Begin
WriteLn('Your pickaxe is dead, looking for a new one...');
Deposit(1, 28, True);
If GetNewPickFromBank Then
Begin
WriteLn('We got a new pickaxe from your bank, lukky bastard.');
Mouse(485, 41, 5, 5, True);
WhatPickaxeDoWeHave;
End Else
Begin
WriteLn('This player has runned out of pickaxes... WHEHE!');
Players[CurrentPlayer].Loc := 'Out Of PickAxes';
Mouse(485, 41, 5, 5, True);
LogOut;
Exit;
End;
End Else
Begin
WriteLn('Banking all stuff except for your pickaxe.');
If Wielded Then Deposit(1, 28, True) else Deposit(2, 28, True);
Mouse(485, 41, 5, 5, True);
End;
SetAngle(true);
Banked := Banked + 1;
WriteLn('banking succesfully completed.');
Wait(100 + Random(50));
MakeCompass('N');
Exit;
end else
begin
FFlag(0);
If FindDTM(bankers, x, y, 547, 6, 703, 163) Then
Begin
Mouse(x, y, 0, 0, True);
SleepAndMoveMouse(500 + Random(1000));
FFlag(0);
End Else
Begin
NotF := NotF + 1;
SleepAndMoveMouse(2000 + Random(1000));
If (NotF > 1) Then
Begin
WriteLn('We can not find the bank anymore. Player logout...');
Players[CurrentPlayer].Loc := 'Lost Around Bank';
LogOut;
Exit;
End;
End;
end;
Until False
end;
Function GetSafeReportFilePath: String;
Var
Hour, Mins, Sec, MSec, Year, Month, Day: Word;
M: String;
Begin
DecodeDate(Date, Year, Month, Day);
DecodeTime(Now, Hour, Mins, Sec, MSec);
case Month of
1: M := 'Jan-';
2: M := 'Feb-';
3: M := 'Mar-';
4: M := 'Apr-';
5: M := 'May-';
6: M := 'Jun-';
7: M := 'Jul-';
8: M := 'Aug-';
9: M := 'Sep-';
10: M := 'Oct-';
11: M := 'Nov-';
12: M := 'Dec-';
end;
Result := AppPath + 'MasterKill_Progress_Reports\IronMiner__' + IntToStr(Day) + '-' + M + IntToStr(Year) + '__' + Padz(IntToStr(Hour), 2) + '-' + Padz(IntToStr(Mins), 2) + '-' + Padz(IntToStr(Sec), 2) + '.txt';
End;
procedure StartUp;
begin
ClearDeBug;
WriteLn('MasterKill prezents: ');
WriteLn(' ___ __ ');
WriteLn('| |_______ ____ ____ _____ |__| ____ _____ _______ ©');
WriteLn('| |\_ __ \ / \ / \ / \ | | / \ / __ \\_ __ \ ');
WriteLn('| | | | \/( () )| | \ | \| || | \\ ___/ | | \/ ');
WriteLn('|___| |__| \____/ |___| / |__|_| /|__||___| / \___ \ |__| ');
WriteLn(' \/ \/ \/ \/ ');
WriteLn(' and banker! V13');
Status('MasterKill productions! ©');
disguise('MasterKill ©');
Wait(3000);
SafeReportFileName := GetSafeReportFilePath;
for I := 0 to getarraylength(players)-1 do
begin
If (Players[I].Active = True) then
Players[I].Loc := 'In The Bank' else
Players[I].Loc := 'Not In Use';
SetArrayLength(Players[I].integers, 5);
SetArrayLength(Players[I].Strings, 1);
end;
end;
procedure HyperMainLoop;
begin
Repeat
ToThaMine;
MineThaLoad;
ToThaBank;
BankThaLoad;
WhileReport;
Load := Load + 1;
Until (Not LoggedIn) Or (Load - 1 > Players[CurrentPlayer].Integers[0])
end;
Procedure LogInFalseTrue;
begin
If Not LoggedIn then Players[CurrentPlayer].active := False;
If (NumberOfActive(False) = 0) then exit;
WriteLn('');
WriteLn('[Player Done]');
WriteLn('');
NextPlayer(LoggedIn);
Load := 0;
SetupPlayer;
end;
begin
//Setup
SetupSRL;
If Not (SRLVersionNumber = 15) Then ErrorForm('CAN NOT RUN', 'to run this script you need scar 3.15 and srl reversion 15', 'plz run the script again when you go those', 'OK =(', True);
SetupDTM;
SetupPlayers;
//Startup, make ready
ScriptID := '275';
ErrorForm('Varrock East Miner V13 - By MasterKill', 'Welcome to MasterKills Varrock east mine and banker V13.0', 'Start all your players in the Varrock east bank', 'START', False);
WriteLn('Plz allways allow popups'); If (SRLID = '') or (SRLPASSWORD = '') Then ErrorForm('[RUNETIME ERROR]', 'You need a srl ID and Pass to run this script! (line 51 and 52)', 'Plz get one at www.stats.srl-forums.com and hit register.', 'ok =(', True);
SrlRandomsReport;
StartUp;
WriteLn('Loading RuneScape.SMART ...');
SmartSetupEx(world, False, True);
SetTargetDC(SmartGetDC);
while not(SmartReady) do Wait(100);
ReplaceDebugLine(8, 'Loading RuneScape ...');
Wait(10000);
//Script play
LoginPlayer;
MarkTime(ScriptRunTime);
SetupPlayer;
Repeat
HyperMainLoop;
LogInFalseTrue;
Until(NumberOfActive(False) = 0)
ClearDeBug;
WhileReport;
WriteLn('');
ErrorForm('Script Ended', 'Thank for using MasterKills Iron miner!', 'Reset your players and run it again :p', 'Done', False);
end.
nielskool
04-26-2008, 08:45 PM
question to the maker of this script: may i help you with this script?
or just put some extra things in it such as:
start at mining and bank
and try to help him getting less lost
srry for my bad english:P
xminimanx
04-26-2008, 08:53 PM
This Script is really starting to piss me off... to like absolutely no end. Heres the thing, everything works now, except on the trip to the mine it enters it but cant find the iron rocks. Every single time I try it this happens. I have to manully (sp) put my char there and let it go. I would like to be able to have this script work properly.. I need Suggestions! Im pulling my hair out here!
xminimanx
04-26-2008, 08:57 PM
i tryed to fix the mine finding... for me it works hope for you guys too:P
Program NewIronMinerByMasterKill;
{.include SRL/SRL/Misc/Smart.scar}
{.include srl/srl.scar}
{.include srl/srl/skill/mining.scar}
var
World, HowManyResponds: Integer;
TheQuestion, TheRespond: array of array of String;
{/----------------------------------------------------------------------------//
Welcome to the varrock east mine and banker!
This script is created by MasterKill from SRL-Forums
SCAR : 3.15
SRL REV : 15
SCRIPT VERSION : 13.0
DO NOT COPY THIS SCRIPT AND CLAIM IT AS YOUR OWN.
If you want to use some procedures, it's ok, but CREDIT MASTERKILL.
//----------------------------------------------------------------------------//
Start your players in the varrock east bank. Some stuff this script is including:
* Fast Auto Responder
* Perfect Bank And Mine Finding
* Anti Randoms, Anti Ban
* Awesome Reports
* Very Fast
* TPoint Array Object Finding (for bank, iron and mine).
* Pick Related:
- Get New Pick From Bank When No Pick
- Bank Pickaxe If Broken
- Attamps to find the pickhead if it flies of
//----------------------------------------------------------------------------//
Start your players in the Varrock east bank with a pickaxe in first slot OR
wielded. Make sure the mining level is > 14. Be smart and add some responds
in the responds setup. plz setup the script:
//----------------------------------------------------------------------------/}
{Script Setup!}
//----------------------------------------------------------------------------//
Procedure SetupPlayers;
begin
HowManyPlayers := 2; // NO MAX <-- SETUP CORRECT
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0; // Start Player? <-- SETUP CORRECT
World := 51; // What world to macro in? be smart and chage this!
SRLid := '5090'; // to run this script you need an srl ID and PASS
SRLPassword := 'plietke'; // plz get those at "www.stats.srl-forums.com" and hit register
Players[0].Name := 'furbi10'; // UserName
Players[0].Pass := 'plietke'; // Password
Players[0].Nick := 'urbi'; // 3/4 String of Name (example: if accname is 'macroman' then set .nick at 'acro')
Players[0].Active := True; // Use this account? True / False
Players[0].integers[0] := 3; // loads before: logout / nextplayer
Players[1].Name := '';
Players[1].Pass := '';
Players[1].Nick := '';
Players[1].Active := False;
Players[1].integers[0] := 3;
MouseSpeed := 12; // Mouse speed
end;
Procedure SetupResponds; // ADD RESPONDS FOR BETTER ANTI BAN !
begin
HowManyResponds := 3; {<-- SETUP CORRECT !!}
SetArrayLength(TheQuestion, HowManyResponds); SetArrayLength(TheRespond, HowManyResponds);
TheQuestion[0] := ['mining', 'mine'];
TheRespond[0] := [IntToStr(Players[CurrentPlayer].Integers[1])]; // your players mining level
TheQuestion[1] := ['respond'];
TheRespond[1] := ['what to say?', 'i dont have anything to say', 'no im bussy'];
TheQuestion[2] := [Players[CurrentPlayer].nick]; // your players nickname
TheRespond[2] := ['no', 'get lost', 'im bussy', 'go away', 'just let me mine okeey?'];
end;
//----------------------------------------------------------------------------//
{End Script Setup!}
//----------------------------------------------------------------------------//
//----------------------------------------------------------------------------//
{Script Code! don't touch all below}
//----------------------------------------------------------------------------//
var
x, y, I, Load, RockWaitTime, Responds, bankers, IronMined, IronOre: Integer;
PickaxeStick, BrokenPickaxe, PickaxeD, Banked, ScriptRunTime, warn: Integer;
Wielded: Boolean;
SafeReportFileName: String;
PickaxeDTM: Array [1..6] Of Integer;
Procedure SetupDTM;
begin
Bankers := DTMFromString('78DA633CC3CCC070890105FCFFFF9FE13F9 06' +
'684B0FF331E02AAB905916383AAF9F38789810BAA060418AF 01D5' +
'DC26A0E614617300197B14BA');
IronOre := DTMFromString('78DA6314616060106640038C48249066071 2A' +
'204D408000945026AE481840C0135AA40828F801A2920C141 400D' +
'C85FECF8D50000ACCF0135');
PickaxeStick := DTMFromString('78DA6314666060906140038C48249016011 24' +
'204D44801095E026A40F2CA04D408000929026A0481842201 35E2' +
'404214BF1A00B23A014A');
BrokenPickaxe := DTMFromString('78DA6334676660A8656440058C482490760 3A' +
'A2926A0C61BA8A688801A3BA09A4C026A8C806A728950D34A 408D' +
'13504D3E7E3500C8FC050A');
PickaxeDTM[1] := DTMFromString('78DA639CC0CCC0708B91011530229140BA1 3A' + //rune//
'8E60301350B816AEE1350330DA8E60A01350B30CD71894A61 1041' +
'52030015D70885');
PickaxeDTM[2] := DTMFromString('78DA63DCC5CCC0708B91011530C2C9FF40C 0B' + //addy//
'819A8E6036E3560FA3450CD7D026A0E00D55C21A0E614A639 4E41' +
'4E0CBC486A00B2A90D20');
PickaxeDTM[3] := DTMFromString('78DA637CC2CCC0708B91011530229140FA2 E5' + //mith//
'0CD07026ABE02D5DC27A0E61550CD15026ABE609AE3E010C7 2082' +
'A40600C3490A05');
PickaxeDTM[4] := DTMFromString('78DA63E4636160B8C5C8800A18914820CD0 E5' + //steel//
'4F381801A79A09AFB04D48800D55C21A0460ED39C8A820206 1124' +
'35000D5E0656');
PickaxeDTM[5] := DTMFromString('78DA639CC0CCC0F08F91011530229140BA1 3A' + //iron//
'8468409BF9A854035CC04D44C03AAF941C0AE0598E604F9FA 3288' +
'20A901004D1D0626');
PickaxeDTM[6] := DTMFromString('78DA63DCC5CCC0F08F910115302291407A3 35' + //bronz//
'08D08137E35A7816A9809A8390054F383805DA730CDF1B551 6110' +
'41520300A15606B9');
PickaxeD := DTMFromString('78DA6314606060E06540038C48249096051 25' +
'C04D470020976026A40662810502302245808A801B9590CBF 1A00' +
'612000CF');
end;
// srl function, edited the WriteLn out
function FindVarrockRoadColor2: Integer;
var
GC, a, l, TestColor, Red, Green, Blue : integer;
var
P:array of Tpoint;
begin
GC := 7304312;
Flag;
FindColorsSpiralTolerance(x, y, P, GC, MMX1, MMY1, MMX2, MMY2, 60);
l:=GetArrayLength(P);
for a:= 0 to l-1 do
begin
TestColor := GetColor(P[a].x, P[a].y);
red := (TestColor mod 256);
green := ((TestColor / 256) mod 256);
blue := ((TestColor / 256) / 256);
if Red - Blue <= 12 then if Red - Blue >= 8 then
if Red - Green <= 6 then if Red - Green >= -1 then
if Green - Blue <= 10 then if Green - Blue >= 4 then
if GetColor(P[a].x + 5, P[a].y + 5) = TestColor then
if GetColor(P[a].x + 3, P[a].y + 3) = TestColor then
if GetColor(P[a].x, P[a].y + 5) = TestColor then
if GetColor(P[a].x + 5, P[a].y) = TestColor then
if GetColor(P[a].x, P[a].y + 3) = TestColor then
if GetColor(P[a].x + 3, P[a].y) = TestColor then
if GetColor(P[a].x + 5, P[a].y + 3) = TestColor then
if GetColor(P[a].x + 3, P[a].y + 5) = TestColor then
begin
Result := TestColor;
Exit;
end;
end;
WriteLn('Could not find Varrock Road Color!');
Result := 0;
end;
// srl function, edited the WriteLn out
function FindStoneColor2: Integer;
var
GC, a, l, TestColor: integer;
var
P:array of Tpoint;
begin
GC := 2176863;
Flag;
FindColorsSpiralTolerance(MMCX, MMCY, P, GC, MMX1,MMY1,MMX2,MMY2, 60);
l:=GetArrayLength(P);
for a:= 0 to l-1 do
begin
TestColor := GetColor(P[a].x,P[a].y);
if (GetColor(P[a].x-1,P[a].y)=TestColor-461068) then
begin
Result := TestColor;
Exit;
end;
end;
//WriteLn('Could not find Stone Color!');
Result := 0;
end;
Function TheResponder: boolean;
var
I, II, Rand: Integer;
Text, Name: String;
begin
If Not GetLastChatText(Text) Then Exit;
For I := 0 To HowManyResponds - 1 Do
begin
For II := 0 To High(TheQuestion[I]) Do
begin
If (Pos(TheQuestion[I][II], Text) <> 0) then
begin
Name := GetBlackChatMessage;
If (Pos(Players[CurrentPlayer].nick, Name) <> 0) then break;
WriteLn('Respond:');
WriteLn('/ ' + Name + ' ' + Text);
Rand := Random(High(TheRespond[I]));
TypeSend(TheRespond[I][Rand]);
WriteLn('/ ' + Players[CurrentPlayer].Name + ': ' + TheRespond[I][Rand]);
Responds := Responds + 1;
ReportVars[2] := ReportVars[2] + 1;
Result := True;
exit;
end;
end;
end;
end;
Procedure Randoms;
begin
FindNormalRandoms;
if FindFight then
begin
MakeCompass('n');
mouse(630, 154, 5, 5, True);
fflag(0);
SleepAndMoveMouse(15000+random(5000));
Mouse(630, 15, 5, 5, True);
SleepAndMoveMouse(2000 + random(2000));
fflag(0);
end;
end;
Function NumberOfActive(WriteLin: boolean): Integer;
var
R: Integer;
begin
Result := 0;
for R := 0 To HowManyPlayers - 1 do
if (Players[R].active = True) then
Result := Result + 1;
If (Result = 0) Then WriteLn('No More Players Active.')
Else WriteLn('Still ' + IntToStr(Result) + ' players of the ' + IntToStr(howManyPlayers) + ' players are active.');
end;
Procedure WieldPickaxe;
var
rx, ry: Integer;
begin
Wielded := False;
If (Players[CurrentPlayer].Integers[4] < 1) Then
Players[CurrentPlayer].Integers[4] := GetSkillInfo('attack', False);
Gametab(4);
Wait(500 + random(500));
if FindDTM(PickaxeD, rx, ry, 525, 182, 745, 473) then
begin
case Players[CurrentPlayer].strings[0] of
'Rune': begin
If (Players[CurrentPlayer].Integers[4] > 39) then
begin
Mouse(rx, ry, 0, 0, True);
Wielded := True;
end;
end;
'Addy': begin
If (Players[CurrentPlayer].Integers[4] > 29) then
begin
Mouse(rx, ry, 0, 0, True);
Wielded := True;
end;
end;
'Mith': begin
If (Players[CurrentPlayer].Integers[4] > 19) then
begin
Mouse(rx, ry, 0, 0, True);
Wielded := True;
end;
end;
'Steel': begin
If (Players[CurrentPlayer].Integers[4] > 4) then
begin
Mouse(rx, ry, 0, 0, True);
Wielded := True;
end;
end;
'Iron': begin
Mouse(rx, ry, 0, 0, True);
Wielded := True;
end;
'Bronz': begin
Mouse(rx, ry, 0, 0, True);
Wielded := True;
end;
end;
If Wielded Then
WriteLn('Your strong enough to wield your pickaxe... Wielded.');
end;
end;
Function MasterRoadWalk(TheColor, StartRadial, EndRadial, Radius, Xmod, Ymod: Integer; FailWait: Boolean): Boolean; // BETA
Var
ResultTPA: TPointArray;
Begin
If RadialWalkEx(ResultTPA, MMCX, MMCY, TheColor, 0, StartRadial, EndRadial, Radius) Then
Begin
Mouse(ResultTPA[0].x, ResultTPA[0].y, Xmod, Ymod, True);
If FailWait Then
Begin
Wait(4000);
FFlag(20);
End Else
Begin
SleepAndMoveMouse(Random(2000));
Wait(2000 + Random(2000));
End;
Result := True;
End;
End;
Function GetPickAxe: Integer;
Var
MK: Integer;
Begin
Result := 0;
For MK := 1 To 6 Do
Begin
If FindDTM(PickaxeDTM[MK], x, y, 532, 183, 751, 485) Then
Begin
Result := MK;
Exit;
End;
End;
End;
Function SetupPick(PickaxeNumber: Integer): Boolean;
Begin
Case PickaxeNumber Of
0: Exit;
1: Begin
RockWaitTime := 4000;
Players[CurrentPlayer].Strings[0] := 'Rune';
End;
2: Begin
RockWaitTime := 5000;
Players[CurrentPlayer].Strings[0] := 'Addy';
End;
3: Begin
RockWaitTime := 6000;
Players[CurrentPlayer].Strings[0] := 'Mith';
End;
4: Begin
RockWaitTime := 7000;
Players[CurrentPlayer].Strings[0] := 'Steel';
End;
5: Begin
RockWaitTime := 8000;
Players[CurrentPlayer].Strings[0] := 'Iron';
End;
6: Begin
RockWaitTime := 8000;
Players[CurrentPlayer].Strings[0] := 'Bronz';
End;
End;
Result := True;
WriteLn(Players[CurrentPlayer].Strings[0] + ' pickaxe found in your iventory.');
End;
Procedure WhatPickaxeDoWeHave;
Begin
If Not LoggedIn Then Exit;
WriteLn('Checking your Pickaxe...');
GameTab(4);
If Not SetupPick(GetPickaxe) Then
Begin
GameTab(5);
If Not SetupPick(GetPickaxe) Then
Begin
WriteLn('You do not have a pickaxe! Plz get a pickaxe to mine iron.');
Players[CurrentPlayer].Loc := 'No Pickaxe!';
LogOut;
End Else Wielded := True;
End Else WieldPickaxe;
End;
Function GetInMine: boolean;
Var
RockCoords: Array Of TPoint;
CheckCol: Integer;
Begin
WriteLn('prolly found the mine, try entering now...');
FFlag(0);
CheckCol := FindStoneColor2;
If (CheckCol = 0) Then
Begin
WriteLn('lol not found the mine anymore :s but i wil try again');
If FindColorTolerance (x, y, 2176863, MMX1, MMY1, MMX2, MMY2, 1) Then
Begin
MiddleTPAEx(RockCoords, X, Y);
Mouse(x, y, 0, 0, True);
FFlag(0);
WriteLn('succesfully enterd the mine.');
Result := True;
Exit;
end;
WriteLn('i really could not find it sorry:P');
Exit;
End;
FindColorsSpiralTolerance(x, y, RockCoords, 2176863, MMX1, MMY1, MMX2, MMY2, 1);
MiddleTPAEx(RockCoords, X, Y);
Mouse(x, y, 0, 0, True);
FFlag(0);
WriteLn('succesfully enterd the mine.');
Result := True;
End;
Procedure ToThaMine;
Var
RicksRoadWalk: Integer;
begin
MakeCompass('N');
If Not LoggedIn Then Exit;
Players[CurrentPlayer].Loc := 'Moving To The Mine';
WriteLn('');
WriteLn('[To The Mine]');
WriteLn('');
WriteLn('Walking to the mine...');
MasterRoadWalk(FindVarrockRoadColor2, 133, 20, 65, 3, 3, True);
RadialRoadWalk(FindVarrockRoadColor2, 133, 60, 65, 3, 3);
Repeat
RicksRoadWalk := RicksRoadWalk + 1;
If Not LoggedIn Then
Begin
WriteLn('player logged out while walking to the bank...');
Players[CurrentPlayer].Loc := 'Logged Out To Mine';
exit;
End;
If Not RadialRoadWalk(FindVarrockRoadColor2, 127, 228, 55, 1, 1) Then Break;
If (RicksRoadWalk > 2) Then
If FindColorTolerance (x, y, FindStoneColor2, MMX1, MMY1, MMX2, MMY2, 1) Then
If GetInMine Then Exit;
Until(RicksRoadWalk > 20)
WriteLn('We did not found the mine, logging out player.');
Players[CurrentPlayer].Loc := 'Not Found Mine';
LogOut;
end;
Function FindTheBank: Boolean;
Begin
If Not LoggedIn Then Exit;
FFlag(0);
If FindDTM(bankers, x, y, MMX1, MMY1, MMX2, MMY2) Then
Begin
WriteLn('We have found the bankers DTM, entering bank...');
Mouse(x, y, 2, 2, True);
Result := True;
Wait(3000);
FFlag(0);
WriteLn('Welcome in the Varrock east bank.');
End;
End;
Procedure ToThaBank;
var
RRoadWalk: Integer;
begin
If Not LoggedIn Then Exit;
Players[CurrentPlayer].Loc := 'Moving To The Bank';
WriteLn('');
WriteLn('[To The Bank]');
WriteLn('');
RadialRoadWalk(FindVarrockRoadColor2, 5, 50, 70, 1, 1);
Randoms;
RadialRoadWalk(FindVarrockRoadColor2, 337, 385, 65, 1, 1);
Randoms;
repeat
If Not LoggedIn then
begin
WriteLn('Player logged out while walking to the bank.');
Players[CurrentPlayer].Loc := 'Logged Out To Bank';
Exit;
end;
RadialRoadWalk(FindVarrockRoadColor2, 240, 380, 65, 1, 1);
Randoms;
RRoadWalk := RRoadWalk + 1;
If (RRoadWalk > 2) Then
If FindDTM(bankers, x, y, 547, 6, 703, 163) Then
If FindTheBank Then Exit;
until (RRoadWalk > 20)
WriteLn('Omg, can not find the bank! logging out...');
Players[CurrentPlayer].Loc := 'Not Found The Bank';
LogOut;
end;
{Function FindIron(var xr, yr: Integer): boolean;
var
TolSpeed, mx, my, NumberOfLenght, MK: Integer;
IronCoords, RockCoords: Array Of TPoint;
DaPoint: TPoint;
begin
TolSpeed := GetColorToleranceSpeed;
ColorToleranceSpeed(2);
FindColorsSpiralTolerance(mx, my, IronCoords, 2832993, MSX1, MSY1, MSX2, MSY2, 6);
NumberOfLenght := High(IronCoords);
For MK := 0 To NumberOfLenght Do
begin
DaPoint := IronCoords[MK];
FindColorsTolerance(RockCoords, 2832734, DaPoint.X - 15, DaPoint.Y - 15, DaPoint.X + 15, DaPoint.Y + 15, 20);
MiddleTPAEx(RockCoords, X, Y);
FindColorsTolerance(RockCoords, 1394003, X - 15, Y - 15, X + 15, Y + 15, 25);
If(GetArrayLength(RockCoords)-1 > 5)Then
Begin
MiddleTPAEx(RockCoords, Xr, Yr);
MMouse(xr, yr, 0, 0);
If (GetColor(43, 9) = 14344978) Then
If not GasFound(mx, my) Then
Begin
Result := True;
Break;
End;
End;
End;
ColorToleranceSpeed(TolSpeed);
End;}
Function FindIron(var xr, yr: Integer): Boolean;
Var
RealIron, IronRock: Array Of TPoint;
CurPoint: TPoint;
TolSpeed, MK, xx, yy: Integer;
Begin
TolSpeed := GetColorToleranceSpeed;
ColorToleranceSpeed(2);
FindColorsSpiralTolerance(x, y, RealIron, 2832989, MSX1, MSY1, MSX2, MSY2, 6);
For MK := 0 To High(RealIron) Do
Begin
CurPoint := RealIron[MK];
FindColorsTolerance(IronRock, 1659234, CurPoint.X - 15, CurPoint.Y - 15, CurPoint.X + 15, CurPoint.Y + 15, 20);
If (High(IronRock) > 15) Then
Begin
MiddleTPAEx(IronRock, xx, yy);
MMouse(xx, yy, 0, 0);
If FindColorTolerance(x, y, 2832989, xx - 15, yy - 15, xx + 15, yy + 15, 6) Then
Begin
Wait(100 + Random(100));
If (Pos('ine', rs_getuptext) <> 0) Then
Begin
xr := xx; yr := yy;
Result := True;
Exit;
End;
End;
End;
End;
ColorToleranceSpeed(TolSpeed);
End;
Function CheckPickaxe: Boolean;
begin
If Wielded Then
GameTab(5) Else GameTab(4);
If FindDTM(PickaxeStick, x, y, 532, 183, 751, 485) Then
Begin
WriteLn('Noes! your pickhead flyd off!');
Wielding := Wielded;
If Not FindPick Then
Begin
Result := True;
WriteLn('We lost your pickaxe head... moving back to bank...');
GameTab(5);
Mouse(584, 302, 10, 10, True);
Wielded := False;
Exit;
End;
End;
If FindDTM(BrokenPickaxe, x, y, 532, 183, 751, 485) Then
Begin
Result := True;
WriteLn('Sorry, but ' + Players[CurrentPlayer].Nick + ' broke your pickaxe, not MasterKills foult ;)');
WriteLn('Moving back to the bank...');
GameTab(5);
Mouse(584, 302, 10, 10, True);
Wielded := False;
Exit;
End;
If Not FindDTM(PickaxeD, x, y, 532, 183, 751, 485) Then
Begin
Result := True;
WriteLn('We cant find your pickaxe at all! Back to bank...');
Wielded := False;
End;
End;
Procedure MineThaLoad;
Var
NotF, errF, RWTime: Integer;
BlackText: String;
begin
If Not LoggedIn Then Exit;
Players[CurrentPlayer].Loc := 'Mining Full Load';
WriteLn('');
WriteLn('[MineThaLoad]');
WriteLn('');
FindPickHeadColor;
SetRun(true);
WriteLn('Run activated.');
WriteLn('Starting mining...');
Repeat
If Not LoggedIn Then Exit;
If FindIron(x, y) Then
begin
Mouse(x, y, 0, 0, True);
MarkTime(RWTime);
NotF := 0;
TheResponder;
Wait(1500);
If FlagPresent Then Wait(1000);
Repeat
BlackText := GetBlackChatMessage;
if (getcolor(486, 384) = 0) then
if FindNpcChatText('ickaxe', Nothing) then
If CheckPickaxe Then Exit;
If GasFound(x, y) then
begin
Mouse(633, 83, 8, 8, True);
Wait(25000);
end;
Randoms;
If (Pos('anage', BlackText) <> 0) or (Pos('vailable', BlackText) <> 0) then break;
SleepAndMoveMouse(200 + random(1000));
Until(TimeFromMark(RWTime) > RockWaitTime)
end else
begin
Wait(300);
Randoms;
NotF := NotF + 1;
If (NotF > 14) Then
Begin
errF := errF + 1;
If (errF > 4) Then
Begin
WriteLn('huh the script can not find any iron, while were in the mine...');
Exit;
End;
WriteLn('Not found any iron, try to find the mine again...');
If Not GetInMine Then
Begin
WriteLn('O dear, we got lost while mining... How wierd is that?');
Players[CurrentPlayer].Loc := 'Lost While Mining';
LogOut;
Exit;
End;
WriteLn('Resume mining...');
NotF := 0;
End;
End;
Until InvFull
WriteLn('... until where full.');
End;
var
frmDesign : TForm;
Label1 : TLabel;
Label2 : TLabel;
StartButton : TButton;
OkiClick: Boolean;
Upzor, onezor, twozor, buttumtext: string;
procedure StartClick(sender: TObject);
begin
frmDesign.ModalResult:= mrOk;
OkiClick := True;
end;
procedure InitForm;
begin
frmDesign := CreateForm;
frmDesign.Left := 300;
frmDesign.Top := 300;
frmDesign.Width := 500;
frmDesign.Height := 100;
frmDesign.Caption := upzor;
frmDesign.Color := clBlack;
frmDesign.Font.Color := clWindowText;
frmDesign.Font.Height := -11;
frmDesign.Font.Name := upzor;
frmDesign.Font.Style := [];
frmDesign.Visible := False;
frmDesign.PixelsPerInch := 96;
Label2 := TLabel.Create(frmDesign);
Label2.Font.Color := clWhite
Label2.Parent := frmDesign;
Label2.Left := 5;
Label2.Top := 5;
Label2.Width := 46;
Label2.Height := 13;
Label2.Font.Size := 10;
Label2.Caption := onezor;
Label1 := TLabel.Create(frmDesign);
Label1.Font.Color := clWhite
Label1.Parent := frmDesign;
Label1.Left := 5;
Label1.Top := 25;
Label1.Width := 46;
Label1.Height := 13;
Label1.Font.Size := 10;
Label1.Caption := twozor;
StartButton := TButton.Create(frmDesign);
StartButton.Parent := frmDesign;
StartButton.OnClick := @StartClick;
StartButton.Left := 5;
StartButton.Top := 45;
StartButton.Width := 80;
StartButton.Height := 20;
StartButton.Caption := buttumtext;
StartButton.TabOrder := 10;
end;
procedure SafeInitForm;
var
v: TVariantArray;
begin
setarraylength(V, 0);
ThreadSafeCall('InitForm', v);
end;
procedure ShowFormModal;
begin
frmDesign.ShowModal;
end;
procedure SafeShowFormModal;
var
v: TVariantArray;
begin
setarraylength(V, 0);
ThreadSafeCall('ShowFormModal', v);
end;
Procedure ErrorForm(Uptextt, msgone, msgtwo, buttontext: String; Terminate: Boolean);
begin
upzor := uptextt;
onezor := msgone;
twozor := msgtwo;
OkiClick := False;
buttumtext := buttontext;
repeat
SafeInitForm;
SafeShowFormModal;
If OkiClick Then Break;
PlaySound('C:\WINDOWS\Media\Windows XP Shutdown.wav');
Wait(1000);
Until OkiClick
If Terminate then
begin
WriteLn('');
Terminatescript;
end;
end;
Function CurrentStatus: String;
var
MK, PlayerCount: Integer;
begin
for MK := 0 To HowManyPlayers - 1 do
if (Players[MK].active = True) then
PlayerCount := PlayerCount + 1;
IF (PlayerCount = 0) then
Result := 'Script succesfully ended. All players False.' else
Result := 'there still where ' + IntToStr(PlayerCount) + ' of the ' + IntToStr(HowManyPlayers) + ' players active.';
end;
Procedure SafeReport;
var
SaveFileCreate: TStringList;
MK: Integer;
begin
SaveFileCreate := TStringList.Create;
SaveFileCreate.Add('Varrock east mine and banker version 13.0');
SaveFileCreate.Add(' created by MasterKill');
SaveFileCreate.Add('');
SaveFileCreate.Add('Last status found in script:');
SaveFileCreate.Add(' ' + CurrentStatus);
SaveFileCreate.Add('');
SaveFileCreate.Add('Script Report:');
SaveFileCreate.Add(' Iron Mined : ' + IntToStr(IronMined));
SaveFileCreate.Add(' Times Banked : ' + IntToStr(Banked));
SaveFileCreate.Add(' Responds Made : ' + IntToStr(Responds));
SaveFileCreate.Add('');
SaveFileCreate.Add('Player Report:');
For MK := 0 To HowManyPlayers - 1 Do
begin
SaveFileCreate.Add(' ' + Players[MK].Name);
SaveFileCreate.Add(' Iron Mined : ' + IntToStr(Players[MK].integers[2]));
SaveFileCreate.Add(' Location : ' + Players[MK].Loc);
SaveFileCreate.Add(' Mining level : ' + IntToStr(Players[MK].integers[1]));
end;
If Not SaveToFile(SaveFileCreate, SafeReportFileName) Then
WriteLn('Could not save your report.');
end;
Procedure WhileReport;
Var
MK: Integer;
begin
WriteLn('');
WriteLn('[Time Running: ' + TimeRunning + ']');
WriteLn('[Iron Mined: ' + IntToStr(IronMined) + ']');
WriteLn('[Times Banked: ' + IntToStr(Banks) + ']');
WriteLn('[Respond[s] made: ' + IntToStr(Responds) + ']');
WriteLn('[Mining ' + FloatToStr(IronMined div TimeFromMark(ScriptRunTime) * 3600000.0) + ' Iron a hour]');
For MK := 0 To HowManyPlayers - 1 Do
WriteLn(Players[MK].Name + ' = [' + IntToSTr(players[MK].integers[2]) + ' Iron Mined] [active? ' + BoolToStr(Players[MK].Active) + '] [Location: ' + Players[MK].Loc + ']');
SrlRandomsReport;
SafeReport;
WriteLn('Progress report saved to: ' + SafeReportFileName);
end;
Function FindThaBankTPA: boolean;
Var
BankCoords, BoothCoords: Array Of TPoint;
MK, mx, my, TolSpeed, NumberOfLenght: Integer;
DaPoint: TPoint;
begin
TolSpeed := GetColorToleranceSpeed;
ColorToleranceSpeed(2);
FindColorsSpiralTolerance(mx, my, BankCoords, 1593183, MSX1, MSY1, MSX2, MSY2, 6);
NumberOfLenght := High(BankCoords);
For MK := 1 To NumberOfLenght Do
begin
DaPoint := BankCoords[MK];
FindColorsTolerance(BoothCoords, 1593183, DaPoint.X - 15, DaPoint.Y - 15, DaPoint.X + 15, DaPoint.Y + 15, 11);
If(GetArrayLength(BoothCoords)-1 > 30)Then
Begin
MiddleTPAEx(BoothCoords, x, y);
Mouse(x, y, 0, 0, False);
Wait(100 + Random(50));
If ChooseOption('uick') Then
Begin
Result := True;
Break;
End Else WriteLn('No bank booth here.');
End;
End;
ColorToleranceSpeed(TolSpeed);
End;
Function PickaxeFound: Boolean;
Begin
If Wielded Then Result := True Else
Result := FindDTM(PickaxeD, x, y, MIX1, MIY1, MIX2, MIY2);
End;
Function GetNewPickFromBank: Boolean;
Begin
If (Players[CurrentPlayer].Integers[1] > 40) then
begin
if FindDTM(PickaxeDTM[1], x, y, msx1, msy1, msx2, msy2) then
begin
Result := True;
Mouse(x, y, 0, 0, True);
Exit;
end;
end;
If (Players[CurrentPlayer].Integers[1] > 30) then
begin
if FindDTM(PickaxeDTM[2], x, y, msx1, msy1, msx2, msy2) then
begin
Result := True;
Mouse(x, y, 0, 0, True);
Exit;
end;
end;
If (Players[CurrentPlayer].Integers[1] > 20) then
begin
if FindDTM(PickaxeDTM[3], x, y, msx1, msy1, msx2, msy2) then
begin
Result := True;
Mouse(x, y, 0, 0, True);
Exit;
end;
end;
If (Players[CurrentPlayer].Integers[1] > 5) then
begin
if FindDTM(PickaxeDTM[4], x, y, msx1, msy1, msx2, msy2) then
begin
Result := True;
Mouse(x, y, 0, 0, True);
Exit;
end;
end;
if FindDTM(PickaxeDTM[5], x, y, msx1, msy1, msx2, msy2) then
begin
Result := True;
Mouse(x, y, 0, 0, True);
Exit;
end;
if FindDTM(PickaxeDTM[6], x, y, msx1, msy1, msx2, msy2) then
begin
Result := True;
Mouse(x, y, 0, 0, True);
Exit;
end;
End;
Procedure SetupPlayer;
begin
If Not LoggedIn Then Exit;
WriteLn('');
WriteLn('[' + Players[CurrentPlayer].name + ' setup]');
WriteLn('');
SetAngle(True);
MakeCompass('N');
GameTab(2);
Players[CurrentPlayer].integers[1] := GetSkillInfo('mining', False);
WriteLn('Players mining level is ' + IntToStr(Players[CurrentPlayer].integers[1]));
If (Players[CurrentPlayer].Integers[3] < 1) Then
Players[CurrentPlayer].integers[3] := GetCombatLevel;
WriteLn('Players combat level is ' + IntToStr(Players[CurrentPlayer].Integers[3]));
WhatPickaxeDoWeHave;
SetupResponds;
end;
Procedure BankThaLoad;
Var
IronLoad, NotF: integer;
begin
If Not LoggedIn Then Exit;
WriteLn('');
WriteLn('[Bank The Load]');
WriteLn('');
Players[CurrentPlayer].Loc := 'In The Bank';
IronLoad := CountItemsDtm('inv', IronOre);
Repeat
If Not LoggedIn Then
begin
WriteLn('Player logged out while banking?!');
Players[CurrentPlayer].Loc := 'Logged Out While Banking';
Exit;
end;
If FindThaBankTPA Then
begin
WriteLn('Opening the bank...');
FFlag(0);
players[CurrentPlayer].integers[2] := players[CurrentPlayer].integers[2] + IronLoad;
IronMined := IronMined + IronLoad;
WriteLn('Mined ' + IntToStr(IronLoad) + ' Iron, wich makes the grand total ' + IntToStr(IronMined) + '.');
ReportVars[0] := ReportVars[0] + 1;
ReportVars[1] := ReportVars[1] + IronLoad;
Wait(1000 + Random(1000));
If FindDTM(BrokenPickaxe, x, y, MIX1, MIY1, MIX2, MIY2)
Or FindDTM(pickaxestick, x, y, MIX1, MIY1, MIX2, MIY2)
Or Not PickaxeFound then
Begin
WriteLn('Your pickaxe is dead, looking for a new one...');
Deposit(1, 28, True);
If GetNewPickFromBank Then
Begin
WriteLn('We got a new pickaxe from your bank, lukky bastard.');
Mouse(485, 41, 5, 5, True);
WhatPickaxeDoWeHave;
End Else
Begin
WriteLn('This player has runned out of pickaxes... WHEHE!');
Players[CurrentPlayer].Loc := 'Out Of PickAxes';
Mouse(485, 41, 5, 5, True);
LogOut;
Exit;
End;
End Else
Begin
WriteLn('Banking all stuff except for your pickaxe.');
If Wielded Then Deposit(1, 28, True) else Deposit(2, 28, True);
Mouse(485, 41, 5, 5, True);
End;
SetAngle(true);
Banked := Banked + 1;
WriteLn('banking succesfully completed.');
Wait(100 + Random(50));
MakeCompass('N');
Exit;
end else
begin
FFlag(0);
If FindDTM(bankers, x, y, 547, 6, 703, 163) Then
Begin
Mouse(x, y, 0, 0, True);
SleepAndMoveMouse(500 + Random(1000));
FFlag(0);
End Else
Begin
NotF := NotF + 1;
SleepAndMoveMouse(2000 + Random(1000));
If (NotF > 1) Then
Begin
WriteLn('We can not find the bank anymore. Player logout...');
Players[CurrentPlayer].Loc := 'Lost Around Bank';
LogOut;
Exit;
End;
End;
end;
Until False
end;
Function GetSafeReportFilePath: String;
Var
Hour, Mins, Sec, MSec, Year, Month, Day: Word;
M: String;
Begin
DecodeDate(Date, Year, Month, Day);
DecodeTime(Now, Hour, Mins, Sec, MSec);
case Month of
1: M := 'Jan-';
2: M := 'Feb-';
3: M := 'Mar-';
4: M := 'Apr-';
5: M := 'May-';
6: M := 'Jun-';
7: M := 'Jul-';
8: M := 'Aug-';
9: M := 'Sep-';
10: M := 'Oct-';
11: M := 'Nov-';
12: M := 'Dec-';
end;
Result := AppPath + 'MasterKill_Progress_Reports\IronMiner__' + IntToStr(Day) + '-' + M + IntToStr(Year) + '__' + Padz(IntToStr(Hour), 2) + '-' + Padz(IntToStr(Mins), 2) + '-' + Padz(IntToStr(Sec), 2) + '.txt';
End;
procedure StartUp;
begin
ClearDeBug;
WriteLn('MasterKill prezents: ');
WriteLn(' ___ __ ');
WriteLn('| |_______ ____ ____ _____ |__| ____ _____ _______ ©');
WriteLn('| |\_ __ \ / \ / \ / \ | | / \ / __ \\_ __ \ ');
WriteLn('| | | | \/( () )| | \ | \| || | \\ ___/ | | \/ ');
WriteLn('|___| |__| \____/ |___| / |__|_| /|__||___| / \___ \ |__| ');
WriteLn(' \/ \/ \/ \/ ');
WriteLn(' and banker! V13');
Status('MasterKill productions! ©');
disguise('MasterKill ©');
Wait(3000);
SafeReportFileName := GetSafeReportFilePath;
for I := 0 to getarraylength(players)-1 do
begin
If (Players[I].Active = True) then
Players[I].Loc := 'In The Bank' else
Players[I].Loc := 'Not In Use';
SetArrayLength(Players[I].integers, 5);
SetArrayLength(Players[I].Strings, 1);
end;
end;
procedure HyperMainLoop;
begin
Repeat
ToThaMine;
MineThaLoad;
ToThaBank;
BankThaLoad;
WhileReport;
Load := Load + 1;
Until (Not LoggedIn) Or (Load - 1 > Players[CurrentPlayer].Integers[0])
end;
Procedure LogInFalseTrue;
begin
If Not LoggedIn then Players[CurrentPlayer].active := False;
If (NumberOfActive(False) = 0) then exit;
WriteLn('');
WriteLn('[Player Done]');
WriteLn('');
NextPlayer(LoggedIn);
Load := 0;
SetupPlayer;
end;
begin
//Setup
SetupSRL;
If Not (SRLVersionNumber = 15) Then ErrorForm('CAN NOT RUN', 'to run this script you need scar 3.15 and srl reversion 15', 'plz run the script again when you go those', 'OK =(', True);
SetupDTM;
SetupPlayers;
//Startup, make ready
ScriptID := '275';
ErrorForm('Varrock East Miner V13 - By MasterKill', 'Welcome to MasterKills Varrock east mine and banker V13.0', 'Start all your players in the Varrock east bank', 'START', False);
WriteLn('Plz allways allow popups'); If (SRLID = '') or (SRLPASSWORD = '') Then ErrorForm('[RUNETIME ERROR]', 'You need a srl ID and Pass to run this script! (line 51 and 52)', 'Plz get one at www.stats.srl-forums.com and hit register.', 'ok =(', True);
SrlRandomsReport;
StartUp;
WriteLn('Loading RuneScape.SMART ...');
SmartSetupEx(world, False, True);
SetTargetDC(SmartGetDC);
while not(SmartReady) do Wait(100);
ReplaceDebugLine(8, 'Loading RuneScape ...');
Wait(10000);
//Script play
LoginPlayer;
MarkTime(ScriptRunTime);
SetupPlayer;
Repeat
HyperMainLoop;
LogInFalseTrue;
Until(NumberOfActive(False) = 0)
ClearDeBug;
WhileReport;
WriteLn('');
ErrorForm('Script Ended', 'Thank for using MasterKills Iron miner!', 'Reset your players and run it again :p', 'Done', False);
end.
Take ur username and pass out of it;)
nielskool
04-26-2008, 08:57 PM
it does enter the mine, so you can see the rocks?
does scar also say s"succesfully enterd the mine"?
i took my pass out thx for the tip, now you have to get it out of the quote:P
infested999
04-26-2008, 09:01 PM
Thanks for the account ;)
nielskool
04-26-2008, 09:19 PM
please give back my account
XxXx Toxin XxXx
04-26-2008, 09:29 PM
Take ur username and pass out of it;)
You wanna NOT QUOTE HIS USERNAME AND HIS PASSWORD in there?....
Morons such as infested999 just love free accounts... Now someone nice such as Nielskool has lost an account because he was trying to be nice... Oh and just to send a nice warning towards infested999, if you don't return the account to Nielskool, you will be reported and receive a ban :)
xminimanx
04-26-2008, 11:42 PM
You wanna NOT QUOTE HIS USERNAME AND HIS PASSWORD in there?....
Morons such as infested999 just love free accounts... Now someone nice such as Nielskool has lost an account because he was trying to be nice... Oh and just to send a nice warning towards infested999, if you don't return the account to Nielskool, you will be reported and receive a ban :)
Erm Sorry, But I'm just lookin out for the person. If other people are that low to steal someones account on a forum about Macroing..... Then the deserve a ban.
nielskool
04-27-2008, 08:10 AM
prog report:
[Time Running: 1 Hours, 34 Minutes and 51 Seconds]
[Iron Mined: 307]
[Times Banked: 0]
[Respond[s] made: 5]
[Mining 194,765887068564 Iron a hour]
furbi10 = [167 Iron Mined] [active? False] [Location: Mining Full Load]
furbi10 = [140 Iron Mined] [active? False] [Location: No Pickaxe!]\
stopped becaus it had a random
prog report2:
[Time Running: 1 Hours, 57 Minutes and 7 Seconds]
[Iron Mined: 277]
[Times Banked: 0]
[Respond[s] made: 7]
[Mining 142,103427126535 Iron a hour]
furbi10 = [277 Iron Mined] [active? True] [Location: In The Bank]
= [0 Iron Mined] [active? False] [Location: Not In Use]
Progress report saved to: C:\Program Files\SCAR 3.15\MasterKill_Progress_Reports\IronMiner__27-Apr-2008__11-28-14.txt
Still 1 players of the 2 players are active.
[Player Done]
NextPlayer
furbi10
[furbi10 setup]
Players mining level is 55
Players combat level is 20
Checking your Pickaxe...
Steel pickaxe found in your iventory.
Still 1 players of the 2 players are active.
[To The Mine]
Walking to the mine...
nielskool
04-27-2008, 10:29 AM
SetArrayLength(TheQuestion, HowManyResponds); SetArrayLength(TheRespond, HowManyResponds);
TheQuestion[0] := ['mining', 'mine'];
TheRespond[0] := [IntToStr(Players[CurrentPlayer].Integers[1])]; // your players mining level
is it possible to let him search for more than on word in the question, that he searches mining and lvl insead only mining?
nielskool
04-27-2008, 02:39 PM
@#$% somoene stole my acc XD, had about 3k iron lvl 55 mining:(
happy it wasnt my main:P
coolsport23
04-27-2008, 03:37 PM
Nice script...
- MasterKills Hyper Progress Report.
Worked for: 5 Hours, 34 Minutes and 52 Seconds
Total ores mined: 2754
Total loads done: 101
Trade[s] made: 0
Respond[s] made: 0
Player reset[s]: 40
Other than the fact that it only mined about 1700, not 2700 =p still great! I'll try to get more. =)
Ritacame
04-27-2008, 03:39 PM
What script are you using? I copied the above one and click run. Then scar closes.
nielskool
04-27-2008, 05:48 PM
i use the script i posted last
but if it closes try to change the worldnumber that worked for me.. i changed it to 51 you may try another
Whakey
04-27-2008, 06:55 PM
[Runtime Error] : Exception: Access violation at address 006CF23E in module 'scar.exe'. Read of address FFFFFFFC in line 227 in script C:\Program Files\SCAR 3.151\includes\SRL/SRL/Core/Login.scar
Gives me that error, what to do?
Ritacame
04-27-2008, 07:39 PM
GO to tools, then options, then firewall, then click allow all. It should work.
Itzkirby
04-28-2008, 02:52 AM
When I start it I'm getting this error message.
Basically MSVCR71.dll has not been found. After that it says "Could not initialize SMART error code [16711422]" I have the latest SCAR and the latest SRL download.
I'm sorry if this was posted awhile back, I just can't go through the pages now.
P1nky
04-28-2008, 03:28 AM
master j/w
is
If GasFound(x, y) then
begin
Mouse(633, 83, 8, 8, True);
Wait(25000);
end;
that a good gas finding fuction and works well ?
(from srl i knw)
just want to know cause i may use that instead of making a whole new function for it :)
slayerkiller13
04-28-2008, 05:33 AM
thx for fixing it nielskool :D
MasterKill
04-28-2008, 06:44 AM
SetArrayLength(TheQuestion, HowManyResponds); SetArrayLength(TheRespond, HowManyResponds);
TheQuestion[0] := ['mining', 'mine'];
TheRespond[0] := [IntToStr(Players[CurrentPlayer].Integers[1])]; // your players mining level
is it possible to let him search for more than on word in the question, that he searches mining and lvl insead only mining?
if it finds "mining" or "mine" ingame it will respond with your mining level.
you can do evrything with the responds you want.
like:
have [234] question, and [1] respond
have [1] question, and [423412] responds
though I would choose for the second one ;)
@pinky: {.include srl/srl/skill/mining.scar}
thomaswood5
04-28-2008, 07:16 AM
Ok, this is a good script, has got me some good experience the last few days, but for some reason it will only bank some of the ores, heres my best proggy so far:
Script vars:
Worked for: 7 Hours, 6 Minutes and 9 Seconds
Total ores mined: 2079
Total loads done: 21
Trade[s] made: 0
Respond[s] made: 2
Player reset[s]: 15
Player vars:
Account1:
Location: wierd bank error
Random?:
total ore`s mined: 1161
Mining lvl: 40
Current Pickaxe using: Bronz
Account2:
Location: wierd bank error
Random?: Mime
total ore`s mined: 648
Mining lvl: 36
Current Pickaxe using: Bronz
Account3:
Location: wierd bank error
Random?: Mordaut
total ore`s mined: 270
Mining lvl: 39
Current Pickaxe using: Bronz
This is good, but only a few hundred of the ores were actually in my bank at the end, please help
slayerkiller13
04-29-2008, 03:29 PM
keeps saying not found the mine ...
MasterKill
04-29-2008, 08:57 PM
I'm working on a update...
just hold on the time I need.
Timer
04-29-2008, 09:32 PM
MK, Post An Easy Fix For Now, Till You Get It FlawLess!
13 BETA:
Procedure ToThaMine;
Var
RicksRoadWalk: Integer;
begin
MakeCompass('N');
If Not LoggedIn Then Exit;
Players[CurrentPlayer].Loc := 'Moving To The Mine';
WriteLn('');
WriteLn('[To The Mine]');
WriteLn('');
WriteLn('Walking to the mine...');
MasterRoadWalk(FindVarrockRoadColor2, 133, 20, 65, 3, 3, True);
RadialRoadWalk(FindVarrockRoadColor2, 133, 60, 65, 3, 3);
Repeat
RicksRoadWalk := RicksRoadWalk + 1;
If Not LoggedIn Then
Begin
WriteLn('player logged out while walking to the bank...');
Players[CurrentPlayer].Loc := 'Logged Out To Mine';
exit;
End;
If Not RadialRoadWalk(FindVarrockRoadColor2, 127, 228, 55, 1, 1) Then Break;
If (RicksRoadWalk > 2) Then
If FindColorTolerance (x, y, FindStoneColor2, MMX1, MMY1, MMX2, MMY2, 1) Then
If GetInMine Then Exit;
If FindSymbol(X, Y, 'mining spot') Then
Begin
If rs_OnMinimap(X + 5, Y + 5) Then
Begin
MouseFlag(X, Y, 5, 5);
Exit;
End;
End;
Until(RicksRoadWalk > 20)
WriteLn('We did not found the mine, logging out player.');
Players[CurrentPlayer].Loc := 'Not Found Mine';
LogOut;
end;
zimmer
04-30-2008, 02:30 AM
Says "loading .Smart."
but won't load..just closes..now smart runs on my computer but not with this script? why?
thebob142
04-30-2008, 05:31 AM
update your worlds ini file zimmer
zimmer
04-30-2008, 06:13 AM
how? please answer step by step lol *sorry*
thebob142
04-30-2008, 11:44 PM
ok open up scar go to tools then down to explore folders-->scar folder--> includes-->srl-->scss-->worlds--> then paste this in it.
; List generated by Freddy1990's Advanced World Generator v2.50
[Worlds]
Count=159
[World1]
Prefix=world1
Type=Free
Flag=usflag
Location=United States 3
[World2]
Prefix=world2
Type=Members
Flag=usflag
Location=United States 3
[World3]
Prefix=sl1
Type=Free
Flag=usflag
Location=US Central 2
[World4]
Prefix=world4
Type=Free
Flag=usflag
Location=United States 2
[World5]
Prefix=world5
Type=Free
Flag=usflag
Location=United States 2
[World6]
Prefix=sl10
Type=Members
Flag=usflag
Location=US Central 2
[World7]
Prefix=world7
Type=Free
Flag=usflag
Location=United States 3
[World8]
Prefix=world8
Type=Free
Flag=usflag
Location=United States 3
[World9]
Prefix=world9
Type=Members
Flag=usflag
Location=United States 3
[World10]
Prefix=me5
Type=Free
Flag=nlflag
Location=Netherlands 2
[World11]
Prefix=world11
Type=Free
Flag=ukflag
Location=UK 1
[World12]
Prefix=jolt9
Type=Members
Flag=ukflag
Location=UK 2
[World13]
Prefix=world13
Type=Free
Flag=usflag
Location=United States 2
[World14]
Prefix=world14
Type=Free
Flag=usflag
Location=United States 2
[World15]
Prefix=mn2
Type=Free
Flag=ukflag
Location=UK 1
[World16]
Prefix=mn3
Type=Free
Flag=ukflag
Location=UK 1
[World17]
Prefix=world17
Type=Free
Flag=usflag
Location=United States 2
[World18]
Prefix=world18
Type=Members
Flag=usflag
Location=United States 2
[World19]
Prefix=world19
Type=Free
Flag=usflag
Location=United States 2
[World20]
Prefix=world20
Type=Free
Flag=usflag
Location=United States 2
[World21]
Prefix=world21
Type=Free
Flag=usflag
Location=United States 3
[World22]
Prefix=world22
Type=Members
Flag=usflag
Location=United States 3
[World23]
Prefix=mn4
Type=Members
Flag=ukflag
Location=UK 1
[World24]
Prefix=mn5
Type=Members
Flag=ukflag
Location=UK 1
[World25]
Prefix=me6
Type=Free
Flag=nlflag
Location=Netherlands 2
[World26]
Prefix=world26
Type=Members
Flag=usflag
Location=United States 3
[World27]
Prefix=world27
Type=Members
Flag=usflag
Location=United States 3
[World28]
Prefix=world28
Type=Members
Flag=usflag
Location=United States 3
[World29]
Prefix=world29
Type=Free
Flag=usflag
Location=United States 3
[World30]
Prefix=world30
Type=Free
Flag=usflag
Location=United States 3
[World31]
Prefix=world31
Type=Members
Flag=usflag
Location=United States 3
[World32]
Prefix=world32
Type=Free
Flag=usflag
Location=United States 3
[World33]
Prefix=at1
Type=Free
Flag=usflag
Location=US East 2
[World34]
Prefix=at2
Type=Free
Flag=usflag
Location=US East 2
[World35]
Prefix=at3
Type=Free
Flag=usflag
Location=US East 2
[World36]
Prefix=at4
Type=Members
Flag=usflag
Location=US East 2
[World37]
Prefix=world37
Type=Free
Flag=usflag
Location=United States 2
[World38]
Prefix=ny9
Type=Free
Flag=usflag
Location=US East 1
[World39]
Prefix=ny10
Type=Members
Flag=usflag
Location=US East 1
[World40]
Prefix=ny11
Type=Free
Flag=usflag
Location=US East 1
[World41]
Prefix=ny12
Type=Free
Flag=usflag
Location=US East 1
[World42]
Prefix=world42
Type=Members
Flag=usflag
Location=United States 3
[World43]
Prefix=sl11
Type=Free
Flag=usflag
Location=US Central 2
[World44]
Prefix=at6
Type=Members
Flag=usflag
Location=US East 2
[World45]
Prefix=ny13
Type=Members
Flag=usflag
Location=US East 1
[World46]
Prefix=ny14
Type=Members
Flag=usflag
Location=US East 1
[World47]
Prefix=world47
Type=Free
Flag=usflag
Location=United States 3
[World48]
Prefix=world48
Type=Members
Flag=usflag
Location=United States 3
[World50]
Prefix=ams2
Type=Free
Flag=nlflag
Location=Netherlands 1
[World51]
Prefix=ams3
Type=Free
Flag=nlflag
Location=Netherlands 1
[World52]
Prefix=jolt5
Type=Free
Flag=ukflag
Location=UK 2
[World53]
Prefix=ams5
Type=Members
Flag=nlflag
Location=Netherlands 1
[World54]
Prefix=me10
Type=Members
Flag=nlflag
Location=Netherlands 2
[World55]
Prefix=ch1
Type=Free
Flag=usflag
Location=US Central 1
[World56]
Prefix=world56
Type=Members
Flag=usflag
Location=United States 3
[World57]
Prefix=ch3
Type=Free
Flag=usflag
Location=US Central 1
[World58]
Prefix=ch4
Type=Members
Flag=usflag
Location=US Central 1
[World59]
Prefix=ch5
Type=Members
Flag=usflag
Location=US Central 1
[World61]
Prefix=world61
Type=Free
Flag=usflag
Location=United States 2
[World62]
Prefix=world62
Type=Free
Flag=usflag
Location=United States 2
[World63]
Prefix=world63
Type=Free
Flag=usflag
Location=United States 2
[World64]
Prefix=world64
Type=Members
Flag=usflag
Location=United States 2
[World65]
Prefix=world65
Type=Members
Flag=usflag
Location=United States 2
[World66]
Prefix=world66
Type=Members
Flag=usflag
Location=United States 2
[World67]
Prefix=jolt10
Type=Free
Flag=ukflag
Location=UK 2
[World68]
Prefix=jolt11
Type=Free
Flag=ukflag
Location=UK 2
[World69]
Prefix=jolt12
Type=Members
Flag=ukflag
Location=UK 2
[World70]
Prefix=world70
Type=Members
Flag=usflag
Location=United States 3
[World71]
Prefix=mn1
Type=Members
Flag=ukflag
Location=UK 1
[World72]
Prefix=world72
Type=Free
Flag=usflag
Location=United States 2
[World74]
Prefix=sl3
Type=Free
Flag=usflag
Location=US Central 2
[World75]
Prefix=sl4
Type=Free
Flag=usflag
Location=US Central 2
[World76]
Prefix=sl5
Type=Members
Flag=usflag
Location=US Central 2
[World77]
Prefix=sl6
Type=Members
Flag=usflag
Location=US Central 2
[World78]
Prefix=sl7
Type=Members
Flag=usflag
Location=US Central 2
[World79]
Prefix=sl8
Type=Members
Flag=usflag
Location=US Central 2
[World80]
Prefix=world80
Type=Free
Flag=ukflag
Location=UK 1
[World81]
Prefix=mn6
Type=Free
Flag=ukflag
Location=UK 1
[World82]
Prefix=world82
Type=Members
Flag=ukflag
Location=UK 1
[World83]
Prefix=world83
Type=Members
Flag=ukflag
Location=UK 1
[World84]
Prefix=world84
Type=Members
Flag=ukflag
Location=UK 1
[World85]
Prefix=ny1
Type=Free
Flag=usflag
Location=US East 1
[World86]
Prefix=ny2
Type=Free
Flag=usflag
Location=US East 1
[World87]
Prefix=cc16
Type=Free
Flag=usflag
Location=US Central 2
[World88]
Prefix=ny5
Type=Members
Flag=usflag
Location=US East 1
[World89]
Prefix=ny6
Type=Members
Flag=usflag
Location=US East 1
[World90]
Prefix=ny7
Type=Free
Flag=usflag
Location=US East 1
[World91]
Prefix=ny8
Type=Members
Flag=usflag
Location=US East 1
[World92]
Prefix=world92
Type=Members
Flag=ukflag
Location=UK 1
[World93]
Prefix=mi1
Type=Free
Flag=usflag
Location=US East 3
[World94]
Prefix=mi2
Type=Free
Flag=usflag
Location=US East 3
[World95]
Prefix=mi3
Type=Free
Flag=usflag
Location=US East 3
[World96]
Prefix=mi4
Type=Free
Flag=usflag
Location=US East 3
[World97]
Prefix=mi5
Type=Members
Flag=usflag
Location=US East 3
[World98]
Prefix=mi6
Type=Members
Flag=usflag
Location=US East 3
[World99]
Prefix=mi7
Type=Members
Flag=usflag
Location=US East 3
[World100]
Prefix=world100
Type=Members
Flag=usflag
Location=United States 3
[World101]
Prefix=at7
Type=Free
Flag=usflag
Location=US East 2
[World102]
Prefix=at8
Type=Free
Flag=usflag
Location=US East 2
[World103]
Prefix=at9
Type=Members
Flag=usflag
Location=US East 2
[World104]
Prefix=at10
Type=Members
Flag=usflag
Location=US East 2
[World105]
Prefix=mn8
Type=Free
Flag=ukflag
Location=UK 1
[World106]
Prefix=mn9
Type=Free
Flag=ukflag
Location=UK 1
[World107]
Prefix=au1
Type=Free
Flag=auflag
Location=Australia
[World108]
Prefix=au2
Type=Free
Flag=auflag
Location=Australia
[World109]
Prefix=au3
Type=Free
Flag=auflag
Location=Australia
[World110]
Prefix=au4
Type=Members
Flag=auflag
Location=Australia
[World111]
Prefix=au5
Type=Members
Flag=auflag
Location=Australia
[World112]
Prefix=au6
Type=Members
Flag=auflag
Location=Australia
[World113]
Prefix=world113
Type=Free
Flag=usflag
Location=United States 2
[World114]
Prefix=world114
Type=Members
Flag=usflag
Location=United States 2
[World115]
Prefix=world115
Type=Members
Flag=usflag
Location=United States 2
[World116]
Prefix=world116
Type=Members
Flag=usflag
Location=United States 2
[World117]
Prefix=swe1
Type=Free
Flag=sweflag
Location=Sweden
[World118]
Prefix=swe2
Type=Free
Flag=sweflag
Location=Sweden
[World119]
Prefix=swe3
Type=Free
Flag=sweflag
Location=Sweden
[World121]
Prefix=swe5
Type=Members
Flag=sweflag
Location=Sweden
[World123]
Prefix=swe7
Type=Free
Flag=sweflag
Location=Sweden
[World124]
Prefix=swe8
Type=Members
Flag=sweflag
Location=Sweden
[World125]
Prefix=jlv9
Type=Free
Flag=caflag
Location=Canada West
[World126]
Prefix=jlv2
Type=Free
Flag=caflag
Location=Canada West
[World127]
Prefix=jlv3
Type=Free
Flag=caflag
Location=Canada West
[World128]
Prefix=jlv4
Type=Free
Flag=caflag
Location=Canada West
[World129]
Prefix=jlv5
Type=Members
Flag=caflag
Location=Canada West
[World130]
Prefix=jlv6
Type=Members
Flag=caflag
Location=Canada West
[World131]
Prefix=jlv7
Type=Members
Flag=caflag
Location=Canada West
[World132]
Prefix=jlv8
Type=Members
Flag=caflag
Location=Canada West
[World133]
Prefix=hel1
Type=Free
Flag=finflag
Location=Finland
[World134]
Prefix=hel2
Type=Free
Flag=finflag
Location=Finland
[World136]
Prefix=hel4
Type=Free
Flag=finflag
Location=Finland
[World137]
Prefix=hel5
Type=Members
Flag=finflag
Location=Finland
[World138]
Prefix=hel6
Type=Members
Flag=finflag
Location=Finland
[World141]
Prefix=ams7
Type=Free
Flag=nlflag
Location=Netherlands 1
[World142]
Prefix=me2
Type=Free
Flag=nlflag
Location=Netherlands 2
[World143]
Prefix=me3
Type=Members
Flag=nlflag
Location=Netherlands 2
[World144]
Prefix=me4
Type=Members
Flag=nlflag
Location=Netherlands 2
[World145]
Prefix=jlv18
Type=Members
Flag=caflag
Location=Canada West
[World149]
Prefix=hel7
Type=Free
Flag=finflag
Location=Finland
[World151]
Prefix=hel9
Type=Members
Flag=finflag
Location=Finland
[World152]
Prefix=jlv10
Type=Free
Flag=caflag
Location=Canada West
[World153]
Prefix=jlv11
Type=Free
Flag=caflag
Location=Canada West
[World154]
Prefix=jlv12
Type=Free
Flag=caflag
Location=Canada West
[World155]
Prefix=jlv13
Type=Free
Flag=caflag
Location=Canada West
[World157]
Prefix=jlv15
Type=Members
Flag=caflag
Location=Canada West
[World158]
Prefix=jlv16
Type=Members
Flag=caflag
Location=Canada West
[World159]
Prefix=jlv17
Type=Members
Flag=caflag
Location=Canada West
jijib
05-01-2008, 03:53 AM
i think this should be like the first best script on srl
jamesrex100
05-01-2008, 09:13 AM
wow dude this looks really great u planed everything out it looks all tidy lol anyways ima try it now ill give u proggie in bout 5 hrs or so depends wen im getting off
EDIT: the script was a bit bad all the macros did was walk pass the mining place and got lost lol this was so bad it can never find the mining place i give it a 2/10 but it was pretty lame for me
slayerkiller13
05-01-2008, 12:08 PM
[Time Running: 2 Hours, 22 Minutes and 0 Seconds]
[Iron Mined: 473]
[Times Banked: 0]
[Respond[s] made: 4]
[Mining 200.361469599842 Iron a hour]
***= [418 Iron Mined] [active? False] [Location: Lost Around Bank]
********= [55 Iron Mined] [active? False] [Location: Lost While Mining]
edit:used timer fix..thx,and big thx for masterkill for this great script :)
Thanks Timer, it worked great. :P
phoenix79
05-01-2008, 07:32 PM
Just tried your script MK, its a good one. The only problem I see is that it ran one load of 28 iron to the bank banked it and when it ran back to the mine, it auto logged at the mine. Any idea why?
MasterKill
05-02-2008, 07:19 AM
Ok i've made an awesome form, now i'll be working on updating the script :D
Rubenos
05-02-2008, 10:15 AM
I finaly got it to work again! I'll post a proggy soon as soon as my other account is lvl 60 mining! Many thanks for this great script!
phoenix79
05-02-2008, 03:48 PM
hey mk i got it to work for 30mins last night by using timers fix and having the pickaxe in the 2nd slot invent. also sometimes it wileds the axe and other times it wont. that is the only error i have found. thank you for this script, you have made me want to learn scar.
spirosoccer2007
05-03-2008, 01:11 PM
it wont work. I fixed everything, smart loads fine. It walks to the mine then says not found the mine. Can you fix this??????? I tried both versions
phoenix79
05-03-2008, 02:16 PM
Varrock east mine and banker version 13.0
created by MasterKill
Last status found in script:
Script succesfully ended. All players False.
Script Report:
Iron Mined : 84
Times Banked : 3
Responds Made : 1
Player Report:
***********
Iron Mined : 84
Location : Mining Full Load
Mining level : 55
longest i can get the script to run is 30mins
BUG FOUND: the script will not bank iron at all
MK can you please try and improve the find/open bank parts
spirosoccer2007
05-03-2008, 02:55 PM
wtf mine goes to the mine then says mine not found and keeps on walking down or south so i cancel it. I have latest scar3.15b portable and standard but it does not work.
Timer
05-03-2008, 03:04 PM
Try My Fix!
Fer Not Finding The Mine...
Teh 1337 Fix! xD (http://www.villavu.com/forum/showthread.php?t=12636?p=393096#post393096)
dvhrld
05-03-2008, 07:49 PM
SRL Compiled in 1047 msec
[Runtime Error] : Out Of Range in line 68 in script C:\Program Files\SCAR 3.15\Scripts\Varrock_East_Smart_miner_By_MK_V12_re v14.scar
Ok I fixed that error somehow.
Now I am getting a new one, it says I don't have a pickaxe when I have one both equiped and in my first slot of inventory.
Well fixed that one by buying a better pickaxe, I guess bronze ones aren't recognized very well.
Now for the next problem, I either walk past the mine or I get to the mine but can't find the rocks.
spirosoccer2007
05-03-2008, 08:02 PM
Thanks timer!!! It works. Also when it finishes first load it gives me this
** Warning in GameTab: 4 does not exist**
And then logs out my player. How can I fix this?????
zimmer
05-04-2008, 05:55 AM
yea it seems to have a hard time finding mine..very hard time, or if it finds it it will go to bank and lose it again..use timers fix..it works somewhat.. better anyways
aznpimpsturr
05-04-2008, 06:13 AM
I't cant find the mine. :(
dvhrld
05-04-2008, 04:25 PM
Ok thanks.
Ill try that out.
faxity
05-04-2008, 04:49 PM
(!) We got lost but found the mine DDTM =D
how can you fix this error, my character was standing against the rock but it kept saying this
kevinlow
05-04-2008, 07:48 PM
what is the difference between the beta and the smart miner? does one work better than the other?
ryanhoffman5
05-05-2008, 01:01 AM
Okay I got setup all done with 2 chars, scar 3.15, srl 4, revision 15 (had 16 but updated down to 15) so i think i have everything set up, but i get this error
Line 6: [Error] (96:11): Duplicate identifier 'MOVEMOUSE' in script C:\Program Files\SCAR 3.15\includes\SRL\SRL\Misc\Smart.scar
I have looked up almost everything, over two hours of trying to fix this so i wouldn't have to ask this question, but here it goes, how do i fix this?
I have read all the smart tuts and most people talking about the same problem with others scripts just say
put {.include SRL/SRL/Misc/Smart.scar} before
{.include SRL/SRL.scar}
yet i checked and MasterKill's script is all good and has all that in the right place, i didn't change anything else, thanks to anyone who can solve this for me, MasterKill said don't copy this script anywhere and i am wondering if this applies to pasting it in threads like the code boxes? if that is okay then i will post the script so someone can look over it but i think it's the same from when it was downloaded minus the setup changes, thanks again for any help given.
*EDIT oh and this was the beta and the other version, tried in both and got the same error
*EDIT here is the smart.scar it was using
{
smart.scar overwrites the SCAR procedures.
You should always include this before any other include, even SRL.scar
}
procedure MoveMouse(x, y: Integer);
begin
SmartMoveMouse(x, y);
end;
procedure HoldMouse(x, y: Integer; left: Boolean);
begin
SmartHoldMouse(x, y, left);
end;
procedure ReleaseMouse(x, y: Integer; left: Boolean);
begin
SmartReleaseMouse(x, y, left);
end;
procedure KeyUp(key: Byte);
begin
If Key = 13 Then
Key := 10;
SmartReleaseKey(key);
end;
procedure KeyDown(key: Byte);
begin
If Key = 13 Then
Key := 10;
SmartHoldKey(key);
end;
procedure SendKeys(S: String);
begin
SmartSendKeys(S);
end;
procedure GetMousePos(var x, y: Integer);
begin
SmartGetMousePos(x, y);
end;
function GetColor(x, y: Integer): Integer;
begin
result:= SmartGetColor(x, y);
end;
procedure SmartSetTarget;
var
Smart_Bitmap: Integer;
begin
Smart_Bitmap:= BitmapFromString(765,503,'');
GetBitmapCanvas(Smart_Bitmap).Handle:= SmartGetDC;
SetTargetBitmap(Smart_Bitmap);
FreeBitmap(Smart_Bitmap);
end;
function FindWindow(Title: String): Boolean;
begin
result:= true;
end;
procedure ActivateClient;
begin
end;
function FindWindowBySize(Width, Height: Integer): Boolean;
begin
result:= true;
end;
procedure SmartSetupEx(worldnumber: integer; hiDetail, signed: boolean);
var
prefix: string;
begin
prefix := ReadINI('World' + IntToStr(worldnumber), 'Prefix', AppPath + 'includes\SRL\SCSS\worlds.ini');
if(prefix = '')then
begin
writeln('Invalid world number or corrupted world list. Please review your settings');
TerminateScript;
end;
SmartSetup(prefix, hiDetail, signed);
end;
Infidel00
05-05-2008, 02:14 AM
- MasterKills Hyper Progress Report.
Worked for: 6 Hours, 27 Minutes and 8 Seconds
Total ores mined: 1269
Total loads done: 47
Trade[s] made: 0
Respond[s] made: 8
Player reset[s]: 0
*Stopped it manually. Worked flawlessly the whole time too!*
Dracody
05-05-2008, 08:24 AM
wtf mine goes to the mine then says mine not found and keeps on walking down or south so i cancel it. I have latest scar3.15b portable and standard but it does not work.
I have the same problem...Ill add Timer's fix:D
Try My Fix!
Fer Not Finding The Mine...
Teh 1337 Fix! xD (http://www.villavu.com/forum/showthread.php?t=12636?p=393096#post393096)
Lol Timer ... as always you fixing the scripts , its awsome dude , Admirable :p I really hope you help me with the script I told you hehehe someday you'll be on the Dev team also :D
Infidel00
05-05-2008, 11:24 AM
Varrock East Mine And Banker - By MasterKill
Last status found:
there still where 2 of the 4 players active.
Script vars:
Worked for: 8 Hours, 37 Minutes and 54 Seconds
Total ores mined: 2052
Total loads done: 73
Trade[s] made: 0
Respond[s] made: 3
Player reset[s]: 1
One of my players ended up South of the Dark Wizard Circle :(
No idea how, but I will take a snapshot next time of the exact location.
Other than that, I'll be starting it up again in a few!
*Here another good one : )*
- MasterKills Hyper Progress Report.
Worked for: 9 Hours, 4 Minutes and 26 Seconds
Total ores mined: 2889
Total loads done: 106
Trade[s] made: 0
Respond[s] made: 9
Player reset[s]: 28
Dracody
05-05-2008, 11:32 PM
Mine just ends with the integers and turns players false when its done with integers and doesnt like continue mining, like a loop since it doesnt have a target amount of iron , The versions I used before kept on mining forever , but this one just turns the player of after it logs out :eek:, any help?
MasterKill
05-07-2008, 08:41 AM
OMGGGG
I have went very sick once again. But I'm getting better now.
I'm hoping to release the new version before vacation ends.
Whakey
05-08-2008, 10:37 AM
So this gonna get fixed soon :-)?
Sweet Looks Mint Gonna Get Straight Onto This 1 Lol After My Miner Gets 15 Mining Lol
ryanhoffman5
05-09-2008, 12:20 PM
Okay i think i have most of the problems fixed, i've got 3.15, srl 4 rev 16, all includes all the tools and everything are set up but after i hit start when the popup asks if you want to start it just says
Loading runescape.smart... and stays there for a second then the program closes completely
any help would be very appreciated :) Thanks in advance
sapetto
05-09-2008, 07:48 PM
Okay i think i have most of the problems fixed, i've got 3.15, srl 4 rev 16, all includes all the tools and everything are set up but after i hit start when the popup asks if you want to start it just says
Loading runescape.smart... and stays there for a second then the program closes completely
any help would be very appreciated :) Thanks in advance
Here http://www.villavu.com/forum/showthread.php?t=29826?p=396997
kevinlow
05-10-2008, 12:14 AM
mine always ends up near al-kharid after 300 ores, it usually walks right past the mine and stops at the opening down to al-kharid.
Dracody
05-10-2008, 04:06 AM
OMGGGG
I have went very sick once again. But I'm getting better now.
I'm hoping to release the new version before vacation ends.
Wow, hope you get well soon :p, Ill be waiting for your new version while my army keeps on killing chickens:D
demon0254
05-10-2008, 04:55 PM
hey masterkill, im having a problem with ym script. ive downloaded all the latest scar and subversion and srl and winrap, but it always says this:
Include file C:\Program Files\SCAR 3.15\includes\SRL\SRL\Misc\Smart.scar does not exist.
Include file C:\Program Files\SCAR 3.15\includes\srl\srl.scar does not exist.
Failed when compiling
What does that mean?:confused: :confused: :confused: :confused: :fiery:
shadowmarkus
05-10-2008, 06:32 PM
The mining is going a bit slow for me, and the banking is very weird! He like, rightclicks a iron ore, selects "deposit x" and then writes like, 2 or 5, so it takes him like 7 tryies to deposit it all. rather slow.
Bubix
05-10-2008, 08:05 PM
Hey all ;)
And hi MK (Greatest iron mining script releaser :p)
I haven`t long timo done anything with autoing couse was realy bussy, now I`m back
and here is my first report of the newly updatet script :D (Not good, but Proggy reports has to be posted :D)
[Time Running: 2 Hours, 56 Minutes and 54 Seconds]
[Iron Mined: 723]
[Times Banked: 0]
[Respond[s] made: 2]
[Mining 245,902754473639 Iron a hour]
*** = [472 Iron Mined] [active? False] [Location: Mining Full Load]
*** = [139 Iron Mined] [active? False] [Location: Lost Around Bank]
*** = [112 Iron Mined] [active? False] [Location: Not Found Mine]
/~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
| SRL 4 Randoms Report |
| www.srl-forums.com |
|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|
| SRL Logs : 6 |
| Fights : 2 |
| Boxes Solved : 1 |
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~/
It dosen`t count banking time, but i dont know why. maybe its my foult, or somthing.
MasterKill
05-10-2008, 08:49 PM
Bumix did you fixed the auto color procedure? if yes plz pm me.
the banking counter is fixed in version 14.
thanks.
Dracody
05-10-2008, 09:20 PM
Lol nice new avatar MK, Starblaster's style!!!:D looks awsome. I wanna get one :redface:
mager guy
05-10-2008, 10:14 PM
I was checking on my miner and it came up with the error of my character not having a pickaxe well i logged on and i found my character in the quiz masters random. The script did not recognize the random and i have my nickname set up correctly.
ryanhoffman5
05-11-2008, 05:53 PM
yay finally got it working nearly flawlessly, i am went through i think almost every problem on this thread and fixed almost all of them, i'll post proggies soon, i'm also going to start work on a dumbed down version of how to do exactly what i did to make it work, should have that up soon, should i post in here or a new thread?
dvhrld
05-11-2008, 06:16 PM
Yup I also have this working flawlessly, it has only had problem this randomSurprise Exam (http://runescape.wikia.com/wiki/Surprise_Exam%21)
I am using 3.15b rev. 15 with the fix by Timer... thank you.
Here is my latest proggy
Varrock east mine and banker version 13.0
created by MasterKill
Last status found in script:
Script succesfully ended. All players False.
Script Report:
Iron Mined : 56
Times Banked : 2
Responds Made : 0
Player Report:
*********
Iron Mined : 56
Location : Mining Full Load
Mining level : 37
ryanhoffman5
05-11-2008, 07:33 PM
Here is the first proggy as i am running the script still will update proggies more as more come in, i'm just gonna keep running this forever lol
[Time Running: 52 Minutes and 59 Seconds]
[Iron Mined: 167]
[Times Banked: 0]
[Respond[s] made: 0]
[Mining 190.344421455223 Iron a hour]
don't know why the bank times says zero cuz it banks perfectly, timer's fix works pretty damn flawlessly, haven't had any trouble with randoms yet either, thanks for the great script MK and everyone else who helped on this thread, i'll be writing the dumbed down walkthrough for this soon. :)
MasterKill
05-11-2008, 08:40 PM
yay finally got it working nearly flawlessly, i am went through i think almost every problem on this thread and fixed almost all of them, i'll post proggies soon, i'm also going to start work on a dumbed down version of how to do exactly what i did to make it work, should have that up soon, should i post in here or a new thread?
NOT here and NOT in a new thread. you can allways pm it to me and if I use it I'll credit you of course.
I AM TO LAZY TO FIX THE AUTO COLOR FUNCTION
People the auto coloring is broken! thats all! (if some one fix the auto color function pm me plz)
I allready improved the bank finding and I made a PERFECT form.
@demon0254: CLICK HERE (http://www.villavu.com/forum/showthread.php?t=28487?t=31006)
Bubix
05-11-2008, 08:41 PM
Bumix did you fixed the auto color procedure? if yes plz pm me.
the banking counter is fixed in version 14.
thanks.
Nope. I just fixed the SMART world error and walking to mine (but not working so good :D), what was writen in this Thread ealrier. Thats all ;)
Auto coloring is okey, i dont see any problems ;)
BTW nothing much but..
[Time Running: 1 Hours, 19 Minutes and 56 Seconds]
[Iron Mined: 377]
[Times Banked: 0]
[Respond[s] made: 5]
[Mining 284,840850526553 Iron a hour]
*** = [181 Iron Mined] [active? False] [Location: No Pickaxe!]
*** = [112 Iron Mined] [active? False] [Location: Lost While Mining]
*** = [84 Iron Mined] [active? False] [Location: Lost While Mining]
MasterKill
05-11-2008, 08:46 PM
@bubix: it is the auto color wich is fucking up ;)
oh btw here is a preview of the form:
http://img225.imageshack.us/img225/4391/bestformeverjr7.png
shadowmarkus
05-11-2008, 08:51 PM
@bubix: it is the auto color wich is fucking up ;)
oh btw here is a preview of the form:
http://img225.imageshack.us/img225/4391/bestformeverjr7.png
looks good mate, when do you expect it to be done?:) Cant wait to start my new miner with it:)
jeffreytuner
05-12-2008, 12:43 AM
imma try it out tonight
Bubix
05-12-2008, 04:31 AM
oh... now i ses :)
well another progie :p
[Time Running: 2 Hours, 4 Minutes and 8 Seconds]
[Iron Mined: 558]
[Times Banked: 0]
[Respond[s] made: 7]
[Mining 270,773378264532 Iron a hour]
*** = [56 Iron Mined] [active? False] [Location: Not Found Mine]
*** = [308 Iron Mined] [active? False] [Location: Lost While Mining]
*** = [194 Iron Mined] [active? False] [Location: Lost While Mining]
/~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
| SRL 4 Randoms Report |
| www.srl-forums.com |
|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|
| SRL Logs : 5 |
| Fights : 3 |
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~/
P.S. new form loks realy great ;) Waiting for fix :)
phatal
05-13-2008, 01:26 AM
ok, it runs fine until it gets to the mine.
it says over and over again:
(!) We got lost but found the mine DDTM =D
and never mines anything.
any tips?
the scar noob
05-13-2008, 09:44 AM
Ah! you released that form thingy! Also with that music?:p
-Tsn.
MasterKill
05-13-2008, 12:04 PM
Ah! you released that form thingy! Also with that music?:p
-Tsn.
It will be released today or tomorrow, and yes with the music :)
the scar noob
05-13-2008, 12:17 PM
It will be released today or tomorrow, and yes with the music :)
Wooooooot! I like that beat (h)
Btw, you listened to me! I told you about that proggy thingy, isn't it?:rolleyes:
-Tsn.
MasterKill
05-13-2008, 12:57 PM
Wooooooot! I like that beat (h)
Btw, you listened to me! I told you about that proggy thingy, isn't it?:rolleyes:
-Tsn.
It was not just you, but you helped getting it in :)
MasterKill
05-13-2008, 01:02 PM
VERSION 14 RELEASED
Whakey
05-13-2008, 01:41 PM
FIRST!!111!! :D
I was reading that post and wondering, is it released? Then i checked first page and omg :O vers 14 !!! GOing to try it out right now!!
NVM WOrks now
We have a problem! Wheres the bank pin?
TheChineseMan
05-13-2008, 02:09 PM
hey masterkill when i try to use version 14 it just checks to see if the files are downloaded and then just closes down any ideas?
MasterKill
05-13-2008, 02:27 PM
hey masterkill when i try to use version 14 it just checks to see if the files are downloaded and then just closes down any ideas?
It should work fine?
@Whakey: delete your pin...
W0uter
05-13-2008, 02:46 PM
hey masterkill when i try to use version 14 it just checks to see if the files are downloaded and then just closes down any ideas?
It was the same by me: But there was standing: Restart script!
Hope I helped :P
For me it works fine :D
I'll post a proggy when I have a nice one :P
shadowmarkus
05-13-2008, 02:59 PM
dosent work that well mate. When it tryies to find the mine (if it hasent follwed the path correctly) it will click the mining symbol on the minimap, and just stand there -.-, too far away from the iron rocks, and when trying to bank, it will go to the varrock museum?:S
Markus
FSGood74
05-13-2008, 03:58 PM
mine thinks its in the mine then realizes its not n wanders around looking for the mine
the scar noob
05-13-2008, 06:35 PM
VERSION 14 RELEASED
Including the beat?(h)
Nice work!
-Tsn.
EDIT: You may teach me how to work with Magic Music=D
W0uter
05-13-2008, 06:48 PM
I don't have a really good proggy jet, but this is the best till now:
[Time Running: 1 Hours, 22 Minutes and 15 Seconds]
[Iron Mined: 216]
[Times Banked: 9]
[Respond[s] made: 0]
[Mining 164,276426353944 Iron a hour]
I'll post more proggy's later on :D
mager guy
05-13-2008, 09:20 PM
Um masterkill this script isn't working for me. I have the most recent java version i have the correct worlds. I can run other smart scripts like forefeathers but when i try to run yours i get the awesome forum to come up but then when i hit start script it just closes out completely. Also i tried to delete a character and the delete button came up with a error that said out of range.
Thanks for any help mager guy
Bubix
05-13-2008, 09:46 PM
Thanks for new wersion :)
Going to test it tonight :)
P.S. form is so great ;) and the music ahh nice ;) very good work MK ;)
spirosoccer2007
05-13-2008, 09:49 PM
Reserved For Proggie
Bubix
05-14-2008, 04:28 AM
[Time Running: 4 Hours, 24 Minutes and 55 Seconds]
[Iron Mined: 922]
[Times Banked: 35]
[Respond[s] made: 5]
[Mining 209,380435268063 Iron a hour]
*** = [279 Iron Mined] [active? False] [Location: Not Found The Bank] (West varrock enterance)
*** = [279 Iron Mined] [active? False] [Location: Lost Around Bank] (This char was at were is the Gertrudes cat quest strats on south varroc)
*** = [224 Iron Mined] [active? False] [Location: Not Found The Bank] (DEAD)
*** = [140 Iron Mined] [active? False] [Location: Lost Around Bank](This char was at were is the Gertrudes cat quest strats on south varroc)
/~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
| SRL 4 Randoms Report |
| www.srl-forums.com |
|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|
| SRL Logs : 7 |
| Boxes Solved : 4 |
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~/
MasterKill
05-14-2008, 05:42 AM
*bubix his proggy can be seen in the iron form*
Try to make better proggys :p
(I need to know what is going wrong when it ends up at the mages :s)
Bubix
05-14-2008, 12:40 PM
he he ;)
Lost tondays progie, but it wasn`t anything much about 2h.
there is a one mistake in scirpt (maybe its SRL?), when pickaxe brokes or losts head, he goes to bank deposit the old pick, withdraw new, and thats all, and script says that he don`t have pickaxe!
He dosent "wield" it. and char goes to "Active?=False"
One char again found @ Varroc South enterance.
And one found @ Varroc museum waht is North of East bank (upper building where dummys at)
MasterKill
05-14-2008, 12:41 PM
I know why its waking to the evil magers, I'm fixing atm.
Bubix
05-14-2008, 12:53 PM
heh i saw it by my own. :D how he goes there :p
GL on fixing ;)
Mr beat
05-14-2008, 04:44 PM
yay teh newest version. Back to members to auto!
Woo I ain't Seen this in along time, I'll have a flick through MK ;)
EDIT: The Form Turns Me on it really makes me want to **** it, Looks amazing you added a smexy form!
Mr beat
05-14-2008, 06:08 PM
wow help me :"(,
first: no member worlds >3
second: When i start teh script it says loading smart.runescape and then boom he shut scar down off.
:( als je me helpt krijg je misschien een kusje!
Dracody
05-14-2008, 06:42 PM
Lol , sweet form, pretty awsome, the music is cool also :D I will test it as soon as I can :D
EDIT: I was wondering, why not use a findMine with a DTM or a mining symbol DTM or something like that so it doesnt get lost?
Bubix
05-15-2008, 01:33 PM
wow help me :"(,
first: no member worlds >3
second: When i start teh script it says loading smart.runescape and then boom he shut scar down off.
:( als je me helpt krijg je misschien een kusje!
read some pages early, theres said how to fix it, and its SMART fault.
Mr beat
05-15-2008, 02:21 PM
read some pages early, theres said how to fix it, and its SMART fault.
thx it works now
mager guy
05-15-2008, 09:09 PM
Can you post a link to that page?
Thanks i looked on pages 121 122 123 and didn't find it.
Is this the right fix? I found it in Narcle's autofight
Fix by bak2lumbyplz
IF you have done that and scar still closes, open up your handy dandy script, (might wanna make another copy just in case somehow you stuff this up)
go down to line 1242, it might say something like this
"SmartSetupEx(worldnumber, false, signed);"
if thats the case, copy the following over lines 1242 - 1245
SmartSetup('mn3', False, True);
While Not (SmartReady) Do
Wait(100);
SetTargetDC(SmartGetDC);
If Not (LoggedIn) Then
While Not (SmartGetColor(386, 249) = 65535) Do
Wait(100);
setupsrl;
...
success ?
spirosoccer2007
05-17-2008, 04:26 PM
I get this error now. It was working fine all day. I have updated worlds list latest revision, have scar 3.15b and it starts fine and then when it logs in it checks my combat and mining then when it looks for my rune pickaxe it cant find it. I got the error it gives me.I was running this for 5 hours!!!!!!!
Checking your Pickaxe...
You do not have a pickaxe! Plz get a pickaxe to mine iron.
I have the pickaxe wielded. Is there a fix that i can apply or something to fix this error.
Thank You In Advance
issamawan
05-17-2008, 05:20 PM
hey yo masterkiller....long time no talk....ive got ur Version 14 running as we speak...ive just noticed this thing....it says 'found mine...starting to mine'...but it isnt even there....then after a few seconds moves forwards abit....stops 4 another few seconds....then finally gets to the mine....once it even went bak to the bank....but as long as it continues to work....im fine with it :D....proggys coming soon,
issamawan
MasterKill
05-17-2008, 06:31 PM
added fail saves
updated auto color
14.1 will be released tomorrows
spirosoccer2007
05-17-2008, 06:42 PM
Is that gonna fix the error with the pickaxe????
op_ivy_freak
05-17-2008, 07:30 PM
When i run it on the 3rd run, it starts mining copper, for like half the inventory then goes back to iron.
MasterKill
05-18-2008, 06:39 AM
whats with the whole download thing it takeing to long for me and not working
without that 3 files you can't run the script. buy yourself better internets.
hey masterkill
i like the new form + music:D
tough i found a bug..
when it walks to the mine.. and it is right to the mine (not in the mine.. but on the road next to it)
debug says:
prolly found the mine, try entering now...
succesfully enterd the mine.
[MineThaLoad]
PickColors = [5195573,4998195,4735281,4472366,6642500];
Run activated.
Starting mining...
and it searches for the ores..
but it cant find them, because were not in the mine:s
overall.. a great script:)
EDIT:
never mind.. im so dumb..
it corrected itsself:)
sorry:duh:
expect a proggy later
really good script masterkill;)
rep+
EDIT2:
it seems to get that error at the mine always..
and often.. it walks back to the bank:(
thats useless time
and it went to the museum a time:(
EDIT3:
now 2 of my players went to that mage thing.. with those lvl 7 and lvl 20 mages (forgot the name), but it is off to lumby :s
EDIT4:
walking fails for me
[Time Running: 1 Hours, 40 Minutes and 19 Seconds]
[Iron Mined: 362]
[Times Banked: 16]
[Respond[s] made: 0]
[Mining 196,140906591806 Iron a hour]
= [195 Iron Mined] [active? True] [Location: In The Bank]
= [167 Iron Mined] [active? True] [Location: In The Bank]
= [0 Iron Mined] [active? True] [Location: In The Bank]
issamawan
05-18-2008, 05:46 PM
hey masterkill
i like the new form + music:D
tough i found a bug..
when it walks to the mine.. and it is right to the mine (not in the mine.. but on the road next to it)
debug says:
prolly found the mine, try entering now...
succesfully enterd the mine.
[MineThaLoad]
PickColors = [5195573,4998195,4735281,4472366,6642500];
Run activated.
Starting mining...
and it searches for the ores..
but it cant find them, because were not in the mine:s
overall.. a great script:)
EDIT:
never mind.. im so dumb..
it corrected itsself:)
sorry:duh:
expect a proggy later
really good script masterkill;)
rep+
EDIT2:
it seems to get that error at the mine always..
and often.. it walks back to the bank:(
thats useless time
and it went to the museum a time:(
EDIT3:
now 2 of my players went to that mage thing.. with those lvl 7 and lvl 20 mages (forgot the name), but it is off to lumby :s
EDIT4:
walking fails for me
[Time Running: 1 Hours, 40 Minutes and 19 Seconds]
[Iron Mined: 362]
[Times Banked: 16]
[Respond[s] made: 0]
[Mining 196,140906591806 Iron a hour]
= [195 Iron Mined] [active? True] [Location: In The Bank]
= [167 Iron Mined] [active? True] [Location: In The Bank]
= [0 Iron Mined] [active? True] [Location: In The Bank]
i agree man...totally...exact same thing happens to me....every word y word thing he has said...i died...it follows the wall to get bak to bank....and it says (started mining) when it isnt even close...but still a gud scripter,
issamawan
Griff
05-18-2008, 09:41 PM
SCAR just exits when i try to run it. I get the form, click run script, then scar exits
MasterKill
05-19-2008, 05:40 AM
VERSION 14.2 RELEASED
general walking update
FSGood74
05-19-2008, 07:18 AM
saweeet runing it now wll post prggy in the morning
shrubie1
05-19-2008, 09:59 AM
sik script testing now. i know im not the first tho lol. should be good after all ur killer scripts.
roscomonkey
05-19-2008, 03:29 PM
still doesnt work, finds mine for the first load, then small bug to get to bank walks at the side of castle wall first then manages to bank, then when it tries to find the mine again it fails and logs out becoz it hasnt found it, i would try to help but it would be an epic fail. I really like this script masterkill, but it needs updating again to get that flawless walking. I will test again if u want to update it.
kemico2
05-19-2008, 04:04 PM
[Time Running: 2 Hours, 40 Minutes and 59 Seconds]
[Iron Mined: 792]
[Times Banked: 28]
[Respond[s] made: 0]
[Mining 297.592239555908 Iron a hour]
krypton48 = [792 Iron Mined] [active? False] [Location: Out Of PickAxes]
Seemed like it could of ran forever if i had more pic axes. It was all on one character too.
roscomonkey
05-19-2008, 06:12 PM
it failed when i used it but ill try again
roscomonkey
05-19-2008, 06:32 PM
sorry for double post but its working now, i dont know what was wrong with the first attempt, great script earning me lots of money!
Baked0420
05-19-2008, 07:33 PM
sik script testing now. i know im not the first tho lol. should be good after all ur killer scripts.
that's why his name is Masterkill lol, about to try this newer version out, last verison I think it was just liked to piss me off, my guy would walk in and around the museum. Not sure if it was first time my character would walk to bank, or if it was just random, but it always seemed to do it. This version will hopefully be better. I'll post a progress report.
{Reserved for proggy}
kevin1993
05-19-2008, 09:14 PM
Dear User,
Your post count has been reset on account of your mass of spam posts. Please take the time to read this thread before posting again.
http://www.srl-forums.com/forum/images/satellite/buttons/expand.gif http://www.srl-forums.com/forum/images/satellite/misc/sticky.gif http://www.srl-forums.com/forum/images/satellite/statusicon/lastupost.gif (http://www.srl-forums.com/forum/showthread.php?goto=lastupost&t=20056) Sticky: Attention Spammers and Leechers... (http://www.villavu.com/forum/showthread.php?t=18341)
http://www.srl-forums.com/forum/images/satellite/rating/rating_5.gif RAM
Cheers,
Hobbit.
is it posibal for you to make it just a pure firemaker not a wc then firemaker
i change
log color rite cause i got 130k willows
works good ty
4 hr so far of fishing post progi later
ty for idea 70 mining atm lol on my lvl 3 btw got 42 rc atm as well
gona try it out now post back later
i got like 32 error to... fix plz
i didnt work got line 1 error
going to try now post progie in lil bit
edit: line 33 error
works great ty
looks pritty promising
whats with the whole download thing it takeing to long for me and not working
This crap happened to me too! You should go to your programs list and delete the infected programs from there.
A leecher is someone who takes but doesn't give. Basically, you take scripts but never make them. I myself am trying to learn the programming language. Leechers are barred to the free for all scripts.
Wizzup's stuff tends to be pretty awesome.
P.S.
I thought that you were supposed to auto your main to raise his stats.
It is called an anagram dude
THEY DELETED THE WILD!!! How are you supposed to have a challenge! I'm level 102 and I have nothing to fight (im F2P)
downloaded and did every thing when i run script it just shuts down after it dose runescape.smart compile idk what to do
Awesome thread!!! Thanks for helping a n00b like myself
ryanhoffman5
05-19-2008, 09:19 PM
Varrock east mine and banker version 14.0
created by MasterKill
Last status found in script:
Script succesfully ended. All players False.
Script Report:
Time Running : 10 Minutes and 2 Seconds
Iron Mined : 0
Times Banked : 0
Responds Made : 0
Player Report:
monkeytokn
Iron Mined : 0
Location : Lost While Mining
Mining level : 36
letherbgrow
Iron Mined : 0
Location : Not Found Mine
Mining level : 21
toknbowls420
Iron Mined : 0
Location : Not Found Mine
Mining level : 11
Respond That Are Made:
so here is my proggy, all got lost, one didn't leave bank, one left bank and got to mine, mined eight and stopped, one ran the just south of the grass after the south east varrock mine. I'm just gonna try running it again and watching it. we'll see what happens
MasterKill
05-20-2008, 06:39 AM
so here is my proggy, all got lost, one didn't leave bank, one left bank and got to mine, mined eight and stopped, one ran the just south of the grass after the south east varrock mine. I'm just gonna try running it again and watching it. we'll see what happens
lol thats the worst proggy i ever saw. ru running low detail? runescape brightnes to the brightest? pc screen 32 bit?
andrewrox424
05-20-2008, 06:45 AM
Script Report:
Time Running : 1 Hours, 53 Minutes and 16 Seconds
Iron Mined : 585
Times Banked : 21
Responds Made : 8
Okay, so I went up two levels but. I got a random. Then, when I reset and tried to run again it went past the mine, and down to the fence :( . Anything I've done wrong?
shrubie1
05-20-2008, 10:42 AM
i tested it for a lil bit last night and it did 6 loads pefectly. will get better proggy soon. only thing is i set it to do 3 loads a script and im not sure but i dont think it logged.
running script again... jus finishing up 3rd load.
EDIT: nope, even though i set it to do 3 loads per login it didnt log out after 3 loads.
Bubix
05-20-2008, 11:56 AM
Thanks for update MK ;)
My autoers are runnung already :p
Psoting my progie when it stops :p
I hope they woun`t stop some big time! :D
mr_cookie
05-20-2008, 04:12 PM
Whoops, forgot proggy :o It was arround 4 hours.
Oh and btw, it almost gets every time stuck at the end of the road (south-east of the mine), Some times only the first load works (36 mining on the first account 27 on the second account while they all started arround 20 - 23.
So the first load works good, then it ruins all trips.
Please fix this ( or i picked a wrong version somehow :rolleyes: ) because i still like this script :)
ry0240
05-20-2008, 06:38 PM
[Time Running: 14 Hours, 28 Minutes and 44 Seconds]
[Iron Mined: 4187]
[Times Banked: 155]
[Respond[s] made: 14]
[Mining 289.40729220667 Iron a hour]
Bubix
05-20-2008, 06:39 PM
nice progie ry ;)
here is mine:
[Time Running: 5 Hours, 0 Minutes and 19 Seconds]
[Iron Mined: 1453]
[Times Banked: 53]
[Respond[s] made: 4]
[Mining 290,945497778612 Iron a hour]
*** = [325 Iron Mined] [active? False] [Location: No Pickaxe!]
*** = [458 Iron Mined] [active? False] [Location: No Pickaxe!]
*** = [391 Iron Mined] [active? False] [Location: Lost While Mining]
*** = [279 Iron Mined] [active? False] [Location: Lost While Mining]
/~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
| SRL 4 Randoms Report |
| www.srl-forums.com |
|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|
| SRL Logs : 12 |
| Fights : 3 |
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~/
MasterKill
05-20-2008, 07:47 PM
ry0240, your proggy is in the iron miner now,
thanks people!
mager guy
05-20-2008, 10:16 PM
I always seem to find my characters between the varrock east bank and the barbarian village. I'm not really sure how they get there.
Chemonk
05-21-2008, 12:06 AM
Sorry, don't have proggy since I ran it on my other computer but the script ran flawlessly. I had to stop it early though because my pickaxe head flew off and it didn't get it back. Just kept trying to mine with no head. :(
phatal
05-21-2008, 02:13 AM
i don't know if i'm doing something wrong or not, but it my miners get through 1 load and then get lost or something.
so far out of about 5 tries, the longest time they've ran is 20 minutes.
03699
05-21-2008, 08:21 PM
There was an update last night but i dont no weather it made my problem.
I could run the script for about an hour befor i got a random befor last night.
After last nights update (which i dont think was a majour one) my character walks straight past the mine when he gets to his seccond load. (every time) :mad:
03699
mr_cookie
05-22-2008, 08:48 AM
Forget what i said, it happens now like 1 of the 5 times when i start the script :)
A proggy, and not a small one :O
[Time Running: 11 Hours, 6 Minutes and 4 Seconds]
[Iron Mined: 2515]
[Times Banked: 91]
[Respond[s] made: 29]
[Mining 226,767268782104 Iron a hour]
*** = [279 Iron Mined] [active? False] [Location: Lost Around Bank]
*** = [474 Iron Mined] [active? False] [Location: Mining Full Load]
*** = [810 Iron Mined] [active? True] [Location: In The Bank]
*** = [952 Iron Mined] [active? True] [Location: In The Bank]
I know it isn't a scar script but who cares :D
Haldope
05-22-2008, 09:14 PM
Amazing script, well done. Sorry i dont have a proggie for you. It ran for around 5 hours but my laptop shut itself down due to low power. Its ran perfectly every time but once. It got to the mines and starting mining the rocks. Then it started spamming 'ssssssssssssssssssssssssssssssss' over and over. I dunno what happened. Any ideas?
VivaLaRofl
05-22-2008, 09:30 PM
Uhm. Why the hell can't I use it using members worlds..?
sleziak
05-22-2008, 10:02 PM
When i run it then scar just closes need help!!
VivaLaRofl
05-22-2008, 10:06 PM
When i run it then scar just closes need help!!
Check in he other forums. People always post there.
The S.M.A.R.T forums wil most likely be your problem solver.
ry0240
05-22-2008, 11:13 PM
Hey Masterkill. could you possibly add an option to powermine on certain characters? im trying to make my army bigger but the only other powerminer out there (timoththegreats) has problems for me..
bennyty
05-23-2008, 12:36 PM
hey MasterKill
I have Scar Divi 3.15 repos 16 I start your script, fill out the form, and hit start script
then the form closed
Then in the debug log under the ironminer thing it says loading Runescape.Smart... then scar closed
nothing else happened
(cant get you other ironminer to work either (Varrock_East_Smart_miner_By_MK_V12_rev14.scar) and i cant find the site)
can you help me?:)
update your worlds.ini
look for more info in the smart section;)
issamawan
05-23-2008, 12:52 PM
hey MasterKill
I have Scar Divi 3.15 repos 16 I start your script, fill out the form, and hit start script
then the form closed
Then in the debug log under the ironminer thing it says loading Runescape.Smart... then scar closed
nothing else happened
(cant get you other ironminer to work either (Varrock_East_Smart_miner_By_MK_V12_rev14.scar) and i cant find the site)
can you help me?:)
yea that happened with me 2 when i was trying to use the top 5 worlds....world 1was the main one i was trying to use...but no such luck...it kept closing...so i used swedish worlds...try world 117,
issamawan
Naike
05-23-2008, 02:01 PM
This script works pretty well! 70 mining in 32k
VivaLaRofl
05-23-2008, 04:32 PM
MK, how can I edit it to make it useable with Members worlds?
shrubie1
05-23-2008, 11:37 PM
i know its an old problem but ive lost 3 pick heads in 2 days. thast 60k >.< nothing major but it would be great if you could add update to find and reattach the heads? there are quite a few scripts that have it so it musn't be that hard
cstrkd1
05-24-2008, 02:03 AM
im getting this error every time
[Runtime Error] : Exception: Canvas does not allow drawing in line 1704 in script C:\DOCUME~1\Cathy\LOCALS~1\Temp\Varrock_East_Mine_ And_Banker_By_MasterKill_V14.2.scar
shrubie1
05-24-2008, 04:37 AM
this was with one player :
[Time Running: 4 Hours, 28 Minutes and 13 Seconds]
[Iron Mined: 1250]
[Times Banked: 45]
[Respond[s] made: 16]
[Mining 280.308862992503 Iron a hour]
kart ripper = [1250 Iron Mined] [active? True] [Location: In The Bank]
MasterKill
05-24-2008, 06:32 AM
i know its an old problem but ive lost 3 pick heads in 2 days. thast 60k >.< nothing major but it would be great if you could add update to find and reattach the heads? there are quite a few scripts that have it so it musn't be that hard
lol the pickaxe head find function is a function by SRL. that's a shame :p And nice proggy btw :)
@cstrkd1: Try to reinstal scar and srl
MK, how can I edit it to make it useable with Members worlds?
I say don't use it in members, If something hapends with your account then it's not my foult.
Delete:
1169 Case World Of
1170 1, 3, 4, 5, 7, 8, 10, 11, 13, 14, 15, 16, 17, 19, 20, 21, 25, 29, 30, 32, 33,
1171 34, 35, 37, 38, 40, 41, 43, 47, 50, 51, 52, 55, 57, 61, 62, 63, 67, 68, 72,
1172 73, 74, 75, 80, 81, 85, 86, 87, 90, 93, 94, 95, 96, 101, 102, 105, 106, 107,
1173 108, 109, 113, 117, 118, 119, 123, 125, 126, 127, 128, 133, 134, 136, 141,
1174 142, 149, 152, 153, 154, 155: WriteLn('Correct non-member world');
1175 Else
1176 Begin
1177 ShowMessage('Wrong world, make sure it is non members');
1178 Exit;
1179 End;
1180 End;
issamawan
05-24-2008, 12:43 PM
wat were the chances....with such a gr8 script and sooo many ppl sing it i knew i wud come across someone using it in the end...i spotted two ppl using it....one by the name of L 3m0n and anothr by the name of kar sumthing....it was hilarious...i just stood there....dont worry....didnt report...but it was funny,
issamawan
loliker123
05-24-2008, 04:44 PM
PLZ HELP FAST after i run script the player setup appears but when i press start script in player setup window after like 10 secs scar exit. :mad: :mad: :mad: :mad:
phatal
05-24-2008, 05:55 PM
PLZ HELP FAST after i run script the player setup appears but when i press start script in player setup window after like 10 secs scar exit. :mad: :mad: :mad: :mad:
you have to update your world.ini file...
got to the SMART help section, tons of people have this problem.
Infidel00
05-24-2008, 10:08 PM
[Time Running: 7 Hours, 54 Minutes and 33 Seconds]
[Iron Mined: 1588]
[Times Banked: 57]
[Respond[s] made: 20]
[Mining 201.030216563219 Iron a hour]
^ ^
That's what I have so far, it's not done running yet and I do not plan to stop it till my characters are all lost or can not mine ;)
Looks great so far though, love the new mining.
ry0240
05-24-2008, 10:37 PM
[Time Running: 20 Hours, 16 Minutes and 20 Seconds]
[Iron Mined: 4457]
[Times Banked: 165]
[Respond[s] made: 49]
[Mining 220.704831799223 Iron a hour]
shrubie1
05-25-2008, 12:01 AM
it just finsihed mining me 7.5k iron in 3 days. now to mine 15k coal.
MasterKill
05-25-2008, 07:43 AM
thanks guys,
ry your updated, if you know what I mean
Infidel00
05-25-2008, 11:05 AM
[Time Running: 11 Hours, 32 Minutes and 22 Seconds]
[Iron Mined: 2309]
[Times Banked: 83]
[Respond[s] made: 20]
[Mining 200.300754749552 Iron a hour]
Stopped it a second ago since all but one character ended up getting lost at the Wizard Tower. Other than that it one did get lost at the museum, which seems to be a hot spot for my characters to get lost at as well :(
Runeman
05-25-2008, 09:24 PM
After I've set everything up, SCAR just quits and does nothing more.
HELP!
Powered by vBulletin® Version 4.2.1 Copyright © 2024 vBulletin Solutions, Inc. All rights reserved.