SRL Archive - RS3 Outdated / Broken Scripts

Setup:

1) Set Player outside the boat.
2) Start the Script.


Future Plans:

1) Attack Portals/ALL Pests.
2) Add A lot more Fancy Features.


Bugs:
1) Progress Report
2)
3)




All I ask for in return is some Rep+ and a small
so I can purchase my own Membership to develop the future of this script and for my Soul War script!

Special Credit to:
cause
shams
Runaway


-Cheers.

Proggies:

[PHP]

||===========================||
|| P1nkys PestController ||
||===========================||
|| February 14th, 2012 ||
||===========================||
Worked For 11 Hours, 57 Minutes and 43 Seconds
Games Played 250
||===========================||


||===========================||
|| P1nkys PestController ||
||===========================||
|| February 9th, 2012 ||
||===========================||
Worked For 9 Hours, 18 Minutes and 43 Seconds
Games Played 159
||===========================||

||===========================||
|| P1nkys PestController ||
||===========================||
|| February 1st, 2012 ||
||===========================||
Worked For 6 Hours, 8 Minutes and 37 Seconds
Games Played 112
Won 71 Games
Lose 6 Games
||===========================||
||===========================||
||===========================||
Got 194 points
NextPlayer(False)

||===========================||
||   P1nkys PestController   ||
||===========================||
||    February 4th, 2012    ||
||===========================||
 Worked For 6 Hours, 12 Seconds
 Games Played 107
 Won 90 Games 
 Lose 8 Games 
||===========================||
||===========================||
||===========================||

||===========================||
||   P1nkys PestController   ||
||===========================||
||    February 4th, 2012    ||
||===========================||
 Worked For 6 Hours, 31 Seconds
 Games Played 124
 Won 159 Games 
 Lose 10 Games 
 Reward 44
||===========================||
||===========================||
||===========================||[/PHP]

Got a question so do you get points for this since this doesnt attack.
Future Plans:

1) Attack Portals/Pests.

From: Ftcg
Got a question so do you get points for this since this doesnt attack.
Future Plans:

1) Attack Portals/Pests.

You do, the script goes to the middle and attacks the Pests around the Void.

From: P1nky
You do, the script goes to the middle and attacks the Pests around the Void.

Alright, just tried one game out and its pretty decent, i'll post a report by tomorrow
somethings wrong wait let me post a pic

From: Ftcg
Alright, just tried one game out and its pretty decent, i'll post a report by tomorrow
somethings wrong wait let me post a pic

<a href="http://tinypic.com?ref=oi5dg3" target="_blank"><img src="http://i39.tinypic.com/oi5dg3.png" border="0" alt="Image and video hosting by TinyPic"></a>http://tinypic.com/view.php?pic=oi5dg3&s=5
keeps on popping up like every 5 sec
sorry for double post pressed quote by accident didnt realise until a pressed

From: Ftcg
<a href="http://tinypic.com?ref=oi5dg3" target="_blank"><img src="http://i39.tinypic.com/oi5dg3.png" border="0" alt="Image and video hosting by TinyPic"></a>http://tinypic.com/view.php?pic=oi5dg3&s=5

Don't worry, It will disappear right when it finds the Pest or Plank.

so cool !! thanks p1nky :D

JW… Why is there an xbox 360 controller in the picture for your pest controller in your siggy?

Suggestions
-SRL Stats
-Faster click time on the plank to catch the people going in (Had to wait quite a while to get -another game,like a minute or so)
-imo spins way to much when searching for a pest
-gui
-More Human Not clicking next text box from npc at the start of the stage and when recieving the rewards just goes straight back into the ship. i hope this will help
Current report
Status: /~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
Status: | SRL Randoms Report |
Status: | www.villavu.com |
Status: |~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|
Status: \~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~/
||===========================||
|| P1nkys PestController ||
||===========================||
|| February 1st, 2012 ||
||===========================||
Worked For 33 Minutes and 54 Seconds
Games Played 8
Won 4 Games
Lose 0 Games
||===========================||
||===========================||
||===========================||

Warning! You passed a wrong xs to a finder function: -16. That is below 0, thus out of bounds. Setting the value to 0 for now.
Warning! You passed a wrong ys to a finder function: -5. That is below 0, thus out of bounds. Setting the value to 0 for now.
Warning! You passed a wrong ys to a finder function: -5. That is below 0, thus out of bounds. Setting the value to 0 for now.
Warning! You passed a wrong ys to a finder function: -5. That is below 0, thus out of bounds. Setting the value to 0 for now.
Error: Out Of Range at line 823
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, 3]
??

From: RyGuy
JW… Why is there an xbox 360 controller in the picture for your pest controller in your siggy?

Because its called 'Pest CONTROLLER!

On Topic:

Don't think I'll be testing this yet but I'm suprised this was actually released to the public.
Still using weequ's though :P

Will this go members+ when the beta is done?

Would be good if it shows how much points/h it has earned. I will test this for a day and if it works well, I will donate.

// Is there a way to turn the monitoring off and make it agressively click(2-3 times in a row) the plank fast so it does not miss the second game?

IDK why but sometimes (after like 4 games) it walks to the bank alone and gets stuck there.. and I must click next to the boat myself to keep it going

Worked For 34 Minutes and 56 Seconds
Games Played 10
Won 7 Games
Lose 3 Games

Seems like it needs more tweaks… I yesterday ran a 5 hr…I shall update this by tonight or tomorrow. Also my apologies for a buggy release :/… thought it was ready after a week or so of testing.

Thank You.

Amazing script, I will test it asap when I get my F2P pure account member (which I do in 2 days :))

going to test it now :D
will post back

edit: first problem i noticed
when i get the reward one of the boots it doesn't select one of those
maybe i am doing something wrong?

not working so well for me. once I get to the island I just stand in the boat til the game ends and I get nothing.

Status: /~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
Status: | SRL Randoms Report |
Status: | www.villavu.com |
Status: |~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|
Status: | SRL Logs : 1 |
Status: \~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~/
||===========================||
|| P1nkys PestController ||
||===========================||
|| February 1st, 2012 ||
||===========================||
Worked For 6 Hours, 8 Minutes and 37 Seconds
Games Played 112
Won 71 Games
Lose 6 Games
||===========================||
||===========================||
||===========================||
Got 194 points
NextPlayer(False)

Going to try this out now, will post progress report soon

Could you please give me a brief explaination what spot1 is etc is P1nky? I dont like ObjDTM's for walking at all and will rather add some SPS walking to it.
I strongly recomend anyone that will use this script to replace the fighting procedure and edit all the fixed waiting times, it isnt hard to get a nice fighting procedure with so many Combat Scripts out atm.

From: Erke
Could you please give me a brief explaination what spot1 is etc is P1nky? I dont like ObjDTM's for walking at all and will rather add some SPS walking to it.
I strongly recomend anyone that will use this script to replace the fighting procedure and edit all the fixed waiting times, it isnt hard to get a nice fighting procedure with so many Combat Scripts out atm.

Seems like your a hell of a scripter, you should make your own PestController with SPS… And spot1 check the code out to find what 'spot1' is.

Thank You.

From: P1nky
Seems like your a hell of a scripter, you should make your own PestController with SPS… And spot1 check the code out to find what 'spot1' is.

Thank You.

Sorry if you got offended or whatever but I can upload a SPS path for your script if you want. And you have to agree that the fighting procedure with 'fixed' waits on 2sec is going to look bot like. I could recomend the procedure LaakeRules uses for hes script, seems to flow on nice for me atleast.

Why Public P1nky :(!

Seems like they Updated PestController…
Will release updated Version tomorrow.

From: Tickyy
Why Public P1nky :(!

Haha , sometimes the Public/Leechers deserve a bit sympathy ;)

P1nky what did they update?

From: Overtime
P1nky what did they update?

Seems like the color in the game.
Although, I just finished updating it, will release it tomorrow.
Nothing Major.

Sweeeeeeet job P1nky. :)

He has gotten my account tons of stuff :p good release man! :)

nice im going to test now and post a proggy. good work

Status: /~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
Status: | SRL Randoms Report |
Status: | www.villavu.com |
Status: |~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|
Status: \~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~/
||===========================||
|| P1nkys PestController ||
||===========================||
|| February 2nd, 2012 ||
||===========================||
Worked For 53 Minutes and 28 Seconds
Games Played 11
Won 6 Games
Lose 5 Games
||===========================||
||===========================||
||===========================||

I've gotten this but I still have 0 points. After every game I get the message "The knight noticed your lack of zeal in that battle and have not presented you with any points." Which shows that it's not attacking anything for me. ]:

Uh, happy to see this on public , otherwise I had to wait till my exams got over . But still ill try learning simba.

Gonna do the gfx banner Tomm

yessss it feels good to get this back to us leachers ;)

From: jcjcjc
Status: /~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
Status: | SRL Randoms Report |
Status: | www.villavu.com |
Status: |~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|
Status: \~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~/
||===========================||
|| P1nkys PestController ||
||===========================||
|| February 2nd, 2012 ||
||===========================||
Worked For 53 Minutes and 28 Seconds
Games Played 11
Won 6 Games
Lose 5 Games
||===========================||
||===========================||
||===========================||

I've gotten this but I still have 0 points. After every game I get the message "The knight noticed your lack of zeal in that battle and have not presented you with any points." Which shows that it's not attacking anything for me. ]:

My guess is because the bot is currently not working… lol

Thanks for making it but it goes in a game and then does nothing.

The scripts currently offline, check the OP.

hi pinky when the script will be update? thanks 4 ur efforts

From: lord onon
hi pinky when the script will be update? thanks 4 ur efforts

Today. Give me a few hours.

Status: /~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
Status: |     SRL Randoms Report       |
Status: |       [url]www.villavu.com[/url]        |
Status: |~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|
Status: | SRL Logs          :        1 |
Status: \~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~/
||===========================||
||   P1nkys PestController   ||
||===========================||
||    February 4th, 2012    ||
||===========================||
 Worked For 6 Hours, 12 Seconds
 Games Played 107
 Won 90 Games 
 Lose 8 Games 
||===========================||
||===========================||
||===========================||

Thanks a million for it.

if you allow me, i'd like to post some suggestions:

A world selection part, where it would allow us to select the world in which we want to PC. right now we have to do it manually so the addition of a world select would be great

a re-logging part, incase we get DCed. i noticed that on over-crowded hours, the bot has trouble clicking the boat board plank because there's so many players stacking the options, and after 5 mins of unsuccesful attempts, we get logged out. (or sometime if our connection freeze we get logged out)

I think thoses 2 features would help a lot and would be easy to implement

i love your scripts cant wait to try this when its updated

Has the update came yet? Btw great script :)

||===========================||
||   P1nkys PestController   ||
||===========================||
||    February 4th, 2012    ||
||===========================||
 Worked For 6 Hours, 31 Seconds
 Games Played 124
 Won 159 Games 
 Lose 10 Games 
 Reward 44
||===========================||
||===========================||
||===========================||

give me couple mins

Version B has been released.

-Cheerz-

I think its outdated. When it trys to get on the plank to aboard the ship it cant click the plank it just clicks all around it.

I'm very impressed with this script, first time running it and an AMAZING progress report. Ill be using this alot. The next time I get spare gold your the first one ill look at.

 Status: /~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
Status: |     SRL Randoms Report       |
Status: |       [url]www.villavu.com[/url]        |
Status: |~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|
Status: | SRL Logs          :        1 |
Status: \~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~/
||===========================||
||   P1nkys PestController   ||
||===========================||
||    February 5th, 2012    ||
||===========================||
 Worked For 6 Hours, 2 Minutes and 0 Seconds
 Games Played 108
 Won 144 Games 
 Lose 13 Games 
 Reward 342
||===========================||
||===========================||
||===========================||

||===========================||
||   P1nkys PestController   ||
||===========================||
||    February 5th, 2012    ||
||===========================||
 Worked For 4 Hours, 5 Minutes and 5 Seconds
 Games Played 74
 Won 63 Games 
 Lose 4 Games 
 Reward 49
||===========================||
||===========================||
||===========================||

hey, im new. Im trying to familiarize myself with the bots before i attempt to make my own and i cant seem to get any to run. everything will go fine, but when the client loads up nothing happens, ive tryed searching on the forums with no luck, please help, everything is updated

From: bechsgaard
hey, im new. Im trying to familiarize myself with the bots before i attempt to make my own and i cant seem to get any to run. everything will go fine, but when the client loads up nothing happens, ive tryed searching on the forums with no luck, please help, everything is updated

add me on skype, 'vcheckv' and ill help you over teamviewer iv you'd like.

i am running it now it works flawless. Only the win-counter kinda got fucked up. I have played 5 games won all buy it says 2 won.

Can this script run on the expert boat??

Thanks for the new update ;)

P1nky you are my runescape hero
full void in 2 days ":))

my new proggy:

Worked For 3 Hours, 3 Minutes and 48 Seconds
Games Played 49
Won 45 Games
Lose 6 Games

too slow in novice boat and doesn't run alot of time for me hope u update soon or give a fix :)
thanks

From: tybkj
my new proggy:

Worked For 3 Hours, 3 Minutes and 48 Seconds
Games Played 49
Won 45 Games
Lose 6 Games

which boat?
i'm having problems with novice boat

Mashallah

From: bechsgaard
hey, im new. Im trying to familiarize myself with the bots before i attempt to make my own and i cant seem to get any to run. everything will go fine, but when the client loads up nothing happens, ive tryed searching on the forums with no luck, please help, everything is updated

Did you fill in 'DeclarePlayers'? which is where you type your runescape username and password?

From: tybkj
i am running it now it works flawless. Only the win-counter kinda got fucked up. I have played 5 games won all buy it says 2 won.

Will get that fix next update :)

From: RiD
Can this script run on the expert boat??

no.

From: jelle013
P1nky you are my runescape hero
full void in 2 days ":))

Why thank you Sir.

From: Holako
too slow in novice boat and doesn't run alot of time for me hope u update soon or give a fix :)
thanks

what part is slow?

From: Jhangir
Mashallah

jazakallah

btw proggie overnight:

||===========================||
|| P1nkys PestController ||
||===========================||
|| February 5th, 2012 ||
||===========================||
Worked For 6 Hours, 1 Minutes and 6 Seconds
Games Played 112
Won 111 Games
Lose 19 Games
Reward 22
||===========================||
||===========================||
||===========================||

Pinky i tried the version it cant cross the bride to get on the boat. The other version kinda works it willl go fight but only up by the void and it wont get 500 because its too slow to attack the shifters before everyone else.

From: phantom1
Pinky i tried the version it cant cross the bride to get on the boat. The other version kinda works it willl go fight but only up by the void and it wont get 500 because its too slow to attack the shifters before everyone else.

I'd like you to try this:
http://paste.villavu.com/show/1976/

tell me how it goes.

can somebody help me how do i fix this error?

From: r4p1dz
can somebody help me how do i fix this error?

Go through each step by step:
http://villavu.com/forum/showthread.php?t=57883

From: NickMystre
Check this out …

Quote:
Exception: Access violation at line 101

Now, I've personally never run into this nor have I seen it, but it appears to be caused by not having Java installed.

All you need to do is follow YoHoJo's guide here (http://villavu.com/forum/showthread.php?p=848708) , and that will walk you through on how to fix this error. Yes, I know it talks about fixing the "lag" issue with SMART, but they are the exact same steps to solve the error above.

Also, I've heard that running Simba as Admin or a directory that doesn't require Admin rights helps with this issue.

tldr ; you need to have java 6, i had java 7 haha oops il run this now and post proggies as i get them thank you for helping me

From: P1nky
I'd like you to try this:
http://paste.villavu.com/show/1976/

tell me how it goes.

It works better. It will aboard it but the color for the blank is off because it will click the dock leg going into the water.

when i put him next to the boat all it says when i start the script is

Exception in Script: Unable to find file 'srl\srl.simba' used from ''
Exception in Script: Unable to find file 'srl\srl.simba' used from ''
Exception in Script: Unable to find file 'srl\srl.simba' used from ''
Exception in Script: Unable to find file 'srl\srl.simba' used from ''

help?

ya P1NKY i need features of your script to make banner

mashallah , indeed nice script!

can u get a screenshot of it too so i can put in gfx banner!

got everything working very nice script running well :D

Say – just had it going for 2 hours.. Great script!
But at line 343 – this happens now

345: Text := Replace(Text, '?', '.');


[Error] (346:34): Invalid number of parameters at line 345
Compiling failed.

new problem after a while it says this

Warning! You passed a wrong ys to a finder function: -5. That is below 0, thus out of bounds. Setting the value to 0 for now

great script, except i can't seem to run this more than 1 hour, when i arrive in front of my PC after 2-3 hours im at the login lobby page and nothing's happening.


upon re-logging in im already in the boat.
Wtf happend? how was i logged out?


If you could include a auto-relog-in that would really be awesome.

Okay i watched it, and after 47 mins of running, the bot suddenly decided (in the middle of the PC game) to click "log out to lobby". it said it couldn't log out because my char wasn't out of combat for 10 mins. then it waited a bit, clicked again and i was logged out to the lobby.


What might be causing this and how can i disable it?


(sorry bout double post :S)

||===========================||
|| P1nkys PestController ||
||===========================||
|| February 5th, 2012 ||
||===========================||
Worked For 5 Hours, 23 Minutes and 0 Seconds
Games Played 101
Won 149 Games
Lose 35 Games
Reward 23
||===========================||
||===========================||
||===========================||

Guys, watching the Super Bowl, I got a update already ready to go, just let me finish watching this :)

Btw guys glad to announce, that SRL stats indicate that in 1 day this script has gotten up to 7 days. :D

yo brother it logs me out and says found dead after every match, any fixes?

From: killuminati
yo brother it logs me out and says found dead after every match, any fixes?

Let me try to die first in the game :X Defense too high lols, I'll try to go to the expert boat :) If not than I'll have to borrow a account from someone.

ya P1NKY i need features of your script to make banner

mashallah , indeed nice script!

can u get a screenshot of it too so i can put in gfx banner!

From: MaxPayne619
ya P1NKY i need features of your script to make banner

mashallah , indeed nice script!

can u get a screenshot of it too so i can put in gfx banner!

MaxPayne, couldn't find your thread yesterday, and I am too lazy to get screenies :/ so either google or please do it for me :)
Although not much to say about this script :/

||===========================||
|| P1nkys PestController ||
||===========================||
|| February 6th, 2012 ||
||===========================||
Worked For 5 Hours, 34 Minutes and 11 Seconds
Games Played 83
Won 90 Games
Lose 23 Games
Reward 20
||===========================||
||===========================||
||===========================||

Status: /~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
Status: | SRL Randoms Report |
Status: | www.villavu.com |
Status: |~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|
Status: \~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~/
||===========================||
|| P1nkys PestController ||
||===========================||
|| February 6th, 2012 ||
||===========================||
Worked For 1 Hours, 35 Minutes and 47 Seconds
Games Played 29
Won 21 Games
Lose 4 Games
Reward 8
||===========================||
||===========================||
||===========================||
I see there are some problems.
Games played 29
Won 21
Lose 4
21+4 = 25… That doesnt make any sence… and i got like 54 points but it says 8.
But great script!
I hope i will learn this one day :)

Version [C] is now Out.

-Cheers

From: iee77
Status: /~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
Status: | SRL Randoms Report |
Status: | www.villavu.com |
Status: |~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|
Status: \~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~/
||===========================||
|| P1nkys PestController ||
||===========================||
|| February 6th, 2012 ||
||===========================||
Worked For 1 Hours, 35 Minutes and 47 Seconds
Games Played 29
Won 21 Games
Lose 4 Games
Reward 8
||===========================||
||===========================||
||===========================||
I see there are some problems.
Games played 29
Won 21
Lose 4
21+4 = 25… That doesnt make any sence… and i got like 54 points but it says 8.
But great script!
I hope i will learn this one day :)

Yeah, already know about that problem, I will fix it in Version [D]

Ya P1nky thread in my sig (FREE GFX link in big letters:)

seems like the script gets too less points, hope it becomes more efficient in further releases!

Sorry to insist but p1nky, could you tell me why does your script logs me out after 1-2 hours? it goes by itself to click on the logout button and repeats the procedure every 5 sec until im logged out, even in the middle of a PC game.

hey pinky just thought id give you some feedback on your amazing script :D sometimes when it finds the gangplank and walks into the boat it still thinks it needs to find the gangplank whilst your in the boat and so keeps clicking it which isn't a huge issue just thought you might like to know :) thanks for a great script though

Nice job on this p1nky, looks good I was planning on doing this one. But this looks good man. I'm gonna have to do another minigame sometime then how did you get the URL pics in your sig?

I ran this script a week ago and had a bit of trouble with it, very excited to try the new version. -thanks

Trying version C atm. Will post a proggie soon :P

From: thomasmacey
hey pinky just thought id give you some feedback on your amazing script :D sometimes when it finds the gangplank and walks into the boat it still thinks it needs to find the gangplank whilst your in the boat and so keeps clicking it which isn't a huge issue just thought you might like to know :) thanks for a great script though

Version C fixed that :)

From: Exilus
Sorry to insist but p1nky, could you tell me why does your script logs me out after 1-2 hours? it goes by itself to click on the logout button and repeats the procedure every 5 sec until im logged out, even in the middle of a PC game.

Explain a little bit more, never seen that problem :/ btw what does the debug say?

could you please make your script log into one of the pest control worlds so we dont have to manually log in?this would be very much appreciated.

From: edgarmontes2
could you please make your script log into one of the pest control worlds so we dont have to manually log in?this would be very much appreciated.

lol lazy much?

I'll give this a go! Will try to update you with a mad proggie tomorow. ;p

prayer suport?

Make it automatically log into world 53 and it still has a bit trouble crossing the plank, It sometimes does not get 500+. you should make it so it just runs around killing anything you will get 1500+ each. Because once you get the whole community running this all in one world the one platform will be crowded. It's already.

Haha, I just had to post now. Laughing my ass off at all these people walking to the same damn tree. people with 99rc that just don't give a fuck!

I'm amazed at what can be achieved by color recognition, wow!

It's running flawless!

Progress report doesnt work properly only games played does. But thanks bro ill finally get full void on my ranged tank :D

From: xeonzor
Haha, I just had to post now. Laughing my ass off at all these people walking to the same damn tree. people with 99rc that just don't give a fuck!

I'm amazed at what can be achieved by color recognition, wow!

It's running flawless!

He's right, if the script could click along the middle, it would be much less obvious.
(and it looks like your script is getting popular, i've seen like 5 others running to the same spot every time!)

From: 10coins
prayer suport?

Done in Version [D] (will release tomorrow) & guys thanks for all the support and suggestions/advice, I do read all the posts and try my best to keep everything in mind. I will add a randomness of walking to the Void. Also, people who do not manage 500+ that is due to your account being 'weak', although in the future I will make it run around killing Pests/Portals, instead of just going to the middle. Because I do see a lot of Defenders now, and proud to say that they are mostly people from SRL using this script.

Thank You Mates

-Cheerz

My pure has 80+ att/str and it still has some issues getting the 500+ sometimes.

Status: /~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
Status: |     SRL Randoms Report       |
Status: |       [url]www.villavu.com[/url]        |
Status: |~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|
Status: | SRL Logs          :        1 |
Status: \~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~/
||===========================||
||   P1nkys PestController   ||
||===========================||
||    February 7th, 2012    ||
||===========================||
 Worked For 6 Hours, 51 Seconds
 Games Played 103
 Won 19 Games 
 Lose 10 Games 
 Reward 43
 Points Earned 19
||===========================||
||===========================||
||===========================||

From: plekter
My pure has 80+ att/str and it still has some issues getting the 500+ sometimes.

Does your pure ever end up dying?

[C] Works very well but u want to make it click on board fast after every game so it join every game hope u understood me my English is bad :P

Woke up with 202 commendations!

Other then the progress report I did not notice any flaws, but you were already aware of this.

Thanks for this, can finally finish off maxing melee now, and work on getting back my elite void.

Running this now, reduced some of your waits and added randomness. By reducing the waits I get my 500 in easy now :). Btw there must be at least 10 people running this currently in the big PC world.
EDIT: also in your procedure Plank I added the "you can't reach that" for when it doesn't detect it's in the boat and stands there clicking the plank over and over (quite a bit more for me since I lowered the waits significantly

Until(FindBlackChatMessage('You board the lander') or (ingame) or FindBlackChatMessage('You can''t reach that'));

i keep losing sense it just stays in the middle :/

how can i make this work better can some please help?

From: denante3
how can i make this work better can some please help?

You can read guides, or tell p1nky what kind of improvements you want, and if you're lucky he will disregard that you're a giant leecher, and fix them for you.

Ive replaced every
"if X then Nextplayer(false)" by
"If X then nextplayer(true)"

and now it runs flawlessly. it used to exit to login randomly and i could never bot more than 1 hour at once, now its fixed.


Incase anyone else has this problem, this is the fix i found.

Expect a Update tomorrow guys, that will include:

• Faster Pest Finding
• Quick Prayer Option
• Faster Script Overall
• Fix on the Random Reward Issue(those 3 lame boots)
• & lots more!

-Cheers!

Until(FindBlackChatMessage('You board the lander') or (ingame) or FindBlackChatMessage('You can''t reach that'));

Where would that go cause?
Or anyone for that matter. Cannot get it to run for any longer than an hour

From: P1nky
Does your pure ever end up dying?

So far I have not seen it happen.

[LEFT]P1NKY's PEST CONTROL[/LEFT]

leave my link in ur thread http://villavu.com/forum/showthread.php?t=73952

so ppl can see and benifit from my free service :)

Look's a real nice script. Boards boat fine however does not attack.

Following message;

