OMFG I AM GNA EXPLODE

[Coke]

alright i have found a single bug, basicaly if your whispering to a player then they leave it crashes due to it cant find their name...

unsure as to how to word the fix..

heres the code:

Code:

' ::::::::::::::::::::::::::
' :: Get Online List ::
' ::::::::::::::::::::::::::
If LCase(Parse(0)) = "onlinelist" Then
If frmMainGame.cmbPlayerName.Text = "" Then

Q = frmMainGame.cmbPlayerName.Text
frmOnline.lstOnline.Clear
frmMainGame.cmbPlayerName.Clear
frmMainGame.Refresh

n = 2
z = Val(Parse(1))
For X = n To (z + 1)
frmOnline.lstOnline.AddItem Trim(Parse(n))
frmMainGame.cmbPlayerName.AddItem Trim(Parse(n))
frmMainGame.Refresh
n = n + 2
Next X

Exit Sub
Else

Q = frmMainGame.cmbPlayerName.Text
frmOnline.lstOnline.Clear
frmMainGame.cmbPlayerName.Clear
frmMainGame.Refresh

n = 2
z = Val(Parse(1))
For X = n To (z + 1)
frmOnline.lstOnline.AddItem Trim(Parse(n))
frmMainGame.cmbPlayerName.AddItem Trim(Parse(n))
frmMainGame.Refresh
n = n + 2
Next X

Dim r, combothing As Long
Dim rofl As Boolean
For r = 1 To frmMainGame.cmbPlayerName.ListCount
Do Until rofl = True Or r = frmMainGame.cmbPlayerName.ListCount
frmMainGame.cmbPlayerName.ListIndex = frmMainGame.cmbPlayerName.ListIndex + 1
If frmMainGame.cmbPlayerName.Text = Q Then
combothing = r
rofl = True
End If
DoEvents
Loop
Next
End If

btw the code seems twice as long as it needs to be, but this way when people leave it keeps it.. its a bloody wierd way of doing it but oh well xD