Deadly Serious
01-13-2012, 02:23 AM
I'm trying to make a more accurate system to click the portal but I'm having a bit of trouble.
It's having trouble recognizing the dtm. I believe it's from this line
"if FindDTM(PortalDTM,x, y, 1, 1, 200, 200) then"
Procedure Leave;
var
PortalDTM, X,Y: Integer;
Begin
if not loggedin then exit;
FindNormalRandoms;
Antiban;
DidRedClick;
begin
PortalDTM := DTMFromString('mwQAAAHic42RgYKhhZGDoBuIORgi7EIjzgb gEiOuh4gFQHAnEcVDaH4hdgNgRiN2BODs9HWgaEwFMGDASgeEA ACHzCJ8=');
if FindDTM(PortalDTM,x, y, 1, 1, 200, 200) then
begin
Writeln('Leaving the Mysterious rock formation')
Getmousepos(x, y)
Case random(11) of
0..10: begin
MMouse(X, Y, 2, 2);
ClickMouse2(True);
end;
// 9..10: begin;
// MMouse(X, Y, 2, 2);
// ClickMouse2(False);
// Waitoption('nter', 3000);
end;
FreeDTM(PortalDTM)
end;
end;
end;
It's having trouble recognizing the dtm. I believe it's from this line
"if FindDTM(PortalDTM,x, y, 1, 1, 200, 200) then"
Procedure Leave;
var
PortalDTM, X,Y: Integer;
Begin
if not loggedin then exit;
FindNormalRandoms;
Antiban;
DidRedClick;
begin
PortalDTM := DTMFromString('mwQAAAHic42RgYKhhZGDoBuIORgi7EIjzgb gEiOuh4gFQHAnEcVDaH4hdgNgRiN2BODs9HWgaEwFMGDASgeEA ACHzCJ8=');
if FindDTM(PortalDTM,x, y, 1, 1, 200, 200) then
begin
Writeln('Leaving the Mysterious rock formation')
Getmousepos(x, y)
Case random(11) of
0..10: begin
MMouse(X, Y, 2, 2);
ClickMouse2(True);
end;
// 9..10: begin;
// MMouse(X, Y, 2, 2);
// ClickMouse2(False);
// Waitoption('nter', 3000);
end;
FreeDTM(PortalDTM)
end;
end;
end;