
"../deathforth/rooms/city.txt" $load-rooms
"../deathforth/rooms/office.txt" $add-rooms
"../deathforth/rooms/shop.txt" $add-rooms
"../deathforth/rooms/restroom.txt" $add-rooms

load? events/city/city-locations.df

map{ regiondef{

	: pick-building

		' curbuild ++ try-special-build if then;

		auto-picklocid
			
		trashed-apartment-maker
	;

	: pick-lots
		blocks-init
			6 to blockh
			1 to maxrows
			5 to streeth
			13 to greenspace%
			0 1 rnd to grassylots
		blocks-start

		pavement 		
		begin canplot? while
			pick-building next-plot
			canplot? 0= if break then
			block-middle? if LOT_GRASS lastlot = if 1 else 0 then aplot then
		repeat street-junk
	;

	: building-pick-setup
		0 to curbuild
		5diff %zombs pavement pick-lots
	;
	
} }

regiondef{

	: runme
		building-pick-setup
	;

	 region: new-locations-test
		w: 34
		h: 14
		script: timeofday o'clock

	houseorapt evaluate
	houseorapt evaluate
		
		post-script: runme
}