Warning! You passed a wrong ys to a finder function: -5. That is below 0, thus out of bounds. Setting the value to 0 for now.
Warning! You passed a wrong ys to a finder function: -5. That is below 0, thus out of bounds. Setting the value to 0 for now.
Warning! You passed a wrong ys to a finder function: -5. That is below 0, thus out of bounds. Setting the value to 0 for now.
Warning! You passed a wrong ys to a finder function: -5. That is below 0, thus out of bounds. Setting the value to 0 for now.
Warning! You passed a wrong ys to a finder function: -5. That is below 0, thus out of bounds. Setting the value to 0 for now.
Warning! You passed a wrong ys to a finder function: -5. That is below 0, thus out of bounds. Setting the value to 0 for now.
Warning! You passed a wrong ys to a finder function: -5. That is below 0, thus out of bounds. Setting the value to 0 for now.
Warning! You passed a wrong ys to a finder function: -5. That is below 0, thus out of bounds. Setting the value to 0 for now.
Warning! You passed a wrong ys to a finder function: -5. That is below 0, thus out of bounds. Setting the value to 0 for now.
Warning! You passed a wrong ys to a finder function: -5. That is below 0, thus out of bounds. Setting the value to 0 for now.
Warning! You passed a wrong ys to a finder function: -5. That is below 0, thus out of bounds. Setting the value to 0 for now.
Warning! You passed a wrong ys to a finder function: -5. That is below 0, thus out of bounds. Setting the value to 0 for now.
Warning! You passed a wrong ys to a finder function: -5. That is below 0, thus out of bounds. Setting the value to 0 for now.


Any solution?

Again, looks a real nice script.. I'm probably doing something wrong..

Thanks mate

[Error] (2:1): 'BEGIN' expected at line 1
Compiling failed.
what should I do ?

which attachment should i download? beta, beta(b) or the third???

and it wont seem to work on any boats except for 40+

||===========================||
|| P1nkys PestController ||
||===========================||
|| February 8th, 2012 ||
||===========================||
Worked For 5 Hours, 44 Minutes and 58 Seconds
Games Played 118
||===========================||

Version [D] Is Now Out… Enjoy

• Faster Pest Finding
• Quick Prayer Option
• Faster Script Overall
• Fix on the Random Reward Issue(those 3 lame boots)
• & lots more!

lol so just throwing this out there, i left the script running today, and came back a while later with it logged out, i logged back in and my character was in misthalania at the top of the castle and had withdrawn a lunar staff and rune hatchet from my bank. these objects were in very opposite areas submerged in my bank. and the lunar staff had been equipped….

From: brentrobbins
lol so just throwing this out there, i left the script running today, and came back a while later with it logged out, i logged back in and my character was in misthalania at the top of the castle and had withdrawn a lunar staff and rune hatchet from my bank. these objects were in very opposite areas submerged in my bank. and the lunar staff had been equipped….

My code does not open the bank and withdraw items and wield anything, nor does it teleport anywhere…

lol well i assumed maybe a random might have gotten me to misthalania. Also it was the [c] script that i was running, and i logged on and had those items in my inventory, when they werent before…..so i just thought it was very strange and should tell you. I dont know how all those things could have happened…but thats how i found it.

i mean ive read through the code quite a few times, and there is nothing in it that would do that, but as i think of it now, i thought i remembered a small part of the script that had something to do with the bank, but that again, would have been in the [c] version.

From: brentrobbins
lol well i assumed maybe a random might have gotten me to misthalania…..but it was the [c] script, and i logged on and had those items in my inventory, when they werent before…..so i just thought it was very strange and should tell you. I dont know how all those things could have happened…but thats how i found it.

That's quite unusual, let me know if it happens again Mate.

yeah, i just found the spot on the c version where it could have something to do with the bank.

// If (FindObjCustom(x,y,['Bank','nk','booth','oot'], [1717052], 5)) Then

but as you can see it was set to ignore. I may have accidently deleted the slash marks when editing some and thus activated this part, though i dont know what this line would have been able to do by itself.

Quick prayer does not activate, it just fights normal.

From: edgarmontes2
Quick prayer does not activate, it just fights normal.

Thanks, I shall fix that on next Update.

||===========================||
||   P1nkys PestController   ||
||===========================||
||    February 8th, 2012    ||
||===========================||
 Worked For 5 Hours, 18 Minutes and 43 Seconds
 Games Played 109
||===========================||

||===========================||
|| P1nkys PestController ||
||===========================||
|| February 8th, 2012 ||
||===========================||
Worked For 5 Hours, 59 Minutes and 28 Seconds
Games Played 122
Won 81 Games
Lose 23 Games
Reward 8
||===========================||
||===========================||
||===========================||


This was with [C] thanks so much for this :D

From: Tickyy
Why Public P1nky :(!

inb4movedtoomembers+ lol

i'll test this tomorrow way too tired and have hw too do. hopefully i can learn how too script as well as alot of people here. :)

for some reason the bot will perform all tasks within pc but it wont cross the plank intp the boat to get to pc how can i fix this?? at first it would, but now it wont

Version [D] seems to be working well so far. Significantly faster then the last version I was using. I can't seem to get it to board any other lander but Novice though. The gangplanks are all identical, so in theory shouldn't it work on all landers? Only other problem I noticed is that quick curses/prayers aren't working.

EDIT: Quick curses seem to be working now… strange. Some games it won't even attempt to turn them on, but I just watched it activate deflect from melee. So kinda buggy, but they are working to some extent.

EDIT #2: Getting kicked out of more games then I'm winning. I'd say every 8 out 10 games I'm kicked. Problem seems to be that I never move. So if a pest doesn't spawn in my area, I just stand there rotating the camera a bit, doing no damage. I have Faster500 set to true, wondering if this is actually hurting me. If set to false, will it just defend knight? As of now, it's entering the north gate, and just kind of standing in that location. Will try it with Faster500 set to false in a bit.

Will post a proggy

Isn't botting pest control super high banrate?

||===========================||
|| P1nkys PestController ||
||===========================||
|| February 9th, 2012 ||
||===========================||
Worked For 9 Hours, 18 Minutes and 43 Seconds
Games Played 159
||===========================||

This is with [D], thanks so much pinky

Working great for me (both c and d) I actually just logged into a 120+ world by accident on my 100 ahahaha :)

i cant get this script to work for long periods of time, when i first downloaded c it worked fine but i cant seem to figure it out, when it finishes with a game it cant seem to find the bridge to get back in the ferry. some1 please help.

I am currently using your script for long periods. When i use your latest version, i get this message: Warning! You passed a wrong ys to a finder function: -5. That is below 0, thus out of bounds. Setting the value to 0 for now. I walks just out of the gate and then doesn't attack any monsters. I don't know how to fix this for you perhaps you can take a look yourself?

edit: found out this only occurs when using a crossbow.

double edit: This problem occurs when your weapon doesn't got a special attack. No need to fix if you don't want too.

From: Novain
Isn't botting pest control super high banrate?

Try it out and let me know :)

From: emopenguin91
||===========================||
|| P1nkys PestController ||
||===========================||
|| February 9th, 2012 ||
||===========================||
Worked For 9 Hours, 18 Minutes and 43 Seconds
Games Played 159
||===========================||

This is with [D], thanks so much pinky

Lovely report, added to 'Proggies'.

From: haxine
i cant get this script to work for long periods of time, when i first downloaded c it worked fine but i cant seem to figure it out, when it finishes with a game it cant seem to find the bridge to get back in the ferry. some1 please help.

Are you using [D] now?

From: tybkj
I am currently using your script for long periods. When i use your latest version, i get this message: Warning! You passed a wrong ys to a finder function: -5. That is below 0, thus out of bounds. Setting the value to 0 for now. I walks just out of the gate and then doesn't attack any monsters. I don't know how to fix this for you perhaps you can take a look yourself?

edit: found out this only occurs when using a crossbow.

double edit: This problem occurs when your weapon doesn't got a special attack. No need to fix if you don't want too.

Ignore that message.

Impossible to play 9 hours, rs client crashes after every 6 hours

From: fearlesskiller
Impossible to play 9 hours, rs client crashes after every 6 hours

CRASHSMART search it

one quest,it always miss the center than do nothing~can u add a lost then go back center

It cannot cross the gang plank it tries to find "cross gangplank" but due to a recent update everything is "hidden" so it does not see it and fails

From: qingqinghd
one quest,it always miss the center than do nothing~can u add a lost then go back center

From: Why Say Yes
It cannot cross the gang plank it tries to find "cross gangplank" but due to a recent update everything is "hidden" so it does not see it and fails

Hmmm… Let me check when I get home.

Thanks to your script I got all void items! (except deflector because i suck at conquest lol)

From: edgarmontes2
Thanks to your script I got all void items! (except deflector because i suck at conquest lol)

Congrats :).

For me it seems it can't get my points past 500 idk if this is just me or should i change versions.

From: kodasbean
For me it seems it can't get my points past 500 idk if this is just me or should i change versions.

Use [D].

Doesn't work for me. :'( Simply doesn't log in. The first i ran it, the thing that happened to the other guy happened to me. It run through the gate displaying error messages and doing nothing. But now, It simply loads SMART, and that is it it. Any possible solutions?

From: kodasbean
For me it seems it can't get my points past 500 idk if this is just me or should i change versions.

you can only have 500 points max, it doesnt go over, you have to spend the rest now :tongue:

thanks! great script! just one suggestion…I took out RandomButton because I feel like it makes it look more bot like…if im waiting on the boat i just chill lol…just a suggestion :D, maybe something more human would be to shift cam every 30sec +random 45… you know?

Congrats ! , P1nky script passed the most no. of commendations earned than the members script :), eventhough the script gives me less points per hour, it is at least giving me attack xp too :)

||===========================||
||   P1nkys PestController   ||
||===========================||
||    February 10th, 2012    ||
||===========================||
 Worked For 6 Hours, 1 Minutes and 13 Seconds
 Games Played 121
||===========================||

[CENTER][COLOR="DarkOrchid"]||===========================||
||   P1nkys PestController   ||
||===========================||
||    February 11th, 2012    ||
||===========================||
 Worked For 4 Hours, 34 Minutes and 11 Seconds
 Games Played 79
||===========================||

Commendations Earned: 54 (Novice Boat)[/COLOR][/CENTER]

The script wont work for me it runs and then it wont cross the gangplank ?? :S

Im having a problem with it, It runs towards the gate and never attacks anything half the time. Is there any way to fix this?

Havent tried "D" yet ,super excited.

From: Instagationz
Im having a problem with it, It runs towards the gate and never attacks anything half the time. Is there any way to fix this?

I already found this problem it is cause you dont have a weapon that can use a special attack.

When i start it it just runs south west and stops at the tower?

From: tybkj
I already found this problem it is cause you dont have a weapon that can use a special attack.

Thanks this did help!

Man this script works so good it's fun to watch.:norris:

It's a nice script, exept it just spams out of bounds you passed a ys etc etc, for ages non stop, is there a fix for this?

Also, just a suggestion but can you make it explore the whole of pest control rather thn just where the void is?

love you. <3

;)

how do i download this?

From: Barnzy
It's a nice script, exept it just spams out of bounds you passed a ys etc etc, for ages non stop, is there a fix for this?

Also, just a suggestion but can you make it explore the whole of pest control rather thn just where the void is?

love you. <3

;)

yes just change the SpecialAttacks = True; to SpecialAttacks = False; then it should work works for me tho

From: keian
how do i download this?

The links for download are always(I think) on the first post at the bottom.

||===========================||
|| P1nkys PestController ||
||===========================||
|| February 11th, 2012 ||
||===========================||
Worked For 5 Hours, 35 Minutes and 28 Seconds
Games Played 120
||===========================||

Left it unattended, when I got back it had JUST disabled SMART (literally, character was standing there not even logged out yet) and I was left with 210 Tokens as well as 30k more Strength XP than when I had left it. This is a dope script, and with the features you plan to add there's nothing I can do to critique it: the only possible problems with the script (possibly not getting your 500 damage (doubtful), not clicking/attacking, etc.) are pretty much just user error in their character or script setup. If what is planned is actually added, I can honestly say this script will be essentially perfect. However, I did notice a decent amount people on each boat going to the exact same points on the map I was, as well as protecting the void knight like I was, so I'm assuming this script might eventually overrun Pest Control…

Love your script P1nky. Keep up the awesome work and can't wait to see the future updates you have planned.

From: cezzq
yes just change the SpecialAttacks = True; to SpecialAttacks = False; then it should work works for me tho

I use a rapier but I have already set the spec to false and does the same thing.


My laptop is just fucked i think, everythings playing up recently

From: Barnzy
I use a rapier but I have already set the spec to false and does the same thing.


My laptop is just fucked i think, everythings playing up recently

What problems are you having?

I am looking for someone to lend me a p2p account, I will get it many points/exp/cash, just let me use it and keep this script updated.

From: Barnzy
It's a nice script, exept it just spams out of bounds you passed a ys etc etc, for ages non stop, is there a fix for this?

Also, just a suggestion but can you make it explore the whole of pest control rather thn just where the void is?

love you. <3

;)

I have the same problem, and I changed it to specialattack = false..

From: Based Swag
I have the same problem, and I changed it to specialattack = false..

I do not have a account atm to check that problem out.

From: P1nky
I do not have a account atm to check that problem out.

I have an account pm me

From: P1nky
I do not have a account atm to check that problem out.

Warning! You passed a wrong ys to a finder function: -5. That is below 0, thus out of bounds. Setting the value to 0 for now.

If that helps.

how do i download this ?? or whatever.

so, i love everything about this script, ive leveled str 2 time and def 5 since i started using it and i got full void, thanks a lot p1nky :) but it keeps clicking of the little stand the knight is on and so it just stands there not attacking anything so i dont get any points? somtimes it will stay on the tower but lately its been going off, i was wondering if anyone knows how to fix this or is having the same problem?

From: P1nky
I do not have a account atm to check that problem out.

Hey mate, you can use my account if you want, 104 cb 97 str 94 mage 82 attack 71 def

if you wanna use it let me know, it's the least I can do.

Regards

Im getting spammed progress reports. Is it supposed to do that? And sometimes it clicks away from the centre of the island while in the minigame (then i get the out of bounds error). Great script though!

Hey right before the crosswalk sometimes people post clan vex's and the bot clicks it and does not know how to get out of it. Add if it gets into that random that it clicks out of it.

I am just loving this script! havent had any problems with it yet :)

Thank You to everyone who sent me a pm of there account or were willing to lend me it, I will Use one of the account and will notify the User.
If you did not get a PM, that means I am not going to use your account.

Thanks once again!

Do you still need accounts?
You can use mine any time it has adequate statistics.

From: Ftcg
<a href="http://tinypic.com?ref=oi5dg3" target="_blank"><img src="http://i39.tinypic.com/oi5dg3.png" border="0" alt="Image and video hosting by TinyPic"></a>http://tinypic.com/view.php?pic=oi5dg3&s=5
keeps on popping up like every 5 sec
sorry for double post pressed quote by accident didnt realise until a pressed

I dont know what is wrong with you but when I clicked that I saw a mangled up… something… it looked quite…y'know…

On Topic:

Testing now :D Hope it works

I will try your script in just a few moments. If it works, I don't have to pay for my prayer. :D 95 prayer goal, about 4k games. I will donate if it works well for me.

Edit: I'm still running, so no proggy yet.

This script is very good, and works.

Some things to maybe think about improving:
-Make the walk have more destinations. Maybe you could make a half dozen possible steps towards the center, and have one randomly picked each game so you don't take the same route a lot.
-Spam click the plank after a game to get in the boat faster

Delete post.

It is not moving when i run the script not even clicking gangplank

1 day of owning this script, Veteran boat

I keep getting this error

[Error] (11:3): Semicolon (';') expected at line 10
Compiling failed.

Mates, give me couple days, I'll update it for y'all , have quite a bit school load on me.
Just few more days Mates.

very nice man! wonderfull script! got full void, + 200 points for elite :) in 3 days. IT gave some cordinate error but script worked anyway so no big deal :P longest proggy was like 10hrs but then my smart crashed so thx man ;)

I fixed the standards up a bit and I noticed you were missing an end; or two in the main loop at the end so I put those in. Now that I have the little problem of logging out every time I see a mod under control I can give you a few proggies.

program PestControllerBETA;
{$DEFINE SMART}
{$DEFINE CRASHSMART}
{$i srl\srl.simba}

  //P1nky's PestController
  //BETA Version

  const
  SpecialAttacks = False;
  QuickPrayer = True; //Make sure to have Quick Prayer Set!
  Faster500 = False; //Having trouble getting your '500'? Well this will help you get over it!
  SRLStats_Username = '';  // Your SRL Stats Username (Optional) Register here: [url]http://stats.villavu.com/[/url]
  SRLStats_Password = '';// Your SRL Stats Password (Optional) Register here: [url]http://stats.villavu.com/[/url]


procedure DeclarePlayerz;
begin
  HowManyPlayers := 1;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;
  Players[0].Name := ''; //Your Runescape username
  Players[0].Pass := ''; //Your Runescape password
  Players[0].Active := True; //Set to true if you want to use this player. Set to False to disable this player.
  Players[0].Pin := ''; //Leave blank if the player doesn't have a Bank PIN.
 end;


  var
Reward, games, win, lost, Rp, Pp, Yp, yellow, white, LeftGate,DTMSPOT2,DTMSPOT3,DTMSPOT, x, y, counter : integer;


Procedure FindRandoms;
Begin
    If Not (LoggedIn) Or Not (Players[CurrentPlayer].Active) Then
        NextPlayer(True);
    FindNormalRandoms;
    wait(Random(100) + 20);
    FindLamp('Summoning');
End;



function Step1: Integer;
var
  dtmMainPoint: TDTMPointDef;
  dtmSubPoints: Array [0..4] of TDTMPointDef;
  TempTDTM: TDTM;
begin
  dtmMainPoint.x := 933;
  dtmMainPoint.y := 115;
  dtmMainPoint.AreaSize := 3;
  dtmMainPoint.AreaShape := 0;
  dtmMainPoint.Color := 1452869;
  dtmMainPoint.Tolerance := 20;

  dtmSubPoints[0].x := 933;
  dtmSubPoints[0].y := 115;
  dtmSubPoints[0].AreaSize := 3;
  dtmSubPoints[0].AreaShape := 0;
  dtmSubPoints[0].Color := 1452869;
  dtmSubPoints[0].Tolerance := 20;

  dtmSubPoints[1].x := 933;
  dtmSubPoints[1].y := 121;
  dtmSubPoints[1].AreaSize := 3;
  dtmSubPoints[1].AreaShape := 0;
  dtmSubPoints[1].Color := 4357778;
  dtmSubPoints[1].Tolerance := 20;

  dtmSubPoints[2].x := 923;
  dtmSubPoints[2].y := 114;
  dtmSubPoints[2].AreaSize := 3;
  dtmSubPoints[2].AreaShape := 0;
  dtmSubPoints[2].Color := 2844546;
  dtmSubPoints[2].Tolerance := 20;

  dtmSubPoints[3].x := 931;
  dtmSubPoints[3].y := 104;
  dtmSubPoints[3].AreaSize := 3;
  dtmSubPoints[3].AreaShape := 0;
  dtmSubPoints[3].Color := 2513523;
  dtmSubPoints[3].Tolerance := 20;

  dtmSubPoints[4].x := 941;
  dtmSubPoints[4].y := 114;
  dtmSubPoints[4].AreaSize := 3;
  dtmSubPoints[4].AreaShape := 0;
  dtmSubPoints[4].Color := 5218735;
  dtmSubPoints[4].Tolerance := 20;

  TempTDTM.MainPoint := dtmMainPoint;
  TempTDTM.SubPoints := dtmSubPoints;
  Result := AddDTM(TempTDTM);
end;


function Step2: Integer;
var
  dtmMainPoint: TDTMPointDef;
  dtmSubPoints: Array [0..4] of TDTMPointDef;
  TempTDTM: TDTM;
begin
  dtmMainPoint.x := 901;
  dtmMainPoint.y := 138;
  dtmMainPoint.AreaSize := 1;
  dtmMainPoint.AreaShape := 0;
  dtmMainPoint.Color := 65535;
  dtmMainPoint.Tolerance := 30;

  dtmSubPoints[0].x := 901;
  dtmSubPoints[0].y := 138;
  dtmSubPoints[0].AreaSize := 1;
  dtmSubPoints[0].AreaShape := 0;
  dtmSubPoints[0].Color := 65535;
  dtmSubPoints[0].Tolerance := 30;

  dtmSubPoints[1].x := 902;
  dtmSubPoints[1].y := 133;
  dtmSubPoints[1].AreaSize := 1;
  dtmSubPoints[1].AreaShape := 0;
  dtmSubPoints[1].Color := 2714760;
  dtmSubPoints[1].Tolerance := 30;

  dtmSubPoints[2].x := 907;
  dtmSubPoints[2].y := 139;
  dtmSubPoints[2].AreaSize := 1;
  dtmSubPoints[2].AreaShape := 0;
  dtmSubPoints[2].Color := 2714760;
  dtmSubPoints[2].Tolerance := 30;

  dtmSubPoints[3].x := 901;
  dtmSubPoints[3].y := 145;
  dtmSubPoints[3].AreaSize := 1;
  dtmSubPoints[3].AreaShape := 0;
  dtmSubPoints[3].Color := 2714760;
  dtmSubPoints[3].Tolerance := 30;

  dtmSubPoints[4].x := 896;
  dtmSubPoints[4].y := 137;
  dtmSubPoints[4].AreaSize := 1;
  dtmSubPoints[4].AreaShape := 0;
  dtmSubPoints[4].Color := 2714760;
  dtmSubPoints[4].Tolerance := 30;

  TempTDTM.MainPoint := dtmMainPoint;
  TempTDTM.SubPoints := dtmSubPoints;
  Result := AddDTM(TempTDTM);
end;


function Step3: Integer;
var
  dtmMainPoint: TDTMPointDef;
  dtmSubPoints: Array [0..4] of TDTMPointDef;
  TempTDTM: TDTM;
begin
  dtmMainPoint.x := 741;
  dtmMainPoint.y := 175;
  dtmMainPoint.AreaSize := 0;
  dtmMainPoint.AreaShape := 0;
  dtmMainPoint.Color := 863541;
  dtmMainPoint.Tolerance := 15;

  dtmSubPoints[0].x := 741;
  dtmSubPoints[0].y := 175;
  dtmSubPoints[0].AreaSize := 0;
  dtmSubPoints[0].AreaShape := 0;
  dtmSubPoints[0].Color := 863541;
  dtmSubPoints[0].Tolerance := 15;

  dtmSubPoints[1].x := 739;
  dtmSubPoints[1].y := 173;
  dtmSubPoints[1].AreaSize := 0;
  dtmSubPoints[1].AreaShape := 0;
  dtmSubPoints[1].Color := 16249839;
  dtmSubPoints[1].Tolerance := 15;

  dtmSubPoints[2].x := 744;
  dtmSubPoints[2].y := 169;
  dtmSubPoints[2].AreaSize := 0;
  dtmSubPoints[2].AreaShape := 0;
  dtmSubPoints[2].Color := 2976616;
  dtmSubPoints[2].Tolerance := 15;

  dtmSubPoints[3].x := 737;
  dtmSubPoints[3].y := 169;
  dtmSubPoints[3].AreaSize := 0;
  dtmSubPoints[3].AreaShape := 0;
  dtmSubPoints[3].Color := 2841950;
  dtmSubPoints[3].Tolerance := 15;

  dtmSubPoints[4].x := 734;
  dtmSubPoints[4].y := 173;
  dtmSubPoints[4].AreaSize := 0;
  dtmSubPoints[4].AreaShape := 0;
  dtmSubPoints[4].Color := 16249839;
  dtmSubPoints[4].Tolerance := 15;

  TempTDTM.MainPoint := dtmMainPoint;
  TempTDTM.SubPoints := dtmSubPoints;
  Result := AddDTM(TempTDTM);
end;



function Left: Integer;
var
  dtmMainPoint: TDTMPointDef;
  dtmSubPoints: Array [0..4] of TDTMPointDef;
  TempTDTM: TDTM;
begin
  dtmMainPoint.x := 665;
  dtmMainPoint.y := 181;
  dtmMainPoint.AreaSize := 0;
  dtmMainPoint.AreaShape := 0;
  dtmMainPoint.Color := 1466931;
  dtmMainPoint.Tolerance := 15;

  dtmSubPoints[0].x := 665;
  dtmSubPoints[0].y := 181;
  dtmSubPoints[0].AreaSize := 0;
  dtmSubPoints[0].AreaShape := 0;
  dtmSubPoints[0].Color := 1466931;
  dtmSubPoints[0].Tolerance := 15;

  dtmSubPoints[1].x := 661;
  dtmSubPoints[1].y := 176;
  dtmSubPoints[1].AreaSize := 0;
  dtmSubPoints[1].AreaShape := 0;
  dtmSubPoints[1].Color := 2908770;
  dtmSubPoints[1].Tolerance := 15;

  dtmSubPoints[2].x := 671;
  dtmSubPoints[2].y := 174;
  dtmSubPoints[2].AreaSize := 0;
  dtmSubPoints[2].AreaShape := 0;
  dtmSubPoints[2].Color := 2255469;
  dtmSubPoints[2].Tolerance := 15;

  dtmSubPoints[3].x := 665;
  dtmSubPoints[3].y := 172;
  dtmSubPoints[3].AreaSize := 0;
  dtmSubPoints[3].AreaShape := 0;
  dtmSubPoints[3].Color := 2323058;
  dtmSubPoints[3].Tolerance := 15;

  dtmSubPoints[4].x := 658;
  dtmSubPoints[4].y := 177;
  dtmSubPoints[4].AreaSize := 0;
  dtmSubPoints[4].AreaShape := 0;
  dtmSubPoints[4].Color := 3242361;
  dtmSubPoints[4].Tolerance := 15;

  TempTDTM.MainPoint := dtmMainPoint;
  TempTDTM.SubPoints := dtmSubPoints;
  Result := AddDTM(TempTDTM);
end;

function Left1: Integer;
var
  dtmMainPoint: TDTMPointDef;
  dtmSubPoints: Array [0..3] of TDTMPointDef;
  TempTDTM: TDTM;
