Create client.lua
This commit is contained in:
blocco
parent
9bb5a6e449
commit
aaa53d4c17
|
|
@ -0,0 +1,309 @@
|
|||
--[[
|
||||
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;
|
||||
Loading…
Reference in New Issue