100% found this document useful (1 vote)
2K views4 pages

Sex Script

This script creates a connection between two player characters in a game. It removes and replaces joints on both characters to constrain their movement and connect them together at the torso. It then animates the connection by moving the torsos up and down repeatedly.
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as TXT, PDF, TXT or read online on Scribd
100% found this document useful (1 vote)
2K views4 pages

Sex Script

This script creates a connection between two player characters in a game. It removes and replaces joints on both characters to constrain their movement and connect them together at the torso. It then animates the connection by moving the torsos up and down repeatedly.
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as TXT, PDF, TXT or read online on Scribd

--Instructions Copy and paste into script builder,

--Put two names into "YOURNAME", and "THE VICTIM" (One of them doesn't have to be
you)

--This Script Makes two players in your game.. Well.. I think its in the title ;D

-----------------------------------------------------------------------------------
-----
function fWeld(zName, zParent, zPart0, zPart1, zCoco, a, b, c, d, e, f)
local funcw = [Link]("Weld")
[Link] = zName
[Link] = zParent
funcw.Part0 = zPart0
funcw.Part1 = zPart1
if (zCoco == true) then
funcw.C0 = [Link](a, b, c) * [Link](d, e, f)
else
funcw.C1 = [Link](a, b, c) * [Link](d, e, f)
end
return funcw
end
function fun(n1, n2)
pcall(function()
t1 = [Link][n1].[Link]
t2 = [Link][n2].[Link]
[Link] = true
t1["Left Shoulder"]:Remove()
ls1 = [Link]("Weld")
[Link] = t1
ls1.Part0 = t1
ls1.Part1 = [Link]["Left Arm"]
ls1.C0 = [Link](-1.5,0,0)
[Link] = "Left Shoulder"
t1["Right Shoulder"]:Remove()
rs1 = [Link]("Weld")
[Link] = t1
rs1.Part0 = t1
rs1.Part1 = [Link]["Right Arm"]
rs1.C0 = [Link](1.5,0,0)
[Link] = "Right Shoulder"
t2["Left Shoulder"]:Remove()
ls2 = [Link]("Weld")
[Link] = t2
ls2.Part0 = t2
ls2.Part1 = [Link]["Left Arm"]
ls2.C0 = [Link](-1.5,0,0)
[Link] = "Left Shoulder"
t2["Right Shoulder"]:Remove()
rs2 = [Link]("Weld")
[Link] = t2
rs2.Part0 = t2
rs2.Part1 = [Link]["Right Arm"]
rs2.C0 = [Link](1.5,0,0)
[Link] = "Right Shoulder"
t2["Left Hip"]:Remove()
lh2 = [Link]("Weld")
[Link] = t2
lh2.Part0 = t2
lh2.Part1 = [Link]["Left Leg"]
lh2.C0 = [Link](-0.5,-2,0)
[Link] = "Left Hip"
t2["Right Hip"]:Remove()
rh2 = [Link]("Weld")
[Link] = t2
rh2.Part0 = t2
rh2.Part1 = [Link]["Right Leg"]
rh2.C0 = [Link](0.5,-2,0)
[Link] = "Right Hip"
local d = [Link]("Part")
[Link] = 0
[Link] = 0
[Link] = false
[Link] = [Link]("Medium stone grey")
[Link] = "Ball"
[Link] = t1
[Link] = [Link](1,1,1)
local dm = [Link]("SpecialMesh")
[Link] = "Sphere"
[Link] = d
[Link] = [Link](0.4,0.4,0.4)
fWeld("weld",t1,t1,d,true,-0.2,-1.3,-0.6,0,0,0)
d2 = d:Clone()
[Link] = t1
fWeld("weld",t1,t1,d2,true,0.2,-1.3,-0.6,0,0,0)
local c = [Link]("Part")
[Link] = 0
[Link] = 0
[Link] = false
[Link] = [Link]("Pastel brown")
[Link] = t1
[Link] = "Custom"
[Link] = [Link](0.4,1.3,0.4)
cm = [Link]("CylinderMesh")
[Link] = c
a = fWeld("weld",t1,t1,c,true,0,-1,-0.52+(-[Link].y/2),[Link](-80),0,0)
c2 = d:Clone()
[Link] = [Link]("Medium stone grey")
[Link] = [Link](0.4,0.62,0.4)
[Link] = t1
fWeld("weld",c,c,c2,true,0,0+([Link].y/2),0,[Link](-10),0,0)
local bl = [Link]("Part")
[Link] = 0
[Link] = 0
[Link] = false
[Link] = [Link]("Pastel brown")
[Link] = "Ball"
[Link] = t2
[Link] = [Link](1,1,1)
local dm = [Link]("SpecialMesh")
[Link] = "Sphere"
[Link] = bl
[Link] = [Link](1.2,1.2,1.2)
fWeld("weld",t2,t2,bl,true,-0.5,0.5,-0.6,0,0,0)
local br = [Link]("Part")
[Link] = 0
[Link] = 0
[Link] = false
[Link] = [Link]("Pastel brown")
[Link] = "Ball"
[Link] = t2
[Link] = [Link](1,1,1)
local dm = [Link]("SpecialMesh")
[Link] = "Sphere"
[Link] = br
[Link] = [Link](1.2,1.2,1.2)
fWeld("weld",t2,t2,br,true,0.5,0.5,-0.6,0,0,0)
local bln = [Link]("Part")
[Link] = 0
[Link] = 0
[Link] = false
[Link] = "Ball"
[Link] = t2
[Link] = [Link](1,1,1)
local dm = [Link]("SpecialMesh")
[Link] = "Sphere"
[Link] = bln
[Link] = [Link](0.2,0.2,0.2)
fWeld("weld",t2,t2,bln,true,-0.5,0.5,-1.2,0,0,0)
local brn = [Link]("Part")
[Link] = 0
[Link] = 0
[Link] = false
[Link] = "Ball"
[Link] = t2
[Link] = [Link](1,1,1)
local dm = [Link]("SpecialMesh")
[Link] = "Sphere"
[Link] = brn
[Link] = [Link](0.2,0.2,0.2)
fWeld("weld",t2,t2,brn,true,0.5,0.5,-1.2,0,0,0)
lh2.C1 = [Link](0,-1.5,-0.5) * [Link](0.9,-0.4,0)
rh2.C1 = [Link](0,-1.5,-0.5) * [Link](0.9,0.4,0)
ls2.C1 = [Link](-0.5,-1.3,-0.5) * [Link](0.9,-0.4,0)
rs2.C1 = [Link](0.5,-1.3,-0.5) * [Link](0.9,0.4,0)
ls1.C1 = [Link](-0.5,0.7,0) * [Link](-0.9,-0.4,0)
rs1.C1 = [Link](0.5,0.7,0) * [Link](-0.9,0.4,0)
if t1:findFirstChild("weldx") ~= nil then
[Link]:Remove()
end
we = fWeld("weldx", t1, t1, t2, true, 0, -0.9, -1.3, [Link](-90), 0, 0)
n = [Link]
n.C0 = [Link](0, 1.5, 0) * [Link]([Link](-210), [Link](180), 0)
end)
[Link]([Link](function()
while wait() do
for i = 1,6 do
we.C1 = we.C1 * [Link](0,-0.3,0)
wait()
end

for i = 1,6 do
we.C1 = we.C1 * [Link](0,0.3,0)
wait()
end
end
end))
end
fun("Teqii", "THE VICTIM")

You might also like