hedgewars/uScript.pas
changeset 14927 9d6a25239d00
parent 14754 b39da9cf7616
child 15017 d610d1c9fd55
equal deleted inserted replaced
14926:60340c8a6fae 14927:9d6a25239d00
  2035 end;
  2035 end;
  2036 
  2036 
  2037 function lc_endgame(L : Plua_State) : LongInt; Cdecl;
  2037 function lc_endgame(L : Plua_State) : LongInt; Cdecl;
  2038 begin
  2038 begin
  2039     L:= L; // avoid compiler hint
  2039     L:= L; // avoid compiler hint
       
  2040     GameOver:= true;
  2040     AddGear(0, 0, gtATFinishGame, 0, _0, _0, 3000);
  2041     AddGear(0, 0, gtATFinishGame, 0, _0, _0, 3000);
  2041     lc_endgame:= 0
  2042     lc_endgame:= 0
  2042 end;
  2043 end;
  2043 
  2044 
  2044 function lc_endturn(L : Plua_State) : LongInt; Cdecl;
  2045 function lc_endturn(L : Plua_State) : LongInt; Cdecl;