begin
  dtmMainPoint.x := 660;
  dtmMainPoint.y := 143;
  dtmMainPoint.AreaSize := 1;
  dtmMainPoint.AreaShape := 0;
  dtmMainPoint.Color := 263925;
  dtmMainPoint.Tolerance := 15;

  dtmSubPoints[0].x := 660;
  dtmSubPoints[0].y := 143;
  dtmSubPoints[0].AreaSize := 1;
  dtmSubPoints[0].AreaShape := 0;
  dtmSubPoints[0].Color := 263925;
  dtmSubPoints[0].Tolerance := 15;

  dtmSubPoints[1].x := 650;
  dtmSubPoints[1].y := 139;
  dtmSubPoints[1].AreaSize := 1;
  dtmSubPoints[1].AreaShape := 0;
  dtmSubPoints[1].Color := 5350033;
  dtmSubPoints[1].Tolerance := 15;

  dtmSubPoints[2].x := 652;
  dtmSubPoints[2].y := 146;
  dtmSubPoints[2].AreaSize := 1;
  dtmSubPoints[2].AreaShape := 0;
  dtmSubPoints[2].Color := 4363665;
  dtmSubPoints[2].Tolerance := 15;

  dtmSubPoints[3].x := 648;
  dtmSubPoints[3].y := 131;
  dtmSubPoints[3].AreaSize := 1;
  dtmSubPoints[3].AreaShape := 0;
  dtmSubPoints[3].Color := 263925;
  dtmSubPoints[3].Tolerance := 15;

  TempTDTM.MainPoint := dtmMainPoint;
  TempTDTM.SubPoints := dtmSubPoints;
  Result := AddDTM(TempTDTM);
end;


   procedure LeftSpot;
begin
  MakeCompass('S');
  LeftGate := Left;
  if DTMRotated(LeftGate, X, Y, MMX1, MMY1, MMX2, MMY2) then
    MMouse(x, y, 0, 0);
    wait(Random(100) + 20);
    Mouse(x, y, 0, 0, True);
end;


   procedure LeftPortal;
begin
  MakeCompass('S');
  white := Left1;
  if DTMRotated(white, X, Y, MMX1, MMY1, MMX2, MMY2) then
    MMouse(x, y, 0, 0);
    wait(Random(100) + 20);
    Mouse(x, y, 0, 0, True);
end;
//white

  function NorthSpot: Integer;
var
  dtmMainPoint: TDTMPointDef;
  dtmSubPoints: Array [0..3] of TDTMPointDef;
  TempTDTM: TDTM;
begin
  dtmMainPoint.x := 708;
  dtmMainPoint.y := 160;
  dtmMainPoint.AreaSize := 0;
  dtmMainPoint.AreaShape := 0;
  dtmMainPoint.Color := 393967;
  dtmMainPoint.Tolerance := 15;

  dtmSubPoints[0].x := 708;
  dtmSubPoints[0].y := 160;
  dtmSubPoints[0].AreaSize := 0;
  dtmSubPoints[0].AreaShape := 0;
  dtmSubPoints[0].Color := 393967;
  dtmSubPoints[0].Tolerance := 15;

  dtmSubPoints[1].x := 702;
  dtmSubPoints[1].y := 155;
  dtmSubPoints[1].AreaSize := 0;
  dtmSubPoints[1].AreaShape := 0;
  dtmSubPoints[1].Color := 3420468;
  dtmSubPoints[1].Tolerance := 15;

  dtmSubPoints[2].x := 715;
  dtmSubPoints[2].y := 155;
  dtmSubPoints[2].AreaSize := 0;
  dtmSubPoints[2].AreaShape := 0;
  dtmSubPoints[2].Color := 3355448;
  dtmSubPoints[2].Tolerance := 15;

  dtmSubPoints[3].x := 708;
  dtmSubPoints[3].y := 153;
  dtmSubPoints[3].AreaSize := 0;
  dtmSubPoints[3].AreaShape := 0;
  dtmSubPoints[3].Color := 3289141;
  dtmSubPoints[3].Tolerance := 15;

  TempTDTM.MainPoint := dtmMainPoint;
  TempTDTM.SubPoints := dtmSubPoints;
  Result := AddDTM(TempTDTM);
end;

function Spot44: Integer;
var
  dtmMainPoint: TDTMPointDef;
  dtmSubPoints: Array [0..4] of TDTMPointDef;
  TempTDTM: TDTM;
begin
  dtmMainPoint.x := 672;
  dtmMainPoint.y := 180;
  dtmMainPoint.AreaSize := 0;
  dtmMainPoint.AreaShape := 0;
  dtmMainPoint.Color := 329713;
  dtmMainPoint.Tolerance := 0;

  dtmSubPoints[0].x := 672;
  dtmSubPoints[0].y := 180;
  dtmSubPoints[0].AreaSize := 0;
  dtmSubPoints[0].AreaShape := 0;
  dtmSubPoints[0].Color := 329713;
  dtmSubPoints[0].Tolerance := 0;

  dtmSubPoints[1].x := 671;
  dtmSubPoints[1].y := 156;
  dtmSubPoints[1].AreaSize := 0;
  dtmSubPoints[1].AreaShape := 0;
  dtmSubPoints[1].Color := 6523792;
  dtmSubPoints[1].Tolerance := 0;

  dtmSubPoints[2].x := 667;
  dtmSubPoints[2].y := 169;
  dtmSubPoints[2].AreaSize := 0;
  dtmSubPoints[2].AreaShape := 0;
  dtmSubPoints[2].Color := 5336950;
  dtmSubPoints[2].Tolerance := 0;

  dtmSubPoints[3].x := 678;
  dtmSubPoints[3].y := 162;
  dtmSubPoints[3].AreaSize := 0;
  dtmSubPoints[3].AreaShape := 0;
  dtmSubPoints[3].Color := 5792867;
  dtmSubPoints[3].Tolerance := 0;

  dtmSubPoints[4].x := 666;
  dtmSubPoints[4].y := 163;
  dtmSubPoints[4].AreaSize := 0;
  dtmSubPoints[4].AreaShape := 0;
  dtmSubPoints[4].Color := 6457999;
  dtmSubPoints[4].Tolerance := 0;

  TempTDTM.MainPoint := dtmMainPoint;
  TempTDTM.SubPoints := dtmSubPoints;
  Result := AddDTM(TempTDTM);
end;


//Portal Locs:

function YellowPortal: Integer;
var
  dtmMainPoint: TDTMPointDef;
  dtmSubPoints: Array [0..4] of TDTMPointDef;
  TempTDTM: TDTM;
begin
  dtmMainPoint.x := 676;
  dtmMainPoint.y := 179;
  dtmMainPoint.AreaSize := 0;
  dtmMainPoint.AreaShape := 0;
  dtmMainPoint.Color := 65535;
  dtmMainPoint.Tolerance := 15;

  dtmSubPoints[0].x := 676;
  dtmSubPoints[0].y := 179;
  dtmSubPoints[0].AreaSize := 0;
  dtmSubPoints[0].AreaShape := 0;
  dtmSubPoints[0].Color := 65535;
  dtmSubPoints[0].Tolerance := 15;

  dtmSubPoints[1].x := 676;
  dtmSubPoints[1].y := 172;
  dtmSubPoints[1].AreaSize := 0;
  dtmSubPoints[1].AreaShape := 0;
  dtmSubPoints[1].Color := 7444128;
  dtmSubPoints[1].Tolerance := 15;

  dtmSubPoints[2].x := 682;
  dtmSubPoints[2].y := 180;
  dtmSubPoints[2].AreaSize := 0;
  dtmSubPoints[2].AreaShape := 0;
  dtmSubPoints[2].Color := 7312029;
  dtmSubPoints[2].Tolerance := 15;

  dtmSubPoints[3].x := 669;
  dtmSubPoints[3].y := 178;
  dtmSubPoints[3].AreaSize := 0;
  dtmSubPoints[3].AreaShape := 0;
  dtmSubPoints[3].Color := 7048342;
  dtmSubPoints[3].Tolerance := 15;

  dtmSubPoints[4].x := 676;
  dtmSubPoints[4].y := 184;
  dtmSubPoints[4].AreaSize := 0;
  dtmSubPoints[4].AreaShape := 0;
  dtmSubPoints[4].Color := 7114649;
  dtmSubPoints[4].Tolerance := 15;

  TempTDTM.MainPoint := dtmMainPoint;
  TempTDTM.SubPoints := dtmSubPoints;
  Result := AddDTM(TempTDTM);
end;


procedure TOYellow;   // Directly to Yellow Portal
begin
  MakeCompass('S');
  Yp := YellowPortal;
  if DTMRotated(YP, X, Y, MMX1, MMY1, MMX2, MMY2) then
    MMouse(x, y, 0, 0);
    wait(Random(100) + 20);
    Mouse(x, y, 0, 0, True);
    FFlag(1);
end;

function RedPortal: Integer;
var
  dtmMainPoint: TDTMPointDef;
  dtmSubPoints: Array [0..4] of TDTMPointDef;
  TempTDTM: TDTM;
begin
  dtmMainPoint.x := 778;
  dtmMainPoint.y := 192;
  dtmMainPoint.AreaSize := 0;
  dtmMainPoint.AreaShape := 0;
  dtmMainPoint.Color := 62719;
  dtmMainPoint.Tolerance := 15;

  dtmSubPoints[0].x := 778;
  dtmSubPoints[0].y := 192;
  dtmSubPoints[0].AreaSize := 0;
  dtmSubPoints[0].AreaShape := 0;
  dtmSubPoints[0].Color := 62719;
  dtmSubPoints[0].Tolerance := 15;

  dtmSubPoints[1].x := 778;
  dtmSubPoints[1].y := 185;
  dtmSubPoints[1].AreaSize := 0;
  dtmSubPoints[1].AreaShape := 0;
  dtmSubPoints[1].Color := 8150929;
  dtmSubPoints[1].Tolerance := 15;

  dtmSubPoints[2].x := 772;
  dtmSubPoints[2].y := 183;
  dtmSubPoints[2].AreaSize := 0;
  dtmSubPoints[2].AreaShape := 0;
  dtmSubPoints[2].Color := 7559818;
  dtmSubPoints[2].Tolerance := 15;

  dtmSubPoints[3].x := 786;
  dtmSubPoints[3].y := 190;
  dtmSubPoints[3].AreaSize := 0;
  dtmSubPoints[3].AreaShape := 0;
  dtmSubPoints[3].Color := 8418184;
  dtmSubPoints[3].Tolerance := 15;

  dtmSubPoints[4].x := 769;
  dtmSubPoints[4].y := 188;
  dtmSubPoints[4].AreaSize := 0;
  dtmSubPoints[4].AreaShape := 0;
  dtmSubPoints[4].Color := 7432058;
  dtmSubPoints[4].Tolerance := 15;

  TempTDTM.MainPoint := dtmMainPoint;
  TempTDTM.SubPoints := dtmSubPoints;
  Result := AddDTM(TempTDTM);
end;

procedure ToRed; //Directly to Purple Portal
begin
Status('To Red');
  MakeCompass('S');
  Rp := RedPortal;
  if DTMRotated(Rp, X, Y, MMX1, MMY1, MMX2, MMY2) then
    MMouse(x, y, 0, 0);
    wait(Random(100) + 20);
    Mouse(x, y, 0, 0, True);
    FFlag(1);
end;


Procedure AttackWhite;
begin
repeat
if  FindObj(x, y, 'ortal', 13217188, 15) then
  MMouse(x,y,0,0);
  wait(Random(100) + 20);
  Mouse(x,y,0,0,false);
  ChooseOption('ttack');
until(false);
  end;


Procedure AttackRed;
begin
repeat
if  FindObj(x, y, 'ortal', 6246545, 15) then
  MMouse(x,y,0,0);
  wait(Random(100) + 20);
  Mouse(x,y,0,0,false);
  ChooseOption('ttack');
  wait(3434 + Random(244));
until(false);
end;


Procedure AttackYellow;
begin
repeat
Status('Attacking Yellow');
if  FindObj(x, y, 'ortal', 3978936, 15) then
  MMouse(x,y,0,0);
  wait(Random(100) + 20);
  Mouse(x,y,0,0,false);
  ChooseOption('ttack');
  wait(Random(100) + 20);
until(false);
end;


 procedure SPOT1;   // Toward Void.
begin
  Status('Spot 1');
  SetRun(True);
  MakeCompass('S');
  DTMSPOT := Step1;
  if DTMRotated(DTMSPOT, X, Y, MMX1, MMY1, MMX2, MMY2) then
    MMouse(x, y, 0, 0);
    wait(Random(100) + 20);
    Mouse(x, y, 0, 0, True);
    FFlag(0);
    wait(Random(1000) + 20);
end;

 procedure SPOT2; // Void
begin
  Status('Spot 2');
  MakeCompass('S');
  DTMSPOT2 := Step2;
  if DTMRotated(DTMSPOT2, X, Y, MMX1, MMY1, MMX2, MMY2) then
    MMouse(x, y, 0, 0);
    wait(Random(100) + 20);
    Mouse(x, y, 0, 0, True);
    FFlag(0);
     wait(1300);
end;

Procedure AwayFromVoid;
begin
If not (DTMSPOT2 < 10) then
begin
  exit;
end else
  Spot2;
end;


 procedure SPOT3;   // Towards North Portals
begin
Status('Spot 3');
  MakeCompass('S');
  DTMSPOT3 := Step3;
  if DTMRotated(DTMSPOT3, X, Y, MMX1, MMY1, MMX2, MMY2) then
    MMouse(x, y, 0, 0);
    wait(Random(100) + 20);
    Mouse(x, y, 0, 0, True);
    Flag;
    Wait(1300);
end;

Function RewardBox : Boolean;
begin
if FindColorTolerance(x,y,986895,134,96,435,334,1) then
begin
  Result := True;
  Mouse(392,60,0,0,true);
  Reward := Reward + 1;
end else
  Result := False;
end;

 procedure SPOT4;     // North (Middle of Yellow/Purple)
begin
Status('Spot 4');
  MakeCompass('S');
  yellow := NorthSpot;
  if DTMRotated(yellow, X, Y, MMX1, MMY1, MMX2, MMY2) then
    MMouse(x, y, 0, 0);
    wait(Random(100) + 20);
    Mouse(x, y, 0, 0, True);
    wait(Random(1000) + 20);
    Flag;
end;

 Procedure WinOrLose;
begin
  Status('Checking if Win Game Or Lose');
  RewardBox;
  MakeCompass('S');
if FindNPCChatText('Congratulations!',True) then
begin
  win := win + 1;
  stats_IncVariable('PC Points Earned',2);
  exit;
end else
if FindNPCChatText('noticed',True) or FindNPCChatText('lost.',True)  then
begin
  lost := lost + 1;
  exit;
 end else
 begin
   exit;
 end;
end;

 function InBoat: Boolean;
begin
  result := (getColor(19, 30) = 13421772) and (getColor(19, 51) = 3265113);
end;

function NPC: Boolean;
begin
  FindRandoms;
if FindNPCChatText('ritual',True) or
  FindNPCChatText('Congratulations!',True) or
  FindNPCChatText('knights',True)  or
  FindNPCChatText('lost.',True) or
  FindText(x, y, 'attle', UpChars, MCX1, MCY1, MCX2, MCY2) or
  FindText(x, y, 'defend the Void Knight', UpChars, MCX1, MCY1, MCX2, MCY2) then
Begin
  Result := True;
  Writeln('NPC Message Detected!');
If (FindColorSpiralTolerance(x, y, 540186, 136, 379, 415, 470, 25)) then
//wait(Random(200) + 20);
  Status('NPC Message');
  MMouse(x,y,0,0);
  wait(Random(200) + 20);
  Mouse(x,y,0,0,true);
  WinOrLose;
end else
  Result := False;
end;


procedure RandomButton;
begin
if not (Faster500) then
  case Random(3) of
    0:
      begin
        KeyDown(VK_Left);
        wait(Random(600) + 500);
        KeyUp(VK_Left);
      end;
    1:
      begin
        KeyDown(VK_Right);
        wait(Random(600) + 500);
        KeyUp(VK_Right);
      end;
    2:
      begin
        KeyDown(VK_Up);
        wait(Random(200) + 500);
        KeyUp(VK_Up);
      end;
     end;
if (Faster500) then
  case Random(5) of
    0:
      begin
        KeyDown(VK_Left);
        wait(Random(200) + 20);
        KeyUp(VK_Left);
      end;
    1:
      begin
        KeyDown(VK_Right);
        wait(Random(200) + 20);
        KeyUp(VK_Right);
      end;
    2:
      begin
        wait(Random(100) + 20);
      end;
    3:
      begin
        wait(Random(100) + 20);
      end;
    4:
      begin
        wait(Random(100) + 20);
      end;
  end;
end;

procedure Report;
var
  Answer, WC: Integer;
begin
    If Not (LoggedIn) Or Not (Players[CurrentPlayer].Active) Then
        NextPlayer(True);
  cleardebug;
  SRLRandomsReport;
  Writeln('||===========================||');
  Writeln('||   P1nkys PestController   ||');
  Writeln('||===========================||');
  Writeln('||    ' + TheDate(Date_Formal) + '    ||');
  Writeln('||===========================||');
  Writeln(' Worked For ' + TimeRunning);
  Writeln(' Games Played ' + IntToStr(Games));
  {Writeln(' Won ' + IntToStr(Win) + ' Games ');
  Writeln(' Lose ' + IntToStr(lost) + ' Games ');
  Writeln(' Reward ' + IntToStr(Reward));   }
  Writeln('||===========================||');
  Stats_Commit;
end;


procedure AntiBan;
var
  NoBan: Integer;
begin
 // FindRandoms;
  Noban := Random(18);
  case Move of
    0: MMouse(x, y, (10 + random(350)), (10 + random(200)));
    1: MMouse(x, y, (10 + random(400)), (10 + random(600)));
    2: MMouse(x, y, (10 + random(550)), (10 + random(400)));
    3: MMouse(x, y, (10 + random(500)), (10 + random(400)));
    4: MMouse(Random(MSX2), Random(MSY2), 0, 0);
    5: RandomRclick;
    6: RandomButton;
    10: setangle(1)
  end;
end;



function InGame: Boolean;   //weequ's function
begin
  result := (getColor(370, 74) = 16711935) and (getColor(404, 70) = 16737894);
end;

Procedure BoatWait;
begin
If Not (LoggedIn) Or Not (Players[CurrentPlayer].Active) Then
        NextPlayer(True);
repeat
  Status('Waiting In Boat');
  RandomButton;
  FindRandoms;
  Report;
  wait(Random(100) + 20);
until(NPC) or (Ingame);
  Games := Games + 1;
  exit;
 end;

 function FindBoard(x,y:Integer):Boolean;
var
  CTS, I: Integer;
  TPA: TPointArray;
  ATPA: Array of TPointArray;
begin
  CTS := GetColorToleranceSpeed;
  ColorToleranceSpeed(1);
  SetColorSpeed2Modifiers(1, 3);
  FindColorsSpiralTolerance(MSCX, MSCY, TPA, 3958408, MSX1, MSY1, MSX2, MSY2, 4);
  ColorToleranceSpeed(CTS);
  ATPA := TPAToATPAEx(TPA, 2, 2);
  For I := 0 to High(ATPA) do
  begin
    MiddleTPAEx(ATPA[i], x, y);
    MMouse(x, y, 1, 1);
    If(IsUpTextMultiCustom(['Gangplank'])) then
    begin
      Result := True;
      GetMousePos(x, y);
      Break;
    end;
  end;
end;


procedure Plank;
begin
If Not (LoggedIn) Or Not (Players[CurrentPlayer].Active) Then
        NextPlayer(True);
  Status('Searching For Plank');
  WinOrLose;
  MakeCompass('S');
  FindRandoms;
 begin
  { KeyDown(VK_Down);
   wait(Random(1000) + 500);
   KeyUp(VK_Down);}
  Setangle(0);
 end;
 repeat
if not RewardBox then
if FindBoard(x,y) then
//If (FindColorSpiralTolerance(x, y, 5008519, MSX1, MSY1, MSX2, MSY2, 3)) then
//If  (FindObjCustom(x,y,['Gang','angplank','Gangplank','gplank'], [3628927,2704989,3496825], 5)) Then
//If FindObjTPA(X, Y, 5074570, 10, 1, 120, 120, 50, ['angplank','Gang']) then
 // ClickMouse2(False);
// wait(2000);
  Status('Looking for Plank');
  wait(200 + random(232));
if Isuptext('angplank') then
  ClickMouse2(true);
Until(FindBlackChatMessage('You board the lander') or (ingame) or FindBlackChatMessage('reach that') or (InBoat))
//ChooseOption('angplank');
//until(ChooseOption('ross') or ChooseOption('angplank'));
//until WaitOptionMulti(['ross', 'angplank', 'Gangplank'], 1500);
{if Isuptext('angplank') then
Mouse(x,y,0,0,true);
wait(1232);
Mouse(x,y,0,0,true);    }
  FindRandoms;
//Until(ChooseOption('ross'));
  Report;
  NPC;
  exit;
end;

Function Range : Boolean;
begin
 If (FindColorSpiralTolerance(x, y, 5372475, 267, 132, 292, 160, 1)) then
  begin
    Result := True;
    Writeln('TRUE');
  end else
    Result := False;
    Writeln('False');
end;



Procedure SpecAttack;
begin
 if SpecialAttacks then
   begin
     Writeln('Toggling Special');
     Status('Special Attack ON');
     MouseBox(528,179,545,195,1);
 begin
 if (FindColorSpiralTolerance(x, y, 3566664, 545, 208, 738, 430, 25)) then
   Status('Special');
   MMouse(x,y,0,0);
   wait(Random(100) + 20);
   Mouse(x,y,0,0,true);
 if QuickPrayer then
begin
  Writeln('Toggling Quick Prayer');
  Status('Quick Prayer ON');
  MouseBox(745, 70, 775, 75, 1);
end else
exit;
 end;
   end;
end;




{Procedure FightPests;     //2305818 green pest
var                     //2701962 = red pest
  CTS: Integer;        //5051472 = PURPLE PEST POP UP
    begin
    Status('Fighting Pests');
       If not (FindObjCustom(x,y,['hifter','Shifte','Shifter','hift'], [2108184,5051472,3228504], 1)) Then
       begin
        RandomButton;
        Report;
        exit;
        end else
       // if (counter>5000) then
          begin
        //    counter := 0;
            Mmouse(x,y,0,0);
            wait(Random(300) + 20);
            if isuptext('ttac') then
            Mouse(x,y,0,0,True);
            Report;
            if Faster500 then
        begin
        wait(Random(100) + 20);
        Report;
   end else
   wait(2000);
   Report;
    end;
  end; }

Procedure FightPests;     //2305818 green pest
var                     //2701962 = red pest
  CTS: Integer;        //5051472 = PURPLE PEST POP UP
begin
  Status('Fighting Pests');
//['Splatter','Torcher','Shifter','Defiler','Splatter','Brawler'])
   { if not FindObj(x, y, 'hifter', 2108184, 1) or
       FindObj(x, y, 'hifter', 2572415, 10)   then }
If not (FindObjCustom(x,y,['hifter','Shifte','Shifter','hift'], [2108184,5051472,3228504,4942983], 5)) Then
  begin
  if (counter>1000) then
    begin
      Report;
      counter := 0;
      SpecAttack;
    end;
  RandomButton;
  Exit;
  end else
  Mmouse(x,y,0,0);
  wait(Random(300) + 20);
  if isuptext('ttac') then
    Mouse(x,y,0,0,True);
  if Faster500 then
    begin
      wait(Random(100) + 20);
      Report;
    end else
  wait(2000);
  Report;
end;

//2830989
// 1319947
//


    //purple = western
  //blue = eastern
  //yellow = south eastern
  // red = south western
Function Portal(Name : string) : Boolean;
begin
  case Name Of
'red' :
    if (FindBlackChatMessage('south-western')) then
      begin
        Result := True;
        Writeln('Red Portal Shield Down!');
        Exit;
      end else
      Result := False;
'yellow':
    if (FindBlackChatMessage('south-eastern')) then
      begin
        Result := True;
        Writeln('Yellow Portal Shield Down!');
        Exit;
      end else
      Result := False;
  end;
end;
        //You must defend
Procedure RedRoute;
  begin
    Tored;
    AttackRed;
    If Portal('yellow') then
    begin
      exit;
    end;
    end;

Procedure YellowRoute;
begin
  wait(Random(100) + 20);
  Status('Yellow Route');
  toyellow;
  AttackYellow;
If Portal('red') then
  begin
    RedRoute;
  end;
end;

procedure FreeDTMS;
begin
  FreeDTM(step1);
  FreeDTM(step2);
  FreeDTM(step3);
  FreeDTM(Left);
  FreeDTM(Left1);
  FreeDTM(northspot);
  FreeDTM(redportal);
  FreeDTM(yellowportal);
  FreeDTM(spot44);
end;

Procedure PestControl;
begin
  WinorLose;
  Spot1;
  Spot2;
  SpecAttack;
repeat
  FightPests;
Until(false);
end;


begin
  Disguise('P1nky PestController');
  ClearDebug;
  ClearReport;
  Smart_Server := 25;
  Smart_Members := false;
  Smart_Signed := true;
  Smart_SuperDetail := false;
  begin
     if (SRLStats_Username = '') then
       SetupSRLStats(654, 'Anonymous', 'anon1337')
     else
       SetupSRLStats(654, SRLStats_Username, SRLStats_Password);
       SetUpSRL;
       declareplayerz;
       ActivateClient;
       counter:=0;
       ClearDebug;
       LoginPlayer;
       Inc(counter);
     repeat
       begin
         FreeDTMS;
         NPC;
         Report;
         Plank;
         BoatWait;
       end;
       begin
         Spot1;
         Spot2;
       if SpecialAttacks then
         begin
           SpecAttack;
         end;
       end;
       repeat
         FightPests
       Until not (Ingame);
     until(false);
  end;
end.

//3978936 yellow Port

thx for the script man yopu are awsome continue your epicness=]

really detectable as i ran with my main for like 5 minutes. i saw other 10 people using it we all go to same spot when script starts then we wonder off an kill middle creatures but theres not enought to get 500 since so many others doing same,.so atm this is good but kinda bad

The script doesn't work, when i try to run it nothing happens and all i see in the bar is this:
"Welcome to Runescape.

'One minute has passed…'

'One minute has passed…'

'One minute has passed…'

'One minute has passed…'"

Etc. Help?

Great script! And I think this proggy speaks for itself =P
||===========================||
|| P1nkys PestController ||
||===========================||
|| February 14th, 2012 ||
||===========================||
Worked For 11 Hours, 57 Minutes and 43 Seconds
Games Played 250
||===========================||

