SLIC-Reference : : CreateUnit  

SFN_ERROR Slic_CreateUnit::Call(SlicArgList *args)
{
	if (args->Count() < 4 || args->Count() > 5) {
		return SFN_ERROR_NUM_ARGS;
	}
	sint32 owner;
	if(!args->GetPlayer(0, owner)) {
		return SFN_ERROR_TYPE_ARGS;
	}

	sint32 type;
	if(!args->GetInt(1, type)) {
		return SFN_ERROR_TYPE_ARGS;
	}

	MapPoint pos;
	BOOL res = args->GetPos(2, pos);
	if(!res)
		return SFN_ERROR_TYPE_ARGS;

	sint32 distance;
	if(!args->GetInt(3, distance)) {
		return SFN_ERROR_TYPE_ARGS;
	}

	const UnitRecord *rec = g_theUnitDB->Get(type, g_player[owner]->GetGovernmentType());
	// Check if the function was called with a valid unit type.
	if(!rec) return SFN_ERROR_UNKNOWN_UNIT_TYPE;

	sint32 x, y;
	BOOL found = FALSE;
	DynamicArray legalPoints;
	for(x = 0; x < g_theWorld->GetXWidth(); x++) {
		for(y = 0; y < g_theWorld->GetYHeight(); y++) {
			MapPoint chk(x, y);
			sint32 dist = pos.NormalizedDistance(chk);
			Cell *cell = g_theWorld->GetCell(chk);
			if(dist == distance && 
			   g_theWorld->CanEnter(chk, rec->GetMovementType()) && 
			   (!cell->UnitArmy() ||
				(cell->UnitArmy()->GetOwner() == owner &&
				 cell->UnitArmy()->Num() < k_MAX_ARMY_SIZE)) &&
			   (cell->GetCity().m_id == (0) ||
				cell->GetCity().GetOwner() == owner)) {
				legalPoints.Insert(chk);
				found = TRUE;
			}
		}
	}

	if(found) {
		MapPoint upos;
		upos = legalPoints[g_rand->Next(legalPoints.Num())];
		Unit unit;
		if(g_player[owner]) {
			unit = g_player[owner]->CreateUnit(type, upos,
													Unit(),
													FALSE,
													CAUSE_NEW_ARMY_SCENARIO);
		}
		if(unit.m_id == 0) {
			m_result.m_int = 0;
		} else {
			m_result.m_int = 1;
			if (args->Count() > 4) {
				if(args->m_argValue[4].m_type == SA_TYPE_INT_VAR) {
					SlicSymbolData *sym = args->m_argValue[4].m_symbol;
					sym->SetUnit(unit);
					
				}
			}
		}
	} else {
		m_result.m_int = 0;
	}
	return SFN_ERROR_OK;
}