;***************************************************************************************************
;*Write Buffer.BB
;***************************************************************************************************
;*
;* Implementiert eine Möglichkeit, Netzwerkstreams in BB zu speichern,
;* Mit dem Sinn, die selbe Nachricht später an mehrere Spieler zu verschicken
;* Die Funktionen heissen wie ihre Blitz Äquivalente, und haben die selben Parameter,
;* Lediglich das Präfix "B" dient der Unterscheidung.
;*
;* Es wird alles gespeichert, und dann beim Send Befehl Byte für Byte in den Stream geschrieben,
;* und sofort abgeschickt.

Global WriteBufferPosition = 0
Global WriteBuffer = CreateBank (10000)
;---------------------------------------------------------------------------------------------------;

Function BWriteInt (i%)
PokeInt WriteBuffer,WriteBufferPosition,i
WriteBufferPosition = WriteBufferPosition + 4
End Function
;---------------------------------------------------------------------------------------------------;

Function BWriteByte (i%)
PokeByte WriteBuffer,WriteBufferPosition,i
WriteBufferPosition = WriteBufferPosition + 1
End Function
;---------------------------------------------------------------------------------------------------;

Function BWriteFloat (i#)
PokeFloat WriteBuffer,WriteBufferPosition,i
WriteBufferPosition = WriteBufferPosition + 4
End Function
;---------------------------------------------------------------------------------------------------;

Function BWriteString (i$)
lenI = Len (i)
BWriteInt(lenI)
;---------------------------------------------------------------------------------------------------;

For counter = 1 To lenI
PokeByte (WriteBuffer,WriteBufferPosition,Asc(Mid (i$,counter,1)))
WriteBufferPosition = WriteBufferPosition + 1
Next
End Function
;---------------------------------------------------------------------------------------------------;
Function BClearBuffer()
WriteBufferPosition = 0
End Function
;---------------------------------------------------------------------------------------------------;
Function BSendUDPMsg (ip%,port%)
Local counter = 0
For counter = 0 To WriteBufferPosition - 1
   WriteByte (UDPStream,PeekByte (WriteBuffer,counter))
Next ;counter
SendUDPMsg (UDPStream,ip%,port%)
End Function
;---------------------------------------------------------------------------------------------------;