hedgewars/uScript.pas
changeset 9409 6564baf7dedf
parent 9397 7b7ee65f82ad
child 9521 8054d9d775fd
child 9531 7fcdedc45589
child 9646 7588daa8d28f
equal deleted inserted replaced
9407:860f959f92c9 9409:6564baf7dedf
  1897 
  1897 
  1898 
  1898 
  1899 function lc_declareachievement(L : Plua_State) : LongInt; Cdecl;
  1899 function lc_declareachievement(L : Plua_State) : LongInt; Cdecl;
  1900 var gear: PGear;
  1900 var gear: PGear;
  1901 begin
  1901 begin
  1902     if lua_gettop(L) <> 3 then
  1902     if lua_gettop(L) <> 4 then
  1903         LuaError('Lua: Wrong number of parameters passed to DeclareAchievement!')
  1903         LuaError('Lua: Wrong number of parameters passed to DeclareAchievement!')
  1904     else
  1904     else
  1905         declareAchievement(lua_tostring(L, 1), lua_tostring(L, 2), lua_tointeger(L, 3));
  1905         declareAchievement(lua_tostring(L, 1), lua_tostring(L, 2), lua_tostring(L, 3), lua_tointeger(L, 4));
  1906     lc_declareachievement:= 0
  1906     lc_declareachievement:= 0
  1907 end;
  1907 end;
  1908 ///////////////////
  1908 ///////////////////
  1909 
  1909 
  1910 procedure ScriptPrintStack;
  1910 procedure ScriptPrintStack;