2010-01-25 08:59:44 -05:00
|
|
|
{
|
|
|
|
This file is part of the Mufasa Macro Library (MML)
|
|
|
|
Copyright (c) 2009 by Raymond van Venetië and Merlijn Wajer
|
|
|
|
|
|
|
|
MML is free software: you can redistribute it and/or modify
|
|
|
|
it under the terms of the GNU General Public License as published by
|
|
|
|
the Free Software Foundation, either version 3 of the License, or
|
|
|
|
(at your option) any later version.
|
|
|
|
|
|
|
|
MML is distributed in the hope that it will be useful,
|
|
|
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
|
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
|
|
GNU General Public License for more details.
|
|
|
|
|
|
|
|
You should have received a copy of the GNU General Public License
|
|
|
|
along with MML. If not, see <http://www.gnu.org/licenses/>.
|
|
|
|
|
|
|
|
See the file COPYING, included in this distribution,
|
|
|
|
for details about the copyright.
|
|
|
|
|
|
|
|
Other.inc for the Mufasa Macro Library
|
|
|
|
}
|
|
|
|
|
2010-01-26 09:09:09 -05:00
|
|
|
procedure psWait(t: Integer); stdcall;
|
2010-01-25 08:59:44 -05:00
|
|
|
{$ifdef MSWINDOWS}
|
|
|
|
begin
|
|
|
|
Sleep(t);
|
|
|
|
end;
|
|
|
|
{$else}
|
|
|
|
var
|
|
|
|
EndTime : DWord;
|
|
|
|
begin
|
|
|
|
if t > 50 then
|
|
|
|
begin;
|
|
|
|
EndTime := GetTickCount + t;
|
2010-01-25 12:38:43 -05:00
|
|
|
while {(CurrThread.PSScript.Exec.Status = isRunning) and }(GetTickCount < EndTime) do
|
2010-01-25 08:59:44 -05:00
|
|
|
Sleep(16);
|
|
|
|
end else
|
|
|
|
begin
|
|
|
|
sleep(t);
|
|
|
|
end;
|
|
|
|
end;
|
|
|
|
{$endif}
|
|
|
|
|
2010-01-26 09:09:09 -05:00
|
|
|
procedure ClearDebug; stdcall;
|
2010-01-25 08:59:44 -05:00
|
|
|
begin
|
|
|
|
if Assigned(CurrThread.DebugMemo) then
|
|
|
|
CurrThread.Synchronize(@CurrThread.DebugMemo.Clear);
|
|
|
|
end;
|
|
|
|
|
2010-01-26 09:09:09 -05:00
|
|
|
procedure SaveScreenshot(FileName: string); stdcall;
|
2010-01-25 08:59:44 -05:00
|
|
|
var
|
|
|
|
w,h : integer;
|
|
|
|
bmp: TMufasaBitmap;
|
|
|
|
begin;
|
|
|
|
CurrThread.Client.IOManager.GetDimensions(w,h);
|
|
|
|
bmp := TMufasaBitmap.Create;
|
|
|
|
bmp.CopyClientToBitmap(CurrThread.Client.IOManager,True,0,0,w-1,h-1);
|
|
|
|
bmp.SaveToFile(FileName);
|
|
|
|
bmp.Free;
|
|
|
|
end;
|
|
|
|
|
2010-01-26 09:09:09 -05:00
|
|
|
function MinE(a, b: Extended): Extended; stdcall;
|
2010-01-25 08:59:44 -05:00
|
|
|
begin;
|
|
|
|
result := min(a,b);
|
|
|
|
end;
|
|
|
|
|
2010-01-26 09:09:09 -05:00
|
|
|
function IntToBox(x1,y1,x2,y2 : integer) : TBox; stdcall;
|
2010-01-25 08:59:44 -05:00
|
|
|
begin;
|
|
|
|
result.x1 := x1;
|
|
|
|
result.y1 := y1;
|
|
|
|
result.x2 := x2;
|
|
|
|
result.y2 := y2;
|
|
|
|
end;
|
|
|
|
|
2010-01-26 09:09:09 -05:00
|
|
|
function IntInBox(x, y: Integer; Box: TBox): Boolean; stdcall;
|
2010-01-25 08:59:44 -05:00
|
|
|
begin;
|
|
|
|
result := (((x >= Box.x1) and(x <= Box.x2)) and ((y >= box.y1) and (y <= box.y2)));
|
|
|
|
end;
|
|
|
|
|
2010-01-26 09:09:09 -05:00
|
|
|
function Distance(x1, y1, x2, y2: Integer): Integer; stdcall;
|
2010-01-25 08:59:44 -05:00
|
|
|
begin;
|
|
|
|
Result := Round(Sqrt(Sqr(x2-x1) + Sqr(y2-y1)));
|
|
|
|
end;
|
|
|
|
|
2010-01-26 09:09:09 -05:00
|
|
|
procedure DisplayDebugImgWindow(w,h : integer); stdcall;
|
2010-01-25 08:59:44 -05:00
|
|
|
begin;
|
|
|
|
CurrThread.DebugImg.DispSize^ := Classes.Point(w,h);
|
|
|
|
CurrThread.Synchronize( CurrThread.DebugImg.ShowForm);
|
|
|
|
end;
|
|
|
|
|
2010-01-26 09:09:09 -05:00
|
|
|
procedure DrawBitmapDebugImg(bmp : integer); stdcall;
|
2010-01-25 08:59:44 -05:00
|
|
|
begin;
|
|
|
|
CurrThread.DebugImg.ToDrawBitmap^ := CurrThread.Client.MBitmaps[bmp];
|
|
|
|
CurrThread.Synchronize(CurrThread.DebugImg.DrawBitmap);
|
|
|
|
end;
|
|
|
|
|
2010-01-26 09:09:09 -05:00
|
|
|
function GetDebugBitmap : integer; stdcall;
|
2010-01-25 08:59:44 -05:00
|
|
|
begin;
|
|
|
|
result := CurrThread.Client.MBitmaps.CreateBMP(0,0);
|
|
|
|
CurrThread.DebugImg.GetDebugBitmap^ := CurrThread.Client.MBitmaps[result];
|
|
|
|
CurrThread.Synchronize(CurrThread.DebugImg.GetBitmap);
|
|
|
|
end;
|
|
|
|
|
2010-01-26 09:09:09 -05:00
|
|
|
procedure TerminateScript; stdcall;
|
2010-01-25 08:59:44 -05:00
|
|
|
begin;
|
2010-01-25 12:38:43 -05:00
|
|
|
CurrThread.Terminate;
|
2010-01-25 08:59:44 -05:00
|
|
|
end;
|
2010-01-26 09:09:09 -05:00
|
|
|
function GetTimeRunning: LongWord; stdcall;
|
2010-01-25 08:59:44 -05:00
|
|
|
begin;
|
|
|
|
result := GetTickCount - CurrThread.StartTime;
|
|
|
|
end;
|
|
|
|
|
2010-01-26 09:09:09 -05:00
|
|
|
procedure ConvertTime(Time : integer; var h,m,s : integer); stdcall;
|
2010-01-25 08:59:44 -05:00
|
|
|
var
|
|
|
|
x : integer;
|
|
|
|
begin;
|
|
|
|
x := time;
|
|
|
|
h := x div(1000 * 60 * 60);
|
|
|
|
x := x mod (1000 * 60 * 60);
|
|
|
|
m := x div (1000 * 60);
|
|
|
|
x := x mod (1000 * 60);
|
|
|
|
s := x div (1000);
|
|
|
|
end;
|
|
|
|
|
2010-01-26 09:09:09 -05:00
|
|
|
procedure HakunaMatata; stdcall;
|
2010-01-25 08:59:44 -05:00
|
|
|
begin;
|
|
|
|
OpenWebPage('http://www.youtube.com/v/ejEVczA8PLU&hl=en&fs=1&autoplay=1');
|
|
|
|
end;
|