controlrobby.bas

机器人程序

Attribute VB_Name = "ControlRobby"
'ControlRobby.bas
'Control MS Agent ActiveX, Robby.
'控制 MS Agent ActiveX 控件,人物为Robby

'- - - - - - - - - - - - - - - - - - - - - - - - - -

'初始化
Public Sub InitRobby()
  If RobbyCanSee = False Then Exit Sub
  GRVBMain.RobbyAgent.Characters.Load "Robby", "robby.acs"
  Set Robby = GRVBMain.RobbyAgent.Characters("Robby")
  Robby.Left = 800
  Robby.Top = 150
  Robby.Balloon.FontSize = 12
  Robby.Show
  Robby.Balloon.FontName = "Arial"
  Robby.IdleOn = True
End Sub

'欢迎
Public Sub RobbyWelcome()
  If RobbyCanSee = False Then Exit Sub
  Robby.Play "Wave"
  Robby.Speak "您好，我是 GoRo!"
  Robby.Play "Blink"
End Sub

'再见
Public Sub RobbyBye()
  If RobbyCanSee = False Then Exit Sub
  Robby.Speak "再见"
  Robby.Play "Wave"
  Robby.Play "blink"
End Sub

'请开始新游戏
Public Sub RobbyNewGame()
  If RobbyCanSee = False Then Exit Sub
  Robby.Play "Explain"
  Robby.Speak "新游戏开始了!"
  Robby.Play "blink"
End Sub

'报告该人走了
Public Sub TellManplay()
  If RobbyCanSee = False Then Exit Sub
  Robby.Play "blink"
  Robby.Speak "该您走了!"
End Sub

'文件已保存
Public Sub RobbySaveFile()
  If RobbyCanSee = False Then Exit Sub
  Robby.Play "write"
  Robby.Play "writereturn"
  Robby.Speak "文件已保存"
End Sub

'- - - - - - - - - - - - - - - - - - - - - - - - - -