Retrblox.org

Home
Years
Video and client

Solo

-- Services

local Visit = game:service("Visit")

local Players = game:service("Players")

local RunService = game:service("RunService")

-- Create Player

local player = game.Players.LocalPlayer


if not player then
	
player = game.Players:createLocalPlayer(0)

end


local function waitForChild(parent,childName)
	
local child
	
	
while true do
		
child = parent:findFirstChild(childName)
		
		
if child then
			
break
		
else
			
parent.ChildAdded:wait()
		
end
	
end
	
	
return child
end


local function onChanged(property)
	
if property == "Character" then
		
local humanoid = waitForChild(player.Character, "Humanoid")
		
		
humanoid.Died:connect(function ()
			
wait(5)
			
player:LoadCharacter()
		
end)
	
end

end


player.Changed:connect(onChanged)
player:LoadCharacter()


-- Start the game.
RunService:run()
game:service("NetworkClient")

game:service("NetworkClient")

join server

-- arguments ---------------------------------------

local threadSleepTime = ...

if threadSleepTime==nil then
	threadSleepTime = 65
end

-- globals -----------------------------------------

client = game:GetService("NetworkClient")
visit = game:GetService("Visit")

-- functions ---------------------------------------

function setMessage(message)
	-- todo: animated "..."
	game:SetMessage(message)
end

function showErrorWindow(message)
	game:SetMessage(message)
end

function reportError(err)
	print("***ERROR*** " .. err)
	visit:SetUploadUrl("")
	client:Disconnect()
	wait(4)
	showErrorWindow("Error: " .. err)
	game:HttpPost("http://www.roblox.com/Error/Lua.ashx?", "Join.lua: " .. err)
end

-- called when the client connection closes
function onDisconnection(peer, lostConnection)
	if lostConnection then
		showErrorWindow("You have lost the connection to the game")
	else
		showErrorWindow("You have disconnected from the game")
	end
end

function requestCharacter(replicator)
	
	-- prepare code for when the Character appears
	local connection
	connection = player.Changed:connect(function (property)
		if property=="Character" then
			game:ClearMessage()
			connection:disconnect()
		end
	end)
	
	setMessage("Requesting character")
	-- a little delay to give you a chance to prepare:
	wait(1.5)

	local success, err = pcall(function()	
		replicator:RequestCharacter()
		setMessage("Waiting for character")
	end)
	if not success then
		reportError(err)
		return
	end
end

-- called when the client connection is established
function onConnectionAccepted(url, replicator)

	local waitingForMarker = true
	
	local success, err = pcall(function()	
		setMessage("Setting ping")
		visit:SetPing("http://www.roblox.com/Game/ClientPresence.ashx?Username=Player&PlaceID=0", 300)
		
		setMessage("Logging stats")
		game:HttpGet("http://www.roblox.com/Game/Statistics.ashx?SessionID=&TypeID=5&UserID=0&AssociatedUserID=0&AssociatedPlaceID=0")

		game:SetMessageBrickCount()
		replicator.Disconnection:connect(onDisconnection)
		
		-- Wait for a marker to return before creating the Player
		local marker = replicator:SendMarker()
		
		marker.Received:connect(function()
			waitingForMarker = false
			requestCharacter(replicator)
		end)
	end)
	
	if not success then
		reportError(err)
		return
	end
	
	-- TODO: report marker progress
	
	while waitingForMarker do
		workspace:ZoomToExtents()
		wait(0.5)
	end
end

-- called when the client connection is rejected
function onConnectionRejected()
	showErrorWindow("Please upgrade ROBLOX")
	game:HttpPost("http://www.roblox.com/Error/Lua.ashx?", "Join.lua: Wrong version of ROBLOX")
end

-- called when the client connection fails
function onConnectionFailed()
	showErrorWindow("Failed to connect to the Game")
	game:HttpPost("http://www.roblox.com/Error/Lua.ashx?", "Join.lua: ConnectionFailed")
end

function onPlayerIdled(time)
	if time>30*60 then
		showErrorWindow(string.format("You were disconnected for being idle %d minutes", time/60))
		client:Disconnect()	
	end
end

-- main ------------------------------------------------------------


local success, err = pcall(function()	

	setMessage("Creating Player")
	player = game:GetService("Players"):CreateLocalPlayer(12)
	player:SetUnder13(false)
	player:SetSuperSafeChat(false)
	player.Idled:connect(onPlayerIdled)
	
	player.Name = [======[Player140]======]	
	visit:SetUploadUrl("")

	setMessage("Connecting to Server")
	client.ConnectionAccepted:connect(onConnectionAccepted)
	client.ConnectionRejected:connect(onConnectionRejected)
	client.ConnectionFailed:connect(onConnectionFailed)
	client:Connect("localhost", 53640, 0, threadSleepTime)
end)

if not success then
	reportError(err)
end

open server

local NetworkServer = game:service("NetworkServer")

NetworkServer:start(53640)

local RunService = game:service("RunService")

RunService:run()

tool box

IMPORTANT! If you want to use the toolbox, you need to run "YourRoblox.exe /regserver" in an admin command prompt!

<Settings>
	<BaseUrl>http://legacyroblox.com</BaseUrl>
	<ContentFolder>content</ContentFolder>
</Settings>

use "game:Load("http://legacyroblox.com/api/randplace.php");" open place