Alright, you can see the problem in the screen shot, it doubles up the ping, on add username. And it also doesnt add the ops ping, maybe u can see the problem.

[img]http://www.tee.gamershost.net/p1.JPG[/img]

Heres the code also. and also the get plugin code isent working eiether in this code:

[Get ping code]
[code]
Public Function GetLagIcon(ByVal Ping As Long, Optional ByVal flag As Long) As Integer
Dim IconCode As Integer

If flag = 16 Or 32 Then
GetLagIcon = 21
Exit Function
End If

If (Ping >= 5) And (Ping <= 199) Then
GetLagIcon = 15
End If
If (Ping >= 200) And (Ping <= 300) Then
GetLagIcon = 16
End If
If (Ping >= 301) And (Ping <= 400) Then
GetLagIcon = 17
End If
If (Ping >= 401) And (Ping <= 600) Then
GetLagIcon = 18
End If
If (Ping >= 601) And (Ping <= 1200) Then
GetLagIcon = 19
End If
If Ping > 1201 Then
GetLagIcon = 20
End If
If (Ping < 0) Then
GetLagIcon = 15
End If


End Function
[/code]


And heres the "Here" event code.

[code]
flag = Form1.MakeLong(Mid$(Data, 9, 4))
Ping = Form1.MakeLong(Mid$(Data, 13, 4))
UserName = Decode.KillNull(Mid$(Data, 29))
Message = Decode.KillNull(Mid$(Data, Len(UserName) + 30))
Client = Left(Message, 4)
lagicoN = GetLagIcon(Ping)
Select Case MakeLong(Mid$(Data, 5, 4))
Case &H1 ' HERE

If flag = 2 Or flag = 18 Then
Form1.Channel.ListItems.Add 1, , UserName, , 1
Form1.Channel.ListItems.Item(Form1.Channel.ListItems.Count).ListSubItems.Add 1, , , lagicoN
ElseIf Client = "PXES" Then
Form1.Channel.ListItems.Add , , UserName, , 9
Form1.Channel.ListItems.Item(Form1.Channel.ListItems.Count).ListSubItems.Add 1, , , lagicoN
ElseIf Client = "RATS" Then
Form1.Channel.ListItems.Add , , UserName, , 6
Form1.Channel.ListItems.Item(Form1.Channel.ListItems.Count).ListSubItems.Add 1, , , lagicoN
ElseIf Client = "VD2D" Then
Form1.Channel.ListItems.Add , , UserName, , 5
Form1.Channel.ListItems.Item(Form1.Channel.ListItems.Count).ListSubItems.Add 1, , , lagicoN
ElseIf Client = "NB2W" Then
Form1.Channel.ListItems.Add , , UserName, , 10
Form1.Channel.ListItems.Item(Form1.Channel.ListItems.Count).ListSubItems.Add 1, , , lagicoN
ElseIf Client = "PX2D" Then
Form1.Channel.ListItems.Add , , UserName, , 13
Form1.Channel.ListItems.Item(Form1.Channel.ListItems.Count).ListSubItems.Add 1, , , lagicoN
ElseIf Client = "3RAW" Then
Form1.Channel.ListItems.Add , , UserName, , 61
Form1.Channel.ListItems.Item(Form1.Channel.ListItems.Count).ListSubItems.Add 1, , , lagicoN
ElseIf Client = "PX3W" Then
Form1.Channel.ListItems.Add , , UserName, , 65
Form1.Channel.ListItems.Item(Form1.Channel.ListItems.Count).ListSubItems.Add 1, , , lagicoN
ElseIf Client = "TAHC" Then
Form1.Channel.ListItems.Add , , UserName, , 2
Form1.Channel.ListItems.Item(Form1.Channel.ListItems.Count).ListSubItems.Add 1, , , lagicoN
Else
Form1.Channel.ListItems.Add , , UserName, , 12
Form1.Channel.ListItems.Item(Form1.Channel.ListItems.Count).ListSubItems.Add 1, , , lagicoN
[/code]

