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:71: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:71: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