Valhalla Legends Archive

This code adds user to userlist



Private Sub ChatBot_OnUser(ByVal username As String, ByVal Flags As Long, ByVal message As String, ByVal Ping As Long)

Dim Blah As New clsBnetBot, I As Integer

With frmMain.lstChannel

   If (BNFLAGS_OP And Flags) = BNFLAGS_OP Then

       .ListItems.Add 1, , username, , Blah.GetIconCode(message, Flags)
       .ListItems(1).ListSubItems.Add , , , Blah.GetPingCode(Ping, Flags)
       .ListItems(1).ToolTipText = username & " [ " & Ping & " ms ] - Flags: " & Flags & " - Moderator"
   
   Else

       .ListItems.Add , , username, , Blah.GetIconCode(message, Flags)
       .ListItems(.ListItems.Count).ListSubItems.Add , , , Blah.GetPingCode(Ping, Flags)
       .ListItems(.ListItems.Count).ToolTipText = " [ " & Ping & " ms ] " & " - Flags: " & Flags
       
   End If
   
End With

frmMain.txtChannelInfo = Bot.CurrentChannel & " ( " & frmMain.lstChannel.ListItems.Count & " )"

End Sub



I want it so it checks the userlist for Duplicates..

Any ideas?

This is what i came up with.. but it doesn't work!



Private Sub ChatBot_OnUser(ByVal username As String, ByVal Flags As Long, ByVal message As String, ByVal Ping As Long)

Dim Blah As New clsBnetBot, I As Integer

With frmMain.lstChannel

   If (BNFLAGS_OP And Flags) = BNFLAGS_OP Then
   
       For I = 1 To .ListItems.Count
   
           If .ListItems.Item(I).text = username Then
               
               .ListItems.Remove .FindItem(username).Index
               
               AddChat vbGreen, "Stat Update For: " & username
               
               .ListItems.Add 1, , username, , Blah.GetIconCode(message, Flags)
               .ListItems(1).ListSubItems.Add , , , Blah.GetPingCode(Ping, Flags)
               .ListItems(1).ToolTipText = username & " [ " & Ping & " ms ] - Flags: " & Flags & " - Moderator"
                   
           Else
               .ListItems.Add 1, , username, , Blah.GetIconCode(message, Flags)
               .ListItems(1).ListSubItems.Add , , , Blah.GetPingCode(Ping, Flags)
               .ListItems(1).ToolTipText = username & " [ " & Ping & " ms ] - Flags: " & Flags & " - Moderator"
               
           End If
               
       Next I

   Else
   
       For I = 1 To .ListItems.Count
   
           If .ListItems.Item(I).text = username Then
               
               .ListItems.Remove .FindItem(username).Index
               
               AddChat vbGreen, "Stat Update For: " & username
               
               .ListItems.Add , , username, , Blah.GetIconCode(message, Flags)
               .ListItems(.ListItems.Count).ListSubItems.Add , , , Blah.GetPingCode(Ping, Flags)
               .ListItems(.ListItems.Count).ToolTipText = " [ " & Ping & " ms ] " & " - Flags: " & Flags
               
           Else
           
               .ListItems.Add , , username, , Blah.GetIconCode(message, Flags)
               .ListItems(.ListItems.Count).ListSubItems.Add , , , Blah.GetPingCode(Ping, Flags)
               .ListItems(.ListItems.Count).ToolTipText = " [ " & Ping & " ms ] " & " - Flags: " & Flags
                   
           End If
               
       Next I

   End If
   
End With

frmMain.txtChannelInfo = Bot.CurrentChannel & " ( " & frmMain.lstChannel.ListItems.Count & " )"

End Sub



i thought  i knew the problem... anyone?

THERE .. YEAH!!! GOT IT!!



Private Sub ChatBot_OnUser(ByVal username As String, ByVal Flags As Long, ByVal message As String, ByVal Ping As Long)

Dim Blah As New clsBnetBot, I As Integer

With frmMain.lstChannel

   If (BNFLAGS_OP And Flags) = BNFLAGS_OP Then
   
       For I = 1 To .ListItems.Count
   
           If .ListItems.Item(I).text = username Then
               
               .ListItems.Remove .FindItem(username).Index
               
               AddChat vbGreen, "Stat Update For: " & username
                   
           End If
           
       Next I
       
           .ListItems.Add 1, , username, , Blah.GetIconCode(message, Flags)
           .ListItems(1).ListSubItems.Add , , , Blah.GetPingCode(Ping, Flags)
           .ListItems(1).ToolTipText = username & " [ " & Ping & " ms ] - Flags: " & Flags & " - Moderator"
               
   Else
   
       For I = 1 To .ListItems.Count
   
           If .ListItems.Item(I).text = username Then
               
               .ListItems.Remove .FindItem(username).Index
               
               AddChat vbGreen, "Stat Update For: " & username

           End If
           
       Next I
               
           .ListItems.Add , , username, , Blah.GetIconCode(message, Flags)
           .ListItems(.ListItems.Count).ListSubItems.Add , , , Blah.GetPingCode(Ping, Flags)
           .ListItems(.ListItems.Count).ToolTipText = " [ " & Ping & " ms ] " & " - Flags: " & Flags

   End If
   
End With

frmMain.txtChannelInfo = Bot.CurrentChannel & " ( " & frmMain.lstChannel.ListItems.Count & " )"

End Sub



Instead of trying to make sense out of your code, do something like this to remove duplicate and add the name:

With MyListView.ListItems
   For i = .Count To 1 Step -1
       If StrComp(.Item(i), username, vbTextCompare) Then .Remove i
   Next i
   .Add .Count + 1, , username
End With

Quote from: Spht on April 25, 2004, 11:35 AM
Instead of trying to make sense out of your code, do something like this to remove duplicate and add the name:

Code Select Expand

With MyListView.ListItems
   For i = .Count To 1 Step -1
       If StrComp(.Item(i), username, vbTextCompare) Then .Remove i
   Next i
   .Add .Count + 1, , username
End With

you just took my entire ego, rolled it up into a ball, and hit me with it...  

Quote from: BaDDBLooD on April 25, 2004, 11:50 AM

Quote from: Spht on April 25, 2004, 11:35 AM
Instead of trying to make sense out of your code, do something like this to remove duplicate and add the name:

Code Select Expand

With MyListView.ListItems
   For i = .Count To 1 Step -1
       If StrComp(.Item(i), username, vbTextCompare) Then .Remove i
   Next i
   .Add .Count + 1, , username
End With

you just took my entire ego, rolled it up into a ball, and hit me with it...  

I could of told you that code but I had no idea what you were talking about  

lol no problem

Yes, and Baddblood, I'm sure you've seen it before -- in fact, I'm relatively certain that we've told you before -- don't make 3 posts in a row.  If nobody has posted after you, use "Modify" to modify your last post.  Don't keep tacking on posts to "bump" yours up.

i'll assume sence you posted, i can post here

Thanks for the tip, i keep forgetting