Tutorials    Freebies    Links    Feedback    Thank me
Agent Store   Agent Games   Legal notice    History
Home

Intro»»Part 1»»Part 2»»Part 3»»Part 4

The first steps

First, you need to add The Agent control, a command button and a label to the form. Set their properties according to this:

Command button: Name = cmdStart, Caption = "Start process"
Label: Name = lblSymbol
Agent control: Name = Agent1

Then add the next bit of code to the General | Declarations section of your form:

Dim Peedy As IAgentCtlCharacter
Const PEEDYPATH = "Peedy.acs"

You then need to add the following code to the Form_Load() section of code:

Agent1.Characters.Load "Peedy", PEEDYPATH
Set Peedy = Agent1.Characters("Peedy")
Peedy.MoveTo 100, 100 'MoveTo is used to move an _
agent character to the specified position.

Peedy.Show True 'Adding "True" to Show will make the _
agent character appear without playing its _
appearance animation.

Peedy.Play "RestPose"

This gets Peedy to a convenient position, ready to talk.

Intro»»Part 1»»Part 2»»Part 3»»Part 4