Quote:
Originally Posted by cezzq
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
Printable View
Quote:
Originally Posted by cezzq
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?Quote:
Originally Posted by Barnzy
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.
I have the same problem, and I changed it to specialattack = false..Quote:
Originally Posted by Barnzy
I do not have a account atm to check that problem out.Quote:
Originally Posted by Based Swag
I have an account pm meQuote:
Originally Posted by P1nky
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.Quote:
Originally Posted by P1nky
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?
Hey mate, you can use my account if you want, 104 cb 97 str 94 mage 82 attack 71 defQuote:
Originally Posted by P1nky
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.
I dont know what is wrong with you but when I clicked that I saw a mangled up... something... it looked quite...y'know...Quote:
Originally Posted by Ftcg
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
http://oi44.tinypic.com/rvfud0.jpg
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.
Simba Code: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
Fill in 'DeclarePlayerz' , with your username and password.Quote:
Originally Posted by o o magic
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
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.Quote:
Originally Posted by P1nky
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.
http://i.imgur.com/dDexy.png
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.