وبلاگ رسمی مهدی غلامی میاندهی

البته قبل از نوشتن این برنامه باید دنبال فایل هایی با پسوند ACS بگردید و اونا رو کپی کنید(با تایپ *.ACS تو برنامه Search این کار راحت تر انجام میشه)

Dim cur As IAgentCtlCharacter

Dim st As String

Private Sub Command1_Click()

CommonDialog1.ShowOpen

st = CommonDialog1.FileName

Call Agent1.Characters.Load("Merlin", st)

Set cur = Agent1.Characters.Character("Merlin")

cur.Activate

cur.Show

End Sub

Private Sub Command2_Click()

cur.MoveTo Val(Text1), Val(Text2)

End Sub

Private Sub Command3_Click()

cur.Speak (Text3)

End Sub

Private Sub Command4_Click()

cur.Hide

End Sub

بعد از اجرای برنامه:
روی Command1 که کلیک کنید کادر Open باز میشه که یکی از فایل های acs رو باز کنید
تو Text1 و Text2 هر کدوم یه عدد بنویسید که مختصات یه نقطه رو فرمتونه
روی Command2 کلیک کنید که...
لطفاً بقیه شو خودتون امتحان کنید