SLIC-Reference : : IsUnitSelected  

SFN_ERROR Slic_IsUnitSelected::Call(SlicArgList *args)
{
	PLAYER_INDEX player;
	ID item;
	SELECT_TYPE state;
	
	g_selected_item->GetTopCurItem(player, item, state);

	m_result.m_int = 0;

	if(state != SELECT_TYPE_LOCAL_ARMY) {
		return SFN_ERROR_OK;
	}

	if(args->Count() == 0) {
		m_result.m_int = 1;
		return SFN_ERROR_OK;
	} else if(args->Count() == 1) {
		Unit u;
		if(!args->GetUnit(0, u)) {
			return SFN_ERROR_TYPE_ARGS;
		}
		if(g_theUnitPool->IsValid(u)) {
			Army army(item);
			if(army.IsPresent(u)) {
				m_result.m_int = 1;
			}
		}
		return SFN_ERROR_OK;
	}
	return SFN_ERROR_NUM_ARGS;
}