emoji chatter.lua

--[[
- [x] Implement caching the emojis file list, 
- [x] possibly find a more complete and better list.
- [ ] Implement alternative search algorithm: "Whole word search". Im starting to think this isn't needed. I'll leave it in here just in case tho.
    line 73, line 97
]]

if not game:IsLoaded() then
	game.Loaded:Wait()
end

local insertKey = Enum.KeyCode.Tab
local plrs = game:GetService("Players")
local PlayerGui = plrs.LocalPlayer:FindFirstChildOfClass("PlayerGui")
local EmojiList = Instance.new("ScrollingFrame")
local EmojiButton = Instance.new("TextButton")

function CreateInstance(instance, Properties)
	local instance = Instance.new(instance)
	for i, v in pairs(Properties) do
		instance[i] = v
	end
	return instance
end

CreateInstance("ScrollingFrame")

EmojiList.Name = "EmojiList"
EmojiList.Parent = PlayerGui:WaitForChild("Chat").Frame.ChatBarParentFrame.Frame
EmojiList.Active = true
EmojiList.BackgroundColor3 = Color3.new(0, 0, 0)
EmojiList.BackgroundTransparency = 0.6
EmojiList.BorderSizePixel = 0
EmojiList.Position = UDim2.new(0, 0, 0, 42)
EmojiList.Size = UDim2.new(1, 0, 1, 200)
EmojiList.ScrollBarThickness = 4
EmojiList.VerticalScrollBarInset = "Always"
EmojiList.Visible = false

EmojiButton.Name = "EmojiButton"
EmojiButton.BackgroundColor3 = Color3.new(0.4, 0.4, 0.4)
EmojiButton.BackgroundTransparency = 1
EmojiButton.BorderSizePixel = 0
EmojiButton.Size = UDim2.new(1, 0, 0, 20)
EmojiButton.Font = Enum.Font.SourceSansBold
EmojiButton.TextSize = 18
EmojiButton.TextColor3 = Color3.new(1, 1, 1)
EmojiButton.TextXAlignment = Enum.TextXAlignment.Left

-- game.StarterGui:SetCore("ChatMakeSystemMessage", {
-- Text = "Edge's Emoji Chat Loaded. Fetching Emojis...";
-- Color = Color3.new(255,255,255);
-- Font = Enum.Font.SourceSans;
-- })

printconsole("waiting for emojis to load", 200, 0, 0)

local selected = 0
local chatbox
local emojil
if not isfile("chatter_emojis.json") then
	writefileasync(
		"chatter_emojis.json",
		game:HttpGet("https://raw.githubusercontent.com/joypixels/emoji-toolkit/master/emoji_strategy.json", true)
	)
	emojil = game:GetService("HttpService"):JSONDecode(readfileasync("chatter_emojis.json"))
else
	emojil = game:GetService("HttpService"):JSONDecode(readfileasync("chatter_emojis.json"))
end
local emotes = {}
local emojis = {}
local unicode
if not isfile("unicode.lua") then
	writefile("unicode.lua", game:HttpGet("https://pastebin.com/raw/ESvakmEn", true))
	unicode = loadstring(readfileasync("unicode.lua"))()
else
	unicode = loadstring(readfileasync("unicode.lua"))()
end

