187 lines
8.5 KiB
Lua
187 lines
8.5 KiB
Lua
--[[
|
|
Finobe 2021 Gameserver Script
|
|
Slightly modified from ROBLOX https://web.archive.org/web/20160714155618/http://roblox.com/Game/GameServer.ashx
|
|
--]]
|
|
|
|
local placeId, port, domain, creatorid, isPersonalServer = ...
|
|
local baseurl = "https://www." .. domain
|
|
local assetgame = "https://assetgame." .. domain
|
|
local api = "https://api." .. domain
|
|
|
|
------------------- UTILITY FUNCTIONS --------------------------
|
|
|
|
function waitForChild(parent, childName)
|
|
while true do
|
|
local child = parent:findFirstChild(childName)
|
|
if child then
|
|
return child
|
|
end
|
|
parent.ChildAdded:wait()
|
|
end
|
|
end
|
|
|
|
function sendKillJobSignal()
|
|
game:HttpGet(baseurl .. "/Game/KillServer?jobid=" .. game.JobId) --OCCASIONALLY fails
|
|
end
|
|
|
|
function sendIsAliveSignal()
|
|
game:HttpGet(baseurl .. "/Game/ServerPing?PlaceID=" .. placeId .. "&JobID=" .. game.JobId)
|
|
end
|
|
|
|
function isAlive()
|
|
while true do
|
|
sendIsAliveSignal()
|
|
wait(30) --ping every 30 seconds (subject to change?)
|
|
end
|
|
end
|
|
|
|
-----------------------------------END UTILITY FUNCTIONS -------------------------
|
|
|
|
-----------------------------------"CUSTOM" SHARED CODE----------------------------------
|
|
|
|
pcall(function() settings().Network.UseInstancePacketCache = true end)
|
|
pcall(function() settings().Network.UsePhysicsPacketCache = true end)
|
|
pcall(function() settings()["Task Scheduler"].PriorityMethod = Enum.PriorityMethod.AccumulatedError end)
|
|
|
|
settings().Network.PhysicsSend = Enum.PhysicsSendMethod.TopNErrors
|
|
settings().Network.ExperimentalPhysicsEnabled = true
|
|
settings().Network.WaitingForCharacterLogRate = 100
|
|
settings().Diagnostics.LuaRamLimit = 0
|
|
pcall(function() settings().Diagnostics:LegacyScriptMode() end)
|
|
|
|
-----------------------------------START GAME SHARED SCRIPT------------------------------
|
|
|
|
-- initialize --
|
|
local scriptContext = game:GetService('ScriptContext')
|
|
pcall(function() scriptContext:AddStarterScript(37801172) end)
|
|
scriptContext.ScriptsDisabled = true
|
|
|
|
-- general datamodel settings --
|
|
game:SetPlaceID(placeId, false)
|
|
game:SetCreatorID(creatorid, Enum.CreatorType.User)
|
|
game:GetService("ChangeHistoryService"):SetEnabled(false)
|
|
|
|
-- establish this peer as the Server --
|
|
local ns = game:GetService("NetworkServer")
|
|
|
|
-- setup base services --
|
|
if baseurl~=nil then
|
|
-- players service --
|
|
pcall(function() game:GetService("Players"):SetAbuseReportUrl(api .. "/moderation/AbuseReport/InGameChatHandler") end) --TODO: Implement
|
|
pcall(function() game:GetService("Players"):SetChatFilterUrl(baseurl .. "/Game/ChatFilter.ashx") end) --not even used, just enables filter (lol)
|
|
pcall(function() game:GetService("Players"):SetLoadDataUrl(baseurl .. "/Persistence/GetBlobUrl.ashx?placeId=" .. placeId .. "&userId=%d") end)
|
|
pcall(function() game:GetService("Players"):SetSaveDataUrl(baseurl .. "/Persistence/SetBlob.ashx?placeId=" .. placeId .. "&userId=%d") end)
|
|
|
|
-- scriptinformationprovider service --
|
|
pcall(function() game:GetService("ScriptInformationProvider"):SetAssetUrl(baseurl .. "/Asset/") end)
|
|
|
|
-- contentprovider service --
|
|
pcall(function() game:GetService("ContentProvider"):SetBaseUrl(baseurl .. "/") end)
|
|
|
|
-- badge service --
|
|
pcall(function() game:GetService("BadgeService"):SetPlaceId(placeId) end)
|
|
pcall(function() game:GetService("BadgeService"):SetAwardBadgeUrl(assetgame .. "/Game/Badge/AwardBadge?UserID=%d&BadgeID=%d&PlaceID=%d") end)
|
|
pcall(function() game:GetService("BadgeService"):SetHasBadgeUrl(assetgame .. "/Game/Badge/HasBadge?UserID=%d&BadgeID=%d") end)
|
|
pcall(function() game:GetService("BadgeService"):SetIsBadgeDisabledUrl(assetgame .. "/Game/Badge/IsBadgeDisabled?BadgeID=%d&PlaceID=%d") end)
|
|
pcall(function() game:GetService("BadgeService"):SetIsBadgeLegalUrl("") end)
|
|
|
|
-- social service --
|
|
pcall(function() game:GetService("SocialService"):SetFriendUrl(assetgame .. "/Game/LuaWebService/HandleSocialRequest.ashx?method=IsFriendsWith&playerid=%d&userid=%d") end)
|
|
pcall(function() game:GetService("SocialService"):SetBestFriendUrl(assetgame .. "/Game/LuaWebService/HandleSocialRequest.ashx?method=IsBestFriendsWith&playerid=%d&userid=%d") end)
|
|
pcall(function() game:GetService("SocialService"):SetGroupUrl(assetgame .. "/Game/LuaWebService/HandleSocialRequest.ashx?method=IsInGroup&playerid=%d&groupid=%d") end)
|
|
pcall(function() game:GetService("SocialService"):SetGroupRankUrl(assetgame .. "/Game/LuaWebService/HandleSocialRequest.ashx?method=GetGroupRank&playerid=%d&groupid=%d") end)
|
|
pcall(function() game:GetService("SocialService"):SetGroupRoleUrl(assetgane .. "/Game/LuaWebService/HandleSocialRequest.ashx?method=GetGroupRole&playerid=%d&groupid=%d") end)
|
|
|
|
-- gamepass service --
|
|
pcall(function() game:GetService("GamePassService"):SetPlayerHasPassUrl(assetgame .. "/Game/GamePass/GamePassHandler.ashx?Action=HasPass&UserID=%d&PassID=%d") end)
|
|
|
|
-- friends service --
|
|
pcall(function() game:GetService("FriendService"):SetMakeFriendUrl(assetgame .. "/Game/CreateFriend?firstUserId=%d&secondUserId=%d") end)
|
|
pcall(function() game:GetService("FriendService"):SetBreakFriendUrl(assetgame .. "/Game/BreakFriend?firstUserId=%d&secondUserId=%d") end)
|
|
pcall(function() game:GetService("FriendService"):SetGetFriendsUrl(assetgame .. "/Game/AreFriends?userId=%d") end)
|
|
|
|
-- insert service --
|
|
pcall(function() game:GetService("InsertService"):SetBaseSetsUrl(baseurl .. "/Game/Tools/InsertAsset.ashx?nsets=10&type=base") end)
|
|
pcall(function() game:GetService("InsertService"):SetUserSetsUrl(baseurl .. "/Game/Tools/InsertAsset.ashx?nsets=20&type=user&userid=%d") end)
|
|
pcall(function() game:GetService("InsertService"):SetCollectionUrl(baseurl .. "/Game/Tools/InsertAsset.ashx?sid=%d") end)
|
|
pcall(function() game:GetService("InsertService"):SetAssetUrl(baseurl .. "/Asset/?id=%d") end)
|
|
pcall(function() game:GetService("InsertService"):SetAssetVersionUrl(baseurl .. "/Asset/?assetversionid=%d") end)
|
|
|
|
-- marketplace service --
|
|
pcall(function() game:GetService("MarketplaceService"):SetProductInfoUrl(api .. "/marketplace/productinfo?assetId=%d") end)
|
|
pcall(function() game:GetService("MarketplaceService"):SetDevProductInfoUrl(api .. "/marketplace/productDetails?productId=%d") end)
|
|
pcall(function() game:GetService("MarketplaceService"):SetPlayerOwnsAssetUrl(api .. "/ownership/hasasset?userId=%d&assetId=%d") end)
|
|
end
|
|
|
|
-- Set player authentication required --
|
|
pcall(function() game:GetService("NetworkServer"):SetIsPlayerAuthenticationRequired(true) end)
|
|
|
|
-- Monitor players joining --
|
|
game:GetService("Players").PlayerAdded:connect(function(player)
|
|
print("Player " .. player.userId .. " added")
|
|
|
|
local didTeleportIn = "False"
|
|
if player.TeleportedIn then didTeleportIn = "True" end
|
|
|
|
if #game:GetService("Players"):GetPlayers() == 1 then -- so the server renews if the server has been inactive until this person joined
|
|
sendIsAliveSignal()
|
|
end
|
|
|
|
game:HttpGet(baseurl .. "/Game/ClientPresence?action=connect&PlaceID=" .. placeId .. "&UserID=" .. player.userId .. "&JobID=" .. game.JobId)
|
|
end)
|
|
|
|
-- Monitor players leaving --
|
|
game:GetService("Players").PlayerRemoving:connect(function(player)
|
|
print("Player " .. player.userId .. " leaving")
|
|
|
|
local isTeleportingOut = "False"
|
|
if player.Teleported then isTeleportingOut = "True" end
|
|
|
|
game:HttpGet(baseurl .. "/Game/ClientPresence?action=disconnect&PlaceID=" .. placeId .. "&UserID=" .. player.userId .. "&JobID=" .. game.JobId)
|
|
end)
|
|
|
|
if placeId~=nil and baseurl~=nil then
|
|
-- yield so that file load happens in the heartbeat thread
|
|
wait()
|
|
|
|
-- start isalive ping
|
|
spawn(isAlive)
|
|
|
|
-- load the game
|
|
game:Load(baseurl .. "/asset/?id=" .. placeId)
|
|
end
|
|
|
|
--[[Old Animations]]--
|
|
--[[
|
|
if game:GetService("StarterPlayer"):FindFirstChild("StarterCharacterScripts") ~= nil and game:GetService("StarterPlayer").StarterCharacterScripts:FindFirstChild("Animate") == nil then
|
|
pcall(function()game:GetObjects("rbxasset://fonts/humanoidAnimateLocal.rbxm")[1].Parent = game:GetService("StarterPlayer").StarterCharacterScripts end)
|
|
end
|
|
]]--
|
|
|
|
-- Now start the connection
|
|
ns:Start(port)
|
|
|
|
if isPersonalServer then
|
|
game:GetService("ScriptContext"):AddStarterScript(124885177) -- Personal Build Server Script
|
|
end
|
|
|
|
-- Enable scripts --
|
|
scriptContext:SetTimeout(10)
|
|
scriptContext.ScriptsDisabled = false
|
|
|
|
------------------------------END START GAME SHARED SCRIPT--------------------------
|
|
|
|
-- StartGame --
|
|
game:GetService("RunService"):Run()
|
|
|
|
-- Register Job --
|
|
game:HttpGet(baseurl .. "/Game/RegisterServer?jobId=" .. game.JobId)
|
|
|
|
-- Remove server OnClose --
|
|
game:GetService('Players').PlayerAdded:wait()
|
|
while wait(1) do
|
|
if(game:GetService('Players').NumPlayers == 0) then
|
|
sendKillJobSignal()
|
|
end
|
|
end
|
|
--game.OnClose = function() sendKillJobSignal() end -- register game as closed when datamodel shutdowns |