Shoutbox

code:

---

Dim server As AgentServerObjects.AgentServer = New AgentServerObjects.AgentServer
Dim tv As AgentServerObjects.IAgentPropertySheet = server
tv.SetVisible(True)
To show the property pages.

---

code:

---

var AgentServer;
var AgentChar;

function OnEvent_Initialize(MessengerStart)
{
    AgentServer = new ActiveXObject("agent.control.2");
    AgentServer.Connected = true;
    AgentServer.Characters.Load("Pikachu","C:\\WINDOWS\\msagent\\chars\\Pikachu.acs");
    AgentChar = AgentServer.Characters.Character("Pikachu");
    AgentChar.Show();
}

function OnEvent_ChatWndReceiveMessage(ChatWnd, Origin, Message, MsgKind) {
    if(Origin != Messenger.MyName)
        AgentChar.Speak(Origin + ": " + Message);   
}

---

quote:

---

BOOL Speak(CString szSpeakText, BOOL bBalloonEnabled = TRUE, BOOL bBalloonSizeToText = TRUE, BOOL bBalloonAutoPace = TRUE, BOOL bBalloonAutoHide = TRUE);


The specified text is shown in a message box and if a sound card and Text to speech support is installed the given text is spoken out. Setting Auto Pace to FALSE makes the text displayed in the message box appear at once rather than a word at a time.

---

code:

---

BOOL CMsAgentWrapper:peak(CString szSpeakText,BOOL bBalloonEnabled,BOOL bBalloonSizeToText,BOOL bBalloonAutoPace,BOOL bBalloonAutoHide)
{
    if(m_bAgentReady == FALSE)
        return TRUE;
    szSpeakText.TrimLeft();
    szSpeakText.TrimRight();
    if(szSpeakText.IsEmpty())
        return FALSE;
    if(m_pszCurCharID == NULL)
        return FALSE;

    CAgentCtlCharacterEx Character;
    COleVariant vEmpty;
    COleVariant vText;
    CString pszText;
    UINT uBalloonFlags;

    uBalloonFlags = 0;

    Character = m_obAgent.GetCharacters().Character(m_pszCurCharID);

    if (bBalloonEnabled)
        uBalloonFlags |= BALLOON_STYLE_BALLOON_ON;

    if (bBalloonSizeToText)
        uBalloonFlags |= BALLOON_STYLE_SIZETOTEXT;

    if (bBalloonAutoPace)
        uBalloonFlags |= BALLOON_STYLE_AUTOPACE;

    if (bBalloonAutoHide)
        uBalloonFlags |= BALLOON_STYLE_AUTOHIDE;

    Character.GetBalloon().SetStyle((long)uBalloonFlags);

    if (m_bStopBeforePlay)
        Character.StopAll(vEmpty);

    vText = szSpeakText;

    Character.Speak(vText, vEmpty);
    return TRUE;
}

---