by irfan ali (1 Submission)
Category: Miscellaneous
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Sat 25th May 2002
Date Added: Mon 8th February 2021
Rating: 
(1 Votes)
using microsoft agent
API Declarations
Dim co As IAgentCtlCharacter
'Dim co2 As IAgentCtlCharacter
Dim pa As String
'Dim pa2 As String
VBcoders
Call co.Speak("Dont Hit Me ...")
co.Speak (" Stop .. Stop .. shame shame i am for ur help.... and you are hitting me.. ")
End Sub
Private Sub ag_Move(ByVal CharacterID As String, ByVal x As Integer, ByVal y As Integer, ByVal Cause As Integer)
'
End Sub
Private Sub ag2_Click(ByVal CharacterID As String, ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Integer, ByVal y As Integer)
'co2.Speak ("second Character")
End Sub
Private Sub Command1_Click()
pa = "f:\irfan\"
'pa2 = "d:\winnt\msagent\chars\"
Call ag.Characters.Load("merlin", pa & "merlin.acs")
Set co = ag.Characters("merlin")
' second character"
'Call ag2.Characters.Load("merlin", pa & "merlin.acs")
'Set co2 = ag2.Characters("merlin")
'Call co.MoveTo(Form1.Left = 2760, Form1.Top = 2160)
co.Show
'co2.Show
End Sub
Private Sub Command2_Click()
ms = Text1.Text
co.Speak (ms)
End Sub
Private Sub Form_Activate()
pa = "d:\winnt\msagent\chars\"
'pa2 = "d:\winnt\msagent\chars\"
Call ag.Characters.Load("genie", pa & "genie.acs")
Set co = ag.Characters("genie")
' second character"
'Call ag2.Characters.Load("merlin", pa & "merlin.acs")
'Set co2 = ag2.Characters("merlin")
'Call co.MoveTo(Form1.Left = 2760, Form1.Top = 2160)
co.Show
co.Left = 500
'co2.Show
Label3.FontBold = True
Label3.FontBold = True
co.Speak ("Hello Unknown User ... I Am your Pakistani Geni .... type Your Text In text Box Below .... And press .... Speak Button ...... Thank You")
End Sub
Private Sub Text1_Change()
End Sub
