rj
2012-12-31 00:48:00
Err I was making my own includes for a private servers and i accidently saved one of them to "mml" in the includes folder :duh::duh::duh::duh::duh: what does this folder code look like lol
2012-12-31 00:48:00
2012-12-31 01:02:14
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.GetDTM(DTM), p, xs, ys, xe, ye,0);
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.AddMDTM(d);
end;
function GetDTM(const index : integer) : TMDTM;
begin
result := Client.MDTMs.GetDTM(index);
end;
function FindColorsTolerance(var Points: TPointArray; Color, xs, ys, xe, ye, Tolerance: Integer): Boolean;
begin;
result := Client.MFinder.FindColorsTolerance(points,color,xs,ys,xe,ye,tolerance);
end;
2012-12-31 01:03:45
From: BMWxi
Is this what you're looking for? This what what was in mine.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.GetDTM(DTM), p, xs, ys, xe, ye,0);
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.AddMDTM(d);
end;
function GetDTM(const index : integer) : TMDTM;
begin
result := Client.MDTMs.GetDTM(index);
end;
function FindColorsTolerance(var Points: TPointArray; Color, xs, ys, xe, ye, Tolerance: Integer): Boolean;
begin;
result := Client.MFinder.FindColorsTolerance(points,color,xs,ys,xe,ye,tolerance);
end;
2012-12-31 01:08:26
2012-12-31 01:13:57
2012-12-31 01:15:59
From: Wardancer
Just a warning though. Make sure to save your own personal include in another folder too as there is a risk of it getting deleted by a SRL update I heard. I don't really know if that's true or just some kind of urban legend, but I wouldn't take the risk unless someone can clarify this with a minimum level of certainty.
2012-12-31 01:18:02
From: Wardancer
Just a warning though. Make sure to save your own personal include in another folder too as there is a risk of it getting deleted by a SRL update I heard. I don't really know if that's true or just some kind of urban legend, but I wouldn't take the risk unless someone can clarify this with a minimum level of certainty.