Simba/Units/MMLAddon/PSInc/Wrappers/other.inc

{
	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
}

procedure psWait(t: Integer);
{$ifdef MSWINDOWS}
begin
  Sleep(t);
end;
{$else}
var
  EndTime : integer;
begin
  if t > 50 then
  begin;
    EndTime := GetTickCount + t;
    while (CurrThread.PSScript.Exec.Status = isRunning) and (GetTickCount < EndTime) do
      Sleep(16);
  end else
    sleep(t);
end;
{$endif}

procedure SaveScreenshot(FileName: string);
var
  w,h : integer;
begin;
  with CurrThread.Client.MWindow do
  begin;
    GetDimensions(w,h);
    with CopyClientToBitmap(0,0,w-1,h-1) do
    begin;
      SaveToFile(FileName);
      Free;
    end;
  end;
end;

function CreateForm : TForm;
begin;
  result := TForm.Create(nil);
end;
function CreateButton(Owner : TComponent) : TButton;
begin
  Result := TButton.Create(Owner);
end;

function Distance(x1, y1, x2, y2: Integer): Integer;
begin;
  Result := Round(Sqrt(Sqr(x2-x1) + Sqr(y2-y1)));
end;

procedure DisplayDebugImgWindow(w,h : integer);
begin;
  CurrThread.DebugImg.DispSize^ := Classes.Point(w,h);
  CurrThread.Synchronize( CurrThread.DebugImg.ShowForm);
end;

procedure DrawBitmapDebugImg(bmp : integer);
begin;
  CurrThread.DebugImg.ToDrawBitmap^ := CurrThread.Client.MBitmaps.Bmp[bmp];
  CurrThread.Synchronize(CurrThread.DebugImg.DrawBitmap);
end;

procedure TerminateScript;
begin;
  CurrThread.PSScript.Stop;
end;

procedure HakunaMatata;
begin;
  OpenWebPage('http://www.youtube.com/v/ejEVczA8PLU&hl=en&fs=1&autoplay=1');
end;