Dim Bible
Dim Merlin
Dim Satan
Dim Job
Dim Wife
Dim Odd
Dim Even
Dim Eliphaz
Dim Bildad
Dim Zophar
Dim Elihu
Dim LoadRequestUNC
Dim MyRequest
Dim PauseRequest
Dim MyAction
Dim PauseContinue

Sub LoadCast
On Error Resume Next
' Load characters and set each to the role they play
'	AgentControl.Characters.Load CharID, CharACS
Set LoadRequestUNC = Agent.Characters.Load ("Book", "BibleBook.acs")
Set Bible = Agent.Characters("Book")
Bible.Height = "170"
Bible.Width = "200"
Set LoadRequestUNC = Agent.Characters.Load ("Narator", "Peedy.acs")
Set Merlin = Agent.Characters("Narator")
Merlin.Commands.RemoveAll
Merlin.Balloon.Style = &H220000E
Merlin.LanguageID = &H0409
Set LoadRequestUNC = Agent.Characters.Load ("Genie", "Genie.acs")
Set Satan = Agent.Characters("Genie")
Satan.Commands.RemoveAll
Satan.Balloon.Style = &H220000E
Satan.LanguageID = &H0409
Set LoadRequestUNC = Agent.Characters.Load ("Job", "Merlin.acs")
Set Job = Agent.Characters("Job")
Job.Commands.RemoveAll
Job.Balloon.Style = &H220000E
Job.LanguageID = &H0409
Set LoadRequestUNC = Agent.Characters.Load ("MrsJob", "Rebecca.acs")
Set Wife = Agent.Characters("MrsJob")
Wife.Commands.RemoveAll
Wife.Balloon.Style = &H220000E
Wife.LanguageID = &H0409
Set LoadRequestUNC = Agent.Characters.Load ("Messenger1", "Paul.acs")
Set Odd = Agent.Characters("Messenger1")
Odd.Commands.RemoveAll
Odd.Balloon.Style = &H220000E
Odd.LanguageID = &H0409
Set LoadRequestUNC = Agent.Characters.Load ("Messenger2", "jamesW.acs")
Set Even = Agent.Characters("Messenger2")
Even.Commands.RemoveAll
Even.Balloon.Style = &H220000E
Even.LanguageID = &H0409
Set LoadRequestUNC = Agent.Characters.Load ("Friend1", "Chuck.acs")
Set Eliphaz = Agent.Characters("Friend1")
Eliphaz.Commands.RemoveAll
Eliphaz.Balloon.Style = &H220000E
Eliphaz.LanguageID = &H0409
Set LoadRequestUNC = Agent.Characters.Load ("Friend2", "Ben.acs")
Set Bildad = Agent.Characters("Friend2")
Bildad.Commands.RemoveAll
Bildad.Balloon.Style = &H220000E
Bildad.LanguageID = &H0409
Set LoadRequestUNC = Agent.Characters.Load ("Friend3", "Ozzar.acs")
Set Zophar = Agent.Characters("Friend3")
Zophar.Commands.RemoveAll
Zophar.Balloon.Style = &H220000E
Zophar.LanguageID = &H0409
Set LoadRequestUNC = Agent.Characters.Load ("Youth", "Louis.acs")
Set Elihu = Agent.Characters("Youth")
Elihu.Commands.RemoveAll
Elihu.Balloon.Style = &H220000E
Elihu.LanguageID = &H0409
Elihu.Height = "160"
Elihu.Width = "160"
End Sub