Unknow identifier "ObjDTM_Find'

[Element17]

I keep getting this at line 90 and I'm not sure why? I have ObjDTM_setup

program VEWAlker;
//{$DEFINE SMART}
{$i srl/srl.simba}
{$IFDEF SMART}
{$i srl/srl/misc/paintsmart.simba}
{$i sps/sps.simba}
{$i ObjectDTM\ObjDTMInclude.simba}
{$ENDIF}


Const
SERVER = 61; // Enter "0" to pick a random server.
MEMBERS = False; // Set to True if using a RS-Members account. False if F2P.
SRLStats_Username = ''; // Your SRL Stats Username
SRLStats_Password = ''; // Your SRL Stats Password
NumbOfPlayers= 1; //How many players are you using
StartPlayer= 0; //Player to start auoting with! (0 means first char)
Version= '1.0'; //Change back to 1 if new script




Var
X, Y, I: Integer;
TooLong: Integer;




Procedure DeclarePlayers;
Var i:integer;
Begin
NumberOfPlayers(NumbOfPlayers);
CurrentPlayer := StartPlayer;
For i := 0 to NumbOfPlayers-1 Do
Players[i].BoxRewards := ['mote', 'ostume', 'XP', 'Gem', 'ithril', 'oal', 'une', 'oins'];

With Players[0] Do
Begin
Name := ''; //Player username.
Pass := ''; //Player password.
Nick := ''; //Player nickname - 3-4 letters of Player username.
Active := True;
End;
End;


{Writes lines in the dbug box}

Procedure StatsGuise(wat:String);
Begin
Status(wat);
Disguise(wat);
End;

Procedure Antiban;
Begin
Case Random(192) Of
0: HoverSkill('Mining', False);
1: Begin PickUpMouse; SleepAndMoveMouse(3000 + Random(500)); End;
2: ExamineInv;
3: RandomAngle(1);
4: Begin GameTab(Tab_Stats); Wait(3000 + Random(500)); GameTab(Tab_Inv); End;
5: HoverSkill('random', False);
End;
End;

Procedure FailSafe(Reason:String);
Begin
Players[CurrentPlayer].Loc:=Reason;
Logout;
Stats_commit;
Terminatescript;
End;

Procedure Bankit; //Credits to Trickyy and Marpis
Var
i : Integer;
Begin
If (Not(LoggedIn)) Then Exit;
For i:=1 To 4 Do
If OpenBank('veb', True, True) Then
Break;
End;

Function LetsWalk :Integer;
Var
cx, cy: Integer;
Begin
If ObjDTM_Find('58:41:4:3:7:63:71:3:7:63:79:3:7:103:7 1:3:7:104:79:6:61:37:49:37:51:55:76:51:62:37:50:38 ', cx, cy, True) Then
Begin
Writeln('We found it,walking');
ObjDTM_Walk('58:41:4:3:7:63:71:3:7:63:79:3:7:103:7 1:3:7:104:79:6:61:37:49:37:51:55:76:51:62:37:50:38 ', 2, 100, 5, True);
End Else
Writeln('Could not find it');
End;

Function FindYew(Var X, Y :Integer): Boolean; //Credit to Kyle for the TUT
Var
a :Integer;
TPA: TPointArray;
ATPA : T2DPointArray;
MP :TPoint;
tmpCTS :Integer;
Box :TBox;
Begin
If(Not(LoggedIn))Then Exit;
tmpCTS :=GetColorToleranceSpeed;
ColorToleranceSpeed(2);
SetColorSpeed2Modifiers(0.12, 0.12)

FindColorsSpiralTolerance(MSCX, MSCY, TPA, VeYew, MSX1, MSY1, MSX2, MSY2, 5);
SortTPAFrom(TPA, Point(MSCX, MSCY));
ATPA := TPAtoATPAEx(TPA, 15, 15);

