310 lines
9.8 KiB
Lua
310 lines
9.8 KiB
Lua
--[[
|
|
The following legacy code is created by blocco.
|
|
|
|
It contains many comments for documentation purposes.
|
|
It is to be used for educational purposes.
|
|
|
|
This code is from RBXPri (Blocco Edition).
|
|
This file is "client.lua".
|
|
--]]
|
|
|
|
--[<>[ DOCUMENTATION ]<>]--
|
|
--[==[
|
|
Global ClientUtilities Class
|
|
Connect => string name, int userId, string ip, int port => Connects you to a server with your name and userId;
|
|
Disconnect => Disconnects you from a server;
|
|
GetIP => Gets server IP;
|
|
GetPort => Gets server Port;
|
|
ConnectAsGuest => string ip, int port => Connects you to a server with random Guest ID and name;
|
|
SetCommandBarVisibility => boolean cmdBarVis => Sets command bar visibility in game;
|
|
SetGuestTalk => boolean canGuestTalk => Sets whether or not you can talk if you're a guest;
|
|
]==]--
|
|
|
|
local Instance=Instance;
|
|
local clientConnected=false;
|
|
local selfDisconnect=false;
|
|
|
|
local showServerInfo=false;
|
|
|
|
-- Why go through all the trouble of creating labels and whatnot when you can insert it from a model?
|
|
local svInfTbl = workspace:InsertContent("rbxasset://rpui//serverInfo.rbxm");
|
|
table.foreachi(svInfTbl, function(i, v)v.Visible=false;v.Parent=nil;svInfTbl[v.Name]=v;end);
|
|
|
|
_G.ClientUtilities={};
|
|
|
|
-------------------------------
|
|
--> SetCommandBarVisibility <--
|
|
-------------------------------
|
|
local cmdBarVis=false;
|
|
local updatecb=false;
|
|
_G.ClientUtilities.SetCommandBarVisibility=function(b)
|
|
cmdBarVis = not(not(b))
|
|
updatecb = not updatecb;
|
|
end
|
|
-------------------------------
|
|
|
|
--------------------
|
|
--> SetGuestTalk <--
|
|
--------------------
|
|
local guestTalk=true;
|
|
local updategb=false;
|
|
_G.ClientUtilities.SetGuestTalk=function(b)
|
|
guestTalk = not(b)
|
|
updategb=not updategb;
|
|
end
|
|
--------------------
|
|
|
|
--------------------
|
|
--> SetToolSpawn <--
|
|
--------------------
|
|
local toolSpawn=true;
|
|
_G.ClientUtilities.SetToolSpawn=function(b)
|
|
toolSpawn = not(not(b))
|
|
end
|
|
--------------------
|
|
|
|
function robloxLock(obj)
|
|
local function lock(nobj)
|
|
for i, v in pairs(nobj:children()) do
|
|
v.RobloxLocked=true;
|
|
lock(v)
|
|
end
|
|
end
|
|
obj.RobloxLocked=true;
|
|
lock(obj);
|
|
end
|
|
|
|
-------------------
|
|
--> UI Controls <--
|
|
-------------------
|
|
local LBL_SML = "Size18";
|
|
|
|
function createTextbox(nam, typ)
|
|
local tb = Instance.new("TextBox");
|
|
local tbh = Instance.new("TextButton");
|
|
tbh.Name = nam .. "_holder";
|
|
tbh.Style = "RobloxButton";
|
|
tbh.Active=false;
|
|
tbh.TextTransparency = 1;
|
|
tb.Name = nam;
|
|
tb.Font = "Arial";
|
|
tb.TextWrap = true;
|
|
tb.TextXAlignment = "Left"
|
|
tb.FontSize = typ or LBL_SML;
|
|
tb.BackgroundTransparency = 1;
|
|
tb.TextColor3 = Color3.new(1, 1, 1);
|
|
tb.Size = UDim2.new(1, 0, 1, 16)
|
|
tb.Position = UDim2.new(0, 0, 0, -8);
|
|
tb.Parent = tbh;
|
|
return {Input=tb, Holder=tbh}
|
|
end
|
|
|
|
function createButton(nam, txt, typ)
|
|
local btn = Instance.new("TextButton");
|
|
btn.Style = "RobloxButton";
|
|
btn.Font = "ArialBold";
|
|
btn.FontSize = typ or LBL_SML;
|
|
btn.TextColor3 = Color3.new(1, 1, 1)
|
|
btn.Text = txt;
|
|
btn.Name = nam;
|
|
return btn;
|
|
end
|
|
-------------------
|
|
|
|
function connect(nam, userId, ip, prt)
|
|
if clientConnected then return end;
|
|
for i, v in pairs(workspace:children()) do
|
|
if not v == workspace.CurrentCamera then
|
|
v:Remove();
|
|
end
|
|
end
|
|
game:service("RunService"):Run();
|
|
local plyr;
|
|
clientConnected=true;
|
|
local cl=game:service("NetworkClient");
|
|
game:SetMessage("Connecting...")
|
|
cl.ConnectionAccepted:connect(function(p, rep)
|
|
rep:SendMarker().Received:connect(function()
|
|
game:SetMessage("Waiting for character...");
|
|
rep:RequestCharacter();
|
|
|
|
-- looking back, when I figured out I was able to use models as a sort of template, I had to have been excited
|
|
svInfTbl.SvInfMax.PortValue.Text = tostring(prt);
|
|
svInfTbl.SvInfMax.URIValue.Text = tostring(ip);
|
|
svInfTbl.SvInfMax.InButton.MouseButton1Click:connect(function()svInfTbl.SvInfMax.Visible=false;svInfTbl.SvInfMin.Visible=true;end)
|
|
svInfTbl.SvInfMin.OutButton.MouseButton1Click:connect(function()svInfTbl.SvInfMax.Visible=true;svInfTbl.SvInfMin.Visible=false;end)
|
|
if showServerInfo then
|
|
svInfTbl.SvInfMax.Visible = true;
|
|
svInfTbl.SvInfMax.Parent = game.CoreGui.RPUI;
|
|
svInfTbl.SvInfMin.Parent = game.CoreGui.RPUI;
|
|
else
|
|
svInfTbl.SvInfMin.Visible = true;
|
|
svInfTbl.SvInfMin.Parent = game.CoreGui.RPUI;
|
|
svInfTbl.SvInfMax.Parent = game.CoreGui.RPUI;
|
|
end
|
|
|
|
------------------------
|
|
--) Command Bar Area (--
|
|
------------------------
|
|
--if cmdBarVis then
|
|
local runCode=function(cde)
|
|
local cdeFn=loadstring(cde) or function() end;
|
|
getfenv(cdeFn).Player=game.Players.LocalPlayer;
|
|
getfenv(cdeFn).Character=game.Players.LocalPlayer.Character;
|
|
getfenv(cdeFn).ClientUtilities=_G.ClientUtilities;
|
|
coroutine.resume(coroutine.create(cdeFn));
|
|
end
|
|
|
|
local comBar=createTextbox("CLI_CommandBar");
|
|
comBar.Holder.Size = UDim2.new(0.8, -3, 0, 24);
|
|
comBar.Holder.Position = UDim2.new(0, 3, 0, -27);
|
|
comBar.Input.Size = UDim2.new(1, -16, 1, 16)
|
|
comBar.Input.ClearTextOnFocus=false;
|
|
comBar.Input.Text = "";
|
|
comBar.Input.FocusLost:connect(function(e)
|
|
if e then
|
|
local cde=comBar.Input.Text;
|
|
runCode(cde)
|
|
end
|
|
end)
|
|
game.GuiService:AddKey("-");
|
|
game.GuiService.KeyPressed:connect(function(k)
|
|
if k == "-" then
|
|
comBar.Input:CaptureFocus();
|
|
end
|
|
end)
|
|
comBar.Holder.Parent = game.CoreGui.RPUI;
|
|
|
|
local clrBut=createButton("CLI_ClearButton", "Clear Code");
|
|
clrBut.Size = UDim2.new(0.1, -4, 0, 24);
|
|
clrBut.Position = UDim2.new(0.8, 2, 0, -27);
|
|
clrBut.Parent = game.CoreGui.RPUI;
|
|
clrBut.MouseButton1Click:connect(function()
|
|
comBar.Input.Text="";
|
|
end)
|
|
|
|
local comBut=createButton("CLI_EnterButton", "Run Code");
|
|
comBut.Size = UDim2.new(0.1, -4, 0, 24);
|
|
comBut.Position = UDim2.new(0.9, 0, 0, -27);
|
|
comBut.Parent = game.CoreGui.RPUI;
|
|
comBut.MouseButton1Click:connect(function()
|
|
local cde=comBar.Input.Text;
|
|
runCode(cde);
|
|
end)
|
|
|
|
robloxLock(comBar.Holder);
|
|
robloxLock(clrBut);
|
|
robloxLock(comBut);
|
|
|
|
uiMenu = game.CoreGui.RPUI.UIMenu;
|
|
|
|
if cmdBarVis then -- how neat, a tweening command bar for your in-game command bar needs :P
|
|
comBar.Holder:TweenPosition(UDim2.new(0, 3, 0, 3), nil, nil, 0.5)
|
|
clrBut:TweenPosition(UDim2.new(0.8, 2, 0, 3), nil, nil, 0.5)
|
|
comBut:TweenPosition(UDim2.new(0.9, 0, 0, 3), nil, nil, 0.5)
|
|
uiMenu:TweenPosition(UDim2.new(uiMenu.Position.X.Scale, uiMenu.Position.X.Offset, uiMenu.Position.Y.Scale, 32), nil, nil, 0.5)
|
|
end
|
|
|
|
local uB = updatecb;
|
|
local lB = uB;
|
|
coroutine.resume(coroutine.create(function() while true do
|
|
uB = updatecb;
|
|
wait(0.1);
|
|
if uB ~= lB then
|
|
comBar.Holder:TweenPosition(UDim2.new(0, 3, 0, cmdBarVis and 3 or -27), cmdBarVis and nil or Enum.EasingDirection.In, nil, 0.5)
|
|
clrBut:TweenPosition(UDim2.new(0.8, 2, 0, cmdBarVis and 3 or -27), cmdBarVis and nil or Enum.EasingDirection.In, nil, 0.5)
|
|
comBut:TweenPosition(UDim2.new(0.9, 0, 0, cmdBarVis and 3 or -27), cmdBarVis and nil or Enum.EasingDirection.In, nil, 0.5)
|
|
uiMenu:TweenPosition(UDim2.new(uiMenu.Position.X.Scale, uiMenu.Position.X.Offset, uiMenu.Position.Y.Scale, cmdBarVis and 32 or 0), cmdBarVis and nil or Enum.EasingDirection.In, nil, 0.5)
|
|
wait(0.5)
|
|
end
|
|
lB = uB
|
|
end end))
|
|
--end
|
|
end);
|
|
local conn=plyr.CharacterAdded:connect(function()
|
|
game:ClearMessage();
|
|
conn:disconnect();
|
|
end)
|
|
plyr.CharacterAdded:connect(function() -- here, we make hopperbins with Lua scripts
|
|
local utilhack = dofile("rbxasset://rpui//tools//utilhack.lua");
|
|
local teletool = dofile("rbxasset://rpui//tools//teletool.lua");
|
|
if toolSpawn then
|
|
utilhack.Parent = plyr.Backpack;
|
|
teletool.Parent = plyr.Backpack;
|
|
end
|
|
end)
|
|
rep.Disconnection:connect(function(p, lc)
|
|
if not selfDisconnect then
|
|
if lc then
|
|
game:SetMessage("You have lost connection.")
|
|
else
|
|
game:SetMessage("You have been disconnected.")
|
|
end
|
|
end
|
|
end)
|
|
end)
|
|
cl.ConnectionRejected:connect(function() -- can happen many times
|
|
game:SetMessage("Connection has been rejected.")
|
|
end)
|
|
cl.ConnectionFailed:connect(function(p, code, r) -- only should happen once
|
|
game:SetMessage("Connection to server has failed. Try again. (ID=" .. code .. ")")
|
|
end)
|
|
|
|
-- the client allowed us to join games as any player we wished
|
|
-- this was a glorious feature of the RBXPri Client
|
|
-- you could even join as a simulated guest!
|
|
math.randomseed(tick()+2)
|
|
plyr=cl:PlayerConnect(userId, ip, prt, settings().Network.PreferredClientPort)
|
|
plyr.Name = nam or "Player";
|
|
if userId < 0 then
|
|
plyr:SetSuperSafeChat(guestTalk);
|
|
local uB2 = updategb;
|
|
local lB2 = uB2;
|
|
coroutine.resume(coroutine.create(function() while true do
|
|
uB2 = updategb;
|
|
wait(0.1);
|
|
if uB2 ~= lB2 then
|
|
plyr:SetSuperSafeChat(guestTalk);
|
|
end
|
|
lB2 = uB2
|
|
end end))
|
|
end
|
|
userId = (userId < 0 and 1 or userId);
|
|
plyr.CharacterAppearance = "http://www.roblox.com/asset/CharacterFetch.ashx?userId=" .. tostring(userId);
|
|
game:ClearMessage();
|
|
end
|
|
|
|
-- simulated guest lol! and it worked too
|
|
function connectAsGuest(ip, prt)
|
|
math.randomseed(tick()+2)
|
|
local n = -(math.random(1, 1000001)-1);
|
|
local nam="Guest " .. tostring((-n)%10000);
|
|
_G.ClientUtilities.Connect(nam, n, ip, prt);
|
|
end
|
|
|
|
function disconnect()
|
|
if not clientConnected then return end;
|
|
selfDisconnect=true;
|
|
clientConnected=false;
|
|
game:service("NetworkClient"):Disconnect();
|
|
game:SetMessage("You have disconnected yourself.")
|
|
|
|
game:ClearContent(true); -- keep our coregui stuffz
|
|
end
|
|
|
|
function getIP()
|
|
if not clientConnected then return end
|
|
return game:service("NetworkClient"):children()[1].MachineAddress;
|
|
end
|
|
|
|
function getPort()
|
|
if not clientConnected then return end
|
|
return game:service("NetworkClient"):children()[1].Port;
|
|
end
|
|
|
|
_G.ClientUtilities.Connect = connect;
|
|
_G.ClientUtilities.Disconnect = disconnect;
|
|
_G.ClientUtilities.GetIP = getIP;
|
|
_G.ClientUtilities.GetPort = getPort;
|
|
_G.ClientUtilities.ConnectAsGuest = connectAsGuest;
|