How do you guys make it work? Doesn't work for me, nothing pops-up except the runescape client when I run it and nothing happens :S

From: o o magic
The script doesn't work, when i try to run it nothing happens and all i see in the bar is this:
"Welcome to Runescape.

'One minute has passed…'

'One minute has passed…'

'One minute has passed…'

'One minute has passed…'"

Etc. Help?

Fill in 'DeclarePlayerz' , with your username and password.

I let it run all night had 222 points this morning = ))

|| P1nkys PestController ||
||===========================||
|| February 14th, 2012 ||
||===========================||
Worked For 7 Hours, 9 Minutes and 37 Seconds
Games Played 130
||===========================||

Cant get it to work for me no movement

evertime i run the script it runs to a location and doesnt attack any monsters and gains no points, how can i fix this???

it wont cross the plank to get to the boat? anyone else having that porblem

From: P1nky
Mates, give me couple days, I'll update it for y'all , have quite a bit school load on me.
Just few more days Mates.

Please read posts above… Many of y'all questions have been answered and please Mates have some patience, I'll get it back up and running like a Charm by tomorrow or so.

Thanks pinky, really appericate ur work!! u need to teach me ur leet skills =]

I actually love you right about now! <3 <3
EDIT: it stops working after every 4 games or so (cant find the plank thingo) and i have to get my charcter onto the boat and start the script again, am i the only one?

happens to everyone, hell fix it in a few days read… ^^^

It still works perfectly for me P1nky. I will donate to you soon I promise. I don't have a paypal account yet is all lol. >.> I work a lot too so the next time I get a day off I will go to the bank.


I've also had about 400 more points but I handed them in.

I know I'm a new user, but take this into consideration.
Recently people have been putting their clan vex's right beside the plank, and sometimes while running it clicks on it, which pops up the clan's screen, which causes the script to freak. If you could include a failsafe for that, it would benefit the script greatly, as well as increase the productivity.
Thanks, keep up the good work.
Cheers.

^^^^

ive been running the script for a wile, only errors i see is sometimes it walks to the wrong spot and donst get to the middle and sometimes it dosnt go in the ship. you should also make it login to the pest woruld by defalt

Thanks mate, the script started now :) I will post any bugs if any occurs. Looking very good so far :D

Just did some quick tweaks (Fixed 'QuickPrayer' feature/Walk to Void is more accurate/fixed finding pests) ,should run to 6 hour limit.
Haven't tested fully though, although tomorrow I will make it a official release.


Thank You.

Version [E]:

program PestControllerBETA;
{$DEFINE SMART}
{$i srl\srl.simba}
{.include SRL/SRL/Skill/Fighting.simba}


  //P1nky's PestController
  //BETA Version

  const
  SpecialAttacks = False;
  QuickPrayer = True; //Make sure to have Quick Prayer Set!
  Faster500 = True; //Having trouble getting your '500'? Well this will help you get over it!
  SRLStats_Username = '';  // Your SRL Stats Username (Optional) Register here: [url]http://stats.villavu.com/[/url]
  SRLStats_Password = '';// Your SRL Stats Password (Optional) Register here: [url]http://stats.villavu.com/[/url]


procedure DeclarePlayerz;
begin
  HowManyPlayers := 1;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;
  Players[0].Name := ''; //Your Runescape username
  Players[0].Pass := ''; //Your Runescape password
  Players[0].Active := True; //Set to true if you want to use this player. Set to False to disable this player.
  Players[0].Pin := ''; //Leave blank if the player doesn't have a Bank PIN.
 end;

  var
Reward, games, win, lost, Rp, Pp, Yp, yellow, white, LeftGate,DTMSPOT2,DTMSPOT3,DTMSPOT, x, y, counter : integer;


Procedure FindRandoms;
Begin
    If Not (LoggedIn) Or Not (Players[CurrentPlayer].Active) Then
        NextPlayer(True);
    FindNormalRandoms;
    wait(Random(100) + 20);
    FindLamp('Woodcutting');
End;



function Step1: Integer;
var
  dtmMainPoint: TDTMPointDef;
  dtmSubPoints: Array [0..4] of TDTMPointDef;
  TempTDTM: TDTM;
begin
  dtmMainPoint.x := 933;
  dtmMainPoint.y := 115;
  dtmMainPoint.AreaSize := 3;
  dtmMainPoint.AreaShape := 0;
  dtmMainPoint.Color := 1452869;
  dtmMainPoint.Tolerance := 20;

  dtmSubPoints[0].x := 933;
  dtmSubPoints[0].y := 115;
  dtmSubPoints[0].AreaSize := 3;
  dtmSubPoints[0].AreaShape := 0;
  dtmSubPoints[0].Color := 1452869;
  dtmSubPoints[0].Tolerance := 20;

  dtmSubPoints[1].x := 933;
  dtmSubPoints[1].y := 121;
  dtmSubPoints[1].AreaSize := 3;
  dtmSubPoints[1].AreaShape := 0;
  dtmSubPoints[1].Color := 4357778;
  dtmSubPoints[1].Tolerance := 20;

  dtmSubPoints[2].x := 923;
  dtmSubPoints[2].y := 114;
  dtmSubPoints[2].AreaSize := 3;
  dtmSubPoints[2].AreaShape := 0;
  dtmSubPoints[2].Color := 2844546;
  dtmSubPoints[2].Tolerance := 20;

  dtmSubPoints[3].x := 931;
  dtmSubPoints[3].y := 104;
  dtmSubPoints[3].AreaSize := 3;
  dtmSubPoints[3].AreaShape := 0;
  dtmSubPoints[3].Color := 2513523;
  dtmSubPoints[3].Tolerance := 20;

  dtmSubPoints[4].x := 941;
  dtmSubPoints[4].y := 114;
  dtmSubPoints[4].AreaSize := 3;
  dtmSubPoints[4].AreaShape := 0;
  dtmSubPoints[4].Color := 5218735;
  dtmSubPoints[4].Tolerance := 20;

  TempTDTM.MainPoint := dtmMainPoint;
  TempTDTM.SubPoints := dtmSubPoints;
  Result := AddDTM(TempTDTM);
end;


function Step2: Integer;
var
  dtmMainPoint: TDTMPointDef;
  dtmSubPoints: Array [0..4] of TDTMPointDef;
  TempTDTM: TDTM;
begin
  dtmMainPoint.x := 901;
  dtmMainPoint.y := 138;
  dtmMainPoint.AreaSize := 1;
  dtmMainPoint.AreaShape := 0;
  dtmMainPoint.Color := 65535;
  dtmMainPoint.Tolerance := 25;

  dtmSubPoints[0].x := 901;
  dtmSubPoints[0].y := 138;
  dtmSubPoints[0].AreaSize := 1;
  dtmSubPoints[0].AreaShape := 0;
  dtmSubPoints[0].Color := 65535;
  dtmSubPoints[0].Tolerance := 25;

  dtmSubPoints[1].x := 902;
  dtmSubPoints[1].y := 133;
  dtmSubPoints[1].AreaSize := 1;
  dtmSubPoints[1].AreaShape := 0;
  dtmSubPoints[1].Color := 2714760;
  dtmSubPoints[1].Tolerance := 25;

  dtmSubPoints[2].x := 907;
  dtmSubPoints[2].y := 139;
  dtmSubPoints[2].AreaSize := 1;
  dtmSubPoints[2].AreaShape := 0;
  dtmSubPoints[2].Color := 2714760;
  dtmSubPoints[2].Tolerance := 25;

  dtmSubPoints[3].x := 901;
  dtmSubPoints[3].y := 145;
  dtmSubPoints[3].AreaSize := 1;
  dtmSubPoints[3].AreaShape := 0;
  dtmSubPoints[3].Color := 2714760;
  dtmSubPoints[3].Tolerance := 25;

  dtmSubPoints[4].x := 896;
  dtmSubPoints[4].y := 137;
  dtmSubPoints[4].AreaSize := 1;
  dtmSubPoints[4].AreaShape := 0;
  dtmSubPoints[4].Color := 2714760;
  dtmSubPoints[4].Tolerance := 25;

  TempTDTM.MainPoint := dtmMainPoint;
  TempTDTM.SubPoints := dtmSubPoints;
  Result := AddDTM(TempTDTM);
end;


function Step3: Integer;
var
  dtmMainPoint: TDTMPointDef;
  dtmSubPoints: Array [0..4] of TDTMPointDef;
  TempTDTM: TDTM;
begin
  dtmMainPoint.x := 741;
  dtmMainPoint.y := 175;
  dtmMainPoint.AreaSize := 0;
  dtmMainPoint.AreaShape := 0;
  dtmMainPoint.Color := 863541;
  dtmMainPoint.Tolerance := 15;

  dtmSubPoints[0].x := 741;
  dtmSubPoints[0].y := 175;
  dtmSubPoints[0].AreaSize := 0;
  dtmSubPoints[0].AreaShape := 0;
  dtmSubPoints[0].Color := 863541;
  dtmSubPoints[0].Tolerance := 15;

  dtmSubPoints[1].x := 739;
  dtmSubPoints[1].y := 173;
  dtmSubPoints[1].AreaSize := 0;
  dtmSubPoints[1].AreaShape := 0;
  dtmSubPoints[1].Color := 16249839;
  dtmSubPoints[1].Tolerance := 15;

  dtmSubPoints[2].x := 744;
  dtmSubPoints[2].y := 169;
  dtmSubPoints[2].AreaSize := 0;
  dtmSubPoints[2].AreaShape := 0;
  dtmSubPoints[2].Color := 2976616;
  dtmSubPoints[2].Tolerance := 15;

  dtmSubPoints[3].x := 737;
  dtmSubPoints[3].y := 169;
  dtmSubPoints[3].AreaSize := 0;
  dtmSubPoints[3].AreaShape := 0;
  dtmSubPoints[3].Color := 2841950;
  dtmSubPoints[3].Tolerance := 15;

  dtmSubPoints[4].x := 734;
  dtmSubPoints[4].y := 173;
  dtmSubPoints[4].AreaSize := 0;
  dtmSubPoints[4].AreaShape := 0;
  dtmSubPoints[4].Color := 16249839;
  dtmSubPoints[4].Tolerance := 15;

  TempTDTM.MainPoint := dtmMainPoint;
  TempTDTM.SubPoints := dtmSubPoints;
  Result := AddDTM(TempTDTM);
end;



function Left: Integer;
var
  dtmMainPoint: TDTMPointDef;
  dtmSubPoints: Array [0..4] of TDTMPointDef;
  TempTDTM: TDTM;
begin
  dtmMainPoint.x := 665;
  dtmMainPoint.y := 181;
  dtmMainPoint.AreaSize := 0;
  dtmMainPoint.AreaShape := 0;
  dtmMainPoint.Color := 1466931;
  dtmMainPoint.Tolerance := 15;

  dtmSubPoints[0].x := 665;
  dtmSubPoints[0].y := 181;
  dtmSubPoints[0].AreaSize := 0;
  dtmSubPoints[0].AreaShape := 0;
  dtmSubPoints[0].Color := 1466931;
  dtmSubPoints[0].Tolerance := 15;

  dtmSubPoints[1].x := 661;
  dtmSubPoints[1].y := 176;
  dtmSubPoints[1].AreaSize := 0;
  dtmSubPoints[1].AreaShape := 0;
  dtmSubPoints[1].Color := 2908770;
  dtmSubPoints[1].Tolerance := 15;

  dtmSubPoints[2].x := 671;
  dtmSubPoints[2].y := 174;
  dtmSubPoints[2].AreaSize := 0;
  dtmSubPoints[2].AreaShape := 0;
  dtmSubPoints[2].Color := 2255469;
  dtmSubPoints[2].Tolerance := 15;

  dtmSubPoints[3].x := 665;
  dtmSubPoints[3].y := 172;
  dtmSubPoints[3].AreaSize := 0;
  dtmSubPoints[3].AreaShape := 0;
  dtmSubPoints[3].Color := 2323058;
  dtmSubPoints[3].Tolerance := 15;

  dtmSubPoints[4].x := 658;
  dtmSubPoints[4].y := 177;
  dtmSubPoints[4].AreaSize := 0;
  dtmSubPoints[4].AreaShape := 0;
  dtmSubPoints[4].Color := 3242361;
  dtmSubPoints[4].Tolerance := 15;

  TempTDTM.MainPoint := dtmMainPoint;
  TempTDTM.SubPoints := dtmSubPoints;
  Result := AddDTM(TempTDTM);
end;

 procedure ReportScreen(TP: TStringArray; Placement: TPoint; Colour: integer);
var
  mx, my, Pic, I, B, H, TPH, Numb: Integer;
  TTP: TPointArray;
  Canvas: TCanvas;
begin
  SmartSetDebug(True);
  GetClientDimensions(mx, my);
  Pic := BitmapFromString(mx, my, '');
  TPH := High(TP);
  for I := 0 to TPH do
  begin
    TTP := LoadTextTPA(TP[i], SmallChars, H);
    for B := 0 to High(TTP) do
    begin
      Numb := ((I + 1) * 13);
      FastSetPixel(Pic, TTP[b].x + 1, TTP[b].y + Numb + 1, 8388736);
      FastSetPixel(Pic, TTP[b].x, TTP[b].y + Numb, Colour);
    end;
  end;
  Canvas := TCANVAS.Create;
  Canvas.Handle := SmartGetDebugDC;
  DrawBitmap(Pic, Canvas, Placement.x, Placement.y);
  FreeBitmap(Pic);
end;

procedure ReportSmart;
begin
  ReportScreen(['P1nkys PestController', '', 'Worked For ' + TimeRunning, '', 'Games Played ' + IntToStr(Games)], Point(350, 223), 255);
end;

function Left1: Integer;
var
  dtmMainPoint: TDTMPointDef;
  dtmSubPoints: Array [0..3] of TDTMPointDef;
  TempTDTM: TDTM;
begin
  dtmMainPoint.x := 660;
  dtmMainPoint.y := 143;
  dtmMainPoint.AreaSize := 1;
  dtmMainPoint.AreaShape := 0;
  dtmMainPoint.Color := 263925;
  dtmMainPoint.Tolerance := 15;

  dtmSubPoints[0].x := 660;
  dtmSubPoints[0].y := 143;
  dtmSubPoints[0].AreaSize := 1;
  dtmSubPoints[0].AreaShape := 0;
  dtmSubPoints[0].Color := 263925;
  dtmSubPoints[0].Tolerance := 15;

  dtmSubPoints[1].x := 650;
  dtmSubPoints[1].y := 139;
  dtmSubPoints[1].AreaSize := 1;
  dtmSubPoints[1].AreaShape := 0;
  dtmSubPoints[1].Color := 5350033;
  dtmSubPoints[1].Tolerance := 15;

  dtmSubPoints[2].x := 652;
  dtmSubPoints[2].y := 146;
  dtmSubPoints[2].AreaSize := 1;
  dtmSubPoints[2].AreaShape := 0;
  dtmSubPoints[2].Color := 4363665;
  dtmSubPoints[2].Tolerance := 15;

  dtmSubPoints[3].x := 648;
  dtmSubPoints[3].y := 131;
  dtmSubPoints[3].AreaSize := 1;
  dtmSubPoints[3].AreaShape := 0;
  dtmSubPoints[3].Color := 263925;
  dtmSubPoints[3].Tolerance := 15;

  TempTDTM.MainPoint := dtmMainPoint;
  TempTDTM.SubPoints := dtmSubPoints;
  Result := AddDTM(TempTDTM);
end;


   procedure LeftSpot;
begin
  MakeCompass('S');
  LeftGate := Left;
  if DTMRotated(LeftGate, X, Y, MMX1, MMY1, MMX2, MMY2) then
    MMouse(x, y, 0, 0);
  wait(Random(100) + 20);
  Mouse(x, y, 0, 0, True);
end;


   procedure LeftPortal;
begin
  MakeCompass('S');
  white := Left1;
  if DTMRotated(white, X, Y, MMX1, MMY1, MMX2, MMY2) then
    MMouse(x, y, 0, 0);
  wait(Random(100) + 20);
  Mouse(x, y, 0, 0, True);
end;
//white

  function NorthSpot: Integer;
var
  dtmMainPoint: TDTMPointDef;
  dtmSubPoints: Array [0..3] of TDTMPointDef;
  TempTDTM: TDTM;
begin
  dtmMainPoint.x := 708;
  dtmMainPoint.y := 160;
  dtmMainPoint.AreaSize := 0;
  dtmMainPoint.AreaShape := 0;
  dtmMainPoint.Color := 393967;
  dtmMainPoint.Tolerance := 15;

  dtmSubPoints[0].x := 708;
  dtmSubPoints[0].y := 160;
  dtmSubPoints[0].AreaSize := 0;
  dtmSubPoints[0].AreaShape := 0;
  dtmSubPoints[0].Color := 393967;
  dtmSubPoints[0].Tolerance := 15;

  dtmSubPoints[1].x := 702;
  dtmSubPoints[1].y := 155;
  dtmSubPoints[1].AreaSize := 0;
  dtmSubPoints[1].AreaShape := 0;
  dtmSubPoints[1].Color := 3420468;
  dtmSubPoints[1].Tolerance := 15;

  dtmSubPoints[2].x := 715;
  dtmSubPoints[2].y := 155;
  dtmSubPoints[2].AreaSize := 0;
  dtmSubPoints[2].AreaShape := 0;
  dtmSubPoints[2].Color := 3355448;
  dtmSubPoints[2].Tolerance := 15;

  dtmSubPoints[3].x := 708;
  dtmSubPoints[3].y := 153;
  dtmSubPoints[3].AreaSize := 0;
  dtmSubPoints[3].AreaShape := 0;
  dtmSubPoints[3].Color := 3289141;
  dtmSubPoints[3].Tolerance := 15;

  TempTDTM.MainPoint := dtmMainPoint;
  TempTDTM.SubPoints := dtmSubPoints;
  Result := AddDTM(TempTDTM);
end;

function Spot44: Integer;
var
  dtmMainPoint: TDTMPointDef;
  dtmSubPoints: Array [0..4] of TDTMPointDef;
  TempTDTM: TDTM;
begin
  dtmMainPoint.x := 672;
  dtmMainPoint.y := 180;
  dtmMainPoint.AreaSize := 0;
  dtmMainPoint.AreaShape := 0;
  dtmMainPoint.Color := 329713;
  dtmMainPoint.Tolerance := 0;

  dtmSubPoints[0].x := 672;
  dtmSubPoints[0].y := 180;
  dtmSubPoints[0].AreaSize := 0;
  dtmSubPoints[0].AreaShape := 0;
  dtmSubPoints[0].Color := 329713;
  dtmSubPoints[0].Tolerance := 0;

  dtmSubPoints[1].x := 671;
  dtmSubPoints[1].y := 156;
  dtmSubPoints[1].AreaSize := 0;
  dtmSubPoints[1].AreaShape := 0;
  dtmSubPoints[1].Color := 6523792;
  dtmSubPoints[1].Tolerance := 0;

  dtmSubPoints[2].x := 667;
  dtmSubPoints[2].y := 169;
  dtmSubPoints[2].AreaSize := 0;
  dtmSubPoints[2].AreaShape := 0;
  dtmSubPoints[2].Color := 5336950;
  dtmSubPoints[2].Tolerance := 0;

  dtmSubPoints[3].x := 678;
  dtmSubPoints[3].y := 162;
  dtmSubPoints[3].AreaSize := 0;
  dtmSubPoints[3].AreaShape := 0;
  dtmSubPoints[3].Color := 5792867;
  dtmSubPoints[3].Tolerance := 0;

  dtmSubPoints[4].x := 666;
  dtmSubPoints[4].y := 163;
  dtmSubPoints[4].AreaSize := 0;
  dtmSubPoints[4].AreaShape := 0;
  dtmSubPoints[4].Color := 6457999;
  dtmSubPoints[4].Tolerance := 0;

  TempTDTM.MainPoint := dtmMainPoint;
  TempTDTM.SubPoints := dtmSubPoints;
  Result := AddDTM(TempTDTM);
end;


//Portal Locs:

function YellowPortal: Integer;
var
  dtmMainPoint: TDTMPointDef;
  dtmSubPoints: Array [0..4] of TDTMPointDef;
  TempTDTM: TDTM;
begin
  dtmMainPoint.x := 676;
  dtmMainPoint.y := 179;
  dtmMainPoint.AreaSize := 0;
  dtmMainPoint.AreaShape := 0;
  dtmMainPoint.Color := 65535;
  dtmMainPoint.Tolerance := 15;

  dtmSubPoints[0].x := 676;
  dtmSubPoints[0].y := 179;
  dtmSubPoints[0].AreaSize := 0;
  dtmSubPoints[0].AreaShape := 0;
  dtmSubPoints[0].Color := 65535;
  dtmSubPoints[0].Tolerance := 15;

  dtmSubPoints[1].x := 676;
  dtmSubPoints[1].y := 172;
  dtmSubPoints[1].AreaSize := 0;
  dtmSubPoints[1].AreaShape := 0;
  dtmSubPoints[1].Color := 7444128;
  dtmSubPoints[1].Tolerance := 15;

  dtmSubPoints[2].x := 682;
  dtmSubPoints[2].y := 180;
  dtmSubPoints[2].AreaSize := 0;
  dtmSubPoints[2].AreaShape := 0;
  dtmSubPoints[2].Color := 7312029;
  dtmSubPoints[2].Tolerance := 15;

  dtmSubPoints[3].x := 669;
  dtmSubPoints[3].y := 178;
  dtmSubPoints[3].AreaSize := 0;
  dtmSubPoints[3].AreaShape := 0;
  dtmSubPoints[3].Color := 7048342;
  dtmSubPoints[3].Tolerance := 15;

  dtmSubPoints[4].x := 676;
  dtmSubPoints[4].y := 184;
  dtmSubPoints[4].AreaSize := 0;
  dtmSubPoints[4].AreaShape := 0;
  dtmSubPoints[4].Color := 7114649;
  dtmSubPoints[4].Tolerance := 15;

  TempTDTM.MainPoint := dtmMainPoint;
  TempTDTM.SubPoints := dtmSubPoints;
  Result := AddDTM(TempTDTM);
end;


procedure TOYellow;   // Directly to Yellow Portal
begin
  MakeCompass('S');
  Yp := YellowPortal;
  if DTMRotated(YP, X, Y, MMX1, MMY1, MMX2, MMY2) then
    MMouse(x, y, 0, 0);
  wait(Random(100) + 20);
  Mouse(x, y, 0, 0, True);
  FFlag(1);
end;

function RedPortal: Integer;
var
  dtmMainPoint: TDTMPointDef;
  dtmSubPoints: Array [0..4] of TDTMPointDef;
  TempTDTM: TDTM;
begin
  dtmMainPoint.x := 778;
  dtmMainPoint.y := 192;
  dtmMainPoint.AreaSize := 0;
  dtmMainPoint.AreaShape := 0;
  dtmMainPoint.Color := 62719;
  dtmMainPoint.Tolerance := 15;

  dtmSubPoints[0].x := 778;
  dtmSubPoints[0].y := 192;
  dtmSubPoints[0].AreaSize := 0;
  dtmSubPoints[0].AreaShape := 0;
  dtmSubPoints[0].Color := 62719;
  dtmSubPoints[0].Tolerance := 15;

  dtmSubPoints[1].x := 778;
  dtmSubPoints[1].y := 185;
  dtmSubPoints[1].AreaSize := 0;
  dtmSubPoints[1].AreaShape := 0;
  dtmSubPoints[1].Color := 8150929;
  dtmSubPoints[1].Tolerance := 15;

  dtmSubPoints[2].x := 772;
  dtmSubPoints[2].y := 183;
  dtmSubPoints[2].AreaSize := 0;
  dtmSubPoints[2].AreaShape := 0;
  dtmSubPoints[2].Color := 7559818;
  dtmSubPoints[2].Tolerance := 15;

  dtmSubPoints[3].x := 786;
  dtmSubPoints[3].y := 190;
  dtmSubPoints[3].AreaSize := 0;
  dtmSubPoints[3].AreaShape := 0;
  dtmSubPoints[3].Color := 8418184;
  dtmSubPoints[3].Tolerance := 15;

  dtmSubPoints[4].x := 769;
  dtmSubPoints[4].y := 188;
  dtmSubPoints[4].AreaSize := 0;
  dtmSubPoints[4].AreaShape := 0;
  dtmSubPoints[4].Color := 7432058;
  dtmSubPoints[4].Tolerance := 15;

  TempTDTM.MainPoint := dtmMainPoint;
  TempTDTM.SubPoints := dtmSubPoints;
  Result := AddDTM(TempTDTM);
end;

procedure ToRed; //Directly to Purple Portal
begin
Status('To Red');
  MakeCompass('S');
  Rp := RedPortal;
  if DTMRotated(Rp, X, Y, MMX1, MMY1, MMX2, MMY2) then
    MMouse(x, y, 0, 0);
  wait(Random(100) + 20);
  Mouse(x, y, 0, 0, True);
    FFlag(1);
end;


Procedure AttackWhite;
begin
repeat
if  FindObj(x, y, 'ortal', 13217188, 15) then
MMouse(x,y,0,0);
wait(Random(100) + 20);
Mouse(x,y,0,0,false);
ChooseOption('ttack');
until(false);
  end;


Procedure AttackRed;
begin
repeat
if  FindObj(x, y, 'ortal', 6246545, 15) then
MMouse(x,y,0,0);
wait(Random(100) + 20);
Mouse(x,y,0,0,false);
ChooseOption('ttack');
wait(3434 + Random(244));
until(false);
end;


Procedure AttackYellow;
begin
repeat
Status('Attacking Yellow');
if  FindObj(x, y, 'ortal', 3978936, 15) then
MMouse(x,y,0,0);
wait(Random(100) + 20);
Mouse(x,y,0,0,false);
ChooseOption('ttack');
wait(Random(100) + 20);
until(false);
end;


 procedure SPOT1;   // Toward Void.
