Added include for extension.

Includes/mml.simba

@@ -0,0 +1,57 @@
+procedure GetClientDimensions(var w,h : integer);
+begin
+  Client.IOManager.GetDimensions(w, h);
+end;
+
+procedure SetDesktopAsClient;
+begin
+  Client.IOManager.SetDesktop;
+end;
+
+function SetTargetBitmap(bitmap: TMufasaBitmap): integer;
+begin;
+  result:= Client.IOManager.SetTargetBitmap(Bitmap);
+end;
+
+procedure SetImageTarget(idx: integer);
+begin
+  Client.IOManager.SetImageTarget(idx);
+end;
+
+function GetImageTarget: integer;
+begin
+  Client.IOManager.GetImageTarget(result);
+end;
+
+function Freeze: boolean;
+begin
+  Client.IOManager.SetFrozen(true);
+  result := true; //dunno what the result is supposed to mean
+end;
+
+function Unfreeze: boolean;
+begin
+  Client.IOManager.SetFrozen(false);
+  result := true; //dunno what the result is supposed to mean
+end;
+
+function FindDTMs(DTM: Integer; var p: TPointArray; xs, ys, xe, ye: Integer): Boolean;
+begin
+  with Client do
+    result := MFinder.FindDTMs(MDTMs[DTM], p, xs, ys, xe, ye);
+end;
+
+procedure FreeDTM(DTM: Integer);
+begin
+  Client.MDTMs.FreeDTM(DTM);
+end;
+
+function DTMFromString(const DTMString: String): Integer;
+begin
+  Result := Client.MDTMs.StringToDTM(DTMString);
+end;
+
+function AddDTM(const d: TMDTM): Integer;
+begin
+  Result := Client.MDTMs.AddDTM(d);
+end;