1
0
mirror of https://github.com/moparisthebest/Simba synced 2024-11-22 17:22:21 -05:00
Simba/Units/MMLAddon/RTInc/other.inc

20 lines
703 B
PHP
Raw Normal View History

procedure RUTIS_ps_Writeln(Params: PRutisParamInfoArray; Result: PRutisParamInfo);
2010-09-10 19:10:49 -04:00
begin
ps_Writeln(Pstring(Params^[0].Data)^);
2010-09-10 19:10:49 -04:00
end;
procedure RUTIS_ps_SetScriptProp(Params: PRutisParamInfoArray; Result: PRutisParamInfo);
begin
Pboolean(Result^.Data)^ := ps_SetScriptProp(PSP_Property(Params^[0].Data)^, PVariantArray(Params^[1].Data)^);
end;
procedure RUTIS_ps_GetScriptProp(Params: PRutisParamInfoArray; Result: PRutisParamInfo);
begin
Pboolean(Result^.Data)^ := ps_GetScriptProp(PSP_Property(Params^[0].Data)^, PVariantArray(PPointer(Params^[1].Data)^)^);
2010-09-10 19:10:49 -04:00
end;
procedure RUTIS_ps_Wait(Params: PRutisParamInfoArray; Result: PRutisParamInfo);
begin
ps_Wait(PInteger(Params^[0].Data)^);
end;