For a := 0 To High(ATPA) Do
Begin
MP := MiddleTPA(ATPA[a]);
Box := IntToBox((MP.X - 20), (MP.Y - 20), (MP.X + 20), (MP.Y + 20));
{$IFDEF SMART}
SMART_DrawBoxEx(True, Box, clYellow);
{$ENDIF}
MMouse(MP.X, MP.Y, 4, 4);
If(WaitUptext('Tree', 750))Then
Begin
X := MP.X; Y := MP.Y;
Result := True;
{$IFDEF SMART}
SMART_ClearCanvas;
{$ENDIF}
Break;
End;
End;

ColorToleranceSpeed(tmpCTS);
SetColorSpeed2Modifiers(0.2, 0.2);
End;

Procedure ChopYew2(); //Took Kyle's Idea and changed it a little
Var
X, Y, LogCounter: Integer;
Box: TBox;
Begin
If(Not(loggedIn))Then Exit;
MarkTime(TooLong);
FindNormalRandoms;
MakeCompass('N');
Box:= IntToBox(MSCX -10, MSCY -25, MSCX +15, MSCY +15);
If(Not(FindNormalRandoms))Then
Begin
If(FindYew(X, Y))Then
Begin
StatsGuise('Found Tree, Chopping')
Wait(RandomRange(150, 250));

Case Random(2) of
0: Mouse(X, Y, 5, 5, True);
1: Begin
Mouse(X, Y, 5, 5, False);
WaitOption('Chop', 500);

Wait(RandomRange(100, 300));
While(Animating(Box, 750, 30))Do
Begin

Flag;
MarkTime(LogCounter);
If (TimeFromMark(Toolong) > 20000) Then
FailSafe('Could not find Tree');
AntiBan;
Wait(RandomRange(100, 300));
StatsGuise('AntiBan and Waiting');
Repeat
If (TimeFromMark(Toolong) > 25000) Then
FailSafe('Could not find Tree');
FindNormalRandoms;
StatsGuise('AntiBan and Waiting');
Antiban;
Wait(100);
Writeln('Log Cut');
Until (Not FindYew(X, Y)) or (InvFull)
End;
End;
End;
End;
End;
End;


{Function ChopYew: Boolean;
Var
X, Y, PlusOne, LogCounter: Integer;
Begin
If Not LoggedIn then
Exit;
MarkTime(TooLong);
FindNormalRandoms;
PlusOne:= InvCount +1;
X:=MSCX;
Y:=MSCY;
If (FindObjCustom(X, Y, ['Cho', 'ope'], [4454, 45487], 7))Then
Begin
StatsGuise('We found Tree');
GetMousePos(X, Y);

Case Random(2) of
0: Mouse(X, Y, 5, 5, True);
1: Begin
Mouse(X, Y, 5, 5, False);
WaitOption('Chop', 500);
End;
End;

Flag;
MarkTime(LogCounter);
If (TimeFromMark(Toolong) > 20000) Then
FailSafe('Could not find Tree');
Repeat;
If (TimeFromMark(Toolong) > 25000) Then
FailSafe('Could not find Tree');
FindNormalRandoms;
StatsGuise('AntiBan and Waiting');
Antiban;
Wait(100);
If InvCount=PlusOne Then
Writeln('Log Cut');
Until (InvCount=PlusOne) or (TimeFromMark(LogCounter) > 5000) or (InvFull)
End;
End; }

Procedure Mainloop;
Begin
Repeat
LetsWalk;
ChopYew2;
//If Invfull Then
//Bankit; //No need yet can't get to tree
Until(False);
End;

Begin

Smart_Server := 30;
Smart_Members := False;
Smart_Signed := True;
Smart_SuperDetail := False;
ClearDebug;
SetupSRL;
ObjDTM_Setup;
SetupSRLStats(439, SRLStats_Username, SRLStats_Password);
DeclarePlayers;
LoginPlayer;
Mainloop;
end.

[Abu]

Fixed, use these instead of what you have:

{$DEFINE SMART}
{$i srl\srl.simba}
{$i sps/sps.simba}
{$i ObjectDTM\ObjDTMInclude.simba}

[Element17]

Okay, thank you +rep