Port some corescripts to yuescript 4 the lolz
This commit is contained in:
Lewin Kelly
parent
5a6acac25c
commit
1642c4c716
|
|
@ -1243,7 +1243,7 @@ t.CreateTrueScrollingFrame = function()
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
|
|
||||||
scrollbar.MouseButton1Down:connect(function(x, y)
|
scrollbar.MouseButton1Down:connect(function(_, y)
|
||||||
if scrollbar.Active then
|
if scrollbar.Active then
|
||||||
local scrollStamp = tick()
|
local scrollStamp = tick()
|
||||||
local mouseOffset = y - scrollbar.AbsolutePosition.y
|
local mouseOffset = y - scrollbar.AbsolutePosition.y
|
||||||
|
|
@ -1604,7 +1604,7 @@ t.CreateScrollingFrame = function(orderList, scrollStyle)
|
||||||
else
|
else
|
||||||
local children = frame:GetChildren()
|
local children = frame:GetChildren()
|
||||||
if children then
|
if children then
|
||||||
for i, child in ipairs(children) do
|
for _, child in ipairs(children) do
|
||||||
if child:IsA "GuiObject" then
|
if child:IsA "GuiObject" then
|
||||||
table.insert(guiObjects, child)
|
table.insert(guiObjects, child)
|
||||||
end
|
end
|
||||||
|
|
|
||||||
|
|
@ -0,0 +1,126 @@
|
||||||
|
local controlFrame = script.Parent:FindFirstChild("ControlFrame")
|
||||||
|
if not controlFrame then
|
||||||
|
return
|
||||||
|
end
|
||||||
|
local New
|
||||||
|
New = function(className, name, props)
|
||||||
|
if not (props ~= nil) then
|
||||||
|
props = name
|
||||||
|
name = nil
|
||||||
|
end
|
||||||
|
local obj = Instance.new(className)
|
||||||
|
if name then
|
||||||
|
obj.Name = name
|
||||||
|
end
|
||||||
|
local parent
|
||||||
|
for k, v in pairs(props) do
|
||||||
|
if type(k) == "string" then
|
||||||
|
if k == "Parent" then
|
||||||
|
parent = v
|
||||||
|
else
|
||||||
|
obj[k] = v
|
||||||
|
end
|
||||||
|
elseif type(k) == "number" and type(v) == "userdata" then
|
||||||
|
v.Parent = obj
|
||||||
|
end
|
||||||
|
end
|
||||||
|
obj.Parent = parent
|
||||||
|
return obj
|
||||||
|
end
|
||||||
|
local bottomLeftControl = controlFrame:FindFirstChild("BottomLeftControl")
|
||||||
|
local bottomRightControl = controlFrame:FindFirstChild("BottomRightControl")
|
||||||
|
local frameTip = New("TextLabel", "ToolTip", {
|
||||||
|
Text = "",
|
||||||
|
Font = Enum.Font.ArialBold,
|
||||||
|
FontSize = Enum.FontSize.Size12,
|
||||||
|
TextColor3 = Color3.new(1, 1, 1),
|
||||||
|
BorderSizePixel = 0,
|
||||||
|
ZIndex = 10,
|
||||||
|
Size = UDim2.new(2, 0, 1, 0),
|
||||||
|
Position = UDim2.new(1, 0, 0, 0),
|
||||||
|
BackgroundColor3 = Color3.new(0, 0, 0),
|
||||||
|
BackgroundTransparency = 1,
|
||||||
|
TextTransparency = 1,
|
||||||
|
TextWrap = true,
|
||||||
|
New("BoolValue", "inside", {
|
||||||
|
Value = false
|
||||||
|
})
|
||||||
|
})
|
||||||
|
local setUpListeners
|
||||||
|
setUpListeners = function(frameToListen)
|
||||||
|
local fadeSpeed = 0.1
|
||||||
|
frameToListen.Parent.MouseEnter:connect(function()
|
||||||
|
if frameToListen:FindFirstChild("inside") then
|
||||||
|
frameToListen.inside.Value = true
|
||||||
|
wait(1.2)
|
||||||
|
if frameToListen.inside.Value then
|
||||||
|
while frameToListen.inside.Value and frameToListen.BackgroundTransparency > 0 do
|
||||||
|
frameToListen.BackgroundTransparency = frameToListen.BackgroundTransparency - fadeSpeed
|
||||||
|
frameToListen.TextTransparency = frameToListen.TextTransparency - fadeSpeed
|
||||||
|
wait()
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end)
|
||||||
|
local killTip
|
||||||
|
killTip = function(killFrame)
|
||||||
|
killFrame.inside.Value = false
|
||||||
|
killFrame.BackgroundTransparency = 1
|
||||||
|
killFrame.TextTransparency = 1
|
||||||
|
end
|
||||||
|
frameToListen.Parent.MouseLeave:connect(function()
|
||||||
|
return killTip(frameToListen)
|
||||||
|
end)
|
||||||
|
return frameToListen.Parent.MouseButton1Click:connect(function()
|
||||||
|
return killTip(frameToListen)
|
||||||
|
end)
|
||||||
|
end
|
||||||
|
local createSettingsButtonTip
|
||||||
|
createSettingsButtonTip = function(parent)
|
||||||
|
if not (parent ~= nil) then
|
||||||
|
parent = bottomLeftControl:FindFirstChild("SettingsButton")
|
||||||
|
end
|
||||||
|
local toolTip = frameTip:clone()
|
||||||
|
toolTip.RobloxLocked = true
|
||||||
|
toolTip.Text = "Settings/Leave Game"
|
||||||
|
toolTip.Position = UDim2.new(0, 0, 0, -18)
|
||||||
|
toolTip.Size = UDim2.new(0, 120, 0, 20)
|
||||||
|
toolTip.Parent = parent
|
||||||
|
setUpListeners(toolTip)
|
||||||
|
return toolTip
|
||||||
|
end
|
||||||
|
wait(5)
|
||||||
|
local bottomLeftChildren = bottomLeftControl:GetChildren()
|
||||||
|
for i = 1, #bottomLeftChildren do
|
||||||
|
if bottomLeftChildren[i].Name == "Exit" then
|
||||||
|
do
|
||||||
|
local exitTip = frameTip:clone()
|
||||||
|
exitTip.RobloxLocked = true
|
||||||
|
exitTip.Text = "Leave Place"
|
||||||
|
exitTip.Position = UDim2.new(0, 0, -1, 0)
|
||||||
|
exitTip.Size = UDim2.new(1, 0, 1, 0)
|
||||||
|
exitTip.Parent = bottomLeftChildren[i]
|
||||||
|
setUpListeners(exitTip)
|
||||||
|
end
|
||||||
|
elseif bottomLeftChildren[i].Name == "SettingsButton" then
|
||||||
|
createSettingsButtonTip(bottomLeftChildren[i])
|
||||||
|
end
|
||||||
|
end
|
||||||
|
local bottomRightChildren = bottomRightControl:GetChildren()
|
||||||
|
for i = 1, #bottomRightChildren do
|
||||||
|
if (bottomRightChildren[i].Name:find("Camera") ~= nil) then
|
||||||
|
do
|
||||||
|
local cameraTip = frameTip:clone()
|
||||||
|
cameraTip.RobloxLocked = true
|
||||||
|
cameraTip.Text = "Camera View"
|
||||||
|
if bottomRightChildren[i].Name:find("Zoom") then
|
||||||
|
cameraTip.Position = UDim2.new(-1, 0, -1.5)
|
||||||
|
else
|
||||||
|
cameraTip.Position = UDim2.new(0, 0, -1.5, 0)
|
||||||
|
end
|
||||||
|
cameraTip.Size = UDim2.new(2, 0, 1.25, 0)
|
||||||
|
cameraTip.Parent = bottomRightChildren[i]
|
||||||
|
setUpListeners(cameraTip)
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
|
@ -0,0 +1,122 @@
|
||||||
|
controlFrame = script.Parent\FindFirstChild "ControlFrame"
|
||||||
|
|
||||||
|
return if not controlFrame
|
||||||
|
|
||||||
|
-- Heliodex's basic New function (basically a simplified version of melt)
|
||||||
|
New = (className, name, props) ->
|
||||||
|
if not props? -- no name was provided
|
||||||
|
props = name
|
||||||
|
name = nil
|
||||||
|
|
||||||
|
obj = Instance.new className
|
||||||
|
obj.Name = name if name
|
||||||
|
local parent
|
||||||
|
|
||||||
|
for k, v in pairs props
|
||||||
|
if type(k) == "string" then
|
||||||
|
if k == "Parent"
|
||||||
|
parent = v
|
||||||
|
else
|
||||||
|
obj[k] = v
|
||||||
|
|
||||||
|
elseif type(k) == "number" and type(v) == "userdata"
|
||||||
|
v.Parent = obj
|
||||||
|
|
||||||
|
obj.Parent = parent
|
||||||
|
obj
|
||||||
|
--
|
||||||
|
|
||||||
|
bottomLeftControl = controlFrame\FindFirstChild "BottomLeftControl"
|
||||||
|
bottomRightControl = controlFrame\FindFirstChild "BottomRightControl"
|
||||||
|
|
||||||
|
frameTip = New "TextLabel", "ToolTip"
|
||||||
|
Text: ""
|
||||||
|
Font: Enum.Font.ArialBold
|
||||||
|
FontSize: Enum.FontSize.Size12
|
||||||
|
TextColor3: Color3.new 1, 1, 1
|
||||||
|
BorderSizePixel: 0
|
||||||
|
ZIndex: 10
|
||||||
|
Size: UDim2.new 2, 0, 1, 0
|
||||||
|
Position: UDim2.new 1, 0, 0, 0
|
||||||
|
BackgroundColor3: Color3.new 0, 0, 0
|
||||||
|
BackgroundTransparency: 1
|
||||||
|
TextTransparency: 1
|
||||||
|
TextWrap: true
|
||||||
|
|
||||||
|
* New "BoolValue", "inside"
|
||||||
|
Value: false
|
||||||
|
|
||||||
|
setUpListeners = (frameToListen) ->
|
||||||
|
fadeSpeed = 0.1
|
||||||
|
frameToListen.Parent.MouseEnter\connect ->
|
||||||
|
if frameToListen\FindFirstChild "inside"
|
||||||
|
frameToListen.inside.Value = true
|
||||||
|
wait 1.2
|
||||||
|
if frameToListen.inside.Value
|
||||||
|
while frameToListen.inside.Value and frameToListen.BackgroundTransparency > 0
|
||||||
|
frameToListen.BackgroundTransparency -= fadeSpeed
|
||||||
|
frameToListen.TextTransparency -= fadeSpeed
|
||||||
|
wait!
|
||||||
|
|
||||||
|
killTip = (killFrame) ->
|
||||||
|
killFrame.inside.Value = false
|
||||||
|
killFrame.BackgroundTransparency = 1
|
||||||
|
killFrame.TextTransparency = 1
|
||||||
|
|
||||||
|
frameToListen.Parent.MouseLeave\connect ->
|
||||||
|
killTip frameToListen
|
||||||
|
|
||||||
|
frameToListen.Parent.MouseButton1Click\connect ->
|
||||||
|
killTip frameToListen
|
||||||
|
|
||||||
|
createSettingsButtonTip = (parent) ->
|
||||||
|
if not parent?
|
||||||
|
parent = bottomLeftControl\FindFirstChild "SettingsButton"
|
||||||
|
|
||||||
|
|
||||||
|
with toolTip = frameTip\clone!
|
||||||
|
.RobloxLocked = true
|
||||||
|
.Text = "Settings/Leave Game"
|
||||||
|
.Position = UDim2.new 0, 0, 0, -18
|
||||||
|
.Size = UDim2.new 0, 120, 0, 20
|
||||||
|
.Parent = parent
|
||||||
|
setUpListeners toolTip
|
||||||
|
|
||||||
|
wait 5 -- make sure we are loaded in, won't need tool tips for first 5 seconds anyway
|
||||||
|
|
||||||
|
---------------- set up Bottom Left Tool Tips -------------------------
|
||||||
|
|
||||||
|
bottomLeftChildren = bottomLeftControl\GetChildren!
|
||||||
|
|
||||||
|
for i = 1, #bottomLeftChildren
|
||||||
|
if bottomLeftChildren[i].Name == "Exit"
|
||||||
|
|
||||||
|
with exitTip = frameTip\clone!
|
||||||
|
.RobloxLocked = true
|
||||||
|
.Text = "Leave Place"
|
||||||
|
.Position = UDim2.new 0, 0, -1, 0
|
||||||
|
.Size = UDim2.new 1, 0, 1, 0
|
||||||
|
.Parent = bottomLeftChildren[i]
|
||||||
|
setUpListeners exitTip
|
||||||
|
|
||||||
|
elseif bottomLeftChildren[i].Name == "SettingsButton"
|
||||||
|
createSettingsButtonTip bottomLeftChildren[i]
|
||||||
|
|
||||||
|
---------------- set up Bottom Right Tool Tips -------------------------
|
||||||
|
|
||||||
|
bottomRightChildren = bottomRightControl\GetChildren!
|
||||||
|
|
||||||
|
for i = 1, #bottomRightChildren
|
||||||
|
if bottomRightChildren[i].Name\find("Camera")?
|
||||||
|
with cameraTip = frameTip\clone!
|
||||||
|
.RobloxLocked = true
|
||||||
|
.Text = "Camera View"
|
||||||
|
|
||||||
|
.Position = if bottomRightChildren[i].Name\find "Zoom"
|
||||||
|
UDim2.new -1, 0, -1.5
|
||||||
|
else
|
||||||
|
UDim2.new 0, 0, -1.5, 0
|
||||||
|
|
||||||
|
.Size = UDim2.new 2, 0, 1.25, 0
|
||||||
|
.Parent = bottomRightChildren[i]
|
||||||
|
setUpListeners cameraTip
|
||||||
|
|
@ -0,0 +1,68 @@
|
||||||
|
local scriptContext = game:GetService("ScriptContext")
|
||||||
|
local touchEnabled = false
|
||||||
|
pcall(function()
|
||||||
|
touchEnabled = game:GetService("UserInputService").TouchEnabled
|
||||||
|
end)
|
||||||
|
scriptContext:AddCoreScript(60595695, scriptContext, "/Libraries/LibraryRegistration/LibraryRegistration")
|
||||||
|
local waitForChild
|
||||||
|
waitForChild = function(instance, name)
|
||||||
|
while not instance:FindFirstChild(name) do
|
||||||
|
instance.ChildAdded:wait()
|
||||||
|
end
|
||||||
|
end
|
||||||
|
scriptContext = game:GetService("ScriptContext")
|
||||||
|
scriptContext:AddCoreScript(59002209, scriptContext, "CoreScripts/Sections")
|
||||||
|
waitForChild(game:GetService("CoreGui"), "RobloxGui")
|
||||||
|
local screenGui = game:GetService("CoreGui"):FindFirstChild("RobloxGui")
|
||||||
|
if not touchEnabled then
|
||||||
|
scriptContext:AddCoreScript(36868950, screenGui, "CoreScripts/ToolTip")
|
||||||
|
scriptContext:AddCoreScript(46295863, screenGui, "CoreScripts/Settings")
|
||||||
|
else
|
||||||
|
scriptContext:AddCoreScript(153556783, screenGui, "CoreScripts/TouchControls")
|
||||||
|
end
|
||||||
|
scriptContext:AddCoreScript(39250920, screenGui, "CoreScripts/MainBotChatScript")
|
||||||
|
scriptContext:AddCoreScript(48488451, screenGui, "CoreScripts/PopupScript")
|
||||||
|
scriptContext:AddCoreScript(48488398, screenGui, "CoreScripts/NotificationScript")
|
||||||
|
scriptContext:AddCoreScript(97188756, screenGui, "CoreScripts/ChatScript")
|
||||||
|
scriptContext:AddCoreScript(107893730, screenGui, "CoreScripts/PurchasePromptScript")
|
||||||
|
if not touchEnabled or screenGui.AbsoluteSize.Y > 600 then
|
||||||
|
scriptContext:AddCoreScript(48488235, screenGui, "CoreScripts/PlayerListScript")
|
||||||
|
else
|
||||||
|
delay(5, function()
|
||||||
|
if screenGui.AbsoluteSize.Y >= 600 then
|
||||||
|
return scriptContext:AddCoreScript(48488235, screenGui, "CoreScripts/PlayerListScript")
|
||||||
|
end
|
||||||
|
end)
|
||||||
|
end
|
||||||
|
if game.CoreGui.Version >= 3 and game.PlaceId ~= 130815926 then
|
||||||
|
scriptContext:AddCoreScript(53878047, screenGui, "CoreScripts/BackpackScripts/BackpackBuilder")
|
||||||
|
waitForChild(screenGui, "CurrentLoadout")
|
||||||
|
waitForChild(screenGui, "Backpack")
|
||||||
|
local Backpack = screenGui.Backpack
|
||||||
|
if game.CoreGui.Version >= 7 then
|
||||||
|
scriptContext:AddCoreScript(89449093, Backpack, "CoreScripts/BackpackScripts/BackpackManager")
|
||||||
|
end
|
||||||
|
scriptContext:AddCoreScript(89449008, Backpack, "CoreScripts/BackpackScripts/BackpackGear")
|
||||||
|
scriptContext:AddCoreScript(53878057, screenGui.CurrentLoadout, "CoreScripts/BackpackScripts/LoadoutScript")
|
||||||
|
if game.CoreGui.Version >= 8 then
|
||||||
|
scriptContext:AddCoreScript(-1, Backpack, "CoreScripts/BackpackScripts/BackpackWardrobe")
|
||||||
|
end
|
||||||
|
end
|
||||||
|
local IsPersonalServer = not not game.Workspace:FindFirstChild("PSVariable")
|
||||||
|
if IsPersonalServer then
|
||||||
|
scriptContext:AddCoreScript(64164692, game.Players.LocalPlayer, "BuildToolManager")
|
||||||
|
end
|
||||||
|
game.Workspace.ChildAdded:connect(function(nchild)
|
||||||
|
if nchild.Name == "PSVariable" and nchild:IsA("BoolValue") then
|
||||||
|
IsPersonalServer = true
|
||||||
|
return scriptContext:AddCoreScript(64164692, game.Players.LocalPlayer, "BuildToolManager")
|
||||||
|
end
|
||||||
|
end)
|
||||||
|
if touchEnabled then
|
||||||
|
scriptContext:AddCoreScript(152908679, screenGui, "CoreScripts/ContextActionTouch")
|
||||||
|
waitForChild(screenGui, "ControlFrame")
|
||||||
|
waitForChild(screenGui.ControlFrame, "BottomLeftControl")
|
||||||
|
screenGui.ControlFrame.BottomLeftControl.Visible = false
|
||||||
|
waitForChild(screenGui.ControlFrame, "TopLeftControl")
|
||||||
|
screenGui.ControlFrame.TopLeftControl.Visible = false
|
||||||
|
end
|
||||||
|
|
@ -0,0 +1,98 @@
|
||||||
|
-- Creates all neccessary scripts for the gui on initial load, everything except build tools
|
||||||
|
-- Created by Ben T. 10/29/10
|
||||||
|
-- Please note that these are loaded in a specific order to diminish errors/perceived load time by user
|
||||||
|
|
||||||
|
scriptContext = game\GetService "ScriptContext"
|
||||||
|
touchEnabled = false
|
||||||
|
|
||||||
|
try
|
||||||
|
touchEnabled = game\GetService("UserInputService").TouchEnabled
|
||||||
|
|
||||||
|
-- library registration
|
||||||
|
scriptContext\AddCoreScript 60595695, scriptContext, "/Libraries/LibraryRegistration/LibraryRegistration"
|
||||||
|
|
||||||
|
waitForChild = (instance, name) ->
|
||||||
|
while not instance\FindFirstChild name
|
||||||
|
instance.ChildAdded\wait!
|
||||||
|
|
||||||
|
-- waitForProperty = (instance, property) ->
|
||||||
|
-- while not instance[property]
|
||||||
|
-- instance.Changed\wait!
|
||||||
|
|
||||||
|
-- Responsible for tracking logging items
|
||||||
|
scriptContext = game\GetService "ScriptContext"
|
||||||
|
scriptContext\AddCoreScript 59002209, scriptContext, "CoreScripts/Sections"
|
||||||
|
|
||||||
|
waitForChild game\GetService("CoreGui"), "RobloxGui"
|
||||||
|
screenGui = game\GetService("CoreGui")\FindFirstChild "RobloxGui"
|
||||||
|
|
||||||
|
if not touchEnabled
|
||||||
|
-- ToolTipper (creates tool tips for gui)
|
||||||
|
scriptContext\AddCoreScript 36868950, screenGui, "CoreScripts/ToolTip"
|
||||||
|
-- SettingsScript
|
||||||
|
scriptContext\AddCoreScript 46295863, screenGui, "CoreScripts/Settings"
|
||||||
|
else
|
||||||
|
scriptContext\AddCoreScript 153556783, screenGui, "CoreScripts/TouchControls"
|
||||||
|
|
||||||
|
-- MainBotChatScript
|
||||||
|
scriptContext\AddCoreScript 39250920, screenGui, "CoreScripts/MainBotChatScript"
|
||||||
|
|
||||||
|
-- Popup Script
|
||||||
|
scriptContext\AddCoreScript 48488451, screenGui, "CoreScripts/PopupScript"
|
||||||
|
-- Friend Notification Script (probably can use this script to expand out to other notifications)
|
||||||
|
scriptContext\AddCoreScript 48488398, screenGui, "CoreScripts/NotificationScript"
|
||||||
|
-- Chat script
|
||||||
|
scriptContext\AddCoreScript 97188756, screenGui, "CoreScripts/ChatScript"
|
||||||
|
-- Purchase Prompt Script
|
||||||
|
scriptContext\AddCoreScript 107893730, screenGui, "CoreScripts/PurchasePromptScript"
|
||||||
|
|
||||||
|
if not touchEnabled or screenGui.AbsoluteSize.Y > 600
|
||||||
|
-- New Player List
|
||||||
|
scriptContext\AddCoreScript 48488235, screenGui, "CoreScripts/PlayerListScript"
|
||||||
|
else
|
||||||
|
delay 5, ->
|
||||||
|
if screenGui.AbsoluteSize.Y >= 600
|
||||||
|
-- New Player List
|
||||||
|
scriptContext\AddCoreScript 48488235, screenGui, "CoreScripts/PlayerListScript"
|
||||||
|
|
||||||
|
if game.CoreGui.Version >= 3 and game.PlaceId ~= 130815926 --todo: remove placeid hack for halloween
|
||||||
|
-- Backpack Builder, creates most of the backpack gui
|
||||||
|
scriptContext\AddCoreScript 53878047, screenGui, "CoreScripts/BackpackScripts/BackpackBuilder"
|
||||||
|
|
||||||
|
waitForChild screenGui, "CurrentLoadout"
|
||||||
|
waitForChild screenGui, "Backpack"
|
||||||
|
Backpack = screenGui.Backpack
|
||||||
|
|
||||||
|
-- Manager handles all big backpack state changes, other scripts subscribe to this and do things accordingly
|
||||||
|
if game.CoreGui.Version >= 7
|
||||||
|
scriptContext\AddCoreScript 89449093, Backpack, "CoreScripts/BackpackScripts/BackpackManager"
|
||||||
|
|
||||||
|
|
||||||
|
-- Backpack Gear (handles all backpack gear tab stuff)
|
||||||
|
scriptContext\AddCoreScript 89449008, Backpack, "CoreScripts/BackpackScripts/BackpackGear"
|
||||||
|
-- Loadout Script, used for gear hotkeys
|
||||||
|
scriptContext\AddCoreScript 53878057, screenGui.CurrentLoadout, "CoreScripts/BackpackScripts/LoadoutScript"
|
||||||
|
if game.CoreGui.Version >= 8
|
||||||
|
-- Wardrobe script handles all character dressing operations
|
||||||
|
scriptContext\AddCoreScript -1, Backpack, "CoreScripts/BackpackScripts/BackpackWardrobe"
|
||||||
|
|
||||||
|
IsPersonalServer = not not game.Workspace\FindFirstChild "PSVariable"
|
||||||
|
|
||||||
|
if IsPersonalServer
|
||||||
|
scriptContext\AddCoreScript 64164692, game.Players.LocalPlayer, "BuildToolManager"
|
||||||
|
|
||||||
|
game.Workspace.ChildAdded\connect (nchild) ->
|
||||||
|
if nchild.Name == "PSVariable" and nchild\IsA "BoolValue"
|
||||||
|
IsPersonalServer = true
|
||||||
|
scriptContext\AddCoreScript 64164692, game.Players.LocalPlayer, "BuildToolManager"
|
||||||
|
|
||||||
|
if touchEnabled -- touch devices don't use same control frame
|
||||||
|
-- only used for touch device button generation
|
||||||
|
scriptContext\AddCoreScript 152908679, screenGui, "CoreScripts/ContextActionTouch"
|
||||||
|
|
||||||
|
waitForChild screenGui, "ControlFrame"
|
||||||
|
waitForChild screenGui.ControlFrame, "BottomLeftControl"
|
||||||
|
screenGui.ControlFrame.BottomLeftControl.Visible = false
|
||||||
|
|
||||||
|
waitForChild screenGui.ControlFrame, "TopLeftControl"
|
||||||
|
screenGui.ControlFrame.TopLeftControl.Visible = false
|
||||||
|
|
@ -0,0 +1,230 @@
|
||||||
|
local New
|
||||||
|
New = function(className, name, props)
|
||||||
|
if not (props ~= nil) then
|
||||||
|
props = name
|
||||||
|
name = nil
|
||||||
|
end
|
||||||
|
local obj = Instance.new(className)
|
||||||
|
if name then
|
||||||
|
obj.Name = name
|
||||||
|
end
|
||||||
|
local parent
|
||||||
|
for k, v in pairs(props) do
|
||||||
|
if type(k) == "string" then
|
||||||
|
if k == "Parent" then
|
||||||
|
parent = v
|
||||||
|
else
|
||||||
|
obj[k] = v
|
||||||
|
end
|
||||||
|
elseif type(k) == "number" and type(v) == "userdata" then
|
||||||
|
v.Parent = obj
|
||||||
|
end
|
||||||
|
end
|
||||||
|
obj.Parent = parent
|
||||||
|
return obj
|
||||||
|
end
|
||||||
|
local damageGuiWidth = 5.0
|
||||||
|
local damageGuiHeight = 5.0
|
||||||
|
local waitForChild
|
||||||
|
waitForChild = function(parent, childName)
|
||||||
|
local child = parent:findFirstChild(childName)
|
||||||
|
if child then
|
||||||
|
return child
|
||||||
|
end
|
||||||
|
while true do
|
||||||
|
child = parent.ChildAdded:wait()
|
||||||
|
if child.Name == childName then
|
||||||
|
return child
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
local Figure = script.Parent
|
||||||
|
local Humanoid = waitForChild(Figure, "Humanoid")
|
||||||
|
local Torso = waitForChild(Figure, "Torso")
|
||||||
|
local config = Figure:FindFirstChild("PlayerStats")
|
||||||
|
local inCharTag = Instance.new("BoolValue")
|
||||||
|
inCharTag.Name = "InCharTag"
|
||||||
|
local hider = Instance.new("BoolValue")
|
||||||
|
hider.Name = "RobloxBuildTool"
|
||||||
|
if not (config ~= nil) then
|
||||||
|
config = Instance.new("Configuration")
|
||||||
|
config.Parent = Figure
|
||||||
|
config.Name = "PlayerStats"
|
||||||
|
end
|
||||||
|
local myHealth = config:FindFirstChild("MaxHealth")
|
||||||
|
if not (myHealth ~= nil) then
|
||||||
|
myHealth = Instance.new("NumberValue")
|
||||||
|
myHealth.Parent = config
|
||||||
|
myHealth.Value = 100
|
||||||
|
myHealth.Name = "MaxHealth"
|
||||||
|
end
|
||||||
|
Humanoid.MaxHealth = myHealth.Value
|
||||||
|
Humanoid.Health = myHealth.Value
|
||||||
|
local onMaxHealthChange
|
||||||
|
onMaxHealthChange = function()
|
||||||
|
Humanoid.MaxHealth = myHealth.Value
|
||||||
|
Humanoid.Health = myHealth.Value
|
||||||
|
end
|
||||||
|
myHealth.Changed:connect(onMaxHealthChange)
|
||||||
|
local vPlayer = game.Players:GetPlayerFromCharacter(script.Parent)
|
||||||
|
local dotGui = vPlayer.PlayerGui:FindFirstChild("DamageOverTimeGui")
|
||||||
|
if not (dotGui ~= nil) then
|
||||||
|
dotGui = New("BillboardGui", "DamageOverTimeGui", {
|
||||||
|
Parent = vPlayer.PlayerGui,
|
||||||
|
Adornee = script.Parent:FindFirstChild("Head"),
|
||||||
|
Active = true,
|
||||||
|
size = UDim2.new(damageGuiWidth, 0, damageGuiHeight, 0.0),
|
||||||
|
StudsOffset = Vector3.new(0, 2.0, 0.0)
|
||||||
|
})
|
||||||
|
end
|
||||||
|
print("newHealth declarations finished")
|
||||||
|
local billboardHealthChange
|
||||||
|
billboardHealthChange = function(dmg)
|
||||||
|
local textLabel = New("TextLabel", {
|
||||||
|
Text = tostring(dmg),
|
||||||
|
TextColor3 = (function()
|
||||||
|
if dmg > 0 then
|
||||||
|
return Color3.new(0, 1, 0)
|
||||||
|
else
|
||||||
|
return Color3.new(1, 0, 1)
|
||||||
|
end
|
||||||
|
end)(),
|
||||||
|
size = UDim2.new(1, 0, 1, 0.0),
|
||||||
|
Active = true,
|
||||||
|
FontSize = 6,
|
||||||
|
BackgroundTransparency = 1,
|
||||||
|
Parent = dotGui
|
||||||
|
})
|
||||||
|
for t = 1, 10 do
|
||||||
|
wait(0.1)
|
||||||
|
textLabel.TextTransparency = t / 10
|
||||||
|
textLabel.Position = UDim2.new(0, 0, 0, -t * 5)
|
||||||
|
textLabel.FontSize = 6 - t * 0.6
|
||||||
|
end
|
||||||
|
return textLabel:remove()
|
||||||
|
end
|
||||||
|
local setMaxHealth
|
||||||
|
setMaxHealth = function()
|
||||||
|
if myHealth.Value >= 0 then
|
||||||
|
Humanoid.MaxHealth = myHealth.Value
|
||||||
|
print(Humanoid.MaxHealth)
|
||||||
|
if Humanoid.Health > Humanoid.MaxHealth then
|
||||||
|
Humanoid.Health = Humanoid.MaxHealth
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
myHealth.Changed:connect(setMaxHealth)
|
||||||
|
local fireEffect = New("Fire", "FireEffect", {
|
||||||
|
Heat = 0.1,
|
||||||
|
Size = 3.0,
|
||||||
|
Enabled = false
|
||||||
|
})
|
||||||
|
while true do
|
||||||
|
local s = wait(1)
|
||||||
|
local health = Humanoid.Health
|
||||||
|
if health > 0 then
|
||||||
|
local delta = 0
|
||||||
|
if config then
|
||||||
|
local regen = config:FindFirstChild("Regen")
|
||||||
|
local poison = config:FindFirstChild("Poison")
|
||||||
|
local ice = config:FindFirstChild("Ice")
|
||||||
|
local fire = config:FindFirstChild("Fire")
|
||||||
|
local stun = config:FindFirstChild("Stun")
|
||||||
|
if regen then
|
||||||
|
delta = delta + regen.Value.X
|
||||||
|
if regen.Value.Y >= 0 then
|
||||||
|
regen.Value = Vector3.new(regen.Value.X + regen.Value.Z, regen.Value.Y - s, regen.Value.Z)
|
||||||
|
elseif regen.Value.Y == -1 then
|
||||||
|
regen.Value = Vector3.new(regen.Value.X + regen.Value.Z, -1, regen.Value.Z)
|
||||||
|
else
|
||||||
|
regen:remove()
|
||||||
|
end
|
||||||
|
end
|
||||||
|
if poison then
|
||||||
|
delta = delta - poison.Value.X
|
||||||
|
if poison.Value.Y >= 0 then
|
||||||
|
poison.Value = Vector3.new(poison.Value.X + poison.Value.Z, poison.Value.Y - s, poison.Value.Z)
|
||||||
|
elseif poison.Value.Y == -1 then
|
||||||
|
poison.Value = Vector3.new(poison.Value.X + poison.Value.Z, -1, poison.Value.Z)
|
||||||
|
else
|
||||||
|
poison:remove()
|
||||||
|
end
|
||||||
|
end
|
||||||
|
if ice then
|
||||||
|
delta = delta - ice.Value.X
|
||||||
|
if ice.Value.Y >= 0 then
|
||||||
|
ice.Value = Vector3.new(ice.Value.X, ice.Value.Y - s, ice.Value.Z)
|
||||||
|
else
|
||||||
|
ice:remove()
|
||||||
|
end
|
||||||
|
end
|
||||||
|
if fire then
|
||||||
|
fireEffect.Enabled = true
|
||||||
|
fireEffect.Parent = Figure.Torso
|
||||||
|
delta = delta - fire.Value.X
|
||||||
|
if fire.Value.Y >= 0 then
|
||||||
|
fire.Value = Vector3.new(fire.Value.X, fire.Value.Y - s, fire.Value.Z)
|
||||||
|
else
|
||||||
|
fire:remove()
|
||||||
|
fireEffect.Enabled = false
|
||||||
|
fireEffect.Parent = nil
|
||||||
|
end
|
||||||
|
end
|
||||||
|
if stun then
|
||||||
|
local backpackTools
|
||||||
|
if stun.Value > 0 then
|
||||||
|
Torso.Anchored = true
|
||||||
|
local currentChildren = script.Parent:GetChildren()
|
||||||
|
backpackTools = game.Players:GetPlayerFromCharacter(script.Parent).Backpack:GetChildren()
|
||||||
|
for i = 1, #currentChildren do
|
||||||
|
if currentChildren[i].className == "Tool" then
|
||||||
|
inCharTag:Clone().Parent = currentChildren[i]
|
||||||
|
print(backpackTools)
|
||||||
|
table.insert(backpackTools, currentChildren[i])
|
||||||
|
end
|
||||||
|
end
|
||||||
|
for i = 1, #backpackTools do
|
||||||
|
if not (backpackTools[i]:FindFirstChild("RobloxBuildTool") ~= nil) then
|
||||||
|
hider:Clone().Parent = backpackTools[i]
|
||||||
|
backpackTools[i].Parent = game.Lighting
|
||||||
|
end
|
||||||
|
end
|
||||||
|
wait(0.2)
|
||||||
|
for i = 1, #backpackTools do
|
||||||
|
backpackTools[i].Parent = game.Players:GetPlayerFromCharacter(script.Parent).Backpack
|
||||||
|
end
|
||||||
|
stun.Value = stun.Value - s
|
||||||
|
else
|
||||||
|
Torso.Anchored = false
|
||||||
|
for i = 1, #backpackTools do
|
||||||
|
local rbTool = backpackTools[i]:FindFirstChild("RobloxBuildTool")
|
||||||
|
if rbTool then
|
||||||
|
rbTool:Remove()
|
||||||
|
end
|
||||||
|
backpackTools[i].Parent = game.Lighting
|
||||||
|
end
|
||||||
|
wait(0.2)
|
||||||
|
for i = 1, #backpackTools do
|
||||||
|
local wasInChar = backpackTools[i]:FindFirstChild("InCharTag")
|
||||||
|
if wasInChar then
|
||||||
|
wasInChar:Remove()
|
||||||
|
backpackTools[i].Parent = script.Parent
|
||||||
|
else
|
||||||
|
backpackTools[i].Parent = game.Players:GetPlayerFromCharacter(script.Parent).Backpack
|
||||||
|
end
|
||||||
|
end
|
||||||
|
stun:Remove()
|
||||||
|
end
|
||||||
|
end
|
||||||
|
if delta ~= 0 then
|
||||||
|
coroutine.resume(coroutine.create(billboardHealthChange), delta)
|
||||||
|
end
|
||||||
|
end
|
||||||
|
health = Humanoid.Health + delta * s
|
||||||
|
if health * 1.01 < Humanoid.MaxHealth then
|
||||||
|
Humanoid.Health = health
|
||||||
|
elseif delta > 0 then
|
||||||
|
Humanoid.Health = Humanoid.MaxHealth
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
|
@ -0,0 +1,231 @@
|
||||||
|
-- Heliodex's basic New function (basically a simplified version of melt)
|
||||||
|
New = (className, name, props) ->
|
||||||
|
if not props? -- no name was provided
|
||||||
|
props = name
|
||||||
|
name = nil
|
||||||
|
|
||||||
|
obj = Instance.new className
|
||||||
|
obj.Name = name if name
|
||||||
|
local parent
|
||||||
|
|
||||||
|
for k, v in pairs props
|
||||||
|
if type(k) == "string" then
|
||||||
|
if k == "Parent"
|
||||||
|
parent = v
|
||||||
|
else
|
||||||
|
obj[k] = v
|
||||||
|
|
||||||
|
elseif type(k) == "number" and type(v) == "userdata"
|
||||||
|
v.Parent = obj
|
||||||
|
|
||||||
|
obj.Parent = parent
|
||||||
|
obj
|
||||||
|
--
|
||||||
|
|
||||||
|
damageGuiWidth = 5.0
|
||||||
|
damageGuiHeight = 5.0
|
||||||
|
|
||||||
|
waitForChild = (parent, childName) ->
|
||||||
|
child = parent\findFirstChild childName
|
||||||
|
if child
|
||||||
|
return child
|
||||||
|
|
||||||
|
while true
|
||||||
|
child = parent.ChildAdded\wait!
|
||||||
|
if child.Name == childName
|
||||||
|
return child
|
||||||
|
|
||||||
|
-- declarations
|
||||||
|
Figure = script.Parent
|
||||||
|
Humanoid = waitForChild Figure, "Humanoid"
|
||||||
|
Torso = waitForChild Figure, "Torso"
|
||||||
|
|
||||||
|
config = Figure\FindFirstChild "PlayerStats"
|
||||||
|
|
||||||
|
inCharTag = Instance.new "BoolValue"
|
||||||
|
inCharTag.Name = "InCharTag"
|
||||||
|
|
||||||
|
hider = Instance.new "BoolValue"
|
||||||
|
hider.Name = "RobloxBuildTool"
|
||||||
|
|
||||||
|
if not config?
|
||||||
|
config = Instance.new "Configuration"
|
||||||
|
config.Parent = Figure
|
||||||
|
config.Name = "PlayerStats"
|
||||||
|
|
||||||
|
myHealth = config\FindFirstChild "MaxHealth"
|
||||||
|
if not myHealth?
|
||||||
|
myHealth = Instance.new "NumberValue"
|
||||||
|
myHealth.Parent = config
|
||||||
|
myHealth.Value = 100
|
||||||
|
myHealth.Name = "MaxHealth"
|
||||||
|
|
||||||
|
Humanoid.MaxHealth = myHealth.Value
|
||||||
|
Humanoid.Health = myHealth.Value
|
||||||
|
|
||||||
|
onMaxHealthChange = ->
|
||||||
|
Humanoid.MaxHealth = myHealth.Value
|
||||||
|
Humanoid.Health = myHealth.Value
|
||||||
|
|
||||||
|
myHealth.Changed\connect onMaxHealthChange
|
||||||
|
|
||||||
|
--Humanoid.MaxHealth = myHealth.Value
|
||||||
|
--Humanoid.Health = Humanoid.MaxHealth
|
||||||
|
|
||||||
|
vPlayer = game.Players\GetPlayerFromCharacter script.Parent
|
||||||
|
dotGui = vPlayer.PlayerGui\FindFirstChild "DamageOverTimeGui"
|
||||||
|
if not dotGui?
|
||||||
|
dotGui = New "BillboardGui", "DamageOverTimeGui"
|
||||||
|
Parent: vPlayer.PlayerGui
|
||||||
|
Adornee: script.Parent\FindFirstChild "Head"
|
||||||
|
Active: true
|
||||||
|
size: UDim2.new damageGuiWidth, 0, damageGuiHeight, 0.0
|
||||||
|
StudsOffset: Vector3.new 0, 2.0, 0.0
|
||||||
|
|
||||||
|
|
||||||
|
print "newHealth declarations finished"
|
||||||
|
|
||||||
|
billboardHealthChange = (dmg) ->
|
||||||
|
textLabel = New "TextLabel"
|
||||||
|
Text: tostring dmg
|
||||||
|
TextColor3: if dmg > 0
|
||||||
|
Color3.new 0, 1, 0
|
||||||
|
else
|
||||||
|
Color3.new 1, 0, 1
|
||||||
|
size: UDim2.new 1, 0, 1, 0.0
|
||||||
|
Active: true
|
||||||
|
FontSize: 6
|
||||||
|
BackgroundTransparency: 1
|
||||||
|
Parent: dotGui
|
||||||
|
|
||||||
|
for t = 1, 10
|
||||||
|
wait 0.1
|
||||||
|
textLabel.TextTransparency = t / 10
|
||||||
|
textLabel.Position = UDim2.new 0, 0, 0, -t * 5
|
||||||
|
textLabel.FontSize = 6 - t * 0.6
|
||||||
|
|
||||||
|
textLabel\remove!
|
||||||
|
|
||||||
|
setMaxHealth = ->
|
||||||
|
--print Humanoid.Health
|
||||||
|
if myHealth.Value >= 0
|
||||||
|
Humanoid.MaxHealth = myHealth.Value
|
||||||
|
print Humanoid.MaxHealth
|
||||||
|
if Humanoid.Health > Humanoid.MaxHealth
|
||||||
|
Humanoid.Health = Humanoid.MaxHealth
|
||||||
|
|
||||||
|
myHealth.Changed\connect setMaxHealth
|
||||||
|
|
||||||
|
-- Visual Effects --
|
||||||
|
|
||||||
|
fireEffect = New "Fire", "FireEffect"
|
||||||
|
Heat: 0.1
|
||||||
|
Size: 3.0
|
||||||
|
Enabled: false
|
||||||
|
--
|
||||||
|
|
||||||
|
-- regeneration
|
||||||
|
while true
|
||||||
|
s = wait 1
|
||||||
|
health = Humanoid.Health
|
||||||
|
if health > 0 -- and health < Humanoid.MaxHealth
|
||||||
|
delta = 0
|
||||||
|
if config
|
||||||
|
regen = config\FindFirstChild "Regen"
|
||||||
|
poison = config\FindFirstChild "Poison"
|
||||||
|
ice = config\FindFirstChild "Ice"
|
||||||
|
fire = config\FindFirstChild "Fire"
|
||||||
|
stun = config\FindFirstChild "Stun"
|
||||||
|
if regen
|
||||||
|
delta = delta + regen.Value.X
|
||||||
|
if regen.Value.Y >= 0
|
||||||
|
regen.Value = Vector3.new regen.Value.X + regen.Value.Z, regen.Value.Y - s, regen.Value.Z -- maybe have 3rd parameter be an increaser/decreaser?
|
||||||
|
elseif regen.Value.Y == -1
|
||||||
|
regen.Value = Vector3.new regen.Value.X + regen.Value.Z, -1, regen.Value.Z
|
||||||
|
else
|
||||||
|
regen\remove!
|
||||||
|
-- infinity is -1
|
||||||
|
|
||||||
|
if poison
|
||||||
|
delta = delta - poison.Value.X
|
||||||
|
if poison.Value.Y >= 0
|
||||||
|
poison.Value = Vector3.new poison.Value.X + poison.Value.Z, poison.Value.Y - s, poison.Value.Z
|
||||||
|
elseif poison.Value.Y == -1
|
||||||
|
poison.Value = Vector3.new poison.Value.X + poison.Value.Z, -1, poison.Value.Z
|
||||||
|
else
|
||||||
|
poison\remove!
|
||||||
|
-- infinity is -1
|
||||||
|
|
||||||
|
if ice
|
||||||
|
--print "IN ICE"
|
||||||
|
delta = delta - ice.Value.X
|
||||||
|
if ice.Value.Y >= 0
|
||||||
|
ice.Value = Vector3.new ice.Value.X, ice.Value.Y - s, ice.Value.Z
|
||||||
|
else
|
||||||
|
ice\remove!
|
||||||
|
|
||||||
|
if fire
|
||||||
|
fireEffect.Enabled = true
|
||||||
|
fireEffect.Parent = Figure.Torso
|
||||||
|
delta = delta - fire.Value.X
|
||||||
|
if fire.Value.Y >= 0
|
||||||
|
fire.Value = Vector3.new fire.Value.X, fire.Value.Y - s, fire.Value.Z
|
||||||
|
else
|
||||||
|
fire\remove!
|
||||||
|
fireEffect.Enabled = false
|
||||||
|
fireEffect.Parent = nil
|
||||||
|
|
||||||
|
if stun
|
||||||
|
local backpackTools
|
||||||
|
if stun.Value > 0
|
||||||
|
Torso.Anchored = true
|
||||||
|
currentChildren = script.Parent\GetChildren!
|
||||||
|
backpackTools = game.Players\GetPlayerFromCharacter(script.Parent).Backpack\GetChildren!
|
||||||
|
for i = 1, #currentChildren
|
||||||
|
if currentChildren[i].className == "Tool"
|
||||||
|
inCharTag\Clone!.Parent = currentChildren[i]
|
||||||
|
print(backpackTools)
|
||||||
|
table.insert(backpackTools, currentChildren[i])
|
||||||
|
|
||||||
|
for i = 1, #backpackTools
|
||||||
|
if not backpackTools[i]\FindFirstChild("RobloxBuildTool")?
|
||||||
|
hider\Clone!.Parent = backpackTools[i]
|
||||||
|
backpackTools[i].Parent = game.Lighting
|
||||||
|
|
||||||
|
wait 0.2
|
||||||
|
for i = 1, #backpackTools
|
||||||
|
backpackTools[i].Parent = game.Players\GetPlayerFromCharacter(script.Parent).Backpack
|
||||||
|
|
||||||
|
stun.Value = stun.Value - s
|
||||||
|
else
|
||||||
|
Torso.Anchored = false
|
||||||
|
for i = 1, #backpackTools
|
||||||
|
rbTool = backpackTools[i]\FindFirstChild "RobloxBuildTool"
|
||||||
|
if rbTool
|
||||||
|
rbTool\Remove!
|
||||||
|
|
||||||
|
backpackTools[i].Parent = game.Lighting
|
||||||
|
|
||||||
|
wait 0.2
|
||||||
|
for i = 1, #backpackTools
|
||||||
|
wasInChar = backpackTools[i]\FindFirstChild "InCharTag"
|
||||||
|
if wasInChar
|
||||||
|
wasInChar\Remove!
|
||||||
|
backpackTools[i].Parent = script.Parent
|
||||||
|
else
|
||||||
|
backpackTools[i].Parent = game.Players\GetPlayerFromCharacter(script.Parent).Backpack
|
||||||
|
|
||||||
|
stun\Remove!
|
||||||
|
|
||||||
|
if delta ~= 0
|
||||||
|
coroutine.resume(coroutine.create(billboardHealthChange), delta)
|
||||||
|
--delta *= .01
|
||||||
|
--health += delta * s * Humanoid.MaxHealth
|
||||||
|
|
||||||
|
health = Humanoid.Health + delta * s
|
||||||
|
if health * 1.01 < Humanoid.MaxHealth
|
||||||
|
Humanoid.Health = health
|
||||||
|
--myHealth.Value = math.floor Humanoid.Health
|
||||||
|
elseif delta > 0
|
||||||
|
Humanoid.Health = Humanoid.MaxHealth
|
||||||
|
--myHealth.Value = Humanoid.Health
|
||||||
|
|
@ -0,0 +1,542 @@
|
||||||
|
local New
|
||||||
|
New = function(className, name, props)
|
||||||
|
if not (props ~= nil) then
|
||||||
|
props = name
|
||||||
|
name = nil
|
||||||
|
end
|
||||||
|
local obj = Instance.new(className)
|
||||||
|
if name then
|
||||||
|
obj.Name = name
|
||||||
|
end
|
||||||
|
local parent
|
||||||
|
for k, v in pairs(props) do
|
||||||
|
if type(k) == "string" then
|
||||||
|
if k == "Parent" then
|
||||||
|
parent = v
|
||||||
|
else
|
||||||
|
obj[k] = v
|
||||||
|
end
|
||||||
|
elseif type(k) == "number" and type(v) == "userdata" then
|
||||||
|
v.Parent = obj
|
||||||
|
end
|
||||||
|
end
|
||||||
|
obj.Parent = parent
|
||||||
|
return obj
|
||||||
|
end
|
||||||
|
local waitForProperty
|
||||||
|
waitForProperty = function(instance, name)
|
||||||
|
while not instance[name] do
|
||||||
|
instance.Changed:wait()
|
||||||
|
end
|
||||||
|
end
|
||||||
|
local waitForChild
|
||||||
|
waitForChild = function(instance, name)
|
||||||
|
while not instance:FindFirstChild(name) do
|
||||||
|
instance.ChildAdded:wait()
|
||||||
|
end
|
||||||
|
end
|
||||||
|
local mainFrame
|
||||||
|
local choices = { }
|
||||||
|
local lastChoice
|
||||||
|
local choiceMap = { }
|
||||||
|
local currentConversationDialog
|
||||||
|
local currentConversationPartner
|
||||||
|
local currentAbortDialogScript
|
||||||
|
local tooFarAwayMessage = "You are too far away to chat!"
|
||||||
|
local tooFarAwaySize = 300
|
||||||
|
local characterWanderedOffMessage = "Chat ended because you walked away"
|
||||||
|
local characterWanderedOffSize = 350
|
||||||
|
local conversationTimedOut = "Chat ended because you didn't reply"
|
||||||
|
local conversationTimedOutSize = 350
|
||||||
|
local player
|
||||||
|
local chatNotificationGui
|
||||||
|
local messageDialog
|
||||||
|
local timeoutScript
|
||||||
|
local reenableDialogScript
|
||||||
|
local dialogMap = { }
|
||||||
|
local dialogConnections = { }
|
||||||
|
local gui
|
||||||
|
waitForChild(game, "CoreGui")
|
||||||
|
waitForChild(game.CoreGui, "RobloxGui")
|
||||||
|
if game.CoreGui.RobloxGui:FindFirstChild("ControlFrame") then
|
||||||
|
gui = game.CoreGui.RobloxGui.ControlFrame
|
||||||
|
else
|
||||||
|
gui = game.CoreGui.RobloxGui
|
||||||
|
end
|
||||||
|
local currentTone
|
||||||
|
currentTone = function()
|
||||||
|
if currentConversationDialog then
|
||||||
|
return currentConversationDialog.Tone
|
||||||
|
else
|
||||||
|
return Enum.DialogTone.Neutral
|
||||||
|
end
|
||||||
|
end
|
||||||
|
local createChatNotificationGui
|
||||||
|
createChatNotificationGui = function()
|
||||||
|
chatNotificationGui = New("BillboardGui", "ChatNotificationGui", {
|
||||||
|
ExtentsOffset = Vector3.new(0, 1, 0),
|
||||||
|
Size = UDim2.new(4, 0, 5.42857122, 0),
|
||||||
|
SizeOffset = Vector2.new(0, 0),
|
||||||
|
StudsOffset = Vector3.new(0.4, 4.3, 0),
|
||||||
|
Enabled = true,
|
||||||
|
RobloxLocked = true,
|
||||||
|
Active = true,
|
||||||
|
New("ImageLabel", "Image", {
|
||||||
|
Active = false,
|
||||||
|
BackgroundTransparency = 1,
|
||||||
|
Position = UDim2.new(0, 0, 0, 0),
|
||||||
|
Size = UDim2.new(1, 0, 1, 0),
|
||||||
|
Image = "",
|
||||||
|
RobloxLocked = true,
|
||||||
|
New("ImageButton", "Button", {
|
||||||
|
AutoButtonColor = false,
|
||||||
|
Position = UDim2.new(0.088, 0, 0.053, 0),
|
||||||
|
Size = UDim2.new(0.83, 0, 0.46, 0),
|
||||||
|
Image = "",
|
||||||
|
BackgroundTransparency = 1,
|
||||||
|
RobloxLocked = true
|
||||||
|
})
|
||||||
|
})
|
||||||
|
})
|
||||||
|
end
|
||||||
|
local getChatColor
|
||||||
|
getChatColor = function(tone)
|
||||||
|
if tone == Enum.DialogTone.Neutral then
|
||||||
|
return Enum.ChatColor.Blue
|
||||||
|
elseif tone == Enum.DialogTone.Friendly then
|
||||||
|
return Enum.ChatColor.Green
|
||||||
|
elseif tone == Enum.DialogTone.Enemy then
|
||||||
|
return Enum.ChatColor.Red
|
||||||
|
end
|
||||||
|
end
|
||||||
|
local resetColor
|
||||||
|
resetColor = function(frame, tone)
|
||||||
|
if tone == Enum.DialogTone.Neutral then
|
||||||
|
frame.BackgroundColor3 = Color3.new(0, 0, 179 / 255)
|
||||||
|
frame.Number.TextColor3 = Color3.new(45 / 255, 142 / 255, 245 / 255)
|
||||||
|
elseif tone == Enum.DialogTone.Friendly then
|
||||||
|
frame.BackgroundColor3 = Color3.new(0, 77 / 255, 0)
|
||||||
|
frame.Number.TextColor3 = Color3.new(0, 190 / 255, 0)
|
||||||
|
elseif tone == Enum.DialogTone.Enemy then
|
||||||
|
frame.BackgroundColor3 = Color3.new(140 / 255, 0, 0)
|
||||||
|
frame.Number.TextColor3 = Color3.new(255 / 255, 88 / 255, 79 / 255)
|
||||||
|
end
|
||||||
|
end
|
||||||
|
local styleChoices
|
||||||
|
styleChoices = function(tone)
|
||||||
|
for _, obj in pairs(choices) do
|
||||||
|
resetColor(obj, tone)
|
||||||
|
end
|
||||||
|
return resetColor(lastChoice, tone)
|
||||||
|
end
|
||||||
|
local styleMainFrame
|
||||||
|
styleMainFrame = function(tone)
|
||||||
|
if tone == Enum.DialogTone.Neutral then
|
||||||
|
mainFrame.Style = Enum.FrameStyle.ChatBlue
|
||||||
|
mainFrame.Tail.Image = "rbxasset://textures/chatBubble_botBlue_tailRight.png"
|
||||||
|
elseif tone == Enum.DialogTone.Friendly then
|
||||||
|
mainFrame.Style = Enum.FrameStyle.ChatGreen
|
||||||
|
mainFrame.Tail.Image = "rbxasset://textures/chatBubble_botGreen_tailRight.png"
|
||||||
|
elseif tone == Enum.DialogTone.Enemy then
|
||||||
|
mainFrame.Style = Enum.FrameStyle.ChatRed
|
||||||
|
mainFrame.Tail.Image = "rbxasset://textures/chatBubble_botRed_tailRight.png"
|
||||||
|
end
|
||||||
|
return styleChoices(tone)
|
||||||
|
end
|
||||||
|
local setChatNotificationTone
|
||||||
|
setChatNotificationTone = function(gui, purpose, tone)
|
||||||
|
if tone == Enum.DialogTone.Neutral then
|
||||||
|
gui.Image.Image = "rbxasset://textures/chatBubble_botBlue_notify_bkg.png"
|
||||||
|
elseif tone == Enum.DialogTone.Friendly then
|
||||||
|
gui.Image.Image = "rbxasset://textures/chatBubble_botGreen_notify_bkg.png"
|
||||||
|
elseif tone == Enum.DialogTone.Enemy then
|
||||||
|
gui.Image.Image = "rbxasset://textures/chatBubble_botRed_notify_bkg.png"
|
||||||
|
end
|
||||||
|
if purpose == Enum.DialogPurpose.Quest then
|
||||||
|
gui.Image.Button.Image = "rbxasset://textures/chatBubble_bot_notify_bang.png"
|
||||||
|
elseif purpose == Enum.DialogPurpose.Help then
|
||||||
|
gui.Image.Button.Image = "rbxasset://textures/chatBubble_bot_notify_question.png"
|
||||||
|
elseif purpose == Enum.DialogPurpose.Shop then
|
||||||
|
gui.Image.Button.Image = "rbxasset://textures/chatBubble_bot_notify_money.png"
|
||||||
|
end
|
||||||
|
end
|
||||||
|
local createMessageDialog
|
||||||
|
createMessageDialog = function()
|
||||||
|
messageDialog = Instance.new("Frame")
|
||||||
|
messageDialog.Name = "DialogScriptMessage"
|
||||||
|
messageDialog.Style = Enum.FrameStyle.RobloxRound
|
||||||
|
messageDialog.Visible = false
|
||||||
|
local text = Instance.new("TextLabel")
|
||||||
|
text.Name = "Text"
|
||||||
|
text.Position = UDim2.new(0, 0, 0, -1)
|
||||||
|
text.Size = UDim2.new(1, 0, 1, 0)
|
||||||
|
text.FontSize = Enum.FontSize.Size14
|
||||||
|
text.BackgroundTransparency = 1
|
||||||
|
text.TextColor3 = Color3.new(1, 1, 1)
|
||||||
|
text.RobloxLocked = true
|
||||||
|
text.Parent = messageDialog
|
||||||
|
end
|
||||||
|
local showMessage
|
||||||
|
showMessage = function(msg, size)
|
||||||
|
messageDialog.Text.Text = msg
|
||||||
|
messageDialog.Size = UDim2.new(0, size, 0, 40)
|
||||||
|
messageDialog.Position = UDim2.new(0.5, -size / 2, 0.5, -40)
|
||||||
|
messageDialog.Visible = true
|
||||||
|
wait(2)
|
||||||
|
messageDialog.Visible = false
|
||||||
|
end
|
||||||
|
local variableDelay
|
||||||
|
variableDelay = function(str)
|
||||||
|
local length = math.min(string.len(str), 100)
|
||||||
|
return wait(0.75 + (length / 75) * 1.5)
|
||||||
|
end
|
||||||
|
local highlightColor
|
||||||
|
highlightColor = function(frame, tone)
|
||||||
|
if tone == Enum.DialogTone.Neutral then
|
||||||
|
frame.BackgroundColor3 = Color3.new(2 / 255, 108 / 255, 255 / 255)
|
||||||
|
frame.Number.TextColor3 = Color3.new(1, 1, 1)
|
||||||
|
elseif tone == Enum.DialogTone.Friendly then
|
||||||
|
frame.BackgroundColor3 = Color3.new(0, 128 / 255, 0)
|
||||||
|
frame.Number.TextColor3 = Color3.new(1, 1, 1)
|
||||||
|
elseif tone == Enum.DialogTone.Enemy then
|
||||||
|
frame.BackgroundColor3 = Color3.new(204 / 255, 0, 0)
|
||||||
|
frame.Number.TextColor3 = Color3.new(1, 1, 1)
|
||||||
|
end
|
||||||
|
end
|
||||||
|
local endDialog
|
||||||
|
endDialog = function()
|
||||||
|
if currentAbortDialogScript then
|
||||||
|
currentAbortDialogScript:Remove()
|
||||||
|
currentAbortDialogScript = nil
|
||||||
|
end
|
||||||
|
local dialog = currentConversationDialog
|
||||||
|
currentConversationDialog = nil
|
||||||
|
if dialog and dialog.InUse then
|
||||||
|
local reenableScript = reenableDialogScript:Clone()
|
||||||
|
reenableScript.archivable = false
|
||||||
|
reenableScript.Disabled = false
|
||||||
|
reenableScript.Parent = dialog
|
||||||
|
end
|
||||||
|
for dialog, gui in pairs(dialogMap) do
|
||||||
|
if dialog and gui then
|
||||||
|
gui.Enabled = not dialog.InUse
|
||||||
|
end
|
||||||
|
end
|
||||||
|
currentConversationPartner = nil
|
||||||
|
end
|
||||||
|
local wanderDialog
|
||||||
|
wanderDialog = function()
|
||||||
|
print("Wander")
|
||||||
|
mainFrame.Visible = false
|
||||||
|
endDialog()
|
||||||
|
return showMessage(characterWanderedOffMessage, characterWanderedOffSize)
|
||||||
|
end
|
||||||
|
local timeoutDialog
|
||||||
|
timeoutDialog = function()
|
||||||
|
print("Timeout")
|
||||||
|
mainFrame.Visible = false
|
||||||
|
endDialog()
|
||||||
|
return showMessage(conversationTimedOut, conversationTimedOutSize)
|
||||||
|
end
|
||||||
|
local normalEndDialog
|
||||||
|
normalEndDialog = function()
|
||||||
|
print("Done")
|
||||||
|
return endDialog()
|
||||||
|
end
|
||||||
|
local sanitizeMessage
|
||||||
|
sanitizeMessage = function(msg)
|
||||||
|
if string.len(msg) == 0 then
|
||||||
|
return "..."
|
||||||
|
else
|
||||||
|
return msg
|
||||||
|
end
|
||||||
|
end
|
||||||
|
local renewKillswitch
|
||||||
|
renewKillswitch = function(dialog)
|
||||||
|
if currentAbortDialogScript then
|
||||||
|
currentAbortDialogScript:Remove()
|
||||||
|
currentAbortDialogScript = nil
|
||||||
|
end
|
||||||
|
currentAbortDialogScript = timeoutScript:Clone()
|
||||||
|
currentAbortDialogScript.archivable = false
|
||||||
|
currentAbortDialogScript.Disabled = false
|
||||||
|
currentAbortDialogScript.Parent = dialog
|
||||||
|
end
|
||||||
|
local presentDialogChoices
|
||||||
|
presentDialogChoices = function(talkingPart, dialogChoices)
|
||||||
|
if not currentConversationDialog then
|
||||||
|
return
|
||||||
|
end
|
||||||
|
currentConversationPartner = talkingPart
|
||||||
|
local sortedDialogChoices = { }
|
||||||
|
for _, obj in pairs(dialogChoices) do
|
||||||
|
if obj:IsA("DialogChoice") then
|
||||||
|
table.insert(sortedDialogChoices, obj)
|
||||||
|
end
|
||||||
|
end
|
||||||
|
table.sort(sortedDialogChoices, function(a, b)
|
||||||
|
return a.Name < b.Name
|
||||||
|
end)
|
||||||
|
if #sortedDialogChoices == 0 then
|
||||||
|
normalEndDialog()
|
||||||
|
return
|
||||||
|
end
|
||||||
|
local pos = 1
|
||||||
|
local yPosition = 0
|
||||||
|
choiceMap = { }
|
||||||
|
for _, obj in pairs(choices) do
|
||||||
|
obj.Visible = false
|
||||||
|
end
|
||||||
|
for _, obj in pairs(sortedDialogChoices) do
|
||||||
|
if pos <= #choices then
|
||||||
|
choices[pos].Size = UDim2.new(1, 0, 0, 24 * 3)
|
||||||
|
choices[pos].UserPrompt.Text = obj.UserDialog
|
||||||
|
local height = math.ceil(choices[pos].UserPrompt.TextBounds.Y / 24) * 24
|
||||||
|
choices[pos].Position = UDim2.new(0, 0, 0, yPosition)
|
||||||
|
choices[pos].Size = UDim2.new(1, 0, 0, height)
|
||||||
|
choices[pos].Visible = true
|
||||||
|
choiceMap[choices[pos]] = obj
|
||||||
|
yPosition = yPosition + height
|
||||||
|
pos = pos + 1
|
||||||
|
end
|
||||||
|
end
|
||||||
|
lastChoice.Position = UDim2.new(0, 0, 0, yPosition)
|
||||||
|
lastChoice.Number.Text = pos .. ")"
|
||||||
|
mainFrame.Size = UDim2.new(0, 350, 0, yPosition + 24 + 32)
|
||||||
|
mainFrame.Position = UDim2.new(0, 20, 0, -mainFrame.Size.Y.Offset - 20)
|
||||||
|
styleMainFrame(currentTone())
|
||||||
|
mainFrame.Visible = true
|
||||||
|
end
|
||||||
|
local selectChoice
|
||||||
|
selectChoice = function(choice)
|
||||||
|
renewKillswitch(currentConversationDialog)
|
||||||
|
mainFrame.Visible = false
|
||||||
|
if choice == lastChoice then
|
||||||
|
game.Chat:Chat(game.Players.LocalPlayer.Character, "Goodbye!", getChatColor(currentTone()))
|
||||||
|
return normalEndDialog()
|
||||||
|
else
|
||||||
|
local dialogChoice = choiceMap[choice]
|
||||||
|
game.Chat:Chat(game.Players.LocalPlayer.Character, sanitizeMessage(dialogChoice.UserDialog), getChatColor(currentTone()))
|
||||||
|
wait(1)
|
||||||
|
currentConversationDialog:SignalDialogChoiceSelected(player, dialogChoice)
|
||||||
|
game.Chat:Chat(currentConversationPartner, sanitizeMessage(dialogChoice.ResponseDialog), getChatColor(currentTone()))
|
||||||
|
variableDelay(dialogChoice.ResponseDialog)
|
||||||
|
return presentDialogChoices(currentConversationPartner, dialogChoice:GetChildren())
|
||||||
|
end
|
||||||
|
end
|
||||||
|
local newChoice
|
||||||
|
newChoice = function(numberText)
|
||||||
|
local frame = Instance.new("TextButton")
|
||||||
|
frame.BackgroundColor3 = Color3.new(0, 0, 179 / 255)
|
||||||
|
frame.AutoButtonColor = false
|
||||||
|
frame.BorderSizePixel = 0
|
||||||
|
frame.Text = ""
|
||||||
|
frame.MouseEnter:connect(function()
|
||||||
|
return highlightColor(frame, currentTone())
|
||||||
|
end)
|
||||||
|
frame.MouseLeave:connect(function()
|
||||||
|
return resetColor(frame, currentTone())
|
||||||
|
end)
|
||||||
|
frame.MouseButton1Click:connect(function()
|
||||||
|
return selectChoice(frame)
|
||||||
|
end)
|
||||||
|
frame.RobloxLocked = true
|
||||||
|
local number = Instance.new("TextLabel")
|
||||||
|
number.Name = "Number"
|
||||||
|
number.TextColor3 = Color3.new(127 / 255, 212 / 255, 255 / 255)
|
||||||
|
number.Text = numberText
|
||||||
|
number.FontSize = Enum.FontSize.Size14
|
||||||
|
number.BackgroundTransparency = 1
|
||||||
|
number.Position = UDim2.new(0, 4, 0, 2)
|
||||||
|
number.Size = UDim2.new(0, 20, 0, 24)
|
||||||
|
number.TextXAlignment = Enum.TextXAlignment.Left
|
||||||
|
number.TextYAlignment = Enum.TextYAlignment.Top
|
||||||
|
number.RobloxLocked = true
|
||||||
|
number.Parent = frame
|
||||||
|
local prompt = Instance.new("TextLabel")
|
||||||
|
prompt.Name = "UserPrompt"
|
||||||
|
prompt.BackgroundTransparency = 1
|
||||||
|
prompt.TextColor3 = Color3.new(1, 1, 1)
|
||||||
|
prompt.FontSize = Enum.FontSize.Size14
|
||||||
|
prompt.Position = UDim2.new(0, 28, 0, 2)
|
||||||
|
prompt.Size = UDim2.new(1, -32, 1, -4)
|
||||||
|
prompt.TextXAlignment = Enum.TextXAlignment.Left
|
||||||
|
prompt.TextYAlignment = Enum.TextYAlignment.Top
|
||||||
|
prompt.TextWrap = true
|
||||||
|
prompt.RobloxLocked = true
|
||||||
|
prompt.Parent = frame
|
||||||
|
return frame
|
||||||
|
end
|
||||||
|
local initialize
|
||||||
|
initialize = function(parent)
|
||||||
|
choices[1] = newChoice("1)")
|
||||||
|
choices[2] = newChoice("2)")
|
||||||
|
choices[3] = newChoice("3)")
|
||||||
|
choices[4] = newChoice("4)")
|
||||||
|
lastChoice = newChoice("5)")
|
||||||
|
lastChoice.UserPrompt.Text = "Goodbye!"
|
||||||
|
lastChoice.Size = UDim2.new(1, 0, 0, 28)
|
||||||
|
mainFrame = Instance.new("Frame")
|
||||||
|
mainFrame.Name = "UserDialogArea"
|
||||||
|
mainFrame.Size = UDim2.new(0, 350, 0, 200)
|
||||||
|
mainFrame.Style = Enum.FrameStyle.ChatBlue
|
||||||
|
mainFrame.Visible = false
|
||||||
|
local imageLabel = Instance.new("ImageLabel")
|
||||||
|
imageLabel.Name = "Tail"
|
||||||
|
imageLabel.Size = UDim2.new(0, 62, 0, 53)
|
||||||
|
imageLabel.Position = UDim2.new(1, 8, 0.25)
|
||||||
|
imageLabel.Image = "rbxasset://textures/chatBubble_botBlue_tailRight.png"
|
||||||
|
imageLabel.BackgroundTransparency = 1
|
||||||
|
imageLabel.RobloxLocked = true
|
||||||
|
imageLabel.Parent = mainFrame
|
||||||
|
for _, obj in pairs(choices) do
|
||||||
|
obj.RobloxLocked = true
|
||||||
|
obj.Parent = mainFrame
|
||||||
|
lastChoice.RobloxLocked = true
|
||||||
|
end
|
||||||
|
lastChoice.Parent = mainFrame
|
||||||
|
mainFrame.RobloxLocked = true
|
||||||
|
mainFrame.Parent = parent
|
||||||
|
end
|
||||||
|
local doDialog
|
||||||
|
doDialog = function(dialog)
|
||||||
|
while not Instance.Lock(dialog, player) do
|
||||||
|
wait()
|
||||||
|
end
|
||||||
|
if dialog.InUse then
|
||||||
|
Instance.Unlock(dialog)
|
||||||
|
return
|
||||||
|
else
|
||||||
|
dialog.InUse = true
|
||||||
|
Instance.Unlock(dialog)
|
||||||
|
end
|
||||||
|
currentConversationDialog = dialog
|
||||||
|
game.Chat:Chat(dialog.Parent, dialog.InitialPrompt, getChatColor(dialog.Tone))
|
||||||
|
variableDelay(dialog.InitialPrompt)
|
||||||
|
return presentDialogChoices(dialog.Parent, dialog:GetChildren())
|
||||||
|
end
|
||||||
|
local checkForLeaveArea
|
||||||
|
checkForLeaveArea = function()
|
||||||
|
while currentConversationDialog do
|
||||||
|
if currentConversationDialog.Parent and (player:DistanceFromCharacter(currentConversationDialog.Parent.Position >= currentConversationDialog.ConversationDistance)) then
|
||||||
|
wanderDialog()
|
||||||
|
end
|
||||||
|
wait(1)
|
||||||
|
end
|
||||||
|
end
|
||||||
|
local startDialog
|
||||||
|
startDialog = function(dialog)
|
||||||
|
if dialog.Parent and dialog.Parent:IsA("BasePart") then
|
||||||
|
if player:DistanceFromCharacter(dialog.Parent.Position) >= dialog.ConversationDistance then
|
||||||
|
showMessage(tooFarAwayMessage, tooFarAwaySize)
|
||||||
|
return
|
||||||
|
end
|
||||||
|
for dialog, gui in pairs(dialogMap) do
|
||||||
|
if dialog and gui then
|
||||||
|
gui.Enabled = false
|
||||||
|
end
|
||||||
|
end
|
||||||
|
renewKillswitch(dialog)
|
||||||
|
delay(1, checkForLeaveArea)
|
||||||
|
return doDialog(dialog)
|
||||||
|
end
|
||||||
|
end
|
||||||
|
local removeDialog
|
||||||
|
removeDialog = function(dialog)
|
||||||
|
if dialogMap[dialog] then
|
||||||
|
dialogMap[dialog]:Remove()
|
||||||
|
dialogMap[dialog] = nil
|
||||||
|
end
|
||||||
|
if dialogConnections[dialog] then
|
||||||
|
dialogConnections[dialog]:disconnect()
|
||||||
|
dialogConnections[dialog] = nil
|
||||||
|
end
|
||||||
|
end
|
||||||
|
local addDialog
|
||||||
|
addDialog = function(dialog)
|
||||||
|
if dialog.Parent then
|
||||||
|
if dialog.Parent:IsA("BasePart") then
|
||||||
|
local chatGui = chatNotificationGui:clone()
|
||||||
|
chatGui.Enabled = not dialog.InUse
|
||||||
|
chatGui.Adornee = dialog.Parent
|
||||||
|
chatGui.RobloxLocked = true
|
||||||
|
chatGui.Parent = game.CoreGui
|
||||||
|
chatGui.Image.Button.MouseButton1Click:connect(function()
|
||||||
|
return startDialog(dialog)
|
||||||
|
end)
|
||||||
|
setChatNotificationTone(chatGui, dialog.Purpose, dialog.Tone)
|
||||||
|
dialogMap[dialog] = chatGui
|
||||||
|
dialogConnections[dialog] = dialog.Changed:connect(function(prop)
|
||||||
|
if prop == "Parent" and dialog.Parent then
|
||||||
|
removeDialog(dialog)
|
||||||
|
return addDialog(dialog)
|
||||||
|
elseif prop == "InUse" then
|
||||||
|
chatGui.Enabled = not currentConversationDialog and not dialog.InUse
|
||||||
|
if dialog == currentConversationDialog then
|
||||||
|
return timeoutDialog()
|
||||||
|
end
|
||||||
|
elseif prop == "Tone" or prop == "Purpose" then
|
||||||
|
return setChatNotificationTone(chatGui, dialog.Purpose, dialog.Tone)
|
||||||
|
end
|
||||||
|
end)
|
||||||
|
else
|
||||||
|
dialogConnections[dialog] = dialog.Changed:connect(function(prop)
|
||||||
|
if prop == "Parent" and dialog.Parent then
|
||||||
|
removeDialog(dialog)
|
||||||
|
return addDialog(dialog)
|
||||||
|
end
|
||||||
|
end)
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
local fetchScripts
|
||||||
|
fetchScripts = function()
|
||||||
|
local model = game:GetService("InsertService"):LoadAsset(39226062)
|
||||||
|
if type(model) == "string" then
|
||||||
|
wait(0.1)
|
||||||
|
model = game:GetService("InsertService"):LoadAsset(39226062)
|
||||||
|
end
|
||||||
|
if type(model) == "string" then
|
||||||
|
return
|
||||||
|
end
|
||||||
|
waitForChild(model, "TimeoutScript")
|
||||||
|
timeoutScript = model.TimeoutScript
|
||||||
|
waitForChild(model, "ReenableDialogScript")
|
||||||
|
reenableDialogScript = model.ReenableDialogScript
|
||||||
|
end
|
||||||
|
local onLoad
|
||||||
|
onLoad = function()
|
||||||
|
waitForProperty(game.Players, "LocalPlayer")
|
||||||
|
player = game.Players.LocalPlayer
|
||||||
|
waitForProperty(player, "Character")
|
||||||
|
fetchScripts()
|
||||||
|
createChatNotificationGui()
|
||||||
|
createMessageDialog()
|
||||||
|
messageDialog.RobloxLocked = true
|
||||||
|
messageDialog.Parent = gui
|
||||||
|
waitForChild(gui, "BottomLeftControl")
|
||||||
|
local frame = Instance.new("Frame")
|
||||||
|
frame.Name = "DialogFrame"
|
||||||
|
frame.Position = UDim2.new(0, 0, 0, 0)
|
||||||
|
frame.Size = UDim2.new(0, 0, 0, 0)
|
||||||
|
frame.BackgroundTransparency = 1
|
||||||
|
frame.RobloxLocked = true
|
||||||
|
frame.Parent = gui.BottomLeftControl
|
||||||
|
initialize(frame)
|
||||||
|
game.CollectionService.ItemAdded:connect(function(obj)
|
||||||
|
if obj:IsA("Dialog") then
|
||||||
|
return addDialog(obj)
|
||||||
|
end
|
||||||
|
end)
|
||||||
|
game.CollectionService.ItemRemoved:connect(function(obj)
|
||||||
|
if obj:IsA("Dialog") then
|
||||||
|
return removeDialog(obj)
|
||||||
|
end
|
||||||
|
end)
|
||||||
|
for _, obj in pairs(game.CollectionService:GetCollection("Dialog")) do
|
||||||
|
if obj:IsA("Dialog") then
|
||||||
|
addDialog(obj)
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
return onLoad()
|
||||||
|
|
@ -0,0 +1,526 @@
|
||||||
|
-- Heliodex's basic New function (basically a simplified version of melt)
|
||||||
|
New = (className, name, props) ->
|
||||||
|
if not props? -- no name was provided
|
||||||
|
props = name
|
||||||
|
name = nil
|
||||||
|
|
||||||
|
obj = Instance.new className
|
||||||
|
obj.Name = name if name
|
||||||
|
local parent
|
||||||
|
|
||||||
|
for k, v in pairs props
|
||||||
|
if type(k) == "string" then
|
||||||
|
if k == "Parent"
|
||||||
|
parent = v
|
||||||
|
else
|
||||||
|
obj[k] = v
|
||||||
|
|
||||||
|
elseif type(k) == "number" and type(v) == "userdata"
|
||||||
|
v.Parent = obj
|
||||||
|
|
||||||
|
obj.Parent = parent
|
||||||
|
obj
|
||||||
|
--
|
||||||
|
|
||||||
|
waitForProperty = (instance, name) ->
|
||||||
|
while not instance[name]
|
||||||
|
instance.Changed\wait!
|
||||||
|
|
||||||
|
waitForChild = (instance, name) ->
|
||||||
|
while not instance\FindFirstChild name
|
||||||
|
instance.ChildAdded\wait!
|
||||||
|
|
||||||
|
local mainFrame
|
||||||
|
choices = {}
|
||||||
|
local lastChoice
|
||||||
|
choiceMap = {}
|
||||||
|
local currentConversationDialog
|
||||||
|
local currentConversationPartner
|
||||||
|
local currentAbortDialogScript
|
||||||
|
|
||||||
|
tooFarAwayMessage = "You are too far away to chat!"
|
||||||
|
tooFarAwaySize = 300
|
||||||
|
characterWanderedOffMessage = "Chat ended because you walked away"
|
||||||
|
characterWanderedOffSize = 350
|
||||||
|
conversationTimedOut = "Chat ended because you didn't reply"
|
||||||
|
conversationTimedOutSize = 350
|
||||||
|
|
||||||
|
local player
|
||||||
|
local chatNotificationGui
|
||||||
|
local messageDialog
|
||||||
|
local timeoutScript
|
||||||
|
local reenableDialogScript
|
||||||
|
dialogMap = {}
|
||||||
|
dialogConnections = {}
|
||||||
|
|
||||||
|
local gui
|
||||||
|
waitForChild game, "CoreGui"
|
||||||
|
waitForChild game.CoreGui, "RobloxGui"
|
||||||
|
|
||||||
|
if game.CoreGui.RobloxGui\FindFirstChild "ControlFrame"
|
||||||
|
gui = game.CoreGui.RobloxGui.ControlFrame
|
||||||
|
else
|
||||||
|
gui = game.CoreGui.RobloxGui
|
||||||
|
|
||||||
|
currentTone = ->
|
||||||
|
if currentConversationDialog
|
||||||
|
currentConversationDialog.Tone
|
||||||
|
else
|
||||||
|
Enum.DialogTone.Neutral
|
||||||
|
|
||||||
|
createChatNotificationGui = ->
|
||||||
|
chatNotificationGui = New "BillboardGui", "ChatNotificationGui"
|
||||||
|
ExtentsOffset: Vector3.new 0, 1, 0
|
||||||
|
Size: UDim2.new 4, 0, 5.42857122, 0
|
||||||
|
SizeOffset: Vector2.new 0, 0
|
||||||
|
StudsOffset: Vector3.new 0.4, 4.3, 0
|
||||||
|
Enabled: true
|
||||||
|
RobloxLocked: true
|
||||||
|
Active: true
|
||||||
|
|
||||||
|
* New "ImageLabel", "Image"
|
||||||
|
Active: false
|
||||||
|
BackgroundTransparency: 1
|
||||||
|
Position: UDim2.new 0, 0, 0, 0
|
||||||
|
Size: UDim2.new 1, 0, 1, 0
|
||||||
|
Image: ""
|
||||||
|
RobloxLocked: true
|
||||||
|
|
||||||
|
* New "ImageButton", "Button"
|
||||||
|
AutoButtonColor: false
|
||||||
|
Position: UDim2.new 0.088, 0, 0.053, 0
|
||||||
|
Size: UDim2.new 0.83, 0, 0.46, 0
|
||||||
|
Image: ""
|
||||||
|
BackgroundTransparency: 1
|
||||||
|
RobloxLocked: true
|
||||||
|
|
||||||
|
getChatColor = (tone) ->
|
||||||
|
if tone == Enum.DialogTone.Neutral
|
||||||
|
Enum.ChatColor.Blue
|
||||||
|
elseif tone == Enum.DialogTone.Friendly
|
||||||
|
Enum.ChatColor.Green
|
||||||
|
elseif tone == Enum.DialogTone.Enemy
|
||||||
|
Enum.ChatColor.Red
|
||||||
|
|
||||||
|
resetColor = (frame, tone) ->
|
||||||
|
if tone == Enum.DialogTone.Neutral
|
||||||
|
frame.BackgroundColor3 = Color3.new 0, 0, 179 / 255
|
||||||
|
frame.Number.TextColor3 = Color3.new 45 / 255, 142 / 255, 245 / 255
|
||||||
|
elseif tone == Enum.DialogTone.Friendly
|
||||||
|
frame.BackgroundColor3 = Color3.new 0, 77 / 255, 0
|
||||||
|
frame.Number.TextColor3 = Color3.new 0, 190 / 255, 0
|
||||||
|
elseif tone == Enum.DialogTone.Enemy
|
||||||
|
frame.BackgroundColor3 = Color3.new 140 / 255, 0, 0
|
||||||
|
frame.Number.TextColor3 = Color3.new 255 / 255, 88 / 255, 79 / 255
|
||||||
|
|
||||||
|
styleChoices = (tone) ->
|
||||||
|
for _, obj in pairs choices
|
||||||
|
resetColor obj, tone
|
||||||
|
resetColor lastChoice, tone
|
||||||
|
|
||||||
|
styleMainFrame = (tone) ->
|
||||||
|
if tone == Enum.DialogTone.Neutral
|
||||||
|
mainFrame.Style = Enum.FrameStyle.ChatBlue
|
||||||
|
mainFrame.Tail.Image = "rbxasset://textures/chatBubble_botBlue_tailRight.png"
|
||||||
|
elseif tone == Enum.DialogTone.Friendly
|
||||||
|
mainFrame.Style = Enum.FrameStyle.ChatGreen
|
||||||
|
mainFrame.Tail.Image = "rbxasset://textures/chatBubble_botGreen_tailRight.png"
|
||||||
|
elseif tone == Enum.DialogTone.Enemy
|
||||||
|
mainFrame.Style = Enum.FrameStyle.ChatRed
|
||||||
|
mainFrame.Tail.Image = "rbxasset://textures/chatBubble_botRed_tailRight.png"
|
||||||
|
|
||||||
|
styleChoices tone
|
||||||
|
|
||||||
|
setChatNotificationTone = (gui, purpose, tone) ->
|
||||||
|
if tone == Enum.DialogTone.Neutral
|
||||||
|
gui.Image.Image = "rbxasset://textures/chatBubble_botBlue_notify_bkg.png"
|
||||||
|
elseif tone == Enum.DialogTone.Friendly
|
||||||
|
gui.Image.Image = "rbxasset://textures/chatBubble_botGreen_notify_bkg.png"
|
||||||
|
elseif tone == Enum.DialogTone.Enemy
|
||||||
|
gui.Image.Image = "rbxasset://textures/chatBubble_botRed_notify_bkg.png"
|
||||||
|
|
||||||
|
if purpose == Enum.DialogPurpose.Quest
|
||||||
|
gui.Image.Button.Image = "rbxasset://textures/chatBubble_bot_notify_bang.png"
|
||||||
|
elseif purpose == Enum.DialogPurpose.Help
|
||||||
|
gui.Image.Button.Image = "rbxasset://textures/chatBubble_bot_notify_question.png"
|
||||||
|
elseif purpose == Enum.DialogPurpose.Shop
|
||||||
|
gui.Image.Button.Image = "rbxasset://textures/chatBubble_bot_notify_money.png"
|
||||||
|
|
||||||
|
createMessageDialog = ->
|
||||||
|
messageDialog = Instance.new "Frame"
|
||||||
|
messageDialog.Name = "DialogScriptMessage"
|
||||||
|
messageDialog.Style = Enum.FrameStyle.RobloxRound
|
||||||
|
messageDialog.Visible = false
|
||||||
|
|
||||||
|
text = Instance.new "TextLabel"
|
||||||
|
text.Name = "Text"
|
||||||
|
text.Position = UDim2.new 0, 0, 0, -1
|
||||||
|
text.Size = UDim2.new 1, 0, 1, 0
|
||||||
|
text.FontSize = Enum.FontSize.Size14
|
||||||
|
text.BackgroundTransparency = 1
|
||||||
|
text.TextColor3 = Color3.new 1, 1, 1
|
||||||
|
text.RobloxLocked = true
|
||||||
|
text.Parent = messageDialog
|
||||||
|
|
||||||
|
showMessage = (msg, size) ->
|
||||||
|
messageDialog.Text.Text = msg
|
||||||
|
messageDialog.Size = UDim2.new 0, size, 0, 40
|
||||||
|
messageDialog.Position = UDim2.new 0.5, -size / 2, 0.5, -40
|
||||||
|
messageDialog.Visible = true
|
||||||
|
wait 2
|
||||||
|
messageDialog.Visible = false
|
||||||
|
|
||||||
|
variableDelay = (str) ->
|
||||||
|
length = math.min string.len(str), 100
|
||||||
|
wait 0.75 + (length / 75) * 1.5
|
||||||
|
|
||||||
|
highlightColor = (frame, tone) ->
|
||||||
|
if tone == Enum.DialogTone.Neutral
|
||||||
|
frame.BackgroundColor3 = Color3.new 2 / 255, 108 / 255, 255 / 255
|
||||||
|
frame.Number.TextColor3 = Color3.new 1, 1, 1
|
||||||
|
elseif tone == Enum.DialogTone.Friendly
|
||||||
|
frame.BackgroundColor3 = Color3.new 0, 128 / 255, 0
|
||||||
|
frame.Number.TextColor3 = Color3.new 1, 1, 1
|
||||||
|
elseif tone == Enum.DialogTone.Enemy
|
||||||
|
frame.BackgroundColor3 = Color3.new 204 / 255, 0, 0
|
||||||
|
frame.Number.TextColor3 = Color3.new 1, 1, 1
|
||||||
|
|
||||||
|
endDialog = ->
|
||||||
|
if currentAbortDialogScript
|
||||||
|
currentAbortDialogScript\Remove!
|
||||||
|
currentAbortDialogScript = nil
|
||||||
|
|
||||||
|
dialog = currentConversationDialog
|
||||||
|
currentConversationDialog = nil
|
||||||
|
if dialog and dialog.InUse
|
||||||
|
reenableScript = reenableDialogScript\Clone!
|
||||||
|
reenableScript.archivable = false
|
||||||
|
reenableScript.Disabled = false
|
||||||
|
reenableScript.Parent = dialog
|
||||||
|
|
||||||
|
for dialog, gui in pairs dialogMap
|
||||||
|
if dialog and gui
|
||||||
|
gui.Enabled = not dialog.InUse
|
||||||
|
|
||||||
|
currentConversationPartner = nil
|
||||||
|
|
||||||
|
wanderDialog = ->
|
||||||
|
print "Wander"
|
||||||
|
mainFrame.Visible = false
|
||||||
|
endDialog!
|
||||||
|
showMessage characterWanderedOffMessage, characterWanderedOffSize
|
||||||
|
|
||||||
|
timeoutDialog = ->
|
||||||
|
print "Timeout"
|
||||||
|
mainFrame.Visible = false
|
||||||
|
endDialog!
|
||||||
|
showMessage conversationTimedOut, conversationTimedOutSize
|
||||||
|
normalEndDialog = ->
|
||||||
|
print "Done"
|
||||||
|
endDialog!
|
||||||
|
|
||||||
|
sanitizeMessage = (msg) ->
|
||||||
|
if string.len(msg) == 0
|
||||||
|
"..."
|
||||||
|
else
|
||||||
|
msg
|
||||||
|
|
||||||
|
renewKillswitch = (dialog) ->
|
||||||
|
if currentAbortDialogScript
|
||||||
|
currentAbortDialogScript\Remove!
|
||||||
|
currentAbortDialogScript = nil
|
||||||
|
|
||||||
|
currentAbortDialogScript = timeoutScript\Clone!
|
||||||
|
currentAbortDialogScript.archivable = false
|
||||||
|
currentAbortDialogScript.Disabled = false
|
||||||
|
currentAbortDialogScript.Parent = dialog
|
||||||
|
|
||||||
|
presentDialogChoices = (talkingPart, dialogChoices) ->
|
||||||
|
return if not currentConversationDialog
|
||||||
|
|
||||||
|
currentConversationPartner = talkingPart
|
||||||
|
sortedDialogChoices = {}
|
||||||
|
for _, obj in pairs dialogChoices
|
||||||
|
if obj\IsA "DialogChoice"
|
||||||
|
table.insert sortedDialogChoices, obj
|
||||||
|
|
||||||
|
table.sort sortedDialogChoices, (a, b) -> a.Name < b.Name
|
||||||
|
|
||||||
|
if #sortedDialogChoices == 0
|
||||||
|
normalEndDialog!
|
||||||
|
return
|
||||||
|
|
||||||
|
pos = 1
|
||||||
|
yPosition = 0
|
||||||
|
choiceMap = {}
|
||||||
|
for _, obj in pairs choices
|
||||||
|
obj.Visible = false
|
||||||
|
|
||||||
|
for _, obj in pairs sortedDialogChoices
|
||||||
|
if pos <= #choices
|
||||||
|
--3 lines is the maximum, set it to that temporarily
|
||||||
|
choices[pos].Size = UDim2.new 1, 0, 0, 24 * 3
|
||||||
|
choices[pos].UserPrompt.Text = obj.UserDialog
|
||||||
|
height = math.ceil(choices[pos].UserPrompt.TextBounds.Y / 24) * 24
|
||||||
|
|
||||||
|
choices[pos].Position = UDim2.new 0, 0, 0, yPosition
|
||||||
|
choices[pos].Size = UDim2.new 1, 0, 0, height
|
||||||
|
choices[pos].Visible = true
|
||||||
|
|
||||||
|
choiceMap[choices[pos]] = obj
|
||||||
|
|
||||||
|
yPosition = yPosition + height
|
||||||
|
pos = pos + 1
|
||||||
|
|
||||||
|
lastChoice.Position = UDim2.new 0, 0, 0, yPosition
|
||||||
|
lastChoice.Number.Text = pos .. ")"
|
||||||
|
|
||||||
|
mainFrame.Size = UDim2.new 0, 350, 0, yPosition + 24 + 32
|
||||||
|
mainFrame.Position = UDim2.new 0, 20, 0, -mainFrame.Size.Y.Offset - 20
|
||||||
|
styleMainFrame currentTone!
|
||||||
|
mainFrame.Visible = true
|
||||||
|
|
||||||
|
selectChoice = (choice) ->
|
||||||
|
renewKillswitch currentConversationDialog
|
||||||
|
|
||||||
|
--First hide the Gui
|
||||||
|
mainFrame.Visible = false
|
||||||
|
if choice == lastChoice
|
||||||
|
game.Chat\Chat game.Players.LocalPlayer.Character, "Goodbye!", getChatColor(currentTone!)
|
||||||
|
|
||||||
|
normalEndDialog!
|
||||||
|
else
|
||||||
|
dialogChoice = choiceMap[choice]
|
||||||
|
|
||||||
|
game.Chat\Chat(
|
||||||
|
game.Players.LocalPlayer.Character,
|
||||||
|
sanitizeMessage(dialogChoice.UserDialog),
|
||||||
|
getChatColor currentTone!
|
||||||
|
)
|
||||||
|
|
||||||
|
wait 1
|
||||||
|
currentConversationDialog\SignalDialogChoiceSelected player, dialogChoice
|
||||||
|
game.Chat\Chat(
|
||||||
|
currentConversationPartner,
|
||||||
|
sanitizeMessage(dialogChoice.ResponseDialog),
|
||||||
|
getChatColor currentTone!
|
||||||
|
)
|
||||||
|
|
||||||
|
variableDelay dialogChoice.ResponseDialog
|
||||||
|
presentDialogChoices currentConversationPartner, dialogChoice\GetChildren!
|
||||||
|
|
||||||
|
newChoice = (numberText) ->
|
||||||
|
frame = Instance.new "TextButton"
|
||||||
|
frame.BackgroundColor3 = Color3.new 0, 0, 179 / 255
|
||||||
|
frame.AutoButtonColor = false
|
||||||
|
frame.BorderSizePixel = 0
|
||||||
|
frame.Text = ""
|
||||||
|
frame.MouseEnter\connect ->
|
||||||
|
highlightColor frame, currentTone!
|
||||||
|
frame.MouseLeave\connect ->
|
||||||
|
resetColor frame, currentTone!
|
||||||
|
frame.MouseButton1Click\connect ->
|
||||||
|
selectChoice frame
|
||||||
|
frame.RobloxLocked = true
|
||||||
|
|
||||||
|
number = Instance.new "TextLabel"
|
||||||
|
number.Name = "Number"
|
||||||
|
number.TextColor3 = Color3.new 127 / 255, 212 / 255, 255 / 255
|
||||||
|
number.Text = numberText
|
||||||
|
number.FontSize = Enum.FontSize.Size14
|
||||||
|
number.BackgroundTransparency = 1
|
||||||
|
number.Position = UDim2.new 0, 4, 0, 2
|
||||||
|
number.Size = UDim2.new 0, 20, 0, 24
|
||||||
|
number.TextXAlignment = Enum.TextXAlignment.Left
|
||||||
|
number.TextYAlignment = Enum.TextYAlignment.Top
|
||||||
|
number.RobloxLocked = true
|
||||||
|
number.Parent = frame
|
||||||
|
|
||||||
|
prompt = Instance.new "TextLabel"
|
||||||
|
prompt.Name = "UserPrompt"
|
||||||
|
prompt.BackgroundTransparency = 1
|
||||||
|
prompt.TextColor3 = Color3.new 1, 1, 1
|
||||||
|
prompt.FontSize = Enum.FontSize.Size14
|
||||||
|
prompt.Position = UDim2.new 0, 28, 0, 2
|
||||||
|
prompt.Size = UDim2.new 1, -32, 1, -4
|
||||||
|
prompt.TextXAlignment = Enum.TextXAlignment.Left
|
||||||
|
prompt.TextYAlignment = Enum.TextYAlignment.Top
|
||||||
|
prompt.TextWrap = true
|
||||||
|
prompt.RobloxLocked = true
|
||||||
|
prompt.Parent = frame
|
||||||
|
|
||||||
|
frame
|
||||||
|
|
||||||
|
initialize = (parent) ->
|
||||||
|
choices[1] = newChoice "1)"
|
||||||
|
choices[2] = newChoice "2)"
|
||||||
|
choices[3] = newChoice "3)"
|
||||||
|
choices[4] = newChoice "4)"
|
||||||
|
|
||||||
|
lastChoice = newChoice "5)"
|
||||||
|
lastChoice.UserPrompt.Text = "Goodbye!"
|
||||||
|
lastChoice.Size = UDim2.new 1, 0, 0, 28
|
||||||
|
|
||||||
|
mainFrame = Instance.new "Frame"
|
||||||
|
mainFrame.Name = "UserDialogArea"
|
||||||
|
mainFrame.Size = UDim2.new 0, 350, 0, 200
|
||||||
|
mainFrame.Style = Enum.FrameStyle.ChatBlue
|
||||||
|
mainFrame.Visible = false
|
||||||
|
|
||||||
|
imageLabel = Instance.new "ImageLabel"
|
||||||
|
imageLabel.Name = "Tail"
|
||||||
|
imageLabel.Size = UDim2.new 0, 62, 0, 53
|
||||||
|
imageLabel.Position = UDim2.new 1, 8, 0.25
|
||||||
|
imageLabel.Image = "rbxasset://textures/chatBubble_botBlue_tailRight.png"
|
||||||
|
imageLabel.BackgroundTransparency = 1
|
||||||
|
imageLabel.RobloxLocked = true
|
||||||
|
imageLabel.Parent = mainFrame
|
||||||
|
|
||||||
|
for _, obj in pairs choices
|
||||||
|
obj.RobloxLocked = true
|
||||||
|
obj.Parent = mainFrame
|
||||||
|
lastChoice.RobloxLocked = true
|
||||||
|
lastChoice.Parent = mainFrame
|
||||||
|
|
||||||
|
mainFrame.RobloxLocked = true
|
||||||
|
mainFrame.Parent = parent
|
||||||
|
|
||||||
|
doDialog = (dialog) ->
|
||||||
|
while not Instance.Lock dialog, player
|
||||||
|
wait!
|
||||||
|
|
||||||
|
if dialog.InUse
|
||||||
|
Instance.Unlock dialog
|
||||||
|
return
|
||||||
|
else
|
||||||
|
dialog.InUse = true
|
||||||
|
Instance.Unlock dialog
|
||||||
|
|
||||||
|
currentConversationDialog = dialog
|
||||||
|
game.Chat\Chat dialog.Parent, dialog.InitialPrompt, getChatColor dialog.Tone
|
||||||
|
variableDelay dialog.InitialPrompt
|
||||||
|
|
||||||
|
presentDialogChoices dialog.Parent, dialog\GetChildren!
|
||||||
|
|
||||||
|
checkForLeaveArea = ->
|
||||||
|
while currentConversationDialog
|
||||||
|
if currentConversationDialog.Parent and (
|
||||||
|
player\DistanceFromCharacter currentConversationDialog.Parent.Position >= currentConversationDialog.ConversationDistance
|
||||||
|
)
|
||||||
|
wanderDialog!
|
||||||
|
|
||||||
|
wait 1
|
||||||
|
|
||||||
|
startDialog = (dialog) ->
|
||||||
|
if dialog.Parent and dialog.Parent\IsA "BasePart"
|
||||||
|
if player\DistanceFromCharacter(dialog.Parent.Position) >= dialog.ConversationDistance
|
||||||
|
showMessage tooFarAwayMessage, tooFarAwaySize
|
||||||
|
return
|
||||||
|
|
||||||
|
for dialog, gui in pairs dialogMap
|
||||||
|
if dialog and gui
|
||||||
|
gui.Enabled = false
|
||||||
|
|
||||||
|
renewKillswitch dialog
|
||||||
|
|
||||||
|
delay 1, checkForLeaveArea
|
||||||
|
doDialog dialog
|
||||||
|
|
||||||
|
removeDialog = (dialog) ->
|
||||||
|
if dialogMap[dialog]
|
||||||
|
dialogMap[dialog]\Remove!
|
||||||
|
dialogMap[dialog] = nil
|
||||||
|
if dialogConnections[dialog]
|
||||||
|
dialogConnections[dialog]\disconnect!
|
||||||
|
dialogConnections[dialog] = nil
|
||||||
|
|
||||||
|
addDialog = (dialog) ->
|
||||||
|
if dialog.Parent
|
||||||
|
if dialog.Parent\IsA "BasePart"
|
||||||
|
chatGui = chatNotificationGui\clone!
|
||||||
|
chatGui.Enabled = not dialog.InUse
|
||||||
|
chatGui.Adornee = dialog.Parent
|
||||||
|
chatGui.RobloxLocked = true
|
||||||
|
chatGui.Parent = game.CoreGui
|
||||||
|
chatGui.Image.Button.MouseButton1Click\connect ->
|
||||||
|
startDialog dialog
|
||||||
|
|
||||||
|
setChatNotificationTone chatGui, dialog.Purpose, dialog.Tone
|
||||||
|
|
||||||
|
dialogMap[dialog] = chatGui
|
||||||
|
|
||||||
|
dialogConnections[dialog] = dialog.Changed\connect (prop) ->
|
||||||
|
if prop == "Parent" and dialog.Parent
|
||||||
|
--This handles the reparenting case, seperate from removal case
|
||||||
|
removeDialog dialog
|
||||||
|
addDialog dialog
|
||||||
|
elseif prop == "InUse"
|
||||||
|
chatGui.Enabled = not currentConversationDialog and not dialog.InUse
|
||||||
|
if dialog == currentConversationDialog
|
||||||
|
timeoutDialog!
|
||||||
|
|
||||||
|
elseif prop == "Tone" or prop == "Purpose"
|
||||||
|
setChatNotificationTone chatGui, dialog.Purpose, dialog.Tone
|
||||||
|
|
||||||
|
else -- still need to listen to parent changes even if current parent is not a BasePart
|
||||||
|
dialogConnections[dialog] = dialog.Changed\connect (prop) ->
|
||||||
|
if prop == "Parent" and dialog.Parent
|
||||||
|
--This handles the reparenting case, seperate from removal case
|
||||||
|
removeDialog dialog
|
||||||
|
addDialog dialog
|
||||||
|
|
||||||
|
fetchScripts = ->
|
||||||
|
model = game\GetService("InsertService")\LoadAsset 39226062
|
||||||
|
if type(model) == "string" -- load failed, lets try again
|
||||||
|
wait 0.1
|
||||||
|
model = game\GetService("InsertService")\LoadAsset 39226062
|
||||||
|
return if type(model) == "string" -- not going to work, lets bail
|
||||||
|
|
||||||
|
waitForChild model, "TimeoutScript"
|
||||||
|
timeoutScript = model.TimeoutScript
|
||||||
|
waitForChild model, "ReenableDialogScript"
|
||||||
|
reenableDialogScript = model.ReenableDialogScript
|
||||||
|
|
||||||
|
onLoad = ->
|
||||||
|
waitForProperty game.Players, "LocalPlayer"
|
||||||
|
player = game.Players.LocalPlayer
|
||||||
|
waitForProperty player, "Character"
|
||||||
|
|
||||||
|
--print "Fetching Scripts"
|
||||||
|
fetchScripts!
|
||||||
|
|
||||||
|
--print "Creating Guis"
|
||||||
|
createChatNotificationGui!
|
||||||
|
|
||||||
|
--print "Creating MessageDialog"
|
||||||
|
createMessageDialog!
|
||||||
|
messageDialog.RobloxLocked = true
|
||||||
|
messageDialog.Parent = gui
|
||||||
|
|
||||||
|
--print "Waiting for BottomLeftControl"
|
||||||
|
waitForChild gui, "BottomLeftControl"
|
||||||
|
|
||||||
|
--print "Initializing Frame"
|
||||||
|
frame = Instance.new "Frame"
|
||||||
|
frame.Name = "DialogFrame"
|
||||||
|
frame.Position = UDim2.new 0, 0, 0, 0
|
||||||
|
frame.Size = UDim2.new 0, 0, 0, 0
|
||||||
|
frame.BackgroundTransparency = 1
|
||||||
|
frame.RobloxLocked = true
|
||||||
|
frame.Parent = gui.BottomLeftControl
|
||||||
|
initialize frame
|
||||||
|
|
||||||
|
--print "Adding Dialogs"
|
||||||
|
game.CollectionService.ItemAdded\connect (obj) ->
|
||||||
|
if obj\IsA "Dialog"
|
||||||
|
addDialog obj
|
||||||
|
|
||||||
|
game.CollectionService.ItemRemoved\connect (obj) ->
|
||||||
|
if obj\IsA "Dialog"
|
||||||
|
removeDialog obj
|
||||||
|
|
||||||
|
for _, obj in pairs game.CollectionService\GetCollection "Dialog"
|
||||||
|
if obj\IsA "Dialog"
|
||||||
|
addDialog obj
|
||||||
|
|
||||||
|
onLoad!
|
||||||
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
|
|
@ -0,0 +1,20 @@
|
||||||
|
local deepakTestingPlace = 3569749
|
||||||
|
local sc = game:GetService("ScriptContext")
|
||||||
|
local tries = 0
|
||||||
|
while not sc and tries < 3 do
|
||||||
|
tries = tries + 1
|
||||||
|
sc = game:GetService("ScriptContext")
|
||||||
|
wait(0.2)
|
||||||
|
end
|
||||||
|
if sc then
|
||||||
|
sc:RegisterLibrary("Libraries/RbxGui", "45284430")
|
||||||
|
sc:RegisterLibrary("Libraries/RbxGear", "45374389")
|
||||||
|
if game.PlaceId == deepakTestingPlace then
|
||||||
|
sc:RegisterLibrary("Libraries/RbxStatus", "52177566")
|
||||||
|
end
|
||||||
|
sc:RegisterLibrary("Libraries/RbxUtility", "60595411")
|
||||||
|
sc:RegisterLibrary("Libraries/RbxStamper", "73157242")
|
||||||
|
return sc:LibraryRegistrationComplete()
|
||||||
|
else
|
||||||
|
return print("failed to find script context, libraries did not load")
|
||||||
|
end
|
||||||
|
|
@ -0,0 +1,26 @@
|
||||||
|
-- Library Registration Script
|
||||||
|
-- This script is used to register RbxLua libraries on game servers, so game scripts have
|
||||||
|
-- access to all of the libraries (otherwise only local scripts do)
|
||||||
|
|
||||||
|
deepakTestingPlace = 3569749
|
||||||
|
sc = game\GetService "ScriptContext"
|
||||||
|
tries = 0
|
||||||
|
|
||||||
|
while not sc and tries < 3
|
||||||
|
tries += 1
|
||||||
|
sc = game\GetService "ScriptContext"
|
||||||
|
wait 0.2
|
||||||
|
|
||||||
|
if sc
|
||||||
|
sc\RegisterLibrary "Libraries/RbxGui", "45284430"
|
||||||
|
sc\RegisterLibrary "Libraries/RbxGear", "45374389"
|
||||||
|
|
||||||
|
if game.PlaceId == deepakTestingPlace
|
||||||
|
sc\RegisterLibrary "Libraries/RbxStatus", "52177566"
|
||||||
|
|
||||||
|
sc\RegisterLibrary "Libraries/RbxUtility", "60595411"
|
||||||
|
sc\RegisterLibrary "Libraries/RbxStamper", "73157242"
|
||||||
|
sc\LibraryRegistrationComplete!
|
||||||
|
|
||||||
|
else
|
||||||
|
print "failed to find script context, libraries did not load"
|
||||||
Loading…
Reference in New Issue