טעינה בעת הצטרפות

local Players = game:GetService("Players")
local ServerStorage = game:GetService("ServerStorage")
local Lighting = game:GetService("Lighting")
local TweenService = game:GetService("TweenService")
local PathfindingService = game:GetService("PathfindingService")
local DataStoreService = game:GetService("DataStoreService")
local Settings = require(game.ReplicatedStorage.Settings)

local remotes = game.ReplicatedStorage.Remotes
local rooms = workspace.Rooms
local lastRoom = rooms.Lobby -- החדר החדש ביותר
local count = 0 -- חדרים שנוצרו עד כה
local monster = nil
local codes = {} -- דלת כספת -> הקוד שלה
local lastTry = {} -- שחקן -> מתי ניסה להזין קוד בפעם האחרונה
local bestStore = DataStoreService:GetDataStore("BestRoom")

-- הלילה יורד: אין שמש, יש מעט אור בכל מקום וערפל
Lighting.ClockTime = Settings.ClockTime
Lighting.Ambient = Settings.Ambient
Lighting.OutdoorAmbient = Settings.Ambient
Lighting.FogColor = Color3.new(0, 0, 0)
Lighting.FogEnd = Settings.FogEnd
print("Lights out")

-- כלי ששחקן נושא: בידו או ב-Backpack שלו
local function findTool(player, name)
	return (player.Character and player.Character:FindFirstChild(name)) or player.Backpack:FindFirstChild(name)
end

-- הסוללה של הפנסים מתרוקנת כשהם מאירים, והם כבים כשהיא נגמרת
task.spawn(function()
	while true do
		task.wait(0.25)
		for _, player in Players:GetPlayers() do
			local flashlight = player.Character and player.Character:FindFirstChild("Flashlight")
			if flashlight and flashlight.Handle.Beam.Enabled then
				local battery = math.max(0, flashlight:GetAttribute("Battery") - Settings.BatteryDrain * 0.25)
				flashlight:SetAttribute("Battery", battery)
				if battery == 0 then
					flashlight.Handle.Beam.Enabled = false
				end
			end
		end
	end
end)

-- פתח את הדלת בסיבוב על הציר שלה
local function openDoor(door)
	door:SetAttribute("Open", true)
	door.Panel.Prompt.Enabled = false
	local hinge, panel = door.Hinge, door.Panel
	local goal = hinge.CFrame * CFrame.Angles(0, math.rad(90), 0) * hinge.CFrame:ToObjectSpace(panel.CFrame)
	TweenService:Create(panel, TweenInfo.new(0.6), { CFrame = goal }):Play()
end

-- בחוץ: הריצה הסתיימה (וכמה זמן היא נמשכה)
local function escape(player)
	if player:GetAttribute("Escaped") then
		return
	end
	player:SetAttribute("EscapeTime", workspace:GetServerTimeNow() - player:GetAttribute("StartedAt"))
	player:SetAttribute("Escaped", true)
	if monster then
		monster:Destroy()
		monster = nil
	end
end

-- השחקן החי הקרוב ביותר שהמפלצת יכולה לתפוס (שאינו מסתתר), בטווח MonsterSight, והמרחק אליו
local function nearestCharacter(position)
	local best, bestDistance = nil, Settings.MonsterSight
	for _, player in Players:GetPlayers() do
		local character = player.Character
		local root = character and character:FindFirstChild("HumanoidRootPart")
		if root and character.Humanoid.Health > 0 and not character:GetAttribute("Hidden") then
			local distance = (root.Position - position).Magnitude
			if distance < bestDistance then
				best, bestDistance = character, distance
			end
		end
	end
	return best, bestDistance
end

-- האם המפלצת יכולה לראות את הדמות הזו? קרן שיוצאת מראשה ופוגעת בה
local function canSee(shadow, character)
	local from = shadow.Head.Position
	local params = RaycastParams.new()
	params.FilterDescendantsInstances = { shadow }
	local hit = workspace:Raycast(from, character.HumanoidRootPart.Position - from, params)
	return hit ~= nil and hit.Instance:IsDescendantOf(character)
