# HG changeset patch
# User sheepluva
# Date 1404210636 -7200
# Node ID dd22bcf08e4fb1db4e920c2a97b77221d8f61c00
# Parent  2b264d67fac3d23fc593c35bc04d93a23e5c5bcf
lua api: allow to specify layer when adding visual gear

diff -r 2b264d67fac3 -r dd22bcf08e4f hedgewars/uScript.pas
--- a/hedgewars/uScript.pas	Mon Jun 30 00:07:03 2014 +0400
+++ b/hedgewars/uScript.pas	Tue Jul 01 12:30:36 2014 +0200
@@ -719,16 +719,16 @@
 
 function lc_addvisualgear(L : Plua_State) : LongInt; Cdecl;
 var vg : PVisualGear;
-    x, y, s: LongInt;
+    x, y, s, n, layer: LongInt;
     c: Boolean;
     vgt: TVisualGearType;
     uid: Longword;
 const
     call = 'AddVisualGear';
-    params = 'x, y, visualGearType, state, critical';
+    params = 'x, y, visualGearType, state, critical [, layer]';
 begin
     uid:= 0;
-    if CheckLuaParamCount(L, 5, call, params) then
+    if CheckAndFetchParamCount(L, 5, 6, call, params, n) then
         begin
         s:= LuaToVisualGearTypeOrd(L, 3, call, params);
         if s >= 0 then
@@ -739,7 +739,14 @@
             s:= lua_tointeger(L, 4);
             c:= lua_toboolean(L, 5);
 
-            vg:= AddVisualGear(x, y, vgt, s, c);
+            if n = 6 then
+                begin
+                layer:= lua_tointeger(L, 6);
+                AddVisualGear(x, y, vgt, s, c, layer);
+                end
+            else
+                vg:= AddVisualGear(x, y, vgt, s, c);
+
             if vg <> nil then
                 begin
                 lastVisualGearByUID:= vg;