function AddArchangelsSpecialization()
	if GetObjectDwellingCreatures('имя_города', CREATURE_ANGEL) ~= -1 then
		local add = 1
		if grail_built == 1 then
			add = add + 3
		end
		SetObjectDwellingCreatures('имя_города', CREATURE_ANGEL, GetObjectDwellingCreatures('имя_города', CREATURE_ANGEL) + add)
	end
end

function NewDay()
	-- ... --
	if GetDate(DAY_OF_WEEK) == 1 then
		AddArchangelsSpecialization()
	end
	-- ... --
end

Trigger(NEW_DAY_TRIGGER, 'NewDay')

grail_built = 0

function WaitForBuildGrail()
	while GetTownBuildingLevel('имя_города', ID_ЗДАНИЯ_СЛЕЗЫ_АСХИ) == 0 do
		sleep(10)
	end
	grail_built = 1
end

startThread(WaitForBuildGrail)