end

-- לך לעבר נקודה: בקו ישר כשהדרך פנויה, אחרת לאורך מסלול
local function walkToward(shadow, goal, path)
	local root = shadow.HumanoidRootPart
	local params = RaycastParams.new()
	params.FilterDescendantsInstances = { shadow }
	local hit = workspace:Raycast(root.Position, goal - root.Position, params)
	if not hit or hit.Instance.Parent:FindFirstChildOfClass("Humanoid") then
		shadow.Humanoid:MoveTo(goal)
		return
	end
	path:ComputeAsync(root.Position, goal)
	local points = path:GetWaypoints()
	if path.Status == Enum.PathStatus.Success and points[2] then
		shadow.Humanoid:MoveTo(points[2].Position)
	end
end

-- מרכזו של חדר שנמצא `back` חדרים לפני החדר שבו נמצאים השחקנים (החדר
-- שלפני החדש ביותר), עבור מסלול הסיור של המפלצת
local function patrolPoint(back)
	for _, room in rooms:GetChildren() do
		if room:GetAttribute("Number") == count - 1 - back then
			return (room.Entrance.CFrame * CFrame.new(0, 3.1, -12)).Position
		end
	end
	return nil
end

-- אופן הפעולה של המפלצת: בכל רבע שנייה, בעקבות מישהו
local function runMonster(shadow)
	local humanoid = shadow.Humanoid
	local root = shadow.HumanoidRootPart
	local path = PathfindingService:CreatePath()
	local lastSeen = nil -- המקום שבו ראתה מישהו לאחרונה
	local back = 0 -- מסלול הסיור שלה: 0 הוא החדר של השחקנים, 2 הוא שני חדרים מאחור
	while shadow.Parent do
		local character = nearestCharacter(root.Position)
		if character and canSee(shadow, character) then
			lastSeen = character.HumanoidRootPart.Position
		else
			character = nil
		end
		if character and (character.HumanoidRootPart.Position - root.Position).Magnitude <= Settings.CatchDistance then
			-- נתפס: השחקן הובס, והמפלצת נעלמת עד הדלת הבאה
			character.Humanoid.Health = 0
			shadow:Destroy()
			monster = nil
			return
		end
		local goal = character and character.HumanoidRootPart.Position or lastSeen
		if goal then
			walkToward(shadow, goal, path)
			-- היא הגיעה למקום שבו ראתה אותך לאחרונה, ואתה לא שם: היא מוותרת
			if not character and ((goal - root.Position) * Vector3.new(1, 0, 1)).Magnitude < 1.5 then
				lastSeen = nil
			end
		else
			-- אף אחד לא נראה לעין: סיור הלוך ושוב
			local point = patrolPoint(back) or patrolPoint(0)
			if point then
				walkToward(shadow, point, path)
				if ((point - root.Position) * Vector3.new(1, 0, 1)).Magnitude < 2 then
					back = back == 0 and 2 or 0
				end
			end
		end
		task.wait(0.25)
	end
end

-- המפלצת מופיעה מאחוריך: בכניסה לחדר שנמצא שני חדרים לפני החדש ביותר
local function spawnMonster()
	local behind = nil
	for _, room in rooms:GetChildren() do
		if room:GetAttribute("Number") == count - 2 then
			behind = room
		end
	end
	if not behind then
		return
	end
	monster = ServerStorage.Shadow:Clone()
	monster:PivotTo(behind.Entrance.CFrame + Vector3.new(0, 3.1, 0))
	monster.Humanoid.WalkSpeed = Settings.MonsterSpeed
	monster.Parent = workspace
	task.spawn(runMonster, monster)
end

local addRoom -- מוגדר בהמשך: דלת מוסיפה חדר, ולחדר יש דלת

