3. 調用角色數據：
載入動畫角色
ThisForm.Olecontrol1.Characters.Load("merlin", "merlin.ACS")
oChar = ThisForm.Olecontrol1.Characters("merlin")
oChar.MoveTo(RAND()*600, RAND()*600)
oChar.Show
*將角色數據文件中的動畫名稱加入動畫文件列表框，有許多動畫在文件中不能找到，因此通過載入動畫名稱讓用戶選擇。
For Each cAnimName in oChar.AnimationNames
ThisForm.AnimNames.AddItem(cAnimName)
ochar.play(canimname)*可能有的動畫循環播放，因此有的動畫可能無法顯示。
EndFor
開場介紹
ochar.languageid=0x409
oChar.Speak("Hello \emp\there!|Hey, \pau=600\all you boys and girls.|Greetings, and felicitations.")
oChar.Speak("Welcome to DevCon, my friends.")
播放指定的角色動畫
OChar.Play(ThisForm.lbxAnimNames.DisplayValue)
閱讀指定文本
oChar.languageid=0x409*指定語言種類，0X409代表美式英語
oChar.Speak(ThisForm.txtSpeak.Value')
由于TTS引擎不支持中文，因此如果要閱讀中文，可以按如下方法：
將要閱讀的漢語文本通過錄音制作成WAV文件，如SNDFILE.WAV
oChar.languageid=0x804;//指定語言種類，0X804代表中文
oChar.speak(‘你好！’,’SNDFILE.WAV’);//SNDFILE.WAV及為制作的聲音文件
停止循環播放的動畫
oChar.Stop
卸載動畫角色
With ThisForm
.Olecontrol1.Characters.Unload("merlin")
.AnimNames.Clear
Endwith
加載閱讀文本，也可以直接輸入內容
Cfile=Getfile()
Nhandle=Fopen(Cfile)
Hend=Fseek(Nhandle,0,2)
If Hend<=0
Messagebox("文件無法打開！",16,"提示窗口")
Return
Else
=Fseek(Nhandle,0,0)
Cstring=Fread(Nhandle,Hend)
=Fclose(Nhandle)
Endif
Thisform.Txtspeak.Value=Cstring
綜合演示
Ochar.Languageid=0x409
With Ochar
.Play("Greet")
.Play("Restpose")
.Speak("Hello!")
.Play("Announce")
.Speak("I Am Merlin.")
.Play("Pleased")
.Speak("It Is Nice To Meet You!")
.Moveto(250,500)
.Speak("Now,Here Is A Magic Trick.")
.Play("Domagic1")
.Play("Domagic2")
.Play("Pleased")
.Play("Restpose")
.Speak("Thank You!")
.Play("Wave")
.Speak("Goodbye")
.Play("Hide")
Endwith
關閉表單
Thisform.Release