SLIC-Reference : : GetUnitFromCargo  

//----------------------------------------------------------------------------
//
// Authored   : Martin Ghmann
//
// Name       : Slic_GetUnitFromCargo
//
// Description: New function to figure out how much cargo a unit can carry.
//
// Parameters : SlicArg 0: unit
//              SlicArg 1: int
//              SlicArg 2: unit
//
// Globals    : -
//
// Returns    : SFN_ERROR		: execution result
//
//----------------------------------------------------------------------------
SFN_ERROR Slic_GetUnitFromCargo::Call(SlicArgList *args)
{
	m_result.m_int = 0;
	Unit u;
	sint32 index;

	if(!args->GetUnit(0, u))
		return SFN_ERROR_TYPE_ARGS;

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

	if(args->Count() < 3) {
		return SFN_ERROR_NUM_ARGS;
	}

	if(args->m_argValue[2].m_type != SA_TYPE_INT_VAR) {
		return SFN_ERROR_TYPE_ARGS;
	}
	
	if(index < 0 || index >= u.GetNumCarried()) {
		return SFN_ERROR_OUT_OF_RANGE;
	}

	SlicSymbolData *sym = args->m_argValue[2].m_symbol;
	Unit u2 = u.GetData()->GetCargoList()->Get(index);
	sym->SetUnit(u2);
	m_result.m_int = 1;
	return SFN_ERROR_OK;
}