-- מה קורה לדלת כששחקן פותח אותה
local function setupDoor(door)
	door.Panel.Prompt.Triggered:Connect(function(player)
		if door:GetAttribute("Open") then
			return
		end
		if door:GetAttribute("Vault") and door:GetAttribute("Locked") then
			return -- דלת של כספת נפתחת באמצעות הקוד שלה, שמוזן בלוח המקשים
		end
		if door:GetAttribute("Locked") then
			local key = findTool(player, "Key")
			if not key then
				return
			end
			key:Destroy()
			door:SetAttribute("Locked", nil)
		end
		if door:GetAttribute("Exit") then
			escape(player)
			openDoor(door)
			return
		end
		if door.Parent == lastRoom then
			addRoom()
		end
		openDoor(door)
	end)
end
setupDoor(workspace.Rooms.Lobby.Door)

-- כשנכנסים לחדר: הוא הופך ל-Room של השחקן ולנקודת השמירה שלו
local function setupEntry(room)
	room.Entry.Touched:Connect(function(hit)
		local player = Players:GetPlayerFromCharacter(hit.Parent)
		if player then
			local number = room:GetAttribute("Number")
			player.leaderstats.Room.Value = number
			player.RespawnLocation = room.Checkpoint
			if number > player.leaderstats.Best.Value then
				player.leaderstats.Best.Value = number
			end
		end
	end)
end
setupEntry(workspace.Rooms.Lobby)

-- ארון: לוחצים על E כדי להתחבא בתוכו, ושוב על E כדי לצאת
local function setupCloset(closet)
	closet.Front.Prompt.Triggered:Connect(function(player)
		local character = player.Character
		if character:GetAttribute("Hidden") then
			character:PivotTo(closet.Front.CFrame * CFrame.new(-3, -1, 0) * CFrame.Angles(0, math.rad(90), 0))
			character:SetAttribute("Hidden", nil)
		else
			character:PivotTo(closet.Inside.CFrame + Vector3.new(0, 2.5, 0))
			character:SetAttribute("Hidden", true)
		end
	end)
end

