hedgewars/uScript.pas
changeset 4456 b69f43f07cd7
parent 4453 15a483b2558a
child 4481 0d73e7db3d59
equal deleted inserted replaced
4455:a0c8779713f2 4456:b69f43f07cd7
   261         vgt:= TVisualGearType(lua_tointeger(L, 3));
   261         vgt:= TVisualGearType(lua_tointeger(L, 3));
   262         s:= lua_tointeger(L, 4);
   262         s:= lua_tointeger(L, 4);
   263         c:= lua_toboolean(L, 5);
   263         c:= lua_toboolean(L, 5);
   264 
   264 
   265         vg:= AddVisualGear(x, y, vgt, s, c); 
   265         vg:= AddVisualGear(x, y, vgt, s, c); 
   266         lua_pushnumber(L, vg^.uid)
   266         if vg <> nil then lua_pushnumber(L, vg^.uid)
       
   267         else lua_pushnumber(L, 0)
   267         end;
   268         end;
   268     lc_addvisualgear:= 1; // 1 return value
   269     lc_addvisualgear:= 1; // 1 return value
   269 end;
   270 end;
   270 
   271 
   271 function lc_deletevisualgear(L : Plua_State) : LongInt; Cdecl;
   272 function lc_deletevisualgear(L : Plua_State) : LongInt; Cdecl;