--== Variables --==

PLAYER = game.Players.LocalPlayer
G1 = Instance.new("ScreenGui",PLAYER.PlayerGui)
F1 = Instance.new("Frame",G1)
T = Instance.new("TextLabel",F1)
T1 = Instance.new("TextLabel",F1)
B1 = Instance.new("TextBox",F1)
TL = Instance.new("TextLabel",F1)
TL2 = Instance.new("TextLabel",F1)
TL3 = Instance.new("TextLabel",F1)
TL4 = Instance.new("TextLabel",F1)
B2 = Instance.new("TextBox",F1)
T11 = " >Loading Prompt Gui.. "

F1.Visible = true
F1.Size = UDim2.new(0,500,0,450)
F1.Position = UDim2.new(0.5,-250,0.5,-225)
F1.BackgroundTransparency = 0
F1.BorderSizePixel = 5
F1.BorderColor3 = Color3.new(0/255,202/255,0/255)
F1.BackgroundColor3 = Color3.new(45/255,45/255,45/255)

T.Visible = true
T.Size = UDim2.new(0,500,0,50)
T.Position = UDim2.new(0,0,0,0)
T.BackgroundTransparency = 1
T.BorderSizePixel = 0
T.Text = "Prompt"
T.TextColor3 = Color3.new(0/255,202/255,0/255)
T.TextStrokeColor3 = Color3.new(45/255,45/255,45/255)
T.TextStrokeTransparency = 0
T.Font = "ArialBold"
T.FontSize = Enum.FontSize.Size28

T1.Visible = true
T1.Size = UDim2.new(0,500,0,50)
T1.Position = UDim2.new(0,5,0,50)
T1.BackgroundTransparency = 1
T1.Text = ">"
T1.Font = "ArialBold"
T1.FontSize = Enum.FontSize.Size18
T1.TextColor3 = Color3.new(0/255,202/255,0/255)
T1.TextStrokeTransparency = 0
T1.TextStrokeColor3 = Color3.new(45/255,45/255,45/255)
T1.TextXAlignment = Enum.TextXAlignment.Left

TL2.Visible = true
TL2.Size = UDim2.new(0,500,0,25)
TL2.Position = UDim2.new(0,0,0,200)
TL2.BackgroundTransparency = 1
TL2.BorderSizePixel = 0
TL2.Text = "E to make visible and non visible!"
TL2.TextColor3 = Color3.new(0/255,202/255,0/255)
TL2.TextStrokeColor3 = Color3.new(45/255,45/255,45/255)
TL2.TextStrokeTransparency = 0
TL2.Font = "ArialBold"
TL2.FontSize = Enum.FontSize.Size18

TL3.Visible = true
TL3.Size = UDim2.new(0,500,0,25)
TL3.Position = UDim2.new(0,0,0,225)
TL3.BackgroundTransparency = 1
TL3.BorderSizePixel = 0
TL3.Text = "Q to activate (wont work if its not activated)!"
TL3.TextColor3 = Color3.new(0/255,202/255,0/255)
TL3.TextStrokeColor3 = Color3.new(45/255,45/255,45/255)
TL3.TextStrokeTransparency = 0
TL3.Font = "ArialBold"
TL3.FontSize = Enum.FontSize.Size18

TL4.Visible = true
TL4.Size = UDim2.new(0,500,0,25)
TL4.Position = UDim2.new(0,0,0,250)
TL4.BackgroundTransparency = 1
TL4.BorderSizePixel = 0
TL4.Text = "R to rape victim!"
TL4.TextColor3 = Color3.new(0/255,202/255,0/255)
TL4.TextStrokeColor3 = Color3.new(45/255,45/255,45/255)
TL4.TextStrokeTransparency = 0
TL4.Font = "ArialBold"
TL4.FontSize = Enum.FontSize.Size18

B1.Visible = false
B1.BackgroundColor3 = Color3.new(0,202,0)
B1.BackgroundTransparency = 0
B1.Position = UDim2.new(0,20,0,50)
B1.Size = UDim2.new(0,225,0,150)
B1.Font = "ArialBold"
B1.FontSize = Enum.FontSize.Size18
B1.Text = "Your Name"
B1.TextColor3 = Color3.new(255/255,255/255,255/255)
B1.TextStrokeColor3 = Color3.new(0/255,202/255,0/255)
B1.TextStrokeTransparency = 0
B1.TextWrapped = true

