local i,u,v,c = Instance.new, UDim2.new, Vector3.new, Color3.new
local plr = game.Players.LocalPlayer
local char,gui,ms = plr.Character, plr.PlayerGui, plr:GetMouse()
local cf,ca,mr = CFrame.new, CFrame.Angles, math.rad
local la = char["Left Arm"]
local ra = char["Right Arm"]
local law = char.Torso["Left Shoulder"]
local raw = char.Torso["Right Shoulder"]
local origlaw = law.C0
local origraw = raw.C0
local trg = char.Torso.Position
local plrtrg = plr

char.Head.Transparency = 1
for _,face in pairs(char.Head:GetChildren()) do
if(face:IsA("Decal") or face:IsA("Face")) then
face:destroy()
end
end

function wld(prt0, prt1, cfr, cfa)
	local weld = i('Weld',prt0)
	weld.Part0 = prt0
	weld.Part1 = prt1
	weld.C0 = cfr * cfa
end

function prt(part, size, cfr, cfa)
	part.Locked = true
	part.Size = size
	part.CFrame = cfr * cfa
end

function visibility(prt,num)
for _,a in pairs(prt:GetChildren()) do
visibility(a,num)
end
if(prt:IsA("Part") and prt.Name ~= "Head" and prt.Name ~= "HumanoidRootPart") then
prt.Transparency = num
end
end

function snd(id,vol,looped)
local snd = i('Sound',char.Torso)
snd.Name = id
snd.SoundId = 'rbxassetid://'..id
snd.Volume = vol
snd.Looped = looped
snd.EmitterSize = 100
snd:Play()
end

local s0nd = i('Sound', char.Head)
s0nd.Name = "Breathing"
s0nd.SoundId = 'rbxassetid://483810543'
s0nd.Volume = 1
s0nd.Looped = true
s0nd.EmitterSize = 155
s0nd:Play()

local rnk = i('Folder',char)
local plag = i('BillboardGui',rnk)
plag.Name = math.random()
plag.Adornee = char.Head
plag.Size = u(10,0,2,0)
plag.StudsOffset = v(0,4.5,0)
local plagtl = i('TextLabel', plag)
plagtl.Text = 'The Plague Doctor'
plagtl.Size = u(1,0,1,0)
plagtl.TextScaled = true
plagtl.Font = 'Antique'
plagtl.TextColor3 = c(1,1,1)
plagtl.BackgroundTransparency = 1

function chat(txt)
local bg = i('BillboardGui',char)
bg.Name = math.random()
bg.Adornee = char.Head
bg.Size = u(10,0,2,0)
bg.StudsOffset = v(0,3,0)
local tl = i('TextLabel', bg)
tl.Text = txt
tl.Size = u(1,0,1,0)
tl.TextScaled = true
tl.Font = 'Antique'
tl.TextColor3 = c(0,0,0)
tl.BackgroundTransparency = 1
for _,a in pairs(char:GetChildren()) do
if(a.Name ~= bg.Name) then
if(a:IsA("BillboardGui")) then
for _,b in pairs(a:GetChildren()) do
if(b:IsA("TextLabel")) then
while(b.TextTransparency < 1) do
wait()
b.TextTransparency = b.TextTransparency + 0.25
a.StudsOffset = a.StudsOffset + v(0.1,0,0)
end
b:destroy()
end end end end end end

for _,a in pairs(char:GetChildren()) do
if(a:IsA("Shirt") or a:IsA("Hat") or a:IsA("Accessory") or a:IsA("Pants")) then
a:destroy()
end
end

local msk = i('Part', char)
msk.CanCollide = false
prt(msk,char.Head.Size,char.Head.CFrame,ca(0,0,0))
wld(msk,char.Head,cf(0,0,.85),ca(mr(15),0,0))
local mesh = i("SpecialMesh", msk)
mesh.MeshId = "http://www.roblox.com/asset/?id=62679079"
mesh.Scale = Vector3.new(1, 1, 2)

