hedgewars/uScript.pas
changeset 3407 dcc129c4352e
parent 3368 791fa4664209
child 3539 c3d1fccbe0ed
equal deleted inserted replaced
3406:f4bdebced042 3407:dcc129c4352e
   103     lc_showmission:= 0;
   103     lc_showmission:= 0;
   104 end;
   104 end;
   105 
   105 
   106 function lc_hidemission(L : Plua_State) : LongInt; Cdecl;
   106 function lc_hidemission(L : Plua_State) : LongInt; Cdecl;
   107 begin
   107 begin
       
   108     L:= L; // avoid compiler hint
   108     HideMission;
   109     HideMission;
   109     lc_hidemission:= 0;
   110     lc_hidemission:= 0;
   110 end;
   111 end;
   111 
   112 
   112 function lc_addgear(L : Plua_State) : LongInt; Cdecl;
   113 function lc_addgear(L : Plua_State) : LongInt; Cdecl;
   370     lc_settag:= 0
   371     lc_settag:= 0
   371 end;
   372 end;
   372 
   373 
   373 function lc_endgame(L : Plua_State) : LongInt; Cdecl;
   374 function lc_endgame(L : Plua_State) : LongInt; Cdecl;
   374 begin
   375 begin
       
   376     L:= L; // avoid compiler hint
   375     GameState:= gsExit;
   377     GameState:= gsExit;
   376     lc_endgame:= 0
   378     lc_endgame:= 0
   377 end;
   379 end;
   378 
   380 
   379 function lc_findplace(L : Plua_State) : LongInt; Cdecl;
   381 function lc_findplace(L : Plua_State) : LongInt; Cdecl;
   567 ScriptSetString('Map', '');
   569 ScriptSetString('Map', '');
   568 ScriptSetString('Theme', '');
   570 ScriptSetString('Theme', '');
   569 
   571 
   570 // import locale
   572 // import locale
   571 s:= cLocaleFName;
   573 s:= cLocaleFName;
       
   574 t:= '';
   572 SplitByChar(s, t, '.');
   575 SplitByChar(s, t, '.');
   573 ScriptSetString('L', s);
   576 ScriptSetString('L', s);
   574 
   577 
   575 ScriptCall('onGameInit');
   578 ScriptCall('onGameInit');
   576 
   579