construct_surf(initialize):- 
	set_up_con_surf.

set_up_con_surf :-
	curr_zone(_Zone_number),!,
	repeat, gen_integer(_N, 1), (
	con_load_surf_data(_Zone_number,_N),
	load_surf_con(_Zone_number,_N),
	load_door_type(_Zone_number,_N),
	load_window_type(_Zone_number,_N)
	),_N = 5,!.
	

con_load_surf_data(_Zone_number,_N):-
	surf_order(_Zone_number,_N,_X_coord),!,
	tell_usr(['con_surf_order$', _N], _X_coord);
	tell_usr(['con_surf_order$', _N], ' ').


'surf_construction$'(_N,_Surfcon) :-
	curr_zone(_Current_zone),
	assert(surf_const(_Current_zone,_N,_Surfcon)),
	uset(surf_const,[_Current_zone,_N],_Surfcon).

load_surf_con(_Zone_number,_N):-
	surf_const(_Zone_number,_N,_Surfcon),!,
	tell_usr(['surf_construction$', _N],_Surfcon);
	tell_usr(['surf_construction$', _N], ' ').

'door_type$'(_N,_Door_type) :-
	curr_zone(_Current_zone),
	assert(door_contype(_Current_zone,_N,_Door_type)),
	uset(door_contype,[_Current_zone,_N],_Door_type).

load_door_type(_Zone_number,_N):-
	door_contype(_Zone_number,_N,_Door_type),!,
	tell_usr(['door_type$', _N],_Door_type);
	tell_usr(['door_type$', _N], ' ').

'window_type$'(_N,_Window_type) :-
	curr_zone(_Current_zone),
	assert(wind_type(_Current_zone,_N,_Window_type)),
	uset(wind_type,[_Current_zone,_N],_Window_type).

load_window_type(_Zone_number,_N):-
	wind_type(_Zone_number,_N,_Window_type),!,
	tell_usr(['window_type$', _N], _Window_type);
	tell_usr(['window_type$', _N], ' ').

