Block Adder

-- Farewell Infortality.
-- Version: 2.82
-- Instances:
local BlockAdder = Instance.new("ScreenGui")
local Frame = Instance.new("Frame")
local NameHack = Instance.new("TextLabel")
local Drag = Instance.new("TextButton")
local Insert = Instance.new("TextButton")
local InstanceDropDown = Instance.new("TextButton")
local ParentDropDown = Instance.new("TextButton")
local Title = Instance.new("TextButton")
local Title_2 = Instance.new("TextButton")
--Properties:
BlockAdder.Name = "Block Adder"
BlockAdder.Parent = game.Players.LocalPlayer:WaitForChild("PlayerGui")
BlockAdder.ZIndexBehavior = Enum.ZIndexBehavior.Sibling

Frame.Parent = BlockAdder
Frame.BackgroundColor3 = Color3.new(0.784314, 0.784314, 0.784314)
Frame.Position = UDim2.new(0.197229773, 0, 0.230958238, 0)
Frame.Size = UDim2.new(0, 688, 0, 247)

NameHack.Name = "NameHack"
NameHack.Parent = Frame
NameHack.BackgroundColor3 = Color3.new(1, 1, 1)
NameHack.BackgroundTransparency = 3242342
NameHack.Position = UDim2.new(0.1134267, 0, 0.0688142926, 0)
NameHack.Size = UDim2.new(0, 530, 0, 42)
NameHack.Font = Enum.Font.SciFi
NameHack.Text = "Block Adder"
NameHack.TextColor3 = Color3.new(1, 0.278431, 0.0588235)
NameHack.TextSize = 20
NameHack.TextStrokeColor3 = Color3.new(1, 0, 0)

Drag.Name = "Drag"
Drag.Parent = Frame
Drag.BackgroundColor3 = Color3.new(1, 0, 0)
Drag.BorderColor3 = Color3.new(0.207843, 0, 0)
Drag.Size = UDim2.new(0, 688, 0, 17)
Drag.Font = Enum.Font.SciFi
Drag.Text = "Drag"
Drag.TextColor3 = Color3.new(0, 0, 0)
Drag.TextSize = 14

Insert.Name = "Insert"
Insert.Parent = Frame
Insert.BackgroundColor3 = Color3.new(1, 1, 1)
Insert.BackgroundTransparency = 0.5
Insert.BorderColor3 = Color3.new(1, 1, 1)
Insert.Position = UDim2.new(0, 173, 0, 205)
Insert.Size = UDim2.new(0.534883738, 0, 0.00854562502, 25)
Insert.Text = "Insert"
Insert.TextColor3 = Color3.new(0.372549, 0.372549, 0.372549)
Insert.TextSize = 10

InstanceDropDown.Name = "Instance Drop Down"
InstanceDropDown.Parent = Frame
InstanceDropDown.BackgroundColor3 = Color3.new(1, 1, 1)
InstanceDropDown.BackgroundTransparency = 0.5
InstanceDropDown.BorderColor3 = Color3.new(1, 1, 1)
InstanceDropDown.Position = UDim2.new(0, 408, 0, 73)
InstanceDropDown.Size = UDim2.new(0.388359904, 0, 0.00854566321, 25)
InstanceDropDown.Text = "Select"
InstanceDropDown.TextColor3 = Color3.new(0.372549, 0.372549, 0.372549)
InstanceDropDown.TextSize = 10

ParentDropDown.Name = "Parent Drop Down"
ParentDropDown.Parent = Frame
ParentDropDown.BackgroundColor3 = Color3.new(1, 1, 1)
ParentDropDown.BackgroundTransparency = 0.5
ParentDropDown.BorderColor3 = Color3.new(1, 1, 1)
ParentDropDown.Position = UDim2.new(0, 29, 0, 74)
ParentDropDown.Size = UDim2.new(0.452034891, 0, 0.00854562502, 25)
ParentDropDown.Text = "Workspace"
ParentDropDown.TextColor3 = Color3.new(0.372549, 0.372549, 0.372549)
ParentDropDown.TextSize = 10

Title.Name = "Title"
Title.Parent = Frame
Title.Active = false
Title.BackgroundColor3 = Color3.new(1, 1, 1)
Title.BackgroundTransparency = 1
Title.BorderColor3 = Color3.new(1, 1, 1)
Title.Position = UDim2.new(0, 401, 0, 45)
Title.Size = UDim2.new(0.397080988, 0, 0.00854566321, 25)
Title.AutoButtonColor = false
Title.Text = "What you want:"
Title.TextColor3 = Color3.new(0, 0, 0)
Title.TextSize = 10

