Gammon Forum

'--------------------------- START AGENT STUFF -------------------------------------

Dim Agent
Dim Cat

Set Agent = CreateObject("Agent.Control.2")
Agent.Connected = True
Agent.Characters.Load "Cat", "D:\Dokume~1\lensmoor\agent\offcat.acs"
'                       Load up the character.
'                       This is where I have my assistant located, might be diffrent with you.
Set Cat = agent.Characters("Cat")
'                       Make it a bit shorter by assigning actions to "Cat"
Cat.Balloon.FontName = "FixedSys"
'                       Set font to FixedSys, same as muds usually use
Cat.Balloon.FontSize = 8
'                       Set the size to 8 (thats my config in any case)
'------------Microsoft being asses about configuring their software-----------------
'            in a most complex way so noone can fiddle without doing
'            something wrong, hence making it take hours to do this stuff
Cat.Balloon.Style = (Cat.Balloon.Style AND auto-pace) + 1
'                       Above line removes timer on the text sent to the assistant
'                       making it blurt it out at once instead of a word at the time
Cat.Balloon.Style = (Cat.Balloon.Style AND &H00FFFFFF) + (4*(2^24))
'                       This one sets the amounts of lines displayed to 4
Cat.Balloon.Style = (Cat.Balloon.Style AND &HFF00FFFF) + (80*(2^16))
'                       this one sets the line length to 80 characters
'--------------------------- End ass stuff -----------------------------------------

sub AgentHide() '       I use this for world.disconnects (in the script window)
  Cat.Hide      '       assistant is spooked and hides
end sub

sub AgentShow() '       I use this for world.connects (in the script window)
  Cat.Show      '       Show my assistant
end sub

sub AgentSpeak(sentence)
  Cat.Think sentence '  This can be Think or Speak
  world.deletetimer "BubbleTimer"
  world.addtimer "BubbleTimer", 0, 0, 20, "", 5, "AgentHideBubble"  
'                       Make the bubble with text stay for 20 seconds before hiding it
end sub

sub AgentHideBubble (strTriggerName)
  Cat.Balloon.Visible = FALSE
'                       Hide bubble (this erases the text in the bubble as well)
end sub

'--------------------------------- END AGENT STUFF --------------------------------------

sub RelayTell (strTriggerName, trig_line, arrWildCards)
 AgentSpeak(trig_line) 'This relays the trigger line to the assistant
'                       (good for tells and other messages from a mud :))
end sub

  <trigger
   enabled="y"
   group="Cat"
   match="* tells you: *"
   name="tells"
   script="RelayTell"
   sequence="100"
   other_text_colour="black"
   other_back_colour="black"
  >
  </trigger>

Private Declare Function InternetAttemptConnect Lib "wininet" (ByVal dwReserved As Long) As Long
Private Sub Form_Load()
    If InternetAttemptConnect(ByVal 0&) = 0 Then
        MsgBox "You can connect to the Internet", vbInformation
    Else
        MsgBox "You cannot connect to the Internet", vbInformation
    End If
End Sub