local R=script.Parent if R and(R:IsA("\072\117\109\097\110\111\105\100")and R.Parent)then local d=R.Parent:GetChildren()local e={}for R=1,#d,1 do local B=d[R]if B and B:IsA("\080\097\114\116")then e[R]=B.BrickColor end end local B=R.WalkSpeed R.WalkSpeed=10 for B=1,10,1 do if not R or R.Health<=0 then break end for R=1,#d,1 do local C=d[R]if C and C:IsA("\080\097\114\116")then if B%2~=0 then C.BrickColor=BrickColor.new(119)else C.BrickColor=e[R]end end end if B%2~=0 then R:TakeDamage(R.MaxHealth/8)end wait(1)end if R then R.WalkSpeed=B end end script:Destroy()
-- Poison the Humanoid this script is attached to
-- While poisoned, victim is slower, takes damage, and flickers green

local victim = script.Parent

if victim and victim:IsA("Humanoid") and victim.Parent then
	local victimChildren = victim.Parent:GetChildren()

	local originalColors = {}
	for i = 1, #victimChildren do -- Save original colors
		local child = victimChildren[i]
		if child and child:IsA("Part") then
			originalColors[i] = child.BrickColor
		end
	end

	local originalWalkSpeed = victim.WalkSpeed
	victim.WalkSpeed = 10

	for index = 1, 10 do -- Should be thought of as turning on and off 5 times
		if not victim or victim.Health <= 0 then
			break
		end
		for i = 1, #victimChildren do -- Color all parts green / Restore original colors
			local child = victimChildren[i]
			if child and child:IsA("Part") then
				if index % 2 ~= 0 then
					child.BrickColor = BrickColor.new(119) -- ("Br. yellowish green")
				else
					child.BrickColor = originalColors[i]
				end
			end
		end
		if index % 2 ~= 0 then
			victim:TakeDamage(victim.MaxHealth / 8) -- (12.5 normally, so 62.5 total)
		end
		wait(1)
	end

	if victim then
		victim.WalkSpeed = originalWalkSpeed
	end
end

script:Destroy()
