18-02-2008, 07:33 PM
Looking through the code it all looks okay, then I spotted this:
Shouldn't the bits in bold be the same, apart from the upper case/lower case thing?
I think your server is missing the packet.
Okay, my bad, not the bits in bold - the bits in the code quotes marked up to be bold, lol.
Code:
' :::::::::::::::::::::::::::::::::
' :: Update Can Display Position ::
' :::::::::::::::::::::::::::::::::
If LCase(Parse(0)) = [b]"updatecandisplayposition"[/b] Then
If Val(Parse(1)) = NO Then Call SetPlayerCanUpdateDisplayPosition(Index, NO)
If Val(Parse(1)) = YES Then Call SetPlayerCanUpdateDisplayPosition(Index, YES)
Call SavePlayer(Index)
Exit Sub
End If
Code:
Sub UpdateCanDisplayPosition(ByVal OnOff As Byte)
Dim Packet As String
Packet = [b]"CANUPDATEDISPLAYPOSITION"[/b] & SEP_CHAR & STR(OnOff) & END_CHAR
Call SendData(Packet)
End Sub
Shouldn't the bits in bold be the same, apart from the upper case/lower case thing?
I think your server is missing the packet.
Okay, my bad, not the bits in bold - the bits in the code quotes marked up to be bold, lol.