- Workspace
- Lighting
- ReplicatedStorage
- ServerScriptService
- OldHousefalse0
- Itemsfalse0= MAX_SLOTS then msg(player, "Карманы полны. Выбрось что-нибудь (G)"); return end
m:Destroy()
table.insert(inv, data)
send(player)
if data.id == "amulet" then
workspace:SetAttribute("MonstersGone", true)
remote:FireClient(player, "win")
end
end)
return m
end
remote.OnServerEvent:Connect(function(player, action, slot)
local inv = inventories[player]
if not inv then return end
if action == "sync" then send(player); return end
if typeof(slot) ~= "number" or not inv[slot] then return end
local item = inv[slot]
if action == "use" and item.id == "battery" then
table.remove(inv, slot)
send(player)
remote:FireClient(player, "battery")
elseif action == "drop" then
local hrp = player.Character and player.Character:FindFirstChild("HumanoidRootPart")
if not hrp then return end
table.remove(inv, slot)
send(player)
local params = RaycastParams.new()
params.FilterDescendantsInstances = {player.Character}
local look = hrp.CFrame.LookVector
local hit = workspace:Raycast(hrp.Position, look * 2.5, params)
local pos = hit and (hit.Position - look * 0.6) or (hrp.Position + look * 2.5)
spawnItem(item, CFrame.new(pos) * CFrame.Angles(0, math.random() * 6.28, 0), false)
end
end)
---------------------------------------------------------------- РАССТАНОВКА
local function at(x, y, z, yaw) return CFrame.new(x, y, z) * CFrame.Angles(0, math.rad(yaw or math.random(0, 360)), 0) end
spawnItem(makeData("battery"), at(-7, L1 + 2.2, -8), true) -- столик в гостиной
spawnItem(makeData("battery"), at(9, BY + 3.8, -6), true) -- стол в подвале
spawnItem(makeData("battery"), at(8, L2 + 3.8, -13), true) -- письменный стол
spawnItem(makeData("battery"), at(4, L3 + 0.65, 2), true) -- чердак
spawnItem(makeData("note", NOTES[1]), at(4, L1 + 3.25, -6), true)
spawnItem(makeData("note", NOTES[2]), at(11, BY + 3.25, -5.5), true)
spawnItem(makeData("note", NOTES[3]), at(-9, L2 + 2.65, -10), true)
spawnItem(makeData("note", NOTES[4]), at(-6, L3 + 0.05, -13), true)
spawnItem(makeData("key"), at(13, L3 + 0.1, -13.5), true)
---------------------------------------------------------------- СУНДУК В ПОДВАЛЕ
local chestModel = Instance.new("Model")
chestModel.Name = "Chest"
chestModel.Parent = folder
local chestCF = CFrame.new(-3, BY, 12.5) -- перёд смотрит на -Z
local WOOD, IRON = Color3.fromRGB(80, 50, 30), Color3.fromRGB(45, 45, 48)
local function cpart(size, cf, color, mat)
local p = Instance.new("Part")
p.Size, p.CFrame, p.Color, p.Material, p.Anchored = size, chestCF * cf, color, mat, true
p.Parent = chestModel
return p
end
cpart(Vector3.new(3, 0.2, 2), CFrame.new(0, 0.1, 0), WOOD, M.WoodPlanks)
local front = cpart(Vector3.new(3, 1.4, 0.15), CFrame.new(0, 0.7, -0.93), WOOD, M.WoodPlanks)
cpart(Vector3.new(3, 1.4, 0.15), CFrame.new(0, 0.7, 0.93), WOOD, M.WoodPlanks)
cpart(Vector3.new(0.15, 1.4, 2), CFrame.new(-1.43, 0.7, 0), WOOD, M.WoodPlanks)
cpart(Vector3.new(0.15, 1.4, 2), CFrame.new(1.43, 0.7, 0), WOOD, M.WoodPlanks)
for _, x in ipairs({-1, 1}) do cpart(Vector3.new(0.2, 1.42, 2.05), CFrame.new(x, 0.7, 0), IRON, M.Metal) end
cpart(Vector3.new(0.4, 0.5, 0.15), CFrame.new(0, 1.05, -1.02), BRASS, M.Metal).Name = "Lock"
local hinge = chestCF * CFrame.new(0, 1.4, 0.95)
local lid = Instance.new("Part")
lid.Size, lid.Color, lid.Material, lid.Anchored = Vector3.new(3.05, 0.3, 2), WOOD, M.WoodPlanks, true
lid.CFrame = hinge * CFrame.new(0, 0.15, -1)
lid.Parent = chestModel
for _, x in ipairs({-1, 1}) do
local b = Instance.new("Part")
b.Size, b.Color, b.Material, b.CanCollide, b.Massless = Vector3.new(0.2, 0.34, 2.05), IRON, M.Metal, false, true
b.CFrame = lid.CFrame * CFrame.new(x, 0, 0)
b.Parent = chestModel
local w = Instance.new("WeldConstraint")
w.Part0, w.Part1, w.Parent = lid, b, b
end
local prompt = Instance.new("ProximityPrompt")
prompt.ActionText, prompt.ObjectText = "Открыть", "Сундук"
prompt.MaxActivationDistance, prompt.RequiresLineOfSight = 7, false
prompt.Parent = front
local opened = false
prompt.Triggered:Connect(function(player)
if opened then return end
local inv = inventories[player]
local keySlot
for i, it in ipairs(inv or {}) do if it.id == "key" then keySlot = i end end
if not keySlot then msg(player, "Заперто. Нужен ключ."); return end
opened = true
prompt.Enabled = false
table.remove(inv, keySlot)
send(player)
msg(player, "Ключ подошёл…")
TweenService:Create(lid, TweenInfo.new(1.2, Enum.EasingStyle.Back, Enum.EasingDirection.Out), {CFrame = hinge * CFrame.Angles(math.rad(100), 0, 0) * CFrame.new(0, 0.15, -1)}):Play()
task.wait(0.6)
spawnItem(makeData("amulet"), chestCF * CFrame.new(0, 0.35, 0), true)
end)
]]>
- Monstersfalse0 m.nextTwitch then -- резкие подёргивания головой
m.nextTwitch = t + rng:NextNumber(crawler and 0.3 or 1.5, crawler and 1.4 or 4)
m.twitch = Vector3.new(rng:NextNumber(-0.5, 0.5), rng:NextNumber(-0.9, 0.9), rng:NextNumber(-0.6, 0.6))
end
m.twitch *= 0.93
g.lean = d.lean + d.walkLean * w + breath * 0.02
g.twist = sin(ph) * 0.15 * w
g.sway = sin(t * 1.1) * 0.04 + sin(ph) * 0.05 * w
g.hipY = (abs(cos(ph)) - 1) * 0.18 * w + breath * 0.04
g.headP = m.twitch.X + (crawler and 0.15 or -0.1)
g.headY = sin(t * 0.45) * 0.7 * (1 - w) + m.twitch.Y
g.headR = sin(t * 0.37) * 0.35 + m.twitch.Z + sin(ph * 2) * 0.08 * w
g.jaw = crawler and (0.2 + abs(sin(t * 9)) * 0.25) or (0.08 + max(0, breath) * 0.12 + 0.2 * w)
local swing = sin(ph) * d.armSwing * w
for _, s in ipairs({"L", "R"}) do
local sgn = s == "L" and 1 or -1
g[s .. "armP"] = -swing * sgn + sin(t * 0.9 + sgn) * 0.05
g[s .. "armO"] = crawler and 0.22 or 0.1 + breath * 0.02
g[s .. "elb"] = crawler and 0.35 + max(0, swing * sgn) * 0.6 or 0.25 + max(0, -swing * sgn) * 0.5
g[s .. "wrist"] = sin(t * 2 + sgn) * 0.2
g[s .. "leg"] = d.knee / 2 + sin(ph) * 0.55 * w * sgn
g[s .. "knee"] = d.knee + max(0, cos(ph) * sgn) * 0.9 * w
end
if m.grabT then -- ХВАТАНИЕ
local gt = m.grabT
local lift = clamp((gt - 0.5) / 1.1, 0, 1)
local shake = (gt > 0.5 and gt < 2.2) and rng:NextNumber(-0.08, 0.08) or 0
g.lean, g.twist, g.sway = d.grabLean, shake, shake
g.hipY = crawler and 0.6 or 0
g.headP, g.headY = gt > 2.2 and 0.45 or -0.15, gt > 2.2 and 0.35 or 0
g.headR = 0.3 + shake * 2
g.jaw = gt > 2.2 and 0.95 or 0.35 + abs(sin(gt * 18)) * 0.25
for _, s in ipairs({"L", "R"}) do
g[s .. "armP"] = 1.2 + lift * 0.35 + shake
g[s .. "armO"] = -0.18
g[s .. "elb"] = 0.7 - lift * 0.2
g[s .. "wrist"] = 0
g[s .. "leg"], g[s .. "knee"] = d.knee / 2 + 0.1, d.knee + 0.1
end
if gt > 1.6 and gt < 2.2 then g.Rwrist = (gt - 1.6) * 4; g.RarmP = 1.7 end
if gt >= 2.2 then g.RarmP, g.RarmO, g.Relb = 2.7, 0.45, 0.15 end -- поднимает голову трофеем
if gt >= 2.9 then g.LarmP, g.Lelb = 0.4, 0.5 end
end
local k = min(1, dt * (m.grabT and 12 or 8))
for key, v in pairs(g) do
local cur = m.cur[key] or v
m.cur[key] = cur + (v - cur) * k
end
apply(m)
end
---------------------------------------------------------------- МОНСТРЫ
local monsters = {}
local function spawnMonster(name)
local d = DEFS[name]
local model, rig = build(name, d)
local m = {
name = name, def = d, model = model, rig = rig, parts = {}, cfs = {}, cur = {},
pos = d.home, yaw = rng:NextNumber(0, 6.28), walk = 0, phase = 0, nextTwitch = 0, twitch = Vector3.zero,
lookedAt = 0, litAt = 0, alive = true,
path = PathfindingService:CreatePath({AgentRadius = 1.6, AgentHeight = d.agentH, AgentCanJump = false, WaypointSpacing = 3}),
}
for i, r in ipairs(rig) do m.parts[i] = r[1] end
animate(m, 1, 0, false)
table.insert(monsters, m)
return m
end
spawnMonster("Watcher")
spawnMonster("Crawler")
local function frozen(m)
local now = os.clock()
if m.name == "Watcher" then return now - m.lookedAt < SIGHT_MEMORY end
return now - m.litAt < SIGHT_MEMORY
end
-- клиент каждые 0.15 с сообщает: на кого смотрю, на кого свечу
remote.OnServerEvent:Connect(function(_, action, looking, lit)
if action ~= "sight" then return end
local now = os.clock()
for _, m in ipairs(monsters) do
if type(looking) == "table" and table.find(looking, m.name) then m.lookedAt = now end
if type(lit) == "table" and table.find(lit, m.name) then m.litAt = now end
end
end)
local caught = {}
local function aliveHRP(p)
local char = p.Character
local hum = char and char:FindFirstChildOfClass("Humanoid")
local hrp = char and char:FindFirstChild("HumanoidRootPart")
if hum and hrp and hum.Health > 0 and not caught[p] then return hrp, hum end
return nil
end
local function findTarget(m)
local best, bestD
for _, p in ipairs(Players:GetPlayers()) do
local hrp = aliveHRP(p)
if hrp then
local pos = hrp.Position
local inHouse = abs(pos.X) < 20.5 and abs(pos.Z) < 15.5
local ok = inHouse and ((m.name == "Watcher" and pos.Y > L1 + 1) or (m.name == "Crawler" and pos.Y < L1 + 1))
local dist = (pos - m.pos).Magnitude
if ok and (not bestD or dist < bestD) then best, bestD = p, dist end
end
end
return best
end
---------------------------------------------------------------- ПОИМКА
local function blood(parent, rate, life)
local pe = Instance.new("ParticleEmitter")
pe.Color = ColorSequence.new(Color3.fromRGB(150, 0, 0), Color3.fromRGB(60, 0, 0))
pe.Size = NumberSequence.new(0.3, 0.05)
pe.Lifetime = NumberRange.new(0.5, 1)
pe.Speed = NumberRange.new(4, 10)
pe.SpreadAngle = Vector2.new(35, 35)
pe.Acceleration = Vector3.new(0, -45, 0)
pe.Rate = rate
pe.Parent = parent
Debris:AddItem(pe, life)
return pe
end
local function catch(m, player)
local hrp, hum = aliveHRP(player)
if not hrp then return end
local char = player.Character
local head = char:FindFirstChild("Head")
local neck
for _, j in ipairs(char:GetDescendants()) do
if j:IsA("Motor6D") and j.Name == "Neck" then neck = j end
end
caught[player], m.busy, m.wps = true, true, nil
hum.RequiresNeck = false
hrp.Anchored = true
local flat = Vector3.new(hrp.Position.X - m.pos.X, 0, hrp.Position.Z - m.pos.Z)
if flat.Magnitude > 0.1 then m.yaw = math.atan2(-flat.X, -flat.Z) end
local fwd = CFrame.Angles(0, m.yaw, 0).LookVector
local rest = hum.RigType == Enum.HumanoidRigType.R15 and hum.HipHeight + hrp.Size.Y / 2 or 3
local base = m.pos + fwd * m.def.holdDist
local neckC0 = neck and neck.C0
remote:FireClient(player, "caught", m.model)
m.grabT = 0
local ripped, dropped = false, false
local t0 = os.clock()
while true do
local dt = RunService.Heartbeat:Wait()
local gt = os.clock() - t0
m.grabT = gt
animate(m, dt, os.clock(), false)
local lift = clamp((gt - 0.5) / 1.1, 0, 1) * m.def.lift
local shake = (gt > 0.5 and gt < 2.2) and Vector3.new(rng:NextNumber(-1, 1), rng:NextNumber(-1, 1), 0) * 0.12 or Vector3.zero
if hrp.Anchored then
local p = base + Vector3.new(0, rest + lift, 0) + shake
local look = m.J.head.Position
hrp.CFrame = CFrame.lookAt(p, Vector3.new(look.X, p.Y, look.Z))
end
if neck and neck.Parent and gt > 1.6 then -- выкручивает голову
neck.C0 = neckC0 * CFrame.Angles(0, (gt - 1.6) / 0.6 * 2.2, 0)
end
if gt >= 2.2 and not ripped and head then -- ОТРЫВАЕТ
ripped = true
if neck then neck:Destroy() end
head.Anchored, head.CanCollide = true, false
local torso = char:FindFirstChild("UpperTorso") or char:FindFirstChild("Torso")
if torso then blood(torso, 250, 1.6) end
blood(head, 60, 4)
remote:FireClient(player, "rip")
end
if ripped and not dropped and head then
local hand = m.J.handR.Position
head.CFrame = CFrame.lookAt(hand - Vector3.new(0, 0.6, 0), m.J.head.Position)
end
if gt >= 2.9 and hrp.Anchored then -- тело падает на пол
hrp.Anchored = false
hrp.AssemblyLinearVelocity = fwd * 6
hum.Health = 0
local pool = Instance.new("Part")
pool.Shape, pool.Anchored, pool.CanCollide = Enum.PartType.Cylinder, true, false
pool.Color, pool.Material = Color3.fromRGB(70, 0, 0), M.Glass
pool.Size = Vector3.new(0.05, 0.5, 0.5)
pool.CFrame = CFrame.new(base + fwd * 1.5 + Vector3.new(0, 0.03, 0)) * CFrame.Angles(0, 0, math.rad(90))
pool.Parent = workspace
TweenService:Create(pool, TweenInfo.new(4), {Size = Vector3.new(0.05, 6, 6)}):Play()
Debris:AddItem(pool, 60)
end
if gt >= 3.6 and not dropped and head then -- бросает голову
dropped = true
head.Anchored, head.CanCollide = false, true
head.AssemblyLinearVelocity = fwd * 4 + Vector3.new(0, 5, 0)
head.AssemblyAngularVelocity = Vector3.new(rng:NextNumber(-6, 6), 0, rng:NextNumber(-6, 6))
end
if gt >= 4.6 then break end
end
m.grabT, m.busy = nil, false
end
Players.PlayerAdded:Connect(function(p)
p.CharacterAdded:Connect(function() caught[p] = nil end)
end)
for _, p in ipairs(Players:GetPlayers()) do
p.CharacterAdded:Connect(function() caught[p] = nil end)
end
Players.PlayerRemoving:Connect(function(p) caught[p] = nil end)
---------------------------------------------------------------- МОЗГ (путь) И ДВИЖЕНИЕ
local function computePath(m, goal)
local ok = pcall(function() m.path:ComputeAsync(m.pos + Vector3.new(0, 1, 0), goal) end)
if ok and m.path.Status == Enum.PathStatus.Success then
m.wps, m.wi = m.path:GetWaypoints(), 2
return true
end
m.wps = nil
return false
end
for _, m in ipairs(monsters) do
task.spawn(function()
while m.alive do
local delay = 0.35
if not m.busy then
local target = findTarget(m)
m.target, m.hunting = target, target ~= nil
if target then
local hrp = aliveHRP(target)
if hrp then computePath(m, hrp.Position - Vector3.new(0, 2.5, 0)) end
elseif not m.wps or m.wi > #m.wps then
local list = WANDER[m.name]
computePath(m, list[rng:NextInteger(1, #list)])
delay = rng:NextNumber(1.5, 4) -- постоять перед новым маршрутом
end
end
task.wait(delay)
end
end)
end
local function stepMonster(m, dt, t)
if m.busy or not m.alive then return end
if frozen(m) then return end -- статуя: ни шага, ни движения
local speed = m.def.speed * (m.hunting and 1 or 0.45)
local moveTo
if m.wps and m.wi <= #m.wps then
local wp = m.wps[m.wi].Position
if (wp - m.pos).Magnitude < 0.7 then m.wi += 1 else moveTo = wp end
end
local hrp = m.target and aliveHRP(m.target)
if hrp then
local feet = hrp.Position - Vector3.new(0, 2.6, 0)
local flat = Vector3.new(feet.X - m.pos.X, 0, feet.Z - m.pos.Z)
local dy = abs(feet.Y - m.pos.Y)
if dy < 3 and flat.Magnitude < 7 then moveTo = Vector3.new(feet.X, m.pos.Y, feet.Z) end
if dy < 4.5 and flat.Magnitude < CATCH_DIST then
task.spawn(catch, m, m.target)
return
end
end
local moving = false
if moveTo then
local delta = moveTo - m.pos
if delta.Magnitude > 0.05 then
m.pos += delta.Unit * min(delta.Magnitude, speed * dt)
moving = true
if Vector3.new(delta.X, 0, delta.Z).Magnitude > 0.1 then
local want = math.atan2(-delta.X, -delta.Z)
local diff = (want - m.yaw + math.pi) % (math.pi * 2) - math.pi
m.yaw += diff * min(1, dt * 8)
end
end
end
animate(m, dt, t, moving)
end
RunService.Heartbeat:Connect(function(dt)
local t = os.clock()
for _, m in ipairs(monsters) do stepMonster(m, dt, t) end
end)
---------------------------------------------------------------- АМУЛЕТ ПРОГОНЯЕТ ИХ
workspace:GetAttributeChangedSignal("MonstersGone"):Connect(function()
if not workspace:GetAttribute("MonstersGone") then return end
for _, m in ipairs(monsters) do
m.alive = false
for _, p in ipairs(m.parts) do
TweenService:Create(p, TweenInfo.new(2.5), {Transparency = 1, CFrame = p.CFrame * CFrame.new(0, -3, 0)}):Play()
end
Debris:AddItem(m.model, 3)
end
end)
]]>
- StarterPlayer
- StarterPlayerScripts
- HorrorFirstPersonfalse0= 99 then toast("Фонарик и так заряжен") else remote:FireServer("use", selected) end
elseif data.id == "key" then toast("Старый ключ. Где-то должен быть замок…")
elseif data.id == "amulet" then toast("Амулет тёплый и тихо пульсирует…") end
inspectT = 0.8
end
local function dropHeld()
if not (selected and inventory[selected]) then return end
if reading then closeNote() end
remote:FireServer("drop", selected)
selected = nil
refresh()
end
---------------------------------------------------------------- СМЕРТЬ: КАМЕРА
local cutscene = nil -- {monster, t0, ripT}
local function onCaught(monster)
closeNote()
cutscene = {monster = monster, t0 = os.clock()}
workspace.CurrentCamera.CameraType = Enum.CameraType.Scriptable
playOnce(SOUNDS.scream, 1)
end
local function onRip()
if not cutscene then return end
cutscene.ripT = os.clock()
playOnce(SOUNDS.rip, 1)
fearFrame.BackgroundColor3, fearFrame.BackgroundTransparency = Color3.fromRGB(200, 0, 0), 0
TweenService:Create(fearFrame, TweenInfo.new(2.5), {BackgroundTransparency = 0.45}):Play()
task.delay(1.6, function() bigText("ТЕБЯ ПОЙМАЛИ", Color3.fromRGB(200, 20, 20), 3.5) end)
end
remote.OnClientEvent:Connect(function(kind, value)
if kind == "inv" then
if #value < #inventory then selected = nil end
inventory = value
refresh()
elseif kind == "msg" then toast(value)
elseif kind == "battery" then charge = 100; setTorch(true); toast("Фонарик заряжен")
elseif kind == "win" then bigText("ТЫ НАШЁЛ АМУЛЕТ\n\nДом наконец затих…", Color3.fromRGB(230, 200, 200), 7)
elseif kind == "caught" then onCaught(value)
elseif kind == "rip" then onRip() end
end)
remote:FireServer("sync")
PPS.PromptTriggered:Connect(function() reachT = 0.45 end) -- рука тянется за предметом
---------------------------------------------------------------- УПРАВЛЕНИЕ
local NUM = {[Enum.KeyCode.One] = 1, [Enum.KeyCode.Two] = 2, [Enum.KeyCode.Three] = 3, [Enum.KeyCode.Four] = 4, [Enum.KeyCode.Five] = 5}
local runHeld, crouch, leanL, leanR = false, false, false, false
UIS.InputBegan:Connect(function(input, gp)
if gp or cutscene then return end
local k = input.KeyCode
if k == Enum.KeyCode.F then setTorch(not torchOn)
elseif k == Enum.KeyCode.LeftShift then runHeld = true
elseif k == Enum.KeyCode.C or k == Enum.KeyCode.LeftControl then crouch = not crouch
elseif k == Enum.KeyCode.Q then leanL = true
elseif k == Enum.KeyCode.Z then leanR = true
elseif NUM[k] then selectSlot(NUM[k])
elseif k == Enum.KeyCode.R or input.UserInputType == Enum.UserInputType.MouseButton1 then useHeld()
elseif k == Enum.KeyCode.G then dropHeld() end
end)
UIS.InputEnded:Connect(function(input)
local k = input.KeyCode
if k == Enum.KeyCode.LeftShift then runHeld = false
elseif k == Enum.KeyCode.Q then leanL = false
elseif k == Enum.KeyCode.Z then leanR = false end
end)
if UIS.TouchEnabled then
for _, b in ipairs({{"🔦", -170, -170, function() setTorch(not torchOn) end}, {"✋", -250, -170, useHeld},
{"⬇", -170, -250, dropHeld}, {"🧎", -250, -250, function() crouch = not crouch end}}) do
local btn = frame({Class = "TextButton", Size = UDim2.fromOffset(64, 64), Position = UDim2.new(1, b[2], 1, b[3]),
BackgroundColor3 = Color3.new(), BackgroundTransparency = 0.5, Text = b[1], TextScaled = true, TextColor3 = Color3.new(1, 1, 1)})
Instance.new("UICorner", btn).CornerRadius = UDim.new(1, 0)
btn.Activated:Connect(b[4])
end
end
---------------------------------------------------------------- ПЕРСОНАЖ
local stamina, exhausted, lastCF = STAMINA_MAX, false, nil
local landDip, wasAir = 0, false
local function onCharacter(char)
stamina, exhausted, lastCF, crouch, cutscene = STAMINA_MAX, false, nil, false, nil
fearFrame.BackgroundTransparency = 1
local cam = workspace.CurrentCamera
cam.CameraType, cam.FieldOfView = Enum.CameraType.Custom, BASE_FOV
local hum = char:WaitForChild("Humanoid")
hum.WalkSpeed = WALK
if not player:HasAppearanceLoaded() then player.CharacterAppearanceLoaded:Wait() end
local arm = char:FindFirstChild("RightHand") or char:FindFirstChild("Right Arm")
if arm then for _, p in ipairs(skinParts) do p.Color = arm.Color end end
end
player.CharacterAdded:Connect(onCharacter)
if player.Character then task.spawn(onCharacter, player.Character) end
---------------------------------------------------------------- ВЗГЛЯД И СВЕТ → СЕРВЕР
local rayParams = RaycastParams.new()
rayParams.FilterType = Enum.RaycastFilterType.Exclude
local fear = 0
local function visible(from, part, monster)
rayParams.FilterDescendantsInstances = {player.Character, vm}
local hit = workspace:Raycast(from, part.Position - from, rayParams)
return not hit or hit.Instance:IsDescendantOf(monster)
end
task.spawn(function()
while true do
task.wait(0.15)
local folder = workspace:FindFirstChild("Monsters")
local cam = workspace.CurrentCamera
local looking, lit, nearest = {}, {}, 99
if folder and not cutscene then
local camCF, lpos = cam.CFrame, lightPart.Position
for _, m in ipairs(folder:GetChildren()) do
local head, torso = m:FindFirstChild("Head"), m:FindFirstChild("Torso")
if head and torso then
nearest = min(nearest, (torso.Position - camCF.Position).Magnitude)
for _, p in ipairs({head, torso}) do
local to = p.Position - camCF.Position
if to.Unit:Dot(camCF.LookVector) > 0.55 and visible(camCF.Position, p, m) then
if not table.find(looking, m.Name) then table.insert(looking, m.Name) end
end
local tl = p.Position - lpos
local ang = math.deg(math.acos(clamp(tl.Unit:Dot(lightPart.CFrame.LookVector), -1, 1)))
if torchOn and ang < TORCH_ANGLE and tl.Magnitude < TORCH_RANGE and visible(lpos, p, m) then
if not table.find(lit, m.Name) then table.insert(lit, m.Name) end
end
end
end
end
end
fear = clamp(1 - (nearest - 6) / 30, 0, 1)
remote:FireServer("sight", looking, lit)
end
end)
---------------------------------------------------------------- КАЖДЫЙ КАДР
local bobT, bobAmt, runA, push, crouchA, leanA, heartT = 0, 0, 0, 0, 0, 0, 0
local sway = CFrame.new()
local RUN_POSE = CFrame.new(0.05, -0.15, 0.1) * CFrame.Angles(rad(-12), rad(10), rad(8))
local function deathCamera(camera, dt)
local cs = cutscene
local mon = cs.monster
local head = mon and mon:FindFirstChild("Head")
local char = player.Character
local myHead = char and char:FindFirstChild("Head")
vm.Parent = nil
if not cs.ripT then -- смотрим монстру в лицо, всё трясётся
local t = os.clock() - cs.t0
local from = myHead and myHead.Position or camera.CFrame.Position
local shake = Vector3.new(math.random() - 0.5, math.random() - 0.5, 0) * (t > 0.5 and 0.25 or 0.08)
local goal = head and head.Position or from + camera.CFrame.LookVector
camera.CFrame = camera.CFrame:Lerp(CFrame.lookAt(from + shake, goal), min(1, dt * 10))
camera.FieldOfView += (55 - camera.FieldOfView) * min(1, dt * 3)
fearFrame.BackgroundTransparency = 0.85 - min(t, 2) * 0.2
else -- голова в лапе монстра, тело падает на пол — камера валится вместе с ним
local t = os.clock() - cs.ripT
local body = char and (char:FindFirstChild("UpperTorso") or char:FindFirstChild("Torso") or char:FindFirstChild("HumanoidRootPart"))
if body then
local fall = clamp((t - 0.6) / 1.2, 0, 1) ^ 2
local p = body.Position + Vector3.new(0, 1.3 - fall * 1.6, 0)
local tilt = CFrame.Angles(0, 0, rad(75) * fall)
local look = (myHead and myHead.Position) or (head and head.Position) or p + Vector3.new(0, 0, -1)
local target = CFrame.lookAt(p, look) * tilt
camera.CFrame = camera.CFrame:Lerp(target, min(1, dt * 8))
end
camera.FieldOfView += (80 - camera.FieldOfView) * min(1, dt * 2)
end
end
RunService:BindToRenderStep("HorrorFirstPerson", Enum.RenderPriority.Camera.Value + 1, function(dt)
local camera = workspace.CurrentCamera
if cutscene then deathCamera(camera, dt); return end
local char = player.Character
local hum = char and char:FindFirstChildOfClass("Humanoid")
if not (hum and hum.Health > 0) then vm.Parent = nil; return end
vm.Parent = camera
local t = os.clock()
if torchOn then
charge = max(0, charge - BATTERY_DRAIN * dt)
if charge <= 0 then setTorch(false); toast("Фонарик сел. Найди батарейку") end
end
spot.Brightness = TORCH_BRIGHT * clamp(0.35 + charge / 30, 0.35, 1)
chargeLabel.Text = "🔦 " .. math.ceil(charge) .. "%"
chargeLabel.TextColor3 = charge < 20 and Color3.fromRGB(230, 80, 70) or Color3.fromRGB(220, 220, 220)
local moving = hum.MoveDirection.Magnitude > 0.1
local running = runHeld and moving and not exhausted and not crouch
if running then
stamina = max(0, stamina - DRAIN * dt)
if stamina <= 0 then exhausted = true end
else
stamina = min(STAMINA_MAX, stamina + REGEN * dt * (crouch and 1.4 or 1))
if exhausted and stamina >= STAMINA_MAX * 0.35 then exhausted = false end
end
hum.WalkSpeed = crouch and CROUCH or running and RUN or WALK
local a = min(1, dt * 7)
camera.FieldOfView += ((running and RUN_FOV or BASE_FOV) - fear * 6 - camera.FieldOfView) * a
barFill.Size = UDim2.fromScale(stamina / STAMINA_MAX, 1)
barFill.BackgroundColor3 = exhausted and Color3.fromRGB(170, 40, 40) or Color3.fromRGB(220, 220, 220)
barBack.Visible = stamina < STAMINA_MAX
-- приземление: камера проседает
local inAir = hum.FloorMaterial == Enum.Material.Air
if wasAir and not inAir then landDip = 0.35 end
wasAir = inAir
landDip = max(0, landDip - dt * 1.2)
-- страх: сердцебиение, красные края, дрожь
heartT += dt * (1.2 + fear * 2.2)
local beat = max(0, sin(heartT * math.pi * 2)) ^ 8 * fear
fearFrame.BackgroundTransparency = 1 - beat * 0.25
if heartSnd then heartSnd.Volume, heartSnd.PlaybackSpeed = fear * 0.9, 1 + fear * 0.6 end
local onGround = not inAir
bobAmt += (((moving and onGround) and (running and 1.8 or crouch and 0.6 or 1) or 0) - bobAmt) * a
runA += ((running and 1 or 0) - runA) * a
crouchA += ((crouch and 1 or 0) - crouchA) * min(1, dt * 8)
leanA += (((leanL and 1 or 0) - (leanR and 1 or 0)) - leanA) * min(1, dt * 8)
bobT += dt * (running and 13 or crouch and 6 or 8.5)
local bx = sin(bobT) * 0.05 * bobAmt
local by = abs(cos(bobT)) * 0.06 * bobAmt
local breathe = sin(t * (1.7 + fear * 3 + (exhausted and 3 or 0))) * (0.015 + (exhausted and 0.02 or 0))
local tremble = fear * 0.006
local camCF = camera.CFrame
if lastCF then
local rx, ry = lastCF:ToObjectSpace(camCF):ToOrientation()
local k = 1 / max(dt * 60, 0.001)
sway = sway:Lerp(CFrame.Angles(clamp(-rx * k * 0.8, -0.15, 0.15), clamp(-ry * k * 0.8, -0.15, 0.15), 0), min(1, dt * 10))
end
-- приседание, наклон и качка камеры
hum.CameraOffset = Vector3.new(-leanA * 1.3, -crouchA * 1.6 - landDip * 2, 0)
camera.CFrame = camCF * CFrame.new(bx * 0.3, by * 0.4, 0)
* CFrame.Angles((math.random() - 0.5) * tremble, (math.random() - 0.5) * tremble, bx * 0.12 + leanA * rad(14))
lastCF = camCF
rayParams.FilterDescendantsInstances = {char, vm}
local hit = workspace:Raycast(camCF.Position, camCF.LookVector * 2.2, rayParams)
push += ((hit and (2.2 - hit.Distance) or 0) - push) * min(1, dt * 15)
-- жесты рук
reachT, inspectT, clickT = max(0, reachT - dt), max(0, inspectT - dt), max(0, clickT - dt)
local reach = sin(clamp(reachT / 0.45, 0, 1) * math.pi)
local inspect = sin(clamp(inspectT / 1.2, 0, 1) * math.pi)
local L = CFrame.new(0.25 * reach + 0.1 * inspect, 0.15 * reach + 0.12 * inspect, -0.6 * reach)
* CFrame.Angles(rad(15) * inspect, rad(25) * inspect + rad(20) * reach, sin(t * 3) * 0.1 * inspect)
local R = CFrame.new(0, -0.03 * sin(clamp(clickT / 0.25, 0, 1) * math.pi), 0)
button.Color = torchOn and Color3.fromRGB(200, 40, 40) or Color3.fromRGB(90, 20, 20)
local root = camera.CFrame * sway * CFrame.new():Lerp(RUN_POSE, runA)
* CFrame.new(bx, by + breathe - push * 0.3 - crouchA * 0.05, push * 0.8)
* CFrame.Angles(0, 0, -leanA * rad(6))
for _, item in ipairs(vmParts) do
local g = item[3] == "L" and L or item[3] == "R" and R or CFrame.new()
item[1].CFrame = root * g * item[2]
end
end)
]]>