SLIC-Reference : : AddSlaves  

SFN_ERROR Slic_AddSlaves::Call(SlicArgList *args)
{
	if(args->Count() != 3)
		return SFN_ERROR_NUM_ARGS;

	Unit city;
	if(!args->GetCity(0, city))
		return SFN_ERROR_TYPE_ARGS;

	sint32 count;
	if(!args->GetInt(1, count))
		return SFN_ERROR_TYPE_ARGS;

	sint32 victim;
	if(!args->GetPlayer(2, victim))
		return SFN_ERROR_TYPE_ARGS;

	MapPoint pos; 
	city.GetPos(pos);
	
	sint32 i;
	if(count > 0) {
		for (i=0;  iAddEvent(GEV_INSERT_Tail, GEV_MakePop,
						   GEA_City, city.m_id,
						   GEA_Player, victim,
						   GEA_End);
			
		}
	} else {
		// Add code to convert count slaves to normal pops here later.
		for(i = count; i < 0; i++) {
			// Add pop remove code here later (KillPop event).
		}
	}

	
	sint32 delta_martial_law;
	CityData *cd = city.GetData()->GetCityData();
	cd->GetHappy()->CalcHappiness(*cd, FALSE, delta_martial_law, TRUE);

	return SFN_ERROR_OK;
}