--Press L to laugh, press N to stop laughing.
Player = game:GetService("Players").LocalPlayer
mouse = Player:GetMouse()
Character = Player.Character
Torso = Character.Torso
Head = Character.Head
LocalPlayer = game.Players.LocalPlayer
local BC = Character["Body Colors"]
BC.HeadColor = BrickColor.new("Pastel brown")
BC.LeftArmColor = BrickColor.new("Pastel brown")
BC.LeftLegColor = BrickColor.new("Pastel brown")
BC.RightArmColor = BrickColor.new("Pastel brown")
BC.RightLegColor = BrickColor.new("Pastel brown")
BC.TorsoColor = BrickColor.new("Pastel brown")
boi = Instance.new("Sound", Torso)
boi.SoundId = "rbxassetid://135305798"
boi.Volume = 3
boi:Play()
laughter = Instance.new("Sound", Torso)
laughter.Volume = 7
--It was used for stopping the laugh by engineer saying nope, but that was scrapped.
SHUTUP = Instance.new("Sound", Torso)
SHUTUP.Volume = 3

for i,v in pairs(Character:children()) do
    if v:IsA("Hat") then
        v:Destroy()
    end
end
for i,v in pairs(Character:children()) do
    if v:IsA("Accessory") then
        v:Destroy()
    end
end
for i,v in pairs(Character:children()) do
    if v:IsA("Hair") then
        v:Destroy()
    end
end

Character.Head.face.Texture = "rbxassetid://116275649"

local function CreateHat(name, meshid, textureid)
	local h = Instance.new("Accessory")
	h.Name = name
	local han = Instance.new("Part", h)
	han.Name = "Handle"
	local mesh = Instance.new("SpecialMesh", han)
	mesh.Name = "Mesh"
	mesh.MeshId = meshid
	mesh.TextureId = textureid
	return h,han,mesh
end

hum = Character:FindFirstChildOfClass'Humanoid'
local h,han,mesh = CreateHat("Beard", "http://www.roblox.com/asset/?id=157959108", "http://www.roblox.com/asset/?id=157924575")
han.Size = Vector3.new(1.6, 1, 1)
mesh.Scale = Vector3.new(0.55, 0.55, 0.55)
h.AttachmentPos = Vector3.new(0, 0.7, 0.3)
hum:AddAccessory(h)
h,han,mesh = CreateHat("JeweledCrown", "http://www.roblox.com/asset/?id=69428716", "http://www.roblox.com/asset/?id=69428704")
mesh.Scale = Vector3.new(1, 1, 1)
han.Size = Vector3.new(1.2, 0.2, 1)
h.AttachmentPos = Vector3.new(0, -0.15, -0.075)
hum:AddAccessory(h)
h,han,mesh = CreateHat("BoyNormalHair1", "http://www.roblox.com/asset/?id=13332444", "http://www.roblox.com/asset/?id=13332337")
mesh.Scale = Vector3.new(1.05, 1, 1.05)
han.Size = Vector3.new(1, 0.8, 1)
h.AttachmentPos = Vector3.new(0, 0.25, -0.063)
hum:AddAccessory(h)

shirt = Instance.new("Shirt", Character)
shirt.Name = "Shirt"
pants = Instance.new("Pants", Character)
pants.Name = "Pants"
Character.Shirt.ShirtTemplate = "http://www.roblox.com/asset/?id=549219083"
Character.Pants.PantsTemplate = "http://www.roblox.com/asset/?id=212972542"

CV="Maroon"
	char = Player.Character
	local txt = Instance.new("BillboardGui", Character)
	txt.Adornee = Character .Head
	txt.Name = "_status"
	txt.Size = UDim2.new(2, 0, 1.2, 0)
	txt.StudsOffset = Vector3.new(-9, 8, 0)
	local text = Instance.new("TextLabel", txt)
	text.Size = UDim2.new(10, 0, 7, 0)
	text.FontSize = "Size24"
	text.TextScaled = true
	text.TextTransparency = 0
	text.BackgroundTransparency = 1
	text.TextTransparency = 0
	text.TextStrokeTransparency = 0
	text.Font = "Fantasy"
	text.TextStrokeColor3 = Color3.new(255,255,0)

	v=Instance.new("Part")
	v.Name = "ColorBrick"
	v.Parent=Player.Character
	v.FormFactor="Symmetric"
	v.Anchored=true
	v.CanCollide=false
	v.BottomSurface="Smooth"
	v.TopSurface="Smooth"
	v.Size=Vector3.new(10,5,3)
	v.Transparency=1
	v.CFrame=Character.Torso.CFrame
	v.BrickColor=BrickColor.new(CV)
	v.Transparency=1
	text.TextColor3 = Color3.new(255,255,0)
	v.Shape="Block"
	text.Text = "King Harkinian"

base = Instance.new("ScreenGui",Player.PlayerGui)
bbg = Instance.new("BillboardGui",Player.Character.Head)
bbg.Size = UDim2.new(0,200,0,50)
bbg.StudsOffset = Vector3.new(0,3,0)
boi2 = Instance.new("Sound", Torso)
boi2.SoundId = "rbxassetid://0"
boi2.Volume = 3
bbgTl = Instance.new("TextLabel",bbg)
bbgTl.BackgroundTransparency = 1
bbgTl.Size = UDim2.new(10,0,1,0)
bbgTl.Position = UDim2.new(-4.5, 0, 0.8, 0)
bbgTl.Font = "Fantasy"
bbgTl.Text = " "
bbgTl.TextSize = 25
bbgTl.TextStrokeColor3 = Color3.new(255,165,0)
bbgTl.TextColor3 = Color3.new(255,165,0)
bbgTl.TextStrokeTransparency = 0
bbgTl.TextWrapped = true
Player.Chatted:connect(function(msg)
    boi2.SoundId = "rbxassetid://135305798"
    boi2:Play()
	bbgTl.Text = msg
	wait(5)
	if bbgTl.Text == msg then
		bbgTl.Text = " "
	end
end)