SLIC-Reference : : AddMessage  

SFN_ERROR Slic_AddMessage::Call(SlicArgList *args)
{
	PLAYER_INDEX recip;

	if (args->Count() != 2)
		return SFN_ERROR_NUM_ARGS;
	
	if(!args->GetPlayer(0, recip))
		return SFN_ERROR_TYPE_ARGS;

	if(args->m_argValue[1].m_type != SA_TYPE_SEGMENT)
		return SFN_ERROR_TYPE_ARGS;

	if(!(args->m_argValue[1].m_segment)) {
		SlicSymbolData *sym = args->m_argValue[1].m_symbol;
		if(sym) {
			strcpy(g_missingSegment, sym->GetName());
		} else {
			strcpy(g_missingSegment, "???");
		}
		return SFN_ERROR_NOT_SEGMENT;
	}

	DPRINTF(k_DBG_SLIC, ("Slic_Message: ->%d: %s\n", 
						 recip,
						 args->m_argValue[1].m_segment->GetName()));

	SlicObject *obj = new SlicObject(args->m_argValue[1].m_segment, 
									 g_slicEngine->GetContext());
	obj->AddRecipient(recip);
	obj->CopyFromBuiltins();
	if (obj->GetNumPlayers() == 0)
	{
		obj->AddPlayer(recip);
	}
	g_slicEngine->Execute(obj);

	return SFN_ERROR_OK;
}