Advertisement
Guest User

Untitled

a guest
Feb 15th, 2018
96
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1.     If DatabaseName = "BNETDocs" And BN_GotUserList Then
  2.         Dim FixName, Gateway
  3.         FixName = Left(UserObj.GetFullName(), Instr(UserObj.GetFullName(), "#")-1)
  4.  
  5. Select Case True
  6.     Case (Match(UserObj.BotServerIP , "199.108.55.*" , False)): Gateway = "USEast"
  7.     Case (Match(UserObj.BotServerIP , "12.129.236.*" , False)): Gateway = "USWest"
  8.     Case (Match(UserObj.BotServerIP , "5.42.181.*" , False)): Gateway = "Europe"
  9.     Case (Match(UserObj.BotServerIP , "121.254.164.*" , False)): Gateway = "Asia"
  10.     Case Else: Gateway = UserObj.BotServerIP
  11. End Select
  12.  
  13.         If Not BN_Users.Exists(BotID) Then
  14.             If UserOjb.IsOnBNCS() Then
  15.                ExecuteDiscordHook StringFormat("{0} joined the BotNet and is in channel {1} on {2}.", FixName, UserObj.BotChannel, Gateway)
  16.             ELse
  17.                ExecuteDiscordHook StringFormat("{0} joined the BotNet but is not logged onto Battle.net.", FixName)
  18.             End if
  19.         Else
  20.             ExecuteDiscordHook StringFormat("{0} joined {1} on {2}.", FixName, UserObj.BotChannel, Gateway)
  21.         End If
  22.     End If
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement