hedgewars/uScript.pas
changeset 10899 de52c2b8b773
parent 10897 8ea636ce120a
child 10901 fbf6fbe66092
equal deleted inserted replaced
10897:8ea636ce120a 10899:de52c2b8b773
  2216 	     tint := lua_tointeger(L, 5)
  2216 	     tint := lua_tointeger(L, 5)
  2217         else tint := $FFFFFFFF;
  2217         else tint := $FFFFFFFF;
  2218         if not lua_isnoneornil(L, 6) then
  2218         if not lua_isnoneornil(L, 6) then
  2219 	     flipHoriz := lua_toboolean(L, 6)
  2219 	     flipHoriz := lua_toboolean(L, 6)
  2220         else flipHoriz := false;
  2220         else flipHoriz := false;
  2221         if not lua_isnoneornil(L, 6) then
  2221         if not lua_isnoneornil(L, 7) then
  2222 	     flipVert := lua_toboolean(L, 6)
  2222 	     flipVert := lua_toboolean(L, 7)
  2223         else flipVert := false;
  2223         else flipVert := false;
  2224         lf:= 0;
  2224         lf:= 0;
  2225 
  2225 
  2226         // accept any amount of landflags, loop is never executed if n>6
  2226         // accept any amount of landflags, loop is never executed if n>6
  2227         for i:= 6 to n do
  2227         for i:= 8 to n do
  2228             lf:= lf or lua_tointeger(L, i);
  2228             lf:= lf or lua_tointeger(L, i);
  2229 
  2229 
  2230         n:= LuaToSpriteOrd(L, 3, call, params);
  2230         n:= LuaToSpriteOrd(L, 3, call, params);
  2231         if n >= 0 then
  2231         if n >= 0 then
  2232             begin
  2232             begin