View Full Version : [C]Livid Farmer
Flight
02-07-2012, 11:43 AM
Glad it's still working fine for everyone. EvilTwin: have you gotten the script to work for you properly now?
redgiant61
02-07-2012, 12:10 PM
nvm
Great script, working fine for me
think ill use this quite a bit in the future :)
vashanddou
02-08-2012, 12:29 PM
10M rsgp per 1M farm exp, gotta save up more money to finish 91-99 lol
cmxz1
02-08-2012, 09:42 PM
Thank you, farming 99 now.
http://i.imgur.com/8XwEx.png
holy angel
02-08-2012, 11:03 PM
Thank you, farming 99 now.
http://i.imgur.com/8XwEx.png
do you remember/know how much 85-99 farming would cost and take doing this?
cmxz1
02-08-2012, 11:18 PM
do you remember/know how much 85-99 farming would cost and take doing this?
No idea how much it cost but it was always stable 32-32k xp per hour
ministone28
02-09-2012, 03:36 PM
do you remember/know how much 85-99 farming would cost and take doing this?
Last i knew, if your getting around 32k/hr your spending somewhere in the neighborhood of 300k gp/hr. So a good estimate would be to say every 1k farm xp your spending 10k gp.
J0shl
02-09-2012, 05:51 PM
First off im new to the community and this is my first script review.
ran it for an hr had absolutly no probs with it and this is a very good script ty for allowing public to use :)http://i40.tinypic.com/b67dw1.png
EvilTwin
02-11-2012, 10:57 AM
Glad it's still working fine for everyone. EvilTwin: have you gotten the script to work for you properly now?
Yes, it works for me perfectly now. Thank you very much for the script & helping! :)
TheTimo007
02-11-2012, 12:56 PM
How do i fix this to start the script, i'm new here, i don't know much :
[Error] (60:31): Type mismatch at line 59
Compiling failed.
LampSkill := 'Farming';
skip back to page 10, flight posted how to solve it there.
ernestthechicken
02-12-2012, 04:17 PM
Deleted by user.
ernestthechicken
02-12-2012, 04:18 PM
do you remember/know how much 85-99 farming would cost and take doing this?
its about 80M roughly i believe.
shadowmarkus
02-12-2012, 05:08 PM
I'm trying to get 35-60 farming so I can use this! ^^
Ghost1618
02-12-2012, 06:11 PM
I'm new to simba and this whole process, I tried running the script and all I get is "Exception in script: Unable to find file 'SRL/srl.simba' used from ' ' " can anybody help me figure this out?
ernestthechicken
02-12-2012, 06:29 PM
I'm new to simba and this whole process, I tried running the script and all I get is "Exception in script: Unable to find file 'SRL/srl.simba' used from ' ' " can anybody help me figure this out?
You'r using the 1.0 version of the script.. try the 1.1
Ghost1618
02-12-2012, 11:19 PM
Tried the 1.1 version, still get the exact same message
werder
02-13-2012, 07:54 AM
ghost1618, working for me 13.2.2012?
very nice script but theres a little bug what slows down just abit but still would be good if it gets fixed,
- when u gain exp up center of screen appears farming and magic "tables" you know... they hide's under 2 patches and script cant "see" em so it needs to wait till the exp "tables" goes away so it can see em and cure the plants or what ever they r so when you want could you please fix it to 2lick or move the screen so it can see the patches, of corse it's up to you, nice script anyway :)
we r rangerz
02-13-2012, 04:00 PM
BoxRewards := ['XP','xp','lamp'];
LampSkill := 'Skill_Farming;'
Active := True;
end;
end;
it highlights active true
ernestthechicken
02-13-2012, 07:56 PM
http://i168.photobucket.com/albums/u165/svcreapy/Naamloos2.png
shady4201
02-14-2012, 12:59 PM
I'm very impressed with this script, thank you for making it.
Only one issue I have noticed. If a player is wearing that full skeleton outfit from the Halloween event a few years back, the script will spam click on that player instead of doing the livid tasks. I presume this has something to do with the color finding and is un-fixable, but it's something to look out for if you're using this.
SantWrong
02-14-2012, 09:06 PM
Due update, mouse moves to every patch ir is that just for me?
EDIT: LAter it ran smoothly, maybe starting of script was bugged or something else.
ernestthechicken
02-14-2012, 10:15 PM
i had a 12 hr proggy but i accidently exited Simba; Im in love with the script! thanks!
supersain
02-15-2012, 02:01 AM
Thanks so far from 65-93. Going for 99
shady4201
02-15-2012, 11:56 AM
http://imgur.com/gUX0M
Am very impressed, 60-68 farming so far, going for 80.
Flight
02-16-2012, 12:53 AM
Very good news to hear it's working well for everyone. :) Progress reports / screenshots are very much welcome, everyone. :)
the flea
02-16-2012, 03:31 PM
great script this will help me out alot!
only one issue is it stuggles to interact with the northern most spot.http://i39.tinypic.com/ounub9.png
cmxz1
02-16-2012, 03:32 PM
great script this will help me out alot!
only one issue is it stuggles to interact with the northern most spot.http://i39.tinypic.com/ounub9.png
Turn off xp pop-ups?
the flea
02-16-2012, 03:58 PM
Turn off xp pop-ups?
aha I had never realised this was possible until just now. Thanks :bart:
holyarcher65
02-17-2012, 04:10 AM
i get this error
[Error] (60:24): Type mismatch at line 59
Compiling failed.
its on the lampskill line
holyarcher65
02-17-2012, 04:19 AM
nevermind, found the asnwer
the flea
02-17-2012, 03:18 PM
love this script been putting some serious time into it the past two days.
heres a proggy I just got... stopped due to random :(
=-=-=-=-=-=-= LividFarmer 1.1 by Flight =-=-=-=-=-=
Time Running: 2 Hours, 24 Minutes and 26 Seconds
Points: 16980
Plants cured: 426
Soil fertilized: 423
Farming XP: 78108 (32447 / hour)
Magic XP: 62361 (25905 / hour)
Breaks: 0
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
jcjcjc
02-17-2012, 11:16 PM
I have gotten 60-81 farming and I got 80-86 magic from this script so far. :]]] Thank you I will continue it til I reach 99 which will probably be a month or two because I only run it for 7 hours a day and I don't run it on weekends because I am usually out, and don't want to leave in for hours at a time. Trying to do my best to make it seem realistic of how long I'm on and what not. But anyways thanks so much for what I've gotten so far.
Flight
02-18-2012, 02:31 AM
I have gotten 60-81 farming and I got 80-86 magic from this script so far. :]]] Thank you I will continue it til I reach 99 which will probably be a month or two because I only run it for 7 hours a day and I don't run it on weekends because I am usually out, and don't want to leave in for hours at a time. Trying to do my best to make it seem realistic of how long I'm on and what not. But anyways thanks so much for what I've gotten so far.
Quite welcome my friend. Yep definitely possible to get that Farming cape with this, just depends on how much time you're willing to donate. :p If you'll be running it for long time like that I'd surely suggest you take a break every so often and do other things. Maybe play a minigame, run a script for a different skill (:garfield:), or do a quest (or even start one).
Best of luck to ya bud!
FloppyWien3r
02-18-2012, 04:25 AM
Bought this bot for 15$ at rsbots.net... Got 99 farm 99 mage and crafted the runes using rc bot ($18) getting 99 rc. Wasnt worth 33$ lol
Robot91292
02-18-2012, 05:12 AM
This script is great! Being the only farming script available to the public, I think it would be worth updating atleast so that it clicks in the spot right in front of you =)
Excellent, nice work man! Amazing how you did it, but it doesn't fix fences and other things does it/energize paulina? Except that, amazing bot! I was wondering, isn't the mouse movements too fast? I thought it could be easily detectable. Thanks!
nokiafan1
02-18-2012, 08:19 PM
Excellent, nice work man! Amazing how you did it, but it doesn't fix fences and other things does it/energize paulina? Except that, amazing bot! I was wondering, isn't the mouse movements too fast? I thought it could be easily detectable. Thanks!
As you can read on the thread title, Garden Section only, so no It doesn't fix fences or energize Paulina. You can probably slow the mouse movements a bit if you look around in the script
Blocks
02-19-2012, 02:53 AM
Excellent script :) But if you added a feature that bunched the livids and energized pauline it would increase the points per hour by a lot more.
Ezio Auditore da Firenze
02-19-2012, 06:31 AM
Cannot wait to use this script! Gotta reach 60 agility (54) & farming(45) then its all systems go!
Curioso
02-19-2012, 11:09 PM
Ugh stuck at the
[Error] (60:31): Type mismatch at line 59
Compiling failed.
can anyone help me?
Flight
02-20-2012, 01:11 AM
Ugh stuck at the
[Error] (60:31): Type mismatch at line 59
Compiling failed.
can anyone help me?
Just erase line 59. (LampSkill := 'Farming';)
lol305
02-20-2012, 06:04 AM
sexy ass bot SORRY FOR LANG BUT THAT HOW GOOD THIS BOT IS <3333333333333333333333333333 i post proggy tomorrow
Curioso
02-20-2012, 02:55 PM
Just erase line 59. (LampSkill := 'Farming';)
Haha, now I'm feeling like an idiot, thanks!
Tried the script and it's flawless so far. Great job! Couldn't love you more for it :D!
oxox0xoxo
02-21-2012, 03:26 AM
NICEEEE gunna get me my group vengance in no time =] ty
Masterstroke
02-21-2012, 06:03 PM
I'm usually a big talker but this script blows my socks off. All I can say is..
SWEET!
any one have any recent proggys of this O_O
jcjcjc
02-22-2012, 04:29 PM
Quite welcome my friend. Yep definitely possible to get that Farming cape with this, just depends on how much time you're willing to donate. :p If you'll be running it for long time like that I'd surely suggest you take a break every so often and do other things. Maybe play a minigame, run a script for a different skill (:garfield:), or do a quest (or even start one).
Best of luck to ya bud!
Yeah I am just took a few days of a break to work on some other skills including working for my other 99 goal of prayer got it to 85. I also did a little hunter and some magic so no I get full mage xp. But Now I'm getting back to this again getting it to 90 then I'll probably finish off prayer then come back to this again. hoping I'll get close to 99 mage from this also so I can get that 99 quick after I get 99 farming.
Anyone have a rough cost for 61-99? :P
Or/And
Rough total of Astrals and Natures required?
Edit: I am addicted to this now. Thanks.
=-=-=-=-=-=-= LividFarmer 1.1 by Flight =-=-=-=-=-=
Time Running: 2 Hours, 36 Minutes and 6 Seconds
Points: 17800
Plants cured: 427
Soil fertilized: 463
Farming XP: 81880 (31472 / hour)
Magic XP: 65901 (25330 / hour)
Breaks: 0
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
jcjcjc
02-22-2012, 10:15 PM
Anyone have a rough cost for 61-99? :P
Or/And
Rough total of Astrals and Natures required?
No clue I bought 200k of each runes to see how far that gets me if I run sort I'll get more and if I have extras Ill sell them. My guess though is probably around 80-100m maybe more maybe less.
Britannianpoika
02-24-2012, 10:56 AM
Time Running: 1 Hours, 5 Minutes and 2 Seconds
Points: 7640
Plants cured: 192
Soil fertilized: 190
Farming XP: 35144 (32423 / hour)
Magic XP: 28050 (25879 / hour)
Breaks: 0
Working good.
Fluttershy
02-24-2012, 12:52 PM
Can anyone give an average for the number of runes this uses per hour?
oxox0xoxo
02-24-2012, 02:42 PM
=-=-=-=-=-=-= LividFarmer 1.1 by Flight =-=-=-=-=-=
Time Running: 5 Hours, 44 Minutes and 26 Seconds
Points: 75800
Plants cured: 635
Soil fertilized: 3155
Farming XP: 348680 (60739 / hour)
Magic XP: 312585 (54452 / hour)
Breaks: 0
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
id say thats a pretty dam good proggie
=-=-=-=-=-=-= LividFarmer 1.1 by Flight =-=-=-=-=-=
Time Running: 5 Hours, 44 Minutes and 26 Seconds
Points: 75800
Plants cured: 635
Soil fertilized: 3155
Farming XP: 348680 (60739 / hour)
Magic XP: 312585 (54452 / hour)
Breaks: 0
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
id say thats a pretty dam good proggie
How did you get so much xp per hour? For me it averages around 30k xp/hr ea. Thats awesome though:p
Fluttershy
02-24-2012, 10:33 PM
Just thought this would be good for those who need to know how much runes they should buy:
I used Upper class limits to calculate this, so you would not under buy. (better have more then enough instead of not enough!)
______________
Statistics for 1 hour:
Exp Gain: 35684
Runes Used:
390 Nature runes
780 Astral runes
Ezio Auditore da Firenze
02-25-2012, 06:19 AM
Just thought this would be good for those who need to know how much runes they should buy:
I used Upper class limits to calculate this, so you would not under buy. (better have more then enough instead of not enough!)
______________
Statistics for 1 hour:
Exp Gain: 35684
Runes Used:
390 Nature runes
780 Astral runes
Thanks for the math, if its correct that's roughly 244k (cash) a hour,not a problem if your doing farm runs in between :D.
Fluttershy
02-25-2012, 12:38 PM
Thanks for the math, if its correct that's roughly 244k (cash) a hour,not a problem if your doing farm runs in between :D.
Ah, I haven't the time for farm runs, so I just run this throughout. XD
Got 72-75 already, and I am going for 80.
=-=-=-=-=-=-= LividFarmer 1.1 by Flight =-=-=-=-=-=
Time Running: 1 Hours, 29 Minutes and 34 Seconds
Points: 10660
Plants cured: 256
Soil fertilized: 277
Farming XP: 49036 (32848 / hour)
Magic XP: 39459 (26433 / hour)
Breaks: 0
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
Awesome Script! :)
Andres
02-26-2012, 03:37 PM
I only care about the points. From what I've seen, people are getting about 7500-13,000 points per hour.
Why did Jagex have to make such an awful minigame? I just want those spells!
Fluttershy
02-26-2012, 07:29 PM
I only care about the points. From what I've seen, people are getting about 7500-13,000 points per hour.
Why did Jagex have to make such an awful minigame? I just want those spells!
This script is defo not for the points... lol
Flight
02-27-2012, 02:14 AM
I only care about the points. From what I've seen, people are getting about 7500-13,000 points per hour.
Why did Jagex have to make such an awful minigame? I just want those spells!
Notice it's in the Farming section? ;)
Andres
02-27-2012, 03:00 PM
Notice it's in the Farming section? ;)
I know! I've got 99 farming and magic already. I want those spells so bad, though. The wiki says that getting all the spells playing normally will take at least 46 hours. That's practically torture :eek:
lol305
02-28-2012, 07:20 AM
Time Running: 4 Hours, 32 Minutes and 14 Seconds
Points: 29780
Plants cured: 745
Soil fertilized: 744
Farming XP: 136988 (30192 / hour)
Magic XP: 109428 (24117 / hour)
Breaks: 1
My proggy may look off since im using 10% boost tho ;c
wow Flight, this script is simple yet amazing. Im inspired to become a better scripter. Im testing it out now
Cyberskater
02-29-2012, 01:09 PM
OK. i know this is my first post and going to look like the biggest noob.
I have a few private scripts i have bought off some legit scripters.... but have no idea what im doing really.
i have updated but still get this... help please..... really want to take a look at this...
ive updated but i get hickup at line 59....
[Error] (60:31): Type mismatch at line 59
Compiling failed.
Successfully saved: C:\Users\Josh\Downloads\LividFarmer(1.1).Simba
[Error] (60:33): Type mismatch at line 59
Compiling failed.
Successfully saved: C:\Users\Josh\Downloads\LividFarmer(1.1).Simba
sniper46
02-29-2012, 10:51 PM
^^same problem
Juggalo812
03-01-2012, 08:22 AM
Scripts like this are what make me want to become an active member. Thank you a ton for this. Works perfectly. Anyone having issues with line 59 there was an update. Simply use the search button I searched "LampSkill" and it was the first one. Just have to replace it with SKILL_FARMING; instead of 'FARMING'; and then it works perfect. Thank you Flight :-D
=-=-=-=-=-=-= LividFarmer 1.1 by Flight =-=-=-=-=-=
Time Running: 3 Hours, 57 Minutes and 10 Seconds
Points: 25860
Plants cured: 610
Soil fertilized: 683
Farming XP: 118956 (30094 / hour)
Magic XP: 96021 (24292 / hour)
Breaks: 0
Made it to just under 4 hours before getting the maze random and failing it.
Ghost1618
03-02-2012, 05:09 AM
AMAZING SCRIPT!!!! Have gone from 91-98 farming already, here comes 99!
Time Running: 4 Hours, 49 Minutes and 54 Seconds
Points: 34440
Plants cured: 861
Soil fertilized: 861
Farming XP: 158424 (32788 / hour)
Magic XP: 126567 (26195 / hour)
Breaks: 0
Ezio Auditore da Firenze
03-02-2012, 02:36 PM
Yet, another fantastic script by Flight! Would like to thank you very much for it. I used the script from 60 to 80, and there was not a single problem, it's 100% flawless! I plan on continuing to use it all the way to 99! Thanks once again.
punkerpunk13
03-02-2012, 08:40 PM
Brilliant script. Great job with this. :)
lol305
03-02-2012, 10:35 PM
ty 4 99 farm
lilcmp1
03-06-2012, 05:03 AM
Since I've update SRL this hasn't been working for me. Anyone else having a problem?
AusKingdom
03-06-2012, 10:12 AM
The script is also not working for me either, hopefully it'll be updated soon. :)
J0shl
03-06-2012, 02:17 PM
same :(
jcjcjc
03-06-2012, 03:15 PM
Mine is working still though I did notice it's much slower now and sometimes it doesn't get to everything.
edit: never mind it's messing up now. it keeps thinking it's in a random or something.
mak3itra1n
03-07-2012, 05:34 AM
Its keeps telling me that there is an Line error on line 59. 'Farming' what do I do?
Harry
03-07-2012, 02:10 PM
It messes up a bit with the new antirandoms. Just remove FindNormalRandoms in the 3sec repeat loop in function HandleLivids.
jcjcjc
03-07-2012, 04:16 PM
thanks it works perfect now
suffrage
03-07-2012, 04:36 PM
it keep looping this
CA_TalkToArnav: Didn't click Arnav DTM
CA_TalkToArnav: Talking to Cap'n Arnav
CA_TalkToArnav: Didn't click Arnav DTM
CA_TalkToArnav: Talking to Cap'n Arnav
CA_TalkToArnav: Didn't click Arnav DTM
CA_TalkToArnav: Talking to Cap'n Arnav
CA_TalkToArnav: Didn't click Arnav DTM
CA_TalkToArnav: Talking to Cap'n Arnav
CA_TalkToArnav: Didn't click Arnav DTM
CA_TalkToArnav: Talking to Cap'n Arnav
CA_TalkToArnav: Didn't click Arnav DTM
CA_TalkToArnav: Talking to Cap'n Arnav
CA_TalkToArnav: Didn't click Arnav DTM
CA_TalkToArnav: Talking to Cap'n Arnav
CA_TalkToArnav: Didn't click Arnav DTM
CA_TalkToArnav: Talking to Cap'n Arnav
CA_TalkToArnav: Didn't click Arnav DTM
CA_TalkToArnav: Talking to Cap'n Arnav
CA_TalkToArnav: Didn't click Arnav DTM
CA_TalkToArnav: Talking to Cap'n Arnav
CA_TalkToArnav: Didn't click Arnav DTM
CA_TalkToArnav: Talking to Cap'n Arnav
CA_TalkToArnav: Didn't click Arnav DTM
CA_TalkToArnav: Talking to Cap'n Arnav
CA_TalkToArnav: Didn't click Arnav DTM
CA_TalkToArnav: Talking to Cap'n Arnav
CA_TalkToArnav: Didn't click Arnav DTM
CA_TalkToArnav: Talking to Cap'n Arnav
CA_TalkToArnav: Didn't click Arnav DTM
CA_TalkToArnav: Talking to Cap'n Arnav
CA_TalkToArnav: Didn't click Arnav DTM
CA_TalkToArnav: Talking to Cap'n Arnav
CA_TalkToArnav: Didn't click Arnav DTM
CA_TalkToArnav: Talking to Cap'n Arnav
CA_TalkToArnav: Didn't click Arnav DTM
CA_TalkToArnav: Talking to Cap'n Arnav
CA_TalkToArnav: Didn't click Arnav DTM
CA_TalkToArnav: Talking to Cap'n Arnav
CA_TalkToArnav: Didn't click Arnav DTM
CA_TalkToArnav: Talking to Cap'n Arnav
CA_TalkToArnav: Didn't click Arnav DTM
CA_TalkToArnav: Talking to Cap'n Arnav
CA_TalkToArnav: Didn't click Arnav DTM
CA_TalkToArnav: Talking to Cap'n Arnav
CA_TalkToArnav: Didn't click Arnav DTM
CA_TalkToArnav: Talking to Cap'n Arnav
CA_TalkToArnav: Didn't click Arnav DTM
CA_TalkToArnav: Talking to Cap'n Arnav
CA_TalkToArnav: Didn't click Arnav DTM
CA_TalkToArnav: Talking to Cap'n Arnav
CA_TalkToArnav: Didn't click Arnav DTM
CA_TalkToArnav: Talking to Cap'n Arnav
CA_TalkToArnav: Didn't click Arnav DTM
CA_TalkToArnav: Talking to Cap'n Arnav
CA_TalkToArnav: Didn't click Arnav DTM
CA_TalkToArnav: Talking to Cap'n Arnav
CA_TalkToArnav: Didn't click Arnav DTM
CA_TalkToArnav: Talking to Cap'n Arnav
CA_TalkToArnav: Didn't click Arnav DTM
CA_TalkToArnav: Talking to Cap'n Arnav
CA_TalkToArnav: Didn't click Arnav DTM
CA_TalkToArnav: Talking to Cap'n Arnav
CA_TalkToArnav: Didn't click Arnav DTM
CA_TalkToArnav: Talking to Cap'n Arnav
CA_TalkToArnav: Didn't click Arnav DTM
CA_TalkToArnav: Talking to Cap'n Arnav
CA_TalkToArnav: Didn't click Arnav DTM
CA_TalkToArnav: Talking to Cap'n Arnav
CA_TalkToArnav: Didn't click Arnav DTM
CA_TalkToArnav: Talking to Cap'n Arnav
CA_TalkToArnav: Didn't click Arnav DTM
CA_TalkToArnav: Talking to Cap'n Arnav
CA_TalkToArnav: Didn't click Arnav DTM
CA_TalkToArnav: Talking to Cap'n Arnav
CA_TalkToArnav: Didn't click Arnav DTM
CA_TalkToArnav: Talking to Cap'n Arnav
CA_TalkToArnav: Didn't click Arnav DTM
CA_Solve: Cap'n Arnav solver timed out
***** Failed Random: Cap'n Arnav *****
Successfully executed.
suffrage
03-07-2012, 04:46 PM
It messes up a bit with the new antirandoms. Just remove FindNormalRandoms in the 3sec repeat loop in function HandleLivids.
how can i remove it?
jcjcjc
03-07-2012, 05:22 PM
It messes up a bit with the new antirandoms. Just remove FindNormalRandoms in the 3sec repeat loop in function HandleLivids.
this worked for a while until the game updated it's no longer looping this but it's so slow now
Harry
03-07-2012, 05:32 PM
this worked for a while until the game updated it's no longer looping this but it's so slow now
Still works fine for me. Make sure your graphics settings didn't break?
i get the same thing as suffrage
jcjcjc
03-07-2012, 08:49 PM
Still works fine for me. Make sure your graphics settings didn't break?
nope they are the same
Scottydoo123
03-07-2012, 11:17 PM
I also get the cap n Arrav problem
missile
03-08-2012, 12:39 AM
As of now, it just constantly runs to the east for me. Possibly because of the update?
EDIT: My graphics settings changed due to being on new computer. My bad, it just misses the plant type when it tries to cure them.
Flight
03-08-2012, 02:38 AM
It messes up a bit with the new antirandoms. Just remove FindNormalRandoms in the 3sec repeat loop in function HandleLivids.
I wonder why that is?
I'll run this script today and see where it's going wrong for everyone.
Harry
03-08-2012, 02:40 AM
Because the new antirandoms rely a lot on tabs. When the 4-choice screen pops up, the tabs disappear.
Flight
03-08-2012, 02:57 AM
Because the new antirandoms rely a lot on tabs. When the 4-choice screen pops up, the tabs disappear.
Ah ha, that makes sense. Nice catch Harry.
Updated to version 1.15.
jcjcjc
03-08-2012, 04:58 PM
It's still having the same Cap'n Arnav Random issue with the new update
stinkysocks
03-08-2012, 10:17 PM
This looks like a promising scirpt i know im new and think im just a leecher but inbetween work and my social life i will try to help contribute as much as i can, ill try it later out and give my honest opinion srl is a great community!
jcjcjc
03-08-2012, 11:09 PM
This looks like a promising scirpt i know im new and think im just a leecher but inbetween work and my social life i will try to help contribute as much as i can, ill try it later out and give my honest opinion srl is a great community!
Yeah this script was flawless til a few days ago when srl updated, and it doesn't seem that the update did anything to fix it, but I'm sure it'll have a flawless working version again soon. 1.15 just seem like it was supposed to be a quick fix, and not a fully working version, so I'd wait untill the next version is out if you want to give it an honest test run. Trust me I got from 60-93 farming from this script so far, so it's defiantly worth doing once it's up and working again. :]
Omega Supreme
03-09-2012, 12:05 AM
used this script a while back to gain a few spells, havent used it recently but it did run like a dream.
used this script a while back to gain a few spells, havent used it recently but it did run like a dream.
Same, i wished i used this script a long time ago to achieve my current farming level and get awesome spells
suffrage
03-11-2012, 01:33 PM
the random problems still here
Foefoe
03-11-2012, 01:43 PM
Beautiful, thank you. I appreciate your work many times over Flight!
gothical
03-11-2012, 02:36 PM
the random problems still here
Remove "FindNormalRandoms" from the script as a temporary solution. Was only working for like 20-30 mins at a time before but now its much better after I removed. Been running for 3 hours and gotten like 100k xp so far without it failing once.
suffrage
03-11-2012, 04:04 PM
Remove "FindNormalRandoms" from the script as a temporary solution. Was only working for like 20-30 mins at a time before but now its much better after I removed. Been running for 3 hours and gotten like 100k xp so far without it failing once.
remove all "FindNormalRandoms" parameter from the scripts??
Curioso
03-11-2012, 04:07 PM
No just the FindNormalRandoms in the HandleLivids section, below 'repeat'. It's in the loop
suffrage
03-11-2012, 05:35 PM
Repeat
if not LoggedIn then
begin
LoginPlayer;
ClickNorth(SRL_ANGLE_HIGH);
end;
BreakHandler(BreakIn,BreakFor,Bir,Bfr);
if (TimeFromMark(CommitTime)>=30000) then
Commit;
if (TimeFromMark(ReportTime)>=5000) then
Report;
FindNormalRandoms;
HandleLivids;
HandleSoil;
Antiban;
Until(AllPlayersInactive)
end.
This one right?
EvilTwin
03-11-2012, 05:40 PM
Thanks to this script i have vengeance group spell unlocked & ready to use =) Thanks Flight.
Curioso
03-11-2012, 06:55 PM
Repeat
if not LoggedIn then
begin
LoginPlayer;
ClickNorth(SRL_ANGLE_HIGH);
end;
BreakHandler(BreakIn,BreakFor,Bir,Bfr);
if (TimeFromMark(CommitTime)>=30000) then
Commit;
if (TimeFromMark(ReportTime)>=5000) then
Report;
FindNormalRandoms;
HandleLivids;
HandleSoil;
Antiban;
Until(AllPlayersInactive)
end.
This one right?
Yes, if the bug still occurs, deleting another 'FindNormalRandoms' in the same section will help too. It's somewhere in the beginning of the 'HandleLivids'-section between 'Start:' and 'MouseSpeed := RandomRange(12, 16);'. Your code of the section 'HandlLivids' should look like this
Function HandleLivids: Boolean;
var
X,Y,T: Integer;
label
Start;
begin
Result := False;
Start:
MouseSpeed := RandomRange(12, 16);
if FindLivid(X, Y) then
begin
ClickMouse2(False);
if (GetLividType(X, Y) = 0) then
GoTo Start;
ClickMouse2(False);
if WaitOption('Cure', 500) then
begin
HumanMMouse(635, 310, 65, 70);
Smart_ClearCanvas;
end;
MarkTime(T);
repeat
if (TimeFromMark(T) > 3000) then
Exit;
if LividMenu then
break;
until(false)
if LividMenu then
begin
CureLivid(GetLividType(X, Y));
Smart_ClearCanvas;
Wait(randomRange(1915, 2570));
GoTo Start;
end;
end else
Result := True;
end;
In other words: Thanks Flight, this script is awesome and helps me alot getting the last levels! I hope you didn't mind me figuring a bug out and helping some players here. I just want to help the community!
dangerousgoods
03-12-2012, 09:13 PM
Working fine for me without changing any settings or removing lines. You guys sure your Simba & extensions are all up to date ?
=-=-=-=-=-=-= LividFarmer 1.15 by Flight =-=-=-=-=-=
Time Running: 2 Hours, 8 Minutes and 16 Seconds
Points: 15320
Plants cured: 384
Soil fertilized: 382
Farming XP: 70472 (32965 / hour)
Magic XP: 56274 (26323 / hour)
Breaks: 0
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
Curioso
03-12-2012, 09:26 PM
Yes it does work w/o removing lines etc. But this is just a temporary 'fix'. I've noticed this sometimes occur when you're repeatedly minimizing your SMART screen. It's just so I can minimize w/o it crashing etc. And yes I update Simba and extensions daily.
Script has been running flawless
Time Running: 3 Hours, 25 Minutes and 16 Seconds
Points: 24320
Plants cured: 608
Soil fertilized: 608
Farming XP: 111872 (32700 / hour)
Magic XP: 89376 (26124 / hour)
Breaks: 1
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
If the bug doesn't occur anymore I'll re-add the lines if nescessary. Randoms are being solved anyway (most of the time).
hemeny
03-13-2012, 11:16 AM
hey line 414
begin
Result := FindText(x, y, 'train', SmallChars, MIX1, MIY1, MIX2, MIY2);
the text 'train" where and when is that said?
Flight
03-13-2012, 12:15 PM
hey line 414
the text 'train" where and when is that said?
'Strain', minus the capital 'S'. I believe it's when your inventory area becomes the 'Choose Strain' interface.
Destined2bGreat
03-13-2012, 05:21 PM
About how much money does this script use per hour?
Harry
03-13-2012, 08:01 PM
About how much money does this script use per hour?
Couple hundred thousand. Check it out.
Also I found an interesting bug. You never reset the CTS in your find functions. In particular, your ATPA loop never changes the CTS back to 1 after finishing. This breaks some antirandoms, and also seems to trigger a lot more of false-positive livid findings. Works great after changing that, before I kept finding false randoms even after removing the other random loop because it was on cts2 when finding randoms.
hemeny
03-13-2012, 11:01 PM
'Strain', minus the capital 'S'. I believe it's when your inventory area becomes the 'Choose Strain' interface.
ah thank you. never noticed it had any text on that screen.
Flight
03-14-2012, 01:27 AM
Couple hundred thousand. Check it out.
Also I found an interesting bug. You never reset the CTS in your find functions. In particular, your ATPA loop never changes the CTS back to 1 after finishing. This breaks some antirandoms, and also seems to trigger a lot more of false-positive livid findings. Works great after changing that, before I kept finding false randoms even after removing the other random loop because it was on cts2 when finding randoms.
:duh: Again, nice catch Harry. I feel pretty dumb for having over-looked that, even just recently.
hemeny
03-14-2012, 09:51 AM
great script too bad its only a beta (?) could work infinitely better if you put a little more work on it, but at this moment in time i do not wish to put my account at risk using this.
too bad aswell, easy farm exp.
Zyzolol
03-15-2012, 09:12 PM
I am only getting about 20-25k xp/h.
Because 75% of the time it just hovers between the 'Diseased Livid' and when it finally chooses to try to cure it, it chooses the wrong one and I get the error msg "That's not the correct strain of livid".
I have
91 Farm
All extensions, everything I can updated,
Lowest settings
XP show & Popups turned off.
Max Brightness set.
http://img21.imageshack.us/img21/3240/errornotthecorrectstrai.jpg
What's wrong?
Harry
03-15-2012, 11:39 PM
You're not standing in the correct spot. Read the directions again.
Littellj
03-16-2012, 02:27 AM
great script too bad its only a beta (?) could work infinitely better if you put a little more work on it, but at this moment in time i do not wish to put my account at risk using this.
too bad aswell, easy farm exp.
:duh: make one yourself then.....
hemeny
03-16-2012, 08:48 AM
:duh: make one yourself then.....
does it look like i was complaining ? i was stating how i feel, why do you not try to flame/troll someone else.
supersain
03-17-2012, 04:44 AM
does it look like i was complaining ? i was stating how i feel, why do you not try to flame/troll someone else.
He likes to kiss ass :cartman:
siuman101
03-18-2012, 08:49 AM
Is this script still work??
Neega Rose
03-19-2012, 08:17 PM
how much would 99 farming cost with this from around 80ish (healing plants only)?
lilcmp1
03-19-2012, 11:27 PM
how much would 99 farming cost with this from around 80ish (healing plants only)?
Use the search function. I think Sin has a calculator you can use.
halgboy_tbc
03-20-2012, 11:30 PM
nvm
oneshadow
03-22-2012, 09:23 AM
Amazing, downloaded and worked right off the bat!
rowan131
03-23-2012, 02:23 AM
Just going to get enough points for pouch repair then try your ZMI script. One questing is their a random solver? I would like to leave this overnight unmonitored but would it mess up?
NZ John
03-23-2012, 02:25 AM
Just going to get enough points for pouch repair then try your ZMI script. One questing is their a random solver? I would like to leave this overnight unmonitored but would it mess up?
Random solver is built into Simba/SRL, its not different in every script. You could run this overnight, but you would most likely encounter a random. Remember, this would only run for about 6 hours or so MAX due to the client getting that 6 hours token thing. Honestly, the random solvers aren't amazing IMO, I've had a few work but majority of the time they haven't.
i have gotten 81 to 94 farming using this 700k points
thanks to flight over 100 hours done
supersain
03-23-2012, 06:49 PM
I am only getting about 20-25k xp/h.
Because 75% of the time it just hovers between the 'Diseased Livid' and when it finally chooses to try to cure it, it chooses the wrong one and I get the error msg "That's not the correct strain of livid".
I have
91 Farm
All extensions, everything I can updated,
Lowest settings
XP show & Popups turned off.
Max Brightness set.
http://img21.imageshack.us/img21/3240/errornotthecorrectstrai.jpg
What's wrong?
start at the correct spot.
Guys could you help a nob and tell me which runes is needed for this besides astral lol
Imanoobbot
03-24-2012, 10:47 AM
Great script so far. I am really getting a fan of your scripts.
suffrage
03-24-2012, 01:33 PM
Guys could you help a nob and tell me which runes is needed for this besides astral lol
nature runes
Imanoobbot
03-24-2012, 01:37 PM
Guys could you help a nob and tell me which runes is needed for this besides astral lol
You need Astral and Nature runes if you just want to cure plants.
Nice you are here since 2006!
rowan131
03-24-2012, 01:43 PM
I am in the right position and everything but I am not getting more than 25k xp/h I lag alot and im guessing that affects it but i dont know how to fix it i have anywhere between 3 and 8 megabyte download speed so that isnt the issue. It just said an error The automatically split characters are too wide. Try decreasing minspacing.
What does that mean?
Flight
03-24-2012, 02:26 PM
I am in the right position and everything but I am not getting more than 25k xp/h I lag alot and im guessing that affects it but i dont know how to fix it i have anywhere between 3 and 8 megabyte download speed so that isnt the issue. It just said an error The automatically split characters are too wide. Try decreasing minspacing.
What does that mean?
Hmm sometimes I have trouble with SMART lagging quite a bit, and all of a sudden. I'm pretty sure it has something to do with the target being set/unset. My suggestion is; while running this script, if you notice the lag (as in like an insanely low FPS) then go over to the right side of the SMART client and simply slide that little arrow up even a tiny little bit in either direction. I'm not sure why but that sets the speed back to where it should be.
Maybe it helps you, maybe not, but it's worth a shot, no?
fancysteve
03-24-2012, 03:57 PM
Excellent script. It works, and that's rare to find with scripts these days. 87 Farming, here I come!
Google
03-24-2012, 11:09 PM
gave this a go to check it out heres my proggy
Time Running: 3 Hours, 25 Minutes and 27 Seconds
Points: 22920
Plants cured: 560
Soil fertilized: 586
Farming XP: 105432 (30790 / hour)
Magic XP: 84582 (24701 / hour)
Breaks: 0
Leonoras
03-25-2012, 09:24 AM
Mine:
=-=-=-=-=-=-= LividFarmer 1.15 by Flight =-=-=-=-=-=
Time Running: 1 Hours, 42 Minutes and 8 Seconds
Points: 11600
Plants cured: 288
Soil fertilized: 292
Farming XP: 53360 (31347 / hour)
Magic XP: 42684 (25075 / hour)
Breaks: 0
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
Thanks! :)
rougarou
03-25-2012, 10:16 PM
Hey, will you ever implement the whole of livid farm? Would love the full 18k points an hour! I've done nearly 200k legit too!
thanks flight for the awsome bot did over 100 hours and going to finish 99 farming
http://i41.tinypic.com/efmjrs.png
rebeltjeh
03-26-2012, 11:24 AM
thanks flight for the awsome bot did over 100 hours and going to finish 99 farming
http://i41.tinypic.com/efmjrs.png
may I ask how u got 91 summoning ... I'm looking atm but waterfiends script only giving 50charms/hr atm :(
i didnt bot most them stats charms was done legit rock lobsters
rebeltjeh
03-26-2012, 02:45 PM
oh allrighty tx
Ashihtaka
03-26-2012, 04:39 PM
ah, farming was always expensive after lvl 90.
I'm looking forward to this script especially since it's one of Flight's creations!
Sulferx
03-27-2012, 08:23 AM
I love you for this script.
=-=-=-=-=-=-= LividFarmer 1.15 by Flight =-=-=-=-=-=
Time Running: 2 Hours, 5 Minutes and 10 Seconds
Points: 14180
Plants cured: 353
Soil fertilized: 356
Farming XP: 65228 (31267 / hour)
Magic XP: 52152 (24999 / hour)
Breaks: 0
shima
03-27-2012, 07:10 PM
This is a great script, keep up the good work. I got 7 farm levels in one day with this script from 60-67. About 6 hours.
derik
03-27-2012, 08:08 PM
Amazing script, would love to see a fully developed one for whole of livid farm ;)
=-=-=-=-=-=-= LividFarmer 1.15 by Flight =-=-=-=-=-=
Time Running: 59 Minutes and 59 Seconds
Points: 7080
Plants cured: 169
Soil fertilized: 185
Farming XP: 32568 (32577 / hour)
Magic XP: 26235 (26242 / hour)
Breaks: 0
Keep up the good work!
BigRedJapan
03-28-2012, 04:25 PM
I think this is your best Proggy im post! Ran it Last Night!
=-=-=-=-=-=-= LividFarmer 1.15 by Flight =-=-=-=-=-=
Time Running: 6 Hours, 2 Minutes and 10 Seconds
Points: 84300
Plants cured: 450
Soil fertilized: 3765
Farming XP: 387780 (64243 / hour)
Magic XP: 354555 (58738 / hour)
Breaks: 1
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
Sopted Curing Cuz i Ran OUt of Nats! -_-
shstiger2009
03-28-2012, 04:46 PM
I think this is your best Proggy im post! Ran it Last Night!
=-=-=-=-=-=-= LividFarmer 1.15 by Flight =-=-=-=-=-=
Time Running: 6 Hours, 2 Minutes and 10 Seconds
Points: 84300
Plants cured: 450
Soil fertilized: 3765
Farming XP: 387780 (64243 / hour)
Magic XP: 354555 (58738 / hour)
Breaks: 1
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
Sopted Curing Cuz i Ran OUt of Nats! -_-
64k/hr...? :O
jonnypot
03-28-2012, 05:01 PM
Can someone tell me how many runes this uses per hour please
BigRedJapan
03-28-2012, 05:21 PM
64k/hr...? :O
Yep i love it!
If i get more money im try going for that shield!
bbassett
03-28-2012, 06:37 PM
Tell me - does ANYTHING break this script? It's been going all day without a break (well, script manager does it's bit too) Thanks so much for this script, getting me through The. Most. Boring. Skill. Ever. - 30k XP / hr is bad (not your fault - the game's) but I can live with it if you consider the alternative - doing it myself.......Thanks again
superbuster4
03-29-2012, 01:03 PM
i have never done livid farm so i do not know much about it. so do u make money or brake even from the runes lost or whats happening here?
Hunaja
03-29-2012, 03:31 PM
Yep i love it!
If i get more money im try going for that shield!
Obviously it's just a bug in the proggy :duh:
xxfettomagex
03-29-2012, 04:13 PM
i have never done livid farm so i do not know much about it. so do u make money or brake even from the runes lost or whats happening here?
You loose cash.
fancysteve
03-29-2012, 07:24 PM
Time Running: 2 Hours, 12 Minutes and 28 Seconds
Points: 15820
Plants cured: 397
Soil fertilized: 394
Farming XP: 72772 (32961 / hour)
Magic XP: 58098 (26315 / hour)
Breaks: 0
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
Current proggy, thanks!
Sulferx
03-30-2012, 03:56 AM
i have never done livid farm so i do not know much about it. so do u make money or brake even from the runes lost or whats happening here?
You lose money on the minigame because you must buy the runes to cast spells.
Some people play to unlock extra Lunar spells. Most probably use this script because playing the minigame gets about 32k farming xp/h.
75 farming from 60 so far :D
Onemind
03-31-2012, 02:57 PM
Can anyone please give me an estimate for the cost of Pouch Repair and Vegeance Group?
Bulls
03-31-2012, 05:37 PM
I think this is your best Proggy im post! Ran it Last Night!
=-=-=-=-=-=-= LividFarmer 1.15 by Flight =-=-=-=-=-=
Time Running: 6 Hours, 2 Minutes and 10 Seconds
Points: 84300
Plants cured: 450
Soil fertilized: 3765
Farming XP: 387780 (64243 / hour)
Magic XP: 354555 (58738 / hour)
Breaks: 1
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
Sopted Curing Cuz i Ran OUt of Nats! -_-
seems legit
stoffel
04-01-2012, 11:23 AM
that skill guide thingy is a bit in the way :s anyone has a solution for that?
Foefoe
04-01-2012, 06:44 PM
If you make the full version (doing all the things in Livid Farmer), you will be my hero.
Justin
04-02-2012, 01:10 AM
Flight, would it be ok if I turn this script into a little project for my own personal use to make a fully-working Livid Farming script?
Bulls
04-02-2012, 04:51 PM
am i the only one that get "not responding" error after few hours, and with this script only?
Nitwit
04-02-2012, 11:20 PM
This is just an awesome script, working for 30 min now, flawless!
Can you tell me how to post a proggy please???
Mjordan
04-02-2012, 11:39 PM
This is just an awesome script, working for 30 min now, flawless!
Can you tell me how to post a proggy please???
It will spit out the progress report after every loop in the bottom section of your Simba client. Just copy and past that here. Most people usually post their progress reports between [CODE] tags
Nitwit
04-03-2012, 12:29 AM
It will spit out the progress report after every loop in the bottom section of your Simba client. Just copy and past that here. Most people usually post their progress reports between [CODE] tags
Thanks, and I will do that ;)
Nitwit
04-03-2012, 12:53 AM
Time Running: 1 Hours, 38 Minutes and 47 Seconds
Points: 10740
Plants cured: 268
Soil fertilized: 269
Farming XP: 49404 (30007 / hour)
Magic XP: 39483 (23981 / hour)
Breaks: 0
I did that with a few pauses of my own too :D
Regicidal
04-03-2012, 06:04 AM
Damn nice!
marijuana420
04-03-2012, 06:48 AM
NVM fixed my problem on my own =D woot to coding tuts =D
Le Jingle
04-03-2012, 10:44 PM
While I was toying / learning to use paintsmart, I managed a cool, up to date proggy:
=-=-=-=-=-=-= LividFarmer 1.15 by Flight =-=-=-=-=-=
Time Running: 3 Hours, 35 Minutes and 26 Seconds
Points: 25100
Plants cured: 626
Soil fertilized: 629
Farming XP: 115460 (32156 / hour)
Magic XP: 92283 (25701 / hour)
Breaks: 0
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
I think now I'll try to make it so my character switches spots amongst the farm on a random basis.. >:]
i have never done livid farm so i do not know much about it. so do u make money or brake even from the runes lost or whats happening here?
Lol, is it hard to google "Livid Farm" and click the first result?
its a minigame, you dont make any money from this, you lose because of the runes, but its worth it for the farm xp
marijuana420
04-04-2012, 05:20 AM
=-=-=-=-=-=-= LividFarmer 1.15 by Flight =-=-=-=-=-=
Time Running: 47 Minutes and 55 Seconds
Points: 5140
Plants cured: 121
Soil fertilized: 136
Farming XP: 23644 (29606 / hour)
Magic XP: 19092 (23906 / hour)
Breaks: 0
ran for 8 hours b4 (lost prodgy)
Here2help
04-04-2012, 05:46 PM
I notice that it doesn't fertilizing the soil, but does a great job curing the plants.
Thanks for the script.
pcelite11
04-05-2012, 01:19 AM
cant wait to try this out
timecode2
04-05-2012, 04:28 PM
how do i download the script and what do i run it on?? i really want this in my life! =)
lilcmp1
04-05-2012, 08:53 PM
I notice that it doesn't fertilizing the soil, but does a great job curing the plants.
Thanks for the script.
Something must be up on your end. It's fertilizing just fine for me.
how do i download the script and what do i run it on?? i really want this in my life! =)
Download the script at the end of first post and it'll auto open with simba. Provided you have downloaded simba that is... You might try reading through tutorials
Flight
04-06-2012, 12:38 AM
ustin;978007']Flight, would it be ok if I turn this script into a little project for my own personal use to make a fully-working Livid Farming script?
Definitely, go for it. :)
Here2help
04-06-2012, 09:04 AM
Something must be up on your end. It's fertilizing just fine for me.
Download the script at the end of first post and it'll auto open with simba. Provided you have downloaded simba that is... You might try reading through tutorials
Humm wonder what it could be. I have everything up to date and its running on SRL5. Maybe I'll try to add in another color and see if that helps.
Justin
04-06-2012, 09:09 AM
Definitely, go for it. :)
Thanks Flight!
Here2help
04-06-2012, 09:10 AM
Its a no go... Flight, any idea why it's not fertilizing the soil?
Flight
04-06-2012, 09:18 AM
Its a no go... Flight, any idea why it's not fertilizing the soil?
Give me just a second and I'll go test it myself. I'll edit this post when I have some results, so look back to this post soon.
Justin
04-06-2012, 09:29 AM
Its a no go... Flight, any idea why it's not fertilizing the soil?
Just gave this a test, (Someone else is also using Flights Livid Farmer here lol) working fine for me and the other botter.
You might want to check your graphic settings
Here2help
04-06-2012, 09:34 AM
Give me just a second and I'll go test it myself. I'll edit this post when I have some results, so look back to this post soon.
Alright thanks.
I have graphics on lowest, and light on high.
Here2help
04-06-2012, 09:43 AM
http://i.imgur.com/6k3Wh.jpg
Also it keeps trying to click off screen.
Justin
04-06-2012, 10:06 AM
http://i.imgur.com/6k3Wh.jpg
Also it keeps trying to click off screen.
You have something enabled..
http://www.srljustin.com/images/lIeW.png
Change your graphic settings to this.
http://www.srljustin.com/images/Ai4n.png
http://www.srljustin.com/images/daw6.png
Here2help
04-06-2012, 10:41 AM
It was my settings. Dunno why it doesn't do it automatically when I set it to lower graphics. Thanks for the help, its working amazingly now!
Sim Kai Long
04-06-2012, 03:15 PM
=-=-=-=-=-=-= LividFarmer 1.15 by Flight =-=-=-=-=-=
Time Running: 3 Hours, 44 Minutes and 28 Seconds
Points: 25060
Plants cured: 618
Soil fertilized: 635
Farming XP: 115276 (30813 / hour)
Magic XP: 92325 (24678 / hour)
Breaks: 1
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
Successfully executed.
Great script! Will be using it to get the Repair Pouch skill haha.
GRN Poison
04-06-2012, 06:02 PM
thanks
Ashihtaka
04-06-2012, 06:13 PM
I've yet to explore this activity,
before I begin this script - anyone able to suggest a number of each rune to bring for 6 hours of running it?
whyME
04-07-2012, 03:12 AM
=-=-=-=-=-=-= LividFarmer 1.15 by Flight =-=-=-=-=-=
Time Running: 5 Hours, 3 Minutes and 23 Seconds
Points: 13120
Plants cured: 246
Soil fertilized: 410
Farming XP: 60352 (11935 / hour)
Magic XP: 50430 (9973 / hour)
Breaks: 2
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
not a fan....all settings are correct by the way.
Flight
04-07-2012, 03:24 AM
=-=-=-=-=-=-= LividFarmer 1.15 by Flight =-=-=-=-=-=
Time Running: 5 Hours, 3 Minutes and 23 Seconds
Points: 13120
Plants cured: 246
Soil fertilized: 410
Farming XP: 60352 (11935 / hour)
Magic XP: 50430 (9973 / hour)
Breaks: 2
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
not a fan....all settings are correct by the way.
Hm plants not being cured... I've seen a couple progress reports with similar results of more soil fertilized than plants cured. I think I'll tweak this a bit. Would you like to test it when I finish up, whyME?
Ecstasy PKer
04-07-2012, 05:49 AM
Great script Flight! Will post a proggy soon. Already got a 3 hour one and a 2 hour one! And for everyone with the fertilise soil being way more than the cure plants, I think it's because you disabled smart too many times/ for too long, because that's happened to me a couple times, but otherwise great script. :)
P.S. Do you plan on making a script that does the whole farm in the future? If you did that would be AMAZING. :) (Sorry to sound like a leecher :p)
whyME
04-07-2012, 06:12 AM
Hm plants not being cured... I've seen a couple progress reports with similar results of more soil fertilized than plants cured. I think I'll tweak this a bit. Would you like to test it when I finish up, whyME?
I would love to, I set it and went out for a bit so I wasn't able to see what was wrong with it, just the horrible exp per hour :P. After playing around with a bit, it seems to have trouble deciding which plant it is.
Also, for whatever reason it will continuously loop right-clicking on the different plants, almost as if deciding which one to try to cure.
PS: Love your scripts, actually learning how to script because there are things I want to add/tweak with them. Keep it up!
Flight
04-07-2012, 07:17 AM
It's been improved, and now I'm working on adding Pauline-energizing support. I'll release it after that, and possibly work on the rest of the activity later on.
ph0ne
04-07-2012, 10:08 AM
Small bug: runs away east of the farming patches where the suqua is.. my settings are minimum and ran for about 40 mins before it decided to do that.
Lucky for 99 defence and torags while botting i've kept over 30m in runes or else would of lost it.
Flight
04-07-2012, 02:58 PM
Added energizing of Pauline and jumped up to over 11k points / hour as well as a jump up to 31k Magic XP / hour. Anyone care to test out V.1.2?
Edit:
[=================================]
[ LividFarmer 1.2 ]
[ by Flight ]
[=================================]
[ Run Time : 59 Min 57 Sec ]
[ Points : 10600 ]
[ Plants Cured : 180 ]
[ Soil Fertilized : 185 ]
[ Farming XP : 33580 ]
[ Farming XP/Hr : 33608 ]
[ Magic XP : 30195 ]
[ Magic XP/Hr : 30220 ]
[ Agility XP : 5544 ]
[ Agility XP/Hr : 5548 ]
[ Breaks : 0 ]
[=================================]
[ LividFarmer 1.2 ]
[=================================]
NZ John
04-07-2012, 03:04 PM
Added energizing of Pauline and jumped up to over 11k points / hour as well as a jump up to 31k Magic XP / hour. Anyone care to test out V.1.2?
Yeap, I will. Using your ZMI bot, 700k to 99 then I'll be happy to use this to 99 farm :)
Ecstasy PKer
04-07-2012, 05:33 PM
Added energizing of Pauline and jumped up to over 11k points / hour as well as a jump up to 31k Magic XP / hour. Anyone care to test out V.1.2?
Edit:
[=================================]
[ LividFarmer 1.2 ]
[ by Flight ]
[=================================]
[ Run Time : 59 Min 57 Sec ]
[ Points : 10600 ]
[ Plants Cured : 180 ]
[ Soil Fertilized : 185 ]
[ Farming XP : 33580 ]
[ Farming XP/Hr : 33608 ]
[ Magic XP : 30195 ]
[ Magic XP/Hr : 30220 ]
[ Agility XP : 5544 ]
[ Agility XP/Hr : 5548 ]
[ Breaks : 0 ]
[=================================]
[ LividFarmer 1.2 ]
[=================================]
I'd be so happy to test out v1.2! :) I'll make sure to post a big proggy!
Alvarito
04-07-2012, 09:32 PM
Working pretty smooth so far.
Thank you very much :)
Sim Kai Long
04-08-2012, 06:42 AM
Hey Flight! I'd love to test the new version. :)
Flight
04-08-2012, 06:44 AM
Here's V.1.2 for anyone who would like to test it out with me. Same as before but now you must have Law runes in your inventory.
{/////////////////////////////////////////
// LividFarmer //
// (by Flight) //
// //
// Version: 1.2 //
/////////////////////////////////////////}
program LividFarmer;
{$DEFINE SRL5}
{$DEFINE SMART}
{$i SRL/srl.simba}
{$i SRL/SRL/misc/reports.simba}
{$i SRL/SRL/misc/paintsmart.simba}
Const
//SRL Stats
SRLStats_Username = '';
SRLStats_Password = '';
//General settings
DebugMode = True; //On-screen debugging?
SwitchWorlds = True; //Switch worlds after a break?
//Break settings
BreakIn = 135; //How long before we take a break? (minutes)
BreakFor = 15; //How long will we break for? (minutes)
Bir = 13; //Random minutes to add/subtract from how long until we break
Bfr = 7; //Random minutes to add/subjtract from break duraction
Var
//Static
Version: String;
SCols,PCols: TIntegerArray;
//Dynamic
FarmXP,FarmXP_O,MageXP,
MageXP_O,AgilXP,AgilXP_O,
Points,CommitTime,
ReportTime,PlantCount,
SoilCount: Integer;
CheckedPauline: Boolean;
//Break variables
w,x,y,z,RealBTime,CurrentBTime,
BreakRounds,TotalBreaks: Integer;
Procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
with Players[0] do
begin
Name := '';
Pass := '';
BoxRewards := ['XP','xp','lamp'];
LampSkill := Skill_Farming;
Active := True;
end;
end;
Procedure LoadVars;
begin
Version := '1.2';
MarkTime(ReportTime);
MarkTime(CommitTime);
CheckedPauline := False;
SetupSRLStats(156, SRLStats_Username, SRLStats_Password);
w := (BreakIn * 60000);
x := (BreakFor * 60000);
y := RandomRange(-Bir * 60000, Bir * 60000);
z := RandomRange(-Bfr * 60000, Bfr * 60000);
SCols := [5073267, 5204854, 5465452, 5402748]; //Soil colors
PCols := [4542282, 4674124, 4871760, 5003346, 5135188]; //Healthy livid colors
end;
Procedure Report;
Var
FXPH,MXPH,AXPH: Integer;
begin
FXPH := Round((FarmXP * 3600) / (GetTimeRunning / 1000));
MXPH := Round((MageXP * 3600) / (GetTimeRunning / 1000));
AXPH := Round((AgilXP * 3600) / (GetTimeRunning / 1000));
ClearDebug;
SRLProgressReport(ResultDebugBox, 'LividFarmer', 'Flight', Version,
['Run time', 'Points', 'Plants cured', 'Soil fertilized', 'Farming XP',
'Farming XP/Hr', 'Magic XP', 'Magic XP/Hr', 'Agility XP', 'Agility XP/Hr','Breaks'],
[MsToTime(GetTimeRunning, Time_Abbrev), Points, PlantCount, SoilCount, FarmXP,
FXPH, MageXP, MXPH, AgilXP, AXPH, TotalBreaks]);
MarkTime(ReportTime);
end;
Procedure Commit;
begin
stats_IncVariable('Farming EXP (Gained)', FarmXP_O);
stats_IncVariable('Magic EXP (Gained)', MageXP_O);
stats_IncVariable('Agility EXP (Gained)', AgilXP_O);
Stats_Commit;
FarmXP_O := 0;
MageXP_O := 0;
AgilXP_O := 0;
MarkTime(CommitTime);
end;
//By Bandland100, modified to shift mouse speeds after every step
procedure SuperWindMouse(xs, ys, xe, ye, gravity, wind, minWait, maxWait, maxStep, targetArea: extended);
var
veloX,veloY,windX,windY,veloMag,dist,randomDist,la stDist,step: extended;
lastX,lastY,MSP,W: integer;
sqrt2,sqrt3,sqrt5: extended;
begin
MSP := MouseSpeed;
sqrt2:= sqrt(2);
sqrt3:= sqrt(3);
sqrt5:= sqrt(5);
while hypot(xs - xe, ys - ye) > 1 do
begin
dist:= hypot(xs - xe, ys - ye);
wind:= minE(wind, dist);
if dist >= targetArea then
begin
windX:= windX / sqrt3 + (random(round(wind) * 2 + 1) - wind) / sqrt5;
windY:= windY / sqrt3 + (random(round(wind) * 2 + 1) - wind) / sqrt5;
end else
begin
windX:= windX / sqrt2;
windY:= windY / sqrt2;
if (maxStep < 3) then
begin
maxStep:= random(3) + 3.0;
end else
begin
maxStep:= maxStep / sqrt5;
end;
end;
veloX:= veloX + windX;
veloY:= veloY + windY;
veloX:= veloX + gravity * (xe - xs) / dist;
veloY:= veloY + gravity * (ye - ys) / dist;
if hypot(veloX, veloY) > maxStep then
begin
randomDist:= maxStep / 2.0 + random(round(maxStep) div 2);
veloMag:= sqrt(veloX * veloX + veloY * veloY);
veloX:= (veloX / veloMag) * randomDist;
veloY:= (veloY / veloMag) * randomDist;
end;
lastX:= Round(xs);
lastY:= Round(ys);
xs:= xs + veloX;
ys:= ys + veloY;
case Random(50) of
1..25: W := (MSP + (Random((MSP/4))));
26..50: W := (MSP - (RandomRange((MSP/2), MSP-1)));
end;
if (W < 1) then
W := 1;
if (lastX <> Round(xs)) or (lastY <> Round(ys)) then
MoveMouse(Round(xs), Round(ys));
if not DebugMode then
SMART_DrawDotsEx(False, [Point(lastX, lastY)], 65280);
step:= hypot(xs - lastX, ys - lastY);
wait(W);
lastdist:= dist;
end;
if (Round(xe) <> Round(xs)) or (Round(ye) <> Round(ys)) then
MoveMouse(Round(xe), Round(ye));
MouseSpeed := MSP;
end;
Procedure HumanRandomMouse;
var
randSpeed: extended;
x, y, firstSpeed: integer;
begin
case(Random(10)) of
2..8:
begin
firstSpeed := mouseSpeed;
mouseSpeed := RandomRange(5,10);
randSpeed := (random(MouseSpeed) / 2.0 + MouseSpeed) / 10.0;
GetMousePos(x, y);
SuperWindMouse(x, y, RandomRange(x - 75, x + 75), RandomRange(y - 75, y + 75),
30, 55, 10.0 / randSpeed, 12.0 / randSpeed, 10.0 * randSpeed, 10.0 * randSpeed);
mouseSpeed := firstSpeed;
Smart_ClearCanvas;
end;
end;
end;
Procedure HumanMMouse(eX, eY, ranX, ranY: Integer);
var
randSpeed: extended;
X,Y,X2,Y2,A,Dist,MP: integer;
begin
A := MouseSpeed;
GetMousePos(X, Y);
Dist := Distance(X, Y, eX, eY);
MP := Round(Dist/150);
if MP < 0 then
MP := 1;
randSpeed := (random(MouseSpeed) / 2.0 + MouseSpeed) / 10.0;
X2 := RandomRange(eX-(A*MP), eX+(A*MP));
Y2 := RandomRange(eY-(A*MP), eY+(A*MP));
SuperWindMouse(X, Y, X2, Y2, 9.0, 3.0, 10.0 / randSpeed, 12.0 / randSpeed, 10.0 * randSpeed, 10.0 * randSpeed);
GetMousePos(X, Y);
MMouse(eX, eY, ranX, ranY);
MouseSpeed := A;
end;
Procedure ReturnValues(colors: TIntegerArray; var HueMods, SatMods: Extended; var color, Tolerance: Integer);
Var
h, s, t: Extended;
I,II : integer;
HSLColor : Array[1..3] of Extended;
HSL : Array[0..1] of Array[1..3] of Extended;
begin;
For I:= 1 to 3 do
begin;
HSL[0][i] := 255;
end;
For I:= 0 to High(Colors) do
begin;
ColortoHSL(Colors[i],HSLColor[1],HSLColor[2],HSLColor[3]);
For II:= 1 to 3 do
begin;
HSL[0][II] := MinE(HSLColor[II],HSL[0][II]);
HSL[1][II] := MaxE(HSLColor[II],HSL[1][II]);
end;
end;
H := (HSL[1][1] - HSL[0][1]);
S := (HSL[1][2] - HSL[0][2]);
T := (HSL[1][3] - HSL[0][3]);
try
HueMods := (H/T);
SatMods := (S/T);
Tolerance := Round(t);
except
HueMods := 0;
SatMods := 0;
Tolerance := Round(0.0);
end;
Color := HSLToColor((HSL[1][1] + HSL[0][1]) div 2,(HSL[1][2] + HSL[0][2]) div 2,(HSL[1][3] + HSL[0][3]) div 2);
end;
Function FindLivid(Var X,Y: Integer): Boolean;
var
B: TBox;
TPA,PAr: TPointArray;
i,h,CTS: Integer;
TBA: TBoxArray;
MBP: TPoint;
ATPA: T2DPointArray;
begin
Result := False;
if not LoggedIn then Exit;
CTS := GetColorToleranceSpeed;
PAr := TPAFromBox(IntToBox(245, 135, 275, 190));
ColorToleranceSpeed(2);
SetColorSpeed2Modifiers(8.34, 0.33);
FindColorsSpiralTolerance(MSCX, MSCY, TPA, 1907996, MSX1, MSY1, MSX2, MSY2, 6);
ColorToleranceSpeed(CTS);
SetColorSpeed2Modifiers(0.2, 0.2);
if (Length(TPA) < 1) then
Exit;
TPA := ClearTPAFromTPA(TPA, PAr);
ATPA := SplitTPAEx(TPA, 30, 40);
SortATPAFromFirstpoint(ATPA, Point(MSCX, MSCY));;
for i := 0 to High(ATPA) do
begin
if (GetArrayLength(ATPA[I]) > 50) then
begin
B := GetTPABounds(ATPA[i]);
SetArrayLength(TBA, Length(TBA)+1);
TBA[High(TBA)] := B;
end;
end;
if DebugMode then
begin
SMART_DrawBoxes(True, TBA, clRed);
if (Length(TBA) > 0) then
SMART_DrawBoxEx(False, TBA[0], 65280);
end;
for h := 0 to High(TBA) do
begin
MBP := MiddleBox(TBA[h]);
HumanMMouse(MBP.X, MBP.Y, 5, 5);
if WaitUpTextMulti(['Cure', 'plant', 'Diseased', 'livd'], 500) then
begin
Result := True;
GetMousePos(X, Y);
Exit;
end else
Result := False;
end;
end;
Function FindSoil(Var X,Y: Integer): Boolean;
var
B,B2: TBox;
TPA,TPA2,PAr: TPointArray;
Hmod,Hmod2,Smod2,Smod: Extended;
i,h,Tol,Tol2,CTS,Col2,Col: Integer;
TBA: TBoxArray;
MBP: TPoint;
ATPA: T2DPointArray;
begin
CTS := GetColorToleranceSpeed;
PAr := TPAFromBox(IntToBox(245, 155, 270, 190));
ColorToleranceSpeed(2);
ReturnValues(SCols, Hmod, Smod, Col, Tol);
SetColorSpeed2Modifiers(Hmod, SMod);
FindColorsSpiralTolerance(MSCX, MSCY, TPA, Col, MSX1, MSY1, MSX2, MSY2, Tol);
if (Length(TPA) < 1) then
begin
ColorToleranceSpeed(CTS);
SetColorSpeed2Modifiers(0.2, 0.2);
Exit;
end;
TPA := ClearTPAFromTPA(TPA, PAr);
ATPA := SplitTPAEx(TPA, 30, 30);
SortATPAFromFirstpoint(ATPA, Point(MSCX, MSCY));
for i := 0 to High(ATPA) do
begin
B := GetTPABounds(ATPA[i]);
ReturnValues(PCols, Hmod2, Smod2, Col2, Tol2);
SetColorSpeed2Modifiers(Hmod2, SMod2);
if not FindColorsSpiralTolerance(MSCX, MSCY, TPA2, Col2, B.X1, B.Y1, B.X2, B.Y2, Tol2) then
begin
B2 := GetTPABounds(ATPA[i]);
SetArrayLength(TBA, Length(TBA)+1);
TBA[High(TBA)] := B2;
end;
end;
ColorToleranceSpeed(CTS);
SetColorSpeed2Modifiers(0.2, 0.2);
if DebugMode then
begin
SMART_DrawBoxes(True, TBA, clRed);
if (Length(TBA) > 0) then
SMART_DrawBoxEx(False, TBA[0], 65280);
end;
for h := 0 to High(TBA) do
begin
MBP := MiddleBox(TBA[h]);
HumanMMouse(MBP.X, MBP.Y, 5, 5);
if WaitUpTextMulti(['Fertilise', 'Empty', 'patch'], 500) then
begin
Result := True;
GetMousePos(X, Y);
Exit;
end else
Result := False;
end;
end;
Function FindPauline(Var X,Y: Integer): Boolean;
var
B: TBox;
TPA,PArr: TPointArray;
i,h,CTS: Integer;
MBP: TPoint;
ATPA: T2DPointArray;
Cols,Tols: TIntegerArray;
HMods,SMods: Array of Extended;
begin
Result := False;
if not LoggedIn then Exit;
CTS := GetColorToleranceSpeed;
PArr := TPAFromBox(IntToBox(245, 135, 275, 190));
Cols := [6319982, 6583413, 6648947];
Tols := [9, 12, 9];
HMods := [0.10, 0.09, 0.09];
SMods := [0.04, 0.08, 0.08];
for h := 0 to High(Cols) do
begin
ColorToleranceSpeed(2);
SetColorSpeed2Modifiers(HMods[h], SMods[h]);
FindColorsSpiralTolerance(370, 30, TPA, Cols[h], 300, 5, 420, 70, Tols[h]);
TPA := ClearTPAFromTPA(TPA, PArr);
if (Length(TPA) > 0) then break;
end;
ColorToleranceSpeed(CTS);
SetColorSpeed2Modifiers(0.2, 0.2);
if (Length(TPA) < 1) then
begin
Writeln('No Pauline colors found');
Exit;
end;
TPA := ClearTPAFromTPA(TPA, PArr);
ATPA := SplitTPAEx(TPA, 15, 25);
SortATPAFromFirstpoint(ATPA, Point(370, 30));;
for i := 0 to High(ATPA) do
begin
B := GetTPABounds(ATPA[i]);
if DebugMode then
SMART_DrawBoxEx(True, B, 65280);
MBP := MiddleBox(B);
HumanMMouse(MBP.X, MBP.Y, 5, 5);
if WaitUpTextMulti(['alk-t', 'rain', 'auli', 'Paul','olari'], 500) then
begin
Result := True;
GetMousePos(X, Y);
Exit;
end;
end;
end;
Function GetLividType(X, Y: Integer): Integer;
var
R1C1,R1C2,R1C3,R1C4,R1C5,
R2C1,R2C2,R2C3,R2C4,R2C5,
R3C1,R3C2,R3C3,R3C4,R3C5: TBox;
begin
Result := 0;
//Top row
R1C1 := IntToBox(100, 20, 150, 70);
R1C2 := IntToBox(165, 20, 220, 70);
R1C3 := IntToBox(235, 20, 290, 70);
R1C4 := IntToBox(300, 20, 355, 70);
R1C5 := IntToBox(370, 20, 440, 70);
//Middle row
R2C1 := IntToBox(70, 100, 135, 160);
R2C2 := IntToBox(155, 100, 220, 160);
R2C3 := IntToBox(230, 100, 290, 160);
R2C4 := IntToBox(305, 100, 365, 160);
R2C5 := IntToBox(380, 100, 440, 160);
//Bottom row
R3C1 := IntToBox(60, 210, 125, 270);
R3C2 := IntToBox(140, 210, 215, 270);
R3C3 := IntToBox(225, 210, 295, 270);
R3C4 := IntToBox(305, 210, 375, 270);
R3C5 := IntToBox(400, 210, 470, 270);
if (IntInBox(X, Y, R1C1) or IntInBox(X, Y, R1C2) or //Type 1
IntInBox(X, Y, R1C3) or IntInBox(X, Y, R1C5)) then
Result := 1
else if (IntInBox(X, Y, R1C4) or IntInBox(X, Y, R2C3) or //Type 2
IntInBox(X, Y, R2C4) or IntInBox(X, Y, R2C5)) then
Result := 2
else if (IntInBox(X, Y, R2C2) or IntInBox(X, Y, R3C1) or //Type 3
IntInBox(X, Y, R3C5)) then
Result := 3
else if (IntInBox(X, Y, R2C1) or IntInBox(X, Y, R3C2) or //Type 4
IntInBox(X, Y, R3C3) or IntInBox(X, Y, R3C4)) then
Result := 4;
end;
Function LividMenu: Boolean;
var
X,Y: Integer;
begin
Result := FindText(x, y, 'train', SmallChars, MIX1, MIY1, MIX2, MIY2);
end;
Function TalkScreen: Boolean;
begin
Result := GetColor(216, 360) = 7913190;
end;
Procedure QuickLow;
begin
KeyDown(40);
Wait(850 + Random(100));
KeyUp(40);
end;
Procedure QuickHigh;
begin
Mouse(542, 24, 15, 15, mouse_left);
KeyDown(38);
Wait(950 + Random(100));
KeyUp(38);
end;
Procedure CureLivid(Strain: Integer);
var
SPoint: TPoint;
begin
if (Strain = 1) then
SPoint := Point(590, 280)
else if (Strain = 2) then
SPoint := Point(680, 280)
else if (Strain = 3) then
SPoint := Point(590, 400)
else if (Strain = 4) then
SPoint := Point(680, 400);
HumanMMouse(SPoint.X, SPoint.Y, 10, 10);
if WaitUpText('Continue', 300) then
begin
ClickMouse2(True);
Inc(PlantCount);
IncEx(FarmXP_O, 92);
IncEx(FarmXP, 92);
IncEx(MageXP_O, 60);
IncEx(MageXP, 60);
IncEx(Points, 20);
end;
end;
Function HandleLivids: Boolean;
var
X,Y,T: Integer;
label
Start;
begin
Result := False;
Start:
if not LoggedIn then Exit;
FindNormalRandoms;
MouseSpeed := RandomRange(12, 16);
if FindLivid(X, Y) then
begin
if (GetLividType(X, Y) = 0) then
GoTo Start;
CheckedPauline := False;
ClickMouse2(False);
if WaitOptionMulti(['Cure', 're-p', '-pl', 'lant'], 500) then
begin
HumanMMouse(635, 310, 65, 70);
if DebugMode then
Smart_ClearCanvas;
end;
MarkTime(T);
repeat
if (TimeFromMark(T) > 3000) then
Exit;
if LividMenu then
break;
until(false)
if LividMenu then
begin
CureLivid(GetLividType(X, Y));
Wait(randomRange(1915, 2570));
GoTo Start;
end;
end else
Result := True;
end;
Function HandleSoil: Boolean;
var
X,Y: Integer;
label
Start;
begin
Result := False;
Start:
MouseSpeed := RandomRange(12, 16);
FindNormalRandoms;
if FindSoil(X, Y) then
begin
CheckedPauline := False;
ClickMouse2(False);
if WaitOption('Empty', 500) then
begin
Inc(SoilCount);
IncEx(FarmXP_O, 92);
IncEx(FarmXP, 92);
IncEx(MageXP_O, 87);
IncEx(MageXP, 87);
IncEx(Points, 20);
Smart_ClearCanvas;
Wait(randomRange(1915, 2570));
GoTo Start;
end;
end else
Result := True;
end;
Function HandleThatTiredPaulinePersonWhoNeedsEncouragementB ecauseWeAreProLikeABoss: Boolean;
Var
X,Y: Integer;
ExBMP,FanBMP,LukBMP,
ProBMP,WeBMP,WellBMP: Integer;
begin
Result := False;
if not LoggedIn then Exit;
if ((not FindLivid(X, Y)) and (not FindSoil(X, Y))) then
begin
QuickLow;
MakeCompass('E');
Wait(RandomRange(235, 320));
if FindPauline(X, Y) then
begin
if WaitUpTextMulti(['Drai', 'raine'], 500) then
begin
ClickMouse2(False);
if WaitOptionMulti(['Ener', 'ergis', 'gise'], 500) then
begin
if DebugMode then
Smart_ClearCanvas;
if WaitFunc(@TalkScreen, 10, 3000) then
begin
ExBMP := BitmapFromString(16, 5, 'meJw7cQIFMMAAhI0sAuGiiaDJYop' +
'QSz0e92C6H9MjcAAAAUs6mQ==');
FanBMP := BitmapFromString(67, 6, 'meJw7cQIKGHCAE0gAUxBZBI96POJ' +
'4zCTDGcguwSWI7FQ8gsRrwQXw+AWPFvwBRU+PEBNlpGqhv0eI 9Ckx' +
'WgY2Rij3CMGoITKXEXQzMSmHkqQFAMDdFvg=');
LukBMP := BitmapFromString(18, 7, 'meJw7ceIEAwPDCTCJH8DVnAAD/Lp' +
'OIAEidSGLI+siaBEZunC5kKAuXOaQpAWiCwCFcEZR');
ProBMP := BitmapFromString(26, 7, 'meJw7cQIBGJAAVkFMWWQFmFw0Bho' +
'bqyCyLjzieJxHqmlYPUi5aZS7jYHcWMDvI1wAl0YAdzB8OQ== ');
WellBMP := BitmapFromString(41, 6, 'meJw7cQIBGLABTFmC6nExcOnFahS' +
'mIJo5JFmNSy8uc/C4EI/VmCQDkpcxgxHTHEwHUGg1LvNxWY1LOzFG' +
'4WFjDQFMBQQFibEaTS8AGGuowQ==');
WeBMP := BitmapFromString(23, 8, 'meJw7ceIEAwycQGKTBE5QwxC4XjQ' +
'TTsAAHl3ICjANIeg8TAVYDUEG+A0hxiW4/EJQkAzv4HIe8QELAEER' +
'YnE=');
if (FindBitmapToleranceIn(ExBMP, X, Y, MCX1, MCY1, MCX2, MCY2, 15) or
FindBitmapToleranceIn(WellBMP, X, Y, MCX1, MCY1, MCX2, MCY2, 15) or
FindBitmapToleranceIn(FanBMP, X, Y, MCX1, MCY1, MCX2, MCY2, 15) or
FindBitmapToleranceIn(LukBMP, X, Y, MCX1, MCY1, MCX2, MCY2, 15) or
FindBitmapToleranceIn(ProBMP, X, Y, MCX1, MCY1, MCX2, MCY2, 15) or
FindBitmapToleranceIn(WeBMP, X, Y, MCX1, MCY1, MCX2, MCY2, 15)) then
begin
HumanMMouse(X, Y+2, 10, 2);
ClickMouse2(True);
IncEx(AgilXP_O, 168);
IncEx(AgilXP, 168);
IncEx(MageXP_O, 100);
IncEx(MageXP, 100);
IncEx(Points, 100);
end;
FreeBitmap(ExBMP);
FreeBitmap(WellBMP);
FreeBitmap(FanBMP);
FreeBitmap(LukBMP);
FreeBitmap(ProBMP);
FreeBitmap(WeBMP);
end;
end;
end;
Result := True;
end;
QuickHigh;
CheckedPauline := True;
end;
end;
Function DoAntiban: Boolean;
var
i: Integer;
begin
if not LoggedIn then Exit;
i := Random(900);
case i of
1..45:
begin
HumanRandomMouse;
Result := True;
end;
46:
begin
HoverSkill('Farming', False);
Result := True;
end;
47:
begin
HoverSkill('Magic', False);
Result := True;
end;
end;
Wait(100);
end;
Function BreakHandler(BreakIn, BreakFor, randBreakIn, randBreakFor: Integer): Boolean;
Var
h,m,s: integer;
begin
if not LoggedIn then Exit;
if (HowManyPlayers = 1) then
begin
if (GetTimeRunning < ((w) + (y) + BreakRounds)) then Exit
else
if (GetTimeRunning > ((w) + (y) + BreakRounds)) then
begin
RealBTime := ((x+z)/60000);
Writeln('Taking a break for about ' + IntToStr(RealBTime) + ' minutes.');
Logout;
MarkTime(CurrentBTime);
repeat
Wait(21000);
ConvertTime((x+z)-TimeFromMark(CurrentBTime), h, m, s);
ClearDebug;
Writeln('Breaktime left: '+IntToStr(h)+':'+IntToStr(m)+':'+IntToStr(s));
until(TimeFromMark(CurrentBTime)>(x+z));
Writeln('Logging in.');
if SwitchWorlds then
if LoginPlayerToLob then
ChangeWorld(RandomWorld(True, False))
else
LoginPlayer;
Wait(4000);
Result := LoggedIn;
ClickNorth(SRL_ANGLE_HIGH);
IncEx(BreakRounds, (w) + (x));
Inc(TotalBreaks);
Writeln('The next break will occur in about ' + IntToStr(BreakIn) + ' minutes.');
w := (BreakIn * 60000);
x := (BreakFor * 60000);
y := RandomRange(-Bir * 60000, Bir * 60000);
z := RandomRange(-Bfr * 60000, Bfr * 60000);
end;
end;
end;
Procedure FoundARandom;
begin
Writeln('Found a random!');
PlaySound(ScriptPath+'evilaugh.wav');
Wait(RandomRange(10000, 20000));
end;
begin
Smart_Server := 86;
Smart_Members := True;
Smart_Signed := True;
Smart_SuperDetail := False;
setupSRL();
DeclarePlayers;
LoadVars;
Smart_ClearCanvas;
LoginPlayer;
QuickHigh;
//SRL_Procs[SRL_OnFindRandom] := @FoundARandom;
Repeat
if not LoggedIn then
begin
LoginPlayer;
ClickNorth(SRL_ANGLE_HIGH);
end;
BreakHandler(BreakIn,BreakFor,Bir,Bfr);
if (TimeFromMark(CommitTime)>=30000) then
Commit;
if (TimeFromMark(ReportTime)>=30000) then
Report;
FindNormalRandoms;
HandleLivids;
HandleSoil;
if not CheckedPauline then
HandleThatTiredPaulinePersonWhoNeedsEncouragementB ecauseWeAreProLikeABoss;
DoAntiban;
Until(AllPlayersInactive)
end.
Fredecus
04-08-2012, 06:58 AM
Here's V.1.2 for anyone who would like to test it out with me. Same as before but now you must have Law runes in your inventory.
{/////////////////////////////////////////
// LividFarmer //
// (by Flight) //
// //
// Version: 1.2 //
/////////////////////////////////////////}
program LividFarmer;
{$DEFINE SRL5}
{$DEFINE SMART}
{$i SRL/srl.simba}
{$i SRL/SRL/misc/reports.simba}
{$i SRL/SRL/misc/paintsmart.simba}
Const
//SRL Stats
SRLStats_Username = '';
SRLStats_Password = '';
//General settings
DebugMode = True; //On-screen debugging?
SwitchWorlds = True; //Switch worlds after a break?
//Break settings
BreakIn = 135; //How long before we take a break? (minutes)
BreakFor = 15; //How long will we break for? (minutes)
Bir = 13; //Random minutes to add/subtract from how long until we break
Bfr = 7; //Random minutes to add/subjtract from break duraction
Var
//Static
Version: String;
SCols,PCols: TIntegerArray;
//Dynamic
FarmXP,FarmXP_O,MageXP,
MageXP_O,AgilXP,AgilXP_O,
Points,CommitTime,
ReportTime,PlantCount,
SoilCount: Integer;
CheckedPauline: Boolean;
//Break variables
w,x,y,z,RealBTime,CurrentBTime,
BreakRounds,TotalBreaks: Integer;
Procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
with Players[0] do
begin
Name := '';
Pass := '';
BoxRewards := ['XP','xp','lamp'];
LampSkill := Skill_Farming;
Active := True;
end;
end;
Procedure LoadVars;
begin
Version := '1.2';
MarkTime(ReportTime);
MarkTime(CommitTime);
CheckedPauline := False;
SetupSRLStats(156, SRLStats_Username, SRLStats_Password);
w := (BreakIn * 60000);
x := (BreakFor * 60000);
y := RandomRange(-Bir * 60000, Bir * 60000);
z := RandomRange(-Bfr * 60000, Bfr * 60000);
SCols := [5073267, 5204854, 5465452, 5402748]; //Soil colors
PCols := [4542282, 4674124, 4871760, 5003346, 5135188]; //Healthy livid colors
end;
Procedure Report;
Var
FXPH,MXPH,AXPH: Integer;
begin
FXPH := Round((FarmXP * 3600) / (GetTimeRunning / 1000));
MXPH := Round((MageXP * 3600) / (GetTimeRunning / 1000));
AXPH := Round((AgilXP * 3600) / (GetTimeRunning / 1000));
ClearDebug;
SRLProgressReport(ResultDebugBox, 'LividFarmer', 'Flight', Version,
['Run time', 'Points', 'Plants cured', 'Soil fertilized', 'Farming XP',
'Farming XP/Hr', 'Magic XP', 'Magic XP/Hr', 'Agility XP', 'Agility XP/Hr','Breaks'],
[MsToTime(GetTimeRunning, Time_Abbrev), Points, PlantCount, SoilCount, FarmXP,
FXPH, MageXP, MXPH, AgilXP, AXPH, TotalBreaks]);
MarkTime(ReportTime);
end;
Procedure Commit;
begin
stats_IncVariable('Farming EXP (Gained)', FarmXP_O);
stats_IncVariable('Magic EXP (Gained)', MageXP_O);
stats_IncVariable('Agility EXP (Gained)', AgilXP_O);
Stats_Commit;
FarmXP_O := 0;
MageXP_O := 0;
AgilXP_O := 0;
MarkTime(CommitTime);
end;
//By Bandland100, modified to shift mouse speeds after every step
procedure SuperWindMouse(xs, ys, xe, ye, gravity, wind, minWait, maxWait, maxStep, targetArea: extended);
var
veloX,veloY,windX,windY,veloMag,dist,randomDist,la stDist,step: extended;
lastX,lastY,MSP,W: integer;
sqrt2,sqrt3,sqrt5: extended;
begin
MSP := MouseSpeed;
sqrt2:= sqrt(2);
sqrt3:= sqrt(3);
sqrt5:= sqrt(5);
while hypot(xs - xe, ys - ye) > 1 do
begin
dist:= hypot(xs - xe, ys - ye);
wind:= minE(wind, dist);
if dist >= targetArea then
begin
windX:= windX / sqrt3 + (random(round(wind) * 2 + 1) - wind) / sqrt5;
windY:= windY / sqrt3 + (random(round(wind) * 2 + 1) - wind) / sqrt5;
end else
begin
windX:= windX / sqrt2;
windY:= windY / sqrt2;
if (maxStep < 3) then
begin
maxStep:= random(3) + 3.0;
end else
begin
maxStep:= maxStep / sqrt5;
end;
end;
veloX:= veloX + windX;
veloY:= veloY + windY;
veloX:= veloX + gravity * (xe - xs) / dist;
veloY:= veloY + gravity * (ye - ys) / dist;
if hypot(veloX, veloY) > maxStep then
begin
randomDist:= maxStep / 2.0 + random(round(maxStep) div 2);
veloMag:= sqrt(veloX * veloX + veloY * veloY);
veloX:= (veloX / veloMag) * randomDist;
veloY:= (veloY / veloMag) * randomDist;
end;
lastX:= Round(xs);
lastY:= Round(ys);
xs:= xs + veloX;
ys:= ys + veloY;
case Random(50) of
1..25: W := (MSP + (Random((MSP/4))));
26..50: W := (MSP - (RandomRange((MSP/2), MSP-1)));
end;
if (W < 1) then
W := 1;
if (lastX <> Round(xs)) or (lastY <> Round(ys)) then
MoveMouse(Round(xs), Round(ys));
if not DebugMode then
SMART_DrawDotsEx(False, [Point(lastX, lastY)], 65280);
step:= hypot(xs - lastX, ys - lastY);
wait(W);
lastdist:= dist;
end;
if (Round(xe) <> Round(xs)) or (Round(ye) <> Round(ys)) then
MoveMouse(Round(xe), Round(ye));
MouseSpeed := MSP;
end;
Procedure HumanRandomMouse;
var
randSpeed: extended;
x, y, firstSpeed: integer;
begin
case(Random(10)) of
2..8:
begin
firstSpeed := mouseSpeed;
mouseSpeed := RandomRange(5,10);
randSpeed := (random(MouseSpeed) / 2.0 + MouseSpeed) / 10.0;
GetMousePos(x, y);
SuperWindMouse(x, y, RandomRange(x - 75, x + 75), RandomRange(y - 75, y + 75),
30, 55, 10.0 / randSpeed, 12.0 / randSpeed, 10.0 * randSpeed, 10.0 * randSpeed);
mouseSpeed := firstSpeed;
Smart_ClearCanvas;
end;
end;
end;
Procedure HumanMMouse(eX, eY, ranX, ranY: Integer);
var
randSpeed: extended;
X,Y,X2,Y2,A,Dist,MP: integer;
begin
A := MouseSpeed;
GetMousePos(X, Y);
Dist := Distance(X, Y, eX, eY);
MP := Round(Dist/150);
if MP < 0 then
MP := 1;
randSpeed := (random(MouseSpeed) / 2.0 + MouseSpeed) / 10.0;
X2 := RandomRange(eX-(A*MP), eX+(A*MP));
Y2 := RandomRange(eY-(A*MP), eY+(A*MP));
SuperWindMouse(X, Y, X2, Y2, 9.0, 3.0, 10.0 / randSpeed, 12.0 / randSpeed, 10.0 * randSpeed, 10.0 * randSpeed);
GetMousePos(X, Y);
MMouse(eX, eY, ranX, ranY);
MouseSpeed := A;
end;
Procedure ReturnValues(colors: TIntegerArray; var HueMods, SatMods: Extended; var color, Tolerance: Integer);
Var
h, s, t: Extended;
I,II : integer;
HSLColor : Array[1..3] of Extended;
HSL : Array[0..1] of Array[1..3] of Extended;
begin;
For I:= 1 to 3 do
begin;
HSL[0][i] := 255;
end;
For I:= 0 to High(Colors) do
begin;
ColortoHSL(Colors[i],HSLColor[1],HSLColor[2],HSLColor[3]);
For II:= 1 to 3 do
begin;
HSL[0][II] := MinE(HSLColor[II],HSL[0][II]);
HSL[1][II] := MaxE(HSLColor[II],HSL[1][II]);
end;
end;
H := (HSL[1][1] - HSL[0][1]);
S := (HSL[1][2] - HSL[0][2]);
T := (HSL[1][3] - HSL[0][3]);
try
HueMods := (H/T);
SatMods := (S/T);
Tolerance := Round(t);
except
HueMods := 0;
SatMods := 0;
Tolerance := Round(0.0);
end;
Color := HSLToColor((HSL[1][1] + HSL[0][1]) div 2,(HSL[1][2] + HSL[0][2]) div 2,(HSL[1][3] + HSL[0][3]) div 2);
end;
Function FindLivid(Var X,Y: Integer): Boolean;
var
B: TBox;
TPA,PAr: TPointArray;
i,h,CTS: Integer;
TBA: TBoxArray;
MBP: TPoint;
ATPA: T2DPointArray;
begin
Result := False;
if not LoggedIn then Exit;
CTS := GetColorToleranceSpeed;
PAr := TPAFromBox(IntToBox(245, 135, 275, 190));
ColorToleranceSpeed(2);
SetColorSpeed2Modifiers(8.34, 0.33);
FindColorsSpiralTolerance(MSCX, MSCY, TPA, 1907996, MSX1, MSY1, MSX2, MSY2, 6);
ColorToleranceSpeed(CTS);
SetColorSpeed2Modifiers(0.2, 0.2);
if (Length(TPA) < 1) then
Exit;
TPA := ClearTPAFromTPA(TPA, PAr);
ATPA := SplitTPAEx(TPA, 30, 40);
SortATPAFromFirstpoint(ATPA, Point(MSCX, MSCY));;
for i := 0 to High(ATPA) do
begin
if (GetArrayLength(ATPA[I]) > 50) then
begin
B := GetTPABounds(ATPA[i]);
SetArrayLength(TBA, Length(TBA)+1);
TBA[High(TBA)] := B;
end;
end;
if DebugMode then
begin
SMART_DrawBoxes(True, TBA, clRed);
if (Length(TBA) > 0) then
SMART_DrawBoxEx(False, TBA[0], 65280);
end;
for h := 0 to High(TBA) do
begin
MBP := MiddleBox(TBA[h]);
HumanMMouse(MBP.X, MBP.Y, 5, 5);
if WaitUpTextMulti(['Cure', 'plant', 'Diseased', 'livd'], 500) then
begin
Result := True;
GetMousePos(X, Y);
Exit;
end else
Result := False;
end;
end;
Function FindSoil(Var X,Y: Integer): Boolean;
var
B,B2: TBox;
TPA,TPA2,PAr: TPointArray;
Hmod,Hmod2,Smod2,Smod: Extended;
i,h,Tol,Tol2,CTS,Col2,Col: Integer;
TBA: TBoxArray;
MBP: TPoint;
ATPA: T2DPointArray;
begin
CTS := GetColorToleranceSpeed;
PAr := TPAFromBox(IntToBox(245, 155, 270, 190));
ColorToleranceSpeed(2);
ReturnValues(SCols, Hmod, Smod, Col, Tol);
SetColorSpeed2Modifiers(Hmod, SMod);
FindColorsSpiralTolerance(MSCX, MSCY, TPA, Col, MSX1, MSY1, MSX2, MSY2, Tol);
if (Length(TPA) < 1) then
begin
ColorToleranceSpeed(CTS);
SetColorSpeed2Modifiers(0.2, 0.2);
Exit;
end;
TPA := ClearTPAFromTPA(TPA, PAr);
ATPA := SplitTPAEx(TPA, 30, 30);
SortATPAFromFirstpoint(ATPA, Point(MSCX, MSCY));
for i := 0 to High(ATPA) do
begin
B := GetTPABounds(ATPA[i]);
ReturnValues(PCols, Hmod2, Smod2, Col2, Tol2);
SetColorSpeed2Modifiers(Hmod2, SMod2);
if not FindColorsSpiralTolerance(MSCX, MSCY, TPA2, Col2, B.X1, B.Y1, B.X2, B.Y2, Tol2) then
begin
B2 := GetTPABounds(ATPA[i]);
SetArrayLength(TBA, Length(TBA)+1);
TBA[High(TBA)] := B2;
end;
end;
ColorToleranceSpeed(CTS);
SetColorSpeed2Modifiers(0.2, 0.2);
if DebugMode then
begin
SMART_DrawBoxes(True, TBA, clRed);
if (Length(TBA) > 0) then
SMART_DrawBoxEx(False, TBA[0], 65280);
end;
for h := 0 to High(TBA) do
begin
MBP := MiddleBox(TBA[h]);
HumanMMouse(MBP.X, MBP.Y, 5, 5);
if WaitUpTextMulti(['Fertilise', 'Empty', 'patch'], 500) then
begin
Result := True;
GetMousePos(X, Y);
Exit;
end else
Result := False;
end;
end;
Function FindPauline(Var X,Y: Integer): Boolean;
var
B: TBox;
TPA,PArr: TPointArray;
i,h,CTS: Integer;
MBP: TPoint;
ATPA: T2DPointArray;
Cols,Tols: TIntegerArray;
HMods,SMods: Array of Extended;
begin
Result := False;
if not LoggedIn then Exit;
CTS := GetColorToleranceSpeed;
PArr := TPAFromBox(IntToBox(245, 135, 275, 190));
Cols := [6319982, 6583413, 6648947];
Tols := [9, 12, 9];
HMods := [0.10, 0.09, 0.09];
SMods := [0.04, 0.08, 0.08];
for h := 0 to High(Cols) do
begin
ColorToleranceSpeed(2);
SetColorSpeed2Modifiers(HMods[h], SMods[h]);
FindColorsSpiralTolerance(370, 30, TPA, Cols[h], 300, 5, 420, 70, Tols[h]);
TPA := ClearTPAFromTPA(TPA, PArr);
if (Length(TPA) > 0) then break;
end;
ColorToleranceSpeed(CTS);
SetColorSpeed2Modifiers(0.2, 0.2);
if (Length(TPA) < 1) then
begin
Writeln('No Pauline colors found');
Exit;
end;
TPA := ClearTPAFromTPA(TPA, PArr);
ATPA := SplitTPAEx(TPA, 15, 25);
SortATPAFromFirstpoint(ATPA, Point(370, 30));;
for i := 0 to High(ATPA) do
begin
B := GetTPABounds(ATPA[i]);
if DebugMode then
SMART_DrawBoxEx(True, B, 65280);
MBP := MiddleBox(B);
HumanMMouse(MBP.X, MBP.Y, 5, 5);
if WaitUpTextMulti(['alk-t', 'rain', 'auli', 'Paul','olari'], 500) then
begin
Result := True;
GetMousePos(X, Y);
Exit;
end;
end;
end;
Function GetLividType(X, Y: Integer): Integer;
var
R1C1,R1C2,R1C3,R1C4,R1C5,
R2C1,R2C2,R2C3,R2C4,R2C5,
R3C1,R3C2,R3C3,R3C4,R3C5: TBox;
begin
Result := 0;
//Top row
R1C1 := IntToBox(100, 20, 150, 70);
R1C2 := IntToBox(165, 20, 220, 70);
R1C3 := IntToBox(235, 20, 290, 70);
R1C4 := IntToBox(300, 20, 355, 70);
R1C5 := IntToBox(370, 20, 440, 70);
//Middle row
R2C1 := IntToBox(70, 100, 135, 160);
R2C2 := IntToBox(155, 100, 220, 160);
R2C3 := IntToBox(230, 100, 290, 160);
R2C4 := IntToBox(305, 100, 365, 160);
R2C5 := IntToBox(380, 100, 440, 160);
//Bottom row
R3C1 := IntToBox(60, 210, 125, 270);
R3C2 := IntToBox(140, 210, 215, 270);
R3C3 := IntToBox(225, 210, 295, 270);
R3C4 := IntToBox(305, 210, 375, 270);
R3C5 := IntToBox(400, 210, 470, 270);
if (IntInBox(X, Y, R1C1) or IntInBox(X, Y, R1C2) or //Type 1
IntInBox(X, Y, R1C3) or IntInBox(X, Y, R1C5)) then
Result := 1
else if (IntInBox(X, Y, R1C4) or IntInBox(X, Y, R2C3) or //Type 2
IntInBox(X, Y, R2C4) or IntInBox(X, Y, R2C5)) then
Result := 2
else if (IntInBox(X, Y, R2C2) or IntInBox(X, Y, R3C1) or //Type 3
IntInBox(X, Y, R3C5)) then
Result := 3
else if (IntInBox(X, Y, R2C1) or IntInBox(X, Y, R3C2) or //Type 4
IntInBox(X, Y, R3C3) or IntInBox(X, Y, R3C4)) then
Result := 4;
end;
Function LividMenu: Boolean;
var
X,Y: Integer;
begin
Result := FindText(x, y, 'train', SmallChars, MIX1, MIY1, MIX2, MIY2);
end;
Function TalkScreen: Boolean;
begin
Result := GetColor(216, 360) = 7913190;
end;
Procedure QuickLow;
begin
KeyDown(40);
Wait(850 + Random(100));
KeyUp(40);
end;
Procedure QuickHigh;
begin
Mouse(542, 24, 15, 15, mouse_left);
KeyDown(38);
Wait(950 + Random(100));
KeyUp(38);
end;
Procedure CureLivid(Strain: Integer);
var
SPoint: TPoint;
begin
if (Strain = 1) then
SPoint := Point(590, 280)
else if (Strain = 2) then
SPoint := Point(680, 280)
else if (Strain = 3) then
SPoint := Point(590, 400)
else if (Strain = 4) then
SPoint := Point(680, 400);
HumanMMouse(SPoint.X, SPoint.Y, 10, 10);
if WaitUpText('Continue', 300) then
begin
ClickMouse2(True);
Inc(PlantCount);
IncEx(FarmXP_O, 92);
IncEx(FarmXP, 92);
IncEx(MageXP_O, 60);
IncEx(MageXP, 60);
IncEx(Points, 20);
end;
end;
Function HandleLivids: Boolean;
var
X,Y,T: Integer;
label
Start;
begin
Result := False;
Start:
if not LoggedIn then Exit;
FindNormalRandoms;
MouseSpeed := RandomRange(12, 16);
if FindLivid(X, Y) then
begin
if (GetLividType(X, Y) = 0) then
GoTo Start;
CheckedPauline := False;
ClickMouse2(False);
if WaitOptionMulti(['Cure', 're-p', '-pl', 'lant'], 500) then
begin
HumanMMouse(635, 310, 65, 70);
if DebugMode then
Smart_ClearCanvas;
end;
MarkTime(T);
repeat
if (TimeFromMark(T) > 3000) then
Exit;
if LividMenu then
break;
until(false)
if LividMenu then
begin
CureLivid(GetLividType(X, Y));
Wait(randomRange(1915, 2570));
GoTo Start;
end;
end else
Result := True;
end;
Function HandleSoil: Boolean;
var
X,Y: Integer;
label
Start;
begin
Result := False;
Start:
MouseSpeed := RandomRange(12, 16);
FindNormalRandoms;
if FindSoil(X, Y) then
begin
CheckedPauline := False;
ClickMouse2(False);
if WaitOption('Empty', 500) then
begin
Inc(SoilCount);
IncEx(FarmXP_O, 92);
IncEx(FarmXP, 92);
IncEx(MageXP_O, 87);
IncEx(MageXP, 87);
IncEx(Points, 20);
Smart_ClearCanvas;
Wait(randomRange(1915, 2570));
GoTo Start;
end;
end else
Result := True;
end;
Function HandleThatTiredPaulinePersonWhoNeedsEncouragementB ecauseWeAreProLikeABoss: Boolean;
Var
X,Y: Integer;
ExBMP,FanBMP,LukBMP,
ProBMP,WeBMP,WellBMP: Integer;
begin
Result := False;
if not LoggedIn then Exit;
if ((not FindLivid(X, Y)) and (not FindSoil(X, Y))) then
begin
QuickLow;
MakeCompass('E');
Wait(RandomRange(235, 320));
if FindPauline(X, Y) then
begin
if WaitUpTextMulti(['Drai', 'raine'], 500) then
begin
ClickMouse2(False);
if WaitOptionMulti(['Ener', 'ergis', 'gise'], 500) then
begin
if DebugMode then
Smart_ClearCanvas;
if WaitFunc(@TalkScreen, 10, 3000) then
begin
ExBMP := BitmapFromString(16, 5, 'meJw7cQIFMMAAhI0sAuGiiaDJYop' +
'QSz0e92C6H9MjcAAAAUs6mQ==');
FanBMP := BitmapFromString(67, 6, 'meJw7cQIKGHCAE0gAUxBZBI96POJ' +
'4zCTDGcguwSWI7FQ8gsRrwQXw+AWPFvwBRU+PEBNlpGqhv0eI 9Ckx' +
'WgY2Rij3CMGoITKXEXQzMSmHkqQFAMDdFvg=');
LukBMP := BitmapFromString(18, 7, 'meJw7ceIEAwPDCTCJH8DVnAAD/Lp' +
'OIAEidSGLI+siaBEZunC5kKAuXOaQpAWiCwCFcEZR');
ProBMP := BitmapFromString(26, 7, 'meJw7cQIBGJAAVkFMWWQFmFw0Bho' +
'bqyCyLjzieJxHqmlYPUi5aZS7jYHcWMDvI1wAl0YAdzB8OQ== ');
WellBMP := BitmapFromString(41, 6, 'meJw7cQIBGLABTFmC6nExcOnFahS' +
'mIJo5JFmNSy8uc/C4EI/VmCQDkpcxgxHTHEwHUGg1LvNxWY1LOzFG' +
'4WFjDQFMBQQFibEaTS8AGGuowQ==');
WeBMP := BitmapFromString(23, 8, 'meJw7ceIEAwycQGKTBE5QwxC4XjQ' +
'TTsAAHl3ICjANIeg8TAVYDUEG+A0hxiW4/EJQkAzv4HIe8QELAEER' +
'YnE=');
if (FindBitmapToleranceIn(ExBMP, X, Y, MCX1, MCY1, MCX2, MCY2, 15) or
FindBitmapToleranceIn(WellBMP, X, Y, MCX1, MCY1, MCX2, MCY2, 15) or
FindBitmapToleranceIn(FanBMP, X, Y, MCX1, MCY1, MCX2, MCY2, 15) or
FindBitmapToleranceIn(LukBMP, X, Y, MCX1, MCY1, MCX2, MCY2, 15) or
FindBitmapToleranceIn(ProBMP, X, Y, MCX1, MCY1, MCX2, MCY2, 15) or
FindBitmapToleranceIn(WeBMP, X, Y, MCX1, MCY1, MCX2, MCY2, 15)) then
begin
HumanMMouse(X, Y+2, 10, 2);
ClickMouse2(True);
IncEx(AgilXP_O, 168);
IncEx(AgilXP, 168);
IncEx(MageXP_O, 100);
IncEx(MageXP, 100);
IncEx(Points, 100);
end;
FreeBitmap(ExBMP);
FreeBitmap(WellBMP);
FreeBitmap(FanBMP);
FreeBitmap(LukBMP);
FreeBitmap(ProBMP);
FreeBitmap(WeBMP);
end;
end;
end;
Result := True;
end;
QuickHigh;
CheckedPauline := True;
end;
end;
Function DoAntiban: Boolean;
var
i: Integer;
begin
if not LoggedIn then Exit;
i := Random(900);
case i of
1..45:
begin
HumanRandomMouse;
Result := True;
end;
46:
begin
HoverSkill('Farming', False);
Result := True;
end;
47:
begin
HoverSkill('Magic', False);
Result := True;
end;
end;
Wait(100);
end;
Function BreakHandler(BreakIn, BreakFor, randBreakIn, randBreakFor: Integer): Boolean;
Var
h,m,s: integer;
begin
if not LoggedIn then Exit;
if (HowManyPlayers = 1) then
begin
if (GetTimeRunning < ((w) + (y) + BreakRounds)) then Exit
else
if (GetTimeRunning > ((w) + (y) + BreakRounds)) then
begin
RealBTime := ((x+z)/60000);
Writeln('Taking a break for about ' + IntToStr(RealBTime) + ' minutes.');
Logout;
MarkTime(CurrentBTime);
repeat
Wait(21000);
ConvertTime((x+z)-TimeFromMark(CurrentBTime), h, m, s);
ClearDebug;
Writeln('Breaktime left: '+IntToStr(h)+':'+IntToStr(m)+':'+IntToStr(s));
until(TimeFromMark(CurrentBTime)>(x+z));
Writeln('Logging in.');
if SwitchWorlds then
if LoginPlayerToLob then
ChangeWorld(RandomWorld(True, False))
else
LoginPlayer;
Wait(4000);
Result := LoggedIn;
ClickNorth(SRL_ANGLE_HIGH);
IncEx(BreakRounds, (w) + (x));
Inc(TotalBreaks);
Writeln('The next break will occur in about ' + IntToStr(BreakIn) + ' minutes.');
w := (BreakIn * 60000);
x := (BreakFor * 60000);
y := RandomRange(-Bir * 60000, Bir * 60000);
z := RandomRange(-Bfr * 60000, Bfr * 60000);
end;
end;
end;
Procedure FoundARandom;
begin
Writeln('Found a random!');
PlaySound(ScriptPath+'evilaugh.wav');
Wait(RandomRange(10000, 20000));
end;
begin
Smart_Server := 86;
Smart_Members := True;
Smart_Signed := True;
Smart_SuperDetail := False;
setupSRL();
DeclarePlayers;
LoadVars;
Smart_ClearCanvas;
LoginPlayer;
QuickHigh;
//SRL_Procs[SRL_OnFindRandom] := @FoundARandom;
Repeat
if not LoggedIn then
begin
LoginPlayer;
ClickNorth(SRL_ANGLE_HIGH);
end;
BreakHandler(BreakIn,BreakFor,Bir,Bfr);
if (TimeFromMark(CommitTime)>=30000) then
Commit;
if (TimeFromMark(ReportTime)>=30000) then
Report;
FindNormalRandoms;
HandleLivids;
HandleSoil;
if not CheckedPauline then
HandleThatTiredPaulinePersonWhoNeedsEncouragementB ecauseWeAreProLikeABoss;
DoAntiban;
Until(AllPlayersInactive)
end.
It worked good for about 4 minutes then the mouse just began to jump around in the green box on the plant. It fertilizes still though, it just doesn't choose the plant.
Edit: restarted a couple of times to see if it was a compiling error, I have it now to select the plant but it doesn't select right. Ill mess around with it a little more to see if I can get a fix.
Justin
04-08-2012, 07:42 AM
Thanks for the update Flight, Will be more than to try this out. Will let you know how I go
Flight
04-08-2012, 09:20 AM
It worked good for about 4 minutes then the mouse just began to jump around in the green box on the plant. It fertilizes still though, it just doesn't choose the plant.
Edit: restarted a couple of times to see if it was a compiling error, I have it now to select the plant but it doesn't select right. Ill mess around with it a little more to see if I can get a fix.
If it's not choosing the correct strain for the livid then you're either not standing in the right spot or your camera angle is wrong.
Justin
04-08-2012, 12:44 PM
Running 1.2 here (with 1 edit), seems to be finding players too.
http://www.srljustin.com/images/sbMP.pnghttp://www.srljustin.com/images/ov8N.png
I use SetScreenMouse to change the camera angle and rotation to replicate my actual game play
Flight
04-08-2012, 12:48 PM
Yeah those darn diseased livids; their colors are so common it's hard to accurately distinguish between them and players wearing dark-colored clothes. If anyone could use ACA and find more accurate colors for them then do post here. Perhaps we could use the white part of the flower?
Justin
04-08-2012, 12:55 PM
Yeah those darn diseased livids; their colors are so common it's hard to accurately distinguish between them and players wearing dark-colored clothes. If anyone could use ACA and find more accurate colors for them then do post here. Perhaps we could use the white part of the flower?
Don't think the white part will be good due to the Barrel (top left) being the same color and the floor
wister1
04-08-2012, 01:16 PM
i will be using this script to get all spell unlocked thanks to also using your zmi extreme which got me 99 rc and gave me the runes to spend here, i gotta say flight i love your scipts!
Justin
04-08-2012, 03:28 PM
Little progress report for you.
[=====================================]
[ LividFarmer 1.2 ]
[ by Flight ]
[=====================================]
[ Run Time : 2 Hr 40 Min 6 Sec ]
[ Points : 23840 ]
[ Plants Cured : 402 ]
[ Soil Fertilized : 420 ]
[ Farming XP : 75624 ]
[ Farming XP/Hr : 28341 ]
[ Magic XP : 68060 ]
[ Magic XP/Hr : 25506 ]
[ Agility XP : 12432 ]
[ Agility XP/Hr : 4659 ]
[ Breaks : 1 ]
[=====================================]
[ LividFarmer 1.2 ]
[=====================================]
derik
04-08-2012, 03:33 PM
Please may i test the new 1.2 :) im currently using this script for my comp cape. would love to trial it and give you a 6Hour proggy - PM
ill get on it straight away!
Gestapo
04-08-2012, 09:30 PM
i am getting every 1-2 hours a random event :(
is that normal
stonefox001
04-08-2012, 10:23 PM
terrific script running very well so far, heres first hour proggy:Time Running:
1 Hours, 16 Seconds
Points: 7020
Plants cured: 174
Soil fertilized: 177
Farming XP: 32292 (32149 / hour)
Magic XP: 25839 (25724 / hour)
Breaks: 0
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
wister1
04-09-2012, 01:57 AM
Not bad at all
[======================================]
[ LividFarmer 1.2 ]
[ by Flight ]
[======================================]
[ Run Time : 4 Hr 18 Min 44 Sec ]
[ Points : 43880 ]
[ Plants Cured : 762 ]
[ Soil Fertilized : 762 ]
[ Farming XP : 140208 ]
[ Farming XP/Hr : 32514 ]
[ Magic XP : 125414 ]
[ Magic XP/Hr : 29083 ]
[ Agility XP : 22512 ]
[ Agility XP/Hr : 5220 ]
[ Breaks : 0 ]
[======================================]
[ LividFarmer 1.2 ]
[======================================]
Harry
04-09-2012, 03:26 AM
Yeah those darn diseased livids; their colors are so common it's hard to accurately distinguish between them and players wearing dark-colored clothes. If anyone could use ACA and find more accurate colors for them then do post here. Perhaps we could use the white part of the flower?
MMToMS and only search in those little boxes? Might help a bit. Use the two fences to make a grid of the minimap area where livids are and only search those little boxes.
derik
04-09-2012, 06:39 PM
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
Time Running: 2 Hours, *3 Minutes and ** Seconds
Points: 13***
Plants cured: 3**
Soil fertilized: 3**
Farming XP: 62000 (28020 / hour)
Magic XP: 50000 (22773 / hour)
Breaks: 0
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
was rounded since i dont want my maxxed account banned :)
melkoo
04-09-2012, 07:43 PM
Whenever I run the script, my char just stands there doing nothing. Any reason for this happening?
ph0ne
04-09-2012, 09:23 PM
Whenever I run the script, my char just stands there doing nothing. Any reason for this happening?
go to your simba file after entering your user/password
an SRL stats box appears, click no both times and it works for me
wister1
04-09-2012, 11:00 PM
ive now leaned half the spells, another half to go!
[======================================]
[ LividFarmer 1.2 ]
[ by Flight ]
[======================================]
[ Run Time : 4 Hr 43 Min 51 Sec ]
[ Points : 48360 ]
[ Plants Cured : 822 ]
[ Soil Fertilized : 841 ]
[ Farming XP : 152996 ]
[ Farming XP/Hr : 32340 ]
[ Magic XP : 137587 ]
[ Magic XP/Hr : 29083 ]
[ Agility XP : 25368 ]
[ Agility XP/Hr : 5362 ]
[ Breaks : 0 ]
[======================================]
[ LividFarmer 1.2 ]
[======================================]
melkoo
04-10-2012, 05:10 AM
go to your simba file after entering your user/password
an SRL stats box appears, click no both times and it works for me
Thank you.
[=================================]
[ LividFarmer 1.2 ]
[ by Flight ]
[=================================]
[ Run Time : 55 Min 55 Sec ]
[ Points : 9900 ]
[ Plants Cured : 165 ]
[ Soil Fertilized : 165 ]
[ Farming XP : 30360 ]
[ Farming XP/Hr : 32577 ]
[ Magic XP : 27555 ]
[ Magic XP/Hr : 29567 ]
[ Agility XP : 5544 ]
[ Agility XP/Hr : 5948 ]
[ Breaks : 0 ]
[=================================]
[ LividFarmer 1.2 ]
[=================================]
derik
04-10-2012, 07:43 AM
Testing the 1.2 now :)
So far with 1.2, I seem to be averaging around 3.5k agility xp/hour, as half the time it doesn't recognise Pauline. Anyone else having this problem?
melkoo
04-10-2012, 05:22 PM
Here's another progress:
[=====================================]
[ Run Time : 1 Hr 51 Min 7 Sec ]
[ Points : 18340 ]
[ Plants Cured : 318 ]
[ Soil Fertilized : 324 ]
[ Farming XP : 59064 ]
[ Farming XP/Hr : 31892 ]
[ Magic XP : 52768 ]
[ Magic XP/Hr : 28493 ]
[ Agility XP : 9240 ]
[ Agility XP/Hr : 4989 ]
[ Breaks : 0 ]
[=====================================]
[ LividFarmer 1.2 ]
[=====================================]
Blackdeath
04-11-2012, 01:35 PM
So far, the script is running flawlessly. I have one concern though, the top right plant, it seems like the bot doesn't see it, because I have watched a few rounds go by and the plant was diseased and it never cured it. Any suggestions?
Edit: Also, do you need to have Death, Cosmic, and Mind runes as well to do this or just the astral, nature, and earth?
Flight
04-11-2012, 01:57 PM
So far, the script is running flawlessly. I have one concern though, the top right plant, it seems like the bot doesn't see it, because I have watched a few rounds go by and the plant was diseased and it never cured it. Any suggestions?
Edit: Also, do you need to have Death, Cosmic, and Mind runes as well to do this or just the astral, nature, and earth?
Astrals, Natures, and Laws. If you're not wearing some sort of earth staff, Earth runes.
Blackdeath
04-11-2012, 03:04 PM
Thank You, will post a proggy once I get a good once.
dragonbotz
04-11-2012, 07:57 PM
It's not really fertilizing soil =\ any tips?
=-=-=-=-=-=-= LividFarmer 1.15 by Flight =-=-=-=-=-=
Time Running: 44 Minutes and 25 Seconds
Points: 2540
Plants cured: 114
Soil fertilized: 13
Farming XP: 11684 (15783 / hour)
Magic XP: 7971 (10767 / hour)
Breaks: 0
Free xp is better than none of course.
outbuster
04-11-2012, 09:45 PM
hey flight, could i test 1.2?
would be really nice, i have been running 1.15 for like 12 hours now without problems^^
ur scripts are flawless:)
if you wont let me test it that's fine too ill just wait but i like to do something back in favor for all the good scripts you make:) you can pm me about if if u want
oneshadow
04-11-2012, 11:01 PM
Thanks for version 1.2!
Edit: Averaging 6.5k points per hour on 1.15
Averaging 10k points per hour on 1.2!!!
Flight
04-12-2012, 12:25 AM
It's not really fertilizing soil =\ any tips?
=-=-=-=-=-=-= LividFarmer 1.15 by Flight =-=-=-=-=-=
Time Running: 44 Minutes and 25 Seconds
Points: 2540
Plants cured: 114
Soil fertilized: 13
Farming XP: 11684 (15783 / hour)
Magic XP: 7971 (10767 / hour)
Breaks: 0
Free xp is better than none of course.
Yikes, I wonder what went wrong. :/ Have you tried using V.1.2? I recommend that. Also, bring a handful of Law Runes with you.
hey flight, could i test 1.2?
would be really nice, i have been running 1.15 for like 12 hours now without problems^^
ur scripts are flawless:)
if you wont let me test it that's fine too ill just wait but i like to do something back in favor for all the good scripts you make:) you can pm me about if if u want
Absolutely, I actually posted it on page 18, but here it is again for anyone who missed it:
{/////////////////////////////////////////
// LividFarmer //
// (by Flight) //
// //
// Version: 1.2 //
/////////////////////////////////////////}
program LividFarmer;
{$DEFINE SRL5}
{$DEFINE SMART}
{$i SRL/srl.simba}
{$i SRL/SRL/misc/reports.simba}
{$i SRL/SRL/misc/paintsmart.simba}
Const
//SRL Stats
SRLStats_Username = '';
SRLStats_Password = '';
//General settings
DebugMode = True; //On-screen debugging?
SwitchWorlds = True; //Switch worlds after a break?
//Break settings
BreakIn = 135; //How long before we take a break? (minutes)
BreakFor = 15; //How long will we break for? (minutes)
Bir = 13; //Random minutes to add/subtract from how long until we break
Bfr = 7; //Random minutes to add/subjtract from break duraction
Var
//Static
Version: String;
SCols,PCols: TIntegerArray;
//Dynamic
FarmXP,FarmXP_O,MageXP,
MageXP_O,AgilXP,AgilXP_O,
Points,CommitTime,
ReportTime,PlantCount,
SoilCount: Integer;
CheckedPauline: Boolean;
//Break variables
w,x,y,z,RealBTime,CurrentBTime,
BreakRounds,TotalBreaks: Integer;
Procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
with Players[0] do
begin
Name := '';
Pass := '';
BoxRewards := ['XP','xp','lamp'];
LampSkill := Skill_Farming;
Active := True;
end;
end;
Procedure LoadVars;
begin
Version := '1.2';
MarkTime(ReportTime);
MarkTime(CommitTime);
CheckedPauline := False;
SetupSRLStats(156, SRLStats_Username, SRLStats_Password);
w := (BreakIn * 60000);
x := (BreakFor * 60000);
y := RandomRange(-Bir * 60000, Bir * 60000);
z := RandomRange(-Bfr * 60000, Bfr * 60000);
SCols := [5073267, 5204854, 5465452, 5402748]; //Soil colors
PCols := [4542282, 4674124, 4871760, 5003346, 5135188]; //Healthy livid colors
end;
Procedure Report;
Var
FXPH,MXPH,AXPH: Integer;
begin
FXPH := Round((FarmXP * 3600) / (GetTimeRunning / 1000));
MXPH := Round((MageXP * 3600) / (GetTimeRunning / 1000));
AXPH := Round((AgilXP * 3600) / (GetTimeRunning / 1000));
ClearDebug;
SRLProgressReport(ResultDebugBox, 'LividFarmer', 'Flight', Version,
['Run time', 'Points', 'Plants cured', 'Soil fertilized', 'Farming XP',
'Farming XP/Hr', 'Magic XP', 'Magic XP/Hr', 'Agility XP', 'Agility XP/Hr','Breaks'],
[MsToTime(GetTimeRunning, Time_Abbrev), Points, PlantCount, SoilCount, FarmXP,
FXPH, MageXP, MXPH, AgilXP, AXPH, TotalBreaks]);
MarkTime(ReportTime);
end;
Procedure Commit;
begin
stats_IncVariable('Farming EXP (Gained)', FarmXP_O);
stats_IncVariable('Magic EXP (Gained)', MageXP_O);
stats_IncVariable('Agility EXP (Gained)', AgilXP_O);
Stats_Commit;
FarmXP_O := 0;
MageXP_O := 0;
AgilXP_O := 0;
MarkTime(CommitTime);
end;
//By Bandland100, modified to shift mouse speeds after every step
procedure SuperWindMouse(xs, ys, xe, ye, gravity, wind, minWait, maxWait, maxStep, targetArea: extended);
var
veloX,veloY,windX,windY,veloMag,dist,randomDist,la stDist,step: extended;
lastX,lastY,MSP,W: integer;
sqrt2,sqrt3,sqrt5: extended;
begin
MSP := MouseSpeed;
sqrt2:= sqrt(2);
sqrt3:= sqrt(3);
sqrt5:= sqrt(5);
while hypot(xs - xe, ys - ye) > 1 do
begin
dist:= hypot(xs - xe, ys - ye);
wind:= minE(wind, dist);
if dist >= targetArea then
begin
windX:= windX / sqrt3 + (random(round(wind) * 2 + 1) - wind) / sqrt5;
windY:= windY / sqrt3 + (random(round(wind) * 2 + 1) - wind) / sqrt5;
end else
begin
windX:= windX / sqrt2;
windY:= windY / sqrt2;
if (maxStep < 3) then
begin
maxStep:= random(3) + 3.0;
end else
begin
maxStep:= maxStep / sqrt5;
end;
end;
veloX:= veloX + windX;
veloY:= veloY + windY;
veloX:= veloX + gravity * (xe - xs) / dist;
veloY:= veloY + gravity * (ye - ys) / dist;
if hypot(veloX, veloY) > maxStep then
begin
randomDist:= maxStep / 2.0 + random(round(maxStep) div 2);
veloMag:= sqrt(veloX * veloX + veloY * veloY);
veloX:= (veloX / veloMag) * randomDist;
veloY:= (veloY / veloMag) * randomDist;
end;
lastX:= Round(xs);
lastY:= Round(ys);
xs:= xs + veloX;
ys:= ys + veloY;
case Random(50) of
1..25: W := (MSP + (Random((MSP/4))));
26..50: W := (MSP - (RandomRange((MSP/2), MSP-1)));
end;
if (W < 1) then
W := 1;
if (lastX <> Round(xs)) or (lastY <> Round(ys)) then
MoveMouse(Round(xs), Round(ys));
if not DebugMode then
SMART_DrawDotsEx(False, [Point(lastX, lastY)], 65280);
step:= hypot(xs - lastX, ys - lastY);
wait(W);
lastdist:= dist;
end;
if (Round(xe) <> Round(xs)) or (Round(ye) <> Round(ys)) then
MoveMouse(Round(xe), Round(ye));
MouseSpeed := MSP;
end;
Procedure HumanRandomMouse;
var
randSpeed: extended;
x, y, firstSpeed: integer;
begin
case(Random(10)) of
2..8:
begin
firstSpeed := mouseSpeed;
mouseSpeed := RandomRange(5,10);
randSpeed := (random(MouseSpeed) / 2.0 + MouseSpeed) / 10.0;
GetMousePos(x, y);
SuperWindMouse(x, y, RandomRange(x - 75, x + 75), RandomRange(y - 75, y + 75),
30, 55, 10.0 / randSpeed, 12.0 / randSpeed, 10.0 * randSpeed, 10.0 * randSpeed);
mouseSpeed := firstSpeed;
Smart_ClearCanvas;
end;
end;
end;
Procedure HumanMMouse(eX, eY, ranX, ranY: Integer);
var
randSpeed: extended;
X,Y,X2,Y2,A,Dist,MP: integer;
begin
A := MouseSpeed;
GetMousePos(X, Y);
Dist := Distance(X, Y, eX, eY);
MP := Round(Dist/150);
if MP < 0 then
MP := 1;
randSpeed := (random(MouseSpeed) / 2.0 + MouseSpeed) / 10.0;
X2 := RandomRange(eX-(A*MP), eX+(A*MP));
Y2 := RandomRange(eY-(A*MP), eY+(A*MP));
SuperWindMouse(X, Y, X2, Y2, 9.0, 3.0, 10.0 / randSpeed, 12.0 / randSpeed, 10.0 * randSpeed, 10.0 * randSpeed);
GetMousePos(X, Y);
MMouse(eX, eY, ranX, ranY);
MouseSpeed := A;
end;
Procedure ReturnValues(colors: TIntegerArray; var HueMods, SatMods: Extended; var color, Tolerance: Integer);
Var
h, s, t: Extended;
I,II : integer;
HSLColor : Array[1..3] of Extended;
HSL : Array[0..1] of Array[1..3] of Extended;
begin;
For I:= 1 to 3 do
begin;
HSL[0][i] := 255;
end;
For I:= 0 to High(Colors) do
begin;
ColortoHSL(Colors[i],HSLColor[1],HSLColor[2],HSLColor[3]);
For II:= 1 to 3 do
begin;
HSL[0][II] := MinE(HSLColor[II],HSL[0][II]);
HSL[1][II] := MaxE(HSLColor[II],HSL[1][II]);
end;
end;
H := (HSL[1][1] - HSL[0][1]);
S := (HSL[1][2] - HSL[0][2]);
T := (HSL[1][3] - HSL[0][3]);
try
HueMods := (H/T);
SatMods := (S/T);
Tolerance := Round(t);
except
HueMods := 0;
SatMods := 0;
Tolerance := Round(0.0);
end;
Color := HSLToColor((HSL[1][1] + HSL[0][1]) div 2,(HSL[1][2] + HSL[0][2]) div 2,(HSL[1][3] + HSL[0][3]) div 2);
end;
Function FindLivid(Var X,Y: Integer): Boolean;
var
B: TBox;
TPA,PAr: TPointArray;
i,h,CTS: Integer;
TBA: TBoxArray;
MBP: TPoint;
ATPA: T2DPointArray;
begin
Result := False;
if not LoggedIn then Exit;
CTS := GetColorToleranceSpeed;
PAr := TPAFromBox(IntToBox(245, 135, 275, 190));
ColorToleranceSpeed(2);
SetColorSpeed2Modifiers(8.34, 0.33);
FindColorsSpiralTolerance(MSCX, MSCY, TPA, 1907996, MSX1, MSY1, MSX2, MSY2, 6);
ColorToleranceSpeed(CTS);
SetColorSpeed2Modifiers(0.2, 0.2);
if (Length(TPA) < 1) then
Exit;
TPA := ClearTPAFromTPA(TPA, PAr);
ATPA := SplitTPAEx(TPA, 30, 40);
SortATPAFromFirstpoint(ATPA, Point(MSCX, MSCY));;
for i := 0 to High(ATPA) do
begin
if (GetArrayLength(ATPA[I]) > 50) then
begin
B := GetTPABounds(ATPA[i]);
SetArrayLength(TBA, Length(TBA)+1);
TBA[High(TBA)] := B;
end;
end;
if DebugMode then
begin
SMART_DrawBoxes(True, TBA, clRed);
if (Length(TBA) > 0) then
SMART_DrawBoxEx(False, TBA[0], 65280);
end;
for h := 0 to High(TBA) do
begin
MBP := MiddleBox(TBA[h]);
HumanMMouse(MBP.X, MBP.Y, 5, 5);
if WaitUpTextMulti(['Cure', 'plant', 'Diseased', 'livd'], 500) then
begin
Result := True;
GetMousePos(X, Y);
Exit;
end else
Result := False;
end;
end;
Function FindSoil(Var X,Y: Integer): Boolean;
var
B,B2: TBox;
TPA,TPA2,PAr: TPointArray;
Hmod,Hmod2,Smod2,Smod: Extended;
i,h,Tol,Tol2,CTS,Col2,Col: Integer;
TBA: TBoxArray;
MBP: TPoint;
ATPA: T2DPointArray;
begin
CTS := GetColorToleranceSpeed;
PAr := TPAFromBox(IntToBox(245, 155, 270, 190));
ColorToleranceSpeed(2);
ReturnValues(SCols, Hmod, Smod, Col, Tol);
SetColorSpeed2Modifiers(Hmod, SMod);
FindColorsSpiralTolerance(MSCX, MSCY, TPA, Col, MSX1, MSY1, MSX2, MSY2, Tol);
if (Length(TPA) < 1) then
begin
ColorToleranceSpeed(CTS);
SetColorSpeed2Modifiers(0.2, 0.2);
Exit;
end;
TPA := ClearTPAFromTPA(TPA, PAr);
ATPA := SplitTPAEx(TPA, 30, 30);
SortATPAFromFirstpoint(ATPA, Point(MSCX, MSCY));
for i := 0 to High(ATPA) do
begin
B := GetTPABounds(ATPA[i]);
ReturnValues(PCols, Hmod2, Smod2, Col2, Tol2);
SetColorSpeed2Modifiers(Hmod2, SMod2);
if not FindColorsSpiralTolerance(MSCX, MSCY, TPA2, Col2, B.X1, B.Y1, B.X2, B.Y2, Tol2) then
begin
B2 := GetTPABounds(ATPA[i]);
SetArrayLength(TBA, Length(TBA)+1);
TBA[High(TBA)] := B2;
end;
end;
ColorToleranceSpeed(CTS);
SetColorSpeed2Modifiers(0.2, 0.2);
if DebugMode then
begin
SMART_DrawBoxes(True, TBA, clRed);
if (Length(TBA) > 0) then
SMART_DrawBoxEx(False, TBA[0], 65280);
end;
for h := 0 to High(TBA) do
begin
MBP := MiddleBox(TBA[h]);
HumanMMouse(MBP.X, MBP.Y, 5, 5);
if WaitUpTextMulti(['Fertilise', 'Empty', 'patch'], 500) then
begin
Result := True;
GetMousePos(X, Y);
Exit;
end else
Result := False;
end;
end;
Function FindPauline(Var X,Y: Integer): Boolean;
var
B: TBox;
TPA,PArr: TPointArray;
i,h,CTS: Integer;
MBP: TPoint;
ATPA: T2DPointArray;
Cols,Tols: TIntegerArray;
HMods,SMods: Array of Extended;
begin
Result := False;
if not LoggedIn then Exit;
CTS := GetColorToleranceSpeed;
PArr := TPAFromBox(IntToBox(245, 135, 275, 190));
Cols := [6319982, 6583413, 6648947];
Tols := [9, 12, 9];
HMods := [0.10, 0.09, 0.09];
SMods := [0.04, 0.08, 0.08];
for h := 0 to High(Cols) do
begin
ColorToleranceSpeed(2);
SetColorSpeed2Modifiers(HMods[h], SMods[h]);
FindColorsSpiralTolerance(370, 30, TPA, Cols[h], 300, 5, 420, 70, Tols[h]);
TPA := ClearTPAFromTPA(TPA, PArr);
if (Length(TPA) > 0) then break;
end;
ColorToleranceSpeed(CTS);
SetColorSpeed2Modifiers(0.2, 0.2);
if (Length(TPA) < 1) then
begin
Writeln('No Pauline colors found');
Exit;
end;
TPA := ClearTPAFromTPA(TPA, PArr);
ATPA := SplitTPAEx(TPA, 15, 25);
SortATPAFromFirstpoint(ATPA, Point(370, 30));;
for i := 0 to High(ATPA) do
begin
B := GetTPABounds(ATPA[i]);
if DebugMode then
SMART_DrawBoxEx(True, B, 65280);
MBP := MiddleBox(B);
HumanMMouse(MBP.X, MBP.Y, 5, 5);
if WaitUpTextMulti(['alk-t', 'rain', 'auli', 'Paul','olari'], 500) then
begin
Result := True;
GetMousePos(X, Y);
Exit;
end;
end;
end;
Function GetLividType(X, Y: Integer): Integer;
var
R1C1,R1C2,R1C3,R1C4,R1C5,
R2C1,R2C2,R2C3,R2C4,R2C5,
R3C1,R3C2,R3C3,R3C4,R3C5: TBox;
begin
Result := 0;
//Top row
R1C1 := IntToBox(100, 20, 150, 70);
R1C2 := IntToBox(165, 20, 220, 70);
R1C3 := IntToBox(235, 20, 290, 70);
R1C4 := IntToBox(300, 20, 355, 70);
R1C5 := IntToBox(370, 20, 440, 70);
//Middle row
R2C1 := IntToBox(70, 100, 135, 160);
R2C2 := IntToBox(155, 100, 220, 160);
R2C3 := IntToBox(230, 100, 290, 160);
R2C4 := IntToBox(305, 100, 365, 160);
R2C5 := IntToBox(380, 100, 440, 160);
//Bottom row
R3C1 := IntToBox(60, 210, 125, 270);
R3C2 := IntToBox(140, 210, 215, 270);
R3C3 := IntToBox(225, 210, 295, 270);
R3C4 := IntToBox(305, 210, 375, 270);
R3C5 := IntToBox(400, 210, 470, 270);
if (IntInBox(X, Y, R1C1) or IntInBox(X, Y, R1C2) or //Type 1
IntInBox(X, Y, R1C3) or IntInBox(X, Y, R1C5)) then
Result := 1
else if (IntInBox(X, Y, R1C4) or IntInBox(X, Y, R2C3) or //Type 2
IntInBox(X, Y, R2C4) or IntInBox(X, Y, R2C5)) then
Result := 2
else if (IntInBox(X, Y, R2C2) or IntInBox(X, Y, R3C1) or //Type 3
IntInBox(X, Y, R3C5)) then
Result := 3
else if (IntInBox(X, Y, R2C1) or IntInBox(X, Y, R3C2) or //Type 4
IntInBox(X, Y, R3C3) or IntInBox(X, Y, R3C4)) then
Result := 4;
end;
Function LividMenu: Boolean;
var
X,Y: Integer;
begin
Result := FindText(x, y, 'train', SmallChars, MIX1, MIY1, MIX2, MIY2);
end;
Function TalkScreen: Boolean;
begin
Result := GetColor(216, 360) = 7913190;
end;
Procedure QuickLow;
begin
KeyDown(40);
Wait(850 + Random(100));
KeyUp(40);
end;
Procedure QuickHigh;
begin
Mouse(542, 24, 15, 15, mouse_left);
KeyDown(38);
Wait(950 + Random(100));
KeyUp(38);
end;
Procedure CureLivid(Strain: Integer);
var
SPoint: TPoint;
begin
if (Strain = 1) then
SPoint := Point(590, 280)
else if (Strain = 2) then
SPoint := Point(680, 280)
else if (Strain = 3) then
SPoint := Point(590, 400)
else if (Strain = 4) then
SPoint := Point(680, 400);
HumanMMouse(SPoint.X, SPoint.Y, 10, 10);
if WaitUpText('Continue', 300) then
begin
ClickMouse2(True);
Inc(PlantCount);
IncEx(FarmXP_O, 92);
IncEx(FarmXP, 92);
IncEx(MageXP_O, 60);
IncEx(MageXP, 60);
IncEx(Points, 20);
end;
end;
Function HandleLivids: Boolean;
var
X,Y,T: Integer;
label
Start;
begin
Result := False;
Start:
if not LoggedIn then Exit;
FindNormalRandoms;
MouseSpeed := RandomRange(12, 16);
if FindLivid(X, Y) then
begin
if (GetLividType(X, Y) = 0) then
GoTo Start;
CheckedPauline := False;
ClickMouse2(False);
if WaitOptionMulti(['Cure', 're-p', '-pl', 'lant'], 500) then
begin
HumanMMouse(635, 310, 65, 70);
if DebugMode then
Smart_ClearCanvas;
end;
MarkTime(T);
repeat
if (TimeFromMark(T) > 3000) then
Exit;
if LividMenu then
break;
until(false)
if LividMenu then
begin
CureLivid(GetLividType(X, Y));
Wait(randomRange(1915, 2570));
GoTo Start;
end;
end else
Result := True;
end;
Function HandleSoil: Boolean;
var
X,Y: Integer;
label
Start;
begin
Result := False;
Start:
MouseSpeed := RandomRange(12, 16);
FindNormalRandoms;
if FindSoil(X, Y) then
begin
CheckedPauline := False;
ClickMouse2(False);
if WaitOption('Empty', 500) then
begin
Inc(SoilCount);
IncEx(FarmXP_O, 92);
IncEx(FarmXP, 92);
IncEx(MageXP_O, 87);
IncEx(MageXP, 87);
IncEx(Points, 20);
Smart_ClearCanvas;
Wait(randomRange(1915, 2570));
GoTo Start;
end;
end else
Result := True;
end;
Function HandleThatTiredPaulinePersonWhoNeedsEncouragementB ecauseWeAreProLikeABoss: Boolean;
Var
X,Y: Integer;
ExBMP,FanBMP,LukBMP,
ProBMP,WeBMP,WellBMP: Integer;
begin
Result := False;
if not LoggedIn then Exit;
if ((not FindLivid(X, Y)) and (not FindSoil(X, Y))) then
begin
QuickLow;
MakeCompass('E');
Wait(RandomRange(235, 320));
if FindPauline(X, Y) then
begin
if WaitUpTextMulti(['Drai', 'raine'], 500) then
begin
ClickMouse2(False);
if WaitOptionMulti(['Ener', 'ergis', 'gise'], 500) then
begin
if DebugMode then
Smart_ClearCanvas;
if WaitFunc(@TalkScreen, 10, 3000) then
begin
ExBMP := BitmapFromString(16, 5, 'meJw7cQIFMMAAhI0sAuGiiaDJYop' +
'QSz0e92C6H9MjcAAAAUs6mQ==');
FanBMP := BitmapFromString(67, 6, 'meJw7cQIKGHCAE0gAUxBZBI96POJ' +
'4zCTDGcguwSWI7FQ8gsRrwQXw+AWPFvwBRU+PEBNlpGqhv0eI 9Ckx' +
'WgY2Rij3CMGoITKXEXQzMSmHkqQFAMDdFvg=');
LukBMP := BitmapFromString(18, 7, 'meJw7ceIEAwPDCTCJH8DVnAAD/Lp' +
'OIAEidSGLI+siaBEZunC5kKAuXOaQpAWiCwCFcEZR');
ProBMP := BitmapFromString(26, 7, 'meJw7cQIBGJAAVkFMWWQFmFw0Bho' +
'bqyCyLjzieJxHqmlYPUi5aZS7jYHcWMDvI1wAl0YAdzB8OQ== ');
WellBMP := BitmapFromString(41, 6, 'meJw7cQIBGLABTFmC6nExcOnFahS' +
'mIJo5JFmNSy8uc/C4EI/VmCQDkpcxgxHTHEwHUGg1LvNxWY1LOzFG' +
'4WFjDQFMBQQFibEaTS8AGGuowQ==');
WeBMP := BitmapFromString(23, 8, 'meJw7ceIEAwycQGKTBE5QwxC4XjQ' +
'TTsAAHl3ICjANIeg8TAVYDUEG+A0hxiW4/EJQkAzv4HIe8QELAEER' +
'YnE=');
if (FindBitmapToleranceIn(ExBMP, X, Y, MCX1, MCY1, MCX2, MCY2, 15) or
FindBitmapToleranceIn(WellBMP, X, Y, MCX1, MCY1, MCX2, MCY2, 15) or
FindBitmapToleranceIn(FanBMP, X, Y, MCX1, MCY1, MCX2, MCY2, 15) or
FindBitmapToleranceIn(LukBMP, X, Y, MCX1, MCY1, MCX2, MCY2, 15) or
FindBitmapToleranceIn(ProBMP, X, Y, MCX1, MCY1, MCX2, MCY2, 15) or
FindBitmapToleranceIn(WeBMP, X, Y, MCX1, MCY1, MCX2, MCY2, 15)) then
begin
HumanMMouse(X, Y+2, 10, 2);
ClickMouse2(True);
IncEx(AgilXP_O, 168);
IncEx(AgilXP, 168);
IncEx(MageXP_O, 100);
IncEx(MageXP, 100);
IncEx(Points, 100);
end;
FreeBitmap(ExBMP);
FreeBitmap(WellBMP);
FreeBitmap(FanBMP);
FreeBitmap(LukBMP);
FreeBitmap(ProBMP);
FreeBitmap(WeBMP);
end;
end;
end;
Result := True;
end;
QuickHigh;
CheckedPauline := True;
end;
end;
Function DoAntiban: Boolean;
var
i: Integer;
begin
if not LoggedIn then Exit;
i := Random(900);
case i of
1..45:
begin
HumanRandomMouse;
Result := True;
end;
46:
begin
HoverSkill('Farming', False);
Result := True;
end;
47:
begin
HoverSkill('Magic', False);
Result := True;
end;
end;
Wait(100);
end;
Function BreakHandler(BreakIn, BreakFor, randBreakIn, randBreakFor: Integer): Boolean;
Var
h,m,s: integer;
begin
if not LoggedIn then Exit;
if (HowManyPlayers = 1) then
begin
if (GetTimeRunning < ((w) + (y) + BreakRounds)) then Exit
else
if (GetTimeRunning > ((w) + (y) + BreakRounds)) then
begin
RealBTime := ((x+z)/60000);
Writeln('Taking a break for about ' + IntToStr(RealBTime) + ' minutes.');
Logout;
MarkTime(CurrentBTime);
repeat
Wait(21000);
ConvertTime((x+z)-TimeFromMark(CurrentBTime), h, m, s);
ClearDebug;
Writeln('Breaktime left: '+IntToStr(h)+':'+IntToStr(m)+':'+IntToStr(s));
until(TimeFromMark(CurrentBTime)>(x+z));
Writeln('Logging in.');
if SwitchWorlds then
if LoginPlayerToLob then
ChangeWorld(RandomWorld(True, False))
else
LoginPlayer;
Wait(4000);
Result := LoggedIn;
ClickNorth(SRL_ANGLE_HIGH);
IncEx(BreakRounds, (w) + (x));
Inc(TotalBreaks);
Writeln('The next break will occur in about ' + IntToStr(BreakIn) + ' minutes.');
w := (BreakIn * 60000);
x := (BreakFor * 60000);
y := RandomRange(-Bir * 60000, Bir * 60000);
z := RandomRange(-Bfr * 60000, Bfr * 60000);
end;
end;
end;
Procedure FoundARandom;
begin
Writeln('Found a random!');
PlaySound(ScriptPath+'evilaugh.wav');
Wait(RandomRange(10000, 20000));
end;
begin
Smart_Server := 86;
Smart_Members := True;
Smart_Signed := True;
Smart_SuperDetail := False;
setupSRL();
DeclarePlayers;
LoadVars;
Smart_ClearCanvas;
LoginPlayer;
QuickHigh;
//SRL_Procs[SRL_OnFindRandom] := @FoundARandom;
Repeat
if not LoggedIn then
begin
LoginPlayer;
ClickNorth(SRL_ANGLE_HIGH);
end;
BreakHandler(BreakIn,BreakFor,Bir,Bfr);
if (TimeFromMark(CommitTime)>=30000) then
Commit;
if (TimeFromMark(ReportTime)>=30000) then
Report;
FindNormalRandoms;
HandleLivids;
HandleSoil;
if not CheckedPauline then
HandleThatTiredPaulinePersonWhoNeedsEncouragementB ecauseWeAreProLikeABoss;
DoAntiban;
Until(AllPlayersInactive)
end.
oneshadow
04-12-2012, 02:25 AM
Ran out of nats and laws.
[ by Flight ]
[======================================]
[ Run Time : 3 Hr 21 Min 48 Sec ]
[ Points : 32480 ]
[ Plants Cured : 540 ]
[ Soil Fertilized : 544 ]
[ Farming XP : 99728 ]
[ Farming XP/Hr : 29651 ]
[ Magic XP : 90528 ]
[ Magic XP/Hr : 26916 ]
[ Agility XP : 18144 ]
[ Agility XP/Hr : 5394 ]
[ Breaks : 1 ]
[======================================]
[ LividFarmer 1.2 ]
[======================================]
Ran out of nats and laws.
[ by Flight ]
[======================================]
[ Run Time : 3 Hr 21 Min 48 Sec ]
[ Points : 32480 ]
[ Plants Cured : 540 ]
[ Soil Fertilized : 544 ]
[ Farming XP : 99728 ]
[ Farming XP/Hr : 29651 ]
[ Magic XP : 90528 ]
[ Magic XP/Hr : 26916 ]
[ Agility XP : 18144 ]
[ Agility XP/Hr : 5394 ]
[ Breaks : 1 ]
[======================================]
[ LividFarmer 1.2 ]
[======================================]
how many runes You lost?
Le Jingle
04-12-2012, 04:20 PM
@rev 5, running 1.2, you'll loose approx. 75 Laws/400 Nats/830 Astrals per hour
stoopdfish
04-12-2012, 05:01 PM
It's nearly flawless. I babysat 1.2 while I did homework yesterday and went from 60 to 66 farming. This script it great.
outbuster
04-12-2012, 05:31 PM
Yikes, I wonder what went wrong. :/ Have you tried using V.1.2? I recommend that. Also, bring a handful of Law Runes with you.
Absolutely, I actually posted it on page 18, but here it is again for anyone who missed it:
{/////////////////////////////////////////
// LividFarmer //
// (by Flight) //
// //
// Version: 1.2 //
/////////////////////////////////////////}
program LividFarmer;
{$DEFINE SRL5}
{$DEFINE SMART}
{$i SRL/srl.simba}
{$i SRL/SRL/misc/reports.simba}
{$i SRL/SRL/misc/paintsmart.simba}
Const
//SRL Stats
SRLStats_Username = '';
SRLStats_Password = '';
//General settings
DebugMode = True; //On-screen debugging?
SwitchWorlds = True; //Switch worlds after a break?
//Break settings
BreakIn = 135; //How long before we take a break? (minutes)
BreakFor = 15; //How long will we break for? (minutes)
Bir = 13; //Random minutes to add/subtract from how long until we break
Bfr = 7; //Random minutes to add/subjtract from break duraction
Var
//Static
Version: String;
SCols,PCols: TIntegerArray;
//Dynamic
FarmXP,FarmXP_O,MageXP,
MageXP_O,AgilXP,AgilXP_O,
Points,CommitTime,
ReportTime,PlantCount,
SoilCount: Integer;
CheckedPauline: Boolean;
//Break variables
w,x,y,z,RealBTime,CurrentBTime,
BreakRounds,TotalBreaks: Integer;
Procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
with Players[0] do
begin
Name := '';
Pass := '';
BoxRewards := ['XP','xp','lamp'];
LampSkill := Skill_Farming;
Active := True;
end;
end;
Procedure LoadVars;
begin
Version := '1.2';
MarkTime(ReportTime);
MarkTime(CommitTime);
CheckedPauline := False;
SetupSRLStats(156, SRLStats_Username, SRLStats_Password);
w := (BreakIn * 60000);
x := (BreakFor * 60000);
y := RandomRange(-Bir * 60000, Bir * 60000);
z := RandomRange(-Bfr * 60000, Bfr * 60000);
SCols := [5073267, 5204854, 5465452, 5402748]; //Soil colors
PCols := [4542282, 4674124, 4871760, 5003346, 5135188]; //Healthy livid colors
end;
Procedure Report;
Var
FXPH,MXPH,AXPH: Integer;
begin
FXPH := Round((FarmXP * 3600) / (GetTimeRunning / 1000));
MXPH := Round((MageXP * 3600) / (GetTimeRunning / 1000));
AXPH := Round((AgilXP * 3600) / (GetTimeRunning / 1000));
ClearDebug;
SRLProgressReport(ResultDebugBox, 'LividFarmer', 'Flight', Version,
['Run time', 'Points', 'Plants cured', 'Soil fertilized', 'Farming XP',
'Farming XP/Hr', 'Magic XP', 'Magic XP/Hr', 'Agility XP', 'Agility XP/Hr','Breaks'],
[MsToTime(GetTimeRunning, Time_Abbrev), Points, PlantCount, SoilCount, FarmXP,
FXPH, MageXP, MXPH, AgilXP, AXPH, TotalBreaks]);
MarkTime(ReportTime);
end;
Procedure Commit;
begin
stats_IncVariable('Farming EXP (Gained)', FarmXP_O);
stats_IncVariable('Magic EXP (Gained)', MageXP_O);
stats_IncVariable('Agility EXP (Gained)', AgilXP_O);
Stats_Commit;
FarmXP_O := 0;
MageXP_O := 0;
AgilXP_O := 0;
MarkTime(CommitTime);
end;
//By Bandland100, modified to shift mouse speeds after every step
procedure SuperWindMouse(xs, ys, xe, ye, gravity, wind, minWait, maxWait, maxStep, targetArea: extended);
var
veloX,veloY,windX,windY,veloMag,dist,randomDist,la stDist,step: extended;
lastX,lastY,MSP,W: integer;
sqrt2,sqrt3,sqrt5: extended;
begin
MSP := MouseSpeed;
sqrt2:= sqrt(2);
sqrt3:= sqrt(3);
sqrt5:= sqrt(5);
while hypot(xs - xe, ys - ye) > 1 do
begin
dist:= hypot(xs - xe, ys - ye);
wind:= minE(wind, dist);
if dist >= targetArea then
begin
windX:= windX / sqrt3 + (random(round(wind) * 2 + 1) - wind) / sqrt5;
windY:= windY / sqrt3 + (random(round(wind) * 2 + 1) - wind) / sqrt5;
end else
begin
windX:= windX / sqrt2;
windY:= windY / sqrt2;
if (maxStep < 3) then
begin
maxStep:= random(3) + 3.0;
end else
begin
maxStep:= maxStep / sqrt5;
end;
end;
veloX:= veloX + windX;
veloY:= veloY + windY;
veloX:= veloX + gravity * (xe - xs) / dist;
veloY:= veloY + gravity * (ye - ys) / dist;
if hypot(veloX, veloY) > maxStep then
begin
randomDist:= maxStep / 2.0 + random(round(maxStep) div 2);
veloMag:= sqrt(veloX * veloX + veloY * veloY);
veloX:= (veloX / veloMag) * randomDist;
veloY:= (veloY / veloMag) * randomDist;
end;
lastX:= Round(xs);
lastY:= Round(ys);
xs:= xs + veloX;
ys:= ys + veloY;
case Random(50) of
1..25: W := (MSP + (Random((MSP/4))));
26..50: W := (MSP - (RandomRange((MSP/2), MSP-1)));
end;
if (W < 1) then
W := 1;
if (lastX <> Round(xs)) or (lastY <> Round(ys)) then
MoveMouse(Round(xs), Round(ys));
if not DebugMode then
SMART_DrawDotsEx(False, [Point(lastX, lastY)], 65280);
step:= hypot(xs - lastX, ys - lastY);
wait(W);
lastdist:= dist;
end;
if (Round(xe) <> Round(xs)) or (Round(ye) <> Round(ys)) then
MoveMouse(Round(xe), Round(ye));
MouseSpeed := MSP;
end;
Procedure HumanRandomMouse;
var
randSpeed: extended;
x, y, firstSpeed: integer;
begin
case(Random(10)) of
2..8:
begin
firstSpeed := mouseSpeed;
mouseSpeed := RandomRange(5,10);
randSpeed := (random(MouseSpeed) / 2.0 + MouseSpeed) / 10.0;
GetMousePos(x, y);
SuperWindMouse(x, y, RandomRange(x - 75, x + 75), RandomRange(y - 75, y + 75),
30, 55, 10.0 / randSpeed, 12.0 / randSpeed, 10.0 * randSpeed, 10.0 * randSpeed);
mouseSpeed := firstSpeed;
Smart_ClearCanvas;
end;
end;
end;
Procedure HumanMMouse(eX, eY, ranX, ranY: Integer);
var
randSpeed: extended;
X,Y,X2,Y2,A,Dist,MP: integer;
begin
A := MouseSpeed;
GetMousePos(X, Y);
Dist := Distance(X, Y, eX, eY);
MP := Round(Dist/150);
if MP < 0 then
MP := 1;
randSpeed := (random(MouseSpeed) / 2.0 + MouseSpeed) / 10.0;
X2 := RandomRange(eX-(A*MP), eX+(A*MP));
Y2 := RandomRange(eY-(A*MP), eY+(A*MP));
SuperWindMouse(X, Y, X2, Y2, 9.0, 3.0, 10.0 / randSpeed, 12.0 / randSpeed, 10.0 * randSpeed, 10.0 * randSpeed);
GetMousePos(X, Y);
MMouse(eX, eY, ranX, ranY);
MouseSpeed := A;
end;
Procedure ReturnValues(colors: TIntegerArray; var HueMods, SatMods: Extended; var color, Tolerance: Integer);
Var
h, s, t: Extended;
I,II : integer;
HSLColor : Array[1..3] of Extended;
HSL : Array[0..1] of Array[1..3] of Extended;
begin;
For I:= 1 to 3 do
begin;
HSL[0][i] := 255;
end;
For I:= 0 to High(Colors) do
begin;
ColortoHSL(Colors[i],HSLColor[1],HSLColor[2],HSLColor[3]);
For II:= 1 to 3 do
begin;
HSL[0][II] := MinE(HSLColor[II],HSL[0][II]);
HSL[1][II] := MaxE(HSLColor[II],HSL[1][II]);
end;
end;
H := (HSL[1][1] - HSL[0][1]);
S := (HSL[1][2] - HSL[0][2]);
T := (HSL[1][3] - HSL[0][3]);
try
HueMods := (H/T);
SatMods := (S/T);
Tolerance := Round(t);
except
HueMods := 0;
SatMods := 0;
Tolerance := Round(0.0);
end;
Color := HSLToColor((HSL[1][1] + HSL[0][1]) div 2,(HSL[1][2] + HSL[0][2]) div 2,(HSL[1][3] + HSL[0][3]) div 2);
end;
Function FindLivid(Var X,Y: Integer): Boolean;
var
B: TBox;
TPA,PAr: TPointArray;
i,h,CTS: Integer;
TBA: TBoxArray;
MBP: TPoint;
ATPA: T2DPointArray;
begin
Result := False;
if not LoggedIn then Exit;
CTS := GetColorToleranceSpeed;
PAr := TPAFromBox(IntToBox(245, 135, 275, 190));
ColorToleranceSpeed(2);
SetColorSpeed2Modifiers(8.34, 0.33);
FindColorsSpiralTolerance(MSCX, MSCY, TPA, 1907996, MSX1, MSY1, MSX2, MSY2, 6);
ColorToleranceSpeed(CTS);
SetColorSpeed2Modifiers(0.2, 0.2);
if (Length(TPA) < 1) then
Exit;
TPA := ClearTPAFromTPA(TPA, PAr);
ATPA := SplitTPAEx(TPA, 30, 40);
SortATPAFromFirstpoint(ATPA, Point(MSCX, MSCY));;
for i := 0 to High(ATPA) do
begin
if (GetArrayLength(ATPA[I]) > 50) then
begin
B := GetTPABounds(ATPA[i]);
SetArrayLength(TBA, Length(TBA)+1);
TBA[High(TBA)] := B;
end;
end;
if DebugMode then
begin
SMART_DrawBoxes(True, TBA, clRed);
if (Length(TBA) > 0) then
SMART_DrawBoxEx(False, TBA[0], 65280);
end;
for h := 0 to High(TBA) do
begin
MBP := MiddleBox(TBA[h]);
HumanMMouse(MBP.X, MBP.Y, 5, 5);
if WaitUpTextMulti(['Cure', 'plant', 'Diseased', 'livd'], 500) then
begin
Result := True;
GetMousePos(X, Y);
Exit;
end else
Result := False;
end;
end;
Function FindSoil(Var X,Y: Integer): Boolean;
var
B,B2: TBox;
TPA,TPA2,PAr: TPointArray;
Hmod,Hmod2,Smod2,Smod: Extended;
i,h,Tol,Tol2,CTS,Col2,Col: Integer;
TBA: TBoxArray;
MBP: TPoint;
ATPA: T2DPointArray;
begin
CTS := GetColorToleranceSpeed;
PAr := TPAFromBox(IntToBox(245, 155, 270, 190));
ColorToleranceSpeed(2);
ReturnValues(SCols, Hmod, Smod, Col, Tol);
SetColorSpeed2Modifiers(Hmod, SMod);
FindColorsSpiralTolerance(MSCX, MSCY, TPA, Col, MSX1, MSY1, MSX2, MSY2, Tol);
if (Length(TPA) < 1) then
begin
ColorToleranceSpeed(CTS);
SetColorSpeed2Modifiers(0.2, 0.2);
Exit;
end;
TPA := ClearTPAFromTPA(TPA, PAr);
ATPA := SplitTPAEx(TPA, 30, 30);
SortATPAFromFirstpoint(ATPA, Point(MSCX, MSCY));
for i := 0 to High(ATPA) do
begin
B := GetTPABounds(ATPA[i]);
ReturnValues(PCols, Hmod2, Smod2, Col2, Tol2);
SetColorSpeed2Modifiers(Hmod2, SMod2);
if not FindColorsSpiralTolerance(MSCX, MSCY, TPA2, Col2, B.X1, B.Y1, B.X2, B.Y2, Tol2) then
begin
B2 := GetTPABounds(ATPA[i]);
SetArrayLength(TBA, Length(TBA)+1);
TBA[High(TBA)] := B2;
end;
end;
ColorToleranceSpeed(CTS);
SetColorSpeed2Modifiers(0.2, 0.2);
if DebugMode then
begin
SMART_DrawBoxes(True, TBA, clRed);
if (Length(TBA) > 0) then
SMART_DrawBoxEx(False, TBA[0], 65280);
end;
for h := 0 to High(TBA) do
begin
MBP := MiddleBox(TBA[h]);
HumanMMouse(MBP.X, MBP.Y, 5, 5);
if WaitUpTextMulti(['Fertilise', 'Empty', 'patch'], 500) then
begin
Result := True;
GetMousePos(X, Y);
Exit;
end else
Result := False;
end;
end;
Function FindPauline(Var X,Y: Integer): Boolean;
var
B: TBox;
TPA,PArr: TPointArray;
i,h,CTS: Integer;
MBP: TPoint;
ATPA: T2DPointArray;
Cols,Tols: TIntegerArray;
HMods,SMods: Array of Extended;
begin
Result := False;
if not LoggedIn then Exit;
CTS := GetColorToleranceSpeed;
PArr := TPAFromBox(IntToBox(245, 135, 275, 190));
Cols := [6319982, 6583413, 6648947];
Tols := [9, 12, 9];
HMods := [0.10, 0.09, 0.09];
SMods := [0.04, 0.08, 0.08];
for h := 0 to High(Cols) do
begin
ColorToleranceSpeed(2);
SetColorSpeed2Modifiers(HMods[h], SMods[h]);
FindColorsSpiralTolerance(370, 30, TPA, Cols[h], 300, 5, 420, 70, Tols[h]);
TPA := ClearTPAFromTPA(TPA, PArr);
if (Length(TPA) > 0) then break;
end;
ColorToleranceSpeed(CTS);
SetColorSpeed2Modifiers(0.2, 0.2);
if (Length(TPA) < 1) then
begin
Writeln('No Pauline colors found');
Exit;
end;
TPA := ClearTPAFromTPA(TPA, PArr);
ATPA := SplitTPAEx(TPA, 15, 25);
SortATPAFromFirstpoint(ATPA, Point(370, 30));;
for i := 0 to High(ATPA) do
begin
B := GetTPABounds(ATPA[i]);
if DebugMode then
SMART_DrawBoxEx(True, B, 65280);
MBP := MiddleBox(B);
HumanMMouse(MBP.X, MBP.Y, 5, 5);
if WaitUpTextMulti(['alk-t', 'rain', 'auli', 'Paul','olari'], 500) then
begin
Result := True;
GetMousePos(X, Y);
Exit;
end;
end;
end;
Function GetLividType(X, Y: Integer): Integer;
var
R1C1,R1C2,R1C3,R1C4,R1C5,
R2C1,R2C2,R2C3,R2C4,R2C5,
R3C1,R3C2,R3C3,R3C4,R3C5: TBox;
begin
Result := 0;
//Top row
R1C1 := IntToBox(100, 20, 150, 70);
R1C2 := IntToBox(165, 20, 220, 70);
R1C3 := IntToBox(235, 20, 290, 70);
R1C4 := IntToBox(300, 20, 355, 70);
R1C5 := IntToBox(370, 20, 440, 70);
//Middle row
R2C1 := IntToBox(70, 100, 135, 160);
R2C2 := IntToBox(155, 100, 220, 160);
R2C3 := IntToBox(230, 100, 290, 160);
R2C4 := IntToBox(305, 100, 365, 160);
R2C5 := IntToBox(380, 100, 440, 160);
//Bottom row
R3C1 := IntToBox(60, 210, 125, 270);
R3C2 := IntToBox(140, 210, 215, 270);
R3C3 := IntToBox(225, 210, 295, 270);
R3C4 := IntToBox(305, 210, 375, 270);
R3C5 := IntToBox(400, 210, 470, 270);
if (IntInBox(X, Y, R1C1) or IntInBox(X, Y, R1C2) or //Type 1
IntInBox(X, Y, R1C3) or IntInBox(X, Y, R1C5)) then
Result := 1
else if (IntInBox(X, Y, R1C4) or IntInBox(X, Y, R2C3) or //Type 2
IntInBox(X, Y, R2C4) or IntInBox(X, Y, R2C5)) then
Result := 2
else if (IntInBox(X, Y, R2C2) or IntInBox(X, Y, R3C1) or //Type 3
IntInBox(X, Y, R3C5)) then
Result := 3
else if (IntInBox(X, Y, R2C1) or IntInBox(X, Y, R3C2) or //Type 4
IntInBox(X, Y, R3C3) or IntInBox(X, Y, R3C4)) then
Result := 4;
end;
Function LividMenu: Boolean;
var
X,Y: Integer;
begin
Result := FindText(x, y, 'train', SmallChars, MIX1, MIY1, MIX2, MIY2);
end;
Function TalkScreen: Boolean;
begin
Result := GetColor(216, 360) = 7913190;
end;
Procedure QuickLow;
begin
KeyDown(40);
Wait(850 + Random(100));
KeyUp(40);
end;
Procedure QuickHigh;
begin
Mouse(542, 24, 15, 15, mouse_left);
KeyDown(38);
Wait(950 + Random(100));
KeyUp(38);
end;
Procedure CureLivid(Strain: Integer);
var
SPoint: TPoint;
begin
if (Strain = 1) then
SPoint := Point(590, 280)
else if (Strain = 2) then
SPoint := Point(680, 280)
else if (Strain = 3) then
SPoint := Point(590, 400)
else if (Strain = 4) then
SPoint := Point(680, 400);
HumanMMouse(SPoint.X, SPoint.Y, 10, 10);
if WaitUpText('Continue', 300) then
begin
ClickMouse2(True);
Inc(PlantCount);
IncEx(FarmXP_O, 92);
IncEx(FarmXP, 92);
IncEx(MageXP_O, 60);
IncEx(MageXP, 60);
IncEx(Points, 20);
end;
end;
Function HandleLivids: Boolean;
var
X,Y,T: Integer;
label
Start;
begin
Result := False;
Start:
if not LoggedIn then Exit;
FindNormalRandoms;
MouseSpeed := RandomRange(12, 16);
if FindLivid(X, Y) then
begin
if (GetLividType(X, Y) = 0) then
GoTo Start;
CheckedPauline := False;
ClickMouse2(False);
if WaitOptionMulti(['Cure', 're-p', '-pl', 'lant'], 500) then
begin
HumanMMouse(635, 310, 65, 70);
if DebugMode then
Smart_ClearCanvas;
end;
MarkTime(T);
repeat
if (TimeFromMark(T) > 3000) then
Exit;
if LividMenu then
break;
until(false)
if LividMenu then
begin
CureLivid(GetLividType(X, Y));
Wait(randomRange(1915, 2570));
GoTo Start;
end;
end else
Result := True;
end;
Function HandleSoil: Boolean;
var
X,Y: Integer;
label
Start;
begin
Result := False;
Start:
MouseSpeed := RandomRange(12, 16);
FindNormalRandoms;
if FindSoil(X, Y) then
begin
CheckedPauline := False;
ClickMouse2(False);
if WaitOption('Empty', 500) then
begin
Inc(SoilCount);
IncEx(FarmXP_O, 92);
IncEx(FarmXP, 92);
IncEx(MageXP_O, 87);
IncEx(MageXP, 87);
IncEx(Points, 20);
Smart_ClearCanvas;
Wait(randomRange(1915, 2570));
GoTo Start;
end;
end else
Result := True;
end;
Function HandleThatTiredPaulinePersonWhoNeedsEncouragementB ecauseWeAreProLikeABoss: Boolean;
Var
X,Y: Integer;
ExBMP,FanBMP,LukBMP,
ProBMP,WeBMP,WellBMP: Integer;
begin
Result := False;
if not LoggedIn then Exit;
if ((not FindLivid(X, Y)) and (not FindSoil(X, Y))) then
begin
QuickLow;
MakeCompass('E');
Wait(RandomRange(235, 320));
if FindPauline(X, Y) then
begin
if WaitUpTextMulti(['Drai', 'raine'], 500) then
begin
ClickMouse2(False);
if WaitOptionMulti(['Ener', 'ergis', 'gise'], 500) then
begin
if DebugMode then
Smart_ClearCanvas;
if WaitFunc(@TalkScreen, 10, 3000) then
begin
ExBMP := BitmapFromString(16, 5, 'meJw7cQIFMMAAhI0sAuGiiaDJYop' +
'QSz0e92C6H9MjcAAAAUs6mQ==');
FanBMP := BitmapFromString(67, 6, 'meJw7cQIKGHCAE0gAUxBZBI96POJ' +
'4zCTDGcguwSWI7FQ8gsRrwQXw+AWPFvwBRU+PEBNlpGqhv0eI 9Ckx' +
'WgY2Rij3CMGoITKXEXQzMSmHkqQFAMDdFvg=');
LukBMP := BitmapFromString(18, 7, 'meJw7ceIEAwPDCTCJH8DVnAAD/Lp' +
'OIAEidSGLI+siaBEZunC5kKAuXOaQpAWiCwCFcEZR');
ProBMP := BitmapFromString(26, 7, 'meJw7cQIBGJAAVkFMWWQFmFw0Bho' +
'bqyCyLjzieJxHqmlYPUi5aZS7jYHcWMDvI1wAl0YAdzB8OQ== ');
WellBMP := BitmapFromString(41, 6, 'meJw7cQIBGLABTFmC6nExcOnFahS' +
'mIJo5JFmNSy8uc/C4EI/VmCQDkpcxgxHTHEwHUGg1LvNxWY1LOzFG' +
'4WFjDQFMBQQFibEaTS8AGGuowQ==');
WeBMP := BitmapFromString(23, 8, 'meJw7ceIEAwycQGKTBE5QwxC4XjQ' +
'TTsAAHl3ICjANIeg8TAVYDUEG+A0hxiW4/EJQkAzv4HIe8QELAEER' +
'YnE=');
if (FindBitmapToleranceIn(ExBMP, X, Y, MCX1, MCY1, MCX2, MCY2, 15) or
FindBitmapToleranceIn(WellBMP, X, Y, MCX1, MCY1, MCX2, MCY2, 15) or
FindBitmapToleranceIn(FanBMP, X, Y, MCX1, MCY1, MCX2, MCY2, 15) or
FindBitmapToleranceIn(LukBMP, X, Y, MCX1, MCY1, MCX2, MCY2, 15) or
FindBitmapToleranceIn(ProBMP, X, Y, MCX1, MCY1, MCX2, MCY2, 15) or
FindBitmapToleranceIn(WeBMP, X, Y, MCX1, MCY1, MCX2, MCY2, 15)) then
begin
HumanMMouse(X, Y+2, 10, 2);
ClickMouse2(True);
IncEx(AgilXP_O, 168);
IncEx(AgilXP, 168);
IncEx(MageXP_O, 100);
IncEx(MageXP, 100);
IncEx(Points, 100);
end;
FreeBitmap(ExBMP);
FreeBitmap(WellBMP);
FreeBitmap(FanBMP);
FreeBitmap(LukBMP);
FreeBitmap(ProBMP);
FreeBitmap(WeBMP);
end;
end;
end;
Result := True;
end;
QuickHigh;
CheckedPauline := True;
end;
end;
Function DoAntiban: Boolean;
var
i: Integer;
begin
if not LoggedIn then Exit;
i := Random(900);
case i of
1..45:
begin
HumanRandomMouse;
Result := True;
end;
46:
begin
HoverSkill('Farming', False);
Result := True;
end;
47:
begin
HoverSkill('Magic', False);
Result := True;
end;
end;
Wait(100);
end;
Function BreakHandler(BreakIn, BreakFor, randBreakIn, randBreakFor: Integer): Boolean;
Var
h,m,s: integer;
begin
if not LoggedIn then Exit;
if (HowManyPlayers = 1) then
begin
if (GetTimeRunning < ((w) + (y) + BreakRounds)) then Exit
else
if (GetTimeRunning > ((w) + (y) + BreakRounds)) then
begin
RealBTime := ((x+z)/60000);
Writeln('Taking a break for about ' + IntToStr(RealBTime) + ' minutes.');
Logout;
MarkTime(CurrentBTime);
repeat
Wait(21000);
ConvertTime((x+z)-TimeFromMark(CurrentBTime), h, m, s);
ClearDebug;
Writeln('Breaktime left: '+IntToStr(h)+':'+IntToStr(m)+':'+IntToStr(s));
until(TimeFromMark(CurrentBTime)>(x+z));
Writeln('Logging in.');
if SwitchWorlds then
if LoginPlayerToLob then
ChangeWorld(RandomWorld(True, False))
else
LoginPlayer;
Wait(4000);
Result := LoggedIn;
ClickNorth(SRL_ANGLE_HIGH);
IncEx(BreakRounds, (w) + (x));
Inc(TotalBreaks);
Writeln('The next break will occur in about ' + IntToStr(BreakIn) + ' minutes.');
w := (BreakIn * 60000);
x := (BreakFor * 60000);
y := RandomRange(-Bir * 60000, Bir * 60000);
z := RandomRange(-Bfr * 60000, Bfr * 60000);
end;
end;
end;
Procedure FoundARandom;
begin
Writeln('Found a random!');
PlaySound(ScriptPath+'evilaugh.wav');
Wait(RandomRange(10000, 20000));
end;
begin
Smart_Server := 86;
Smart_Members := True;
Smart_Signed := True;
Smart_SuperDetail := False;
setupSRL();
DeclarePlayers;
LoadVars;
Smart_ClearCanvas;
LoginPlayer;
QuickHigh;
//SRL_Procs[SRL_OnFindRandom] := @FoundARandom;
Repeat
if not LoggedIn then
begin
LoginPlayer;
ClickNorth(SRL_ANGLE_HIGH);
end;
BreakHandler(BreakIn,BreakFor,Bir,Bfr);
if (TimeFromMark(CommitTime)>=30000) then
Commit;
if (TimeFromMark(ReportTime)>=30000) then
Report;
FindNormalRandoms;
HandleLivids;
HandleSoil;
if not CheckedPauline then
HandleThatTiredPaulinePersonWhoNeedsEncouragementB ecauseWeAreProLikeABoss;
DoAntiban;
Until(AllPlayersInactive)
end.
oh thanks, for replying i didnt went through all pages so i didn't see it. will post some proggies later tonight^^
Blackdeath
04-12-2012, 05:34 PM
Half way to get the repair pouch spell, then I will be using your ZMI script :D
Edit: Still running, but here is a proggy, flawless.
[======================================]
[ LividFarmer 1.2 ]
[ by Flight ]
[======================================]
[ Run Time : 2 Hr 17 Min 11 Sec ]
[ Points : 25280 ]
[ Plants Cured : 411 ]
[ Soil Fertilized : 488 ]
[ Farming XP : 82708 ]
[ Farming XP/Hr : 36174 ]
[ Magic XP : 74416 ]
[ Magic XP/Hr : 32547 ]
[ Agility XP : 12264 ]
[ Agility XP/Hr : 5363 ]
[ Breaks : 0 ]
[======================================]
[ LividFarmer 1.2 ]
[======================================]
And another post, finally got Repair Pouch spell.
[=====================================]
[ LividFarmer 1.2 ]
[ by Flight ]
[=====================================]
[ Run Time : 2 Hr 20 Min 4 Sec ]
[ Points : 24840 ]
[ Plants Cured : 414 ]
[ Soil Fertilized : 418 ]
[ Farming XP : 76544 ]
[ Farming XP/Hr : 32788 ]
[ Magic XP : 69406 ]
[ Magic XP/Hr : 29731 ]
[ Agility XP : 13776 ]
[ Agility XP/Hr : 5901 ]
[ Breaks : 0 ]
[=====================================]
[ LividFarmer 1.2 ]
[=====================================]
Justin
04-13-2012, 04:40 PM
just tested the 1.2 update and i keep getting this stupid error when it trys to energise pauline, can you please help? rm
do not click link - java drive by!
Do not click link - java drive by!
Do not click link - java drive by!
Horatio
04-13-2012, 11:08 PM
[======================================]
[ LividFarmer 1.2 ]
[ by Flight ]
[======================================]
[ Run Time : 5 Hr 29 Min 27 Sec ]
[ Points : 51660 ]
[ Plants Cured : 1032 ]
[ Soil Fertilized : 931 ]
[ Farming XP : 180596 ]
[ Farming XP/Hr : 32890 ]
[ Magic XP : 155317 ]
[ Magic XP/Hr : 28286 ]
[ Agility XP : 20832 ]
[ Agility XP/Hr : 3793 ]
[ Breaks : 1 ]
[======================================]
[ LividFarmer 1.2 ]
[======================================]
Flight
04-14-2012, 02:06 AM
Alright if V1.2 is working well for everyone I'll go ahead and upload it to the OP.
siuman101
04-14-2012, 03:10 AM
Got this error
SMART Initialized.
Loaded: Server 86, Members: True, Signed: True, Super Detail: False.
Error: Exception: Access violation at line 142
The following DTMs were not freed: [SRL - Lamp bitmap, 1]
The following bitmaps were not freed: [SRL - Mod bitmap, SRL - Admin bitmap, SRL - Flag bitmap]
hajahmz
04-14-2012, 10:45 AM
=-=-=-=-=-=-= LividFarmer 1.15 by Flight =-=-=-=-=-=
Time Running: 1 Hours, 24 Minutes and 10 Seconds
Points: 9840
Plants cured: 246
Soil fertilized: 246
Farming XP: 45264 (32267 / hour)
Magic XP: 36162 (25778 / hour)
Breaks: 0
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
Excellent script, thanks :)
Harry
04-14-2012, 08:54 PM
Wish it'd filter better away from people with black armour... spam hovers around them a lot. Working good other than that. :D
Concussion
04-15-2012, 07:11 PM
has anyone ever got banned using this script?
Son of Zeus
04-15-2012, 07:29 PM
Hate that I can't use this since I'm not 60 Farming yet :/
Primate
04-15-2012, 09:00 PM
This is nice except it confuses armour like agile with diseased livids
HandleThatTiredPaulinePersonWhoNeedsEncouragementB ecauseWeAreProLikeABoss
I lol'd when I saw that.
jcjcjc
04-17-2012, 02:08 PM
does 1.5 still work because I just care for farming xp and I want to minimize expense as much as possible?
sonicmouse
04-17-2012, 03:05 PM
hi guys, im new to this website, how do i install this script etc? and i have a mac is that a problem? thanks
jocelsarol
04-17-2012, 08:11 PM
Just started using this, seem flawless, really quick too (Y) Great job (:
[=================================]
[ LividFarmer 1.2 ]
[ by Flight ]
[=================================]
[ Run Time : 32 Min 42 Sec ]
[ Points : 5360 ]
[ Plants Cured : 94 ]
[ Soil Fertilized : 99 ]
[ Farming XP : 17756 ]
[ Farming XP/Hr : 32579 ]
[ Magic XP : 15753 ]
[ Magic XP/Hr : 28904 ]
[ Agility XP : 2520 ]
[ Agility XP/Hr : 4623 ]
[ Breaks : 0 ]
[=================================]
[ LividFarmer 1.2 ]
[=================================]
jcjcjc
04-17-2012, 10:34 PM
hi guys, im new to this website, how do i install this script etc? and i have a mac is that a problem? thanks
you don't install it just download it and open the file and make sure everything is up to date
xdarkshadowx
04-18-2012, 05:32 AM
Thanks for 80 farming and disruption shield :) works very well. If you wanted to make it completely awesome though, you could add fletching support for the downtime between livid spawns. like have it make arrows or something. idk, if you're getting 99 farm with this might as well multi task and get the most exp/hr? :p
halgboy_tbc
04-18-2012, 09:19 PM
Do you have any intent to add the produce part?
oneshadow
04-18-2012, 11:44 PM
@rev 5, running 1.2, you'll loose approx. 75 Laws/400 Nats/830 Astrals per hour
Meh..... sounds about right
Reason why i have no idea is because before i started this i bought just over 50k nats, 60k astrals and about 20k laws... and i dont pay attention to how many i use/lose. Sorry
Thanatos
04-19-2012, 12:16 AM
Does this activity make you lose money? If so is it alot?
Powered by vBulletin® Version 4.2.1 Copyright © 2024 vBulletin Solutions, Inc. All rights reserved.