for i, w in next, emojil do
	local str = ""
	for v in w.unicode_output:gmatch("[%a%d]+") do
		str = str .. unicode(v)
	end
	emojis[w.shortname:sub(2, -2)] = { str, w.keywords }
	emotes[#emotes + 1] = w.shortname:sub(2, -2)
end

local emotes, names = emojis, emotes
shared.emotes = emotes
shared.names = names

function compare(t, v)
	for _, i in next, t do
		if i:sub(1, #v):lower() == v:lower() then
			return true
		end
	end
end

function insertEmoji(chat, emoji, emojiText)
	if chat and emoji and emojiText then
		local finalEmojiText = ":" .. emojiText .. ":"
		local prefix = string.find(chatbox.Text, ":")
		local swapChat = string.gsub(chat, chatbox.Text:sub(prefix), finalEmojiText)
		local swapEmoji = string.gsub(swapChat, ":[%w%p]+:", emoji)
		return swapEmoji
	end
end

local e = {}
local n = {}
function update(name)
	local t = name
	e = {}
	n = {}
	for i, v in next, emotes do
		if i:sub(1, #t):lower() == t:lower() or compare(v[2], t) then
			n[#n + 1] = i
		end
	end
	table.sort(n, function(a, b)
		return a <= b
	end)
	for i, v in next, n do
		e[i] = emotes[v][1]
	end
	EmojiList:ClearAllChildren()
	local namenum = 1
	local prefix = string.find(chatbox.Text, ":")
	if #e ~= 0 then
		EmojiList.Visible = true
		local YSize = 25
		local num = 1
		for i, v in next, e do
			if i <= 100 then
				local Position = ((num * YSize) - YSize)
				local b = EmojiButton:Clone()
				local emoj = v
				local emojName = n[i]
				b.Name = tostring(namenum)
				b.Parent = EmojiList
				b.Text = emoj .. " :" .. emojName .. ":"
				b.Position = UDim2.new(0, 8, 0, Position + 5)
				EmojiList.CanvasSize = UDim2.new(0, 0, 0, Position + 30)
				if namenum <= 9 then
					EmojiList.Size = UDim2.new(1, 0, 1, EmojiList.CanvasSize.Y.Offset - 40)
				else
					EmojiList.Size = UDim2.new(1, 0, 1, 200)
				end
				namenum = namenum + 1
				num = num + 1
				b.MouseButton1Click:connect(function()
					chatbox.Text = insertEmoji(chatbox.Text, emoj, emojName)
					chatbox:CaptureFocus()
					EmojiList.Visible = false
				end)
			end
		end
	else
		EmojiList.Visible = false
	end
	selected = 0
end

local chatboxFunc = nil
if
	pcall(function()
		chatbox = PlayerGui:WaitForChild("Chat").Frame.ChatBarParentFrame.Frame.BoxFrame.Frame.ChatBar
	end)
then
	local function Index()
		chatbox.Text = string.gsub(chatbox.Text, "\t", "")
		local prefix = string.find(chatbox.Text, ":")
		if prefix ~= nil then
			local search = chatbox.Text:sub(prefix + 1)
			if string.find(search, " ") then
				EmojiList.Visible = false
				return
			end
			local endsearch = string.find(search, ":")
			if endsearch ~= nil then
				update(search:sub(1, endsearch - 1))
				EmojiList.Visible = false
				chatbox.Text = insertEmoji(chatbox.Text, e[1], n[1])
				return
			end
			update(search)
		else
			EmojiList.Visible = false
		end
	end
	chatboxFunc = chatbox:GetPropertyChangedSignal("Text"):Connect(Index)
	PlayerGui.Chat.Frame.ChatBarParentFrame.ChildAdded:Connect(function(newbar)
		wait()
		if newbar:FindFirstChild("BoxFrame") then
			chatbox = PlayerGui.Chat.Frame.ChatBarParentFrame.Frame.BoxFrame.Frame.ChatBar
			if chatboxFunc then
				chatboxFunc:Disconnect()
			end
			chatboxFunc = chatbox:GetPropertyChangedSignal("Text"):Connect(Index)
		end
	end)
else
	print("Custom chat detected.")
end

local function updateView()
	local index = selected - 1
	local topPos = math.ceil(EmojiList.CanvasPosition.Y / 25)
	local bottomPos = math.floor((EmojiList.CanvasPosition.Y + EmojiList.AbsoluteSize.Y) / 25) - 1
	local canvasPos
	if index < topPos then
		canvasPos = index * 25
	elseif index > bottomPos then
		canvasPos = 25 * (index + 1) - EmojiList.AbsoluteSize.Y + 5
	end
	if canvasPos then
		EmojiList.CanvasPosition = Vector2.new(0, canvasPos)
	end
end

game:GetService("UserInputService").InputBegan:connect(function(input)
	if EmojiList.Visible then
		if input.KeyCode == Enum.KeyCode.Down then
			local function scrollDown()
				local deselect = EmojiList:FindFirstChild(selected)
				if deselect ~= nil then
					deselect.BackgroundTransparency = 1
				end
				selected = selected + 1
				local item = EmojiList:FindFirstChild(selected)
				if item ~= nil then
					item.BackgroundTransparency = 0.6
				else
					selected = selected - 1
					local item = EmojiList:FindFirstChild(selected)
					if item ~= nil then
						item.BackgroundTransparency = 0.6
					end
				end
				updateView()
			end

			local releaseEvent, stopped
			releaseEvent = game:GetService("UserInputService").InputEnded:Connect(function(input)
				if input.UserInputType == Enum.UserInputType.Keyboard and input.KeyCode == Enum.KeyCode.Down then
					releaseEvent:Disconnect()
					stopped = true
				end
			end)
			scrollDown()
			wait(0.5)
			while not stopped do
				scrollDown()
				wait()
			end
		elseif input.KeyCode == Enum.KeyCode.Up then
			local function scrollUp()
				local deselect = EmojiList:FindFirstChild(selected)
				if deselect ~= nil then
					deselect.BackgroundTransparency = 1
				end
				selected = selected - 1
				local item = EmojiList:FindFirstChild(selected)
				if item ~= nil then
					item.BackgroundTransparency = 0.6
				else
					selected = selected + 1
					local item = EmojiList:FindFirstChild(selected)
					if item ~= nil then
						item.BackgroundTransparency = 0.6
					end
				end
				updateView()
			end

			local releaseEvent, stopped
			releaseEvent = game:GetService("UserInputService").InputEnded:Connect(function(input)
				if input.UserInputType == Enum.UserInputType.Keyboard and input.KeyCode == Enum.KeyCode.Up then
					releaseEvent:Disconnect()
					stopped = true
				end
			end)
			scrollUp()
			wait(0.5)
			while not stopped do
				scrollUp()
				wait()
			end
		elseif input.KeyCode == insertKey then
			if selected ~= 0 then
				local item = EmojiList:FindFirstChild(selected)
				local prefix = string.find(chatbox.Text, ":")
				if item ~= nil and prefix ~= nil then
					chatbox.Text = insertEmoji(chatbox.Text, e[selected], n[selected])
					chatbox:CaptureFocus()
					EmojiList.Visible = false
				end
			end
		end
	end
end)

-- game.StarterGui:SetCore("ChatMakeSystemMessage", {
-- Text = "Emojis Loaded";
-- Color = Color3.new(255,255,255);
-- Font = Enum.Font.SourceSans;
-- FontSize = Enum.FontSize.Size24;
-- })

printconsole("emojis loaded", 0, 200, 0)