Where I can learn how to fix this anti leech?
Thanks
how come my guy just runs behind the targets and never goes back?
any1 able to run this after sps updatE?
Last edited by young richard; 04-19-2012 at 04:27 PM.
Cant use after some SPS update
ok this bot doesn't work anymore, mine logged in, disabled popups and then did nothing
RangeGuilder by Ricky
~ 01010010 01101001 01111001 01111001 01101001 ~
Alright, I don't know what exactly happened in the update, so I don't know how to fix it, so until there is a tutorial or something that explains it I can't update the script.
The script however works when you downgrade your SPS.
Here is a thread on how to do it:
http://villavu.com/forum/showthread.php?t=79934
(This fixes the other scripts as well)
*Edit: released version 1.23, it works with the newest SPS now .
Last edited by Ricky; 04-23-2012 at 11:38 AM.
RangeGuilder by Ricky
~ 01010010 01101001 01111001 01111001 01101001 ~
Sometimes it seems to click immediately after the arrows appear, because of that the arrows sometimes don't equip.
This makes it think that the arrows are equipped, thus it doesn't click it later on.
Tweaked it a bit, Changed your Main-Procedure to this:
Simba Code:procedure MainLoop;
var
i, Timer : Integer;
Judge, Judge2, RoundFin : Boolean;
myPath: TPointArray;
begin
StatsGuise('MainLoop');
if FindNormalRandoms then
if not LoggedIn then
Exit;
StatsGuise('Finding Judge');
repeat
MarkTime(Timer);
repeat
//Looky Looky Here!
ArrowDTM := DTMFromString('mggAAAHicY2NgYOACYhEgFgBiXiDmYIAAZigN4vMDsTCUdtEA6WDCwCIM2AEjDgwBAGIcASA=');
If FindDTM(ArrowDTM, x, y, MIX1, MIY1, MIX2, MIY2) Then
begin
Mouse(x, y, 5, 5, false);
if OptionsExist(['Wield'], Nothing) then
begin
ChooseOption('Wield');
end
end;
FreeDTM(ArrowDTM)
//You can stop looking! Read ahead!
if FindObjTPA(x, y, 1845548, 11, 2, 15, 15, 50, ['ition']) or
FindObjTPA(x, y, 2702911, 13, 2, 15, 15, 50, ['ition']) then
begin
Mouse(x, y, 5, 5, False);
Wait(200 + Random(150) + Laggy);
if OptionsExist(['mpete'], Nothing) then
begin
Judge := True;
ChooseOption('mpete');
end else
Judge2 := True;
end else
begin
Mouse(266, 136, 10, 30, False);
if WaitOption('mpete', 500) then
Judge := True;
end;
until((TimeFromMark(Timer) > 20000) or Judge or Judge2);
if TimeFromMark(Timer) > 20000 then
begin
if not InCords(2510, 2965, 2545, 2990) then
myPath := [Point(2554, 2927), Point(2542, 2935), Point(2534, 2947), Point(2524, 2955), Point(2515, 2963), Point(2515, 2982)];
SPS_WalkPath(myPath);
ClickNorth(1);
MakeCompass(35 + Random(5));
if FindObjTPA(x, y, 1845548, 11, 2, 15, 15, 50, ['ition']) or
FindObjTPA(x, y, 2702911, 13, 2, 15, 15, 50, ['ition']) then
Mouse(x, y, 5, 5, False);
Wait(200 + Random(150) + Laggy);
if WaitOption('to C', 500) then
Judge2 := True;
end;
until (Judge or Judge2)
StatsGuise('MainLoop');
Wait(800 + Random(150));
if Judge then
begin
KeyDown(49);
Wait(20+random(20));
KeyUp(49);
Wait(1500);
KeyDown(49);
Wait(20+random(20));
KeyUp(49);
Wait(800 + Random(150) + (Laggy * 2));
If PinScreen Then
begin
StatsGuise('Enter pin...');
InPin(Players[CurrentPlayer].Pin);
end;
end;
if not RightClickMethod then
begin
StatsGuise('Spamming Targets');
MarkTime(Timer);
repeat
if FindColorTolerance(x, y, 4310482, 230, 162, 296, 219, 11) then
MMouse(487, 42, 5, 5);
Wait(600);
if IsUpText('lose') then
ClickMouse2(True);
//Looky Looky Here!
ArrowDTM := DTMFromString('mggAAAHicY2NgYOACYhEgFgBiXiDmYIAAZigN4vMDsTCUdtEA6WDCwCIM2AEjDgwBAGIcASA=');
If FindDTM(ArrowDTM, x, y, MIX1, MIY1, MIX2, MIY2) Then
begin
Mouse(x, y, 5, 5, false);
if OptionsExist(['Wield'], Nothing) then
begin
ChooseOption('Wield');
end
end;
FreeDTM(ArrowDTM)
//Stop Here!
if FindObjEx(x, y, ['arget'], [5041405, 5238269], 7, 31, MSX1, MSY1, 375, 65) then
repeat
ClickMouse2(True);
Wait(RandomRange(15, 40));
if FindNPCChatText('orry', Nothing) or FindNPCChatText('ou''ve', Nothing) then
RoundFin := True; //^This part is very important!
until(not IsUpText('-at') or RoundFin);
until(RoundFin or (TimeFromMark(Timer) > 40000));
if TimeFromMark(Timer) > 40000 then
begin
if not InCords(2510, 2965, 2545, 2990) then
myPath := [Point(2554, 2927), Point(2542, 2935), Point(2534, 2947), Point(2524, 2955), Point(2515, 2963), Point(2515, 2982)];
SPS_WalkPath(myPath);
ClickNorth(1);
MakeCompass(35 + Random(5));
end;
end;
if RightClickMethod then
begin
StatsGuise('Shooting Targets');
for i := 1 to 10 do
begin
if FindObjEx(x, y, ['arget'], [5041405, 5238269], 7, 31, MSX1, MSY1, 375, 65) then
ClickMouse2(False);
Wait(200 + Random(150));
ChooseOptionEx('arget', 'object');
Wait(2400 + Random(150) + Laggy);
MMouse(487, 42, 3, 3);
Wait(550 + Random(150) + Laggy);
if IsUpText('lose') then
ClickMouse2(True);
end;
if FindObjTPA(x, y, 1845548, 11, 2, 15, 15, 50, ['ition']) or
FindObjTPA(x, y, 2702911, 13, 2, 15, 15, 50, ['ition']) then
Mouse(x, y, 5, 5, False);
WaitOption('to C', 500);
end;
CoursesDone := (CoursesDone + 1);
end;
This is just a fail-safe (Mainly too lazy to make it better.) if you could fix it up even more, that would be great!
The only other problem with this script, in its entirety, is its finding the competition judge. Either it finds him properly, accidentally finds a guard, or a player is standing in the exact same place as the judge.
I think some of the stuff I added is redundant though...
Edit: My first Proggy!
[~~~~~~RangeGuilder by Riyyi - Version 1.23~~~~~]
Time Running : 4 Hours, 54 Minutes and 21 Seconds
XP Gained : 77225
XP Per Hour : 77225
Courses Done : 374
Tickets Gained : 27558
Time Until Logout : 1 Hours, 56 Minutes and 20 Seconds
[~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~]
Last edited by Rezozo; 05-20-2012 at 06:55 PM. Reason: Pr0ggy
For the basics of the basics of pascal, try my TuT. ||Photoshop Editing ||MapleResourceDung Script || Book a flight! BuySellTrip
I got it working, although i think it will not get past the 6 hour timer because i think i didn't pass that anti-leech properly. Butit runs off quite a lot behind the targets for me, it will just stand there and not go back :s
Last edited by tommo1; 04-26-2012 at 06:26 PM.
Yes, this happens because of the scripts nature.
It is almost impossible for it to distinguish a guard from the judge, because it is using color detection. So sometimes, it may attack a guard...
Also, since it spam clicks, sometimes while the screen moves, it ends up in the back. I might add a dtm, for myself, in the mini-map to click back to the original position. But for now, Im going to R*pe P1NKY's Pest Control like no tomorrow!
For the basics of the basics of pascal, try my TuT. ||Photoshop Editing ||MapleResourceDung Script || Book a flight! BuySellTrip
i get this
[Hint] C:\Simba\Includes\SRL/SRL/core/mapwalk.simba(1353:3): Variable 'BOX' never used at line 1352
[Error] (239:5): Unknown identifier 'CoursesDone' at line 238
Compiling failed.
I do not really understand what it is/means... please reply "for dummies"
For the basics of the basics of pascal, try my TuT. ||Photoshop Editing ||MapleResourceDung Script || Book a flight! BuySellTrip
It hits the guard instead of the board sometimes and thus it gets stuck
How do you get it to loop?
It does 10 arrows then logs out
Hmm... Riyyi, you wanna tell em'? Or should I?
Might ruin it for you, so I'll wait for your reply!
(Ooo, That rhymes!)
For the basics of the basics of pascal, try my TuT. ||Photoshop Editing ||MapleResourceDung Script || Book a flight! BuySellTrip
It does one game and logs out, can anyone tell me where to look for the error? dont have to tell me what to do
EDIT: now runs behind target and loggs out
Last edited by Quagmire; 04-30-2012 at 09:03 AM.
Last edited by Rezozo; 04-30-2012 at 07:17 PM.
For the basics of the basics of pascal, try my TuT. ||Photoshop Editing ||MapleResourceDung Script || Book a flight! BuySellTrip
Finally got it fully working, thanks . Only getting 15-22k exp per hour though :S
Last edited by tommo1; 05-04-2012 at 12:42 PM.
Please help this script stop error at line 136
There are currently 1 users browsing this thread. (0 members and 1 guests)