local a={}local D repeat wait()D=main:GetModule("\099\102")until D.RandomiseTable local r=D:RandomiseTable(a,86400)for a,D in pairs(r)do local r=D[1]local s=D[2]local Y=math.ceil(a/2)local N=a%2 local o if N==1 then o=templateGame:Clone()o.Name="\065\073 \071\097\109\101"..Y o.Visible=true o.Parent=pages.donor else o=pages.donor["\065\073 \071\097\109\101"..Y]end local P=o["\071\097\109\101\073\109\097\103\101"..N]local T=o["\071\097\109\101\078\097\109\101"..N]local V="\104\116\116\112\115\058\047\047\097\115\115\101\116\103\097\109\101\046\114\111\098\108\111\120\046\099\111\109\047\071\097\109\101\047\084\111\111\108\115\047\084\104\117\109\098\110\097\105\108\065\115\115\101\116\046\097\115\104\120\063\097\105\100\061"..(r.."\038\102\109\116\061\112\110\103\038\119\100\061\052\050\048\038\104\116\061\052\050\048")P.Image=V T.Text=s P.Visible=true T.Visible=true local S=P.Select local O=P.ClickFrame S.MouseButton1Click:Connect(function()teleportFrame.ImageLabel.Image=V teleportFrame.TeleportTo.TextLabel.Text=s.."\063"teleportFrame.MainButton.PlaceId.Value=r;(main:GetModule("\099\102")):ShowWarning("\084\101\108\101\112\111\114\116")end)S.MouseEnter:Connect(function()if not main.warnings.Visible then O.Visible=true end end)S.MouseLeave:Connect(function()O.Visible=false end)teleportFrame.Visible=true end

local gamesWithDonor = {
	-- Its currently too time consuming and unfair to maintain donor games
	-- A new automated discover will be introduced with the successor of HD Admin, Nanoblox
	--[[{574407221, "Super Hero Tycoon"};
	{2921400152, "4PLR Tycoon"};
	{1828225164, "Guest World"};
	{591993002, "OHD Roleplay World"};
	{4823091615 , "Paradise Life"};
	{49254942, "2 Player House Tycoon"};
	{3169584572, "Meme Music"};
	{2764548803, "Island Hotel"};
	{3093229294, "Animations: Mocap"};
	{3411100258, "evry bordr gam evr"};
	{3108078982, "HD Admin House"};
	{12996397, "Mega Fun Obby 🌟"};
	{184558572, "Survive the Disasters"};
	{4522347649, "[FREE ADMIN]"};
	{4913581664, "Cart Ride Into Rdite!"};--]]
	
	--{0, ""};
	}
local coreFunctions
repeat wait() coreFunctions = main:GetModule("cf") until coreFunctions.RandomiseTable
local gamesWithDonorSorted = coreFunctions:RandomiseTable(gamesWithDonor, 86400)
for i, gameData in pairs(gamesWithDonorSorted) do
	local gameId = gameData[1]
	local gameName = gameData[2]
	local row = math.ceil(i/2)
	local column = i % 2 
	local gamePage
	if column == 1 then
		gamePage = templateGame:Clone()
		gamePage.Name = "AI Game".. row
		gamePage.Visible = true
		gamePage.Parent = pages.donor
	else
		gamePage = pages.donor["AI Game".. row]
	end
	local gameThumbnail = gamePage["GameImage"..column]
	local gameLabel = gamePage["GameName"..column]
	local image = "https://assetgame.roblox.com/Game/Tools/ThumbnailAsset.ashx?aid=".. gameId .."&fmt=png&wd=420&ht=420"
	gameThumbnail.Image = image
	gameLabel.Text = gameName
	gameThumbnail.Visible = true
	gameLabel.Visible = true
	--Teleport to game
	local selectButton = gameThumbnail.Select
	local clickFrame = gameThumbnail.ClickFrame
	selectButton.MouseButton1Click:Connect(function()
		teleportFrame.ImageLabel.Image = image
		teleportFrame.TeleportTo.TextLabel.Text = gameName.."?"
		teleportFrame.MainButton.PlaceId.Value = gameId
		main:GetModule("cf"):ShowWarning("Teleport")
	end)
	selectButton.MouseEnter:Connect(function()
		if not main.warnings.Visible then
			clickFrame.Visible = true
		end
	end)
	selectButton.MouseLeave:Connect(function()
		clickFrame.Visible = false
	end)
	teleportFrame.Visible = true
end


