Mirage Source 4

[Jacob]

If you're gonna use Verrigans system you'll have to fix an issue with IncomingData.

Code:

'Check to make sure we have at least 2 bytes (Integer), so we can
  'check the packet length.
  If aLen(Player(Index).Buffer) >= 2 Then
    pl = GetIntegerFromBuffer(Player(Index).Buffer)
    Player(Index).Buffer = RemoveFromBuffer(Player(Index).Buffer, 2)
  End If

[code] 'While we have our entire packet in the buffer, handle it.
While pl > 0 And pl