SRL Archive - Help

This is the dtm code

Procedure LoadDTM;
Begin
      ArrowDTM := DTMFromString('mggAAAHicY2NgYOACYhEgFgBiXiDmYIAAZigN4vMDsTCUdtEA6WDCwCIM2AEjDgwBAGIcASA=');
end'

Procedure FindItem;
If FindDTM(ArrowDTM, x, y, MIX1, MIY1, MIX2, MIY2) Then
begin
        MMouse(x, y, 5, 5);
         if OptionsExist(['Wield']) then
            begin
            ChooseOption('Wield');
            end
      end;  

it highlights Procedure LoadDTM; and says Identifier expected at line 124
Compiling failed.

end'

Should be

end;

lol didnt see that thanks.

same error

Procedure LoadDTM;
Begin
      ArrowDTM := DTMFromString('mggAAAHicY2NgYOACYhEgFgBiXiDmYIAAZigN4vMDsTCUdtEA6WDCwCIM2AEjDgwBAGIcASA=');
end'

Procedure FindItem;
If FindDTM(ArrowDTM, x, y, MIX1, MIY1, MIX2, MIY2) Then
begin
        MMouse(x, y, 5, 5);
         if OptionsExist(['Wield']) then
            begin
            ChooseOption('Wield');
            end
      end; 

Should be:

Procedure LoadDTM;
Begin
      ArrowDTM := DTMFromString('mggAAAHicY2NgYOACYhEgFgBiXiDmYIAAZigN4vMDsTCUdtEA6WDCwCIM2AEjDgwBAGIcASA=');
end;

Procedure FindItem;
begin
   If FindDTM(ArrowDTM, x, y, MIX1, MIY1, MIX2, MIY2) Then
   begin
        MMouse(x, y, 5, 5);
         if OptionsExist(['Wield']) then
            begin
            ChooseOption('Wield');
            end;
      end; 
end;

Edit: ChooseOption won't work here. You're not right clicking it, Option is the little popup box that appears.
Change OptionExsist to WaitUpText('Wield',500), then after that, change ChooseOption to ClickMouse2(1);

Apply the fix said above and let us know how it turns out. Also post the procedure above it because I think thats where the problem lies

The problem was where I fixed it. It doesn't have anything to do with the procedure above. He just lacked a begin/end.

:P

Well can you help me? iv been at this trying to get rid of anti leech for 2 whole day and i cant get it. Can i post simba code and u can fix or give some hints?

ps: i looked at tutorials

Ok its probably a simple fix. The tutorails will tel you exactly what to do. Try Coh3n's tut. It tells you how to declare everything and the basics of scripting which you will need. We are not allowed to help with anti leech
Heres link to the tut.
http://villavu.com/forum/showthread.php?t=58935

Ill try reading that.

I helped remove anti-leech…

Oh no…

O lol it still dosent work so dosent matter :D
still hilighting Procedure LoadDTM;

This is what i have now and it hilights Program DTM;

Program DTM;
  {.include SRL/SRL.simba}
Var
  ArrowDTM:integer;
  X,y:integer;

Procedure LoadDTM;
Begin
      ArrowDTM := DTMFromString('mggAAAHicY2NgYOACYhEgFgBiXiDmYIAAZigN4vMDsTCUdtEA6WDCwCIM2AEjDgwBAGIcASA');
end;

Procedure FindItem;
begin
   If FindDTM(ArrowDTM, x, y, MIX1, MIY1, MIX2, MIY2) Then
   begin
        MMouse(x, y, 5, 5);
         if WaitUpText('Wield',500) then
            begin
            ClickMouse2(1);
            end;
      end;
end;  

You missed out a begin or an end before that procedure

Which one?

there is a reason its called anti leech. And it would be best if you just look for similarities and figure out what is missing and out of the ordinary.

From: akash22
This is what i have now and it hilights Program DTM;

Program DTM;
  {.include SRL/SRL.simba}
Var
  ArrowDTM:integer;
  X,y:integer;

Procedure LoadDTM;
Begin
      ArrowDTM := DTMFromString('mggAAAHicY2NgYOACYhEgFgBiXiDmYIAAZigN4vMDsTCUdtEA6WDCwCIM2AEjDgwBAGIcASA');