-- חדר חדש ביציאה מהחדר החדש ביותר
function addRoom()
	count += 1
	local name = Settings.Order[(count - 1) % #Settings.Order + 1]
	if count >= Settings.RoomsToEscape then
		name = "Exit"
	end
	local room = ServerStorage.Rooms[name]:Clone()
	room:PivotTo(lastRoom.Exit.CFrame)
	room:SetAttribute("Number", count)
	room.Sign.SurfaceGui.Number.Text = "Room " .. count
	room.Parent = rooms
	lastRoom = room
	setupDoor(room.Door)
	setupEntry(room)
	-- חדר נעול מחזיק את המפתח שלו בתוכו
	local keySpot = room:FindFirstChild("KeySpot")
	if keySpot then
		local key = ServerStorage.Key:Clone()
		key.Handle.CFrame = keySpot.CFrame
		key.Parent = room
		key.Handle.Prompt.Triggered:Connect(function(player)
			key.Handle.Prompt.Enabled = false
			key.Parent = player.Backpack
		end)
	end
	local closet = room:FindFirstChild("Closet")
	if closet then
		setupCloset(closet)
	end
	-- בחלק מהחדרים יש סוללה
	local batterySpot = room:FindFirstChild("BatterySpot")
	if batterySpot then
		local battery = ServerStorage.Battery:Clone()
		battery.CFrame = batterySpot.CFrame
		battery.Parent = room
		battery.Prompt.Triggered:Connect(function(player)
			local flashlight = findTool(player, "Flashlight")
			if flashlight and battery.Parent then
				flashlight:SetAttribute("Battery", math.min(Settings.BatteryMax, flashlight:GetAttribute("Battery") + Settings.BatteryRefill))
				battery:Destroy()
			end
		end)
	end
	-- הקוד של הכספת מופיע על הפתק שבתוכה
	if room.Door:GetAttribute("Vault") then
		local code = tostring(math.random(1000, 9999))
		codes[room.Door] = code
		room.Note.SurfaceGui.Code.Text = "Code " .. code
	end
	-- משאירים את החדר החדש ביותר ואת KeepRooms החדרים שמאחוריו
	for _, old in rooms:GetChildren() do
		local number = old:GetAttribute("Number")
		if number < count - Settings.KeepRooms then
			print("Room " .. number .. " is gone")
			old:Destroy()
		end
	end
	if count >= Settings.MonsterFrom and not monster then
		spawnMonster()
	end
	return room
end

-- כשיוצאים מהארון, כבר לא מתחבאים
task.spawn(function()
	while true do
		task.wait(0.25)
		for _, player in Players:GetPlayers() do
			local character = player.Character
			if character and character:GetAttribute("Hidden") then
				local closest = math.huge
				for _, inside in workspace.Rooms:GetDescendants() do
					if inside.Name == "Inside" then
						closest = math.min(closest, (inside.Position - character.HumanoidRootPart.Position).Magnitude)
					end
				end
				if closest > 4 then
					character:SetAttribute("Hidden", nil)
				end
			end
		end
	end
end)

-- קוד שהוקלד בלוח המקשים של כספת. השרת בודק: כספת אמיתית שנמצאת ליד
-- השחקן, ניסיון אחד בכל CodeWait, ושהקוד נכון
remotes.TryCode.OnServerInvoke = function(player, door, code)
	if typeof(door) ~= "Instance" or not codes[door] or typeof(code) ~= "string" then
		return false
	end
	local root = player.Character and player.Character:FindFirstChild("HumanoidRootPart")
	if not root or (root.Position - door.Panel.Position).Magnitude > 12 then
		return false
	end
	local now = time()
	if lastTry[player] and now - lastTry[player] < Settings.CodeWait then
		return false
	end
	lastTry[player] = now
	if code ~= codes[door] then
		return false
	end
	codes[door] = nil
	door:SetAttribute("Locked", nil)
	if door.Parent == lastRoom then
		addRoom()
	end
	openDoor(door)
	return true
end

-- לכל שחקן: Room ו-Best בטבלת המובילים, ופנס בכל פעם שהוא חוזר לחיים
Players.PlayerAdded:Connect(function(player)
	local leaderstats = Instance.new("Folder")
	leaderstats.Name = "leaderstats"
	leaderstats.Parent = player

	local room = Instance.new("IntValue")
	room.Name = "Room"
	room.Parent = leaderstats

	player.CharacterAdded:Connect(function()
		if not player:GetAttribute("StartedAt") then
			player:SetAttribute("StartedAt", workspace:GetServerTimeNow())
		end
		local flashlight = ServerStorage.Flashlight:Clone()
		flashlight:SetAttribute("Battery", Settings.BatteryMax)
		flashlight.Parent = player.Backpack
		local beam = flashlight.Handle.Beam
		flashlight.Activated:Connect(function()
			if beam.Enabled then
				beam.Enabled = false
			elseif flashlight:GetAttribute("Battery") > 0 then
				beam.Enabled = true
			end
		end)
	end)

	-- החדר העמוק ביותר שהשחקן הזה הגיע אליו
	local best = Instance.new("IntValue")
	best.Name = "Best"
	best.Parent = leaderstats
	-- שיעור 25: כאן יש להוסיף טעינה בעת הצטרפות
end)

-- שמירת החדר הרחוק ביותר שאליו הגיע השחקן כשהוא עוזב וכשהשרת נסגר
local function saveBest(player)
	pcall(function()
		bestStore:SetAsync(tostring(player.UserId), player.leaderstats.Best.Value)
	end)
end
Players.PlayerRemoving:Connect(saveBest)
game:BindToClose(function()
	for _, player in Players:GetPlayers() do
		saveBest(player)
	end
end)