Skip to content
Permalink
Browse files

Users who "join" who already have ops are now correctly described (ca…

…ses: PvPGN and server split).
  • Loading branch information...
nmbook committed Apr 5, 2016
1 parent 6cdb74a commit d28aead317974edfba8779344fcf5c4c3934e03d
Showing with 11 additions and 5 deletions.
  1. +11 −5 trunk/modEvents.bas
@@ -1472,11 +1472,17 @@ Public Sub Event_UserJoins(ByVal Username As String, ByVal Flags As Long, ByVal

If (Not CheckBlock(Username)) Then
' display message
frmChat.AddChat RTBColors.JoinText, "-- ", _
IIf(AcqOps, RTBColors.TalkUsernameOp, RTBColors.JoinUsername), Username, _
RTBColors.JoinUsername, " [" & Ping & "ms]", _
RTBColors.JoinText, " has joined the channel using " & UserStats.ToString, _
RTBColors.JoinUsername, IIf(AcqOps, " and acquired ops", vbNullString), RTBColors.JoinText, "."
If AcqOps Or (Flags And 2) Then
frmChat.AddChat RTBColors.JoinText, "-- ", _
RTBColors.TalkUsernameOp, Username, _
RTBColors.JoinUsername, " [" & Ping & "ms]", _
RTBColors.JoinText, " has joined the channel using " & UserStats.ToString, _
RTBColors.JoinUsername, IIf(Flags And 2, " with ops", " and acquired ops"), RTBColors.JoinText, "."
Else
frmChat.AddChat RTBColors.JoinText, "-- ", _
RTBColors.JoinUsername, Username & " [" & Ping & "ms]", _
RTBColors.JoinText, " has joined the channel using " & UserStats.ToString & "."
End If
End If
' dispose user stats instance
Set UserStats = Nothing

0 comments on commit d28aead

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