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 / basMain.bas < prev    next >
Encoding:
BASIC Source File  |  2001-01-19  |  2.5 KB  |  101 lines
  1. Attribute VB_Name = "basMain"
  2. Option Explicit
  3.  
  4. Public cAgent As IAgentCtlCharacterEx
  5. Public sAgentPath As String
  6. Public CurrentTime As Double
  7. Public sNickName As String
  8. Public sRemoteHost As String
  9. Public sPort As String
  10. Public bChar As Byte
  11. Private booSecondTime As Boolean
  12.  
  13. Private Const sAppName As String = "Chatter Box"
  14. Private Const sSection As String = "User Options"
  15.  
  16. Sub Main()
  17.     ' LOAD HELP FILE
  18.     App.HelpFile = ""
  19.     '
  20.     OSVersion_And_AgentFiles
  21.     '
  22.     frmSplash.Show
  23. End Sub
  24.  
  25. Sub OSVersion_And_AgentFiles()
  26.     Dim sOSVer As String
  27.     sOSVer = basWhatOS.GetVersion   ' Returns the O/S
  28.     If sOSVer = "Windows NT 4.0" Then
  29.         sAgentPath = "C:\WINNT\msagent\chars"
  30.     ElseIf sOSVer = "Windows 95" Then
  31.         sAgentPath = "c:\windows\msagent\chars"
  32.     ElseIf sOSVer = "Windows 98" Then
  33.         sAgentPath = "c:\windows\msagent\chars"
  34.     End If
  35. End Sub
  36.  
  37. Sub Wait(interval)
  38.     CurrentTime = Timer
  39.     Do While Timer - CurrentTime < Val(interval)
  40.         DoEvents
  41.     Loop
  42. End Sub
  43.  
  44. Sub FillCombo(ctl As ComboBox)
  45.     With ctl
  46.         .AddItem "Genie"
  47.         .AddItem "Merlin"
  48.         .AddItem "Robby"
  49.         .AddItem "Peedy"
  50.     End With
  51. End Sub
  52.  
  53. Sub MovementsForCharacters(sChar As String, _
  54.     aAgt As IAgentCtlCharacterEx)
  55.     ' THIS DETERMINES WHAT CHARACTER THE USER IS USING
  56.     ' AND THEN WILL OPEN THE CORRECT MODULE FOR THAT
  57.     ' CHARACTER.  THIS WILL ENABLE THAT CHARACTER TO
  58.     ' PERFORM DIFFERENT FEATS, ETC.
  59.     
  60.     If sChar = "Merlin" Then
  61.         bChar = 1
  62.     ElseIf sChar = "Robby" Then
  63.         bChar = 2
  64.     ElseIf sChar = "Genie" Then
  65.         bChar = 3
  66.     ElseIf sChar = "Peddy" Then
  67.         bChar = 4
  68.     End If
  69.     
  70.     If booSecondTime = False Then
  71.         If bChar = 1 Then
  72.             basMerlin.m_nMerlin cAgent, 1, "LoadAgent"
  73.         ElseIf bChar = 2 Then
  74.         
  75.         ElseIf bChar = 3 Then
  76.         
  77.         ElseIf bChar = 4 Then
  78.         
  79.         End If
  80.     End If
  81.     
  82.     booSecondTime = True
  83. End Sub
  84.  
  85. Sub SaveUsrSettings(sNickName As String, _
  86.     sRemoteHost As String, sPort As String)
  87.     
  88.     SaveSetting sAppName, sSection, _
  89.         "RemoteHost", sRemoteHost
  90.     SaveSetting sAppName, sSection, _
  91.         "NickName", sNickName
  92.     SaveSetting sAppName, sSection, _
  93.         "PortNumber", sPort
  94. End Sub
  95.  
  96. Sub GetUsrSettings()
  97.     sRemoteHost = GetSetting(sAppName, sSection, "RemoteHost")
  98.     sNickName = GetSetting(sAppName, sSection, "NickName")
  99.     sPort = GetSetting(sAppName, sSection, "PortNumber")
  100. End Sub
  101.