From 443ca3f3fe806e5c7f5e33fe673745c6128ead6c Mon Sep 17 00:00:00 2001 From: Lewin Kelly Date: Wed, 26 Apr 2023 17:19:20 +0100 Subject: [PATCH] Compress named corescripts with retain-lines darklua generator --- compile.sh | 14 +- .darklua.json5 => dense.json5 | 2 +- lines.json5 | 13 ++ processed/host.lua | 258 +++++++++++------------ processed/join.lua | 384 +++++++++++++++++----------------- processed/studio.lua | 78 +++---- processed/visit.lua | 218 +++++++++---------- yue/join.yue | 2 +- yue/studio.yue | 1 - yue/visit.yue | 2 +- 10 files changed, 498 insertions(+), 474 deletions(-) rename .darklua.json5 => dense.json5 (98%) create mode 100644 lines.json5 diff --git a/compile.sh b/compile.sh index 79e0ed1..96feaaa 100644 --- a/compile.sh +++ b/compile.sh @@ -1 +1,13 @@ -yue ./yue && darklua process ./yue ./processed && rm -f ./yue/*.lua \ No newline at end of file +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 diff --git a/.darklua.json5 b/dense.json5 similarity index 98% rename from .darklua.json5 rename to dense.json5 index 4c6edd5..f19cb1b 100644 --- a/.darklua.json5 +++ b/dense.json5 @@ -15,5 +15,5 @@ rule: "rename_variables", globals: ["$default", "$roblox"], } - ], + ] } diff --git a/lines.json5 b/lines.json5 new file mode 100644 index 0000000..85c6c0d --- /dev/null +++ b/lines.json5 @@ -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", + ] +} diff --git a/processed/host.lua b/processed/host.lua index 682b025..3b9f160 100644 --- a/processed/host.lua +++ b/processed/host.lua @@ -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) \ No newline at end of file diff --git a/processed/join.lua b/processed/join.lua index 8f339e6..2da4f3f 100644 --- a/processed/join.lua +++ b/processed/join.lua @@ -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('GamesROBLOX, video, free game, online virtual world') -end) +return game:SetVideoInfo'GamesROBLOX, video, free game, online virtual world' +end) \ No newline at end of file diff --git a/processed/studio.lua b/processed/studio.lua index aa83cda..2e6f9c8 100644 --- a/processed/studio.lua +++ b/processed/studio.lua @@ -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 \ No newline at end of file diff --git a/processed/visit.lua b/processed/visit.lua index 5d2e282..113ff21 100644 --- a/processed/visit.lua +++ b/processed/visit.lua @@ -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 \ No newline at end of file diff --git a/yue/join.yue b/yue/join.yue index 4ab2f5b..d88c4ef 100644 --- a/yue/join.yue +++ b/yue/join.yue @@ -1,5 +1,5 @@ -import "macros" as { $ } print "[Mercury]: Loaded Join corescript" +import "macros" as { $ } -- functions -------------------------- -- onPlayerAdded = (player) -> diff --git a/yue/studio.yue b/yue/studio.yue index 066983e..64426b7 100644 --- a/yue/studio.yue +++ b/yue/studio.yue @@ -1,5 +1,4 @@ print "[Mercury]: Loaded Studio corescript" - -- Setup studio cmd bar & load core scripts with game\GetService "InsertService" diff --git a/yue/visit.yue b/yue/visit.yue index 01f44f4..baf2d83 100644 --- a/yue/visit.yue +++ b/yue/visit.yue @@ -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