Scripting Helpers is winding down operations and is now read-only. More info→
Ad
Log in to vote
-1

What is wrong with my script?

Asked by
oGxbe 0
10 years ago

Please make your question title relevant to your question content. It should be a one-sentence summary in question form.

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

Answer this question