function InitBuildings()
for i, building in GetObjectNamesByType"PEASANT_HUT" do
Trigger(5, building, "TransformBuilding")
end
for i, building in GetObjectNamesByType"ARCHERS_HOUSE" do
Trigger(5, building, "TransformBuilding")
end
for i, building in GetObjectNamesByType"BARRACKS" do
Trigger(5, building, "TransformBuilding")
end
for i, building in GetObjectNamesByType"HEAVEN_MILITARY_POST" do
Trigger(5, building, "TransformBuilding")
end
end

function TransformBuilding(_, _, hero, building)
if hero == "Pelt" then
ReplaceDwelling(building, TOWN_NECROMANCY)
end
end

function TransformHavenTown(_, _, hero)
if hero == "Pelt" then
TransformTown("Sian", TOWN_NECROMANCY)
sleep(10)
SetObjectPosition("Pelt", GetObjectPosition("Sian"))
end
end

startThread(InitBuildings)
Trigger(5, "Sian", "TransformHavenTown")