greg_nc
2013-03-03 07:03:52
Hi guys,
I can find the DTM with no problem just fails to click(ObjDTM_Walk) using euphemism Object DTM guide and include http://94-23-148-96.ovh.net/forum/showthread.php?t=72067
Any advice would be great thanks,
Greg
I can find the DTM with no problem just fails to click(ObjDTM_Walk) using euphemism Object DTM guide and include http://94-23-148-96.ovh.net/forum/showthread.php?t=72067
Any advice would be great thanks,
Greg
program Bankwalk;
{$i SRL/SRL.simba}
{$i P07Include.simba}
{$i ObjectDTM\ObjDTMInclude.simba}
procedure LetsWalk;
var
cx, cy: Integer;
begin
if ObjDTM_Find('98:78:5:10:7:113:58:10:7:114:62:10:7:114:66:10:7:115:70:10:7:115:75:4:105:67:88:72:91:89:108:83', cx, cy, True) then
begin
Writeln('We found it, now lets walk it!');
ObjDTM_Walk('98:78:5:10:7:113:58:10:7:114:62:10:7:114:66:10:7:115:70:10:7:115:75:4:105:67:88:72:91:89:108:83', 2, 100, 5, True);
Writeln('We could not walk here, what a shame');
end;
begin
ObjDTM_Setup;
repeat
letswalk;
until P07_InvFull ;
end.