equal
deleted
inserted
replaced
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. |