Skip to content
Permalink
Browse files

User object properties reference stats

Clan and Game now reference Stats instead of being stored separately.
  • Loading branch information...
Davnit committed Apr 30, 2016
1 parent d496cb9 commit db9d83e25884181f3eb743db6ff04d0f3883e3f3
Showing with 3 additions and 19 deletions.
  1. +3 −13 trunk/clsUserObj.cls
  2. +0 −6 trunk/modEvents.bas
@@ -26,7 +26,7 @@ Private m_clan_rank As Integer
Private m_join_date As Date
Private m_last_speak_date As Date
Private m_stats_string As String
Private m_game As String
Private m_Game As String
Private m_total_bans As Long
Private m_total_kicks As Long
Private m_operator_date As Date
@@ -67,11 +67,7 @@ Public Property Let CharacterName(ByVal str As String)
End Property

Public Property Get Game() As String
Game = m_game
End Property

Public Property Let Game(ByVal str As String)
m_game = str
Game = m_stats.Game
End Property

Public Property Get PendingBan() As Boolean
@@ -101,11 +97,7 @@ Public Property Let Statstring(ByVal str As String)
End Property

Public Property Get Clan() As String
Clan = m_clan
End Property

Public Property Let Clan(ByVal str As String)
m_clan = str
Clan = m_stats.Clan
End Property

Public Property Get DisplayName() As String
@@ -270,9 +262,7 @@ Public Function Clone() As Object
Clone.Name = Name
Clone.Ping = Ping
Clone.Flags = Flags
Clone.Clan = Clan
Clone.CharacterName = CharacterName
Clone.Game = Game
Clone.JoinTime = JoinTime
Clone.LastTalkTime = LastTalkTime
Clone.PassedChannelAuth = PassedChannelAuth
@@ -85,8 +85,6 @@ Public Sub Event_FlagsUpdate(ByVal Username As String, ByVal Message As String,
With UserObj
.Name = Username
.Statstring = Message
.Clan = .Stats.Clan
.Game = Product
End With
End If
End If
@@ -1179,10 +1177,8 @@ Public Sub Event_UserInChannel(ByVal Username As String, ByVal Flags As Long, By
With UserObj
.Name = Username
.Flags = Flags
.Game = Product
.Ping = Ping
.JoinTime = g_Channel.JoinTime
.Clan = sClan
.Statstring = originalstatstring
End With

@@ -1365,9 +1361,7 @@ Public Sub Event_UserJoins(ByVal Username As String, ByVal Flags As Long, ByVal
.Name = Username
.Flags = Flags
.Ping = Ping
.Game = Product
.JoinTime = UtcNow
.Clan = sClan
.Statstring = originalstatstring
End With

0 comments on commit db9d83e

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