mirror of
https://github.com/moparisthebest/Simba
synced 2024-12-03 14:12:17 -05:00
20 lines
566 B
PHP
20 lines
566 B
PHP
procedure Lape_Writeln(const Params: PParamArray);
|
|
begin
|
|
ps_Writeln(Pstring(Params^[0])^);
|
|
end;
|
|
|
|
procedure Lape_SetScriptProp(const Params: PParamArray; const Result: Pointer);
|
|
begin
|
|
Pboolean(Result)^ := ps_SetScriptProp(PSP_Property(Params^[0])^, PVariantArray(Params^[1])^);
|
|
end;
|
|
|
|
procedure Lape_GetScriptProp(const Params: PParamArray; const Result: Pointer);
|
|
begin
|
|
Pboolean(Result)^ := ps_GetScriptProp(PSP_Property(Params^[0])^, PVariantArray(Params^[1])^);
|
|
end;
|
|
|
|
procedure Lape_Wait(const Params: PParamArray);
|
|
begin
|
|
ps_Wait(PDWord(Params^[0])^);
|
|
end;
|