local shirt = Instance.new("Shirt", char)
shirt.Name = "Shirt"
local pants = Instance.new("Pants", char)
pants.Name = "Pants"

char.Shirt.ShirtTemplate = "http://www.roblox.com/asset/?id=648758131"
char.Pants.PantsTemplate = "http://www.roblox.com/asset/?id=472675863"

local Hood = Instance.new("Part", char)
Hood.Name = "Hood"
Hood.CanCollide = false
Hood.BrickColor = BrickColor.new("Really black")
Hood.Transparency = 0
Hood.Material = "Plastic"
Hood.Size = Vector3.new(0.1, 0.1, 0.1)
Hood.TopSurface = 0
Hood.BottomSurface = 0

wld(Hood,char.Head,cf(0,-.2,0),ca(0,0,0))

local mesh2 = Instance.new("SpecialMesh",Hood)
mesh2.MeshId = "http://www.roblox.com/asset/?id=83499032"
mesh2.Scale = Vector3.new( 1, 1.2, 1.1)

plr.Chatted:connect(function(chatmsg)
chat(chatmsg)
end)

local rosie = false
local infect = false
local wlk = true
local follow = true

function pdisease(chr)
if(chr) then
chr.Archivable = true
local cl = chr:Clone()
cl.Name = "Zombie"
cl.Parent = workspace
chr.Humanoid.Health = 0
chr.Archivable = false
local snd = i('Sound',cl.Torso)
snd.SoundId = 'rbxassetid://130976109'
snd.Volume = 3
snd.Looped = false
snd:Play()
for _,prt in pairs(chr:GetChildren()) do
if(prt:IsA("Part")) then
prt:destroy()
end
end
for _,a in pairs(cl:GetChildren()) do
if(a:IsA("Hat") or a:IsA("Accessory") or a:IsA("BodyVelocity") or a:IsA("Tool") or a:IsA("HopperBin")) then
a:destroy()
end end

local hum = cl["Humanoid"]
if(hum.Health > 0) then
local torso = cl["Torso"]
local lftarm = cl["Left Arm"]
local rgtarm = cl["Right Arm"]
local lftwld = torso["Left Shoulder"]
local rgtwld = torso["Right Shoulder"]
lftwld.C0 = origlaw * CFrame.Angles(0,0,mr(-90))
rgtwld.C0 = origraw * CFrame.Angles(0,0,mr(90))
lftarm.Touched:connect(function(op)
hum.Jump = true
for _,a in pairs(game.Players:GetChildren()) do
if op.Parent.Name ~= plr.Name and op.Parent.Name == a.Name then
pdisease(a.Character)
end
end
hum.Jump = false
end)
rgtarm.Touched:connect(function(op)
hum.Jump = true
for _,a in pairs(game.Players:GetChildren()) do
if op.Parent.Name ~= plr.Name and op.Parent.Name == a.Name then
if(a == plrtrg) then
follow = true
end
pdisease(a.Character)
end
end
hum.Jump = false
end)
hum.WalkSpeed = 25
hum.JumpPower = 75
else
cl:destroy()
end
else
warn('No Character or '..chr:GetFullName()..' is not existant!')
end
end

