yes i kinda rushed this release so it may have a few bugs
Printable View
yes i kinda rushed this release so it may have a few bugs
umm just a question. What lvl does ur characters have to be to run the script??
I've just tryed your new version 1.3 and theres a bit of a problem its saying it finds gasses but there not there.
Found: 416 gas pixels
Found gas!.
Then when it gets to the bank it stops working because it gets this error.
[Runtime Error] : Out Of Range in line 1632 in script.
Prog[13]:= ('| Found : ' + IntToStr(Gasses) + ' Gasses');.
This is the line its on about. Hope you can sort it soon cuz i wanted to give proggy :p .
this script looks great, when i gain a few more levels on my miners i will definitely use it
/----------------------------------------\
| JuKKa's Guild Miner Script! |
|------------ Mining Report -------------|
| Worked: 5 Hours, 56 Minutes and 22 Seconds|
| Mined : 1075 Coals |
| Mined : 0 Miths |
| Gained: 53750 Exp |
| Banked: 43 Loads |
|------------ Per Hour Report -----------|
| Coals : 180,984894542393 Per Hour |
| Miths : 0 Per Hour |
| Exp. : 9049,24472711967 Per Hour |
| Banked: 7,23939578169574 Per Hour |
|------------- Misc Report --------------|
| Banked: 8 Gems |
| Stouts: 0 Drank |
| Found : 0 Gasses |
| Responded: 0 Times |
|------------ Players Report ------------|
| #: 0 Active: T - Mining Level: 71; Coal: 246; Mith: 0; Gained: 12300; Banked: 10; Location: To Mine;
| #: 1 Active: F - Mining Level: 68; Coal: 0; Mith: 0; Gained: 0; Banked: 1; Location: Bank;
| #: 2 Active: T - Mining Level: 68; Coal: 196; Mith: 0; Gained: 9800; Banked: 8; Location: Bank;
| #: 3 Active: T - Mining Level: 62; Coal: 212; Mith: 0; Gained: 10600; Banked: 8; Location: Bank;
| #: 4 Active: T - Mining Level: 62; Coal: 214; Mith: 0; Gained: 10700; Banked: 8; Location: Bank;
| #: 5 Active: T - Mining Level: 61; Coal: 207; Mith: 0; Gained: 10350; Banked: 8; Location: Bank;
\----------------------------------------/
/~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
| SRL 4 Randoms Report |
| www.srl-forums.com |
|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|
| SRL Logs : 11 |
| Fights : 2 |
| Talks : 3 |
| Dwarfs : 1 |
| Old Men : 1 |
| Boxes Solved : 3 |
| Mods Found : 1 |
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~/
Freaky i only slept 6 hours today...
/----------------------------------------\
| JuKKa's Guild Miner Script! |
|------------ Mining Report -------------|
| Worked: 6 Hours, 26 Minutes and 14 Seconds|
| Mined : 1187 Coals |
| Mined : 0 Miths |
| Gained: 59350 Exp |
| Banked: 44 Loads |
|------------ Per Hour Report -----------|
| Coals : 184,388349514563 Per Hour |
| Miths : 0 Per Hour |
| Exp. : 9219,41747572816 Per Hour |
| Banked: 6,83495145631068 Per Hour |
|------------- Misc Report --------------|
| Banked: 10 Gems |
| Stouts: 0 Drank |
| Found : 0 Gasses |
| Responded: 0 Times |
|------------ Players Report ------------|
| #: 0 Active: T - Mining Level: 71; Coal: 223; Mith: 0; Gained: 11150; Banked: 8; Location: Bank;
| #: 1 Active: T - Mining Level: 68; Coal: 215; Mith: 0; Gained: 10750; Banked: 8; Location: Bank;
| #: 2 Active: T - Mining Level: 68; Coal: 222; Mith: 0; Gained: 11100; Banked: 8; Location: Bank;
| #: 3 Active: T - Mining Level: 62; Coal: 221; Mith: 0; Gained: 11050; Banked: 8; Location: Bank;
| #: 4 Active: T - Mining Level: 62; Coal: 195; Mith: 0; Gained: 9750; Banked: 8; Location: Bank;
| #: 5 Active: T - Mining Level: 61; Coal: 111; Mith: 0; Gained: 5550; Banked: 4; Location: In Minings Guild;
\----------------------------------------/
/~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
| SRL 4 Randoms Report |
| www.srl-forums.com |
|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|
| SRL Logs : 10 |
| Talks : 4 |
| Ricks : 1 |
| Sandwiches : 1 |
| Lamps Solved : 2 |
| Frog Solved : 2 |
| Axes Fixed : 1 |
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~/
The Server is being updated.
Nice script thank you but only 1 problem it doesnt pick up the pickaxe head..
other then that nice script..
Did for meQuote:
Originally Posted by 2pac
Axes Fixed : 1
yesterday it picked up 2
All time 40+
DOWNLOAD VERSION 1.4!!!
- Updated mining!
- No More MISCLICKS!
- Added a few more reportvars (brokenpicks, pickheads lost)
- updated the ores per hour
- fixed findpickhead procedure
- Less right click -> ores
- More Left click -> ores
- ADDED SUPPORT FOR RC!
I kinda rushed this release too so it may have a few bugs. please post if so!
I know for a fact that there MIGHT be 2 bugs:
1) When clicking on rock.
2) While walking to rock.
The second might be more.. Often so to say.
Double poster :P
Nah, I'll be trying this one.
On the previous one I had to remove half of the report, because it wouldn't work otherwise.
REally gr8 script....would post reports however i havent managed to get any yet coz an error occured...but im gonna try the update...
one question whats RC ????
Sorry for the double post however i have a small report...
/----------------------------------------\
| JuKKa's Guild Miner Script! |
|------------ Mining Report -------------|
| Worked: 26 Minutes and 41 Seconds |
| Mined : 52 Coals |
| Mined : 3 Miths |
| Gained: 2840 Exp |
| Banked: 2 Loads |
|------------ Per Hour Report -----------|
| Coals : 116.85393258427 Per Hour |
| Miths : 6.74157303370786 Per Hour |
| Exp. : 6382.02247191011 Per Hour |
| Banked: 4.49438202247191 Per Hour |
|------------- Misc Report --------------|
| Banked: 1 Gems |
| Stouts: 0 Drank |
| Found : 0 Gasses |
| Responded: 0 Times |
| Broken: 0 Picks |
| Lost: 0 Heads |
|------------ Players Report ------------|
| #: 0 Active: F - Mining Level: 64; Coal: 52; Mith: 3; Gained: 2840; Banked: 2; Location: Couldnt Find Bankers;
\----------------------------------------/
When I run the script, it looks to see if I have the Pickaxe equipped (?) but it cannot equip the pickaxe I have (rune)... and since I cannot, the script just logs me out.
Any solutions/fixes?
1.3 works smoothly and correclty for me all the way i get 800+ ore per run. but with 1.4 broken pickaxe - and it doesnt find ores properly.. and when its in the NE part of the mine it trs to click the wront mining symbolQuote:
Originally Posted by JuKKa
/----------------------------------------\
| JuKKa's Guild Miner Script! |
|------------ Mining Report -------------|
| Worked: 7 Hours, 8 Minutes and 56 Seconds|
| Mined : 977 Coals |
| Mined : 53 Miths |
| Gained: 53090 Exp |
| Banked: 49 Loads |
|------------ Per Hour Report -----------|
| Coals : 137 Per Hour |
| Miths : 7 Per Hour |
| Exp. : 7426 Per Hour |
| Banked: 7 Per Hour |
|------------- Misc Report --------------|
| Banked: 10 Gems |
| Stouts: 0 Drank |
| Found : 2 Gasses |
| Responded: 0 Times |
| Broken: 3 Picks |
| Lost: 0 Heads |
|------------ Players Report ------------|
| #: 0 Active: F - Mining Level: 72; Coal: 76; Mith: 13; Gained: 4840; Banked: 4; Location: To Mine;
| #: 1 Active: T - Mining Level: 68; Coal: 231; Mith: 12; Gained: 12510; Banked: 12; Location: Bank;
| #: 2 Active: T - Mining Level: 69; Coal: 264; Mith: 20; Gained: 14800; Banked: 12; Location: Bank;
| #: 3 Active: F - Mining Level: 62; Coal: 27; Mith: 1; Gained: 1430; Banked: 1; Location: In Minings Guild;
| #: 4 Active: T - Mining Level: 62; Coal: 314; Mith: 7; Gained: 16260; Banked: 12; Location: Bank;
| #: 5 Active: T - Mining Level: 61; Coal: 65; Mith: 0; Gained: 3250; Banked: 8; Location: Bank;
\----------------------------------------/
/~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
| SRL 4 Randoms Report |
| www.srl-forums.com |
|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|
| SRL Logs : 15 |
| Fights : 7 |
| Talks : 1 |
| Old Men : 1 |
| Boxes Solved : 2 |
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~/
|------------ Mining Report -------------|
| Worked: 2 Hours, 55 Minutes and 46 Seconds|
| Mined : 432 Coals |
| Mined : 23 Miths |
| Gained: 23440 Exp |
| Banked: 34 Loads |
|------------ Per Hour Report -----------|
| Coals : 147,454252394046 Per Hour |
| Miths : 7,85057362283114 Per Hour |
| Exp. : 8000,75850952878 Per Hour |
| Banked: 11,6051957902721 Per Hour |
|------------- Misc Report --------------|
| Banked: 6 Gems |
| Stouts: 0 Drank |
| Found : 0 Gasses |
| Responded: 0 Times |
| Broken: 16 Picks |
| Lost: 0 Heads |
|------------ Players Report ------------|
| #: 0 Active: F - Mining Level: 69; Coal: 234; Mith: 17; Gained: 13060; Banked: 10; Location: In Minings Guild;
| #: 1 Active: F - Mining Level: 68; Coal: 198; Mith: 6; Gained: 10380; Banked: 24; Location: Couldnt Find Ladders;
Player 0 got classroom random
Player 1 got a broken pick an was standing between bank & ladders.
/----------------------------------------\
| JuKKa's Guild Miner Script! |
|------------ Mining Report -------------|
| Worked: 5 Hours, 46 Minutes and 20 Seconds|
| Mined : 984 Coals |
| Mined : 83 Miths |
| Gained: 55840 Exp |
| Banked: 43 Loads |
|------------ Per Hour Report -----------|
| Coals : 170 Per Hour |
| Miths : 14 Per Hour |
| Exp. : 9673 Per Hour |
| Banked: 7 Per Hour |
|------------- Misc Report --------------|
| Banked: 9 Gems |
| Stouts: 0 Drank |
| Found : 1 Gasses |
| Responded: 0 Times |
| Broken: 0 Picks |
| Lost: 0 Heads |
|------------ Players Report ------------|
| #: 0 Active: T - Mining Level: 72; Coal: 192; Mith: 31; Gained: 12080; Banked: 8; Location: Bank;
| #: 1 Active: T - Mining Level: 69; Coal: 193; Mith: 20; Gained: 11250; Banked: 8; Location: Bank;
| #: 2 Active: T - Mining Level: 69; Coal: 203; Mith: 16; Gained: 11430; Banked: 8; Location: Bank;
| #: 3 Active: T - Mining Level: 63; Coal: 218; Mith: 6; Gained: 11380; Banked: 8; Location: Bank;
| #: 4 Active: T - Mining Level: 63; Coal: 178; Mith: 10; Gained: 9700; Banked: 7; Location: To Mine;
| #: 5 Active: T - Mining Level: 61; Coal: 0; Mith: 0; Gained: 0; Banked: 4; Location: Bank;
\----------------------------------------/
/~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
| SRL 4 Randoms Report |
| www.srl-forums.com |
|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|
| SRL Logs : 10 |
| Fights : 3 |
| Talks : 3 |
| Sandwiches : 1 |
| Capn Hand[s] : 1 |
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~/
When i got back i saw 4 guys using my script
/----------------------------------------\
| JuKKa's Guild Miner Script! |
|------------ Mining Report -------------|
| Worked: 1 Hours, 52 Minutes and 26 Seconds|
| Mined : 347 Coals |
| Mined : 13 Miths |
| Gained: 18390 Exp |
| Banked: 13 Loads |
|------------ Per Hour Report -----------|
| Coals : 185.148955091152 Per Hour |
| Miths : 6.9364161849711 Per Hour |
| Exp. : 9812.36104935527 Per Hour |
| Banked: 6.9364161849711 Per Hour |
|------------- Misc Report --------------|
| Banked: 4 Gems |
| Stouts: 0 Drank |
| Found : 1 Gasses |
| Responded: 0 Times |
| Broken: 0 Picks |
| Lost: 0 Heads |
|------------ Players Report ------------|
| #: 0 Active: F - Mining Level: 65; Coal: 347; Mith: 13; Gained: 18390; Banked: 13; Location: Couldnt Find Bankers;
\----------------------------------------/
I think this deserves a +rep :DQuote:
/----------------------------------------\
| JuKKa's Guild Miner Script! |
|------------ Mining Report -------------|
| Worked: 9 Hours, 50 Minutes and 10 Seconds|
| Mined : 1364 Coals |
| Mined : 0 Miths |
| Gained: 68200 Exp |
| Banked: 53 Loads |
|------------ Per Hour Report -----------|
| Coals : 138.668775239332 Per Hour |
| Miths : 0 Per Hour |
| Exp. : 6933.43876196662 Per Hour |
| Banked: 5.38815622264268 Per Hour |
|------------- Misc Report --------------|
| Banked: 4 Gems |
| Stouts: 0 Drank |
| Found : 3 Gasses |
| Responded: 102 Times |
| Broken: 0 Picks |
| Lost: 0 Heads |
|------------ Players Report ------------|
| #: 0 Active: T - Mining Level: 7; Coal: 720; Mith: 0; Gained: 36000; Banked: 28; Location: Bank;
| #: 1 Active: F - Mining Level: 61; Coal: 500; Mith: 0; Gained: 25000; Banked: 18; Location: In Minings Guild;
| #: 2 Active: F - Mining Level: 6; Coal: 144; Mith: 0; Gained: 7200; Banked: 7; Location: No GameTab;
\----------------------------------------/
/~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
| SRL 4 Randoms Report |
| www.srl-forums.com |
|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|
| SRL Logs : 27 |
| Fights : 1 |
| Talks : 3 |
| Lamps Solved : 2 |
| Certers Solved : 1 |
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~/
Yo how come my mouse goes on the left corner of the Rs screen n just stays there i try 2 move it it goes bak there again.. when it is in da guild?
Also, it reads your mining level as a single digit if there's a 0 in there. You can fix it by finding the level < 59 thing and setting it to like 1
Include file C:\Program Files\SCAR 3.12\includes\SRL\SRL\misc\KYAB.scar does not exist.
Failed when compiling
What to do?
Fix that by downloading the new zero, use the search button.Quote:
Originally Posted by lolpie
Make sure you got the right SRL version, I guess you've downloaded the KYAB version.Quote:
Originally Posted by cheri
Try redownloading SRL 4
U got solars script thats not mine ;)Quote:
Originally Posted by cheri
/----------------------------------------\
| JuKKa's Guild Miner Script! |
|------------ Mining Report -------------|
| Worked: 3 Hours, 11 Minutes and 34 Seconds|
| Mined : 507 Coals |
| Mined : 37 Miths |
| Gained: 28310 Exp |
| Banked: 25 Loads |
|------------ Per Hour Report -----------|
| Coals : 159 Per Hour |
| Miths : 12 Per Hour |
| Exp. : 8866 Per Hour |
| Banked: 8 Per Hour |
|------------- Misc Report --------------|
| Banked: 3 Gems |
| Stouts: 0 Drank |
| Found : 6 Gasses |
| Responded: 0 Times |
| Broken: 2 Picks |
| Lost: 0 Heads |
|------------ Players Report ------------|
| #: 0 Active: T - Mining Level: 72; Coal: 121; Mith: 4; Gained: 6370; Banked: 5; Location: To Mine;
| #: 1 Active: T - Mining Level: 69; Coal: 83; Mith: 4; Gained: 4470; Banked: 4; Location: Bank;
| #: 2 Active: T - Mining Level: 69; Coal: 98; Mith: 14; Gained: 6020; Banked: 4; Location: Bank;
| #: 3 Active: T - Mining Level: 63; Coal: 102; Mith: 10; Gained: 5900; Banked: 4; Location: Bank;
| #: 4 Active: T - Mining Level: 63; Coal: 103; Mith: 5; Gained: 5550; Banked: 4; Location: Bank;
| #: 5 Active: T - Mining Level: 61; Coal: 0; Mith: 0; Gained: 0; Banked: 4; Location: Bank;
\----------------------------------------/
/~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
| SRL 4 Randoms Report |
| www.srl-forums.com |
|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|
| SRL Logs : 6 |
| Talks : 2 |
| Old Men : 1 |
| Lamps Solved : 2 |
| Boxes Solved : 1 |
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~/
While i was skateboarding.
when your not :pQuote:
Originally Posted by JuKKa
im still working on other scripts so i cant post proggies of your and none of my 10 accounts have a level 61 mining
It works fine gettin in to the guild but when it start running to the mining symbol the mouse goes on the left top corner on the Rs screen and it stay there i tryed moving it but it keep go back 2 the same spot doing the same thing.
may i suggest, in your next version, having the map rotated looking south when its in the mine, that would make it obtain more mith and also it would stop it from getting stuck near the door
can someone help with my question ^
It works fine gettin in to the guild but when it start running to the mining symbol the mouse goes on the left top corner on the Rs screen and it stay there i tryed moving it but it keep go back 2 the same spot doing the same thing.
/----------------------------------------\
| JuKKa's Guild Miner Script! |
|------------ Mining Report -------------|
| Worked: 12 Hours, 24 Minutes and 57 Seconds|
| Mined : 2808 Coals |
| Mined : 0 Miths |
| Gained: 140400 Exp |
| Banked: 109 Loads |
|------------ Per Hour Report -----------|
| Coals : 226.157769922592 Per Hour |
| Miths : 0 Per Hour |
| Exp. : 11307.8884961296 Per Hour |
| Banked: 8.77891628260772 Per Hour |
|------------- Misc Report --------------|
| Banked: 23 Gems |
| Stouts: 0 Drank |
| Found : 2 Gasses |
| Responded: 0 Times |
| Broken: 0 Picks |
| Lost: 0 Heads |
|------------ Players Report ------------|
| #: 0 Active: T - Mining Level: 63; Coal: 2808; Mith: 0; Gained: 140400; Banked: 109; Location: In Minings Guild;
| #: 1 Active: T - Mining Level: 0; Coal: 0; Mith: 0; Gained: 0; Banked: 0; Location: ;
| #: 2 Active: F - Mining Level: 0; Coal: 0; Mith: 0; Gained: 0; Banked: 0; Location: ;
| #: 3 Active: T - Mining Level: 0; Coal: 0; Mith: 0; Gained: 0; Banked: 0; Location: ;
| #: 4 Active: T - Mining Level: 0; Coal: 0; Mith: 0; Gained: 0; Banked: 0; Location: ;
| #: 5 Active: T - Mining Level: 0; Coal: 0; Mith: 0; Gained: 0; Banked: 0; Location: ;
\----------------------------------------/
I like this script. Though what I could suggest is that it makes a proggy say every ten mins. rather than every player. In this case my second player was on and had mined quite a bit, but I didn't have a proggy for him.
its not safe to mine 12 hours on one char..Quote:
Originally Posted by Runescapian321
/----------------------------------------\
| JuKKa's Guild Miner Script! |
|------------ Mining Report -------------|
| Worked: 6 Hours, 35 Minutes and 26 Seconds|
| Mined : 1117 Coals |
| Mined : 91 Miths |
| Gained: 63130 Exp |
| Banked: 45 Loads |
|------------ Per Hour Report -----------|
| Coals : 169 Per Hour |
| Miths : 14 Per Hour |
| Exp. : 9578 Per Hour |
| Banked: 7 Per Hour |
|------------- Misc Report --------------|
| Banked: 7 Gems |
| Stouts: 0 Drank |
| Found : 1 Gasses |
| Responded: 0 Times |
| Broken: 2 Picks |
| Lost: 0 Heads |
|------------ Players Report ------------|
| #: 0 Active: T - Mining Level: 72; Coal: 174; Mith: 22; Gained: 10460; Banked: 8; Location: Bank;
| #: 1 Active: T - Mining Level: 69; Coal: 187; Mith: 27; Gained: 11510; Banked: 8; Location: Bank;
| #: 2 Active: T - Mining Level: 69; Coal: 213; Mith: 11; Gained: 11530; Banked: 8; Location: Bank;
| #: 3 Active: T - Mining Level: 63; Coal: 203; Mith: 21; Gained: 11830; Banked: 8; Location: Bank;
| #: 4 Active: T - Mining Level: 63; Coal: 204; Mith: 10; Gained: 11000; Banked: 8; Location: Bank;
| #: 5 Active: T - Mining Level: 62; Coal: 136; Mith: 0; Gained: 6800; Banked: 5; Location: In Minings Guild;
\----------------------------------------/
NO PLAYERS FALSE!
/~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
| SRL 4 Randoms Report |
| www.srl-forums.com |
|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|
| SRL Logs : 11 |
| Fights : 4 |
| Talks : 4 |
| Old Men : 1 |
| Sandwiches : 1 |
| Frog Solved : 1 |
| Boxes Solved : 1 |
| Axes Fixed : 1 |
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~/
This random report is sexy
When my player walks to the guild then walks to the mining symbol when it stops near the mining symbol the mouse keeps going to the top left corner of RS screen and the player is not mining wat do i do ill past the script here and have a look wats wrong with it....
wats wrong with it?Code:{
[------------------------------------------------------------------------------]
[ JuKKa's Guild Miner ]
[------------------------------------------------------------------------------]
[ Instructions: ]
[ 1) HowManyLoads = X; <- Enter how many loads per player? ]
[ 2) Enter SRLStats ID And SRLStatsPW or the script WILL NOT WORK!]
[ 3) Declare Your players! ]
[ 4) Place your players in falador east bank! ]
[ 5) Make SURE your first player makes it to the guild! ]
[------------------------------------------------------------------------------]
[ Features: ]
[ 1) Fully autocolor ]
[ 2) Great axe head finder! ]
[ 3) Great antirandoms uptodate with SRL! ]
[ 4) SEXY Mining procedure ]
[ 5) SUPPORTS STOUT! IF YOU HAVE 59 MINING! ]
[ 6) NOW SUPPORTS MITHRIL ORES! ]
[------------------------------------------------------------------------------]
}
Program GuildMiner;
{.Include SRL/SRL.Scar}
Var
TLostHead, BrokenPicks, GotPick, CoalSearches, Mith, X, Y, Dx, Dy, TStout, ResponceTime, CurrentResponce, CurrentLoad, LadderColor: Integer;
LostHead, TBroken, MiningTol, MiningColor, ScreenShot, Gems, StoutsDrank, RespondedTimes, TRespond, TGas, Gasses, Coal, Gained, Banked: Integer;
PickHeadColors: Array Of Integer;
NoPick, EquipPick, DrinkStout: Boolean;
MiningNow, LastChatterString: String;
Const
HowManyLoads = 4; //How Many Loads Per Player? 3-8 is good.
UseResponder = False;
CheckVersion = True; //Check if script is uptodate? Recommended if your a leecher
TakeScreens = True; //Take Screenshots?
RCMasterNick = '';
SRLStatsID = '2706'; //SRL Stats ID Number, If ur a leecher FUCK OFF.
SRLStatsPW = '*********'; //SRL Stats PW!, If ur a leecher FUCK OFF.
GasTolerance = 10; // Change if find you broken pickaxes!
MinGasChange = 600; //100+ About 200-300 and more. Basically tolerance.
MaxGasChange = 1500; //Max gaspixels it can find.
// Change if find you broken pickaxes!
{-----------------------------------}
CoalRock = 3163461; //DONT EDIT! }
CoalTolerance = 4; //DONT EDIT! }
MithRock = 5979710; //DONT EDIT! }
MithTolerance = 4; //DONT EDIT! }
Version = '14'; //DONT EDIT! }
{-----------------------------------}
Procedure DeclarePlayers;
Begin
HowManyPlayers:= 6;
CurrentPlayer:= 0;
NumberOfPlayers(HowManyPlayers);
Players[0].Name := 'koston';
Players[0].Pass := '***********';
Players[0].Nick := 'kost';
Players[0].Booleans[1]:= True; //Mine Mith ores too?
Players[0].Pin := 1223;
Players[0].Active:= True;
Players[1].Name := 'kissmyass';
Players[1].Pass := '************';
Players[1].Nick := 'kissm';
Players[1].Booleans[1]:= True; //Mine Mith ores too?
Players[1].Pin := 0000;
Players[1].Active:= True;
Players[2].Name := '';
Players[2].Pass := '';
Players[2].Nick := '';
Players[2].Booleans[1]:= True; //Mine Mith ores too?
Players[2].Pin := 0000;
Players[2].Active:= True;
Players[3].Name := '';
Players[3].Pass := '';
Players[3].Nick := '';
Players[3].Booleans[1]:= True; //Mine Mith ores too?
Players[3].Pin := 0000;
Players[3].Active:= True;
Players[4].Name := '';
Players[4].Pass := '';
Players[4].Nick := '';
Players[4].Booleans[1]:= True; //Mine Mith ores too?
Players[4].Pin := 0000;
Players[4].Active:= True;
Players[5].Name := '';
Players[5].Pass := '';
Players[5].Nick := '';
Players[5].Booleans[1]:= True; //Mine Mith ores too?
Players[5].Pin := 0000;
Players[5].Active:= True;
Writeln('Using ' + IntToStr(HowManyPlayers) + ' Players');
End;
Function InBlackInPut(AtPercent: Extended): Boolean;
Var
Black: TPointArray;
AllColors, BlackColors: Integer;
Percent: Extended;
Begin
FindColorsTolerance(Black, 0, MMX1, MMY1, MMX2, MMY2, 0);
AllColors := 26565;
BlackColors := Length(Black);
Percent := BlackColors / AllColors * 100;
If(Percent >= AtPercent)Then Result:= True;
End;
Procedure WalkCompass(Compass: String); Forward;
Function FindFightingRandom: Boolean;
Begin
If(Not Loggedin)Then Exit;
If(FindFight)Then
Result:= True;
End;
Function FindFastRandoms: Boolean; //by WT-Fakawi
var
i: Integer;
begin
If(Not Loggedin)Then Exit;
For I:=1 To 10 Do
Begin
Case I Of
1: If FindDead then
Result := True;
2: If FindMod then
Result := True;
3: If FindMime then
Result := True;
4: If FindMaze then
Result := True;
5: If FindQuiz then
Result := True;
6: If FindDemon then
Result := True;
7: If NoGameTab Then
begin
Result := True;
Writeln('No GameTab!');
Players[CurrentPlayer].loc := 'No GameTab';
Logout;
Players[CurrentPlayer].Active:= False;
Exit;
end;
8: If(FindNormalRandoms)Then
Result:= True;
9:If(InBlack)Then
If(InBlackInPut(50.0))Then
Begin
Result:= True;
Writeln('In Black!');
Players[CurrentPlayer].loc := 'InBlack';
Logout;
Players[CurrentPlayer].Active:= False;
Exit;
End;
10: If(RC)Then
Result:= True;
End;
End;
End;
Procedure VersionChecker;
Var
NewVersion: String;
Begin
If( CheckVersion )Then
Begin
Writeln(' Checking Script Version ... ');
NewVersion:= GetPage('http://freewebs.com/jk2fakefiles/Guildminer/version.txt');
NewVersion := Between('is ',' Thank', NewVersion);
If(NewVersion = Version)Then
Begin
Writeln(' You are UPTODATE! ');
Exit;
End Else
Begin
Writeln(' Your Version Is '+Version+' Newest Version Is '+NewVersion);
OpenWebPage('http://www.villavu.com/forum/showthread.php?t=17826');
TerminateScript;
End;
End;
End;
Procedure Setup;
Var
C, I: Integer;
Begin
ClearDeBug;
Writeln('Successfully compiled');
SetupSRL;
RCMaster := RCMasterNick;
RCSetNick;
LadderColor := 76119;
RoadColor := 6913156;
VersionChecker;
ScriptID := '314';
SRLID := SRLStatsID;
SRLPassword := SRLStatsPW;
If ( SRLID = '' ) Or ( SRLPassword = '' )Then
Begin
Writeln(' You Need a SRL Stats Account, Create One');
OpenWebPage('http://www.stats.srl-forums.com/index.php?action=view_script&id=314');
TerminateScript;
End;
SRLRandomsReport;
DeclarePlayers;
For C:= 0 To HowManyPlayers-1 Do
For I := 0 To 99 Do
Players[C].Integers[I] := 0;
ActivateClient;
Wait(300);
If(Not Loggedin)Then
LoginPlayer
Else NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick,UpChars);
End;
Procedure AutoRetaliate(Act: Boolean);
Var
Dx, Dy: Integer;
Begin
Gametab(1)
If(FindColorTolerance(Dx,Dy,2106255, 580, 364, 715, 394, 10))Then
Begin
If(Not Act)Then
Mouse(657, 376, 30, 10, True)
End Else
Begin
If(Act)Then
Mouse(657, 376, 30, 10, True)
End;
End;
Function LoadPick(Style: String; Int: Integer): Integer;
Begin
Case LowerCase(Style) Of
'dtm':
Begin
Case Int Of //Bronze - Rune DTMS!
1: Result := DTMFromString('78DA63DCC0C0C0A0C9800618914820BD19486' +
'81350B38A0835AB81843E11E6E8A2AA30D39264104156B306BF1A' +
'16200600A5500645');
2: Result := DTMFromString('78DA63BCCFC0C050CA800618914820FD08489' +
'4135073134854A2AAB0B3B464E04256731BBF1A269839D5B8ED62' +
'06D1B7F0BB07A406007C420985');
3: Result := DTMFromString('78DA63CC616460286540038C4824904E05B22' +
'A5155448786328820ABC9C0AF068CD38164356EBB98606ACA09A8' +
'C927AC0600C71D0796');
4: Result := DTMFromString('78DA636C646060D06440038C482490AE0612B' +
'AA82A0C0CDC184490D5D4E257C30833471FB75D4C20BA82083520' +
'73B409A86921AC06009DB10633');
5: Result := DTMFromString('78DA638C676060B06740038C4824904E02124' +
'E04D44403096754154676460C5CC86A22F1AB6102D11140C215B7' +
'5DCC30358EF8D5000060E40523');
6: Result := DTMFromString('78DA6394636460F06440038C4824909604B27' +
'C515518397B317021AB11C3AF068CC581A43F6EBB9840B40490E5' +
'4D408D226135000BAF0415');
End
End;
'colors':
Begin
Case Int Of //Bronze - Rune
1: Result:= 1649206;
2: Result:= 3750206;
3: Result:= 5592411;
4: Result:= 4599856;
5: Result:= 3292722;
6: Result:= 5590329;
End
End;
End;
End;
Procedure Returnlevel(Var PickType, Attack, Mining: Integer);
Begin
Case PickType Of
1:
Begin
Attack := 1;
Mining := 1;
End;
2:Begin
Attack := 1;
Mining := 1;
End;
3:Begin
Attack := 5;
Mining := 6;
End;
4:Begin
Attack := 20;
Mining := 21;
End;
5:Begin
Attack := 30;
Mining := 31;
End;
6:Begin
Attack := 40;
Mining := 41;
End;
End
End;
Function AbleToEquipPick(Pick: Integer): Boolean;
Var
LevelAttack, LevelMining: Integer;
Begin
Returnlevel(Pick, LevelAttack, LevelMining);
If(Players[CurrentPlayer].Level[1] >= LevelAttack)And
(Players[CurrentPlayer].Level[15]>= LevelMining)Then
Begin
Result:= True;
Players[CurrentPlayer].Booleans[0]:= True;
End;
End;
function InIntArr(Num: Integer; I: TIntegerArray): Boolean;
var
C: Integer;
begin
for C:= 0 to Length(I) - 1 do
if(I[C] = Num)then
begin
Result:= True;
exit;
end;
end;
procedure ShrinkArray(var Arr: TIntegerArray);
var
Used: TIntegerArray;
I, Index: Integer;
begin
SetLength(Used, Length(Arr));
if(InIntArr(0, Arr))then
Inc(Index);
for I:= 0 to Length(Arr) - 1 do
if(not(InIntArr(Arr[i], Used)))then
begin
Used[Index]:= Arr[i];
Inc(Index);
end;
SetLength(Used, Index);
Arr:= Used;
end;
Function GetPickHeadColors: Boolean;
Var
FailedPick, I, II, PickDTM, PickStyle: Integer;
ColorTPA: TPointArray;
Label
GetPickColors;
Begin
FindFastRandoms;
GetPickColors:
If(Not Loggedin)Then Exit;
If( EquipPick )Then
GameTab(5)
Else GameTab(4);
Wait(500+Random(500));
For I:= 6 DownTo 1 Do
Begin
PickDTM:= LoadPick('DTM', I);
If(FindDTM( PickDTM, X, Y, MIX1, MIY1, MIX2, MIY2))Then
Begin
FindColorsTolerance(ColorTPA, LoadPick('Colors', I), X, Y, X+30, Y+30, 10);
For II:= 0 To GetArrayLength(ColorTPA)-1 Do
Begin
SetArrayLength(PickHeadColors, GetArrayLength(PickHeadColors)+1);
PickHeadColors[II]:= GetColor(ColorTPA[II].X, ColorTPA[II].Y);
End;
PickStyle:= I;
Break;
End;
End;
ShrinkArray(PickHeadColors);
For II:= 0 To GetArrayLength(PickHeadColors)-1 Do
Begin
//Writeln('PickHeadColor['+IntToStr(II)+']:= '+IntToStr(PickHeadColors[II])+';');
If( PickHeadColors[II] <> 0)Then
Result:= True;
End;
If(Not Result)Then
Begin
Writeln('Getting NEW pickcolors, Failed');
FailedPick:= FailedPick + 1;
If(FailedPick > 4)Then
Begin
Writeln('Coudlnt get pickcolors');
Players[CurrentPlayer].Loc:='Couldnt get pickcolors';
Logout;
Players[CurrentPlayer].Active:= False;
Exit;
End;
GoTo GetPickColors;
End;
Writeln('Picked '+IntToStr(GetArrayLength(PickHeadColors)) + ' Colors');
Case I Of
1: Writeln('You have a Bronze pick axe');
2: Writeln('You have a Iron pick axe');
3: Writeln('You have a Steel pick axe');
4: Writeln('You have a Mith pick axe');
5: Writeln('You have a Addy pick axe');
6: Writeln('You have a Rune pick axe');
End
FreeDTM( PickDTM );
End;
Procedure EquipCurrentPick;
Var
PickTP: TPoint;
I: Integer;
Begin
If(Not Loggedin)Then Exit;
If(Not EquipPick)Then Exit;
GameTab(5);
For I:= 6 DownTo 1 Do
Begin
PickTP:= EquipmentCoords(5);
If(FindColorTolerance(X, Y, LoadPick('color', I), PickTP.X-30, PickTP.Y-30, PickTP.X+30, PickTP.Y+30, 5))Then
Exit;
End;
GameTab(4);
Wait(500+Random(400));
For I:= 1 To 28 Do
If(ExistsItem(I))Then
Begin
PickTP:= ItemCoords(I);
MMouse(PickTP.X, PickTP.Y, 4, 4);
Wait(50);
GetMousePos(X, Y);
If(IsUpText('ield'))Then
Begin
Mouse(X, Y, 0, 0, True);
Exit;
End;
End;
End;
Function ReturnBestPick: Integer;
Var
PickAxe, PickDTM, I, Pick: Integer;
Begin
For I:= 4 To 5 Do
Begin
GameTab(I);
PickAxe := DTMFromString('78DA63AC646460486540038C482490AE01B23' +
'208A82906B2D209A82902B2B2F1AB010034EE038A');
If(FindDTM(PickAxe, X, Y, MIX1, MIY1, MIX2, MIY2))Then
Begin
FreeDTM ( PickAxe );
For Pick := 6 DownTo 1 Do
Begin
PickDTM := LoadPick('dtm', Pick);
If(FindDTM( PickDTM, X, Y, MIX1, MIY1, MIX2, MIY2))Then
Begin
Result:= Pick;
FreeDTM(PickDTM);
Exit;
End;
End;
End;
End;
FreeDTM(PickAxe);
If(Result = 0)Then
Begin
Writeln('Error Pick');
Logout;
Players[CurrentPlayer].Active:= False;
End;
End;
Procedure InitPlayer;
Begin
CurrentLoad:= 0;
DrinkStout:= False;
If(Not Loggedin)Then Exit;
Wait(1000+Random(1000));
Autoretaliate(False);
If(GetCombatLevel < 20)Then
Begin
Writeln('Please Level Up Your Charachters in Combat');
Logout;
Players[CurrentPlayer].Active:= False;
Exit;
End;
Players[CurrentPlayer].Level[1] := GetSkillLevel('attack');
Players[CurrentPlayer].Level[15]:= GetSkillLevel('mining');
If(Players[CurrentPlayer].Level[15]=59)Then
Begin
DrinkStout:= True;
Writeln('Entering Guild with stout');
End Else
If(Players[CurrentPlayer].Level[15] < 59)Then
Begin
Writeln('You need level 60, To enter the guild, Or 59 with stout!');
Players[CurrentPlayer].Loc := 'Not Enough Mining Lvl';
Logout;
Players[CurrentPlayer].Active:= False;
Exit;
End;
AbleToEquipPick(ReturnBestPick);
EquipPick := Players[CurrentPlayer].Booleans[0];
EquipCurrentPick;
If(Not GetPickHeadColors)Then
Begin
Writeln('Couldnt get pick colors, Equip or have in inventory.');
Players[CurrentPlayer].Loc := 'Couldnt Get PickColors';
Logout;
Players[CurrentPlayer].Active:= False;
End;
SetChat('On',1);
SetChat('Friends',2);
SetChat('Off',4);
SetChat('Off',3);
MakeCompass('n');
HighestAngle;
End;
Function FollowColor(Var X, Y: Integer; Color, Tol: Integer): Boolean;
Var
NoFlag, Fail: Integer;
Begin
MarkTime ( Fail );
If(FlagPresent)Then
Begin
Repeat
If(TimeFromMark( Fail ) > 5000 )Then
Begin
Result:= False;
Break;
End;
Wait(20);
Result:= FindColorSpiralTolerance(X, Y, Color, X-30, Y-30, X+30, Y+30, Tol);
Until(Not FlagPresent) Or (Not Loggedin) Or (Not Result);
If(Result)Then
Begin
MarkTime( NoFlag );
Repeat
Wait(20);
Result:= FindColorSpiralTolerance(X, Y, Color, X-30, Y-30, X+30, Y+30, Tol);
Until(TimeFromMark(NoFlag)>500) Or (Not Loggedin) Or (Not Result);
End;
End Else Result:= True;
End;
Function DetectGas(Var Gx, Gy: Integer): Boolean; Forward;
Procedure TakeScreenShot(Reason: String); Forward;
Function FindRock(Var X, Y: Integer; Color: Integer): Boolean;
Var
RockTP: TPoint;
RockTPA: TPointArray;
Begin
X:= 259; Y:= 170;
If(FindColorSpiralTolerance(X, Y, Color, 1, 1, 516, 338, 4))Then
Begin
FindColorsTolerance(RockTPA, Color, X-30, Y-30, X+30, Y+30, 4)
RockTP := MiddleTPA(RockTPA);
X:= RockTP.X; Y:= RockTP.Y;
Result:= True;
End;
End;
Function MouseMisClick(mousex, mousey, ranx, rany: Integer; left: Boolean): Boolean;
var
a, b, c: Integer;
begin
MMouse(mousex, mousey, ranx, rany);
Wait(60 + Random(30));
GetMousePos(b, c);
HoldMouse(b + 1, c, left);
repeat
Wait(20 + Random(30));
a := a + 1;
until (a > 4);
GetMousePos(b, c);
ReleaseMouse(b, c, left);
If(GetColor(B, C)=65535)Then
Begin
Result:= True;
Wait(100+Random(100));
End;
End;
Function FindRockMiddle: Boolean;
Begin
If(Not Loggedin)Then Exit;
If(InvFull)Then Exit;
If(Players[CurrentPlayer].Booleans[1])And(CoalSearches <= 1)Then
Begin
If(FindColorTolerance(X, Y, MithRock, MSX1, MSY1, MSX2, MSY2, MithTolerance))Then
Begin
MiningColor:= MithRock;
MiningTol:= MithTolerance;
MiningNow:= 'Mith';
End Else
Begin
MiningColor:= CoalRock;
MiningTol:= CoalTolerance;
MiningNow:= 'Coal';
End;
End Else
Begin
MiningColor:= CoalRock;
MiningTol:= CoalTolerance;
MiningNow:= 'Coal';
End;
Status('Missed: '+IntToStr(CoalSearches)+', Now Mining: ' + MiningNow);
If( FindRock ( X , Y , MiningColor ) ) Then
Begin
If ( DetectGas (X , Y ) ) Then
Begin
MouseFlag(MMCX+Random(50)-Random(50), MMCY+Random(50)-Random(50), 0, 0);
Exit;
End;
MMouse(X, Y, 5, 5);
Wait(10);
GetMousePos(X, Y);
If(IsUpText('Mine'))Then
Begin
Case Random(5) Of
0, 1, 2, 3:
Begin
If(MouseMisClick(X, Y, 0, 0, True))Then Exit;
GetMousePos(Dx, Dy);
If(FollowColor(Dx, Dy, MiningColor, MiningTol))Then
Begin
Result:= True;
Wait(500+Random(500));
End;
End;
4:
Begin
Mouse(X, Y, 0, 0, False);
GetMousePos(Dx, Dy);
Wait(10);
If(ChooseOption('Mine'))Then
If(FollowColor(Dx, Dy, MiningColor, MiningTol))Then
Begin
Result:= True;
Wait(500+Random(500));
End;
End;
End;
End;
End;
End;
Function RockColorExists(Var Dx, Dy, Color, Tolerance: Integer): Boolean;
Begin
Result:= FindColorSpiralTolerance(X, Y, Color, Dx-10, Dy-10, Dx+10, Dy+10, Tolerance);
End;
Procedure TakeScreenShot(Reason: String);
Var
Screen: Integer;
Begin
If(Not Loggedin)Then Exit;
If(TakeScreens)Then
Begin
Try
ScreenShot:= ScreenShot + 1;
Screen:= BitmapFromString(764, 502, '');
CopyClientToBitmap(Screen, MSX1, MSY1, 764, 502);
SaveBitmap(Screen, ScriptPath + Reason + IntToStr(ScreenShot) + '.bmp');
Writeln('ScreenShot: ' + ScriptPath + Reason + IntToStr(ScreenShot) + '.bmp');
FreeBitmap(Screen);
Except
Writeln('Error In ScreenShot');
Exit;
End;
End Else Exit;
End;
Procedure AttachPick;
Var
Handle, AxeHead: Integer;
Begin
Handle := DTMFromString('78DA634C61626078CC8002BC9DAC18FE03694' +
'620FE0F048C4940356F18D000231209A4F3806AEE105003B2EB03' +
'0135894035EF895043C01C00F4030DB4');
AxeHead := DTMFromString('78DA637466626078C280024C9D4D19FE03694' +
'620FE0F048CD640352F18D000231209A42D816A9E1150E3886917' +
'861A27A09AC704D4B800D53C24A0C60DA8E63901359E44A871256' +
'C1700B0451030');
GameTab(4);
If(FindDTM(Handle, X, Y, MIX1, MIY1, MIX2, MIY2))Then
Begin
Mouse(X, Y, 4, 4, False);
ChooseOption('Use');
Wait(300+Random(400));
If(FindDTM(AxeHead, X, Y, MIX1, MIY1, MIX2, MIY2))Then
Begin
Mouse(X, Y, 3, 3, True);
Writeln('Pick Attached!');
End;
Wait(300+Random(400));
End;
FreeDTM(Handle);
FreeDTM(AxeHead);
End;
Procedure WalkToDropDot;
Begin
X:= MMCX; Y:= MMCY; //Red Drop Dot!
If(FindColorSpiralTolerance(X, Y, 3553023, MMX1, MMY1, MMX2, MMY2, 20))Then
Begin
Case 1+Random(4) Of
1: Mouse(X - 5, Y, 3, 3, True);
2: Mouse(X + 5, Y, 3, 3, True);
3: Mouse(X, Y + 5, 3, 3, True);
4: Mouse(X, Y - 5, 3, 3, True);
End
Flag;
End;
End;
Function FindLostPick: Boolean;
Var
BrokenPick, PickDTM, I, II, Tol, Pick: Integer;
PickTPA: TPointArray;
Begin
If(Not Loggedin)Then Exit;
If(InvFull)Then
DropToPosition(1, 2);
BrokenPick := DTMFromString('78DA63B4636260B8C38006189148206D4DA49' +
'A1B04D4D813A1C605A8E61A01356E40353709A8F103AAB947408D' +
'3F50CD03026ABC09AB0100F4DE0A48');
If( EquipPick )Then
Begin
GameTab(5);
If(FindDTM(BrokenPick, X, Y, MIX1, MIY1, MIX2, MIY2))Then
Begin
Writeln('Broken Pickaxe');
TakeOff(5);
End Else
Begin
Writeln('Lost PickHead');
TakeOff(5);
End;
FreeDTM(BrokenPick);
End Else
Begin
GameTab(4);
If(FindDTM(BrokenPick, X, Y, MIX1, MIY1, MIX2, MIY2))Then
Begin
NoPick:= True;
Result:= False;
Writeln('Pick broken!');
BrokenPicks := BrokenPicks + 1;
TBroken := TBroken + 1;
FreeDTM( BrokenPick );
Exit;
End;
End;
GameTab(4);
WalkToDropDot;
Flag;
Wait(500+Random(400));
MarkTime(Pick);
Repeat
For I:= 0 To GetArrayLength(PickHeadColors)-1 Do
If(PickHeadColors[I] <> 0)Then
FindColorsSpiralTolerance(X, Y, PickTPA, PickHeadColors[I], MSX1, MSY1, MSX2, MSY2, Tol);
For I:= 0 To GetArrayLength(PickTPA)-1 Do
Begin
X:= PickTPA[I].X; Y:= PickTPA[I].Y;
MMouse(X, Y, 0, 0);
Wait(10);
If(IsUpText('ake'))Then
Begin
Mouse(X, Y, 0, 0, True);
Wait(10);
TakeScreenShot('Found Pick!!');
Flag;
Wait(500+Random(400));
AttachPick;
GameTab(4);
Wait(500+Random(300));
For II:= 1 To 6 Do
Begin
PickDTM:= LoadPick('DTM', II);
If(FindDTM( PickDTM, X, Y, MIX1, MIY1, MIX2, MIY2))Then
Begin
If( EquipPick )Then
Mouse(X+8, Y+8, 5, 5, True);
NoPick:= False;
Result:= True;
TakeScreenShot('Pick Attached!!');
Writeln('Found Pick!');
AxeAttaches := AxeAttaches + 1;
SRLRandomsReport;
FreeDTM(PickDTM);
Exit; //EXIT EVERYTHING!
End Else FreeDTM(PickDTM);
End;
End;
End;
WalkToDropDot;
Flag;
Wait(500+Random(400));
Until(TimeFromMark(Pick)>60000)Or(Result)Or(Not Loggedin);
TLostHead := TLostHead + 1;
LostHead := LostHead + 1;
End;
Function PickCheck: Boolean;
Begin
If(FindColor(X, Y, 16711680, 192, 442, 204, 454))Then
If(FindText(X, Y, 'Pickax', NPCChars, 122, 373, 181, 395))Then
Begin
Writeln('NoPick!');
TakeScreenShot('NO PICK!');
Result:= True;
If(FindLostPick)Then
Result:= False
Else NoPick:= True;
End;
End;
{*******************************************************************************
function GasCheck(gx, gy: Integer): Boolean;
By: piv
Description: Pivs GasChecker.
*******************************************************************************}
function FindGas(gx, gy: Integer): Boolean;
var
clientcanvas, gascanvas1, gascanvas2: TCanvas;
xG, yG, count: Integer;
pic1, pic2: Integer;
begin
if (FindColorTolerance(xG, yG, 8296866, gx - 20, gy - 20, gx + 20, gy + 20,
20)) then
begin
pic1 := BitmapFromString(40, 40, '');
pic2 := BitmapFromString(40, 40, '');
gascanvas1 := GetBitmapCanvas(pic1);
gascanvas2 := GetBitmapCanvas(pic2);
clientcanvas := getclientcanvas;
CopyCanvas(clientcanvas, gascanvas1, gx - 20, gy - 20, gx + 20, gy + 20, 0,
0, 40, 40);
Wait(100);
CopyCanvas(clientcanvas, gascanvas2, gx - 20, gy - 20, gx + 20, gy + 20, 0,
0, 40, 40);
count := 0;
for yG := 1 to 40 do
for xG := 1 to 40 do
if ((gascanvas1.pixels[xG, yG]) <> (gascanvas2.pixels[xG, yG])) then
count := count + 1;
if (count > 150) then //if more than 15% change
Begin
WriteLn(IntToStr(Trunc(((count) / 1024) * 100)) + '% change.');
Result := True;
End;
FreeBitmap(pic1);
FreeBitmap(pic2);
end;
end;
Function InString(Text1, Text2: String): Boolean;
Begin
Result:= (Pos(LowerCase(Text2), LowerCase(Text1)) <> 0);
End;
Function Responder: Boolean;
Var
Responce: Array [0..9] of String;
NewLine: String;
Label
ResponceLabel;
Begin
If(Not Loggedin)Then Exit;
If(Not UseResponder)Then Exit;
If(TimeFromMark(ResponceTime)<1000)Then Exit;
MarkTime(ResponceTime);
If(Not LastChatter(LastChatterString))Then Exit;
If(InString(LastChatterString, Players[CurrentPlayer].Nick))Then Exit;
OldLine:= TheLine;
GetLastChatText(TheLine);
NewLine:= TheLine;
If(OldLine = TheLine)Then Exit;
If(InString(TheLine, 'hi')) Or (InString(TheLine, 'ello')) Or (InString(TheLine, 'yo'))Then
Begin
Responce[0]:= 'Hi';
Responce[1]:= 'Hello';
Responce[2]:= 'ello';
Responce[3]:= 'hi lol';
Responce[4]:= 'Hi there';
Responce[5]:= 'yo';
Responce[6]:= 'hi there!';
Responce[7]:= 'Yo wazzap';
Responce[8]:= 'lol hi';
Responce[9]:= 'Hi there';
Result:= True;
GoTo ResponceLabel;
End;
If(InString(TheLine, 'mining lvl')) Or (InString(TheLine, 'mining lev')) Or (InString(TheLine, 'mining lv'))Then
Begin
Responce[0]:= IntToStr(Players[CurrentPlayer].Level[15]);
Responce[1]:= IntToStr(Players[CurrentPlayer].Level[15]) +', You?';
Responce[2]:= IntToStr(Players[CurrentPlayer].Level[15])+ ' lol';
Responce[3]:= 'Currently ' +IntToStr(Players[CurrentPlayer].Level[15]);
Responce[4]:= 'right now ' +IntToStr(Players[CurrentPlayer].Level[15]);
Responce[5]:= 'soon ' +IntToStr(Players[CurrentPlayer].Level[15]+1);
Responce[6]:= 'very soon ' +IntToStr(Players[CurrentPlayer].Level[15]+1);
Responce[7]:= 'secret';
Responce[8]:= 'ask me later';
Responce[9]:= 'ill tell when i get level';
Result:= True;
GoTo ResponceLabel;
End;
If(InString(TheLine, 'lol')) Or (InString(TheLine, 'ha')) Or (InString(TheLine, 'he'))Or
(InString(TheLine, 'lmao')) Or (InString(TheLine, 'rofl')) Or (InString(TheLine, 'omg'))Then
Begin
Responce[0]:= 'lol';
Responce[1]:= 'lmao';
Responce[2]:= 'haha';
Responce[3]:= 'lmfao';
Responce[4]:= 'rofl';
Responce[5]:= 'hehe';
Responce[6]:= 'ahah';
Responce[7]:= 'lmao haha';
Responce[8]:= 'hehe lol';
Responce[9]:= 'haha lol lmao rofl';
Result:= True;
GoTo ResponceLabel;
End;
ResponceLabel:
If(Result)Then
Begin
Writeln('Responded: '+Responce[CurrentResponce]+' To: '+ TheLine);
TypeSend(Responce[CurrentResponce]);
CurrentResponce:= CurrentResponce + 1;
RespondedTimes:= RespondedTimes + 1;
TRespond:= TRespond + 1;
If(CurrentResponce = 9)Then
CurrentResponce:= 0;
End;
End;
Function DetectGas(Var Gx, Gy: Integer): Boolean;
Var
GasTPA: Array [0..9] Of TPointArray;
GasColor: Array [0..9] Of Integer;
I, Count: Integer;
Begin
GasColor[0] := 6123901;
GasColor[1] := 5795704;
GasColor[2] := 5270391;
GasColor[3] := 5599613;
GasColor[4] := 5136998;
GasColor[5] := 6321275;
GasColor[6] := 6322563;
GasColor[7] := 4875632;
GasColor[8] := 5466739;
GasColor[9] := 6058102;
For I:= 0 To 9 Do
Begin
FindColorsTolerance(GasTPA[I], GasColor[I], Gx-40, Gy-40, Gx+40, Gy+40, GasTolerance);
Count:= Count + GetArrayLength(GasTPA[I])-1;
// ! Testing Marks !
//Writeln(IntToStr(I) + ': ' + IntToStr(GetArrayLength(GasTPA[I])-1));
End;
//Writeln('All - ' + IntToStr(Count));
If(Count > MinGasChange)And(Count < MaxGasChange)Then
Begin
Writeln('Found: ' + IntToStr(Count) + ' Gas Pixels');
Result := True;
//Result:= FindGas(Gx, Gy);
End;
End;
Procedure MineOre;
Var
MineTimer: Integer;
Begin
If(Not Loggedin)Then Exit;
Players[CurrentPlayer].Loc := 'In Minings Guild';
CoalSearches:= 0;
Repeat
If ( FindRockMiddle ) Then
Begin
CoalSearches:= 0;
MarkTime( MineTimer );
Repeat
Wait(50);
If(Not RockColorExists(Dx, Dy, MiningColor, MiningTol))Then
Break;
If(DetectGas(Dx, Dy))Then
Begin
Writeln('Found Gas!');
TakeScreenShot('GasFound');
MouseFlag(MMCX+Random(50)-Random(50), MMCY+Random(50)-Random(50), 0, 0);
Gasses:= Gasses + 1;
TGas:= TGas + 1;
Break;
End;
If(TimeFromMark( MineTimer ) > 500)Then
Begin
If( Responder )Then Break;
If( PickCheck )Then Break;
If(FindFightingRandom)Then
Begin
If(FindSymbol(X, Y, 'mining site'))Then
If(Distance(X, Y, MMCX, MMCY)>30)Then
MouseFlag(X, Y, 0, 0)
Else
If(FindColor(X, Y, LadderColor, MMX1, MMY1, MMX2, MMY2))Then
Begin
MouseFlag(X, Y, 1, 1);
Wait( 500 + Random (500) );
RunAwayDirection('e')
End Else RunAwayDirection('w');
End;
If(TimeFromMark( MineTimer ) > 1000)Then
Begin
If(FindNormalRandoms)Then Break;
End Else
If(TimeFromMark( MineTimer ) > 850)Then
Begin
If(FindFastRandoms)Then Break;
End Else
If(TimeFromMark( MineTimer ) > 650)Then
If(FindTalk)Then Break;
End Else If(FindTalk)Then Break;
Until( TimeFromMark(MineTimer)>10000) Or (Not Loggedin);
End Else
Begin
FTWait(1);
FindFastRandoms;
CoalSearches:= CoalSearches + 1;
If(CoalSearches >= 5)Then
Begin
If(FindSymbol(X, Y, 'mining site'))Then
Begin
If(Distance(X, Y, MMCX, MMCY)>20)Then
Begin
MouseFlag(X, Y, 0, 0);
Writeln('Walking to mining symbol.');
End Else
If(CoalSearches >= 20)Then
If(FindSymbol(X, Y, 'mining site'))Then
Begin
MouseFlag(X, Y, 0, 0);
Writeln('Walking to mining symbol.');
End Else Break;
End Else Break;
End;
End;
Until( InvFull ) Or (Not Loggedin) Or ( NoPick );
End;
Function CantEnter: Boolean;
Begin
If(FindColor(X, Y, 16711680, 233, 447, 240, 447))Then
If(FindText(X, Y, 'Mining', NPCChars, 333, 403, 384, 422))Then
Result := True;
End;
Function FindLadder(Color, Tolerance: Integer; Down: Boolean): Boolean;
Var
LadderTBA: TBoxArray;
Tol: Integer;
Begin
If(Not Loggedin)Then Exit;
Flag;
Wait(500+Random(500));
X:= MSCX;
Y:= MSCY;
Tol:= Tolerance;
Repeat
If ( CantEnter ) Then Begin Writeln('Cant Enter Minings Guild'); Exit; End;
Status('Tol: '+IntToStr(Tol)+' Boxes: '+IntToStr(GetArrayLength(LadderTBA)));
If(FindColorSkipBoxArrayTolerance(X, Y, Color, MSX1, MSY1, MSX2, MSY2, Tol, LadderTBA))Then
Begin
MMouse(X, Y, 0, 0);
GetMousePos(Dx, Dy);
Mouse(X, Y, 0, 0, False);
Wait(25);
If(ChooseOption('limb'))Then
Begin
Flag;
Wait(1000+Random(300));
While ( FindColor(X, Y, 16777215, 5, 8, 9, 12)) Do
Wait(500+Random(500));
Wait(1000+Random(1000));
End;
If(Down)Then
Begin
If(InBlackInPut(30.0))Then
Begin
Result:= True;
Exit;
End;
End Else
If(Not InBlackInPut(30.0))Then
Begin
Result:= True;
Exit;
End;
SetArrayLength(LadderTBA, GetArrayLength(LadderTBA)+1);
LadderTBA[GetArrayLength(LadderTBA)-1].X1 := Dx-10;
LadderTBA[GetArrayLength(LadderTBA)-1].Y1 := DY-10;
LadderTBA[GetArrayLength(LadderTBA)-1].X2 := Dx+10;
LadderTBA[GetArrayLength(LadderTBA)-1].Y2 := DY+10;
End Else Tol := Tol + 1;
If(GetArrayLength(LadderTBA)>20)Then
Begin
Logout;
Players[CurrentPlayer].Active:= False;
Players[CurrentPlayer].Loc := 'Couldnt Find Ladders';
Result:= False;
Exit;
End;
Until(Not Loggedin);
End;
Procedure WalkCompass(Compass: String);
Begin
If(Not Loggedin)Then Exit;
Y:= MMCY;
Case LowerCase(Compass) Of
'left': X:= MMCX-35;
'right': X:= MMCX+35;
End;
MouseFlag(X+Random(10)-Random(10), Y+Random(10)-Random(10), 1, 0);
FFlag(10);
End;
Function LadderRadialWalk( TheColor, StartRadial, EndRadial, Radius, FlagBreakOut, Xmod, Ymod, Xoff, Yoff: Integer): Boolean;
Var
I, X1, Y1: Integer;
Begin
If(StartRadial = EndRadial)Then Exit;
Else If(StartRadial < EndRadial)Then
Begin
Repeat
For i := StartRadial To EndRadial Do
Begin
x1 := Round(Radius * Sine(i)) + 646;
y1 := Round(-Radius * Cose(i)) + 84;
If Not LoggedIn Then Exit;
If FindColor(x, y, TheColor, X1, Y1, X1 + 1, Y1 + 1)then
Begin
Result := True;
MouseFindNoFlag(X + Xoff, Y + Yoff, Xmod, Ymod);
FFlag(FlagBreakOut);
Exit
End;
End;
Radius := Radius - 4;
Until Radius <= 1;
End Else
If(StartRadial > EndRadial)Then
Begin
Repeat
For i := StartRadial DownTo EndRadial Do
Begin
x1 := Round(Radius * Sine(i)) + 646;
y1 := Round(-Radius * Cose(i)) + 84;
If Not LoggedIn Then Exit;
If (FindColor(x, y, TheColor, X1, Y1, X1 + 1, Y1 + 1))Then
Begin
Result := True;
MouseFindNoFlag(X + Xoff, Y + Yoff, Xmod, Ymod);
FFlag(FlagBreakOut);
Exit
End;
End;
Radius := Radius - 4;
Until Radius <= 1;
End;
End;
Function CheckAutoColors(LadderOrRoad: String): Integer;
Begin
Case LowerCase(LadderOrRoad) Of
'road': Begin
If(RoadColor = 0)Then
RoadColor:= FindFallyRoadColor;
If(FindColor(X, Y, RoadColor, MMX1, MMY1, MMX2, MMY2))Then
Result:= RoadColor
Else Result:= FindFallyRoadColor;
End;
'ladder': Begin
If(LadderColor = 0)Then
LadderColor:= FindLadderColor;
If(FindColor(X, Y, LadderColor, MMX1, MMY1, MMX2, MMY2))Then
Result:= LadderColor
Else Result:= FindLadderColor;
End;
End;
End;
Procedure InteractBeer(Style: String);
Var
Stout: Integer;
Begin
If(Not Loggedin)Then Exit;
If(Not DrinkStout)Then Exit;
GameTab(4);
Wait(300+Random(400));
Case Lowercase(Style) Of
'drink':
Begin
Stout := DTMFromString('78DA63B467626078C080023E7DF8C4F01F483' +
'302F17F2060B4C0540391859140DA01A8E60301357E40358F8830' +
'E73A7E3500FBAA0D96');
If(FindDTM(Stout, X, Y, MIX1, MIY1, MIX2, MIY2))Then
Begin
Mouse(X, Y, 3, 3, True);
StoutsDrank:= StoutsDrank + 1;
TStout := TStout + 1;
Writeln('Drank Beer!');
Wait(100+Random(100));
End Else Begin Players[CurrentPlayer].Loc := 'Couldnt Find Beer'; Writeln('Couldnt Find (DTM) Beer'); Players[CurrentPlayer].Active:= False; Logout; End;
FreeDTM( Stout );
Exit;
End;
'drop':
Begin
Stout := DTMFromString('78DA638C616060E060644006B5D5D50CFF813' +
'448F43F103082D488A1AA81C8C248201D02243809A80199F39F01' +
'BF9A2C4CF7A0AB0100E8850981');
If(FindDTM(Stout, X, Y, MIX1, MIY1, MIX2, MIY2))Then
Begin
Mouse(X, Y, 0, 0, False);
ChooseOption('Drop');
Writeln('Beer Dropped!!');
Wait(100+Random(100));
End;
FreeDTM( Stout );
Exit;
End;
'withdraw':
Begin
If(Not BankScreen)Then
Begin
Logout;
Players[CurrentPlayer].Active:= False;
Players[CurrentPlayer].Loc := 'Not In Bank';
Exit;
End;
Stout := DTMFromString('78DA63EC656060E86140038C482490EE06124' +
'B09A8690612D308A8990924A61350D3052466A2AAF0727363E042' +
'56D387698E8B83035C0D0B1003008825089D');
If(FindDTM(Stout, X, Y, MSX1, MSY1, MSX2, MSY2))Then
Begin
Mouse(X, Y, 0, 0, True);
Writeln('Got Beer!');
Wait(100+Random(100));
FreeDTM( Stout );
Exit;
End Else Begin Players[CurrentPlayer].Loc := 'Couldnt Get More Beer'; Writeln('Couldnt Find Beer (DTM) in Bank'); CloseBank; Players[CurrentPlayer].Active:= False; Logout; End;
FreeDTM( Stout );
Exit;
End;
Else
Begin
Writeln('No such arguement in: ''Procedure InteractBeer(Style: String);');
TerminateScript;
End;
End;
End;
Procedure GoToMine;
Begin
If(Not Loggedin)Then Exit;
Players[CurrentPlayer].Loc := 'To Mine';
LadderColor:= CheckAutoColors('Ladder');
RoadColor:= CheckAutoColors('Road');
FindFastRandoms;
If(Not LadderRadialWalk( LadderColor , 78, 119, 60, 10, -1, -1, -15, 0))Then
Begin
RadialRoadWalk(RoadColor, 61, 90, 65, -1, 0);
LadderRadialWalk( LadderColor, 207, 145, 50, 5, -1, -1, -15, 10);
End;
FindFastRandoms;
Flag;
FindFastRandoms;
If(Not RadialRoadWalk(RoadColor, 169, 179, 70, 0, -1))Then
RadialRoadWalk(RoadColor, 203, 153, 70, 0, 0);
If(FindColor(X, Y, 0, MSX1, MSY1, 648, 157))Then
MouseFlag(X+10, Y, 4, 4);
InteractBeer('Drink');
If(Loggedin)Then
Players[CurrentPlayer].Loc := 'Ladders Entering';
FindLadder(2445165, 5, True);
If(Loggedin)Then
Players[CurrentPlayer].Loc := 'Ladders UnderGround';
InteractBeer('Drop');
SetRun(True);
FindFastRandoms;
WalkCompass('right');
WalkCompass('right');
End;
Function FindBankers: Boolean;
Var
Bankers: Integer;
A: Extended;
Begin
If(Not Loggedin)Then Exit;
Bankers := DTMFromString('78DA63AC656260886640017FFE30318800694' +
'620FE0F048C8DF8D580002135605C895F0D50960100216D0FAC');
If(FindDTMRotated(Bankers, X, Y, MMX1, MMY1, MMX2, MMY2, -10, 10, 0.1, A))Then
Result:= True;
FreeDTM(Bankers);
End;
Procedure GoToBank;
Var
Tries: Integer;
Begin
If(Not Loggedin)Then Exit;
Players[CurrentPlayer].Loc := 'To Bank';
FindFastRandoms;
If(Not FindColor(X, Y, LadderColor, MMX1, MMY1, MMX2, MMY2))Then
If(FindSymbol(X, Y, 'mining site'))Then
Begin
If(Distance(X, Y, MMCX, MMCY)>40)Then
MouseFlag(X, Y, 1,1);
End;
Repeat
If(FindColor(X, Y, LadderColor, MMX1, MMY1, MMX2, MMY2))Then
Begin
MouseFindNoFlag(X, Y, 2, 0);
FindFastRandoms;
Flag;
FindFastRandoms;
Break;
End Else
RunAwayDirection('w');
If(Tries>3)Then
Wait(50);
Tries := Tries + 1;
Until(Not Loggedin)Or(Tries > 10);
FindFastRandoms;
If(Loggedin)Then
Players[CurrentPlayer].Loc := 'Ladders Entering';
FindLadder(2708852, 5, False);
SetRun(False);
If(Loggedin)Then
Players[CurrentPlayer].Loc := 'Ladders To Bank...';
FindFastRandoms;
LadderColor:= CheckAutoColors('Ladder');
RoadColor:= CheckAutoColors('Road');
RadialRoadWalk(RoadColor, 70, 100, 45, 0, 0);
If(Not LadderRadialWalk( LadderColor , 323, 360, 75, 10, 0, 1, -10, 0))Then
Begin
RadialRoadWalk(RoadColor, 333, 367, 70, 0, 1);
RadialRoadWalk(RoadColor, 270, 300, 70, 1, 0);
End;
FindFastRandoms;
If(FindBankers)Then
Begin
Mouse(X, Y-4, 3, 0, True);
FindFastRandoms;
Flag;
FindFastRandoms;
End Else
Begin
RadialRoadWalk(RoadColor, 273, 300, 75, 0, 0);
FindFastRandoms;
If(FindBankers)Then
Begin
Mouse(X, Y-4, 3, 0, True);
FindFastRandoms;
Flag;
FindFastRandoms;
End Else Begin Players[CurrentPlayer].Loc := 'Couldnt Find Bankers'; Players[CurrentPlayer].Active:= False; Logout; End;
End;
End;
Function OpenFallyBankFast: Boolean;
var
x, y, i, l, c, z: Integer;
Info: TIntegerArray;
Booths, t: TPointArray;
Begin
Info := [MSCX, MSCY+20, 4810622, 5, 1];
MakeCompass('n');
z := GetColorToleranceSpeed;
If Info[4] <> GetColorToleranceSpeed Then
Begin
ColorToleranceSpeed(Info[4]);
End;
FindColorsSpiralTolerance(Info[0], Info[1], Booths, Info[2], MSX1, MSY1, MSX2, MSY2, Info[3])
SetArrayLength(t, 0);
t := Booths;
SetArrayLength(Booths, 0);
Booths := ReArrangeAndShortenArray(t, 14);
l := GetArrayLength(Booths) -1;
ColorToleranceSpeed(z);
for i := 0 to l do
begin
If not LoggedIn then
Begin
Result := False;
ColorToleranceSpeed(z);
Exit;
End;
Wait(100);
MMouse(Booths[i].X, Booths[i].Y, 0, 0);
Wait(150);
if IsUpText('ooth') Then
begin
GetMousePos(x, y);
Mouse(x, y, 0, 0, False);
Wait(100);
if ChooseOption('uickly') then
begin
FFLag(0);
MarkTime(c);
repeat
Wait(100);
until (BankScreen) or (TimeFromMark(c) > 3000);
Result := BankScreen;
if Result then Exit;
end;
end;
end;
end;
Function OpenBankLoop: Boolean;
Var
Mark: Integer;
Begin
If(Not LoggedIn)Then Exit;
Flag;
Marktime(Mark);
Repeat
If(TimeFromMark(Mark)>25000)And(Not FlagPresent)Then
Begin
Writeln('Couldnt Find Bank..');
Players[CurrentPlayer].Loc := 'Bank(Not Found)';
Logout;
Players[CurrentPlayer].Active:= False;
Exit;
End;
FTWait(2)
If(OpenFallyBankFast)Then
Wait(200+Random(200));
Flag;
Until(BankScreen)or(PinScreen)or(Not LoggedIn)
Wait(500+Random(250));
If(PinScreen)Then
Begin
InPin(IntToStr(Players[CurrentPlayer].Pin));
Wait(500+Random(250));
End;
If(BankScreen)Then
Begin
FixBank;
Result := True;
End Else
Begin
Writeln('Couldnt Find bank.');
Players[CurrentPlayer].Loc := 'Bank(Not Found)';
Logout;
Players[CurrentPlayer].Active:= False;
End;
End;
Procedure Deposit2(FromItem,ToItem: integer);
Var
I: Integer;
aPoint: TPoint;
Begin
I := Fromitem;
For I := FromItem To ToItem Do
Begin
If(ExistsItem(I))Then
Begin
aPoint := ItemCoords(i);
Mouse(aPoint.x+Random(8)-Random(8), aPoint.y+Random(8)-Random(8), 0, 0, False);
Wait(10);
Chooseoption('ore All');
Wait(500+Random(500));
End;
End;
End;
Function CountItemColor(Color, Tol: Integer): Integer;
Var
Dx, Dy, I: Integer;
ItemTp: TPoint;
Begin
If(Not Loggedin)Then Exit;
GameTab(4);
For I:= 1 To 28 Do
Begin
ItemTP:= ItemCoords(I);
If(FindColorTolerance(Dx,Dy,Color,ItemTP.X-10,ItemTP.Y-10,ItemTP.X+10,ItemTP.Y+10, Tol))Then
Result:= Result + 1;
End;
End;
Function CountItemGems: Integer;
Var
GemColor: Array [1..4] of Integer;
Dx, Dy, Gem, I: Integer;
ItemTP: TPoint;
Begin
If(Not Loggedin)Then Exit;
GemColor[1]:= 11842741;
GemColor[2]:= 859003;
GemColor[3]:= 1543184;
GemColor[4]:= 9574162;
GameTab(4);
For I:= 1 To 28 Do
Begin
ItemTP:= ItemCoords(I);
For Gem:= 1 To 4 Do
If(FindColorTolerance(Dx,Dy,GemColor[Gem],ItemTP.X-10,ItemTP.Y-10,ItemTP.X+10,ItemTP.Y+10, 5))Then
Result:= Result + 1;
End;
End;
Procedure DoTheMath;
Var
TMith, TGems, TCoal: Integer;
Begin
TCoal:= CountItemColor(2175538, 5);
TMith:= CountItemColor(6571076, 5);
TGems:= CountItemGems;
Writeln(' Mined: '+IntToStr(TCoal) + ' Coals');
If(Players[CurrentPlayer].Booleans[1])And(TMith > 0)Then
Writeln(' Mined: '+IntToStr(TMith) + ' Miths');
If(TGems > 0)Then
Writeln(' Mined: '+IntToStr(TGems) + ' Gems');
CurrentLoad:= CurrentLoad + 1;
Gems:= Gems + TGems;
Coal:= Coal + TCoal;
Mith:= Mith + TMith;
Gained:= (Coal * 50) + (Mith * 80);
Banked:= Banked + 1;
Players[CurrentPlayer].Integers[0]:= Players[CurrentPlayer].Integers[0] + TCoal;
Players[CurrentPlayer].Integers[3]:= Players[CurrentPlayer].Integers[3] + TMith;
Players[CurrentPlayer].Integers[1]:= (Players[CurrentPlayer].Integers[0] * 50) + (Players[CurrentPlayer].Integers[3] * 80);
Players[CurrentPlayer].Integers[2]:= Players[CurrentPlayer].Integers[2] + 1;
Banks:= Banks + 1;
ReportVars[0] := TCoal;
ReportVars[1] := (TCoal * 50) + (TMith * 80);
ReportVars[2] := 1;
ReportVars[3] := TGas;
ReportVars[4] := TRespond;
ReportVars[5] := TGems;
ReportVars[6] := TStout;
ReportVars[7] := TMith;
ReportVars[8] := TBroken;
ReportVars[9] := TLostHead;
TLostHead:= 0;
TRespond:= 0;
TBroken:= 0;
TStout:= 0;
TGas:= 0;
SRLRandomsReport;
End;
Function FixProg(ST, Max: String): String;
Var
I, O, L: Integer;
Begin
L:= Length(ST);
I:= Length(Max);
L:= L - 1;
I:= I - 3;
For O:= L To I Do
Result:= Result + ' ';
Result:= Result + '|';
End;
Procedure ProgressReport;
Var
ActiveT, Longest: String;
Prog: Array [0..17] Of String;
Sec, I: Integer;
Begin
Sec := GetTimeRunning div 1000+1;
Writeln('/----------------------------------------\');
Writeln('| JuKKa''s Guild Miner Script! |');
Longest:= ('|------------ Mining Report -------------|');
Writeln(Longest);
Prog[0]:= ('| Worked: ' + TimeRunning + '');
Prog[1]:= ('| Mined : ' + IntToStr(Coal) + ' Coals');
Prog[2]:= ('| Mined : ' + IntToStr(Mith) + ' Miths');
Prog[3]:= ('| Gained: ' + IntToStr(Gained) + ' Exp');
Prog[4]:= ('| Banked: ' + IntToStr(Banked) + ' Loads');
Prog[5]:= ('|------------ Per Hour Report -----------');
Prog[6]:= ('| Coals : ' + FloatToStr(3600*Coal/Sec) + ' Per Hour');
Prog[7]:= ('| Miths : ' + FloatToStr(3600*Mith/Sec) + ' Per Hour');
Prog[8]:= ('| Exp. : ' + FloatToStr(3600*Gained/Sec)+ ' Per Hour');
Prog[9]:= ('| Banked: ' + FloatToStr(3600*Banked/Sec)+ ' Per Hour');
Prog[10]:= ('|------------- Misc Report --------------');
Prog[11]:= ('| Banked: ' + IntToStr(Gems) + ' Gems');
Prog[12]:= ('| Stouts: ' + IntToStr(StoutsDrank) + ' Drank');
Prog[13]:= ('| Found : ' + IntToStr(Gasses) + ' Gasses');
Prog[14]:= ('| Responded: ' +IntToStr(RespondedTimes)+ ' Times');
Prog[15]:= ('| Broken: ' +IntToStr(BrokenPicks) + ' Picks');
Prog[16]:= ('| Lost: ' + IntToStr(LostHead) + ' Heads');
For I:= 0 To 16 Do
Begin
Prog[I]:= FixProg(Prog[I], Longest);
Writeln(Prog[I]);
End;
Writeln('|------------ Players Report ------------|');
For I:= 0 To HowManyPlayers-1 Do
Begin
If(Players[I].Active)Then
ActiveT:= 'T'Else ActiveT:= 'F';
Prog[17]:= ('| #: '+IntToStr(I)+ ' Active: '+ActiveT+ ' - Mining Level: '+IntToStr(Players[I].Level[15])+ '; Coal: '+IntToStr(Players[I].Integers[0])+ '; Mith: '+IntToStr(Players[I].Integers[3])+'; Gained: '+IntToStr(Players[I].Integers[1])+ '; Banked: '+IntToStr(Players[I].Integers[2])+ '; Location: '+Players[I].Loc +';');
Writeln(Prog[17]);
End;
Writeln('\----------------------------------------/');
End;
Procedure GetBestPick;
Var
I, PickDTM: Integer;
Begin
If(Not Loggedin)Or(Not BankScreen)Then Exit;
For I:= 6 DownTo 1 Do
Begin
PickDTM := LoadPick('dtm',I);
If(FindDTM(PickDTM, X, Y, MSx1, MSy1, MSx2, MSy2))Then
Begin
Mouse(X, Y, 4, 4, True);
Wait(500+Random(300));
FreeDTM(PickDTM);
Case I Of
1: Writeln('You Got Bronze pick axe');
2: Writeln('You Got Iron pick axe');
3: Writeln('You Got Steel pick axe');
4: Writeln('You Got Mith pick axe');
5: Writeln('You Got Addy pick axe');
6: Writeln('You Got Rune pick axe');
End
GotPick := I;
Exit;
End;
FreeDTM(PickDTM);
End;
End;
Procedure EquipBestPick;
Begin
If(Not Loggedin)Then Exit;
If(Not NoPick)Then Exit;
GameTab(4);
Wait(500+Random(500));
If(EquipPick)And(ExistsItem(1))And(AbleToEquipPick(GotPick))Then
Begin
MouseItem(1, True);
Wait(500+Random(300));
If(Not GetPickHeadColors)Then
Begin
Writeln('Couldnt get pick colors, Equip or have in inventory.');
Players[CurrentPlayer].Loc := 'No Pick, Colors';
Logout;
Players[CurrentPlayer].Active:= False;
End Else NoPick:= False;
End Else
If(Not EquipPick)Then
Begin
If(Not GetPickHeadColors)Then
Begin
Writeln('Couldnt get pick colors, Equip or have in inventory.');
Players[CurrentPlayer].Loc := 'No Pick, Colors';
Logout;
Players[CurrentPlayer].Active:= False;
Exit;
End Else NoPick:= False;
End;
End;
Procedure Bank;
Begin
If(Not Loggedin)Then Exit;
DoTheMath;
Players[CurrentPlayer].Loc := 'Bank';
If(DrinkStout)Then
If(GetSkillLevel('mining') = 59)Then
DrinkStout:= True Else DrinkStout:= False;
If( OpenBankLoop )Then
Begin
If ( NoPick )Then
Begin
Deposit2(1, 28);
GetBestPick;
Wait(300+Random(300));
End Else
If(EquipPick)Then
Deposit2(1, 28)
Else Deposit2(2, 28);
InteractBeer('Withdraw');
CloseBank;
EquipBestPick;
End;
End;
Function LoadsDone: Boolean;
Begin
If(CurrentLoad >= HowManyLoads)Then
Result:= True;
End;
Begin
Setup;
Repeat
InitPlayer;
Repeat
GoToMine;
MineOre;
GoToBank;
Bank;
Until(Not Loggedin)Or(NoPick)Or(LoadsDone);
ProgressReport;
If(Loggedin)And(Not NoPick)Then
NextPlayer(True)Else NextPlayer(False);
Until(False);
End.
Download SRL #5
/----------------------------------------\
| JuKKa's Guild Miner Script! |
|------------ Mining Report -------------|
| Worked: 6 Hours, 32 Minutes and 47 Seconds|
| Mined : 1484 Coals |
| Mined : 0 Miths |
| Gained: 74200 Exp |
| Banked: 58 Loads |
|------------ Per Hour Report -----------|
| Coals : 226.680244399185 Per Hour |
| Miths : 0 Per Hour |
| Exp. : 11334.0122199593 Per Hour |
| Banked: 8.85947046843177 Per Hour |
|------------- Misc Report --------------|
| Banked: 14 Gems |
| Stouts: 0 Drank |
| Found : 5 Gasses |
| Responded: 0 Times |
| Broken: 1 Picks |
| Lost: 0 Heads |
|------------ Players Report ------------|
| #: 0 Active: F - Mining Level: 66; Coal: 1484; Mith: 0; Gained: 74200; Banked: 58; Location: In Minings Guild;
| #: 1 Active: F - Mining Level: 63; Coal: 0; Mith: 0; Gained: 0; Banked: 0; Location: No GameTab;
| #: 2 Active: F - Mining Level: 0; Coal: 0; Mith: 0; Gained: 0; Banked: 0; Location: ;
| #: 3 Active: F - Mining Level: 6; Coal: 0; Mith: 0; Gained: 0; Banked: 0; Location: Not Enough Mining Lvl;
| #: 4 Active: T - Mining Level: 0; Coal: 0; Mith: 0; Gained: 0; Banked: 0; Location: ;
| #: 5 Active: T - Mining Level: 0; Coal: 0; Mith: 0; Gained: 0; Banked: 0; Location: ;
\----------------------------------------/
Another proggy.
Yeah I know it's not safe, that was the longest I've ever gone with one char. I set them to 999999 banks, so they would just log out after getting a harder random or getting lost (which prob won't happen with this script too often :P). Soon I'll just find how many runs I should put them on so they all get on through the night/school day.
Another thing. Scar (or was it SRL?) can't read zeros right? Well, one of my guys was level 60 mining, but I think it thought he was 6, so it wouldn't let him go. I just changed the part where it checks the level to 5, but some people (*cough* maybe *cough* leechers *cough*) wouldn't know how to do that, you could change that if you wanted to help *cough* leechers *cough*.
people should just update their bitmaps ;) like i did.
GOOD JOB GUYS BREAKING 10M EXP!!!!!!!
http://www.stats.srl-forums.com/inde..._script&id=314
http://img509.imageshack.us/img509/2...millionsb5.png
I just set it so that if my mining level is less than 2, it won't work :garfield:Quote:
Originally Posted by Runescapian321
GOOD JOB GUYS BREAKING 10000 Banks Same Goes For Mith!!!!!!!
/----------------------------------------\
| JuKKa's Guild Miner Script! |
|------------ Mining Report -------------|
| Worked: 4 Hours, 45 Minutes and 18 Seconds|
| Mined : 1031 Coals |
| Mined : 0 Miths |
| Gained: 51550 Exp |
| Banked: 39 Loads |
|------------ Per Hour Report -----------|
| Coals : 216.811729657106 Per Hour |
| Miths : 0 Per Hour |
| Exp. : 10840.5864828553 Per Hour |
| Banked: 8.20141363397395 Per Hour |
|------------- Misc Report --------------|
| Banked: 4 Gems |
| Stouts: 0 Drank |
| Found : 0 Gasses |
| Responded: 0 Times |
| Broken: 0 Picks |
| Lost: 0 Heads |
|------------ Players Report ------------|
| #: 0 Active: F - Mining Level: 68; Coal: 54; Mith: 0; Gained: 2700; Banked: 2; Location: No GameTab;
| #: 1 Active: F - Mining Level: 64; Coal: 171; Mith: 0; Gained: 8550; Banked: 7; Location: No GameTab;
| #: 2 Active: T - Mining Level: 63; Coal: 806; Mith: 0; Gained: 40300; Banked: 30; Location: Bank;
| #: 3 Active: T - Mining Level: 0; Coal: 0; Mith: 0; Gained: 0; Banked: 0; Location: ;
| #: 4 Active: T - Mining Level: 0; Coal: 0; Mith: 0; Gained: 0; Banked: 0; Location: ;
| #: 5 Active: T - Mining Level: 0; Coal: 0; Mith: 0; Gained: 0; Banked: 0; Location: ;
\----------------------------------------/
/----------------------------------------\
| JuKKa's Guild Miner Script! |
|------------ Mining Report -------------|
| Worked: 6 Hours, 27 Minutes and 10 Seconds|
| Mined : 1188 Coals |
| Mined : 129 Miths |
| Gained: 69720 Exp |
| Banked: 50 Loads |
|------------ Per Hour Report -----------|
| Coals : 184 Per Hour |
| Miths : 20 Per Hour |
| Exp. : 10804 Per Hour |
| Banked: 8 Per Hour |
|------------- Misc Report --------------|
| Banked: 8 Gems |
| Stouts: 0 Drank |
| Found : 7 Gasses |
| Responded: 0 Times |
| Broken: 3 Picks |
| Lost: 0 Heads |
|------------ Players Report ------------|
| #: 0 Active: F - Mining Level: 72; Coal: 22; Mith: 6; Gained: 1580; Banked: 1; Location: In Minings Guild;
| #: 1 Active: F - Mining Level: 69; Coal: 155; Mith: 17; Gained: 9110; Banked: 7; Location: Couldnt Find Ladders;
| #: 2 Active: T - Mining Level: 69; Coal: 289; Mith: 22; Gained: 16210; Banked: 12; Location: Bank;
| #: 3 Active: T - Mining Level: 64; Coal: 264; Mith: 51; Gained: 17280; Banked: 12; Location: Bank;
| #: 4 Active: T - Mining Level: 64; Coal: 234; Mith: 33; Gained: 14340; Banked: 10; Location: In Minings Guild;
| #: 5 Active: T - Mining Level: 62; Coal: 224; Mith: 0; Gained: 11200; Banked: 8; Location: Bank;
\----------------------------------------/
/~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
| SRL 4 Randoms Report |
| www.srl-forums.com |
|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|
| SRL Logs : 13 |
| Talks : 3 |
| Ricks : 1 |
| Lamps Solved : 2 |
| ScapeRunes : 1 |
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~/
Thsi is great script, but only bug i know is that this dont regonize gas and when i came back to my comp my pick was borken. So is it in me or in script?