hedgewars/uScript.pas
changeset 2798 d48bbe4518e6
parent 2795 c9c830897547
child 2799 558b29bf00c5
equal deleted inserted replaced
2797:98b990feec7d 2798:d48bbe4518e6
    35 
    35 
    36 procedure init_uScript;
    36 procedure init_uScript;
    37 procedure free_uScript;
    37 procedure free_uScript;
    38 
    38 
    39 implementation
    39 implementation
       
    40 {$IFNDEF IPHONEOS}
    40 uses LuaPas in 'LuaPas.pas',
    41 uses LuaPas in 'LuaPas.pas',
    41 	uConsole,
    42 	uConsole,
    42 	uMisc,
    43 	uMisc,
    43 	uConsts,
    44 	uConsts,
    44 	uGears,
    45 	uGears,
    47 	uAmmos,
    48 	uAmmos,
    48 	uSound,
    49 	uSound,
    49 	uTeams,
    50 	uTeams,
    50 	uKeys,
    51 	uKeys,
    51 	typinfo;
    52 	typinfo;
    52 
    53 	
    53 var luaState : Plua_State;
    54 var luaState : Plua_State;
    54 	ScriptAmmoStore : string;
    55 	ScriptAmmoStore : string;
    55 	ScriptLoaded : boolean;
    56 	ScriptLoaded : boolean;
    56 	
    57 	
    57 procedure ScriptPrepareAmmoStore; forward;
    58 procedure ScriptPrepareAmmoStore; forward;
   523 procedure free_uScript;
   524 procedure free_uScript;
   524 begin
   525 begin
   525 lua_close(luaState);
   526 lua_close(luaState);
   526 end;
   527 end;
   527 
   528 
       
   529 {$ELSE}
       
   530 procedure ScriptPrintStack;
       
   531 begin
       
   532 end;
       
   533 
       
   534 procedure ScriptClearStack;
       
   535 begin
       
   536 end;
       
   537 
       
   538 procedure ScriptLoad(name : string);
       
   539 begin
       
   540 end;
       
   541 
       
   542 procedure ScriptOnGameInit;
       
   543 begin
       
   544 end;
       
   545 
       
   546 procedure ScriptCall(fname : string);
       
   547 begin
       
   548 end;
       
   549 
       
   550 function ScriptCall(fname : string; par1, par2, par3, par4 : LongInt) : LongInt;
       
   551 begin
       
   552 ScriptCall:= nil
       
   553 end;
       
   554 
       
   555 procedure init_uScript;
       
   556 begin
       
   557 end;
       
   558 
       
   559 procedure free_uScript;
       
   560 begin
       
   561 end;
       
   562 
       
   563 {$ENDIF}
   528 end.
   564 end.