home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / CODE_UPLOAD76567102000.psc / ChatMod.bas next >
Encoding:
BASIC Source File  |  2000-07-10  |  2.8 KB  |  74 lines
  1. Attribute VB_Name = "ChatMod"
  2. '******************************************************
  3. 'These variables are used in the load proccess
  4. '******************************************************
  5. 'Start Variable(Used to increment the Select Case Statment)
  6. Global Start_Sequence As Integer
  7. 'File Variable(Contents of the file is put in this)
  8. Global Start_FileOpen As String
  9. 'Size Variable(Gets the length of the string)
  10. Global Start_FileSize As Integer
  11. 'FilePath Variable(Gets the compleat file path with the carrige return chars taken out)
  12. Global Start_FilePath As String
  13. '******************************************************
  14. 'Variables used during operation proccess
  15. '******************************************************
  16. 'Decision Variable(Used to tell whether the path is needed or not)
  17. Global Op_PathNeeded As Integer
  18. 'Path Variable(Holds the path of where the chat rooms are to be)
  19. Global Op_ChatPath As String
  20. '******************************************************
  21. 'Chat Room Names(Used to join the rooms)
  22. '******************************************************
  23. Global Room_General As String
  24. Global Room_Hacking As String
  25. Global Room_Work As String
  26. Global Room_Life As String
  27. Global Room_Lobby As String
  28. '******************************************************
  29. '******************************************************
  30. 'Used to open desired room
  31. Global set_room As String
  32. 'Used to store current room
  33. Global Current_Room As String
  34. 'Used to store Temp files
  35. Global File_Temp As String
  36. 'Used to keep the users name
  37. Global NameOfPerson As String
  38. 'Used to hold users text file
  39. Global Set_Users As String
  40. 'Used to hold the users names
  41. Global Users_Names As String
  42. 'Used to store the path to the all users.txt
  43. Global All_Users As String
  44. '******************************************************
  45. 'Chat Room users(Used to store them)
  46. '******************************************************
  47. Global Users_General As String
  48. Global Users_Hacking As String
  49. Global Users_Work As String
  50. Global Users_Life As String
  51. Global Users_Lobby As String
  52. '******************************************************
  53. '******************************************************
  54. 'Used to store tempory users to see if the user file contains anythink
  55. Global Temp_User As String
  56. 'Used to cout up for room clean
  57. Global Counters As Integer
  58. 'Used to check whether the rooms ar empty
  59. Global Temp_RoomCheck As String
  60. 'Used to store what the user types in the textbox
  61. Global User_Message As String
  62. 'Used to store the file-path at start up
  63. Global Temp_Filepath As String
  64. 'Used to stop some error handlers
  65. Global Stop_Handle As Integer
  66. 'Hummmmmmmm
  67. Global Temp_F As String
  68. 'Used to stop auto scroll
  69. Global Auto_Scroll As Integer
  70. 'Used to change users name
  71. Global Change_Name As String
  72. 'used to store the users firts name before changing it
  73. Global first_name As String
  74.