begin
Status('Spot 1');
SetRun(True);
  MakeCompass('S');
  DTMSPOT := Step1;
  if DTMRotated(DTMSPOT, X, Y, MMX1, MMY1, MMX2, MMY2) then
    MMouse(x, y, 0, 0);
  wait(Random(100) + 20);
  Mouse(x, y, 0, 0, True);
    FFlag(0);
    wait(Random(1000) + 500);
end;

 procedure SPOT2; // Void
begin
Status('Spot 2');
  MakeCompass('S');
  DTMSPOT2 := Step2;
  if DTMRotated(DTMSPOT2, X, Y, MMX1, MMY1, MMX2, MMY2) then
    MMouse(x, y, 0, 0);
  wait(Random(100) + 20);
  Mouse(x, y, 0, 0, True);
    FFlag(0);
     wait(1300);
end;

function AwayFromVoid :boolean;
var
C : Integer;
begin
C := 42342;
If not (C > 4) then
begin
result := false;
exit;
TerminateScript;
end else
result := true;
Spot1;
end;


 procedure SPOT3;   // Towards North Portals
begin
Status('Spot 3');
  MakeCompass('S');
  DTMSPOT3 := Step3;
  if DTMRotated(DTMSPOT3, X, Y, MMX1, MMY1, MMX2, MMY2) then
    MMouse(x, y, 0, 0);
  wait(Random(100) + 20);
  Mouse(x, y, 0, 0, True);
    Flag;
     wait(1300);
end;

function Clan: boolean;
var
  X, Y: Integer;
begin
  Result := (FindColor(X, Y, 3226804, 460, 30, 461, 29));
  end;

Function RewardBox : Boolean;
begin
if (Clan) then
 begin
 Mouse(475, 29, 1, 1, True);
end;
if FindColorTolerance(x,y,986895,134,96,435,334,1) then
begin
Result := True;
Mouse(392,60,0,0,true);
Reward := Reward + 1;
end else
Result := False;
end;

 procedure SPOT4;     // North (Middle of Yellow/Purple)
begin
Status('Spot 4');
  MakeCompass('S');
  yellow := NorthSpot;
  if DTMRotated(yellow, X, Y, MMX1, MMY1, MMX2, MMY2) then
    MMouse(x, y, 0, 0);
  wait(Random(100) + 20);
  Mouse(x, y, 0, 0, True);
  wait(Random(1000) + 20);
    Flag;
end;

 Procedure WinOrLose;
begin
Status('Checking if Win Game Or Lose');
RewardBox;
MakeCompass('S');
 ReportSmart;
if FindNPCChatText('Congratulations!',True) then
begin
 win := win + 1;
 stats_IncVariable('PC Points Earned',2);
 exit;
end else
if FindNPCChatText('noticed',True) or FindNPCChatText('lost.',True)  then
begin
 lost := lost + 1;
 exit;
 end else
 begin
 exit;
 end;
end;



 function InBoat: Boolean;
begin
  result := (getColor(19, 30) = 13421772) and (getColor(19, 51) = 3265113);
end;

function NPC: Boolean;
begin
FindRandoms;
if FindNPCChatText('ritual',True) or
FindNPCChatText('Congratulations!',True) or
FindNPCChatText('knights',True)  or
FindNPCChatText('lost.',True) or
 FindText(x, y, 'attle', UpChars, MCX1, MCY1, MCX2, MCY2) or
  FindText(x, y, 'defend the Void Knight', UpChars, MCX1, MCY1, MCX2, MCY2) then
Begin
Result := True;
Writeln('NPC Message Detected!');
If (FindColorSpiralTolerance(x, y, 540186, 136, 379, 415, 470, 25)) then
//wait(Random(200) + 20);
Status('NPC Message');
MMouse(x,y,0,0);
wait(Random(200) + 20);
Mouse(x,y,0,0,true);
WinOrLose;
end else
Result := False;
 end;





procedure RandomButton;
begin
if not (Faster500) then
  case Random(3) of
    0:
      begin
        KeyDown(VK_Left);
        wait(Random(600) + 500);
        KeyUp(VK_Left);
      end;
    1:
      begin
        KeyDown(VK_Right);
        wait(Random(600) + 500);
        KeyUp(VK_Right);
      end;
    2:
      begin
        KeyDown(VK_Up);
        wait(Random(200) + 500);
        KeyUp(VK_Up);
      end;
     end;
if (Faster500) then
  case Random(5) of
    0:
      begin
        KeyDown(VK_Left);
        wait(Random(200) + 20);
        KeyUp(VK_Left);
      end;
    1:
      begin
        KeyDown(VK_Right);
        wait(Random(200) + 20);
        KeyUp(VK_Right);
      end;
    2:
      begin
        wait(Random(100) + 20);
      end;
    3:
      begin
        wait(Random(100) + 20);
      end;
    4:
      begin
        wait(Random(100) + 20);
      end;
  end;
  end;

procedure Report;
var
  Answer, WC: Integer;
begin
    If Not (LoggedIn) Or Not (Players[CurrentPlayer].Active) Then
        NextPlayer(True);
  cleardebug;
  SRLRandomsReport;
  Writeln('||===========================||');
  Writeln('||   P1nkys PestController   ||');
  Writeln('||===========================||');
  Writeln('||    ' + TheDate(Date_Formal) + '    ||');
  Writeln('||===========================||');
  Writeln(' Worked For ' + TimeRunning);
  Writeln(' Games Played ' + IntToStr(Games));
  {Writeln(' Won ' + IntToStr(Win) + ' Games ');
  Writeln(' Lose ' + IntToStr(lost) + ' Games ');
  Writeln(' Reward ' + IntToStr(Reward));   }
  Writeln('||===========================||');
  ReportSmart;
  Stats_Commit;
end;


procedure AntiBan;
var
  NoBan: Integer;
begin
 // FindRandoms;
  Noban := Random(18);
  case Move of
    0: MMouse(x, y, (10 + random(350)), (10 + random(200)));
    1: MMouse(x, y, (10 + random(400)), (10 + random(600)));
    2: MMouse(x, y, (10 + random(550)), (10 + random(400)));
    3: MMouse(x, y, (10 + random(500)), (10 + random(400)));
    4: MMouse(Random(MSX2), Random(MSY2), 0, 0);
    5: RandomRclick;
    6: RandomButton;
    10: setangle(1)
  end;
end;



function InGame: Boolean;   //weequ's function
begin
  result := (getColor(370, 74) = 16711935) and (getColor(404, 70) = 16737894);
end;

Procedure BoatWait;
begin
If Not (LoggedIn) Or Not (Players[CurrentPlayer].Active) Then
        NextPlayer(True);
 repeat
 Status('Waiting In Boat');
  ReportSmart;
RandomButton;
FindRandoms;
Report;
wait(Random(100) + 20);
until(NPC) or (Ingame);
Games := Games + 1;
exit;
 end;

 function FindBoard(x,y:Integer):Boolean;
var
  CTS, I: Integer;
  TPA: TPointArray;
  ATPA: Array of TPointArray;
begin
  CTS := GetColorToleranceSpeed;
  ColorToleranceSpeed(1);
  SetColorSpeed2Modifiers(1, 3);
  FindColorsSpiralTolerance(MSCX, MSCY, TPA, 3958408, MSX1, MSY1, MSX2, MSY2, 4);
  ColorToleranceSpeed(CTS);
  ATPA := TPAToATPAEx(TPA, 2, 2);
  For I := 0 to High(ATPA) do
  begin
    MiddleTPAEx(ATPA[i], x, y);
    MMouse(x, y, 1, 1);
    If(IsUpTextMultiCustom(['Gangplank'])) then
    begin
      Result := True;
      GetMousePos(x, y);
      Break;
    end;
  end;
end;


procedure Plank;
begin
If Not (LoggedIn) Or Not (Players[CurrentPlayer].Active) Then
        NextPlayer(True);
Status('Searching For Plank');
 WinOrLose;
MakeCompass('S');
FindRandoms;
 begin
  { KeyDown(VK_Down);
   wait(Random(1000) + 500);
   KeyUp(VK_Down);}
  Setangle(0);
 end;
 repeat
 RewardBox;
 ReportSmart;
if not RewardBox then
if FindBoard(x,y) then
//If (FindColorSpiralTolerance(x, y, 5008519, MSX1, MSY1, MSX2, MSY2, 3)) then
//If  (FindObjCustom(x,y,['Gang','angplank','Gangplank','gplank'], [3628927,2704989,3496825], 5)) Then
//If FindObjTPA(X, Y, 5074570, 10, 1, 120, 120, 50, ['angplank','Gang']) then
 // ClickMouse2(False);
// wait(2000);
 Status('Looking for Plank');
wait(200 + random(232));
if Isuptext('angplank') then
ClickMouse2(true);
Until(FindBlackChatMessage('You board the lander') or (ingame) or FindBlackChatMessage('reach that') or (InBoat))
//ChooseOption('angplank');
//until(ChooseOption('ross') or ChooseOption('angplank'));
//until WaitOptionMulti(['ross', 'angplank', 'Gangplank'], 1500);
{if Isuptext('angplank') then
Mouse(x,y,0,0,true);
wait(1232);
Mouse(x,y,0,0,true);    }
FindRandoms;
//Until(ChooseOption('ross'));
Report;
NPC;
exit;
end;

Function Range : Boolean;
begin
 If (FindColorSpiralTolerance(x, y, 5372475, 267, 132, 292, 160, 1)) then
  begin
  Result := True;
  Writeln('TRUE');
  end else
  Result := False;
  Writeln('False');
end;

var
qp : integer;

Procedure QPrayer;
begin
if QuickPrayer then
QP := DTMFromString('mbQAAAHicY2VgYFBmZGBQAmItKC0JxGuA4kuBeB0QbwXi9UB88+1dhrVbNoAxiB1h38yADTBiwWAAAKBQDp8=');
 if FindDTM(QP,x,y,701,52,733,79) then
 begin
 MMouse(x,y,0,0);
 Mouse(x,y,0,0,true);
 end else
exit;
 end;


Procedure SpecAttack;
 begin
 if SpecialAttacks then
 begin
 Writeln('Toggling Special');
 Status('Special Attack ON');
 MouseBox(528,179,545,195,1);
 begin
 If (FindColorSpiralTolerance(x, y, 3566664, 545, 208, 738, 430, 25)) then
Status('Special');
MMouse(x,y,0,0);
wait(Random(100) + 20);
Mouse(x,y,0,0,true);
    end;
  end;
end;




{Procedure FightPests;     //2305818 green pest
var                     //2701962 = red pest
  CTS: Integer;        //5051472 = PURPLE PEST POP UP
    begin
    Status('Fighting Pests');
       If not (FindObjCustom(x,y,['hifter','Shifte','Shifter','hift'], [2108184,5051472,3228504], 1)) Then
       begin
        RandomButton;
        Report;
        exit;
        end else
       // if (counter>5000) then
          begin
        //    counter := 0;
            Mmouse(x,y,0,0);
            wait(Random(300) + 20);
            if isuptext('ttac') then
            Mouse(x,y,0,0,True);
            Report;
            if Faster500 then
        begin
        wait(Random(100) + 20);
        Report;
   end else
   wait(2000);
   Report;
    end;
  end; }

  Procedure FightPests;     //2305818 green pest
var                     //2701962 = red pest
  CTS: Integer;        //5051472 = PURPLE PEST POP UP
    begin
    Status('Fighting Pests');
//['Splatter','Torcher','Shifter','Defiler','Splatter','Brawler'])
   { if not FindObj(x, y, 'hifter', 2108184, 1) or
       FindObj(x, y, 'hifter', 2572415, 10)   then }
       If InFight then
       repeat
       exit;
       Until not (infight);
       If not (FindObjCustom(x,y,['hifter','Shifte','Shifter','hift'], [2108184,5051472,3228504,4942983], 2)) Then
       begin
        if (counter>1000) then
          begin
            Report;
            counter := 0;
          end;
        RandomButton;
        Exit;
    end else
   Mmouse(x,y,0,0);
   wait(Random(300) + 20);
   if isuptext('ttac') then
Mouse(x,y,0,0,True);
      if Faster500 then
        begin
        wait(Random(100) + 20);
        Report;
   end else
   wait(2000);
   Report;
end;

//2830989
// 1319947
//


    //purple = western
  //blue = eastern
  //yellow = south eastern
  // red = south western
Function Portal(Name : string) : Boolean;
begin
  case Name Of
'red' :
if (FindBlackChatMessage('south-western')) then
 begin
 Result := True;
 Writeln('Red Portal Shield Down!');
 Exit;
 end else
 Result := False;
'yellow':
if (FindBlackChatMessage('south-eastern')) then
begin
 Result := True;
 Writeln('Yellow Portal Shield Down!');
  Exit;
 end else
  Result := False;
end;
 end;
        //You must defend
 Procedure RedRoute;
 begin
 Tored;
 AttackRed;
 If Portal('yellow') then
begin
exit;
end;
 end;

 Procedure YellowRoute;
 begin
 wait(Random(100) + 20);
 Status('Yellow Route');
 toyellow;
 AttackYellow;
 If Portal('red') then
begin
RedRoute;
end;
 end;

 procedure FreeDTMS;
begin
  FreeDTM(step1);
  FreeDTM(step2);
  FreeDTM(step3);
  FreeDTM(Left);
  FreeDTM(Left1);
  FreeDTM(northspot);
  FreeDTM(redportal);
  FreeDTM(yellowportal);
  FreeDTM(spot44);
end;

Procedure PestControl;
begin
WinorLose;
Spot1;
Spot2;
SpecAttack;
QPrayer;
repeat
FightPests;
Until(false);
end;


begin
    Disguise('P1nky PestController');
    ClearDebug;
    ClearReport;
    Smart_Server := 17;
    Smart_Members := false;
    Smart_Signed := true;
    Smart_SuperDetail := false;
      begin
     if (SRLStats_Username = '') then
    SetupSRLStats(654, 'Anonymous', 'anon1337')
  else
   SetupSRLStats(654, SRLStats_Username, SRLStats_Password);
SetUpSRL;
declareplayerz;
ActivateClient;
counter:=0;
ClearDebug;
LoginPlayer;
Inc(counter);
repeat
 begin
 FreeDTMS;
 NPC;
 Report;
 Plank;
 BoatWait;
 begin
Spot1;
Spot2;
begin
SpecAttack;
QPrayer;
end;
repeat
FightPests
Until not (Ingame);
end;
end;
until(false);
end;
end.

//3978936 yellow Port

Gonna try it overnight.
Will post a proggie.

Is there a download link for the above script? I tried copying and pasting it but it didnt work + im an idiot on this stuff.

Thanks

Thanks for the quick update pinky. ill check it out today or tommo and let u know how it goes.

Good job but the scripts rapidly click the monsters don't wait always click.

hey how can i enter this script? or are you gonna upload the simba file??

awesome man thanks

works but is a bit dodgy wouldn't recommend to run overnight

From: kocke
Good job but the scripts rapidly click the monsters don't wait always click.

To be honest, I had fixed that problem, but it's way too slow on the reflexes when a pest spawns, so I had to take it out in order to get more than 500 + points.

Btw, mates couple more mins and expect a release.

P1nky I very much appreciate this script, of there is anything I can do to help let me know.

sorry im a major noob but how you make it change server it keeps going to a world thats not pest control

thanksssss man

btw you know howmuch exp per hour? just wondering

||===========================||
|| P1nkys PestController ||
||===========================||
|| February 16th, 2012 ||
||===========================||
Worked For 5 Hours, 5 Minutes and 52 Seconds
Games Played 30
||===========================||




||===========================||
|| P1nkys PestController ||
||===========================||
|| February 16th, 2012 ||
||===========================||
Worked For 6 Hours, 54 Minutes and 20 Seconds
Games Played 91
||===========================||

Version [E] has been released.

• Fixed Finding Plank.
• Better Pest Finding, less crazier.
• Fixed Quick Prayer.
• More accurate to get to the middle.
• A lot more has been fixed/added to make the script run more smoother.

-Cheers

From: P1nky
Version [E] has been released.

• Fixed Finding Plank.
• Better Pest Finding, less crazier.
• Fixed Quick Prayer.
• More accurate to get to the middle.
• A lot more has been fixed/added to make the script run more smoother.

-Cheers

Will run tomorrow night and post proggies.

Good Job p1nky i must say, i do love the script. Fav PC script out (obviously) maybe my new favorite public fighting script. ran it last night sorry forgot to get prog report, but woke up with over 100 points :) Cheers!

||===========================||
|| P1nkys PestController ||
||===========================||
|| February 17th, 2012 ||
||===========================||
Worked For 6 Hours, 41 Minutes and 50 Seconds
Games Played 89
||===========================||



version E proggy

Let me know if any bugs! I just ran it for 18 hours.

Nice! I'm still using the D version of the script (It works perfect for me, and why fix what isn't broken? AFAIK I'm not missing any super-important new features, I hope) but it's working great, running till it's 6 hour limit every time I use it. Although, I did notice a Mod playing Pest Control on World 53 2 days ago. He didn't notice the 5 or 6 bots in the game, though…

wow p1nky great gonna run it now. thanks!

From: P1nky
Let me know if any bugs! I just ran it for 18 hours.

You're using my account righT?

one thing i must say. the last boat doesnt really work. and i suggest the pest control world., everything else is great

hey pinky it keeps saying this -

Warning! You passed wrong values to a finder function: ys > ye (30,29). Swapping the values for now.

what doews that mean?

From: Chrome
You're using my account righT?

I think so, lols I deleted all my messages so not sure whose account, if it is well i have used probably over 700 points already.

From: il o y o il
hey pinky it keeps saying this -

Warning! You passed wrong values to a finder function: ys > ye (30,29). Swapping the values for now.

what doews that mean?

Ignore that message Mate.

From: il o y o il
hey pinky it keeps saying this -

Warning! You passed wrong values to a finder function: ys > ye (30,29). Swapping the values for now.

what doews that mean?

Im getting the same thing. Spam clicks the ocean and random spots.

From: Usmarine
Im getting the same thing. Spam clicks the ocean and random spots.

In the game or outside?

From: P1nky
In the game or outside?

Outside, it will play one full game, win/lose, then instead of going back into the boat… it spam clicks the ocean.

yeh, im gettin extactly the same as usmarine…

after one game it goes okay, then will not enter the boat and spam clicks the ocean outside, gonna teak my ingame graphics now see what happens..

works perfect, just adjusted some graphics works like a charm thankyou!

From: il o y o il
works perfect, just adjusted some graphics works like a charm thankyou!

Great to know that is the fix :)

Thank You.

I'm new, i downloaded it, now how do i use it?

From: spots1
I'm new, i downloaded it, now how do i use it?

Bunch of Tutorials here:

http://villavu.com/forum/forumdisplay.php?f=98

check couple of them out, sure you'll get hang of it.

Good Luck

does it only work on novice boat?

From: Scoped Guns
does it only work on novice boat?

I made it only for novice boat, but reading this thread declares that People tend to use this in intermediate/advance boat.

i havnt played rs in ages so i havnt botted either so how do u run this script?

im getting this when i try to start it?


Error: Exception: The Points you passed to DrawATPA exceed the bitmap's bounds at line 116
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]

okey guys ive done it now for like 2 hours and it works perfectly have some of u guys got banned yet doing this Answer plox?

Dam I'd like to learn to script..

<3 Pink <3

I can use it on first and second boat.

Runs almost flawless, If not I get kicked off boat and restart.. which I really don't mind… just makes me look AFK :)

8.9/10 my good friend :)

AHHH figured out exactly what I was doing wrong. Gah, im a jackass.

:D Running extremely good now. thanks.

—How do you make the script past 50 games?—

do u need msi enabled?

how do u select which xp you want?

and how do you select which world to go into?
at novice there are too many bots cant get the damage count and at vet it doesnt att monsters

GREAT BOT, full void in 2 days. (no suicide) and i didnt register for stats so next time i run i will post proggie

I never seem to attack the portals for some reason :o

I looked thorught the script, i found alot of bad standards ALOT of infinite loops, bad coding practice ALOTof unnessecary stuff.

  Procedure FightPests;     //2305818 green pest
var                     //2701962 = red pest
 Z, R, CTS: Integer;        //5051472 = PURPLE PEST POP UP

    begin
    Status('Fighting Pests');
       If not (EFindObjCustom(x,y,['hifter','Shifte','Shifter','hift'], [2108184,5051472,3228504,4942983], 3)) Then
       begin
        if (counter>1000) then
          begin
            Report;
            counter := 0;
          end;
           R := Random(4);
          case R of
        0: RandomButton;
        1:  wait(Random(25) + 20);
        2:   wait(Random(25) + 20);
        3:   wait(Random(25) + 20);
        end;
        Exit;
    end else
   Mmouse(x,y,0,0);
   wait(Random(100) + 20);
   if isuptext('ttac') then
    begin
    if not Faster500 then
    begin
  Mouse(x,y,0,0,False);
    ChooseOption('ttack');
    end else
    begin
    Mouse(x,y,0,0,true);
 end;
      if Faster500 then
        begin
        wait(Random(100) + 20);
        Report;
   end else
   wait(2000);
   Report;
   end;
end;        

and what is this? Has to be the ugliest procedure i've seen in a long time, nothing personal but i wont be using this script, it screams bannage.

1200 lines for a pestcontroll script, it enters the boat and fights middle? I could do this in 300 lines…

thank you for your invested time :) , i will test the E version on the highest level lander and see how it runs and hopefully post a progress report

it seems to be working fine so far :)

awesome script, works perfectly and hours on end for me :D

From: JuKKa
I looked thorught the script, i found alot of bad standards ALOT of infinite loops, bad coding practice ALOTof unnessecary stuff.


1200 lines for a pestcontroll script, it enters the boat and fights middle? I could do this in 300 lines…

Thank you for your feedback JuKKa, tbh reading this post made me feel embarrass and ashamed of myself. I will try to improve myself so I won't have to see a comment like this in the future.

Also, I just made this script to 600 lines, by taking out the unnecessary DDTMs for portals.

-Cheers.

works great pinky keep up the great work! hows the sw bot going? will it only be for members??

every1 seems to like this script :S im having problems on veteran boat, it plays 1-2 game then runs to the intermediate boat and goes in there and sometimes logs out some help pl0x
,

is there an attack portal option?

you have alot of "missing" begins for example

   procedure LeftSpot;
begin
  MakeCompass('S');
  LeftGate := Left;
  if DTMRotated(LeftGate, X, Y, MMX1, MMY1, MMX2, MMY2) then
    MMouse(x, y, 0, 0);
  wait(Random(100) + 20);
  Mouse(x, y, 0, 0, True);
end;  

for example this would click 0, 0 (upper left corner) if it didnt find the DTM, Alot of other functions do this aswell.

and

Function Range : Boolean;
begin
 If (FindColorSpiralTolerance(x, y, 5372475, 267, 132, 292, 160, 1)) then
  begin
  Result := True;
  Writeln('TRUE');
  end else
  Result := False;
  Writeln('False');
end;

this would print both true and false in the debug box, if it found the color.

the infinite loops this one is killer, i would not wish my main to be caught in this.

Procedure AttackWhite;
begin
repeat
if  FindObj(x, y, 'ortal', 13217188, 15) then
MMouse(x,y,0,0);
wait(Random(100) + 20);
Mouse(x,y,0,0,false);
ChooseOption('ttack');
until(false);
  end;  

alot of improvement but you will get there.

sorrry if i sounded a bit harsh in my earlier post.

guys it does work, if it doesn't attack anything it will kick you out and start over. I have 2 sets of void now cause of this.

as for what jukka said, your a good guy for pointing these out. As harsh as it is it will allow p1nky to improve.
p1nky i'm not a great scripter but like I said in the pm need help with anything? Hit me up :)

I dont get that changes u told me i shud delete them from the script?

Great script. Got my set of voids from this. One of the most used scripts ive seen to. i was playing last night late and saw this script running could tell by where they stoped. atleast 10people using it. good job man.

From: MattL191
Great script. Got my set of voids from this. One of the most used scripts ive seen to. i was playing last night late and saw this script running could tell by where they stoped. atleast 10people using it. good job man.

Ya, You're Right. Continu like this.

From: JuKKa
you have alot of "missing" begins for example

   procedure LeftSpot;
begin
  MakeCompass('S');
  LeftGate := Left;
  if DTMRotated(LeftGate, X, Y, MMX1, MMY1, MMX2, MMY2) then
    MMouse(x, y, 0, 0);
  wait(Random(100) + 20);
  Mouse(x, y, 0, 0, True);
end;  

for example this would click 0, 0 (upper left corner) if it didnt find the DTM, Alot of other functions do this aswell.

and

Function Range : Boolean;
begin
 If (FindColorSpiralTolerance(x, y, 5372475, 267, 132, 292, 160, 1)) then
  begin
  Result := True;
  Writeln('TRUE');
  end else
  Result := False;
  Writeln('False');
end;

this would print both true and false in the debug box, if it found the color.

the infinite loops this one is killer, i would not wish my main to be caught in this.

Procedure AttackWhite;
begin
repeat
if  FindObj(x, y, 'ortal', 13217188, 15) then
MMouse(x,y,0,0);
wait(Random(100) + 20);
Mouse(x,y,0,0,false);
ChooseOption('ttack');
until(false);
  end;  

alot of improvement but you will get there.

sorrry if i sounded a bit harsh in my earlier post.

To be honest, not trying to cover anything up, check the code out now. I deleted whatever is not being used; Also, the code you have posted up was being tested (such as just to see if the DDTMs were working, and if it can find the portal) and it was not being used anywhere in the script.

But, I do understand the 'FightPests' procedure is quite messy and I shall work on it and a lot of other procedures. Also, add more 'begins'.
Thank You Mate & No problem Mate, I actually appreciate you being straight-forward. :)

