local message = function (text) return sampAddChatMessage('[{8de33c}Route-Recorder{ffffff}] {1a9ded}'..text, -1); end
require('moonloader')
local sampev = require('samp.events')
local json = require('cjson')
local route_name
local recording = false
local route = {}
local trailer_record = false
local lasttime = os.clock() * 1000
local playroute = {}
local play = false
local int = tonumber
local loop_route
local trailer_Id = 0
function main()
while not isSampAvailable() do wait(0) end
message('Загружен! (/rr rec [route name] | /rr trailer_record | /rr play [route name] [if loop route 1 or 0])')
createDirectory(getWorkingDirectory()..'\\RouteRecorder')
sampRegisterChatCommand('rr', function (arg)
if arg == 'trailer_record' then
trailer_record = not trailer_record
message('Запись маршрутов с трейлером: '..(trailer_record and '{68ff00}Включена' or "{ff0000}Выключена"))
elseif arg:match('rec %S+') then
route_name = arg:match('rec (%S+)')
message('Чтобы начать запись маршрута {ff0000}"'..route_name..'"{1a9ded} нажмите клавишу {ff0000} Q')
elseif arg:match('play %S+ %S+') then
local name, loop = arg:match('play (%S+) (%S+)')
print(name, loop)
local f = io.open('moonloader\\RouteRecorder\\'..name..'.rr', 'r')
if not f then
return message("Маршрут не найден!")
end
loop_route = loop == "1"
local r = f:read('a')
f:close()
playroute = json.decode(r)
play = true
message('Запустил маршрут {ff0000}"'..name..'"{1a9ded} Нажмите клавишу {ff0000}Q{1a9ded} чтобы остановить его.')
playRoute()
elseif arg:match('trid %d+') then
trailer_Id = arg:match('trid (%d+)')
message('Айди трейлера: {ff0000}'..trailer_Id)
end
end)
while true do
wait(0)
if route_name then
if wasKeyPressed(VK_Q) and not sampIsCursorActive() then
recording = not recording
if recording then
message('Начал записывать маршрут {ff0000}"'..route_name..'"')
lasttime = os.clock() * 1000
recording = true
else
message('Закончил записывать маршрут! Сохроняю...')
local f = io.open('moonloader\\RouteRecorder\\'..route_name..'.rr', 'w')
f:write(json.encode(route))
f:close()
route_name = ''
play = false;
route = {}
playroute = {}
trailer_record = false
recording = false
end
end
end
if play then
if wasKeyPressed(VK_Q) and not sampIsCursorActive() then
play = false;
message('Остановил маршрут.')
route = {}
playroute = {}
trailer_record = false
recording = false
end
end
end
end
function sampev.onSendPlayerSync(data)
if play then return false end
if recording then
route[#route+1] = {
tr_ = 0,
pl_ = 1,
veh_ = 0,
pl = {
ud = int(data.upDownKeys),
keys = int(data.keysData),
x = int(data.position.x),
y = int(data.position.y),
z = int(data. position. z),
q0 = int(data.quaternion[0]),
q1 = int(data.quaternion[1]),
q2 = int(data.quaternion[2]),
q3 = int(data.quaternion[3]),
sx = int(data.moveSpeed.x),
sy = int(data.moveSpeed.y),
sz = int(data.moveSpeed.z),
aid = int(data.animation.id),
timer = int(os.clock() * 1000 - lasttime)
}
}
lasttime = os.clock() * 1000
printStringNow('~g~[Router-Recorder]~b~~h~ Recording player sync... Recorded: '..#route..' packets.', 1000)
end
end
function sampev.onSendVehicleSync(data)
if play then return false end
if recording then
if trailer_record then
route[#route+1] = {
tr_ = 1,
pl_ = 0,
veh_ = 1,
veh = {
lr = int(data.leftRightKeys),
ud = int(data.upDownKeys),
keys = int(data.keysData),
q0 = int(data.quaternion[0]),
q1 = int(data.quaternion[1]),
q2 = int(data.quaternion[2]),
q3 = int(data.quaternion[3]),
x = int(data.position.x),
y = int(data.position.y),
z = int(data.position.z),
sx = int(data.moveSpeed.x),
sy =int( data.moveSpeed.y),
sz = int(data.moveSpeed.z),
lean = int(data.bikeLean)
}
}
else
route[#route+1] = {
tr_ = 0,
pl_ = 0,
veh_ = 1,
veh = {
lr = int(data.leftRightKeys),
ud = int(data.upDownKeys),
keys = int(data.keysData),
q0 = int(data.quaternion[0]),
q1 = int(data.quaternion[1]),
q2 = int(data.quaternion[2]),
q3 = int(data.quaternion[3]),
x = int(data.position.x),
y = int(data.position.y),
z = int(data.position.z),
sx = int(data.moveSpeed.x),
sy =int( data.moveSpeed.y),
sz = int(data.moveSpeed.z),
lean = int(data.bikeLean),
timer = int(os.clock() * 1000 - lasttime)
}
}
printStringNow('~g~[Router-Recorder]~b~~h~ Recording vehicle sync... Recorded: '..#route..' packets.', 1000)
lasttime = os.clock() * 1000
end
end
end
function sampev.onSendTrailerSync(data)
if play then return false end
if recording then
if route[#route] then
if route[#route].tr_ then
route[#route].tr = {
x = int(data.position.x),
y = int(data.position.y),
z = int(data.position.z),
q0 = int(data.quaternion[0]),
q1 = int(data.quaternion[1]),
q2 = int(data.quaternion[2]),
q3 = int(data.quaternion[3]),
sx = int(data.moveSpeed.x),
sy = int(data.moveSpeed.y),
sz = int(data.moveSpeed.z),
rx = int(data.roll.x),
ry = int(data.roll.y),
rz = int(data.roll.z),
dx = int(data.direction.x),
dy = int(data.direction.y),
dz = int(data.direction.z),
spx =int( data.speed.x),
spy =int( data.speed.y),
spz =int( data.speed.z),
unk =int( data.unk),
timer =int( os.clock() * 1000 - lasttime)
}
printStringNow('~g~[Router-Recorder]~b~~h~ Recording trailer sync... Recorded: '..#route..' packets.', 1000)
lasttime = os.clock() * 1000
end
end
end
end
function playRoute()
lua_thread.create(function ()
local pack = 0
local sleeping = 50
while play do
wait(sleeping)
pack = pack + 1
local q = playroute[pack]
if not q or not play then pack = #playroute goto pepe end
if q.pl_ == 1 then
if not q or not play then pack = #playroute goto pepe end
q = q.pl
local data = samp_create_sync_data('player')
data.upDownKeys = q.ud
data.keysData = q.keys
data.position.x = q.x
data.position.y = q.y
data. position. z = q.z
data.quaternion[0] = q.q0
data.quaternion[1] = q.q1
data.quaternion[2] = q.q2
data.quaternion[3] = q.q3
data.moveSpeed.x = q.sx
data.moveSpeed.y = q.sy
data.moveSpeed.z = q.sz
data.animation.id = q.aid
sleeping = q.timer
data.send()
setCharCoordinatesNoOffset(PLAYER_PED, q.x, q.y, q.z)
setCharQuaternion(PLAYER_PED, q.q1, q.q2, q.q3, q.q0)
printStringNow('~g~[Router-Recorder]~b~~h~ Playing player sync... Played: '..pack..'/'..#playroute..' packets.', 1000)
end
if q.veh_ == 1 and trailer_Id ~= 0 then
if not q or not play then pack = #playroute goto pepe end
local old, vehsyncsend, trailersyncsend
old = q
q = q.veh
local data = samp_create_sync_data('vehicle')
data.leftRightKeys = q.lr
data.upDownKeys = q.ud
data.keysData = q.keys
data.quaternion[0] = q.q0
data.quaternion[1] = q.q1
data.quaternion[2] = q.q2
data.quaternion[3] = q.q3
data.position.x = q.x
data.position.y = q.y
data. position. z = q.z
data.moveSpeed.x = q.sx
data.moveSpeed.y = q.sy
data.moveSpeed.z = q.sz
data.bikeLean = q.lean
data.vehicleId = select(2, sampGetVehicleIdByCarHandle(storeCarCharIsInNoSave(PLAYER_PED)))
data.trailerId = int(trailer_Id)
data.vehicleHealth = 1500
sleeping = int(old.veh.timer)
if not sleeping then
sleeping = int(old.tr.timer)
else
if sleeping < 10 then
sleeping = int(old.tr.timer)
end
end
data.send()
q = old.tr
data = samp_create_sync_data('trailer')
data.position.x = q.x
data.position.y = q.y
data. position. z = q.z
data.quaternion[0] = q.q0
data.quaternion[1] = q.q1
data.quaternion[2] = q.q2
data.quaternion[3] = q.q3
data.moveSpeed.x = q.sx
data.moveSpeed.y = q.sy
data.moveSpeed.z = q.sz
data.roll.x = q.rx
data.roll.y = q.ry
data.roll.z = q.rz
data.direction.x = q.dz
data.direction.y = q.dy
data.direction.z = q.dz
data.speed.x = q.spx
data.speed.y = q.spy
data.speed.z = q.spz
data.unk = q.unk
data.trailerId = int(trailer_Id)
print('gg')
data.send()
setCarCoordinatesNoOffset(storeCarCharIsInNoSave(PLAYER_PED), q.x, q.y, q.z)
printStringNow('~g~[Router-Recorder]~b~~h~ Playing trailer sync... Played: '..pack..'/'..#playroute..' packets.', 1000)
end
if q.veh_ == 1 and q.tr_ == 0 then
if not q or not play then pack = #playroute goto pepe end
q = q.veh
local data = samp_create_sync_data('vehicle')
data.leftRightKeys = int(q.lr)
data.upDownKeys = q.ud
data.keysData = q.keys
data.quaternion[0] = q.q0
data.quaternion[1] = q.q1
data.quaternion[2] = q.q2
data.quaternion[3] = q.q3
data.position.x = q.x
data.position.y = q.y
data. position. z = q.z
data.moveSpeed.x = q.sx
data.moveSpeed.y = q.sy
data.moveSpeed.z = q.sz
data.bikeLean = q.lean
sleeping = q.timer
data.vehicleId = select(2, sampGetVehicleIdByCarHandle(storeCarCharIsInNoSave(PLAYER_PED)))
data.send()
setCarCoordinatesNoOffset(storeCarCharIsInNoSave(PLAYER_PED), q.x, q.y, q.z)
printStringNow('~g~[Router-Recorder]~b~~h~ Playing vehicle sync... Played: '..pack..'/'..#playroute..' packets.', 1000)
end
::pepe::
if pack == #playroute then
if loop_route then
pack = 0
else
play = false;
message('Закончил маршрут.')
route = {}
playroute = {}
trailer_record = false
recording = false
end
end
end
end)
end
function samp_create_sync_data(sync_type, copy_from_player)
local ffi = require 'ffi'
local sampfuncs = require 'sampfuncs'
local raknet = require 'samp.raknet'
copy_from_player = copy_from_player or true
local sync_traits = {
player = {'PlayerSyncData', raknet.PACKET.PLAYER_SYNC, sampStorePlayerOnfootData},
vehicle = {'VehicleSyncData', raknet.PACKET.VEHICLE_SYNC, sampStorePlayerIncarData},
passenger = {'PassengerSyncData', raknet.PACKET.PASSENGER_SYNC, sampStorePlayerPassengerData},
aim = {'AimSyncData', raknet.PACKET.AIM_SYNC, sampStorePlayerAimData},
trailer = {'TrailerSyncData', raknet.PACKET.TRAILER_SYNC, sampStorePlayerTrailerData},
unoccupied = {'UnoccupiedSyncData', raknet.PACKET.UNOCCUPIED_SYNC, nil},
bullet = {'BulletSyncData', raknet.PACKET.BULLET_SYNC, nil},
spectator = {'SpectatorSyncData', raknet.PACKET.SPECTATOR_SYNC, nil}
}
local sync_info = sync_traits[sync_type]
local data_type = 'struct ' .. sync_info[1]
local data = ffi.new(data_type, {})
local raw_data_ptr = tonumber(ffi.cast('uintptr_t', ffi.new(data_type .. '*', data)))
if copy_from_player then
local copy_func = sync_info[3]
if copy_func then
local _, player_id
if copy_from_player == true then
_, player_id = sampGetPlayerIdByCharHandle(PLAYER_PED)
else
player_id = tonumber(copy_from_player)
end
copy_func(player_id, raw_data_ptr)
end
end
local func_send = function()
local bs = raknetNewBitStream()
raknetBitStreamWriteInt8(bs, sync_info[2])
raknetBitStreamWriteBuffer(bs, raw_data_ptr, ffi.sizeof(data))
raknetSendBitStreamEx(bs, sampfuncs.HIGH_PRIORITY, sampfuncs.UNRELIABLE_SEQUENCED, 1)
raknetDeleteBitStream(bs)
end
local mt = {
__index = function(t, index)
return data[index]
end,
__newindex = function(t, index, value)
data[index] = value
end
}
return setmetatable({send = func_send}, mt)
end
