Compress named corescripts with retain-lines darklua generator

This commit is contained in:
Lewin Kelly 2023-04-26 17:19:20 +01:00
parent 05ab4b836c
commit 443ca3f3fe
10 changed files with 498 additions and 474 deletions

View File

@ -1 +1,13 @@
yue ./yue && darklua process ./yue ./processed && rm -f ./yue/*.lua
yue ./yue
echo "Processing corescripts..."
for file in yue/[0-9]*.lua; do
darklua process -c dense.json5 $file processed/$(basename "$file")
done
echo "Processing other corescripts..."
for file in yue/[a-z]*.lua; do
darklua process -c lines.json5 $file processed/$(basename "$file")
done
rm -f ./yue/*.lua

View File

@ -15,5 +15,5 @@
rule: "rename_variables",
globals: ["$default", "$roblox"],
}
],
]
}

13
lines.json5 Normal file
View File

@ -0,0 +1,13 @@
{
rules: [
"remove_spaces",
"group_local_assignment",
"compute_expression",
"remove_unused_if_branch",
"remove_unused_while",
"remove_empty_do",
// "remove_method_definition",
"remove_function_call_parens",
"filter_after_early_return",
]
}

View File

@ -1,163 +1,163 @@
print("[Mercury]: Loaded Host corescript")
local placeId, sleeptime, access, url, killID, deathID, timeout, injectScriptAssetID, servicesUrl, libraryRegistrationScriptAssetID
print"[Mercury]: Loaded Host corescript"
local placeId,sleeptime,access,url,killID,deathID,timeout,injectScriptAssetID,servicesUrl,libraryRegistrationScriptAssetID
pcall(function()
return game:GetService("ScriptContext"):AddStarterScript(injectScriptAssetID)
return game:GetService"ScriptContext":AddStarterScript(injectScriptAssetID)
end)
game:GetService("RunService"):Run()
game:GetService"RunService":Run()
local waitForChild
waitForChild = function(parent, childName)
while true do
local child = parent:findFirstChild(childName)
if child then
return child
end
parent.ChildAdded:wait()
end
waitForChild=function(parent,childName)
while true do
local child=parent:findFirstChild(childName)
if child then
return child
end
parent.ChildAdded:wait()
end
end
local getKillerOfHumanoidIfStillInGame
getKillerOfHumanoidIfStillInGame = function(humanoid)
local tag = humanoid:findFirstChild("creator")
if tag then
local killer = tag.Value
if killer.Parent then
return killer
end
end
getKillerOfHumanoidIfStillInGame=function(humanoid)
local tag=humanoid:findFirstChild"creator"
if tag then
local killer=tag.Value
if killer.Parent then
return killer
end
end
end
local onDied
onDied = function(victim, humanoid)
local killer = getKillerOfHumanoidIfStillInGame(humanoid)
local victorId = 0
if killer then
victorId = killer.userId
print("STAT: kill by " .. tostring(victorId) .. " of " .. tostring(victim.userId))
game:HttpGet(tostring(url) .. "/Game/Knockouts.ashx?UserID=" .. tostring(victorId) .. "&" .. tostring(access))
end
print("STAT: death of " .. tostring(victim.userId) .. " by " .. tostring(victorId))
return game:HttpGet(tostring(url) .. "/Game/Wipeouts.ashx?UserID=" .. tostring(victim.userId) .. "&" .. tostring(access))
onDied=function(victim,humanoid)
local killer,
victorId=getKillerOfHumanoidIfStillInGame(humanoid),0
if killer then
victorId=killer.userId
print("STAT: kill by "..tostring(victorId).." of "..tostring(victim.userId))
game:HttpGet(tostring(url).."/Game/Knockouts.ashx?UserID="..tostring(victorId).."&"..tostring(access))
end
print("STAT: death of "..tostring(victim.userId).." by "..tostring(victorId))
return game:HttpGet(tostring(url).."/Game/Wipeouts.ashx?UserID="..tostring(victim.userId).."&"..tostring(access))
end
pcall(function()
settings().Network.UseInstancePacketCache = true
settings().Network.UseInstancePacketCache=true
end)
pcall(function()
settings().Network.UsePhysicsPacketCache = true
settings().Network.UsePhysicsPacketCache=true
end)
pcall(function()
settings()["Task Scheduler"].PriorityMethod = Enum.PriorityMethod.AccumulatedError
settings()["Task Scheduler"].PriorityMethod=Enum.PriorityMethod.AccumulatedError
end)
settings().Network.PhysicsSend = Enum.PhysicsSendMethod.ErrorComputation2
settings().Network.ExperimentalPhysicsEnabled = true
settings().Network.WaitingForCharacterLogRate = 100
settings().Network.PhysicsSend=Enum.PhysicsSendMethod.ErrorComputation2
settings().Network.ExperimentalPhysicsEnabled=true
settings().Network.WaitingForCharacterLogRate=100
pcall(function()
return settings().Diagnostics:LegacyScriptMode()
return settings().Diagnostics:LegacyScriptMode()
end)
url = "_BASE_URL"
local scriptContext = game:GetService("ScriptContext")
url="_BASE_URL"
local scriptContext=game:GetService"ScriptContext"
pcall(function()
return scriptContext:AddStarterScript(libraryRegistrationScriptAssetID)
return scriptContext:AddStarterScript(libraryRegistrationScriptAssetID)
end)
scriptContext.ScriptsDisabled = true
game:GetService("ChangeHistoryService"):SetEnabled(false)
local ns = game:GetService("NetworkServer")
if (url ~= nil) then
scriptContext.ScriptsDisabled=true
game:GetService"ChangeHistoryService":SetEnabled(false)
local ns=game:GetService"NetworkServer"
if(url~=nil)then
pcall(function()
return game:GetService("Players"):SetAbuseReportUrl(tostring(url) .. "/Report/Games.ashx")
end)
return game:GetService"Players":SetAbuseReportUrl(tostring(url).."/Report/Games.ashx")
end)
pcall(function()
return game:GetService("ScriptInformationProvider"):SetAssetUrl(tostring(url) .. "/Asset/")
end)
return game:GetService"ScriptInformationProvider":SetAssetUrl(tostring(url).."/Asset/")
end)
pcall(function()
return game:GetService("ContentProvider"):SetBaseUrl(tostring(url) .. "/")
end)
if (access ~= nil) then
do
local _with_0 = game:GetService("BadgeService")
_with_0:SetAwardBadgeUrl(tostring(url) .. "/Game/Badge/AwardBadge.ashx?UserID=%d&BadgeID=%d&PlaceID=%d&" .. tostring(access))
_with_0:SetHasBadgeUrl(tostring(url) .. "/Game/Badge/HasBadge.ashx?UserID=%d&BadgeID=%d&" .. tostring(access))
_with_0:SetIsBadgeDisabledUrl(tostring(url) .. "/Game/Badge/IsBadgeDisabled.ashx?BadgeID=%d&PlaceID=%d&" .. tostring(access))
end
do
local _with_0 = game:GetService("FriendService")
_with_0:SetMakeFriendUrl(tostring(servicesUrl) .. "/Friend/CreateFriend?firstUserId=%d&secondUserId=%d&" .. tostring(access))
_with_0:SetBreakFriendUrl(tostring(servicesUrl) .. "/Friend/BreakFriend?firstUserId=%d&secondUserId=%d&" .. tostring(access))
_with_0:SetGetFriendsUrl(tostring(servicesUrl) .. "/Friend/AreFriends?userId=%d&" .. tostring(access))
end
end
game:GetService("BadgeService"):SetIsBadgeLegalUrl("")
do
local _with_0 = game:GetService("InsertService")
_with_0:SetBaseSetsUrl(tostring(url) .. "/Game/Tools/InsertAsset.ashx?nsets=10&type=base")
_with_0:SetUserSetsUrl(tostring(url) .. "/Game/Tools/InsertAsset.ashx?nsets=20&type=user&userid=%d")
_with_0:SetCollectionUrl(tostring(url) .. "/Game/Tools/InsertAsset.ashx?sid=%d")
_with_0:SetAssetUrl(tostring(url) .. "/Asset/?id=%d")
_with_0:SetAssetVersionUrl(tostring(url) .. "/Asset/?assetversionid=%d")
end
pcall(function()
return loadfile(tostring(url) .. "/Game/LoadPlaceInfo.ashx?PlaceId=" .. tostring(placeId))()
end)
pcall(function()
if access then
return loadfile(tostring(url) .. "/Game/PlaceSpecificScript.ashx?PlaceId=" .. tostring(placeId) .. "&" .. tostring(access))()
end
end)
return game:GetService"ContentProvider":SetBaseUrl(tostring(url).."/")
end)
if(access~=nil)then
do
local _with_0=game:GetService"BadgeService"
_with_0:SetAwardBadgeUrl(tostring(url).."/Game/Badge/AwardBadge.ashx?UserID=%d&BadgeID=%d&PlaceID=%d&"..tostring(access))
_with_0:SetHasBadgeUrl(tostring(url).."/Game/Badge/HasBadge.ashx?UserID=%d&BadgeID=%d&"..tostring(access))
_with_0:SetIsBadgeDisabledUrl(tostring(url).."/Game/Badge/IsBadgeDisabled.ashx?BadgeID=%d&PlaceID=%d&"..tostring(access))
end
do
local _with_0=game:GetService"FriendService"
_with_0:SetMakeFriendUrl(tostring(servicesUrl).."/Friend/CreateFriend?firstUserId=%d&secondUserId=%d&"..tostring(access))
_with_0:SetBreakFriendUrl(tostring(servicesUrl).."/Friend/BreakFriend?firstUserId=%d&secondUserId=%d&"..tostring(access))
_with_0:SetGetFriendsUrl(tostring(servicesUrl).."/Friend/AreFriends?userId=%d&"..tostring(access))
end
end
game:GetService"BadgeService":SetIsBadgeLegalUrl""
do
local _with_0=game:GetService"InsertService"
_with_0:SetBaseSetsUrl(tostring(url).."/Game/Tools/InsertAsset.ashx?nsets=10&type=base")
_with_0:SetUserSetsUrl(tostring(url).."/Game/Tools/InsertAsset.ashx?nsets=20&type=user&userid=%d")
_with_0:SetCollectionUrl(tostring(url).."/Game/Tools/InsertAsset.ashx?sid=%d")
_with_0:SetAssetUrl(tostring(url).."/Asset/?id=%d")
_with_0:SetAssetVersionUrl(tostring(url).."/Asset/?assetversionid=%d")
end
pcall(function()
return game:GetService("NetworkServer"):SetIsPlayerAuthenticationRequired(true)
return loadfile(tostring(url).."/Game/LoadPlaceInfo.ashx?PlaceId="..tostring(placeId))()
end)
settings().Diagnostics.LuaRamLimit = 0
if (placeId ~= nil) and (killID ~= nil) and (deathID ~= nil) and (url ~= nil) then
local createDeathMonitor
createDeathMonitor = function(player)
if player.Character then
local humanoid = waitForChild(player.Character, "Humanoid")
return humanoid.Died:connect(function()
return onDied(player, humanoid)
end)
end
end
game:GetService("Players").ChildAdded:connect(function(player)
createDeathMonitor(player)
return player.Changed:connect(function(property)
if property == "Character" then
return createDeathMonitor(player)
end
end)
end)
pcall(function()
if access then
return loadfile(tostring(url).."/Game/PlaceSpecificScript.ashx?PlaceId="..tostring(placeId).."&"..tostring(access))()
end
game:GetService("Players").PlayerAdded:connect(function(player)
print("Player " .. tostring(player.userId) .. " added")
if url and access and placeId and player and player.userId then
game:HttpGet(tostring(url) .. "/Game/ClientPresence.ashx?action=connect&" .. tostring(access) .. "&PlaceID=" .. tostring(placeId) .. "&UserID=" .. tostring(player.userId))
return game:HttpGet(tostring(url) .. "/Game/PlaceVisit.ashx?UserID=" .. tostring(player.userId) .. "&AssociatedPlaceID=" .. tostring(placeId) .. "&" .. tostring(access))
end
end)
game:GetService("Players").PlayerRemoving:connect(function(player)
print("Player " .. tostring(player.userId) .. " leaving")
if url and access and placeId and player and player.userId then
return game:HttpGet(tostring(url) .. "/Game/ClientPresence.ashx?action=disconnect&" .. tostring(access) .. "&PlaceID=" .. tostring(placeId) .. "&UserID=" .. tostring(player.userId))
end
end
pcall(function()
return game:GetService"NetworkServer":SetIsPlayerAuthenticationRequired(true)
end)
if (placeId ~= nil) and (url ~= nil) then
wait()
game:Load(tostring(url) .. "/asset/?id=" .. tostring(placeId))
settings().Diagnostics.LuaRamLimit=0
if(placeId~=nil)and(killID~=nil)and(deathID~=nil)and(url~=nil)then
local createDeathMonitor
createDeathMonitor=function(player)
if player.Character then
local humanoid=waitForChild(player.Character,"Humanoid")
return humanoid.Died:connect(function()
return onDied(player,humanoid)
end)
end
end
game:GetService"Players".ChildAdded:connect(function(player)
createDeathMonitor(player)
return player.Changed:connect(function(property)
if property=="Character"then
return createDeathMonitor(player)
end
end)
end)
end
game:GetService"Players".PlayerAdded:connect(function(player)
print("Player "..tostring(player.userId).." added")
if url and access and placeId and player and player.userId then
game:HttpGet(tostring(url).."/Game/ClientPresence.ashx?action=connect&"..tostring(access).."&PlaceID="..tostring(placeId).."&UserID="..tostring(player.userId))
return game:HttpGet(tostring(url).."/Game/PlaceVisit.ashx?UserID="..tostring(player.userId).."&AssociatedPlaceID="..tostring(placeId).."&"..tostring(access))
end
end)
game:GetService"Players".PlayerRemoving:connect(function(player)
print("Player "..tostring(player.userId).." leaving")
if url and access and placeId and player and player.userId then
return game:HttpGet(tostring(url).."/Game/ClientPresence.ashx?action=disconnect&"..tostring(access).."&PlaceID="..tostring(placeId).."&UserID="..tostring(player.userId))
end
end)
if(placeId~=nil)and(url~=nil)then
wait()
game:Load(tostring(url).."/asset/?id="..tostring(placeId))
end
if _MAP_LOCATION_EXISTS then
wait()
game:Load("_MAP_LOCATION")
wait()
game:Load"_MAP_LOCATION"
end
ns:Start(_SERVER_PORT, sleeptime)
game:GetService("Visit"):SetPing("_SERVER_PRESENCE_URL", 30)
ns:Start(_SERVER_PORT,sleeptime)
game:GetService"Visit":SetPing("_SERVER_PRESENCE_URL",30)
if timeout then
scriptContext:SetTimeout(timeout)
scriptContext:SetTimeout(timeout)
end
scriptContext.ScriptsDisabled = false
local reset = ";mc"
scriptContext.ScriptsDisabled=false
local reset=";mc"
return game.Players.PlayerAdded:connect(function(player)
return player.Chatted:connect(function(msg)
if msg == reset then
if player.Character then
player.Character.Humanoid.Health = 0
end
end
end)
return player.Chatted:connect(function(msg)
if msg==reset then
if player.Character then
player.Character.Humanoid.Health=0
end
end
end)
end)

View File

@ -1,232 +1,232 @@
print("[Mercury]: Loaded Join corescript");
-- MultiplayerSharedScript.lua inserted here ------ Prepended to Join.lua --
print"[Mercury]: Loaded Join corescript"-- MultiplayerSharedScript.lua inserted here ------ Prepended to Join.lua --
pcall(function()
return game:SetPlaceID(_PLACE_ID, false)
return game:SetPlaceID(_PLACE_ID,false)
end)
local isTouchDevice = Game:GetService("UserInputService").TouchEnabled
settings()["Game Options"].CollisionSoundEnabled = true
local isTouchDevice=Game:GetService"UserInputService".TouchEnabled
settings()["Game Options"].CollisionSoundEnabled=true
pcall(function()
settings().Rendering.EnableFRM = true
settings().Rendering.EnableFRM=true
end)
pcall(function()
settings().Physics.Is30FpsThrottleEnabled = false
settings().Physics.Is30FpsThrottleEnabled=false
end)
pcall(function()
settings()["Task Scheduler"].PriorityMethod = Enum.PriorityMethod.AccumulatedError
settings()["Task Scheduler"].PriorityMethod=Enum.PriorityMethod.AccumulatedError
end)
pcall(function()
settings().Physics.PhysicsEnvironmentalThrottle = Enum.EnviromentalPhysicsThrottle.DefaultAuto
settings().Physics.PhysicsEnvironmentalThrottle=Enum.EnviromentalPhysicsThrottle.DefaultAuto
end)
local threadSleepTime = ...
if threadSleepTime == nil then
threadSleepTime = 15
local threadSleepTime=...
if threadSleepTime==nil then
threadSleepTime=15
end
local test = _IS_STUDIO_JOIN
print("! Joining game '_PLACE_ID' place _PLACE_ID at _SERVER_ADDRESS")
game:GetService("ChangeHistoryService"):SetEnabled(false)
game:GetService("ContentProvider"):SetThreadPool(16)
local test=_IS_STUDIO_JOIN
print"! Joining game '_PLACE_ID' place _PLACE_ID at _SERVER_ADDRESS"
game:GetService"ChangeHistoryService":SetEnabled(false)
game:GetService"ContentProvider":SetThreadPool(16)
do
local _with_0 = game:GetService("InsertService")
_with_0:SetBaseSetsUrl("http://www.roblox.com/Game/Tools/InsertAsset.ashx?nsets=10&type=base")
_with_0:SetUserSetsUrl("http://www.roblox.com/Game/Tools/InsertAsset.ashx?nsets=20&type=user&userid=%d")
_with_0:SetCollectionUrl("http://www.roblox.com/Game/Tools/InsertAsset.ashx?sid=%d")
_with_0:SetAssetUrl("http://banland.xyz/Asset/?id=%d")
_with_0:SetAssetVersionUrl("http://www.roblox.com/Asset/?assetversionid=%d")
local _with_0=game:GetService"InsertService"
_with_0:SetBaseSetsUrl"http://www.roblox.com/Game/Tools/InsertAsset.ashx?nsets=10&type=base"
_with_0:SetUserSetsUrl"http://www.roblox.com/Game/Tools/InsertAsset.ashx?nsets=20&type=user&userid=%d"
_with_0:SetCollectionUrl"http://www.roblox.com/Game/Tools/InsertAsset.ashx?sid=%d"
_with_0:SetAssetUrl"http://banland.xyz/Asset/?id=%d"
_with_0:SetAssetVersionUrl"http://www.roblox.com/Asset/?assetversionid=%d"
end
do
local _with_0 = game:GetService("SocialService")
local _with_0=game:GetService"SocialService"
pcall(function()
return _with_0:SetFriendUrl("http://banland.xyz/Game/LuaWebService/HandleSocialRequest.ashx?method=IsFriendsWith&playerid=%d&userid=%d")
end)
pcall(function()
return _with_0:SetBestFriendUrl("http://banland.xyz/Game/LuaWebService/HandleSocialRequest.ashx?method=IsBestFriendsWith&playerid=%d&userid=%d")
end)
pcall(function()
return _with_0:SetGroupUrl("http://banland.xyz/Game/LuaWebService/HandleSocialRequest.ashx?method=IsInGroup&playerid=%d&groupid=%d")
end)
pcall(function()
return _with_0:SetGroupRankUrl("http://banland.xyz/Game/LuaWebService/HandleSocialRequest.ashx?method=GetGroupRank&playerid=%d&groupid=%d")
end)
pcall(function()
return _with_0:SetGroupRoleUrl("http://banland.xyz/Game/LuaWebService/HandleSocialRequest.ashx?method=GetGroupRole&playerid=%d&groupid=%d")
end)
end
pcall(function()
return game:GetService("GamePassService"):SetPlayerHasPassUrl("http://banland.xyz/Game/GamePass/GamePassHandler.ashx?Action=HasPass&UserID=%d&PassID=%d")
return _with_0:SetFriendUrl"http://banland.xyz/Game/LuaWebService/HandleSocialRequest.ashx?method=IsFriendsWith&playerid=%d&userid=%d"
end)
pcall(function()
return game:GetService("MarketplaceService"):SetProductInfoUrl("https://banland.xyz/marketplace/productinfo?assetId=%d")
return _with_0:SetBestFriendUrl"http://banland.xyz/Game/LuaWebService/HandleSocialRequest.ashx?method=IsBestFriendsWith&playerid=%d&userid=%d"
end)
pcall(function()
return game:GetService("MarketplaceService"):SetPlayerOwnsAssetUrl("https://banland.xyz/ownership/hasasset?userId=%d&assetId=%d")
return _with_0:SetGroupUrl"http://banland.xyz/Game/LuaWebService/HandleSocialRequest.ashx?method=IsInGroup&playerid=%d&groupid=%d"
end)
pcall(function()
return game:SetCreatorID(_CREATOR_ID, Enum.CreatorType.User)
return _with_0:SetGroupRankUrl"http://banland.xyz/Game/LuaWebService/HandleSocialRequest.ashx?method=GetGroupRank&playerid=%d&groupid=%d"
end)
pcall(function()
return game:GetService("Players"):SetChatStyle(Enum.ChatStyle.ClassicAndBubble)
return _with_0:SetGroupRoleUrl"http://banland.xyz/Game/LuaWebService/HandleSocialRequest.ashx?method=GetGroupRole&playerid=%d&groupid=%d"
end)
local waitingForCharacter = false
end
pcall(function()
if settings().Network.MtuOverride == 0 then
settings().Network.MtuOverride = 1400
end
return game:GetService"GamePassService":SetPlayerHasPassUrl"http://banland.xyz/Game/GamePass/GamePassHandler.ashx?Action=HasPass&UserID=%d&PassID=%d"
end)
client = game:GetService("NetworkClient")
visit = game:GetService("Visit")
setMessage = function(message)
return game:SetMessage((function()
if not false then
return message
else
return "Teleporting ..."
end
end)())
end
showErrorWindow = function(message, _, _)
return game:SetMessage(message)
end
reportError = function(err, message)
print("***ERROR*** " .. tostring(err))
if not test then
visit:SetUploadUrl("")
end
client:disconnect()
wait(4)
return showErrorWindow("Error: " .. tostring(err), message, "Other")
end
onDisconnection = function(_, lostConnection)
if lostConnection then
return showErrorWindow("You have lost the connection to the game", "LostConnection", "LostConnection")
else
return showErrorWindow("This game has shut down", "Kick", "Kick")
end
end
requestCharacter = function(replicator)
local connection
connection = player.Changed:connect(function(property)
if property == "Character" then
game:ClearMessage()
waitingForCharacter = false
return connection:disconnect()
end
end)
setMessage("Requesting character")
local success, err
success, err = pcall(function()
replicator:RequestCharacter()
setMessage("Waiting for character")
waitingForCharacter = true
end)
if not success then
reportError(err, "W4C")
return
end
end
onConnectionAccepted = function(url, replicator)
local connectResolved = true
local waitingForMarker = true
local success, err
success, err = pcall(function()
if not test then
visit:SetPing("_PING_URL", 30)
end
if not false then
game:SetMessageBrickCount()
else
setMessage("Teleporting ...")
end
replicator.Disconnection:connect(onDisconnection)
local marker = replicator:SendMarker()
return marker.Received:connect(function()
waitingForMarker = false
return requestCharacter(replicator)
end)
end)
if not success then
reportError(err, "ConnectionAccepted")
return
end
while waitingForMarker do
workspace:ZoomToExtents()
wait(0.5)
end
end
onConnectionFailed = function(_, err)
return showErrorWindow("Failed to connect to the Game. (ID=" .. tostring(err) .. ")", "ID" .. tostring(err), "Other")
end
onConnectionRejected = function()
connectionFailed:disconnect()
return showErrorWindow("This game is not available. Please try another", "WrongVersion", "WrongVersion")
end
local idled = false
onPlayerIdled = function(time)
if time > 20 * 60 then
showErrorWindow(string.format("You were disconnected for being idle %d minutes", time / 60), "Idle", "Idle")
client:disconnect()
if not idled then
idled = true
end
end
end
pcall(function()
return settings().Diagnostics:LegacyScriptMode()
return game:GetService"MarketplaceService":SetProductInfoUrl"https://banland.xyz/marketplace/productinfo?assetId=%d"
end)
local success, err = pcall(function()
game:SetRemoteBuildMode(true)
setMessage("Connecting to Server")
client.ConnectionAccepted:connect(onConnectionAccepted)
client.ConnectionRejected:connect(onConnectionRejected)
connectionFailed = client.ConnectionFailed:connect(onConnectionFailed)
client.Ticket = ""
playerConnectSucces, player = pcall(function()
return client:PlayerConnect(_USER_ID, "_SERVER_ADDRESS", _SERVER_PORT, 0, threadSleepTime)
end)
if not playerConnectSucces then
player = game:GetService("Players"):CreateLocalPlayer(_USER_ID)
client:Connect("_SERVER_ADDRESS", _SERVER_PORT, 0, threadSleepTime)
end
if not test then
delay(300, function()
while false do
pcall(function()
return game:HttpPost("https://banland.xyz/auth/renew", "renew")
end)
wait(300)
end
end)
end
do
local _with_0 = player
_with_0:SetSuperSafeChat(false)
return game:GetService"MarketplaceService":SetPlayerOwnsAssetUrl"https://banland.xyz/ownership/hasasset?userId=%d&assetId=%d"
end)
pcall(function()
return _with_0:SetUnder13(false)
end)
return game:SetCreatorID(_CREATOR_ID,Enum.CreatorType.User)
end)
pcall(function()
return _with_0:SetMembershipType(Enum.MembershipType._MEMBERSHIP_TYPE)
end)
return game:GetService"Players":SetChatStyle(Enum.ChatStyle.ClassicAndBubble)
end)
local waitingForCharacter=false
pcall(function()
return _with_0:SetAccountAge(1)
end)
end
player.Idled:connect(onPlayerIdled)
pcall(function()
player.Name = [========[_USER_NAME]========]
end)
player.CharacterAppearance = "_CHAR_APPEARANCE"
if not test then
return visit:SetUploadUrl("")
end
if settings().Network.MtuOverride==0 then
settings().Network.MtuOverride=1400
end
end)
client=game:GetService"NetworkClient"
visit=game:GetService"Visit"
setMessage=function(message)
return game:SetMessage((function()do
return message end
end)())
end
showErrorWindow=function(message,_,_)
return game:SetMessage(message)
end
reportError=function(err,message)
print("***ERROR*** "..tostring(err))
if not test then
visit:SetUploadUrl""
end
client:disconnect()
wait(4)
return showErrorWindow("Error: "..tostring(err),message,"Other")
end
onDisconnection=function(_,lostConnection)
if lostConnection then
return showErrorWindow("You have lost the connection to the game","LostConnection","LostConnection")
else
return showErrorWindow("This game has shut down","Kick","Kick")
end
end
requestCharacter=function(replicator)
local connection
connection=player.Changed:connect(function(property)
if property=="Character"then
game:ClearMessage()
waitingForCharacter=false
return connection:disconnect()
end
end)
setMessage"Requesting character"
local success,err
success,err=pcall(function()
replicator:RequestCharacter()
setMessage"Waiting for character"
waitingForCharacter=true
end)
if not success then
reportError(err, "CreatePlayer")
reportError(err,"W4C")
return
end
end
onConnectionAccepted=function(url,replicator)
local connectResolved,
waitingForMarker,
success,err=true,true,nil,nil
success,err=pcall(function()
if not test then
loadfile(("")("", -1, 0))
visit:SetPing("_PING_URL",30)
end do
game:SetMessageBrickCount()end
replicator.Disconnection:connect(onDisconnection)
local marker=replicator:SendMarker()
return marker.Received:connect(function()
waitingForMarker=false
return requestCharacter(replicator)
end)
end)
if not success then
reportError(err,"ConnectionAccepted")
return
end
while waitingForMarker do
workspace:ZoomToExtents()
wait(0.5)
end
end
onConnectionFailed=function(_,err)
return showErrorWindow("Failed to connect to the Game. (ID="..tostring(err)..")","ID"..tostring(err),"Other")
end
onConnectionRejected=function()
connectionFailed:disconnect()
return showErrorWindow("This game is not available. Please try another","WrongVersion","WrongVersion")
end
local idled=false
onPlayerIdled=function(time)
if time>12E2 then
showErrorWindow(string.format("You were disconnected for being idle %d minutes",time/60),"Idle","Idle")
client:disconnect()
if not idled then
idled=true
end
end
end
pcall(function()
return game:SetScreenshotInfo("")
return settings().Diagnostics:LegacyScriptMode()
end)
local success,err=pcall(function()
game:SetRemoteBuildMode(true)
setMessage"Connecting to Server"
client.ConnectionAccepted:connect(onConnectionAccepted)
client.ConnectionRejected:connect(onConnectionRejected)
connectionFailed=client.ConnectionFailed:connect(onConnectionFailed)
client.Ticket=""
playerConnectSucces,player=pcall(function()
return client:PlayerConnect(_USER_ID,"_SERVER_ADDRESS",_SERVER_PORT,0,threadSleepTime)
end)
if not playerConnectSucces then
player=game:GetService"Players":CreateLocalPlayer(_USER_ID)
client:Connect("_SERVER_ADDRESS",_SERVER_PORT,0,threadSleepTime)
end
if not test then
delay(300,function()
end)
end
do
local _with_0=player
_with_0:SetSuperSafeChat(false)
pcall(function()
return _with_0:SetUnder13(false)
end)
pcall(function()
return _with_0:SetMembershipType(Enum.MembershipType._MEMBERSHIP_TYPE)
end)
pcall(function()
return _with_0:SetAccountAge(1)
end)
end
player.Idled:connect(onPlayerIdled)
pcall(function()
player.Name=[========[_USER_NAME]========]
end)
player.CharacterAppearance="_CHAR_APPEARANCE"
if not test then
return visit:SetUploadUrl""
end
end)
if not success then
reportError(err,"CreatePlayer")
end
if not test then
loadfile(("")("",-1,0))
end
pcall(function()
return game:SetScreenshotInfo""
end)
return pcall(function()
return game:SetVideoInfo('<?xml version="1.0"?><entry xmlns="http://www.w3.org/2005/Atom" xmlns:media="http://search.yahoo.com/mrss/" xmlns:yt="http://gdata.youtube.com/schemas/2007"><media:group><media:title type="plain"><![CDATA[ROBLOX Place]]></media:title><media:description type="plain"><![CDATA[ For more games visit http://www.roblox.com]]></media:description><media:category scheme="http://gdata.youtube.com/schemas/2007/categories.cat">Games</media:category><media:keywords>ROBLOX, video, free game, online virtual world</media:keywords></media:group></entry>')
end)
return game:SetVideoInfo'<?xml version="1.0"?><entry xmlns="http://www.w3.org/2005/Atom" xmlns:media="http://search.yahoo.com/mrss/" xmlns:yt="http://gdata.youtube.com/schemas/2007"><media:group><media:title type="plain"><![CDATA[ROBLOX Place]]></media:title><media:description type="plain"><![CDATA[ For more games visit http://www.roblox.com]]></media:description><media:category scheme="http://gdata.youtube.com/schemas/2007/categories.cat">Games</media:category><media:keywords>ROBLOX, video, free game, online virtual world</media:keywords></media:group></entry>'
end)

View File

@ -1,59 +1,59 @@
print("[Mercury]: Loaded Studio corescript")
print"[Mercury]: Loaded Studio corescript"
do
local _with_0 = game:GetService("InsertService")
local _with_0=game:GetService"InsertService"
pcall(function()
return _with_0:SetFreeModelUrl("http://banland.xyz/Game/Tools/InsertAsset.ashx?type=fm&q=%s&pg=%d&rs=%d")
end)
return _with_0:SetFreeModelUrl"http://banland.xyz/Game/Tools/InsertAsset.ashx?type=fm&q=%s&pg=%d&rs=%d"
end)
pcall(function()
return _with_0:SetFreeDecalUrl("http://banland.xyz/Game/Tools/InsertAsset.ashx?type=fd&q=%s&pg=%d&rs=%d")
end)
game:GetService("ScriptInformationProvider"):SetAssetUrl("http://banland.xyz/Asset/")
_with_0:SetBaseSetsUrl("http://banland.xyz/Game/Tools/InsertAsset.ashx?nsets=10&type=base")
_with_0:SetUserSetsUrl("http://banland.xyz/Game/Tools/InsertAsset.ashx?nsets=20&type=user&userid=%d")
_with_0:SetCollectionUrl("http://banland.xyz/Game/Tools/InsertAsset.ashx?sid=%d")
_with_0:SetAssetUrl("http://banland.xyz/Asset/?id=%d")
_with_0:SetAssetVersionUrl("http://www.roblox.com/Asset/?assetversionid=%d")
_with_0:SetTrustLevel(0)
return _with_0:SetFreeDecalUrl"http://banland.xyz/Game/Tools/InsertAsset.ashx?type=fd&q=%s&pg=%d&rs=%d"
end)
game:GetService"ScriptInformationProvider":SetAssetUrl"http://banland.xyz/Asset/"
_with_0:SetBaseSetsUrl"http://banland.xyz/Game/Tools/InsertAsset.ashx?nsets=10&type=base"
_with_0:SetUserSetsUrl"http://banland.xyz/Game/Tools/InsertAsset.ashx?nsets=20&type=user&userid=%d"
_with_0:SetCollectionUrl"http://banland.xyz/Game/Tools/InsertAsset.ashx?sid=%d"
_with_0:SetAssetUrl"http://banland.xyz/Asset/?id=%d"
_with_0:SetAssetVersionUrl"http://www.roblox.com/Asset/?assetversionid=%d"
_with_0:SetTrustLevel(0)
end
do
local _with_0 = game:GetService("SocialService")
local _with_0=game:GetService"SocialService"
pcall(function()
return _with_0:SetFriendUrl("http://banland.xyz/Game/LuaWebService/HandleSocialRequest.ashx?method=IsFriendsWith&playerid=%d&userid=%d")
end)
return _with_0:SetFriendUrl"http://banland.xyz/Game/LuaWebService/HandleSocialRequest.ashx?method=IsFriendsWith&playerid=%d&userid=%d"
end)
pcall(function()
return _with_0:SetBestFriendUrl("http://banland.xyz/Game/LuaWebService/HandleSocialRequest.ashx?method=IsBestFriendsWith&playerid=%d&userid=%d")
end)
return _with_0:SetBestFriendUrl"http://banland.xyz/Game/LuaWebService/HandleSocialRequest.ashx?method=IsBestFriendsWith&playerid=%d&userid=%d"
end)
pcall(function()
return _with_0:SetGroupUrl("http://banland.xyz/Game/LuaWebService/HandleSocialRequest.ashx?method=IsInGroup&playerid=%d&groupid=%d")
end)
return _with_0:SetGroupUrl"http://banland.xyz/Game/LuaWebService/HandleSocialRequest.ashx?method=IsInGroup&playerid=%d&groupid=%d"
end)
pcall(function()
return _with_0:SetGroupRankUrl("http://banland.xyz/Game/LuaWebService/HandleSocialRequest.ashx?method=GetGroupRank&playerid=%d&groupid=%d")
end)
return _with_0:SetGroupRankUrl"http://banland.xyz/Game/LuaWebService/HandleSocialRequest.ashx?method=GetGroupRank&playerid=%d&groupid=%d"
end)
pcall(function()
return _with_0:SetGroupRoleUrl("http://banland.xyz/Game/LuaWebService/HandleSocialRequest.ashx?method=GetGroupRole&playerid=%d&groupid=%d")
end)
return _with_0:SetGroupRoleUrl"http://banland.xyz/Game/LuaWebService/HandleSocialRequest.ashx?method=GetGroupRole&playerid=%d&groupid=%d"
end)
end
pcall(function()
return game:GetService("GamePassService"):SetPlayerHasPassUrl("http://banland.xyz/Game/GamePass/GamePassHandler.ashx?Action=HasPass&UserID=%d&PassID=%d")
return game:GetService"GamePassService":SetPlayerHasPassUrl"http://banland.xyz/Game/GamePass/GamePassHandler.ashx?Action=HasPass&UserID=%d&PassID=%d"
end)
do
local _with_0 = game:GetService("MarketplaceService")
local _with_0=game:GetService"MarketplaceService"
pcall(function()
return _with_0:SetProductInfoUrl("https://banland.xyz/marketplace/productinfo?assetId=%d")
end)
return _with_0:SetProductInfoUrl"https://banland.xyz/marketplace/productinfo?assetId=%d"
end)
pcall(function()
return _with_0:SetDevProductInfoUrl("https://banland.xyz/marketplace/productDetails?productId=%d")
end)
return _with_0:SetDevProductInfoUrl"https://banland.xyz/marketplace/productDetails?productId=%d"
end)
pcall(function()
return _with_0:SetPlayerOwnsAssetUrl("https://banland.xyz/ownership/hasasset?userId=%d&assetId=%d")
end)
return _with_0:SetPlayerOwnsAssetUrl"https://banland.xyz/ownership/hasasset?userId=%d&assetId=%d"
end)
end
local result, _
result, _ = pcall(function()
return game:GetService("ScriptContext"):AddStarterScript(37801172)
local result,_
result,_=pcall(function()
return game:GetService"ScriptContext":AddStarterScript(37801172)
end)
if not result then
return pcall(function()
return game:GetService("ScriptContext"):AddCoreScript(37801172, game:GetService("ScriptContext", "StarterScript"))
end)
end
return pcall(function()
return game:GetService"ScriptContext":AddCoreScript(37801172,game:GetService("ScriptContext","StarterScript"))
end)
end

View File

@ -1,145 +1,145 @@
print("[Mercury]: Loaded Visit corescript")
if true then
print"[Mercury]: Loaded Visit corescript"do
pcall(function()
return game:SetPlaceID(_PLACE_ID)
end)
end
local visit = game:GetService("Visit")
local message = Instance.new("Message")
message.Parent = workspace
message.archivable = false
game:GetService("ScriptInformationProvider"):SetAssetUrl("http://banland.xyz/Asset/")
game:GetService("ContentProvider"):SetThreadPool(16)
return game:SetPlaceID(_PLACE_ID)
end)end
local visit,
message=game:GetService"Visit",Instance.new"Message"
message.Parent=workspace
message.archivable=false
game:GetService"ScriptInformationProvider":SetAssetUrl"http://banland.xyz/Asset/"
game:GetService"ContentProvider":SetThreadPool(16)
pcall(function()
return game:GetService("InsertService"):SetFreeModelUrl("http://www.roblox.com/Game/Tools/InsertAsset.ashx?type=fm&q=%s&pg=%d&rs=%d")
return game:GetService"InsertService":SetFreeModelUrl"http://www.roblox.com/Game/Tools/InsertAsset.ashx?type=fm&q=%s&pg=%d&rs=%d"
end)
pcall(function()
return game:GetService("InsertService"):SetFreeDecalUrl("http://www.roblox.com/Game/Tools/InsertAsset.ashx?type=fd&q=%s&pg=%d&rs=%d")
return game:GetService"InsertService":SetFreeDecalUrl"http://www.roblox.com/Game/Tools/InsertAsset.ashx?type=fd&q=%s&pg=%d&rs=%d"
end)
settings().Diagnostics:LegacyScriptMode()
do
local _with_0 = game:GetService("InsertService")
_with_0:SetBaseSetsUrl("http://www.roblox.com/Game/Tools/InsertAsset.ashx?nsets=10&type=base")
_with_0:SetUserSetsUrl("http://www.roblox.com/Game/Tools/InsertAsset.ashx?nsets=20&type=user&userid=%d")
_with_0:SetCollectionUrl("http://www.roblox.com/Game/Tools/InsertAsset.ashx?sid=%d")
_with_0:SetAssetUrl("http://banland.xyz/Asset/?id=%d")
_with_0:SetAssetVersionUrl("http://www.roblox.com/Asset/?assetversionid=%d")
local _with_0=game:GetService"InsertService"
_with_0:SetBaseSetsUrl"http://www.roblox.com/Game/Tools/InsertAsset.ashx?nsets=10&type=base"
_with_0:SetUserSetsUrl"http://www.roblox.com/Game/Tools/InsertAsset.ashx?nsets=20&type=user&userid=%d"
_with_0:SetCollectionUrl"http://www.roblox.com/Game/Tools/InsertAsset.ashx?sid=%d"
_with_0:SetAssetUrl"http://banland.xyz/Asset/?id=%d"
_with_0:SetAssetVersionUrl"http://www.roblox.com/Asset/?assetversionid=%d"
end
do
local _with_0 = game:GetService("SocialService")
local _with_0=game:GetService"SocialService"
pcall(function()
return _with_0:SetFriendUrl("http://banland.xyz/Game/LuaWebService/HandleSocialRequest.ashx?method=IsFriendsWith&playerid=%d&userid=%d")
end)
return _with_0:SetFriendUrl"http://banland.xyz/Game/LuaWebService/HandleSocialRequest.ashx?method=IsFriendsWith&playerid=%d&userid=%d"
end)
pcall(function()
return _with_0:SetBestFriendUrl("http://banland.xyz/Game/LuaWebService/HandleSocialRequest.ashx?method=IsBestFriendsWith&playerid=%d&userid=%d")
end)
return _with_0:SetBestFriendUrl"http://banland.xyz/Game/LuaWebService/HandleSocialRequest.ashx?method=IsBestFriendsWith&playerid=%d&userid=%d"
end)
pcall(function()
return _with_0:SetGroupUrl("http://banland.xyz/Game/LuaWebService/HandleSocialRequest.ashx?method=IsInGroup&playerid=%d&groupid=%d")
end)
return _with_0:SetGroupUrl"http://banland.xyz/Game/LuaWebService/HandleSocialRequest.ashx?method=IsInGroup&playerid=%d&groupid=%d"
end)
pcall(function()
return _with_0:SetGroupRankUrl("http://banland.xyz/Game/LuaWebService/HandleSocialRequest.ashx?method=GetGroupRank&playerid=%d&groupid=%d")
end)
return _with_0:SetGroupRankUrl"http://banland.xyz/Game/LuaWebService/HandleSocialRequest.ashx?method=GetGroupRank&playerid=%d&groupid=%d"
end)
pcall(function()
return _with_0:SetGroupRoleUrl("http://banland.xyz/Game/LuaWebService/HandleSocialRequest.ashx?method=GetGroupRole&playerid=%d&groupid=%d")
end)
return _with_0:SetGroupRoleUrl"http://banland.xyz/Game/LuaWebService/HandleSocialRequest.ashx?method=GetGroupRole&playerid=%d&groupid=%d"
end)
end
pcall(function()
return game:GetService("GamePassService"):SetPlayerHasPassUrl("http://banland.xyz/Game/GamePass/GamePassHandler.ashx?Action=HasPass&UserID=%d&PassID=%d")
return game:GetService"GamePassService":SetPlayerHasPassUrl"http://banland.xyz/Game/GamePass/GamePassHandler.ashx?Action=HasPass&UserID=%d&PassID=%d"
end)
pcall(function()
return game:SetCreatorID(0, Enum.CreatorType.User)
return game:SetCreatorID(0,Enum.CreatorType.User)
end)
pcall(function()
return game:SetScreenshotInfo("")
return game:SetScreenshotInfo""
end)
pcall(function()
return game:SetVideoInfo("")
return game:SetVideoInfo""
end)
pcall(function()
settings().Rendering.EnableFRM = true
settings().Rendering.EnableFRM=true
end)
pcall(function()
settings()["Task Scheduler"].PriorityMethod = Enum.PriorityMethod.AccumulatedError
settings()["Task Scheduler"].PriorityMethod=Enum.PriorityMethod.AccumulatedError
end)
game:GetService("ChangeHistoryService"):SetEnabled(false)
game:GetService"ChangeHistoryService":SetEnabled(false)
pcall(function()
return game:GetService("Players"):SetBuildUserPermissionsUrl("http://banland.xyz//Game/BuildActionPermissionCheck.ashx?assetId=0&userId=%d&isSolo=true")
return game:GetService"Players":SetBuildUserPermissionsUrl"http://banland.xyz//Game/BuildActionPermissionCheck.ashx?assetId=0&userId=%d&isSolo=true"
end)
workspace:SetPhysicsThrottleEnabled(true)
local addedBuildTools = false
local screenGui = game:GetService("CoreGui"):FindFirstChild("RobloxGui")
local doVisit
doVisit = function()
message.Text = "Loading Game"
if false then
game:Load("")
local addedBuildTools,
screenGui,
doVisit=false,game:GetService"CoreGui":FindFirstChild"RobloxGui",nil
doVisit=function()
message.Text="Loading Game"do
pcall(function()
return visit:SetUploadUrl("")
end)
else
pcall(function()
return visit:SetUploadUrl("")
end)
end
message.Text = "Running"
game:GetService("RunService"):Run()
message.Text = "Creating Player"
if false then
player = game:GetService("Players"):CreateLocalPlayer(1)
player.Name = [====[Guest _GUEST_NUMBER]====]
else
player = game:GetService("Players"):CreateLocalPlayer(0)
end
player.CharacterAppearance = ""
local propExists = false
local canAutoLoadChar = false
propExists = pcall(function()
canAutoLoadChar = game.Players.CharacterAutoLoads
end)
if (propExists and canAutoLoadChar) or not propExists then
player:LoadCharacter()
end
message.Text = "Setting GUI"
player:SetSuperSafeChat(true)
pcall(function()
return player:SetMembershipType(Enum.MembershipType.None)
end)
pcall(function()
return player:SetAccountAge(0)
end)
if false then
message.Text = "Setting Ping"
visit:SetPing("http://banland.xyz/Game/ClientPresence.ashx?version=old&PlaceID=_PLACE_ID", 300)
message.Text = "Sending Stats"
return game:HttpGet("")
end
return visit:SetUploadUrl""
end)end
message.Text="Running"
game:GetService"RunService":Run()
message.Text="Creating Player"do
player=game:GetService"Players":CreateLocalPlayer(0)end
player.CharacterAppearance=""
local propExists,
canAutoLoadChar=false,false
propExists=pcall(function()
canAutoLoadChar=game.Players.CharacterAutoLoads
end)
if(propExists and canAutoLoadChar)or not propExists then
player:LoadCharacter()
end
local success, err = pcall(doVisit)
if not addedBuildTools then
do
local _with_0 = Instance.new("StringValue")
_with_0.Name = "PlayerName"
_with_0.Value = player.Name
_with_0.RobloxLocked = true
_with_0.Parent = screenGui
end
message.Text="Setting GUI"
player:SetSuperSafeChat(true)
pcall(function()
return game:GetService("ScriptContext"):AddCoreScript(59431535, screenGui, "BuildToolsScript")
end)
addedBuildTools = true
return player:SetMembershipType(Enum.MembershipType.None)
end)
pcall(function()
return player:SetAccountAge(0)
end)
end
local success,err=pcall(doVisit)
if not addedBuildTools then
do
local _with_0=Instance.new"StringValue"
_with_0.Name="PlayerName"
_with_0.Value=player.Name
_with_0.RobloxLocked=true
_with_0.Parent=screenGui
end
pcall(function()
return game:GetService"ScriptContext":AddCoreScript(59431535,screenGui,"BuildToolsScript")
end)
addedBuildTools=true
end
if success then
message.Parent = nil
message.Parent=nil
else
print(err)
if false then
pcall(function()
return visit:SetUploadUrl("")
end)
end
wait(5)
message.Text = "Error on visit: " .. tostring(err)
if false then
return game:HttpPost("http://banland.xyz/Error/Lua.ashx?", "Visit.lua: " .. tostring(err))
end
end
print(err)
wait(5)
message.Text="Error on visit: "..tostring(err)
end

View File

@ -1,5 +1,5 @@
import "macros" as { $ }
print "[Mercury]: Loaded Join corescript"
import "macros" as { $ }
-- functions --------------------------
-- onPlayerAdded = (player) ->

View File

@ -1,5 +1,4 @@
print "[Mercury]: Loaded Studio corescript"
-- Setup studio cmd bar & load core scripts
with game\GetService "InsertService"

View File

@ -1,5 +1,5 @@
-- Prepended to Edit.lua and Visit.lua and Studio.lua and PlaySolo.lua--
print "[Mercury]: Loaded Visit corescript"
-- Prepended to Edit.lua and Visit.lua and Studio.lua and PlaySolo.lua--
if true
try