[E] works great, been running it non stop since it came out (: my longest one with it so far is 7 hours which i did last night… thanks so much for making a free pc bot

is this a legit 1 ? not trolling i srsly need 1 but some dumbass posted this bot is hacked it so pls respond.

From: akash22
is this a legit 1 ? not trolling i srsly need 1 but some dumbass posted this bot is hacked it so pls respond.

If you download it from the first post it is safe. If you download anywhere else it might not be safe.

Thanks bro got helm and gloves almost top then bottom full void:D melle void

I started first game with this script, it goes flawless for now, I will give some comments later

Im still having problems trying to pc in veteran boat and it sometimes goes to the intermediate boat some1 help plz

Can you make it so that if it gets off the middle, it doesnt just stand there. Maybe add something where the player can go back to the middle if he/she is outside of it

From: Based God
Can you make it so that if it gets off the middle, it doesnt just stand there. Maybe add something where the player can go back to the middle if he/she is outside of it

I'll work on that in version [F]

It works perfect for me, nice job. running 6 hours without error….

lmao 4+ hours and 4 commendations?! plz fix it up some?

Works fine for me. Ive been botting it straight for 5 days with hour or so breaks

Works great, have gotten about 300 PC points so far. Thanks for the time and hard work you have put into this. Means a lot.

I got full void melle And so many people in middle I dont wanna be rude but can you make it attack other monsters too I dont care for portals and 1 tiny bug in E when Im In vetran it sometimes put me in inti boat Just helping out so you can fix but got full void in 2 days cause this many thanks!!

Doesn't join a pest control world.

You should make it go to the portals and kill monsters, i've played many hours of this, but it rarely gets 500 damage, if you could make it go to the portals and kill it'd be much better, thanks. also theres lots of HIGH levels in the middle that always kill the monsters in one hit which decreases our chances of getting the 500 damage needed. thanks great script!

Would be great if this script attacked the portals or just random NPCs that spawn out of the portals because atm the script is losing a lot of possible commendations just because it hasn't reached the 500 damage mark, because the shifters die before the script realises they're there.

Yep, Everything mentioned above, Just needs to do a little bit more walking around and killing and it will be an insane script, losing alot of potential points just because it stands there instead of walking 10 ft and killing monsters for 500HP

Very nice script, going to try and get the 6300 points I need for 99 strength :D As said, it sometimes goes to the experienced lander even when you go to the veteran. Also, it would be better to spam click the plank onto the larder as you often have to wait a small bit for a game to start otherwise.

Thank you for your hard work :)

p1nky, scripts working better than ever, much faster in getting points, runs longer, i cant even begin to tell you how much HP exp im getting. Keep up the good work we all love the script!

i find if i leave it in the vet boat it does a few rounds then runs to the intermediate and cus of this it doesnt get any commendations, is there anything i can do about this? and is anyone else having this problem?

From: Don Tonberry
i find if i leave it in the vet boat it does a few rounds then runs to the intermediate and cus of this it doesnt get any commendations, is there anything i can do about this? and is anyone else having this problem?

I have this too, sure P1inky will fix it

From: divina commedia
I have this too, sure P1inky will fix it

I made this for novice, although Is intermediate/advance same as novice boat?

From: P1nky
I made this for novice, although Is intermediate/advance same as novice boat?

It's just a misunderstanding in the script where the compass goes south and the camera goes down - It just misses the gangplank (veteran) and clicks near the other boat (intermediate), so it walks there instead. Would be much appreciated if you could fix it - you get 4 points per game @ veteran :)

From: P1nky
I made this for novice, although Is intermediate/advance same as novice boat?

Yes, the script treats the Veteran and Intermediate boats the same as novice. I just find that it doesn't reach 500 damage a lot of the time.

how i let it login automatic with my pass and user? anyone help

From: joker123
how i let it login automatic with my pass and user? anyone help

I don't understand what you mean?

If it is not logging in, than fill in the 'declareplayerz'.

great script, runs very smooth, only sometimes does it click elsewhere by mistake or finds another gangplank isntead of the lander…..i use this for the high level lander. I know the colors of all the planks are the same, but maybe some kind of fail safe to keep you outside of the correct lander would allow a person to select which lander they would like to constantly use, just a suggestion, i dont think that would be a very simple feat, but could be a future idea. Otherwise works very long very well. 9.2 outta 10

I was having trouble with it trying to click the gangplank.. I noticed in the script that you are using "isuptext" for the gangplank, when you should use "waituptext", because if you do isuptext, then it will click as soon as isuptext is there, but if the mouse is moving around really fast, sometimes it will think that it is over the gangplank, but in reality, it just moved the mouse over it, so it just clicks some random area. But Waituptext will move the mouse to the area, wait for the uptext. I used WaitUpText with a 1 second wait time and it boards the lander almost flawlessly now… I also made it to where it wouldn't make the camera angle low, that way it won't even see the other gangplanks.

From: joker123
how i let it login automatic with my pass and user? anyone help

I just died laughing.

From: xxx toxin xxx
i just died laughing.

rofl!

From: dgpro
not working well for me :'(

What is wrong?

Working pretty flawless will post a proddy soon, only thing you should change is the spam clicking and the world, it doesnt join a PC world.

From: bayeasy
Working pretty flawless will post a proddy soon, only thing you should change is the spam clicking and the world, it doesnt join a PC world.

For the SpamClicking, declare 'false' instead of 'true' for Fast500 (located under the const), it will slow it down, although you may not get all your 500 exp.

And I made a join quick world feature for next update :D

From: P1nky
For the SpamClicking, declare 'false' instead of 'true' for Fast500 (located under the const), it will slow it down, although you may not get all your 500 exp.

And I made a join quick world feature for next update :D

sounds good, im getting around 3000 exp per round

From: bayeasy
sounds good, im getting around 3000 exp per round

That's crazy good Mate, a lot of people using this script, trouble getting their 500.

great still working never let me down =D

Id like to report a problem with the camera angle. When you change the camera angle to as low to the ground as possible, it makes the script more likely to click the wrong area and run off far away from the lander. The bot is set to lower the camera angle and then search for the plank and sometimes it will lower the angle and this will block the plank or the bot will click far in the distance on something similar brown and run far away from the boat. I feel like this could be completely avoided if the camera angle was set not to rotate all the way down when searching for the gangplank. I tried removing the code that did this part of the procedure myself but i could not quite get it to avoid doing that. The older versions kept the camera angle way over the player looking down and this was optimal for continuously entering the same boat and not running anywhere. I hope this will help you with your future versions.

Edit: I edited the code to where it would not change the camera angle when searching for the plank and now i think it will work just fine, but i have also been having an issue where the bot will run my character to the far SW corner of the void area and sit there since there are no shifters to attack. This has only started happening today, and occurred before i began messing with the code, so it must be a change to the game, and also i downloaded the script new to see if it still occurred and it does it every time, and i cannot get points while it does this, i hope you can find a solution.

Edit: I believe it would have something to do with the DTM you have set up for Spot2

Edit: sorry for all the edits, but i solved the problem by replacing the DTM for step 2 with a DTM of step 2 of one of your older versions (D to be specific) and this made (E) work just fine. I guess that may mean there is something a bit wrong with the Step two of version E im not completely sure. I really hope this can help you out some. Just ask if you have any questions about what i am trying to say if it wasnt written very understandably.

I've been watching it for a few minutes, done a whole match so far and it's doing very well.

Only problem is there's too many people in the middle killing shifters, but that's not really the bot's fault.

It had trouble crossing the plank because of the angle of the camera getting the people's name in the way of the plank, might want to fix that :x

Doesn't click the boots :o

Howmuch pc points u guys get/hr (in 100+ boat) ?
average

From: rebeltjeh
Howmuch pc points u guys get/hr (in 100+ boat) ?
average

I generally get 400 commendations per 6 hour run, sometimes less sometimes more, depending on how the players that youre playing with do as far as winning. So about 100 wins overall, which would estimate maybe 170 or 200 games overall played. Again, this is with the highest level lander

so basicly it's not viable to run this script for experience?

From: lkymn
I've been watching it for a few minutes, done a whole match so far and it's doing very well.

Only problem is there's too many people in the middle killing shifters, but that's not really the bot's fault.

It had trouble crossing the plank because of the angle of the camera getting the people's name in the way of the plank, might want to fix that :x

lkymn you can stop the script from lowering that camera angle all the way down and avoid the problem completely by removing line KeyDown(VK_Down); from procedure Plank. This will stop the lowering of the camera without effecting anything else. If you have any questions about this simply PM me. This applies to anyone that would like to stop the script from lowering the camera angle.

From: rebeltjeh
so basicly it's not viable to run this script for experience?

well it would depend on the level your skill is at, but generally speaking its best used for getting voidknight and prayer xp. I personally use it for prayer experience and go up a level every day, which is kind of slow, but considering prayer is 200m for lvl 99. I think its probably the best prayer training that is free. As for other combat skills, its still viable training because it doesnt require food or worry of dying, you can wear full voidknight get bonus combat damage and use prayers and specials during the games, so you can train your combat during the games, and also get 400 commendations per 6 hours.

At lvl 83 strength, you can spend commendations to get 385xp per, if you buy the xp in sets of 100 you get a 10% bonus. This would then be equivalent to spending 440 commendations on strength. 440 X 385 = 169,400 . for 6 hours, 169,400 / 6 = 28,233 xp per hour, not including the combat xp you get from actually doing damage within the game.

Also, this is helpful for people who wish to level their skills, and not level their hitpoints too much to remain at a lower level, such as pures. (note, your hitpoints will still be leveled some, just not nearly as much)

sometimes it will hover the mouse over a tree stump as if it were one of the pests.

From: Triblouge
sometimes it will hover the mouse over a tree stump as if it were one of the pests.

This is a common problem with color bots, searching for something that has a specific color with tolerances to that color will sometimes result in the bot finding a different item with a very similar color within it. Just make sure that the brightness is all the way up and youre on fixed screen low detail in the graphics. I would say that the bot is finding the tree stump because of the height of them being similar to a shifter and possibly there is some yellow in the tree stump that resembles the yellow shifters. And since at times the bot is searching for colors that arent there because there are no shifters nearby, then it will find colors in other items that are the same. All in all, this shouldnt cause too much problem with the whole script as long as it doesnt constantly stand at the stump attempting to attack it and ignore everything else. Though this problem could be helpful in pinky's development of his newer version of the script.

Which one do I download ? a b c d e ?? :o

From: helpbuyjtag
Which one do I download ? a b c d e ?? :o

E is the most recent version

Oh thanks haha

Anyone know why alot of times my guy will run off the middle platform to the front gate and just stand there?

From: qeeked
Anyone know why alot of times my guy will run off the middle platform to the front gate and just stand there?

and weren't you the one saying my script keylogged you?

Thanks dude i ran it for 2 hours w/o problems

:/ um, it says "SRL Compiled in 0 msec
SMART Initialized.
Loaded: Server 17, Members: False, Signed: True, Super Detail: False. help anyone?

Im trying to get it to do veteran but keeps going to intermediate, do I need to change something in script? Or is it just made for intermediate?

From: InH
Im trying to get it to do veteran but keeps going to intermediate, do I need to change something in script? Or is it just made for intermediate?

well its not made for any boat specifically, its just that the planks are all the same color and the bot finds the other planks of other boats. I believe a solution to your problem would be to make it not change the angle of the camera so low, so it wont be able to see other planks and only the plank at the lander you stand at. If you go into the code and delete the line that says
keydown (vk_down) ; in the procedure named plank, and then move your camera angle looking straight down at the plank of your lander, then the script should work just fine and never have a problem of finding another landers plank instead of the one you start standing at. Any questions, ask me

From: brentrobbins
well its not made for any boat specifically, its just that the planks are all the same color and the bot finds the other planks of other boats. I believe a solution to your problem would be to make it not change the angle of the camera so low, so it wont be able to see other planks and only the plank at the lander you stand at. If you go into the code and delete the line that says
keydown (vk_down) ; in the procedure named plank, and then move your camera angle looking straight down at the plank of your lander, then the script should work just fine and never have a problem of finding another landers plank instead of the one you start standing at. Any questions, ask me

Didn't need to tell me, but thanks. Was just seeing if it was for a certain one.

GOt it working now
||===========================||
|| P1nkys PestController ||
||===========================||
|| February 27th, 2012 ||
||===========================||
Worked For 6 Minutes and 6 Seconds
Games Played 3
||===========================||


Now it sometimes gets stuck on how many points I have after game. =/

From: raptorstewie
:/ um, it says "SRL Compiled in 0 msec
SMART Initialized.
Loaded: Server 17, Members: False, Signed: True, Super Detail: False. help anyone?

Wait couple mins.

From: InH

||===========================||
|| P1nkys PestController ||
||===========================||
|| February 27th, 2012 ||
||===========================||
Worked For 6 Minutes and 6 Seconds
Games Played 3
||===========================||


Now it sometimes gets stuck on how many points I have after game. =/

Elaborate please.

hey p1nky using this to get me full Void now :)

From: P1nky
Wait couple mins.



Elaborate please.

when I have enough for a void piece that msg pops up and it gets stuck.

From: InH
when I have enough for a void piece that msg pops up and it gets stuck.

What message

Dunno what happened to the script but it stopped working after an hour now it just saved a screenshot to my desktop that says it died but its just stuck in the boat..i think jagex changed the colors or something cuz i tried 2 different scripts and none of em works for more than an hour

From: P1nky
What message

erm like saying you have 900 points or w/e u got.

@other nah make sure u use like 70% cpu usage from bar on right

i start it, it runs off the boat but goes and stands somewhere random not on the platform, it stands north north east, please fix it really annoying running for 6 hours and 3 games won..

From: tomdingo95
i start it, it runs off the boat but goes and stands somewhere random not on the platform, it stands north north east, please fix it really annoying running for 6 hours and 3 games won..

Yeah, its not clicking on planks anymore, its clicking on water or running out on the island.

Needs Faster Clicking since pests are dead before bot reacts

Running 'Almost' Fine after 3 Hours, 40 points[3hr], Reason because of Picture below, constantly just sits there spam clicking this tree stump.

This script seems very attached to water and blue colors in general now, possibly off because of the game update, but I'm unsure.
Anubis

Just did a fast fix (fixed colors, better chance getting 500 now :) ), please test let me know:

program PestControllerBETA;
{$DEFINE SMART}
{$i srl\srl.simba}
  {.include SRL/SRL/Skill/Fighting.simba}

  //P1nky's PestController
  //BETA Version

  //Make sure to have Auto Retiable off.
  //Set Character Outside the Boat.
  const
  SpecialAttacks = False;
  QuickPrayer = False; //Make sure to have Quick Prayer Set!
  Faster500 = True; //Having trouble getting your '500'? Well this will help you get over it!
  SRLStats_Username = '';  // Your SRL Stats Username (Optional) Register here: [url]http://stats.villavu.com/[/url]
  SRLStats_Password = '';// Your SRL Stats Password (Optional) Register here: [url]http://stats.villavu.com/[/url]

procedure DeclarePlayerz;
begin
  HowManyPlayers := 1;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;
  Players[0].Name := ''; //Your Runescape username
  Players[0].Pass := ''; //Your Runescape password
  Players[0].Active := True; //Set to true if you want to use this player. Set to False to disable this player.
  Players[0].Pin := ''; //Leave blank if the player doesn't have a Bank PIN.
 end;

var
Reward, games, win, lost, Rp, Pp, Yp, yellow, white, LeftGate, DTMSPOT2, DTMSPOT3, DTMSPOT, x, y, counter: integer;

procedure FindRandoms;
begin
  if not (LoggedIn) or not (Players[CurrentPlayer].Active) then
  NextPlayer(True);
  FindNormalRandoms;
  wait(Random(100) + 20);
  FindLamp('Woodcutting');
end;

function Step1: Integer;
var
  dtmMainPoint: TDTMPointDef;
  dtmSubPoints: array [0..4] of TDTMPointDef;
  TempTDTM: TDTM;
begin
  dtmMainPoint.x := 933;
  dtmMainPoint.y := 115;
  dtmMainPoint.AreaSize := 3;
  dtmMainPoint.AreaShape := 0;
  dtmMainPoint.Color := 1452869;
  dtmMainPoint.Tolerance := 20;
  dtmSubPoints[0].x := 933;
  dtmSubPoints[0].y := 115;
  dtmSubPoints[0].AreaSize := 3;
  dtmSubPoints[0].AreaShape := 0;
  dtmSubPoints[0].Color := 1452869;
  dtmSubPoints[0].Tolerance := 20;
  dtmSubPoints[1].x := 933;
  dtmSubPoints[1].y := 121;
  dtmSubPoints[1].AreaSize := 3;
  dtmSubPoints[1].AreaShape := 0;
  dtmSubPoints[1].Color := 4357778;
  dtmSubPoints[1].Tolerance := 20;
  dtmSubPoints[2].x := 923;
  dtmSubPoints[2].y := 114;
  dtmSubPoints[2].AreaSize := 3;
  dtmSubPoints[2].AreaShape := 0;
  dtmSubPoints[2].Color := 2844546;
  dtmSubPoints[2].Tolerance := 20;
  dtmSubPoints[3].x := 931;
  dtmSubPoints[3].y := 104;
  dtmSubPoints[3].AreaSize := 3;
  dtmSubPoints[3].AreaShape := 0;
  dtmSubPoints[3].Color := 2513523;
  dtmSubPoints[3].Tolerance := 20;
  dtmSubPoints[4].x := 941;
  dtmSubPoints[4].y := 114;
  dtmSubPoints[4].AreaSize := 3;
  dtmSubPoints[4].AreaShape := 0;
  dtmSubPoints[4].Color := 5218735;
  dtmSubPoints[4].Tolerance := 20;
  TempTDTM.MainPoint := dtmMainPoint;
  TempTDTM.SubPoints := dtmSubPoints;
  Result := AddDTM(TempTDTM);
end;

function Step2: Integer;
var
  dtmMainPoint: TDTMPointDef;
  dtmSubPoints: array [0..4] of TDTMPointDef;
  TempTDTM: TDTM;
begin
  dtmMainPoint.x := 901;
  dtmMainPoint.y := 138;
  dtmMainPoint.AreaSize := 1;
  dtmMainPoint.AreaShape := 0;
  dtmMainPoint.Color := 65535;
  dtmMainPoint.Tolerance := 25;
  dtmSubPoints[0].x := 901;
  dtmSubPoints[0].y := 138;
  dtmSubPoints[0].AreaSize := 1;
  dtmSubPoints[0].AreaShape := 0;
  dtmSubPoints[0].Color := 65535;
  dtmSubPoints[0].Tolerance := 25;
  dtmSubPoints[1].x := 902;
  dtmSubPoints[1].y := 133;
  dtmSubPoints[1].AreaSize := 1;
  dtmSubPoints[1].AreaShape := 0;
  dtmSubPoints[1].Color := 2714760;
  dtmSubPoints[1].Tolerance := 25;
  dtmSubPoints[2].x := 907;
  dtmSubPoints[2].y := 139;
  dtmSubPoints[2].AreaSize := 1;
  dtmSubPoints[2].AreaShape := 0;
  dtmSubPoints[2].Color := 2714760;
  dtmSubPoints[2].Tolerance := 25;
  dtmSubPoints[3].x := 901;
  dtmSubPoints[3].y := 145;
  dtmSubPoints[3].AreaSize := 1;
  dtmSubPoints[3].AreaShape := 0;
  dtmSubPoints[3].Color := 2714760;
  dtmSubPoints[3].Tolerance := 25;
  dtmSubPoints[4].x := 896;
  dtmSubPoints[4].y := 137;
  dtmSubPoints[4].AreaSize := 1;
  dtmSubPoints[4].AreaShape := 0;
  dtmSubPoints[4].Color := 2714760;
  dtmSubPoints[4].Tolerance := 25;
  TempTDTM.MainPoint := dtmMainPoint;
  TempTDTM.SubPoints := dtmSubPoints;
  Result := AddDTM(TempTDTM);
end;

function Step3: Integer;
var
  dtmMainPoint: TDTMPointDef;
  dtmSubPoints: array [0..4] of TDTMPointDef;
  TempTDTM: TDTM;
begin
  dtmMainPoint.x := 741;
  dtmMainPoint.y := 175;
  dtmMainPoint.AreaSize := 0;
  dtmMainPoint.AreaShape := 0;
  dtmMainPoint.Color := 863541;
  dtmMainPoint.Tolerance := 15;
  dtmSubPoints[0].x := 741;
  dtmSubPoints[0].y := 175;
  dtmSubPoints[0].AreaSize := 0;
  dtmSubPoints[0].AreaShape := 0;
  dtmSubPoints[0].Color := 863541;
  dtmSubPoints[0].Tolerance := 15;
  dtmSubPoints[1].x := 739;
  dtmSubPoints[1].y := 173;
  dtmSubPoints[1].AreaSize := 0;
  dtmSubPoints[1].AreaShape := 0;
  dtmSubPoints[1].Color := 16249839;
  dtmSubPoints[1].Tolerance := 15;
  dtmSubPoints[2].x := 744;
  dtmSubPoints[2].y := 169;
  dtmSubPoints[2].AreaSize := 0;
  dtmSubPoints[2].AreaShape := 0;
  dtmSubPoints[2].Color := 2976616;
  dtmSubPoints[2].Tolerance := 15;
  dtmSubPoints[3].x := 737;
  dtmSubPoints[3].y := 169;
  dtmSubPoints[3].AreaSize := 0;
  dtmSubPoints[3].AreaShape := 0;
  dtmSubPoints[3].Color := 2841950;
  dtmSubPoints[3].Tolerance := 15;
  dtmSubPoints[4].x := 734;
  dtmSubPoints[4].y := 173;
  dtmSubPoints[4].AreaSize := 0;
  dtmSubPoints[4].AreaShape := 0;
  dtmSubPoints[4].Color := 16249839;
  dtmSubPoints[4].Tolerance := 15;
  TempTDTM.MainPoint := dtmMainPoint;
  TempTDTM.SubPoints := dtmSubPoints;
  Result := AddDTM(TempTDTM);
end;

procedure ReportScreen(TP: TStringArray; Placement: TPoint; Colour: integer);
var
  mx, my, Pic, I, B, H, TPH, Numb: Integer;
  TTP: TPointArray;
  Canvas: TCanvas;
begin
  SmartSetDebug(True);
  GetClientDimensions(mx, my);
  Pic := BitmapFromString(mx, my, '');
  TPH := High(TP);
  for I := 0 to TPH do
  begin
    TTP := LoadTextTPA(TP[i], SmallChars, H);
    for B := 0 to High(TTP) do
    begin
      Numb := ((I + 1) * 13);
      FastSetPixel(Pic, TTP[b].x + 1, TTP[b].y + Numb + 1, 8388736);
      FastSetPixel(Pic, TTP[b].x, TTP[b].y + Numb, Colour);
    end;
  end;
  Canvas := TCANVAS.Create;
  Canvas.Handle := SmartGetDebugDC;
  DrawBitmap(Pic, Canvas, Placement.x, Placement.y);
  FreeBitmap(Pic);
end;

procedure ReportSmart;
begin
  ReportScreen(['P1nkys PestController', '', 'Worked For ' + TimeRunning, '', 'Games Played ' + IntToStr(Games)], Point(350, 223), 255);
end;

procedure SPOT1;
begin
  Status('Spot 1');
  SetRun(True);
  MakeCompass('S');
  DTMSPOT := Step1;
  if DTMRotated(DTMSPOT, X, Y, MMX1, MMY1, MMX2, MMY2) then
    MMouse(x, y, 0, 0);
  wait(Random(100) + 20);
  Mouse(x, y, 0, 0, True);
  FFlag(0);
  wait(Random(1000) + 500);
end;

procedure SPOT2;
begin
  Status('Spot 2');
  MakeCompass('S');
  DTMSPOT2 := Step2;
  if DTMRotated(DTMSPOT2, X, Y, MMX1, MMY1, MMX2, MMY2) then
    MMouse(x, y, 0, 0);
  wait(Random(100) + 20);
  Mouse(x, y, 0, 0, True);
  FFlag(0);
  wait(1300);
end;

function AwayFromVoid: boolean;
var
  C: Integer;
begin
  C := 42342;
  if not (C > 4) then
  begin
    result := false;
    exit;
    TerminateScript;
  end
  else
    result := true;
  Spot1;
end;

function Clan: boolean;
var
  X, Y: Integer;
begin
  Result := (FindColor(X, Y, 3226804, 460, 30, 461, 29));
end;

function RewardBox: Boolean;
begin
  if (Clan) then
  begin
    Mouse(475, 29, 1, 1, True);
  end;
  if FindColorTolerance(x, y, 986895, 134, 96, 435, 334, 1) then
  begin
    Result := True;
    Mouse(392, 60, 0, 0, true);
    Reward := Reward + 1;
  end
  else
    Result := False;
end;

procedure WinOrLose;
begin
  Status('Checking if Win Game Or Lose');
  RewardBox;
  MakeCompass('S');
  ReportSmart;
  if FindNPCChatText('Congratulations!', True) then
  begin
    win := win + 1;
    stats_IncVariable('PC Points Earned', 2);
    exit;
  end
  else if FindNPCChatText('noticed', True) or FindNPCChatText('lost.', True) then
  begin
    lost := lost + 1;
    exit;
  end
  else
  begin
    exit;
  end;
end;

function InBoat: Boolean;
begin
  result := (getColor(19, 30) = 13421772) and (getColor(19, 51) = 3265113);
end;

function NPC: Boolean;
begin
  FindRandoms;
  if FindNPCChatText('ritual', True) or FindNPCChatText('Congratulations!', True) or FindNPCChatText('knights', True) or FindNPCChatText('lost.', True) or FindText(x, y, 'attle', UpChars, MCX1, MCY1, MCX2, MCY2) or FindText(x, y, 'defend the Void Knight', UpChars, MCX1, MCY1, MCX2, MCY2) then
  begin
    Result := True;
    Writeln('NPC Message Detected!');
    if (FindColorSpiralTolerance(x, y, 540186, 136, 379, 415, 470, 25)) then
      Status('NPC Message');
    MMouse(x, y, 0, 0);
    wait(Random(200) + 20);
    Mouse(x, y, 0, 0, true);
    WinOrLose;
  end
  else
    Result := False;
end;

