Can someone tell me whats wrong?

[akash22]

This is the dtm code

Procedure LoadDTM;
Begin
ArrowDTM := DTMFromString('mggAAAHicY2NgYOACYhEgFgBiXiDmYIAAZi gN4vMDsTCUdtEA6WDCwCIM2AEjDgwBAGIcASA=');
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.

[NKN]

end'
Should be
end;

[akash22]

lol didnt see that thanks.

[akash22]

same error

[NKN]

Procedure LoadDTM;
Begin
ArrowDTM := DTMFromString('mggAAAHicY2NgYOACYhEgFgBiXiDmYIAAZi gN4vMDsTCUdtEA6WDCwCIM2AEjDgwBAGIcASA=');
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('mggAAAHicY2NgYOACYhEgFgBiXiDmYIAAZi gN4vMDsTCUdtEA6WDCwCIM2AEjDgwBAGIcASA=');
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);

[kevin33]

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

[NKN]

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

[akash22]

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

[kevin33]

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

[akash22]

Ill try reading that.

[NKN]

I helped remove anti-leech...

Oh no...

[akash22]

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

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

[CephaXz]

You missed out a begin or an end before that procedure

[akash22]

Which one?

[Main]

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.

[Recursive]

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

[akash22]

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.

[CephaXz]

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

[akash22]

guys i started with


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)




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

Procedure LoadDTM;
Begin
ArrowDTM := DTMFromString('mggAAAHicY2NgYOACYhEgFgBiXiDmYIAAZi gN4vMDsTCUdtEA6WDCwCIM2AEjDgwBAGIcASA');
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

[akash22]

...

[Recursive]

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

[akash22]

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('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;


your code hilights Program DTM;

[kevin33]

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.

[akash22]

whats a teamviewer? lol


script logs off after 1 competition at range guild

[YoHoJo]

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.

[akash22]

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

[CephaXz]

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.

[akash22]

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