hedgewars/uScript.pas
changeset 11177 fe2f269dc80f
parent 11176 78f9fd42fa46
child 11183 98d14636c371
equal deleted inserted replaced
11176:78f9fd42fa46 11177:fe2f269dc80f
   938 
   938 
   939 function lc_setgearvalues(L : Plua_State) : LongInt; Cdecl;
   939 function lc_setgearvalues(L : Plua_State) : LongInt; Cdecl;
   940 var gear : PGear;
   940 var gear : PGear;
   941 begin
   941 begin
   942 // Currently allows 1-13 params
   942 // Currently allows 1-13 params
   943 //    if CheckLuaParamCount(L, 13, 'SetGearValues', 'gearUid, Damage, Angle, Power, WDTimer, Radius, Density, Karma, DirAngle, AdvBounce, ImpactSound, # ImpactSounds, Tint') then
   943 //    if CheckLuaParamCount(L, 13, 'SetGearValues', 'gearUid, Angle, Power, WDTimer, Radius, Density, Karma, DirAngle, AdvBounce, ImpactSound, # ImpactSounds, Tint, Damage') then
   944 //        begin
   944 //        begin
   945         gear:= GearByUID(lua_tointeger(L, 1));
   945         gear:= GearByUID(lua_tointeger(L, 1));
   946         if gear <> nil then
   946         if gear <> nil then
   947             begin
   947             begin
   948             if not lua_isnoneornil(L, 2) then
   948             if not lua_isnoneornil(L, 2) then