Title_2.Name = "Title"
Title_2.Parent = Frame
Title_2.Active = false
Title_2.BackgroundColor3 = Color3.new(1, 1, 1)
Title_2.BackgroundTransparency = 1
Title_2.BorderColor3 = Color3.new(1, 1, 1)
Title_2.Position = UDim2.new(0, 44, 0, 46)
Title_2.Size = UDim2.new(0.417151153, 0, 0.00854562502, 25)
Title_2.AutoButtonColor = false
Title_2.Text = "Parent:"
Title_2.TextColor3 = Color3.new(0, 0, 0)
Title_2.TextSize = 10
-- Scripts:
function SCRIPT_ARVU83_FAKESCRIPT() -- Drag.LocalScript
	local script = Instance.new('LocalScript')
	script.Parent = Drag
	wanttobemoved=script.Parent.Parent
	X=wanttobemoved.Position.X.Offset
	Y=wanttobemoved.Position.Y.Offset
	XS=wanttobemoved.Position.X.Scale
	YS=wanttobemoved.Position.Y.Scale
	function down(posX,posY)--the positions of the mouse
		drag=true--activate the drag function
		X=wanttobemoved.Position.X.Offset--redefines the value "X"
		Y=wanttobemoved.Position.Y.Offset--redefines the value "Y"
		XS=wanttobemoved.Position.X.Scale
		YS=wanttobemoved.Position.Y.Scale
		DposX=posX-X--the mouse's X position offset by the frame's X position.
		DposY=posY-Y--the mouse's Y position offset by the frame's Y position.
		print(""..DposX..","..DposY.."")--remembers the values DposX and DposY in the output toolbar.
	end
	function up()
		drag=false--deactivate the drag
	end
	function move(posX,posY)--again, the positions of the mouse
		if drag then--if held down then
			wanttobemoved.Position=UDim2.new(XS,posX - DposX,YS,posY - DposY)
		end
	end
	script.Parent.MouseButton1Down:connect(down)
	script.Parent.MouseButton1Up:connect(up)
	script.Parent.MouseLeave:connect(up)
	script.Parent.MouseMoved:connect(move)

end
coroutine.resume(coroutine.create(SCRIPT_ARVU83_FAKESCRIPT))
function SCRIPT_EHOB88_FAKESCRIPT() -- Frame.NewInstanceScript
	local script = Instance.new('Script')
	script.Parent = Frame
	Idd = script.Parent["Instance Drop Down"]
	Pdd = script.Parent["Parent Drop Down"]
	player = script.Parent.Parent.Parent.Parent.Parent

	type = {
	"Decal";
	"Hint";
	"Message";
	"Model";
	"Part";
	"Script";
	"Seat";
	"SpawnLocation";
	"Team";
	"TrussPart";
	"WedgePart";
	}

	parents = {
	"Workspace";
	"Lighting";
	"StarterGui";
	"StarterPack";
	"Teams";
	"Your Character"
	}

	Ilab = {}
	Plab = {}
	ctype = nil
	cparent = "Workspace"

	t = Idd:Clone()
	t.Text = ""
	t.BackgroundTransparency = 0.2
	Iy = 25
	Py = 25

	function dropI()
		for i, v in pairs(type) do
			inew = t:Clone()
			inew.Text = v
			inew.ZIndex = 3
			inew.Position = UDim2.new(0,0,0,Iy)
			Iy = Iy + 25
			Ilab[#Ilab+1] = inew
			inew.Parent = Idd
			inew.MouseButton1Click:connect(function() Iclick(v) end)
		end
		Iy = 25
	end

	function clearI()
		for i, v in pairs(Idd:children()) do
			v:Remove()
		end
	end

	function Iclick(item)
		ctype = item
		clearI()
		Idd.Text = ctype
	end

	function IddClicked()
		if Idd:children()[1] then
			clearI()
		else
			dropI()
		end
	end

	function dropP()
		for i, v in pairs(parents) do
			pnew = t:Clone()
			pnew.Text = v
			pnew.ZIndex = 3
			pnew.Position = UDim2.new(0,0,0,Py)
			Py = Py + 25
			Plab[#Ilab+1] = pnew
			pnew.Parent = Pdd
			pnew.MouseButton1Click:connect(function() Pclick(v) end)
		end
		Py = 25
	end

	function clearP()
		for i, v in pairs(Pdd:children()) do
			v:Remove()
		end
	end

	function Pclick(item)
		cparent = item
		clearP()
		Pdd.Text = cparent
	end

	function PddClicked()
		if Pdd:children()[1] then
			clearP()
		else
			dropP()
		end
	end

	function findParent()
		if cparent == "Workspace" then
			return Workspace
		elseif cparent == "Lighting" then
			return game.Lighting
		elseif cparent == "StarterGui" then
			return game.StarterGui
		elseif cparent == "StarterPack" then
			return game.StarterPack
		elseif cparent == "Teams" then
			if game:findFirstChild("Teams") == nil then
				Instance.new("Teams").Parent = game
			end
			return game.Teams
		elseif cparent == "Your Character" then
			return player.Character
		else
			return nil
		end
	end

	function insert()
		par = findParent()
		if par and ctype then
			ins = Instance.new(ctype)
			ins.Parent = par
			if ins:IsA("BasePart") then
				ins.Position = player.Character.Head.Position
			end
			ctype = nil
			cparent = "Workspace"
			Idd.Text = "Select"
			Pdd.Text = "Workspace"
		end
	end

	Idd.MouseButton1Click:connect(IddClicked)
	Pdd.MouseButton1Click:connect(PddClicked)
	script.Parent.Insert.MouseButton1Click:connect(insert)

end
coroutine.resume(coroutine.create(SCRIPT_EHOB88_FAKESCRIPT))