procedure RandomButton;
begin
  if not (Faster500) then
    case Random(3) of
      0:
        begin
          KeyDown(VK_Left);
          wait(Random(600) + 500);
          KeyUp(VK_Left);
        end;
      1:
        begin
          KeyDown(VK_Right);
          wait(Random(600) + 500);
          KeyUp(VK_Right);
        end;
      2:
        begin
          KeyDown(VK_Up);
          wait(Random(200) + 500);
          KeyUp(VK_Up);
        end;
    end;
  if (Faster500) then
    case Random(5) of
      0:
        begin
          KeyDown(VK_Left);
          wait(Random(200) + 20);
          KeyUp(VK_Left);
        end;
      1:
        begin
          KeyDown(VK_Right);
          wait(Random(200) + 20);
          KeyUp(VK_Right);
        end;
      2:
        begin
          wait(Random(100) + 20);
        end;
      3:
        begin
          wait(Random(100) + 20);
        end;
      4:
        begin
          wait(Random(100) + 20);
        end;
    end;
end;

procedure Report;
var
  Answer, WC: Integer;
begin
  if not (LoggedIn) or not (Players[CurrentPlayer].Active) then
    NextPlayer(True);
  cleardebug;
  SRLRandomsReport;
  Writeln('||===========================||');
  Writeln('||   P1nkys PestController   ||');
  Writeln('||===========================||');
  Writeln('||    ' + TheDate(Date_Formal) + '    ||');
  Writeln('||===========================||');
  Writeln(' Worked For ' + TimeRunning);
  Writeln(' Games Played ' + IntToStr(Games));
  Writeln('||===========================||');
  ReportSmart;
  Stats_Commit;
end;

procedure AntiBan;
var
  NoBan: Integer;
begin
  Noban := Random(18);
  case Move of
    0: MMouse(x, y, (10 + random(350)), (10 + random(200)));
    1: MMouse(x, y, (10 + random(400)), (10 + random(600)));
    2: MMouse(x, y, (10 + random(550)), (10 + random(400)));
    3: MMouse(x, y, (10 + random(500)), (10 + random(400)));
    4: MMouse(Random(MSX2), Random(MSY2), 0, 0);
    5: RandomRclick;
    6: RandomButton;
    10: setangle(1)
  end;
end;

function InGame: Boolean;
begin
  result := (getColor(370, 74) = 16711935) and (getColor(404, 70) = 16737894);
end;

procedure BoatWait;
begin
  if not (LoggedIn) or not (Players[CurrentPlayer].Active) then
    NextPlayer(True);
  repeat
    Status('Waiting In Boat');
    ReportSmart;
    RandomButton;
    FindRandoms;
    Report;
    wait(Random(100) + 20);
  until (NPC) or (Ingame);
  Games := Games + 1;
  exit;
end;

function FindBoard(x, y: Integer): Boolean;
var
  CTS, I: Integer;
  TPA: TPointArray;
  ATPA: array of TPointArray;
begin
  CTS := GetColorToleranceSpeed;
  ColorToleranceSpeed(1);
  SetColorSpeed2Modifiers(1, 3);
  FindColorsSpiralTolerance(MSCX, MSCY, TPA, 4942983, MSX1, MSY1, MSX2, MSY2, 3);
  ColorToleranceSpeed(CTS);
  ATPA := TPAToATPAEx(TPA, 2, 2);
  for I := 0 to High(ATPA) do
  begin
    MiddleTPAEx(ATPA[i], x, y);
    MMouse(x, y, 1, 1);
    if (IsUpTextMultiCustom(['Gangplank'])) then
    begin
      Result := True;
      GetMousePos(x, y);
      Break;
    end;
  end;
end;

procedure Plank;
begin
  if not (LoggedIn) or not (Players[CurrentPlayer].Active) then
    NextPlayer(True);
  Status('Searching For Plank');
  WinOrLose;
  MakeCompass('S');
  FindRandoms;
  begin
    KeyDown(VK_Down);
    wait(Random(650) + 500);
    KeyUp(VK_Down);
  end;
  repeat
    RewardBox;
    ReportSmart;
    if not RewardBox then
      if FindBoard(x, y) then
        Status('Looking for Plank');
    wait(200 + random(232));
    if Isuptext('angplank') then
      ClickMouse2(true);
  until (FindBlackChatMessage('You board the lander') or (ingame) or FindBlackChatMessage('reach that') or (InBoat)) Setangle(0);
  FindRandoms;
  Report;
  NPC;
  exit;
end;

function Range: Boolean;
begin
  if (FindColorSpiralTolerance(x, y, 5372475, 267, 132, 292, 160, 1)) then
  begin
    Result := True;
    Writeln('TRUE');
  end
  else
    Result := False;
  Writeln('False');
end;

var
  qp: integer;

procedure QPrayer;
begin
  if QuickPrayer then
    QP := DTMFromString('mbQAAAHicY2VgYFBmZGBQAmItKC0JxGuA4kuBeB0QbwXi9UB88+1dhrVbNoAxiB1h38yADTBiwWAAAKBQDp8=');
  if FindDTM(QP, x, y, 701, 52, 733, 79) then
  begin
    MMouse(x, y, 0, 0);
    Mouse(x, y, 0, 0, true);
  end
  else
    exit;
end;

procedure SpecAttack;
begin
  if SpecialAttacks then
  begin
    Writeln('Toggling Special');
    Status('Special Attack ON');
    MouseBox(528, 179, 545, 195, 1);
    begin
      if (FindColorSpiralTolerance(x, y, 3566664, 545, 208, 738, 430, 25)) then
        Status('Special');
      MMouse(x, y, 0, 0);
      wait(Random(100) + 20);
      Mouse(x, y, 0, 0, true);
    end;
  end;
end;

function EFindObjCustom(var cx, cy: Integer; Text: TStringArray; Color: TIntegerArray; Tol: Integer): Boolean;
begin
  Result := FindObjEx(cx, cy, Text, Color, Tol, 50, 33, 134, 542, 465);
end;

procedure FightPests;
var
  Z, R, CTS: Integer;
begin
  Status('Fighting Pests');
  if not (EFindObjCustom(x, y, ['hifter', 'Shifte', 'Shifter', 'hift'], [2108184, 5051472, 3228504, 4942983], 3)) then
  begin
    if (counter > 1000) then
    begin
      Report;
      counter := 0;
    end;
    R := Random(4);
    case R of
      0: RandomButton;
      1: wait(Random(25) + 20);
      2: wait(Random(25) + 20);
      3: wait(Random(25) + 20);
    end;
    Exit;
  end
  else
    Mmouse(x, y, 0, 0);
  wait(Random(100) + 20);
  if isuptext('ttac') then
  begin
    if not Faster500 then
    begin
      Mouse(x, y, 0, 0, False);
      ChooseOption('ttack');
    end
    else
    begin
      Mouse(x, y, 0, 0, true);
      wait(random(500) + 100);
    end;
    if Faster500 then
    begin
      wait(Random(100) + 20);
      Report;
    end
    else
      wait(2000);
    Report;
  end;
end;

function Portal(Name: string): Boolean;
begin
  case Name of
    'red':
      if (FindBlackChatMessage('south-western')) then
      begin
        Result := True;
        Writeln('Red Portal Shield Down!');
        Exit;
      end
    else
      Result := False;
    'yellow':
      if (FindBlackChatMessage('south-eastern')) then
      begin
        Result := True;
        Writeln('Yellow Portal Shield Down!');
        Exit;
      end
    else
      Result := False;
  end;
end;


procedure FreeDTMS;
begin
  FreeDTM(step1);
  FreeDTM(step2);
  FreeDTM(step3);
end;

begin
  Disguise('P1nky PestController');
  ClearDebug;
  ClearReport;
  Smart_Server := 17;
  Smart_Members := false;
  Smart_Signed := true;
  Smart_SuperDetail := false;
  begin
    if (SRLStats_Username = '') then
      SetupSRLStats(654, 'Anonymous', 'anon1337')
    else
      SetupSRLStats(654, SRLStats_Username, SRLStats_Password);
    SetUpSRL;
    declareplayerz;
    ActivateClient;
    counter := 0;
    ClearDebug;
    LoginPlayer;
    Inc(counter);
    repeat
      begin
        FreeDTMS;
        NPC;
        Report;
        Plank;
        BoatWait;
        begin
          Spot1;
          Spot2;
          begin
            SpecAttack;
            QPrayer;
          end;
          repeat
            FightPests
          until not (Ingame);
        end;
      end;
    until (false);
  end;
end.

Will make official release tomorrow after few more tweaks!

new one works good but spam clicks void(Not void guy anymore just full void armour)

The script terminates when the player dies. Any fixes for that?

Awesome script btw:)

From: CreaShun
The script terminates when the player dies. Any fixes for that?

Awesome script btw:)

Yes, dont die :D

I will test the new script when I get home, but does that mean that jagex DID change the colours?

Amg… just what I wanted to come home too..

Status: \~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~/
||===========================||
|| P1nkys PestController ||
||===========================||
|| February 29th, 2012 ||
||===========================||
Worked For 6 Hours, 3 Minutes and 55 Seconds
Games Played 5
||===========================||

With your beta update. BTW.

(Oh nvm, i forgot to change some of the code, it went in the wrong lander thing)

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]

said something about fkey function highlighted when i tried to run the script

From: P1nky
Proggies:

[PHP]

||===========================||
|| P1nkys PestController ||
||===========================||
|| February 14th, 2012 ||
||===========================||
Worked For 11 Hours, 57 Minutes and 43 Seconds
Games Played 250
||===========================||


||===========================||
|| P1nkys PestController ||
||===========================||
|| February 9th, 2012 ||
||===========================||
Worked For 9 Hours, 18 Minutes and 43 Seconds
Games Played 159
||===========================||

||===========================||
|| P1nkys PestController ||
||===========================||
|| February 1st, 2012 ||
||===========================||
Worked For 6 Hours, 8 Minutes and 37 Seconds
Games Played 112
Won 71 Games
Lose 6 Games
||===========================||
||===========================||
||===========================||
Got 194 points
NextPlayer(False)

||===========================||
||   P1nkys PestController   ||
||===========================||
||    February 4th, 2012    ||
||===========================||
 Worked For 6 Hours, 12 Seconds
 Games Played 107
 Won 90 Games 
 Lose 8 Games 
||===========================||
||===========================||
||===========================||

||===========================||
||   P1nkys PestController   ||
||===========================||
||    February 4th, 2012    ||
||===========================||
 Worked For 6 Hours, 31 Seconds
 Games Played 124
 Won 159 Games 
 Lose 10 Games 
 Reward 44
||===========================||
||===========================||
||===========================||[/PHP][/QUOTE]


nice, does everybody has same as me? "client token error" after like 3-6hrs?
it seems like you can run for 11 hrs a row

From: werder

||===========================||
||   P1nkys PestController   ||
||===========================||
||    February 4th, 2012    ||
||===========================||
 Worked For 6 Hours, 12 Seconds
 Games Played 107
 Won 90 Games 
 Lose 8 Games 
||===========================||
||===========================||
||===========================||

||===========================||
||   P1nkys PestController   ||
||===========================||
||    February 4th, 2012    ||
||===========================||
 Worked For 6 Hours, 31 Seconds
 Games Played 124
 Won 159 Games 
 Lose 10 Games 
 Reward 44
||===========================||
||===========================||
||===========================||[/PHP]

nice, does everybody has same as me? "client token error" after like 3-6hrs?
it seems like you can run for 11 hrs a row
they added/had breaks taken.. If you have your account logout and sit in lobby for a while it kind've bypasses this I believe.

I am 100 cb and it doesnt want to get in vetern boat
it goes to intermediate when i am standing next to the vetern one
any help?

From: Holako
I am 100 cb and it doesnt want to get in vetern boat
it goes to intermediate when i am standing next to the vetern one
any help?

Remove VK_Down in the "Plank" part of the script.

Just removed it quick, hope you don't mind P1nky.

program PestControllerBETA;
{$DEFINE SMART}
{$i srl\srl.simba}
  {.include SRL/SRL/Skill/Fighting.simba}

  //P1nky's PestController
  //BETA Version

  //Make sure to have Auto Retiable off.
  //Set Character Outside the Boat.
  const
  SpecialAttacks = False;
  QuickPrayer = False; //Make sure to have Quick Prayer Set!
  Faster500 = True; //Having trouble getting your '500'? Well this will help you get over it!
  SRLStats_Username = '';  // Your SRL Stats Username (Optional) Register here: [url]http://stats.villavu.com/[/url]
  SRLStats_Password = '';// Your SRL Stats Password (Optional) Register here: [url]http://stats.villavu.com/[/url]

procedure DeclarePlayerz;
begin
  HowManyPlayers := 1;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;
  Players[0].Name := ''; //Your Runescape username
  Players[0].Pass := ''; //Your Runescape password
  Players[0].Active := True; //Set to true if you want to use this player. Set to False to disable this player.
  Players[0].Pin := ''; //Leave blank if the player doesn't have a Bank PIN.
 end;

var
Reward, games, win, lost, Rp, Pp, Yp, yellow, white, LeftGate, DTMSPOT2, DTMSPOT3, DTMSPOT, x, y, counter: integer;

procedure FindRandoms;
begin
  if not (LoggedIn) or not (Players[CurrentPlayer].Active) then
  NextPlayer(True);
  FindNormalRandoms;
  wait(Random(100) + 20);
  FindLamp('Woodcutting');
end;

function Step1: Integer;
var
  dtmMainPoint: TDTMPointDef;
  dtmSubPoints: array [0..4] of TDTMPointDef;
  TempTDTM: TDTM;
begin
  dtmMainPoint.x := 933;
  dtmMainPoint.y := 115;
  dtmMainPoint.AreaSize := 3;
  dtmMainPoint.AreaShape := 0;
  dtmMainPoint.Color := 1452869;
  dtmMainPoint.Tolerance := 20;
  dtmSubPoints[0].x := 933;
  dtmSubPoints[0].y := 115;
  dtmSubPoints[0].AreaSize := 3;
  dtmSubPoints[0].AreaShape := 0;
  dtmSubPoints[0].Color := 1452869;
  dtmSubPoints[0].Tolerance := 20;
  dtmSubPoints[1].x := 933;
  dtmSubPoints[1].y := 121;
  dtmSubPoints[1].AreaSize := 3;
  dtmSubPoints[1].AreaShape := 0;
  dtmSubPoints[1].Color := 4357778;
  dtmSubPoints[1].Tolerance := 20;
  dtmSubPoints[2].x := 923;
  dtmSubPoints[2].y := 114;
  dtmSubPoints[2].AreaSize := 3;
  dtmSubPoints[2].AreaShape := 0;
  dtmSubPoints[2].Color := 2844546;
  dtmSubPoints[2].Tolerance := 20;
  dtmSubPoints[3].x := 931;
  dtmSubPoints[3].y := 104;
  dtmSubPoints[3].AreaSize := 3;
  dtmSubPoints[3].AreaShape := 0;
  dtmSubPoints[3].Color := 2513523;
  dtmSubPoints[3].Tolerance := 20;
  dtmSubPoints[4].x := 941;
  dtmSubPoints[4].y := 114;
  dtmSubPoints[4].AreaSize := 3;
  dtmSubPoints[4].AreaShape := 0;
  dtmSubPoints[4].Color := 5218735;
  dtmSubPoints[4].Tolerance := 20;
  TempTDTM.MainPoint := dtmMainPoint;
  TempTDTM.SubPoints := dtmSubPoints;
  Result := AddDTM(TempTDTM);
end;

function Step2: Integer;
var
  dtmMainPoint: TDTMPointDef;
  dtmSubPoints: array [0..4] of TDTMPointDef;
  TempTDTM: TDTM;
begin
  dtmMainPoint.x := 901;
  dtmMainPoint.y := 138;
  dtmMainPoint.AreaSize := 1;
  dtmMainPoint.AreaShape := 0;
  dtmMainPoint.Color := 65535;
  dtmMainPoint.Tolerance := 25;
  dtmSubPoints[0].x := 901;
  dtmSubPoints[0].y := 138;
  dtmSubPoints[0].AreaSize := 1;
  dtmSubPoints[0].AreaShape := 0;
  dtmSubPoints[0].Color := 65535;
  dtmSubPoints[0].Tolerance := 25;
  dtmSubPoints[1].x := 902;
  dtmSubPoints[1].y := 133;
  dtmSubPoints[1].AreaSize := 1;
  dtmSubPoints[1].AreaShape := 0;
  dtmSubPoints[1].Color := 2714760;
  dtmSubPoints[1].Tolerance := 25;
  dtmSubPoints[2].x := 907;
  dtmSubPoints[2].y := 139;
  dtmSubPoints[2].AreaSize := 1;
  dtmSubPoints[2].AreaShape := 0;
  dtmSubPoints[2].Color := 2714760;
  dtmSubPoints[2].Tolerance := 25;
  dtmSubPoints[3].x := 901;
  dtmSubPoints[3].y := 145;
  dtmSubPoints[3].AreaSize := 1;
  dtmSubPoints[3].AreaShape := 0;
  dtmSubPoints[3].Color := 2714760;
  dtmSubPoints[3].Tolerance := 25;
  dtmSubPoints[4].x := 896;
  dtmSubPoints[4].y := 137;
  dtmSubPoints[4].AreaSize := 1;
  dtmSubPoints[4].AreaShape := 0;
  dtmSubPoints[4].Color := 2714760;
  dtmSubPoints[4].Tolerance := 25;
  TempTDTM.MainPoint := dtmMainPoint;
  TempTDTM.SubPoints := dtmSubPoints;
  Result := AddDTM(TempTDTM);
end;

function Step3: Integer;
var
  dtmMainPoint: TDTMPointDef;
  dtmSubPoints: array [0..4] of TDTMPointDef;
  TempTDTM: TDTM;
begin
  dtmMainPoint.x := 741;
  dtmMainPoint.y := 175;
  dtmMainPoint.AreaSize := 0;
  dtmMainPoint.AreaShape := 0;
  dtmMainPoint.Color := 863541;
  dtmMainPoint.Tolerance := 15;
  dtmSubPoints[0].x := 741;
  dtmSubPoints[0].y := 175;
  dtmSubPoints[0].AreaSize := 0;
  dtmSubPoints[0].AreaShape := 0;
  dtmSubPoints[0].Color := 863541;
  dtmSubPoints[0].Tolerance := 15;
  dtmSubPoints[1].x := 739;
  dtmSubPoints[1].y := 173;
  dtmSubPoints[1].AreaSize := 0;
  dtmSubPoints[1].AreaShape := 0;
  dtmSubPoints[1].Color := 16249839;
  dtmSubPoints[1].Tolerance := 15;
  dtmSubPoints[2].x := 744;
  dtmSubPoints[2].y := 169;
  dtmSubPoints[2].AreaSize := 0;
  dtmSubPoints[2].AreaShape := 0;
  dtmSubPoints[2].Color := 2976616;
  dtmSubPoints[2].Tolerance := 15;
  dtmSubPoints[3].x := 737;
  dtmSubPoints[3].y := 169;
  dtmSubPoints[3].AreaSize := 0;
  dtmSubPoints[3].AreaShape := 0;
  dtmSubPoints[3].Color := 2841950;
  dtmSubPoints[3].Tolerance := 15;
  dtmSubPoints[4].x := 734;
  dtmSubPoints[4].y := 173;
  dtmSubPoints[4].AreaSize := 0;
  dtmSubPoints[4].AreaShape := 0;
  dtmSubPoints[4].Color := 16249839;
  dtmSubPoints[4].Tolerance := 15;
  TempTDTM.MainPoint := dtmMainPoint;
  TempTDTM.SubPoints := dtmSubPoints;
  Result := AddDTM(TempTDTM);
end;

procedure ReportScreen(TP: TStringArray; Placement: TPoint; Colour: integer);
var
  mx, my, Pic, I, B, H, TPH, Numb: Integer;
  TTP: TPointArray;
  Canvas: TCanvas;
begin
  SmartSetDebug(True);
  GetClientDimensions(mx, my);
  Pic := BitmapFromString(mx, my, '');
  TPH := High(TP);
  for I := 0 to TPH do
  begin
    TTP := LoadTextTPA(TP[i], SmallChars, H);
    for B := 0 to High(TTP) do
    begin
      Numb := ((I + 1) * 13);
      FastSetPixel(Pic, TTP[b].x + 1, TTP[b].y + Numb + 1, 8388736);
      FastSetPixel(Pic, TTP[b].x, TTP[b].y + Numb, Colour);
    end;
  end;
  Canvas := TCANVAS.Create;
  Canvas.Handle := SmartGetDebugDC;
  DrawBitmap(Pic, Canvas, Placement.x, Placement.y);
  FreeBitmap(Pic);
end;

procedure ReportSmart;
begin
  ReportScreen(['P1nkys PestController', '', 'Worked For ' + TimeRunning, '', 'Games Played ' + IntToStr(Games)], Point(350, 223), 255);
end;

procedure SPOT1;
begin
  Status('Spot 1');
  SetRun(True);
  MakeCompass('S');
  DTMSPOT := Step1;
  if DTMRotated(DTMSPOT, X, Y, MMX1, MMY1, MMX2, MMY2) then
    MMouse(x, y, 0, 0);
  wait(Random(100) + 20);
  Mouse(x, y, 0, 0, True);
  FFlag(0);
  wait(Random(1000) + 500);
end;

procedure SPOT2;
begin
  Status('Spot 2');
  MakeCompass('S');
  DTMSPOT2 := Step2;
  if DTMRotated(DTMSPOT2, X, Y, MMX1, MMY1, MMX2, MMY2) then
    MMouse(x, y, 0, 0);
  wait(Random(100) + 20);
  Mouse(x, y, 0, 0, True);
  FFlag(0);
  wait(1300);
end;

function AwayFromVoid: boolean;
var
  C: Integer;
begin
  C := 42342;
  if not (C > 4) then
  begin
    result := false;
    exit;
    TerminateScript;
  end
  else
    result := true;
  Spot1;
end;

function Clan: boolean;
var
  X, Y: Integer;
begin
  Result := (FindColor(X, Y, 3226804, 460, 30, 461, 29));
end;

function RewardBox: Boolean;
begin
  if (Clan) then
  begin
    Mouse(475, 29, 1, 1, True);
  end;
  if FindColorTolerance(x, y, 986895, 134, 96, 435, 334, 1) then
  begin
    Result := True;
    Mouse(392, 60, 0, 0, true);
    Reward := Reward + 1;
  end
  else
    Result := False;
end;

procedure WinOrLose;
begin
  Status('Checking if Win Game Or Lose');
  RewardBox;
  MakeCompass('S');
  ReportSmart;
  if FindNPCChatText('Congratulations!', True) then
  begin
    win := win + 1;
    stats_IncVariable('PC Points Earned', 2);
    exit;
  end
  else if FindNPCChatText('noticed', True) or FindNPCChatText('lost.', True) then
  begin
    lost := lost + 1;
    exit;
  end
  else
  begin
    exit;
  end;
end;

function InBoat: Boolean;
begin
  result := (getColor(19, 30) = 13421772) and (getColor(19, 51) = 3265113);
end;

function NPC: Boolean;
begin
  FindRandoms;
  if FindNPCChatText('ritual', True) or FindNPCChatText('Congratulations!', True) or FindNPCChatText('knights', True) or FindNPCChatText('lost.', True) or FindText(x, y, 'attle', UpChars, MCX1, MCY1, MCX2, MCY2) or FindText(x, y, 'defend the Void Knight', UpChars, MCX1, MCY1, MCX2, MCY2) then
  begin
    Result := True;
    Writeln('NPC Message Detected!');
    if (FindColorSpiralTolerance(x, y, 540186, 136, 379, 415, 470, 25)) then
      Status('NPC Message');
    MMouse(x, y, 0, 0);
    wait(Random(200) + 20);
    Mouse(x, y, 0, 0, true);
    WinOrLose;
  end
  else
    Result := False;
end;

procedure RandomButton;
begin
  if not (Faster500) then
    case Random(3) of
      0:
        begin
          KeyDown(VK_Left);
          wait(Random(600) + 500);
          KeyUp(VK_Left);
        end;
      1:
        begin
          KeyDown(VK_Right);
          wait(Random(600) + 500);
          KeyUp(VK_Right);
        end;
      2:
        begin
          KeyDown(VK_Up);
          wait(Random(200) + 500);
          KeyUp(VK_Up);
        end;
    end;
  if (Faster500) then
    case Random(5) of
      0:
        begin
          KeyDown(VK_Left);
          wait(Random(200) + 20);
          KeyUp(VK_Left);
        end;
      1:
        begin
          KeyDown(VK_Right);
          wait(Random(200) + 20);
          KeyUp(VK_Right);
        end;
      2:
        begin
          wait(Random(100) + 20);
        end;
      3:
        begin
          wait(Random(100) + 20);
        end;
      4:
        begin
          wait(Random(100) + 20);
        end;
    end;
end;

procedure Report;
var
  Answer, WC: Integer;
begin
  if not (LoggedIn) or not (Players[CurrentPlayer].Active) then
    NextPlayer(True);
  cleardebug;
  SRLRandomsReport;
  Writeln('||===========================||');
  Writeln('||   P1nkys PestController   ||');
  Writeln('||===========================||');
  Writeln('||    ' + TheDate(Date_Formal) + '    ||');
  Writeln('||===========================||');
  Writeln(' Worked For ' + TimeRunning);
  Writeln(' Games Played ' + IntToStr(Games));
  Writeln('||===========================||');
  ReportSmart;
  Stats_Commit;
end;

procedure AntiBan;
var
  NoBan: Integer;
begin
  Noban := Random(18);
  case Move of
    0: MMouse(x, y, (10 + random(350)), (10 + random(200)));
    1: MMouse(x, y, (10 + random(400)), (10 + random(600)));
    2: MMouse(x, y, (10 + random(550)), (10 + random(400)));
    3: MMouse(x, y, (10 + random(500)), (10 + random(400)));
    4: MMouse(Random(MSX2), Random(MSY2), 0, 0);
    5: RandomRclick;
    6: RandomButton;
    10: setangle(1)
  end;
end;

function InGame: Boolean;
begin
  result := (getColor(370, 74) = 16711935) and (getColor(404, 70) = 16737894);
end;

procedure BoatWait;
begin
  if not (LoggedIn) or not (Players[CurrentPlayer].Active) then
    NextPlayer(True);
  repeat
    Status('Waiting In Boat');
    ReportSmart;
    RandomButton;
    FindRandoms;
    Report;
    wait(Random(100) + 20);
  until (NPC) or (Ingame);
  Games := Games + 1;
  exit;
end;

