local LG1 = Instance.new("ScreenGui",game.Players.LocalPlayer.PlayerGui)
    local LG2 = Instance.new("Frame")
    LG2.BackgroundColor3 = Color3.new(0.203922, 0.203922, 0.619608)
    LG2.Name = "Legacy"
    LG2.Size = UDim2.new(0, 300, 0, 300)
    LG2.Parent = LG1
    LG2.Active = true
    LG2.Draggable = true
    local LG3 = Instance.new("TextLabel")
    LG3.BackgroundTransparency = 1
    LG3.Position = UDim2.new(0.170000002, 0, 0, 0)
    LG3.Size = UDim2.new(0, 200, 0, 50)
    LG3.Font = Enum.Font.Legacy
    LG3.FontSize = Enum.FontSize.Size14
    LG3.Text = "Blox GUI"
    LG3.TextColor3 = Color3.new(1, 0.333333, 1)
    LG3.Parent = LG2
    local LG4 = Instance.new("TextBox")
    LG4.BackgroundColor3 = Color3.new(0.333333, 0, 0.498039)
    LG4.Name = "Doer"
    LG4.Position = UDim2.new(0.170000002, 0, 0.300000012, 0)
    LG4.Size = UDim2.new(0, 200, 0, 25)
    LG4.Font = Enum.Font.Legacy
    LG4.FontSize = Enum.FontSize.Size14
    LG4.Text = "Male"
    LG4.TextColor3 = Color3.new(1, 1, 0)
    LG4.Parent = LG2
    local LG5 = Instance.new("TextBox")
    LG5.BackgroundColor3 = Color3.new(0.333333, 0, 0.498039)
    LG5.Name = "Doing"
    LG5.Position = UDim2.new(0.170000002, 0, 0.5, 0)
    LG5.Size = UDim2.new(0, 200, 0, 25)
    LG5.Font = Enum.Font.Legacy
    LG5.FontSize = Enum.FontSize.Size14
    LG5.Text = "Female"
    LG5.TextColor3 = Color3.new(1, 1, 0)
    LG5.Parent = LG2
    local LG6 = Instance.new("TextButton")
    LG6.Active = true
    LG6.BackgroundColor3 = Color3.new(0.423529, 0, 0.635294)
    LG6.Position = UDim2.new(0.170000002, 0, 0.75, 0)
    LG6.Selectable = true
    LG6.Size = UDim2.new(0, 200, 0, 50)
    LG6.Style = Enum.ButtonStyle.Custom
    LG6.Font = Enum.Font.Legacy
    LG6.FontSize = Enum.FontSize.Size14
    LG6.Text = "Now kiss"
    LG6.TextColor3 = Color3.new(1, 1, 0)
    LG6.Parent = LG2







    LG6.MouseButton1Click:connect(function()
local A = LG4.Text
local B = LG5.Text

local Players = game:GetService("Players")
A = Players:findFirstChild(A)
B = Players:findFirstChild(B)
if not A or not B then
    print("You might've accidently spelt someone's name wrong.")
    return nil
end

local DD

local AC = A.Character
local BC = B.Character
if not AC or not BC then
    print("One of the players don't have a character!")
    return nil
end

fWeld = function(zName, zParent, zPart0, zPart1, zCoco, a, b, c, d, e, f)
    local funcw = Instance.new("Weld")
    funcw.Name = zName
    funcw.Parent = zParent
    funcw.Part0 = zPart0
    funcw.Part1 = zPart1
    if (zCoco == true) then
        funcw.C0 = CFrame.new(a, b, c) * CFrame.fromEulerAnglesXYZ(d, e, f)
    else
        funcw.C1 = CFrame.new(a, b, c) * CFrame.fromEulerAnglesXYZ(d, e, f)
    end
    return funcw
end

mdk = function(Player)
    if Player and Player.Character and Player.Character:findFirstChild("Left Arm") and Player.Character:findFirstChild("Right Arm") and Player.Character:findFirstChild("Left Leg") and Player.Character:findFirstChild("Right Leg") then
        pcall(function() Player.Character["Nice thing"]:Remove() end)
        local t1 = Player.Character:findFirstChild("Torso")
        if not t1 and Player.Character:findFirstChild("UpperTorso") then
            t1 = Player.Character.UpperTorso
        end
        local mdl = Instance.new("Model",Player.Character)
        mdl.Name = "Nice thing"
        local d = Instance.new("Part")
        d.TopSurface = 0
        d.BottomSurface = 0
        d.CanCollide = true
        d.BrickColor = BrickColor.new("Pastel brown")
        d.Shape = "Ball"
        d.Parent = mdl
        d.Size = Vector3.new(1,1,1)
        local dm = Instance.new("SpecialMesh")
        dm.MeshType = "Sphere"
        dm.Parent = d
        dm.Scale = Vector3.new(0.4,0.4,0.4)
        fWeld("weld",t1,t1,d,true,-0.2,-1.3,-0.6,0,0,0)
        d2 = d:Clone()
        d2.Parent = mdl
        fWeld("weld",t1,t1,d2,true,0.2,-1.3,-0.6,0,0,0)
        local c = Instance.new("Part")
        DD = c
        c.TopSurface = 0
        c.BottomSurface = 0
        c.CanCollide = true
        c.BrickColor = BrickColor.new("Pastel brown")
        c.Parent = mdl
        c.formFactor = "Custom"
        c.Size = Vector3.new(0.4,1.3,0.4)
        cm = Instance.new("CylinderMesh")
        cm.Parent = c
        a = fWeld("weld",t1,t1,c,true,0,-1,-0.52+(-c.Size.y/2),math.rad(-80),0,0)
        c2 = d:Clone()
        c2.BrickColor = BrickColor.new("Pink")
        c2.Mesh.Scale = Vector3.new(0.4,0.62,0.4)
        c2.Parent = mdl
        fWeld("weld",c,c,c2,true,0,0+(c.Size.y/2),0,math.rad(-10),0,0)
        local d = Instance.new("Part")
        d.TopSurface = 0
        d.BottomSurface = 0
        d.CanCollide = true
        d.BrickColor = BrickColor.new("Pastel brown")
        d.Shape = "Ball" d.Parent = mdl
        d.Size = Vector3.new(1,1,1)
        local dm = Instance.new("SpecialMesh")
        dm.MeshType = "Sphere"
        dm.Parent = d
        dm.Scale = Vector3.new(0.4,0.4,0.4)
        fWeld("weld",t1,t1,d,true,-0.2,-1.3,-0.6,0,0,0)
        d2 = d:Clone()
        d2.Parent = mdl
        fWeld("weld",t1,t1,d2,true,0.2,-1.3,-0.6,0,0,0)
        local c = Instance.new("Part")
        c.TopSurface = 0
        c.BottomSurface = 0
        c.CanCollide = true
        c.BrickColor = BrickColor.new("Pastel brown")
        c.Parent = mdl
        c.formFactor = "Custom"
        c.Size = Vector3.new(0.4,1.3,0.4)
        cm = Instance.new("CylinderMesh")
        cm.Parent = c
        a = fWeld("weld",t1,t1,c,true,0,-1,-0.52+(-c.Size.y/2),math.rad(-80),0,0)
        c2 = d:Clone()
        c2.Name = "Mush"
        c2.BrickColor = BrickColor.new("Pink")
        c2.Mesh.Scale = Vector3.new(0.4,0.62,0.4)
        c2.Parent = mdl
        fWeld("weld",c,c,c2,true,0,0+(c.Size.y/2),0,math.rad(-10),0,0)
    end
end

function MorphA()
    if AC:findFirstChild("Body Colors") then
        AC:findFirstChild("Body Colors"):Destroy()
    end
    wait(0.5)
    for i,v in pairs(AC:GetChildren()) do
        if v.ClassName == "Shirt" or v.ClassName == "Pants" then
            v:Destroy()
        elseif v.ClassName == "Part" or v.ClassName == "MeshPart" then
            v.BrickColor = BrickColor.new("Pastel brown")
        end
    end
    mdk(A)
end
MorphA()

function Womanize(Player)
    if Player and Player.Character and Player.Character:findFirstChild("Left Arm") and Player.Character:findFirstChild("Right Arm") and Player.Character:findFirstChild("Left Leg") and Player.Character:findFirstChild("Right Leg") then
        pcall(function() Player.Character["Nice thing"]:Remove() end)
        local t1 = Player.Character:findFirstChild("Torso")
        if not t1 and Player.Character:findFirstChild("UpperTorso") then
            t1 = Player.Character.UpperTorso
        end
        local B = Instance.new("Part", Player.Character) -- tit 1
        B.Name = "B1"
        B.Shape = "Ball"
        B.CanCollide = false
        B.BrickColor = BrickColor.new("Pastel brown")
        B.Material = "SmoothPlastic"
        B.Size = Vector3.new(1.2, 1.2, 1.2)
        local BW = Instance.new("Weld", B)
        BW.Part0 = t1
        BW.Part1 = B
        BW.C1 = CFrame.new(0.4, -0.2, 0.7)
        local B2 = Instance.new("Part", Player.Character)
        B2.Name = "B2"
        B2.CanCollide = false
        B2.Shape = "Ball"
        B2.BrickColor = BrickColor.new("Pastel brown")
        B2.Material = "SmoothPlastic"
        B2.Size = Vector3.new(1.2, 1.2, 1.2)
        local B2W = Instance.new("Weld", B2)
        B2W.Part0 = t1
        B2W.Part1 = B2
        B2W.C1 = CFrame.new(-0.4, -0.2, 0.7)
        local T = Instance.new("Part", B)
        T.Shape = "Ball"
        T.Name = "T"
        T.CanCollide = false
        T.BrickColor = BrickColor.new("Salmon")
        T.Material = "SmoothPlastic"
        T.Size = Vector3.new(0.3, 0.3, 0.3)
        local TW = Instance.new("Weld", B)
        TW.Part0 = T
        TW.Part1 = B
        TW.C1 = CFrame.new(0, 0, -0.6)
        local T2 = Instance.new("Part", B2)
        T2.Shape = "Ball"
        T2.Name = "T2"
        T2.CanCollide = false
        T2.BrickColor = BrickColor.new("Salmon")
        T2.Material = "SmoothPlastic"
        T2.Size = Vector3.new(0.3, 0.3, 0.3)
        local TW = Instance.new("Weld", B2)
        TW.Part0 = T2
        TW.Part1 = B2
        TW.C1 = CFrame.new(0, 0, -0.6)
        t1["Left Hip"].C0 = CFrame.new(-0.5, -1.2, 0.5) * CFrame.fromEulerAnglesXYZ(math.rad(60), math.rad(10), math.rad(-5))
        t1["Right Hip"].C0 = CFrame.new(0.5, -1.2, 0.5) * CFrame.fromEulerAnglesXYZ(math.rad(60), math.rad(-10), math.rad(5))
    end
end

function MorphB()
    if BC:findFirstChild("Body Colors") then
        BC:findFirstChild("Body Colors"):Destroy()
    end
    wait(0.5)
    for i,v in pairs(BC:GetChildren()) do
        if v.ClassName == "Shirt" or v.ClassName == "Pants" then
            v:Destroy()
        elseif v.ClassName == "Part" or v.ClassName == "MeshPart" then
            v.BrickColor = BrickColor.new("Pastel brown")
        end
    end
    Womanize(B)
end
MorphB()

BC.HumanoidRootPart.CFrame = AC.HumanoidRootPart.CFrame * CFrame.new(5, 0, 0)

wait(1)
function Intercourse()
    AC.Head.Anchored = false
    AC.Humanoid.PlatformStand = true
    wait(5)
    AC.Head.Anchored = true
    wait()

    local CF = DD.CFrame * CFrame.new(0, 1.5, 0.1)
    while wait() do
        BC.HumanoidRootPart.CFrame = CF
        for i=1, 5 do
            wait()
            BC.HumanoidRootPart.CFrame = CFrame.new(CF.X, BC.HumanoidRootPart.CFrame.Y - i/10, CF.Z)
        end
        for i=1, 5 do
            wait()
            BC.HumanoidRootPart.CFrame = CFrame.new(CF.X, BC.HumanoidRootPart.CFrame.Y + i/10, CF.Z)
        end
    end
end
Intercourse()
end)