local prevposts = ""
while true do wait(1) local MGLUsername = script.Parent.Parent.Parent.Settings.Username.Value local ShowReplies = script.Parent.Parent.Parent.Settings.ShowReplies.Value local posts = game:GetService("HttpService"):GetAsync("http://www.mygameleaf.com/CONNECT/ROBLOX/" .. MGLUsername .. "/" .. tostring(ShowReplies) .. "/", true)
if posts ~= prevposts then
for _, v in pairs(script.Parent:GetChildren()) do
if v.Name == "Writer" or v.Name == "Post" then
v:Destroy()
end
end
if prevposts ~= "" then
script.Parent.Parent.Parent.Open.Glow.Stop.Value = false
script.Parent.Parent.Parent.Open.Glow.Disabled = false
end
prevposts = posts
repeat
local a, b = posts:find("'")
if a and b then
posts = posts:sub(1, a-1) .. "'" .. posts:sub(b+1)
end
wait()
until not posts:find("'")
repeat
local a, b = posts:find("Created by MYGAMELEAF")
if a and b then
posts = posts:sub(1, a-1)
end
until not posts(:find("Created by MYGAMELEAF")
local function giveLS(obj)
local ls = script.LocalScript:clone()
ls.Parent = obj
ls.Disabled = false
end
local totalposts = 0
local prevheight = 0
local prevpos = 0
--[[local RbxGui = assert(LoadLibrary('RbxGui'))
local scrollFrame, scrollUp, scrollDown, recalculateScroll = RbxGui.CreateScrollingFrame(nil, "grid")
scrollFrame.Parent = script.Parent
scrollFrame.Position = UDim2.new(1, -17, 0, 20)
scrollFrame.Size = UDim2.new(1, 0, 1, -20)
local scrollBar = Instance.new("Frame", scrollFrame)
scrollBar.Name = "Scrolling"
scrollBar.BackgroundTransparency = 0.9
scrollBar.BackgroundColor3 = Color3.new(1, 1, 1)
scrollBar.BorderSizePixel = 0
scrollBar.Size = UDim2.new(0, 17, 1, 0)
scrollBar.Position = UDim2.new(0, 0, 0, 0)
scrollDown.Position = UDim2.new(0, 0, 1, -17)
scrollUp.Parent = scrollFrame
scrollDown.Parent = scrollFrame]]
repeat
local a, b = posts:find("<font>")
if a and b then
posts = posts:sub(b+1)
end
local c, d = posts:find("</font>")
if c and d then
local writer = Instance.new("TextLabel", script.Parent)
writer.Name = "Writer"
-- writer.Text = posts:sub(1, c-1)
writer.TextColor3 = totalposts == 0 and BrickColor.Red().Color or Color3.new(0, 170/255, 0)
writer.TextStrokeTransparency = 0
writer.BackgroundTransparency = 1
writer.TextWrapped = true
writer.Size = UDim2.new(1, 0, 0, 15)
giveLS(writer)
-- writer.Position = UDim2.new(0, 0, 0, 15 + 100*totalposts)
repeat wait() until script.Parent.Boundz.Value ~= 13379001707
writer.Position = UDim2.new(0, 0, 0, 20 + prevpos + prevheight)
prevheight = script.Parent.Boundz.Value
prevpos = writer.Position.Y.Offset
writer.Text = posts:sub(1, c-1)
script.Parent.Boundz.Value = 13379001707
writer.TextXAlignment = totalposts == 0 and "Center" or "Left"
writer.FontSize = totalposts == 0 and "Size10" or "Size8"
posts = posts:sub(d+1)
local post = Instance.new("TextLabel", script.Parent)
post.Name = "Post"
post.TextColor3 = Color3.new(1, 1, 1)
post.TextStrokeTransparency = 0
post.BackgroundTransparency = 1
post.TextWrapped = true
post.Size = UDim2.new(1, 0, 0, 1337)
local e, f = posts:find("<font>")
if e and f then
post.Text = posts:sub(1, e-1)
else
post.Text = posts
end
wait()
giveLS(post)
-- post.Position = UDim2.new(0, 0, 0, 30 + 100*totalposts)
repeat wait() until script.Parent.Boundz.Value ~= 13379001707
post.Size = UDim2.new(1, 0, 0, script.Parent.Boundz.Value)
post.Position = UDim2.new(0, 0, 0, 3 + prevpos + prevheight)
prevheight = script.Parent.Boundz.Value
prevpos = post.Position.Y.Offset
wait()
-- post.Text = tostring(prevheight)
script.Parent.Boundz.Value = 13379001707
post.TextXAlignment = totalposts == 0 and "Center" or "Left"
post.TextYAlignment = "Top"
post.FontSize = totalposts == 0 and "Size10" or "Size8"
end
totalposts = totalposts + 1
until (not posts:find("</font>")) or totalposts >= 10
end
wait(60)
end