thx, let me know

Also it didn't add me to the channel list! >:(

Note that milliseconds only go up to 1000, so your timestamp is providing a totally invalid time.

well, i can fix the time stamp... i just never noticed it =P.... ummm well does anyone know why the ping does that. It seems to stump a lot of people =P

[quote author=TeEhEiMaN link=board=17;threadid=7483;start=0#msg67629 date=1088456143]
[code]Public Function GetLagIcon(ByVal Ping As Long, Optional ByVal flag As Long) As Integer
lagicoN = GetLagIcon(Ping)[/code]
[/quote]

It doesn't appear that you're calling the flag variable in your "Here" function/sub which always makes the falg variable be nothing, so it won't detect a lag plug. (See above)

Perhaps try something like:

[code]lagicoN = GetLagIcon(Ping, Flags)[/code]

Just replace 'Flags' with whatever your flags variable is...

As for the double ping picture thingy, I have no clue...My bot is adding random people to it's room list 2 times when it shouldn't..heh

Hope this stuff helps,
Anubis

Check your column sizes for your ListView (most likely ping column), it could be a repainting problem. Perhaps the column is too large or too small.

Also: To LW-Warrior, I always thought Cows slept standing up....

[quote author=Lenny link=board=17;threadid=7483;start=0#msg68383 date=1088905648]
Check your column sizes for your ListView (most likely ping column), it could be a repainting problem. Perhaps the column is too large or too small.

Also: To LW-Warrior, I always thought Cows slept standing up....
[/quote]

I fixed his problem VIA realVNC :D

What was the solution? The ListView Column size?

[quote author=Lenny link=board=17;threadid=7483;start=0#msg68410 date=1088912164]
What was the solution? The ListView Column size?
[/quote]

I dont know his code was all messy... i totally redid it all for him :X

[quote author=GoSuGaMING link=board=17;threadid=7483;start=0#msg68413 date=1088913514]
[quote author=Lenny link=board=17;threadid=7483;start=0#msg68410 date=1088912164]
What was the solution? The ListView Column size?
[/quote]

I dont know his code was all messy... i totally redid it all for him :X
[/quote]

To quote Code Complete:

[quote]
To fix a bug without understanding the problem is just begging for another problem to come up later.
[/quote]

[quote author=Myndfyre link=board=17;threadid=7483;start=0#msg68444 date=1088932048]
[quote author=GoSuGaMING link=board=17;threadid=7483;start=0#msg68413 date=1088913514]
[quote author=Lenny link=board=17;threadid=7483;start=0#msg68410 date=1088912164]
What was the solution? The ListView Column size?
[/quote]

I dont know his code was all messy... i totally redid it all for him :X
[/quote]

To quote Code Complete:

[quote]
To fix a bug without understanding the problem is just begging for another problem to come up later.
[/quote]
[/quote]


no, I showed him what I did... He watched me while I coded it... it has comments :X

LEARN TO DEBUG.

[quote author=GoSuGaMING link=board=17;threadid=7483;start=0#msg68476 date=1088960028]
[quote author=Myndfyre link=board=17;threadid=7483;start=0#msg68444 date=1088932048]
[quote author=GoSuGaMING link=board=17;threadid=7483;start=0#msg68413 date=1088913514]
[quote author=Lenny link=board=17;threadid=7483;start=0#msg68410 date=1088912164]
What was the solution? The ListView Column size?
[/quote]

I dont know his code was all messy... i totally redid it all for him :X
[/quote]

To quote Code Complete:

[quote]
To fix a bug without understanding the problem is just begging for another problem to come up later.
[/quote]
[/quote]


no, I showed him what I did... He watched me while I coded it... it has comments :X
[/quote]

So what you're saying is this.... You didn't understand the problem, so you provided a workaround?

Again I say: to fix a bug without understanding the problem is just begging for another problem to come up later.

Very good advice, Thanks

his code was way to messey :/ lol i didnt even wanna mess with it but i wanted to help :/