home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / CODE_UPLOAD154932252001.psc / ChatterBox / basMerlin.bas < prev    next >
Encoding:
BASIC Source File  |  2000-01-28  |  597 b   |  23 lines
  1. Attribute VB_Name = "basMerlin"
  2. Option Explicit
  3.  
  4. ' THIS MODULE WILL MAKE THE CHARACTER 'MERLIN' DO
  5. ' RANDOM ACTS AS WELL AS MEANINGFUL ACTS.
  6. Public Sub m_nMerlin(aAgt As IAgentCtlCharacterEx, _
  7.     sPlayWhat As Integer, _
  8.     Optional sEvent As String)
  9.     '
  10.     If sPlayWhat > 0 Then
  11.         Select Case sEvent
  12.             Case Is = "SentMsg"
  13.                 aAgt.Play ("Pleased")
  14.             Case Is = "LoadAgent"
  15.                 aAgt.Play ("greet")
  16.         End Select
  17.         sPlayWhat = 0
  18.     ElseIf sPlayWhat = 0 Then
  19.         aAgt.Play ("read")
  20.     End If
  21.     '
  22. End Sub
  23.