1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
|
---Bits to help with transfering players.
-- Transfers players between areas when they hit a art_serverchange zone
--@server sv_mapstich.lua
--Make sure zones are loaded already
nrequire("sv_mysqlite.lua")
if not nrequire("sh_zones.lua") then return end
local q = nrequire("core/database/sv_queries.lua")
local log = nrequire("log.lua")
--if not zones then error("This thing needs zones to function!") end
util.AddNetworkString("art_zonechange")
util.AddNetworkString("art_sendtoserver")
local dontupdatedisconnect = {}
local function sqlerror(err,sql)
log.error("Query error:\nQuery:",sql,"\nError:",err)
end
local function SavePlayerData(ply)
local query
local pdat = q.serialize_player(ply)
if dontupdatedisconnect[ply] then
dontupdatedisconnect[ply] = nil
query = [[
UPDATE playerdata SET PlayerData='%s' WHERE SteamID=%.0f
]]
query = q.s_fmt(query,pdat,ply:SteamID64())
else
query = [[
UPDATE playerdata SET PlayerData='%s', MetaData='%s' WHERE SteamID=%.0f
]]
local pmet = util.TableToJSON({
lastserver = game.GetIPAddress(),
lastlocation = tostring(ply:GetPos())
})
query = q.s_fmt(query,pdat,pmet,ply:SteamID64())
end
MySQLite.query(query,function(data)
end,sqlerror)
end
---Saves the player.
-- Saves the player as if they had disconnected, or transfered to another level
--@concommand artery_saveplayer
concommand.Add("artery_saveplayer",function(ply,cmd,args)
SavePlayerData(ply)
end)
net.Receive("art_zonechange",function(len,ply)
timer.Simple(0.5,function()
if not IsValid(ply) then return end
local zone = ply:GetCurrentZone("artery_serverchange")
if zone then
dontupdatedisconnect[ply] = true
local query = [[
UPDATE playerdata SET MetaData='%s' WHERE SteamID=%.0f
]]
local pmet = util.TableToJSON({
lastserver = zone.toserver,
lastlocation = tostring(zone.topos)
})
local fquery = q.s_fmt(query,pmet,ply:SteamID64())
MySQLite.query(fquery,function(data)
--Holy shit fuck garry for breaking this
--ply:ConCommand("connect " .. zone.toserver)
net.Start("art_sendtoserver")
net.WriteString(zone.toserver)
net.Send(ply)
end,sqlerror)
end
end)
end)
hook.Add("PlayerDisconnected","save_data_on_disconnect",function(ply)
SavePlayerData(ply)
end)
|