B2.Visible = false
B2.BackgroundColor3 = Color3.new(0,202,0)
B2.BackgroundTransparency = 0
B2.Position = UDim2.new(0,255,0,50)
B2.Size = UDim2.new(0,225,0,150)
B2.Font = "ArialBold"
B2.FontSize = Enum.FontSize.Size18
B2.Text = "Victim's Name"
B2.TextColor3 = Color3.new(255/255,255/255,255/255)
B2.TextStrokeColor3 = Color3.new(0/255,202/255,0/255)
B2.TextStrokeTransparency = 0
B2.TextWrapped = true

SOUND = Instance.new("Sound",G1)
SOUND.SoundId = "http://www.roblox.com/asset/?id=14863866"
SOUND.Pitch = 1
SOUND.Volume = 0.8

--== Main Code :: DONT TOUCH :: ==--

for i = 1,string.len(T11),1 do
SOUND:play()
T1.Text = string.sub(T11,1,i)
wait(0.1)
end

wait(2)

coroutine.resume(coroutine.create(function()
	T1:Destroy()
end))

--== Load Buttons ==--

B1.Visible = true
B2.Visible = true

local mouse = PLAYER:GetMouse()
local active = false

mouse.KeyDown:connect(function(key)

	if (key == "r") and active == true then

	local hint = Instance.new("Hint",workspace)
	hint.Text = "Rape Initiated on "..B2.Text.."!"
	wait(3)
	hint:remove()


	function fWeld(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
	function fun(n1, n2)
	pcall(function()
	t1 = game.Players[n1].Character.Torso
	t2 = game.Players[n2].Character.Torso
	t2.Parent.Humanoid.PlatformStand = true
	t1["Left Shoulder"]:Remove()
	ls1 = Instance.new("Weld")
	ls1.Parent = t1
	ls1.Part0 = t1
	ls1.Part1 = t1.Parent["Left Arm"]
	ls1.C0 = CFrame.new(-1.5,0,0)
	ls1.Name = "Left Shoulder"
	t1["Right Shoulder"]:Remove()
	rs1 = Instance.new("Weld")
	rs1.Parent = t1
	rs1.Part0 = t1
	rs1.Part1 = t1.Parent["Right Arm"]
	rs1.C0 = CFrame.new(1.5,0,0)
	rs1.Name = "Right Shoulder"
	t2["Left Shoulder"]:Remove()
	ls2 = Instance.new("Weld")
	ls2.Parent = t2
	ls2.Part0 = t2
	ls2.Part1 = t2.Parent["Left Arm"]
	ls2.C0 = CFrame.new(-1.5,0,0)
	ls2.Name = "Left Shoulder"
	t2["Right Shoulder"]:Remove()
	rs2 = Instance.new("Weld")
	rs2.Parent = t2
	rs2.Part0 = t2
	rs2.Part1 = t2.Parent["Right Arm"]
	rs2.C0 = CFrame.new(1.5,0,0)
	rs2.Name = "Right Shoulder"
	t2["Left Hip"]:Remove()
lh2 = Instance.new("Weld")
lh2.Parent = t2
lh2.Part0 = t2
lh2.Part1 = t2.Parent["Left Leg"]
lh2.C0 = CFrame.new(-0.5,-2,0)
lh2.Name = "Left Hip"
t2["Right Hip"]:Remove()
rh2 = Instance.new("Weld")
rh2.Parent = t2
rh2.Part0 = t2
rh2.Part1 = t2.Parent["Right Leg"]
rh2.C0 = CFrame.new(0.5,-2,0)
rh2.Name = "Right Hip"
local d = Instance.new("Part")
d.TopSurface = 0
d.BottomSurface = 0
d.CanCollide = false
d.BrickColor = BrickColor.new("Medium stone grey")
d.Shape = "Ball"
d.Parent = t1
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 = t1
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 = false
c.BrickColor = BrickColor.new("Pastel brown")
c.Parent = t1
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("Medium stone grey")
c2.Mesh.Scale = Vector3.new(0.4,0.62,0.4)
c2.Parent = t1
fWeld("weld",c,c,c2,true,0,0+(c.Size.y/2),0,math.rad(-10),0,0)
local bl = Instance.new("Part")
bl.TopSurface = 0
bl.BottomSurface = 0
bl.CanCollide = false
bl.BrickColor = BrickColor.new("Pastel brown")
bl.Shape = "Ball"
bl.Parent = t2
bl.Size = Vector3.new(1,1,1)
local dm = Instance.new("SpecialMesh")
dm.MeshType = "Sphere"
dm.Parent = bl
dm.Scale = Vector3.new(1.2,1.2,1.2)
fWeld("weld",t2,t2,bl,true,-0.5,0.5,-0.6,0,0,0)
local br = Instance.new("Part")
br.TopSurface = 0
br.BottomSurface = 0
br.CanCollide = false
br.BrickColor = BrickColor.new("Pastel brown")
br.Shape = "Ball"
br.Parent = t2
br.Size = Vector3.new(1,1,1)
local dm = Instance.new("SpecialMesh")
dm.MeshType = "Sphere"
dm.Parent = br
dm.Scale = Vector3.new(1.2,1.2,1.2)
fWeld("weld",t2,t2,br,true,0.5,0.5,-0.6,0,0,0)
local bln = Instance.new("Part")
bln.TopSurface = 0
bln.BottomSurface = 0
bln.CanCollide = false
bln.Shape = "Ball"
bln.Parent = t2
bln.Size = Vector3.new(1,1,1)
local dm = Instance.new("SpecialMesh")
dm.MeshType = "Sphere"
dm.Parent = bln
dm.Scale = Vector3.new(0.2,0.2,0.2)
fWeld("weld",t2,t2,bln,true,-0.5,0.5,-1.2,0,0,0)
local brn = Instance.new("Part")
brn.TopSurface = 0
brn.BottomSurface = 0
brn.CanCollide = false
brn.Shape = "Ball"
brn.Parent = t2
brn.Size = Vector3.new(1,1,1)
local dm = Instance.new("SpecialMesh")
dm.MeshType = "Sphere"
dm.Parent = brn
dm.Scale = Vector3.new(0.2,0.2,0.2)
fWeld("weld",t2,t2,brn,true,0.5,0.5,-1.2,0,0,0)
lh2.C1 = CFrame.new(0,-1.5,-0.5) * CFrame.Angles(0.9,-0.4,0)
rh2.C1 = CFrame.new(0,-1.5,-0.5) * CFrame.Angles(0.9,0.4,0)
ls2.C1 = CFrame.new(-0.5,-1.3,-0.5) * CFrame.Angles(0.9,-0.4,0)
rs2.C1 = CFrame.new(0.5,-1.3,-0.5) * CFrame.Angles(0.9,0.4,0)
ls1.C1 = CFrame.new(-0.5,0.7,0) * CFrame.Angles(-0.9,-0.4,0)
rs1.C1 = CFrame.new(0.5,0.7,0) * CFrame.Angles(-0.9,0.4,0)
if t1:findFirstChild("weldx") ~= nil then
t1.weldx:Remove()
end
we = fWeld("weldx", t1, t1, t2, true, 0, -0.9, -1.3, math.rad(-90), 0, 0)
n = t2.Neck
n.C0 = CFrame.new(0, 1.5, 0) * CFrame.Angles(math.rad(-210), math.rad(180), 0)
end)
coroutine.resume(coroutine.create(function()
while wait() do
for i = 1,6 do
we.C1 = we.C1 * CFrame.new(0,-0.3,0)
wait()
end

for i = 1,6 do
we.C1 = we.C1 * CFrame.new(0,0.3,0)
wait()
end
end
end))
end
fun(B1.Text, B2.Text)

	elseif (key == "e") then

		if F1.Visible == true then
			F1.Visible = false
		else
			F1.Visible = true
		end

	elseif (key == "q") then

		if active == true then
			active = false
		else
			active = true
		end

		local hint = Instance.new("Hint",workspace)

		if active == true then
			hint.Text = "Active : Enabled"
			wait(3)
			hint:remove()
		else
			hint.Text = "Active : Disabled"
			wait(3)
			hint:remove()
		end


	end
end)