NoUserName
05-11-2012, 08:19 PM
Hey all tanks for taking a look
right ive got this procedure and it will some times teleport but other times it will just go to the draynor tele and then not click just wait is it my code or the function?
procedure tel;
Var
HomeDTM, x, y: Integer;
begin
HomeDTM := DTMFromString('m1gAAAHic42JgYGhnhuAJUNwL5TcDcR0QN0 DFtjMyMKwD4q1AvBOI9wLxASDeD8Q7gHgTEG8E4n1HPjG0zblB EIswEAcYicQIAAA5ASEJ');
GameTab(28);
if FindDTM(HomeDTM, x, y, MIX1, MIY1, MIX2, MIY2) then
begin
mmouse (x, y, 7, 7);
ClickMouse2(mouse_left);
Writeln('Found Home!');
Wait(RandomRange(100, 100));
FreeDTM(HomeDTM);
end else
begin
Writeln('Error Finding Home DTM');
end;
Wait(RandomRange(1000, 400));
Lodestoneteleport('Draynor Village');
end;
thanks in advance!
right ive got this procedure and it will some times teleport but other times it will just go to the draynor tele and then not click just wait is it my code or the function?
procedure tel;
Var
HomeDTM, x, y: Integer;
begin
HomeDTM := DTMFromString('m1gAAAHic42JgYGhnhuAJUNwL5TcDcR0QN0 DFtjMyMKwD4q1AvBOI9wLxASDeD8Q7gHgTEG8E4n1HPjG0zblB EIswEAcYicQIAAA5ASEJ');
GameTab(28);
if FindDTM(HomeDTM, x, y, MIX1, MIY1, MIX2, MIY2) then
begin
mmouse (x, y, 7, 7);
ClickMouse2(mouse_left);
Writeln('Found Home!');
Wait(RandomRange(100, 100));
FreeDTM(HomeDTM);
end else
begin
Writeln('Error Finding Home DTM');
end;
Wait(RandomRange(1000, 400));
Lodestoneteleport('Draynor Village');
end;
thanks in advance!