Dim Wizard As IagentCtlCharacterEx                    ‘ Bir agent karakteri oldu?u bildiriliyor

 

Agent1.Characters.Load "wizard", "wizard.acs"       ‘ Karakter ça?r?l?yor

Set Wizard = Agent1.Characters("wizard")

Wizard.Show                                                       ‘ Karakter gösteriliyor

Wizard.Play "Greet"                                             ‘ “Greet� animasyonu oynat?l?yor

Wizard.Speak "Merhaba Ben Geldim!"                 ‘ Animasyonla birlikte konu?uyor

Wizard.MoveTo 300, 400                                    ‘ 300, 400 pozisyonuna gönderiliyor

Wizard.Play "DoMagic1"                                      ‘ Sihir animasyonu

Wizard.Play "DoMagic2"                            

Wizard.Speak "Basit bir numara"

Wizard.Hide                                                         ‘ Saklan?yor