ms.KeyDown:connect(function(key)
if(Hood ~= nil) then
if(key == 'x') then
rosie = not rosie
if rosie then
snd('669623416',2,true)
while(rosie) do
chat('Ringa ringa the rosies')
wait(2.7)
chat('A pocket full of posies')
wait(2.3)
chat('A tissue, a tissue')
wait(2.3)
chat('We all fall down')
wait(2.5)
end
else
for _,a in pairs(char.Torso:GetChildren()) do
if(a.Name == '669623416') then
a:destroy()
end
end
end
end
if(key == 'c') then
snd('177113856',2.5,false)
chat("Hello...")
wait(1.3)
chat("Greetings...")
wait(0.8)
chat("Oh my...")
wait(0.8)
chat("Yet another victim of the disease..")
wait(1.4)
chat("You are not a doctor...")
wait(1.45)
chat("I sense the disease in you...")
wait(1.5)
chat("I am the cure...")
wait(0.8)
chat("Do not be afraid...")
wait(1.35)
chat("I am the cure...")
wait(1.35)
chat("Stop resisting...")
wait(1.35)
chat("I'm here to cure you...")
end
if(key == 't') then
infect = not infect
if(infect) then
char.Humanoid.WalkSpeed = 35
law.C0 = origlaw * CFrame.Angles(0,0,mr(-5))
wait()
law.C0 = origlaw * CFrame.Angles(0,0,mr(-10))
wait()
law.C0 = origlaw * CFrame.Angles(0,0,mr(-38))
wait()
law.C0 = origlaw * CFrame.Angles(0,0,mr(-45))
wait()
law.C0 = origlaw * CFrame.Angles(0,0,mr(-50))
wait()
law.C0 = origlaw * CFrame.Angles(0,0,mr(-56))
wait()
law.C0 = origlaw * CFrame.Angles(0,0,mr(-63))
wait()
law.C0 = origlaw * CFrame.Angles(0,0,mr(-71))
wait()
law.C0 = origlaw * CFrame.Angles(0,0,mr(-80))
wait()
law.C0 = origlaw * CFrame.Angles(0,0,mr(-90))
else
char.Humanoid.WalkSpeed = 16
law.C0 = origlaw * CFrame.Angles(0,0,mr(-90))
wait()
law.C0 = origlaw * CFrame.Angles(0,0,mr(-80))
wait()
law.C0 = origlaw * CFrame.Angles(0,0,mr(-63))
wait()
law.C0 = origlaw * CFrame.Angles(0,0,mr(-50))
wait()
law.C0 = origlaw * CFrame.Angles(0,0,mr(-41))
wait()
law.C0 = origlaw * CFrame.Angles(0,0,mr(-36))
wait()
law.C0 = origlaw * CFrame.Angles(0,0,mr(-10))
wait()
law.C0 = origlaw * CFrame.Angles(0,0,mr(-5))
wait()
law.C0 = origlaw
end
end
if(key == 'h') then
chat('Infection Cleared..')
for _,a in pairs(workspace:GetChildren()) do
if(a.Name == 'Zombie') then
a:destroy()
end
end
end
if(key == 'j') then
for _,a in pairs(game.Players:GetChildren()) do
if(ms.Target.Parent.Name == a.Name or ms.Target.Parent.Parent.Name == a.Name and a.Name ~= plr.Name) then
if(trg.magnitude ~= char.Torso.Position.magnitude) then
chat('Go get '..a.Name..'...')
end
follow = false
trg = a.Character.Torso.Position
plrtrg = a
end
end
end
if(key == 'k') then
chat('Follow me...')
follow = true
trg = char.Torso.Position
plrtrg = plr
end
if(key == 'l') then
chat('Go there...')
follow = false
plrtrg = plr
trg = Vector3.new(ms.hit.x,ms.hit.y,ms.hit.z)
end
end
if(key == 'y') then
char["HumanoidRootPart"].CFrame = ms.hit
end
end)

la.Touched:connect(function(op)
for _,a in pairs(game.Players:GetChildren()) do
if(op.Parent) then
if infect and op.Parent.Name ~= plr.Name and op.Parent.Name == a.Name then
if(a == plrtrg) then
follow = true
end
if(a.Character) then
pdisease(a.Character)
end
end
end
end
end)

char.Humanoid.Died:connect(function()
wlk = false
end)

while Hood ~= nil do
wait(0.1)
if(wlk) then
for _,a in pairs(workspace:GetChildren()) do
if(a.Name == 'Zombie') then
a.Humanoid:MoveTo(trg)
if(plrtrg ~= plr and not follow and plrtrg.Character and plrtrg.Character.Torso) then
print('Follow Other')
trg = plrtrg.Character.Torso.Position
else if(plrtrg == plr and follow) then
print('Follow')
trg = char.Torso.Position
end
end
end
end
end
end