mirror of
https://github.com/moparisthebest/Simba
synced 2024-11-27 11:32:18 -05:00
249 lines
7.2 KiB
PHP
249 lines
7.2 KiB
PHP
{
|
|
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
|
|
}
|
|
|
|
function MakeString(data : TPSVariantIFC) : string;
|
|
begin;
|
|
if data.Dta = nil then
|
|
result := 'Nil'
|
|
else
|
|
if data.aType.basetype in [btString,btChar] then
|
|
result := PSGetAnsiString(Data.Dta,data.aType)
|
|
else if data.aType.ExportName = 'BOOLEAN' then
|
|
result := BoolToStr(PSGetInt(Data.Dta,data.aType) <> 0,true)
|
|
else if data.aType.BaseType in [btExtended,btSingle,btDouble] then
|
|
result := FloatToStr(PSGetReal(data.Dta,data.aType))
|
|
else
|
|
result := PSVariantToString(data,'');
|
|
end;
|
|
|
|
function writeln_(Caller: TPSExec; p: TPSExternalProcRec; Global, Stack: TPSStack): Boolean;
|
|
begin
|
|
Result:=true;
|
|
psWriteln(makeString(NewTPSVariantIFC(Stack[Stack.Count-1],false)));
|
|
end;
|
|
|
|
function swap_(Caller: TPSExec; p: TPSExternalProcRec; Global, Stack: TPSStack): Boolean;
|
|
var
|
|
Param1,Param2: TPSVariantIFC;
|
|
tempCopy : pointer;
|
|
begin
|
|
Result:=true;
|
|
Param1 := NewTPSVariantIFC(Stack[Stack.count-1],true);
|
|
Param2 := NewTPSVariantIFC(Stack[Stack.count-2],true);
|
|
if Param1.aType.BaseType <> Param2.aType.BaseType then
|
|
exit(false)
|
|
else
|
|
begin
|
|
Param1.aType.CalcSize;
|
|
param2.aType.CalcSize;
|
|
if Param1.aType.RealSize <> Param2.aType.RealSize then
|
|
exit(false);
|
|
GetMem(tempcopy,Param1.aType.RealSize);
|
|
Move(Param1.Dta^,tempCopy^,param1.atype.realsize);
|
|
Move(Param2.Dta^,Param1.Dta^,param1.atype.realsize);
|
|
Move(tempCopy^,Param2.Dta^,param1.atype.realsize);
|
|
Freemem(tempcopy);
|
|
end;
|
|
end;
|
|
|
|
function ToStr_(Caller: TPSExec; p: TPSExternalProcRec; Global, Stack: TPSStack): Boolean;
|
|
begin
|
|
result := true;
|
|
Stack.SetAnsiString(-1, MakeString(NewTPSVariantIFC(Stack[Stack.Count-2],false)));
|
|
end;
|
|
|
|
{$IFNDEF MML_EXPORT_THREADSAFE}
|
|
function ps_SetScriptProp(prop : TSP_Property; Value: TVariantArray): boolean; extdecl;
|
|
begin
|
|
Exit(CurrThread.Prop.SetProp(prop, Value));
|
|
end;
|
|
|
|
function ps_GetScriptProp(prop : TSP_Property; var Value : TVariantArray) : boolean; extdecl;
|
|
begin;
|
|
exit(CurrThread.Prop.GetProp(prop,value));
|
|
end;
|
|
{$ENDIF}
|
|
|
|
procedure ps_Wait(t: Integer); extdecl;
|
|
{$ifdef MSWINDOWS}
|
|
begin
|
|
Sleep(t);
|
|
end;
|
|
{$else}
|
|
var
|
|
EndTime : DWord;
|
|
begin
|
|
if t > 50 then
|
|
begin;
|
|
EndTime := GetTickCount + t;
|
|
while {(CurrThread.PSScript.Exec.Status = isRunning) and }(GetTickCount < EndTime) do
|
|
Sleep(16);
|
|
end else
|
|
begin
|
|
sleep(t);
|
|
end;
|
|
end;
|
|
{$endif}
|
|
|
|
procedure ps_PlaySound( Sound : string); extdecl;
|
|
begin
|
|
{$ifdef MSWINDOWS}
|
|
sndPlaySound(PChar(sound),SND_ASYNC or SND_NODEFAULT);
|
|
{$else}
|
|
psWriteln(Format('Playing sound %s (not supported yet on Linux)',[sound]));
|
|
{$endif}
|
|
end;
|
|
|
|
Procedure ps_StopSound; extdecl;
|
|
begin
|
|
{$ifdef MSWINDOWS}
|
|
sndPlaySoundW(nil,0);
|
|
{$else}
|
|
psWriteln('Stopping sound is not supported yet on Linux');
|
|
{$endif}
|
|
end;
|
|
|
|
{$IFNDEF MML_EXPORT_THREADSAFE}
|
|
procedure ps_ClearDebug; extdecl;
|
|
begin
|
|
if Assigned(CurrThread.DebugClear) then
|
|
CurrThread.DebugClear();
|
|
end;
|
|
|
|
procedure ps_SetSupressExceptions(Supress : boolean);extdecl;
|
|
begin
|
|
CurrThread.Client.MFinder.WarnOnly:= Supress;
|
|
end;
|
|
|
|
procedure ps_SaveScreenshot(FileName: string); extdecl;
|
|
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;
|
|
|
|
|
|
|
|
procedure ps_DisplayDebugImgWindow(w,h : integer); extdecl;
|
|
begin;
|
|
CurrThread.DebugImg.DispSize^ := Classes.Point(w,h);
|
|
CurrThread.Synchronize( CurrThread.DebugImg.ShowForm);
|
|
end;
|
|
|
|
procedure ps_DrawBitmapDebugImg(bmp : integer); extdecl;
|
|
begin;
|
|
CurrThread.DebugImg.ToDrawBitmap^ := CurrThread.Client.MBitmaps[bmp];
|
|
CurrThread.Synchronize(CurrThread.DebugImg.DrawBitmap);
|
|
end;
|
|
|
|
function ps_GetDebugBitmap : integer; extdecl;
|
|
begin;
|
|
result := CurrThread.Client.MBitmaps.CreateBMP(0,0);
|
|
CurrThread.DebugImg.GetDebugBitmap^ := CurrThread.Client.MBitmaps[result];
|
|
CurrThread.Synchronize(CurrThread.DebugImg.GetBitmap);
|
|
end;
|
|
|
|
procedure ps_TerminateScript; extdecl;
|
|
begin;
|
|
CurrThread.Terminate;
|
|
end;
|
|
function ps_GetTimeRunning: LongWord; extdecl;
|
|
begin;
|
|
result := GetTickCount - CurrThread.StartTime;
|
|
end;
|
|
|
|
function ps_GetTClient : TClient; extdecl;
|
|
begin
|
|
Result := CurrThread.Client;
|
|
end;
|
|
|
|
{$ENDIF}
|
|
|
|
procedure ps_ConvertTime(Time : integer; var h,m,s : integer); extdecl;
|
|
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;
|
|
procedure ps_DecodeDate ( const SourceDate : TDateTime; var Year, Month, Day : Word ); extdecl;
|
|
begin
|
|
decodedate(sourcedate,year,month,day);
|
|
end;
|
|
procedure ps_DecodeTime(DateTime : TDateTime; var Hour,Min,Sec,MSec : word); extdecl;
|
|
begin
|
|
decodetime(datetime,hour,min,sec,msec);
|
|
end;
|
|
function ps_Now : TDateTime; extdecl;
|
|
begin
|
|
result := now;
|
|
end;
|
|
function ps_Date : TDateTime; extdecl;
|
|
begin
|
|
result := date;
|
|
end;
|
|
function ps_GetTickCount : Longword; extdecl;
|
|
begin
|
|
result := GetTickCount;
|
|
end;
|
|
procedure ps_HakunaMatata; extdecl;
|
|
begin;
|
|
OpenWebPage('http://www.youtube.com/v/ejEVczA8PLU&hl=en&fs=1&autoplay=1');
|
|
end;
|
|
procedure ps_Simba; extdecl;
|
|
begin
|
|
psWriteln(DecompressString(Base64Decode('9AoAAHicldU7b+0gDADgvdL9D+AisSDOTrpUvWvGuzNVOkMn9v72a942j6T1dJrEX7AxqRAXYaS9up3iz8suVxoMKe+'+
|
|
'NC6LGnbEhiCCfTzPfJ5cmgidj5J9MsezSQAyApGHGR17N9SpGoBj1tkuRkJHoAk3WeMfTC66GWbaTFtMAwZDPRjh73U4uCKGnRTh3NMK0mAjiXxA975iERASl'+
|
|
'QjfcRLBVS963TKCQDb0m8Brwwv1IKAWkErcipPNAC5+JdPmY62hE/O3L8yE+T4k4PpGwi2aiEIn25zcqKMQ1a6bgNtGN4kJqJ1tYeqFwrMNDcCFvKjMsWXLOK'+
|
|
'N19toPbBN2PmacG9BogFoW7CQD00JTHdZlLml1yQZiv8zzBxGlQzxoxlx+Gdjo8JQDMV8w/0UmCctC/PGZDIKKPFMIGOM8M5IlUyuMel05IwY3hiHoMTLJYdg'+
|
|
'RKvhJxsGt5wzKI8PApjpQTQmj5CkIRIO6S3REPXZjD1kyNGxABm60IxLkdu8HqQOaRmt0TcTVVFHzCdq2oX6ae2CMRuo/bWuhdHfMhfSI8PTE3xIjAuIRu7An'+
|
|
'hv0kN+e38+1GMPYH/hq1PcyKsywdWvI1n9Y4YXzsLydgSphI4G7i/AexYRTW2RJmBPqFqTcgtUW7T6dgQlwIDfrsIsyDCphcbot5eDPgviZ8Yt0S4Ne4Iuoy/H'+
|
|
'+//1sR/NLyhCQ==')));
|
|
end;
|
|
|
|
function ps_Random(Int: integer): integer; extdecl;
|
|
begin
|
|
result := Random(int);
|
|
end;
|
|
|
|
{$IFNDEF MML_EXPORT_THREADSAFE}
|
|
function ps_InputQuery(const ACaption, APrompt : String; var Value : String) : Boolean;extdecl;
|
|
begin
|
|
CurrThread.InputQueryData.ACaption:= ACaption;
|
|
CurrThread.InputQueryData.APrompt:= APrompt;
|
|
CurrThread.InputQueryData.Value:= Value;
|
|
CurrThread.Synchronize(@CurrThread.mInputQuery);
|
|
Value := CurrThread.InputQueryData.Value;
|
|
result := CurrThread.InputQueryData.Res;
|
|
end;
|
|
{$ENDIF}
|