hedgewars/uScript.pas
changeset 4499 d2454e4dbd03
parent 4498 8c9595e39539
child 4502 759c1a3bb156
equal deleted inserted replaced
4498:8c9595e39539 4499:d2454e4dbd03
   497     if lua_gettop(L) <> 1 then
   497     if lua_gettop(L) <> 1 then
   498         begin
   498         begin
   499         LuaError('Lua: Wrong number of parameters passed to GetClanColor!');
   499         LuaError('Lua: Wrong number of parameters passed to GetClanColor!');
   500         lua_pushnil(L); // return value on stack (nil)
   500         lua_pushnil(L); // return value on stack (nil)
   501         end
   501         end
   502     else lua_pushinteger(L, ClansArray[lua_tointeger(L, 1)]^.Color);
   502     else lua_pushinteger(L, ClansArray[lua_tointeger(L, 1)]^.Color shl 8 or $FF);
   503     lc_getclancolor:= 1
   503     lc_getclancolor:= 1
   504 end;
   504 end;
   505 
   505 
   506 function lc_gethogteamname(L : Plua_State) : LongInt; Cdecl;
   506 function lc_gethogteamname(L : Plua_State) : LongInt; Cdecl;
   507 var gear : PGear;
   507 var gear : PGear;