
"../deathforth/rooms/city.txt" $add-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;
		
		rowsleft 3 >= 40 %chance and if 0 else
			rowsleft 2 <= 75 %chance and if 0 else auto-picklocid then
		then
		
		trashed-apartment-maker
	;

	: pick-lots
		blocks-init
			6 to blockh
			4 to maxrows
			5 to streeth
			35 to greenspace%
			1 3 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: 30
		h: 45
		script: timeofday o'clock

	houseorapt evaluate
	houseorapt evaluate
	houseorapt evaluate
	rarething evaluate
	
		post-script: runme
}