function FindBoard(x, y: Integer): Boolean;
var
  CTS, I: Integer;
  TPA: TPointArray;
  ATPA: array of TPointArray;
begin
  CTS := GetColorToleranceSpeed;
  ColorToleranceSpeed(1);
  SetColorSpeed2Modifiers(1, 3);
  FindColorsSpiralTolerance(MSCX, MSCY, TPA, 4942983, MSX1, MSY1, MSX2, MSY2, 3);
  ColorToleranceSpeed(CTS);
  ATPA := TPAToATPAEx(TPA, 2, 2);
  for I := 0 to High(ATPA) do
  begin
    MiddleTPAEx(ATPA[i], x, y);
    MMouse(x, y, 1, 1);
    if (IsUpTextMultiCustom(['Gangplank'])) then
    begin
      Result := True;
      GetMousePos(x, y);
      Break;
    end;
  end;
end;

procedure Plank;
begin
  if not (LoggedIn) or not (Players[CurrentPlayer].Active) then
    NextPlayer(True);
  Status('Searching For Plank');
  WinOrLose;
  MakeCompass('S');
  FindRandoms;
  begin
    wait(Random(650) + 500);
  end;
  repeat
    RewardBox;
    ReportSmart;
    if not RewardBox then
      if FindBoard(x, y) then
        Status('Looking for Plank');
    wait(200 + random(232));
    if Isuptext('angplank') then
      ClickMouse2(true);
  until (FindBlackChatMessage('You board the lander') or (ingame) or FindBlackChatMessage('reach that') or (InBoat)) Setangle(0);
  FindRandoms;
  Report;
  NPC;
  exit;
end;

function Range: Boolean;
begin
  if (FindColorSpiralTolerance(x, y, 5372475, 267, 132, 292, 160, 1)) then
  begin
    Result := True;
    Writeln('TRUE');
  end
  else
    Result := False;
  Writeln('False');
end;

var
  qp: integer;

procedure QPrayer;
begin
  if QuickPrayer then
    QP := DTMFromString('mbQAAAHicY2VgYFBmZGBQAmItKC0JxGuA4kuBeB0QbwXi9UB88+1dhrVbNoAxiB1h38yADTBiwWAAAKBQDp8=');
  if FindDTM(QP, x, y, 701, 52, 733, 79) then
  begin
    MMouse(x, y, 0, 0);
    Mouse(x, y, 0, 0, true);
  end
  else
    exit;
end;

procedure SpecAttack;
begin
  if SpecialAttacks then
  begin
    Writeln('Toggling Special');
    Status('Special Attack ON');
    MouseBox(528, 179, 545, 195, 1);
    begin
      if (FindColorSpiralTolerance(x, y, 3566664, 545, 208, 738, 430, 25)) then
        Status('Special');
      MMouse(x, y, 0, 0);
      wait(Random(100) + 20);
      Mouse(x, y, 0, 0, true);
    end;
  end;
end;

function EFindObjCustom(var cx, cy: Integer; Text: TStringArray; Color: TIntegerArray; Tol: Integer): Boolean;
begin
  Result := FindObjEx(cx, cy, Text, Color, Tol, 50, 33, 134, 542, 465);
end;

procedure FightPests;
var
  Z, R, CTS: Integer;
begin
  Status('Fighting Pests');
  if not (EFindObjCustom(x, y, ['hifter', 'Shifte', 'Shifter', 'hift'], [2108184, 5051472, 3228504, 4942983], 3)) then
  begin
    if (counter > 1000) then
    begin
      Report;
      counter := 0;
    end;
    R := Random(4);
    case R of
      0: RandomButton;
      1: wait(Random(25) + 20);
      2: wait(Random(25) + 20);
      3: wait(Random(25) + 20);
    end;
    Exit;
  end
  else
    Mmouse(x, y, 0, 0);
  wait(Random(100) + 20);
  if isuptext('ttac') then
  begin
    if not Faster500 then
    begin
      Mouse(x, y, 0, 0, False);
      ChooseOption('ttack');
    end
    else
    begin
      Mouse(x, y, 0, 0, true);
      wait(random(500) + 100);
    end;
    if Faster500 then
    begin
      wait(Random(100) + 20);
      Report;
    end
    else
      wait(2000);
    Report;
  end;
end;

function Portal(Name: string): Boolean;
begin
  case Name of
    'red':
      if (FindBlackChatMessage('south-western')) then
      begin
        Result := True;
        Writeln('Red Portal Shield Down!');
        Exit;
      end
    else
      Result := False;
    'yellow':
      if (FindBlackChatMessage('south-eastern')) then
      begin
        Result := True;
        Writeln('Yellow Portal Shield Down!');
        Exit;
      end
    else
      Result := False;
  end;
end;


procedure FreeDTMS;
begin
  FreeDTM(step1);
  FreeDTM(step2);
  FreeDTM(step3);
end;

begin
  Disguise('P1nky PestController');
  ClearDebug;
  ClearReport;
  Smart_Server := 17;
  Smart_Members := false;
  Smart_Signed := true;
  Smart_SuperDetail := false;
  begin
    if (SRLStats_Username = '') then
      SetupSRLStats(654, 'Anonymous', 'anon1337')
    else
      SetupSRLStats(654, SRLStats_Username, SRLStats_Password);
    SetUpSRL;
    declareplayerz;
    ActivateClient;
    counter := 0;
    ClearDebug;
    LoginPlayer;
    Inc(counter);
    repeat
      begin
        FreeDTMS;
        NPC;
        Report;
        Plank;
        BoatWait;
        begin
          Spot1;
          Spot2;
          begin
            SpecAttack;
            QPrayer;
          end;
          repeat
            FightPests
          until not (Ingame);
        end;
      end;
    until (false);
  end;
end.

From: InH
Remove VK_Down in the "Plank" part of the script.

Just removed it quick, hope you don't mind P1nky.

program PestControllerBETA;
{$DEFINE SMART}
{$i srl\srl.simba}
  {.include SRL/SRL/Skill/Fighting.simba}

  //P1nky's PestController
  //BETA Version

  //Make sure to have Auto Retiable off.
  //Set Character Outside the Boat.
  const
  SpecialAttacks = False;
  QuickPrayer = False; //Make sure to have Quick Prayer Set!
  Faster500 = True; //Having trouble getting your '500'? Well this will help you get over it!
  SRLStats_Username = '';  // Your SRL Stats Username (Optional) Register here: [url]http://stats.villavu.com/[/url]
  SRLStats_Password = '';// Your SRL Stats Password (Optional) Register here: [url]http://stats.villavu.com/[/url]

procedure DeclarePlayerz;
begin
  HowManyPlayers := 1;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;
  Players[0].Name := ''; //Your Runescape username
  Players[0].Pass := ''; //Your Runescape password
  Players[0].Active := True; //Set to true if you want to use this player. Set to False to disable this player.
  Players[0].Pin := ''; //Leave blank if the player doesn't have a Bank PIN.
 end;

var
Reward, games, win, lost, Rp, Pp, Yp, yellow, white, LeftGate, DTMSPOT2, DTMSPOT3, DTMSPOT, x, y, counter: integer;

procedure FindRandoms;
begin
  if not (LoggedIn) or not (Players[CurrentPlayer].Active) then
  NextPlayer(True);
  FindNormalRandoms;
  wait(Random(100) + 20);
  FindLamp('Woodcutting');
end;

function Step1: Integer;
var
  dtmMainPoint: TDTMPointDef;
  dtmSubPoints: array [0..4] of TDTMPointDef;
  TempTDTM: TDTM;
begin
  dtmMainPoint.x := 933;
  dtmMainPoint.y := 115;
  dtmMainPoint.AreaSize := 3;
  dtmMainPoint.AreaShape := 0;
  dtmMainPoint.Color := 1452869;
  dtmMainPoint.Tolerance := 20;
  dtmSubPoints[0].x := 933;
  dtmSubPoints[0].y := 115;
  dtmSubPoints[0].AreaSize := 3;
  dtmSubPoints[0].AreaShape := 0;
  dtmSubPoints[0].Color := 1452869;
  dtmSubPoints[0].Tolerance := 20;
  dtmSubPoints[1].x := 933;
  dtmSubPoints[1].y := 121;
  dtmSubPoints[1].AreaSize := 3;
  dtmSubPoints[1].AreaShape := 0;
  dtmSubPoints[1].Color := 4357778;
  dtmSubPoints[1].Tolerance := 20;
  dtmSubPoints[2].x := 923;
  dtmSubPoints[2].y := 114;
  dtmSubPoints[2].AreaSize := 3;
  dtmSubPoints[2].AreaShape := 0;
  dtmSubPoints[2].Color := 2844546;
  dtmSubPoints[2].Tolerance := 20;
  dtmSubPoints[3].x := 931;
  dtmSubPoints[3].y := 104;
  dtmSubPoints[3].AreaSize := 3;
  dtmSubPoints[3].AreaShape := 0;
  dtmSubPoints[3].Color := 2513523;
  dtmSubPoints[3].Tolerance := 20;
  dtmSubPoints[4].x := 941;
  dtmSubPoints[4].y := 114;
  dtmSubPoints[4].AreaSize := 3;
  dtmSubPoints[4].AreaShape := 0;
  dtmSubPoints[4].Color := 5218735;
  dtmSubPoints[4].Tolerance := 20;
  TempTDTM.MainPoint := dtmMainPoint;
  TempTDTM.SubPoints := dtmSubPoints;
  Result := AddDTM(TempTDTM);
end;

function Step2: Integer;
var
  dtmMainPoint: TDTMPointDef;
  dtmSubPoints: array [0..4] of TDTMPointDef;
  TempTDTM: TDTM;
begin
  dtmMainPoint.x := 901;
  dtmMainPoint.y := 138;
  dtmMainPoint.AreaSize := 1;
  dtmMainPoint.AreaShape := 0;
  dtmMainPoint.Color := 65535;
  dtmMainPoint.Tolerance := 25;
  dtmSubPoints[0].x := 901;
  dtmSubPoints[0].y := 138;
  dtmSubPoints[0].AreaSize := 1;
  dtmSubPoints[0].AreaShape := 0;
  dtmSubPoints[0].Color := 65535;
  dtmSubPoints[0].Tolerance := 25;
  dtmSubPoints[1].x := 902;
  dtmSubPoints[1].y := 133;
  dtmSubPoints[1].AreaSize := 1;
  dtmSubPoints[1].AreaShape := 0;
  dtmSubPoints[1].Color := 2714760;
  dtmSubPoints[1].Tolerance := 25;
  dtmSubPoints[2].x := 907;
  dtmSubPoints[2].y := 139;
  dtmSubPoints[2].AreaSize := 1;
  dtmSubPoints[2].AreaShape := 0;
  dtmSubPoints[2].Color := 2714760;
  dtmSubPoints[2].Tolerance := 25;
  dtmSubPoints[3].x := 901;
  dtmSubPoints[3].y := 145;
  dtmSubPoints[3].AreaSize := 1;
  dtmSubPoints[3].AreaShape := 0;
  dtmSubPoints[3].Color := 2714760;
  dtmSubPoints[3].Tolerance := 25;
  dtmSubPoints[4].x := 896;
  dtmSubPoints[4].y := 137;
  dtmSubPoints[4].AreaSize := 1;
  dtmSubPoints[4].AreaShape := 0;
  dtmSubPoints[4].Color := 2714760;
  dtmSubPoints[4].Tolerance := 25;
  TempTDTM.MainPoint := dtmMainPoint;
  TempTDTM.SubPoints := dtmSubPoints;
  Result := AddDTM(TempTDTM);
end;

function Step3: Integer;
var
  dtmMainPoint: TDTMPointDef;
  dtmSubPoints: array [0..4] of TDTMPointDef;
  TempTDTM: TDTM;
begin
  dtmMainPoint.x := 741;
  dtmMainPoint.y := 175;
  dtmMainPoint.AreaSize := 0;
  dtmMainPoint.AreaShape := 0;
  dtmMainPoint.Color := 863541;
  dtmMainPoint.Tolerance := 15;
  dtmSubPoints[0].x := 741;
  dtmSubPoints[0].y := 175;
  dtmSubPoints[0].AreaSize := 0;
  dtmSubPoints[0].AreaShape := 0;
  dtmSubPoints[0].Color := 863541;
  dtmSubPoints[0].Tolerance := 15;
  dtmSubPoints[1].x := 739;
  dtmSubPoints[1].y := 173;
  dtmSubPoints[1].AreaSize := 0;
  dtmSubPoints[1].AreaShape := 0;
  dtmSubPoints[1].Color := 16249839;
  dtmSubPoints[1].Tolerance := 15;
  dtmSubPoints[2].x := 744;
  dtmSubPoints[2].y := 169;
  dtmSubPoints[2].AreaSize := 0;
  dtmSubPoints[2].AreaShape := 0;
  dtmSubPoints[2].Color := 2976616;
  dtmSubPoints[2].Tolerance := 15;
  dtmSubPoints[3].x := 737;
  dtmSubPoints[3].y := 169;
  dtmSubPoints[3].AreaSize := 0;
  dtmSubPoints[3].AreaShape := 0;
  dtmSubPoints[3].Color := 2841950;
  dtmSubPoints[3].Tolerance := 15;
  dtmSubPoints[4].x := 734;
  dtmSubPoints[4].y := 173;
  dtmSubPoints[4].AreaSize := 0;
  dtmSubPoints[4].AreaShape := 0;
  dtmSubPoints[4].Color := 16249839;
  dtmSubPoints[4].Tolerance := 15;
  TempTDTM.MainPoint := dtmMainPoint;
  TempTDTM.SubPoints := dtmSubPoints;
  Result := AddDTM(TempTDTM);
end;

procedure ReportScreen(TP: TStringArray; Placement: TPoint; Colour: integer);
var
  mx, my, Pic, I, B, H, TPH, Numb: Integer;
  TTP: TPointArray;
  Canvas: TCanvas;
begin
  SmartSetDebug(True);
  GetClientDimensions(mx, my);
  Pic := BitmapFromString(mx, my, '');
  TPH := High(TP);
  for I := 0 to TPH do
  begin
    TTP := LoadTextTPA(TP[i], SmallChars, H);
    for B := 0 to High(TTP) do
    begin
      Numb := ((I + 1) * 13);
      FastSetPixel(Pic, TTP[b].x + 1, TTP[b].y + Numb + 1, 8388736);
      FastSetPixel(Pic, TTP[b].x, TTP[b].y + Numb, Colour);
    end;
  end;
  Canvas := TCANVAS.Create;
  Canvas.Handle := SmartGetDebugDC;
  DrawBitmap(Pic, Canvas, Placement.x, Placement.y);
  FreeBitmap(Pic);
end;

procedure ReportSmart;
begin
  ReportScreen(['P1nkys PestController', '', 'Worked For ' + TimeRunning, '', 'Games Played ' + IntToStr(Games)], Point(350, 223), 255);
end;

procedure SPOT1;
begin
  Status('Spot 1');
  SetRun(True);
  MakeCompass('S');
  DTMSPOT := Step1;
  if DTMRotated(DTMSPOT, X, Y, MMX1, MMY1, MMX2, MMY2) then
    MMouse(x, y, 0, 0);
  wait(Random(100) + 20);
  Mouse(x, y, 0, 0, True);
  FFlag(0);
  wait(Random(1000) + 500);
end;

procedure SPOT2;
begin
  Status('Spot 2');
  MakeCompass('S');
  DTMSPOT2 := Step2;
  if DTMRotated(DTMSPOT2, X, Y, MMX1, MMY1, MMX2, MMY2) then
    MMouse(x, y, 0, 0);
  wait(Random(100) + 20);
  Mouse(x, y, 0, 0, True);
  FFlag(0);
  wait(1300);
end;

function AwayFromVoid: boolean;
var
  C: Integer;
begin
  C := 42342;
  if not (C > 4) then
  begin
    result := false;
    exit;
    TerminateScript;
  end
  else
    result := true;
  Spot1;
end;

function Clan: boolean;
var
  X, Y: Integer;
begin
  Result := (FindColor(X, Y, 3226804, 460, 30, 461, 29));
end;

function RewardBox: Boolean;
begin
  if (Clan) then
  begin
    Mouse(475, 29, 1, 1, True);
  end;
  if FindColorTolerance(x, y, 986895, 134, 96, 435, 334, 1) then
  begin
    Result := True;
    Mouse(392, 60, 0, 0, true);
    Reward := Reward + 1;
  end
  else
    Result := False;
end;

procedure WinOrLose;
begin
  Status('Checking if Win Game Or Lose');
  RewardBox;
  MakeCompass('S');
  ReportSmart;
  if FindNPCChatText('Congratulations!', True) then
  begin
    win := win + 1;
    stats_IncVariable('PC Points Earned', 2);
    exit;
  end
  else if FindNPCChatText('noticed', True) or FindNPCChatText('lost.', True) then
  begin
    lost := lost + 1;
    exit;
  end
  else
  begin
    exit;
  end;
end;

function InBoat: Boolean;
begin
  result := (getColor(19, 30) = 13421772) and (getColor(19, 51) = 3265113);
end;

function NPC: Boolean;
begin
  FindRandoms;
  if FindNPCChatText('ritual', True) or FindNPCChatText('Congratulations!', True) or FindNPCChatText('knights', True) or FindNPCChatText('lost.', True) or FindText(x, y, 'attle', UpChars, MCX1, MCY1, MCX2, MCY2) or FindText(x, y, 'defend the Void Knight', UpChars, MCX1, MCY1, MCX2, MCY2) then
  begin
    Result := True;
    Writeln('NPC Message Detected!');
    if (FindColorSpiralTolerance(x, y, 540186, 136, 379, 415, 470, 25)) then
      Status('NPC Message');
    MMouse(x, y, 0, 0);
    wait(Random(200) + 20);
    Mouse(x, y, 0, 0, true);
    WinOrLose;
  end
  else
    Result := False;
end;

procedure RandomButton;
begin
  if not (Faster500) then
    case Random(3) of
      0:
        begin
          KeyDown(VK_Left);
          wait(Random(600) + 500);
          KeyUp(VK_Left);
        end;
      1:
        begin
          KeyDown(VK_Right);
          wait(Random(600) + 500);
          KeyUp(VK_Right);
        end;
      2:
        begin
          KeyDown(VK_Up);
          wait(Random(200) + 500);
          KeyUp(VK_Up);
        end;
    end;
  if (Faster500) then
    case Random(5) of
      0:
        begin
          KeyDown(VK_Left);
          wait(Random(200) + 20);
          KeyUp(VK_Left);
        end;
      1:
        begin
          KeyDown(VK_Right);
          wait(Random(200) + 20);
          KeyUp(VK_Right);
        end;
      2:
        begin
          wait(Random(100) + 20);
        end;
      3:
        begin
          wait(Random(100) + 20);
        end;
      4:
        begin
          wait(Random(100) + 20);
        end;
    end;
end;

procedure Report;
var
  Answer, WC: Integer;
begin
  if not (LoggedIn) or not (Players[CurrentPlayer].Active) then
    NextPlayer(True);
  cleardebug;
  SRLRandomsReport;
  Writeln('||===========================||');
  Writeln('||   P1nkys PestController   ||');
  Writeln('||===========================||');
  Writeln('||    ' + TheDate(Date_Formal) + '    ||');
  Writeln('||===========================||');
  Writeln(' Worked For ' + TimeRunning);
  Writeln(' Games Played ' + IntToStr(Games));
  Writeln('||===========================||');
  ReportSmart;
  Stats_Commit;
end;

procedure AntiBan;
var
  NoBan: Integer;
begin
  Noban := Random(18);
  case Move of
    0: MMouse(x, y, (10 + random(350)), (10 + random(200)));
    1: MMouse(x, y, (10 + random(400)), (10 + random(600)));
    2: MMouse(x, y, (10 + random(550)), (10 + random(400)));
    3: MMouse(x, y, (10 + random(500)), (10 + random(400)));
    4: MMouse(Random(MSX2), Random(MSY2), 0, 0);
    5: RandomRclick;
    6: RandomButton;
    10: setangle(1)
  end;
end;

function InGame: Boolean;
begin
  result := (getColor(370, 74) = 16711935) and (getColor(404, 70) = 16737894);
end;

procedure BoatWait;
begin
  if not (LoggedIn) or not (Players[CurrentPlayer].Active) then
    NextPlayer(True);
  repeat
    Status('Waiting In Boat');
    ReportSmart;
    RandomButton;
    FindRandoms;
    Report;
    wait(Random(100) + 20);
  until (NPC) or (Ingame);
  Games := Games + 1;
  exit;
end;

function FindBoard(x, y: Integer): Boolean;
var
  CTS, I: Integer;
  TPA: TPointArray;
  ATPA: array of TPointArray;
begin
  CTS := GetColorToleranceSpeed;
  ColorToleranceSpeed(1);
  SetColorSpeed2Modifiers(1, 3);
  FindColorsSpiralTolerance(MSCX, MSCY, TPA, 4942983, MSX1, MSY1, MSX2, MSY2, 3);
  ColorToleranceSpeed(CTS);
  ATPA := TPAToATPAEx(TPA, 2, 2);
  for I := 0 to High(ATPA) do
  begin
    MiddleTPAEx(ATPA[i], x, y);
    MMouse(x, y, 1, 1);
    if (IsUpTextMultiCustom(['Gangplank'])) then
    begin
      Result := True;
      GetMousePos(x, y);
      Break;
    end;
  end;
end;

procedure Plank;
begin
  if not (LoggedIn) or not (Players[CurrentPlayer].Active) then
    NextPlayer(True);
  Status('Searching For Plank');
  WinOrLose;
  MakeCompass('S');
  FindRandoms;
  begin
    wait(Random(650) + 500);
  end;
  repeat
    RewardBox;
    ReportSmart;
    if not RewardBox then
      if FindBoard(x, y) then
        Status('Looking for Plank');
    wait(200 + random(232));
    if Isuptext('angplank') then
      ClickMouse2(true);
  until (FindBlackChatMessage('You board the lander') or (ingame) or FindBlackChatMessage('reach that') or (InBoat)) Setangle(0);
  FindRandoms;
  Report;
  NPC;
  exit;
end;

function Range: Boolean;
begin
  if (FindColorSpiralTolerance(x, y, 5372475, 267, 132, 292, 160, 1)) then
  begin
    Result := True;
    Writeln('TRUE');
  end
  else
    Result := False;
  Writeln('False');
end;

var
  qp: integer;

procedure QPrayer;
begin
  if QuickPrayer then
    QP := DTMFromString('mbQAAAHicY2VgYFBmZGBQAmItKC0JxGuA4kuBeB0QbwXi9UB88+1dhrVbNoAxiB1h38yADTBiwWAAAKBQDp8=');
  if FindDTM(QP, x, y, 701, 52, 733, 79) then
  begin
    MMouse(x, y, 0, 0);
    Mouse(x, y, 0, 0, true);
  end
  else
    exit;
end;

procedure SpecAttack;
begin
  if SpecialAttacks then
  begin
    Writeln('Toggling Special');
    Status('Special Attack ON');
    MouseBox(528, 179, 545, 195, 1);
    begin
      if (FindColorSpiralTolerance(x, y, 3566664, 545, 208, 738, 430, 25)) then
        Status('Special');
      MMouse(x, y, 0, 0);
      wait(Random(100) + 20);
      Mouse(x, y, 0, 0, true);
    end;
  end;
end;

function EFindObjCustom(var cx, cy: Integer; Text: TStringArray; Color: TIntegerArray; Tol: Integer): Boolean;
begin
  Result := FindObjEx(cx, cy, Text, Color, Tol, 50, 33, 134, 542, 465);
end;

procedure FightPests;
var
  Z, R, CTS: Integer;
begin
  Status('Fighting Pests');
  if not (EFindObjCustom(x, y, ['hifter', 'Shifte', 'Shifter', 'hift'], [2108184, 5051472, 3228504, 4942983], 3)) then
  begin
    if (counter > 1000) then
    begin
      Report;
      counter := 0;
    end;
    R := Random(4);
    case R of
      0: RandomButton;
      1: wait(Random(25) + 20);
      2: wait(Random(25) + 20);
      3: wait(Random(25) + 20);
    end;
    Exit;
  end
  else
    Mmouse(x, y, 0, 0);
  wait(Random(100) + 20);
  if isuptext('ttac') then
  begin
    if not Faster500 then
    begin
      Mouse(x, y, 0, 0, False);
      ChooseOption('ttack');
    end
    else
    begin
      Mouse(x, y, 0, 0, true);
      wait(random(500) + 100);
    end;
    if Faster500 then
    begin
      wait(Random(100) + 20);
      Report;
    end
    else
      wait(2000);
    Report;
  end;
end;

function Portal(Name: string): Boolean;
begin
  case Name of
    'red':
      if (FindBlackChatMessage('south-western')) then
      begin
        Result := True;
        Writeln('Red Portal Shield Down!');
        Exit;
      end
    else
      Result := False;
    'yellow':
      if (FindBlackChatMessage('south-eastern')) then
      begin
        Result := True;
        Writeln('Yellow Portal Shield Down!');
        Exit;
      end
    else
      Result := False;
  end;
end;


procedure FreeDTMS;
begin
  FreeDTM(step1);
  FreeDTM(step2);
  FreeDTM(step3);
end;

begin
  Disguise('P1nky PestController');
  ClearDebug;
  ClearReport;
  Smart_Server := 17;
  Smart_Members := false;
  Smart_Signed := true;
  Smart_SuperDetail := false;
  begin
    if (SRLStats_Username = '') then
      SetupSRLStats(654, 'Anonymous', 'anon1337')
    else
      SetupSRLStats(654, SRLStats_Username, SRLStats_Password);
    SetUpSRL;
    declareplayerz;
    ActivateClient;
    counter := 0;
    ClearDebug;
    LoginPlayer;
    Inc(counter);
    repeat
      begin
        FreeDTMS;
        NPC;
        Report;
        Plank;
        BoatWait;
        begin
          Spot1;
          Spot2;
          begin
            SpecAttack;
            QPrayer;
          end;
          repeat
            FightPests
          until not (Ingame);
        end;
      end;
    until (false);
  end;
end.

Totally find, so y'all want a option for novice/intermediate/veteran?

I'll get that updated on next update!