SLIC-Reference : : FinishImprovements  

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

	MapPoint pos;
	if(!args->GetPos(0, pos))
		return SFN_ERROR_TYPE_ARGS;

	Cell *cell = g_theWorld->GetCell(pos);

	g_gevManager->Pause();

	for (sint32 i = 0; i < cell->GetNumImprovements(); i++) 
    {
		g_gevManager->AddEvent(GEV_INSERT_Tail,
							   GEV_ImprovementComplete,
							   GEA_Improvement, cell->AccessImprovement(i),
							   GEA_End);
	}
	g_gevManager->Resume();

	return SFN_ERROR_OK;
}