Skip to content
Permalink
Browse files

Display your stats as determined by Battle.net in the "logged in as" …

…message.
  • Loading branch information...
nmbook committed Apr 27, 2016
1 parent 3d054d4 commit 23452d5a93e4926726343bd388ef59ee2cd1c098
Showing with 1 addition and 6 deletions.
  1. +1 −6 trunk/modEvents.bas
@@ -556,7 +556,6 @@ End Sub

Public Sub Event_LoggedOnAs(Username As String, Statstring As String, AccountName As String)
On Error GoTo ERROR_HANDLER:
Dim D2CharName As String
Dim sChannel As String
Dim ShowW3 As Boolean
Dim ShowD2 As Boolean
@@ -601,7 +600,6 @@ On Error GoTo ERROR_HANDLER:
' if D2 and on a char, we need to tell the whole world this so that Self is known later on
If (StrComp(Stats.Game, PRODUCT_D2DV, vbBinaryCompare) = 0) Or (StrComp(Stats.Game, PRODUCT_D2XP, vbBinaryCompare) = 0) Then
If (LenB(Stats.CharacterName) > 0) Then
D2CharName = " (with the character " & Stats.CharacterTitleAndName & ")"
CurrentUsername = Stats.CharacterName & "*" & CurrentUsername
End If
End If
@@ -612,16 +610,14 @@ On Error GoTo ERROR_HANDLER:
frmChat.mnuSepZ.Visible = (ShowW3 Or ShowD2)
frmChat.mnuIgnoreInvites.Visible = ShowW3
frmChat.mnuRealmSwitch.Visible = ShowD2

Set Stats = Nothing

SharedScriptSupport.myUsername = GetCurrentUsername

With frmChat
.InitListviewTabs

.AddChat RTBColors.InformationText, "[BNCS] Logged on as ", RTBColors.SuccessText, Username, _
RTBColors.InformationText, StringFormat("{0}.", D2CharName)
RTBColors.InformationText, StringFormat(" using {0}.", Stats.ToString)

.tmrAccountLock.Enabled = False

@@ -1197,7 +1193,6 @@ Public Sub Event_UserInChannel(ByVal Username As String, ByVal Flags As Long, By
Username = UserObj.DisplayName

'ParseStatstring OriginalStatstring, Stats, Clan

If (StatUpdate = False) Then
'frmChat.AddChat vbRed, UserObj.Stats.IconCode

0 comments on commit 23452d5

Please sign in to comment.
You can’t perform that action at this time.