SLIC-Reference : : CityHasBuilding  

SFN_ERROR Slic_CityHasBuilding::Call(SlicArgList *args)
{
	BOOL res;
	Unit city;

	if(args->Count() != 2) {
		return SFN_ERROR_NUM_ARGS;
	}

	res = args->GetCity(0, city);
	if(!res)
		return SFN_ERROR_TYPE_BUILTIN;
	
	if(args->m_argValue[1].m_type != SA_TYPE_HARD_STRING)
		return SFN_ERROR_TYPE_ARGS;
	const char *name = args->m_argValue[1].m_symbol->GetName();
	StringId sname;
	if(!g_theStringDB->GetStringID(name, sname)) {
		return SFN_ERROR_UNKNOWN_BUILDING;
	}

	for(sint32 i = 0; i < g_theBuildingDB->NumRecords(); i++) {
		if(g_theBuildingDB->Get(i)->m_name == sname) {
			if(city.HaveImprovement(i)) {
				m_result.m_int = 1;
			} else {
				m_result.m_int = 0;
			}
			return SFN_ERROR_OK;
		}
	}
	return SFN_ERROR_UNKNOWN_BUILDING;
}