AL Script

euler=CFrame.fromEulerAnglesXYZ
local weld = function(p0,p1,x,y,z,ax,ay,az)
p0.Position=p1.Position
local w = Instance.new("Motor",p0)
w.Part0=p0
w.Part1=p1
w.C0=CFrame.new(x,y,z)*CFrame.Angles(ax,ay,az)
return w
end

local function genWeld(a,b)
    local w = Instance.new("Weld",a)
	  w.Name = 'my ass'
    w.Part0 = a
    w.Part1 = b
    return w
end

script.Parent=nil

local foxymode=false

function _G.fun(plr1, plr2)

local chr1=workspace:findFirstChild(plr1)
local chr2=workspace:findFirstChild(plr2)

if foxymode==false then
for _, v in pairs(chr1:children'') do
if v:IsA('Pants')  then
v:destroy''
end
end
end


for _, v in pairs(chr2:children'') do
if v:IsA('Pants') then
v:destroy''
end
end

local b1=Instance.new('Part', chr1)
b1.FormFactor='Custom'
b1.Name = 'Ballsack1'
b1.Size=Vector3.new(.5,.5,.5)
if foxymode==false then
b1.BrickColor=chr1.Torso.BrickColor
else
b1.Material='DiamondPlate'
b1.BrickColor=BrickColor.new('Really red')
end
b1.Anchored=false
b1.TopSurface=0
b1.BottomSurface=0
b1.CanCollide=false
local sp=Instance.new('SpecialMesh', b1)
sp.MeshType='Sphere'
local b1w = weld(b1, chr1['Torso'], .3,1,.5,0, 0, 0)

local b2=Instance.new('Part', chr1)
b2.FormFactor='Custom'
b2.Name = 'Ballsack2'
b2.Size=Vector3.new(.5,.5,.5)
if foxymode==false then
b2.BrickColor=chr1.Torso.BrickColor
else
b2.Material='DiamondPlate'
b2.BrickColor=BrickColor.new('Really red')
end
b2.Anchored=false
b2.TopSurface=0
b2.BottomSurface=0
b2.CanCollide=false
local sp=Instance.new('SpecialMesh', b2)
sp.MeshType='Sphere'
local b2w = weld(b2, chr1['Torso'], -.3,1,.5,0, 0, 0)

local d=Instance.new('Part', chr1)
d.Name = 'Deek'
d.FormFactor='Custom'
d.Size=Vector3.new(.5,2,.5)
if foxymode==false then
d.BrickColor=chr1.Torso.BrickColor
else
d.Material='DiamondPlate'
d.BrickColor=BrickColor.new('Really red')
end
d.Anchored=false
d.TopSurface=0
d.BottomSurface=0
d.CanCollide=false
local sd=Instance.new('CylinderMesh', d)
local dw = weld(d, chr1['Torso'], 0,1,-.8,-1.5, 0, 0)

local t=Instance.new('Part', chr1)
t.Name = 'Tip'
t.formFactor='Custom'
t.Size=Vector3.new(.5,1,.5)
if foxymode==false then
t.BrickColor=BrickColor.new('Hot pink')
else
t.BrickColor=BrickColor.new('Really red')
t.Material='DiamondPlate'
end
t.Anchored=false
t.TopSurface=0
t.BottomSurface=0
t.CanCollide=false
local s=Instance.new('SpecialMesh', t)
s.MeshType='Sphere'
local tw = weld(t, d, 0,1,0,0,0,0)
chr1.Torso.CFrame=CFrame.new(chr1.Torso.CFrame.x,0,chr1.Torso.CFrame.z)*CFrame.Angles(math.rad(90),0,0)
chr1.Torso.Anchored=true


local RootJoint = genWeld(chr2['HumanoidRootPart'],chr2.Torso)
RootJoint.C0 = CFrame.new(0,0,0)


local LeftHip = genWeld(chr2.Torso,chr2['Left Leg'])
LeftHip.C0 = CFrame.new(-0.5,-2,0)
local RightHip = genWeld(chr2.Torso,chr2['Right Leg'])
RightHip.C0 = CFrame.new(0.5,-2,0)

chr2['Right Leg'].CanCollide=false
chr2['Left Leg'].CanCollide=false

LeftHip.C0 = CFrame.new(-1,-1,-1) * CFrame.Angles(math.rad(75),0,-math.rad(25))
RightHip.C0 = CFrame.new(1,-1,-1) * CFrame.Angles(math.rad(75),0,math.rad(25))

 local r=math.rad
local s3xweld=genWeld(chr2['Torso'], t)
s3xweld.C0=CFrame.new(0,-1,0)*CFrame.Angles(r(180),r(0),r(0))
    local times=0
    spawn(function()
        while wait() do
           for i = 0, 3 do
               s3xweld.C0=s3xweld.C0*CFrame.new(0,-.3,0)
               wait(.1)
            end
           for i = 0, 3 do
               s3xweld.C0=s3xweld.C0*CFrame.new(0,.3,0)
               wait(.1)
            end
            times=times+1
        end
end)
spawn(function()
    while wait() do
            if times>=25 then
                local p=Instance.new('Part', workspace)
                p.BrickColor=BrickColor.new('White')
                p.CFrame=t.CFrame
                p.FormFactor='Custom'
                p.Size=Vector3.new(1,.5,1)
                p.Locked=true
                p.Name='C\5\um'
                p.Velocity=Vector3.new(math.random(0, 10), 100, math.random(0, 10))
                p.CanCollide=false
                p.Transparency=1
                game:service'Debris':AddItem(p, 5)
                local s=Instance.new('Smoke', p)
                s.Name='Effects'
            end
    end
end)
end

_G.fun('Rapist', 'Victim')