end;

Procedure FindItem;
begin
   If FindDTM(ArrowDTM, x, y, MIX1, MIY1, MIX2, MIY2) Then
   begin
        MMouse(x, y, 5, 5);
         if WaitUpText('Wield',500) then
            begin
            ClickMouse2(1);
            end;
   end;
end;  

Supposed to be:

Program DTM;
  {$i SRL/SRL.simba}
Var
  ArrowDTM:integer;
  X,y:integer;

Procedure Fr33DTM;
begin
FreeDTM(ArrowDTM);
end;

Procedure LoadDTM;
Begin
      ArrowDTM := DTMFromString('mggAAAHicY2NgYOACYhEgFgBiXiDmYIAAZigN4vMDsTCUdtEA6WDCwCIM2AEjDgwBAGIcASA');
end;

Procedure FindItem;
begin
   LoadDTM;
   Gametab(tab_inv); {If you are looking for it in invent}
   If FindDTM(ArrowDTM, x, y, MIX1, MIY1, MIX2, MIY2) Then
   begin
        MMouse(x, y, 5, 5);
         if WaitUpText('ield',500) then
            begin
               ClickMouse2(True);
            end;
   end;
    Fr33DTM;
end;  

begin
{Do your smart stuff}
SetupSRL;
AddonTerminate('Fr33DTM');
Repeat
Finditem;
Until(False);
end.

That should work, else you are doing something else totally wrong

I looked at a tutorial and they had a dtm code too. Theres only 1 thing missing but im sure about it.
They just have some things more than me. Its this

Begin
  SetupSRL; // MAIN LOOP
  ActivateClient;
  LoadDTM; // CALL the loading first
  FindItem;
end.

You got that right. Shouldn't even help that much if this was an anti leech since anti leech is for leechers or beginners to start learning

guys i started with

           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) 

and ended with

Program DTM;
  {.include SRL/SRL.simba}
Var
  ArrowDTM:integer;
  X,y:integer;

Procedure LoadDTM;
Begin
      ArrowDTM := DTMFromString('mggAAAHicY2NgYOACYhEgFgBiXiDmYIAAZigN4vMDsTCUdtEA6WDCwCIM2AEjDgwBAGIcASA');
end;

Procedure FindItem;
begin
   If FindDTM(ArrowDTM, x, y, MIX1, MIY1, MIX2, MIY2) Then
   begin
        MMouse(x, y, 5, 5);
         if WaitUpText('Wield',500) then
            begin
            ClickMouse2(1);
            end;
   end;
end;

is it just me or i think ending up with this is a bit complex

…

Pretty sure my solution above solves this, dunno why you are still working with the old code

This is all of the thing and look for "looky looky" for the problem

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;

end;              

your code hilights Program DTM;

Akash I can help you over teamviewer and teach you a little bit about stuff if you wish but asking for people to do the whole anti leech will not work. Let me know if you would like the help. I will not do the anti leech for you, I will simply show you what to look for and teach you what the various errors mean.

whats a teamviewer? lol


script logs off after 1 competition at range guild

Akash, we are all telling you to read tutorials and learn, and to stop asking for fixes to antileech. Asking for fixes to antileech is a paradox anyways, it's there for the user to solve and if he can't then the antileech is doing it's job.


The problem is that you are skimming the tutorials for quick fixes to your specific errors, with the goal to solve the antileech.
When in fact you SHOULD be reading the tutorials for knowledge and information so you can actually learn to script (at least basics) and then the fixes to the antileech will come with the knowledge.

Now, please STOP making threads and asking for fixes to antileech. The solution is to do what I said, not ask for help.

If this was any otter question about your own script or programming knowledge we would all gladly help you, but you are asking us to fix a script that is meant to work only for those who cab fix them themselves.

I looked at almost 5-8 tutorials but i still cant understand.
i know that im annoying but i really cant understand a thing.

Back then I started learning, I read only 3 tutorials and I made my first script. There are many useful tutorials out there, especially the video tutorials made by Yohojo. You should really read and learn seriously, not just scan through the whole tutorial in a few minutes just for finding your own solution.

http://www.youtube.com/watch?v=qfumZWrm_DE&feature=plcp this one?