hedgewars/uScript.pas
changeset 11173 fe2f269dc80f
parent 11172 78f9fd42fa46
child 11179 98d14636c371
equal deleted inserted replaced
11172:78f9fd42fa46 11173: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