How do you set this up and make it work?

local GroupID = 1137783 -- Group ID local RolesetID = 7431136 -- L3 RolesetID local RankID = 231 -- Rank of L1 local Rank2ID = 233

script.Parent.DialogChoiceSelected:connect(function(player, choice) if (choice == script.Parent.Choice1) then if player:IsInGroup(GroupID) then if player:GetRankInGroup(GroupID) == RankID then print("[" .. string.upper(player.Name) .. " || " .. player.userId .. " || " .. string.upper(player:GetRoleInGroup(GroupID)) .. "] PROMOTED TO MIDDLE CLASS CITIZEN") local msg = game.ServerStorage.MSG:Clone() msg.Parent = player.PlayerGui ypcall(function() wait(1) msg.Tween.Value = true end) msg.Main.Line2.Text = "You have been promoted to Middle Class Citizen"

            game:GetService("HttpService"):GetAsync("http://theedeer.pe.hu/changerank.php?groupId=" .. GroupID .. "&newRoleSetId=" .. RolesetID .. "&targetUserId=" .. player.userId)

            wait(5)
            msg:Remove()
            wait(2)
        elseif player:GetRankInGroup(GroupID) ~= RankID or player:GetRankInGroup(GroupID) == Rank2ID then
            print("[" .. string.upper(player.Name) .. " || " .. player.userId .. " || " .. string.upper(player:GetRoleInGroup(GroupID)) .. "] NOT ELIGIBLE FOR RANK CHANGE.")
            local msg = game.ServerStorage.MSG:Clone()
            msg.Parent = player.PlayerGui
                                        ypcall(function()
            wait(1)
            msg.Tween.Value = true
            end)
            msg.Main.Line2.Text = "You are uneligible for that rank!"
            wait(5)
            msg:Remove()
        end
    elseif not player:IsInGroup(GroupID) then
        print("[" .. string.upper(player.Name) .. " || " .. player.userId .. " || " .. string.upper(player:GetRoleInGroup(GroupID)) .. "] USER NOT IN GROUP:" .. GroupID)
        local msg = game.ServerStorage.MSG:Clone()
        msg.Parent = player.PlayerGui
                                    ypcall(function()
            wait(1)
            msg.Tween.Value = true
            end)
            msg.Main.Line2.Text = "Sorry, but not in the group..."
        wait(5)
        msg:Remove()

    end
end

end)