Results 1 to 16 of 16

Thread: I can figure this anti-leech.

  1. #1
    Join Date
    Feb 2012
    Posts
    48
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default I can figure this anti-leech.

    Hi guys i cant figure this out so pls help me, iv been at it for a good 2 hours.


    theyre both in the mainloop

    they both have // looky looky here! so you can easily find them


    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('mggAAAHicY2NgYOACYhEgFgBiXiDmYIAAZi gN4vMDsTCUdtEA6WDCwCIM2AEjDgwBAGIcASA=');

    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('mggAAAHicY2NgYOACYhEgFgBiXiDmYIAAZi gN4vMDsTCUdtEA6WDCwCIM2AEjDgwBAGIcASA=');

    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;

    end;



    The problem is when i try running the script, it does one round at the range guild but then it logs out
    Last edited by akash22; 05-26-2012 at 01:30 AM. Reason: Forgot to tell problem.

  2. #2
    Join Date
    Feb 2006
    Location
    Tracy/Davis, California
    Posts
    12,631
    Mentioned
    135 Post(s)
    Quoted
    418 Post(s)

    Default

    That means it's working!
    Hoooooray!!!!

  3. #3
    Join Date
    Feb 2012
    Posts
    48
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    What?

  4. #4
    Join Date
    Mar 2012
    Location
    Australia
    Posts
    625
    Mentioned
    0 Post(s)
    Quoted
    18 Post(s)

    Default

    Is this the ranged guild one. I also struggled with it. Just keep trying and you will find it!

    Goodluck.
    Bored of playing rs, and bored of botting it, why am i here?

  5. #5
    Join Date
    Feb 2012
    Posts
    48
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    The problem is i dont really know how to make a script

  6. #6
    Join Date
    Feb 2006
    Location
    Tracy/Davis, California
    Posts
    12,631
    Mentioned
    135 Post(s)
    Quoted
    418 Post(s)

    Default

    The point of antileech is to stop people who don't know how to do basic scripting from using the script.

    The script maker only want people who know very basic scripting knowledge to be able to use it.

    Edit:
    My name is Aakash too!

  7. #7
    Join Date
    Feb 2012
    Posts
    48
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Ahhh so can you give me a link where i could know how to script? i tried finding but i get a headache lol.

  8. #8
    Join Date
    Feb 2006
    Location
    Tracy/Davis, California
    Posts
    12,631
    Mentioned
    135 Post(s)
    Quoted
    418 Post(s)

    Default

    http://villavu.com/forum/forumdisplay.php?f=191
    Beginners tutorials should be all the info you need.

  9. #9
    Join Date
    Feb 2012
    Posts
    48
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Can this video of yours help me? http://www.youtube.com/watch?v=pMMejhyjGwI

  10. #10
    Join Date
    Feb 2006
    Location
    Tracy/Davis, California
    Posts
    12,631
    Mentioned
    135 Post(s)
    Quoted
    418 Post(s)

    Default

    No, that is a bit TOO basic.

  11. #11
    Join Date
    Feb 2012
    Posts
    48
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

  12. #12
    Join Date
    Feb 2006
    Location
    Tracy/Davis, California
    Posts
    12,631
    Mentioned
    135 Post(s)
    Quoted
    418 Post(s)

    Default

    A bit maybe, but that's more for making a specific script.
    You just need to learn basic syntax and stuff.

    Sorry it seems so hard and all, it really isn't. Just takes some time/hours to learn but it's worth it in the end.

    Scripting is fun, and feels great! Just take it slow, take a breath, start from scratch and work your way up, it's fun and easy!

  13. #13
    Join Date
    Feb 2012
    Posts
    48
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Ok ill try but the anti leech in the script is in these two codings right?

    1: ArrowDTM := DTMFromString('mggAAAHicY2NgYOACYhEgFgBiXiDmYIAAZi gN4vMDsTCUdtEA6WDCwCIM2AEjDgwBAGIcASA=');

    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)


    2:
    ArrowDTM := DTMFromString('mggAAAHicY2NgYOACYhEgFgBiXiDmYIAAZi gN4vMDsTCUdtEA6WDCwCIM2AEjDgwBAGIcASA=');

    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)

  14. #14
    Join Date
    Feb 2012
    Posts
    48
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Someone please link me to a guide that is easy to understand i seriously cant understand anything please help

  15. #15
    Join Date
    Jun 2007
    Posts
    532
    Mentioned
    1 Post(s)
    Quoted
    68 Post(s)

    Default

    First use Simba tags when posting code, and dude just read some tuts in the beginner section and intermediate. The point of anti-leech is to keep lechers from running the script. It looks like it is serving its purpose. Your honestly not trying that hard mate. You want us to fix the anti-leech for you...not going to happen that would defeat the whole purpose. Keep reading and you will get it.
    Finished B.S. Program in Radiology!!

    Projects: A big one! Total secret! hehe

  16. #16
    Join Date
    Jan 2012
    Posts
    125
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    glanced over it, took 10 seconds to spot what is wrong, take 1 day learning something and forever you shall be rewarded.
    trust me if you learn to script you can make much better ones that are public

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Tags for this Thread

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •