952 lua_pushnumber(L, vg^.Frame); |
952 lua_pushnumber(L, vg^.Frame); |
953 lua_pushnumber(L, vg^.FrameTicks); |
953 lua_pushnumber(L, vg^.FrameTicks); |
954 lua_pushnumber(L, vg^.State); |
954 lua_pushnumber(L, vg^.State); |
955 lua_pushnumber(L, vg^.Timer); |
955 lua_pushnumber(L, vg^.Timer); |
956 lua_pushnumber(L, vg^.Tint); |
956 lua_pushnumber(L, vg^.Tint); |
|
957 lua_pushnumber(L, vg^.Scale); |
957 end |
958 end |
958 else |
959 else |
959 begin |
960 begin |
960 lua_pushnil(L); lua_pushnil(L); lua_pushnil(L); lua_pushnil(L); lua_pushnil(L); |
961 lua_pushnil(L); lua_pushnil(L); lua_pushnil(L); lua_pushnil(L); lua_pushnil(L); |
961 lua_pushnil(L); lua_pushnil(L); lua_pushnil(L); lua_pushnil(L); lua_pushnil(L); |
962 lua_pushnil(L); lua_pushnil(L); lua_pushnil(L); lua_pushnil(L); lua_pushnil(L); lua_pushnil(L); |
962 end |
963 end |
963 end |
964 end |
964 else |
965 else |
965 begin |
966 begin |
966 lua_pushnil(L); lua_pushnil(L); lua_pushnil(L); lua_pushnil(L); lua_pushnil(L); |
967 lua_pushnil(L); lua_pushnil(L); lua_pushnil(L); lua_pushnil(L); lua_pushnil(L); |
967 lua_pushnil(L); lua_pushnil(L); lua_pushnil(L); lua_pushnil(L); lua_pushnil(L); |
968 lua_pushnil(L); lua_pushnil(L); lua_pushnil(L); lua_pushnil(L); lua_pushnil(L); lua_pushnil(L); |
968 end; |
969 end; |
969 lc_getvisualgearvalues:= 10 |
970 lc_getvisualgearvalues:= 10 |
970 end; |
971 end; |
971 |
972 |
972 function lc_setvisualgearvalues(L : Plua_State) : LongInt; Cdecl; |
973 function lc_setvisualgearvalues(L : Plua_State) : LongInt; Cdecl; |
973 var vg : PVisualGear; |
974 var vg : PVisualGear; |
974 begin |
975 begin |
975 // Param count can be 1-11 at present |
976 // Param count can be 1-11 at present |
976 // if CheckLuaParamCount(L, 11, 'SetVisualGearValues', 'vgUid, X, Y, dX, dY, Angle, Frame, FrameTicks, State, Timer, Tint') then |
977 // if CheckLuaParamCount(L, 11, 'SetVisualGearValues', 'vgUid, X, Y, dX, dY, Angle, Frame, FrameTicks, State, Timer, Tint, Scale') then |
977 // begin |
978 // begin |
978 vg:= VisualGearByUID(Trunc(lua_tonumber(L, 1))); |
979 vg:= VisualGearByUID(Trunc(lua_tonumber(L, 1))); |
979 if vg <> nil then |
980 if vg <> nil then |
980 begin |
981 begin |
981 if not lua_isnoneornil(L, 2) then |
982 if not lua_isnoneornil(L, 2) then |