ReadPixelFast

;TEST
Graphics 1024, 768,32,2
SetBuffer BackBuffer()

Gbank = CreateBank(800*600*LockedFormat())
While Not KeyHit(1)
	Cls
	
	msec = MilliSecs()
	LockBuffer
		msec1 = MilliSecs()
		CopyBufferToBank(GBank)
		msec1 = MilliSecs()-msec1
		SX = SX + 5
		If SX >= 512
			SY = SY + 5
			SX = 0
		EndIf
		If SY >= 512
			SY = 0
		EndIf
		For Y = 0 To 128
			For X = 0 To 128
				Pos = (SY * 1024*4) + (Y * 1024*4) + (SX * 4) + (X * 4)
				PokeByte GBank, Pos, X * Y
				PokeByte GBank, Pos+1, SX * X * Y
				PokeByte GBank, Pos+2, SY * X * Y
				PokeByte GBank, Pos+3, SX * SY + X * Y
			Next
		Next
		msec2 = MilliSecs()
		CopyBankToBuffer(GBank)
		msec2 = MilliSecs()-msec2
	UnlockBuffer
	msec = MilliSecs()-msec
	
	CopyRectToBank(20, 20, 100, 100, GBank, BackBuffer())
	
	Text 0,0, msec
	Text 0,15, msec1
	Text 0,30, msec2
	Text 0,45, SX
	Text 0,30, SY
	Flip
Wend
End

;ENDTEST
Function LockedFormat(buffer = 0)
	Local bnkFormat, format
	
	If buffer = 0 Then buffer = GraphicsBuffer()
	bnkFormat = CreateBank(4)
	apiRtlMoveMemory bnkFormat, buffer+104, 4
	format = PeekInt(bnkFormat, 0)
	FreeBank bnkFormat
	
	Return format
End Function

Function LockedPitch(buffer = 0)
	Local bnkPitch, pitch
	
	If buffer=0 Then buffer = GraphicsBuffer()
	bnkPitch = CreateBank(12)
	apiRtlMoveMemory bnkPitch, buffer+92, 12
	pitch = PeekInt(bnkPitch, 0)*PeekInt(bnkPitch, 8)/8
	FreeBank bnkPitch
	
	Return pitch
End Function

Function BufferWidth(buffer = 0)
	Local bnkWidth, width
	
	If buffer = 0 Then Return GraphicsWidth()
	bnkWidth = CreateBank(4)
	apiRtlMoveMemory bnkWidth, buffer+92, 4
	width = PeekInt(bnkWidth, 0)
	FreeBank bnkWidth
	
	Return width
End Function

Function BufferHeight(buffer = 0)
	Local bnkHeight, height
	
	If buffer = 0 Then Return GraphicsHeight()
	bnkHeight = CreateBank(4)
	apiRtlMoveMemory bnkHeight, buffer+96, 4
	height = PeekInt(bnkHeight, 0)
	FreeBank bnkHeight
	
	Return height
End Function

Function CopyRectToBank(X, Y, W, H, bank, buffer = 0)
	Local bnkInfo, size
	
	If buffer=0 Then buffer = GraphicsBuffer()
	bnkInfo = CreateBank(32)
	apiRtlMoveMemory bnkInfo, buffer+72, 32
	size = W*H*PeekInt(bnkInfo, 28)/8
	
End Function

Function CopyBufferToBank(bank, buffer = 0)
	Local bnkInfo, size
	
	If buffer=0 Then buffer = GraphicsBuffer()
	bnkInfo = CreateBank(32)
	apiRtlMoveMemory bnkInfo, buffer+72, 32
	size = PeekInt(bnkInfo, 20)*PeekInt(bnkInfo, 24)*PeekInt(bnkInfo, 28)/8
	
	If BankSize(bank)<size Or PeekInt(bnkInfo, 0)=0 Then
		FreeBank bnkInfo
		Return False
	Else
		apiRtlMoveMemory bank, PeekInt(bnkInfo, 0), size
		FreeBank bnkInfo
		Return True
	EndIf
End Function

Function CopyBankToBuffer(bank, buffer = 0)
	Local bnkInfo, size
	
	If buffer=0 Then buffer = GraphicsBuffer()
	bnkInfo = CreateBank(32)
	apiRtlMoveMemory bnkInfo, buffer+72, 32
	size = PeekInt(bnkInfo, 20)*PeekInt(bnkInfo, 24)*PeekInt(bnkInfo, 28)/8
	
	If BankSize(bank)<size Or PeekInt(bnkInfo, 0)=0 Then
		FreeBank bnkInfo
		Return False
	Else
		apiRtlMoveMemory2 PeekInt(bnkInfo, 0), bank, size
		FreeBank bnkInfo
		Return True
	EndIf
End Function

;Constants
Const PACKET_NEWCLIENT		= $01
Const PACKET_PING			= $1F
Const PACKET_LEAVE			= $0F
Const PACKET_ACKNOWLEDGED	= $FF
Const PACKET_QUADDATA		= $3F
Const PACKET_QUADSIZE		= $4F

Const ROLE_CLIENT			= 1
Const ROLE_SERVER			= 2
Const ROLE_CANCEL			= 0

;Globals
Global ConnectionIP$
Global ConnectionPort = 6666, ConnectionPortCL = 6777
Global Connection

Global Timer = CreateTimer(30)

;Type
Type Client
	Field IP, Port
	Field QuadSize[2]
	Field QuadX, QuadY
	Field Ping, Pinging
End Type

Local Mode = RequestMode();Und was bist du?
Select Mode
	Case ROLE_CLIENT
		ConnectionIP = RequestIP()
		Goto Client
	Case ROLE_SERVER
		Goto Server
End Select

ExitProcess(0)

;Hier die Includes
.Server
Include "ServerRD.bb"
ExitProcess(0)

.Client
Include "ClientRD.bb"
ExitProcess(0)

;Server

;Erstellen des Servers
Connection = CreateUDPStream(ConnectionPort)
If Connection = 0 Then RuntimeError "Failed to setup Server"
...
			Local Ret = RecvUDPMsg(Connection)
			Matched = False
			For Cnt.Client = Each Client
				If Ret = Cnt\IP
					;Read Avail Data
					While Not Eof(Connection)
						PacketID = ReadByte(Connection)
						Select PacketID
							Case PACKET_PING
								If Cnt\Pinging = True
									Cnt\Ping = MilliSecs()-Cnt\Ping
									Cnt\Pinging = False
									For A = 0 To CountGadgetItems(SV_Clients)
										If Instr(GadgetItemText(SV_Clients,A),RSet(Cnt\IP,12)+" | "+RSet(Cnt\Port,5)) > 0
											ModifyGadgetItem SV_Clients,A,"| "+RSet(Cnt\IP,12)+" | "+RSet(Cnt\Port,5)+" | "+RSet(Cnt\Ping,15)+" |"
										EndIf
									Next
								Else
									Cnt\Pinging = True
									Cnt\Ping = MilliSecs()
									WriteByte Connection, PACKET_PING
									SendUDPMsg Connection,Cnt\IP,Cnt\Port
									AddNetStats(0,1)
								EndIf
								AddNetStats(1,0)
							Case PACKET_NEWCLIENT
								WriteByte Connection, PACKET_ACKNOWLEDGED
								SendUDPMsg Connection,Cnt\IP,Cnt\Port
								AddNetStats(0,1)
								AddGadgetItem SV_Clients, "| "+RSet(UDPMsgIP(Connection),12)+" | "+RSet(UDPMsgPort(Connection),5)+" | "+RSet(Cnt\Ping,15)+" |"
							Case PACKET_LEAVE
								Delete Cnt
								WriteByte Connection, PACKET_ACKNOWLEDGED
								SendUDPMsg Connection,Cnt\IP,Cnt\Port
								AddNetStats(0,1)
								
								For A = 0 To CountGadgetItems(SV_Clients)
									If Instr(GadgetItemText(SV_Clients,A),RSet(UDPMsgIP(Connection),12)+" | "+RSet(UDPMsgPort(Connection),5)) > 0
										RemoveGadgetItem SV_Clients, A
									EndIf
								Next
								
								Exit
							Case PACKET_QUADSIZE
								Cnt\QuadSize[0] = ReadShort(Connection)
								Cnt\QuadSize[1] = ReadShort(Connection)
						End Select
					Wend
					Matched = True
				EndIf
			Next
;wurde nicht gefunden, also neuer Client. Es kommt aber einfach bei beiden nichts an.
			If Matched = False
				PacketID = ReadByte(Connection)
				DebugLog PacketID
				If PacketID = PACKET_NEWCLIENT
					Cnt.Client = New Client
					Cnt\IP = UDPMsgIP(Connection)
					Cnt\Port = UDPMsgPort(Connection)
					WriteByte Connection, PACKET_ACKNOWLEDGED
					SendUDPMsg Connect, Cnt\IP, Cnt\Port
					AddNetStats(1,1)
				EndIf
			EndIf
...			
CloseUDPStream Connection

;Client

;Erstelle Client und "Handshake"e
Connection = CreateUDPStream(ConnectionPortCL)

;Handshake
WriteByte Connection, PACKET_NEWCLIENT
SendUDPMsg Connection, ConnectionIP, ConnectionPort
MS = MilliSecs()
Repeat
	Recv = RecvUDPMsg(Connection)
	If Recv = ConnectionIP
		PacketID = ReadByte(Connection)
		If PacketID = PACKET_ACKNOWLEDGED
			Exit
		EndIf
	EndIf
	
	If MilliSecs()-MS > 2500
		RuntimeError "Could not connect"
	EndIf
	
	WaitTimer Timer
Forever
;Handshake end (bis dahin kommt er nichmal...)
...
			;Update Network
			Recv = RecvUDPMsg(Connection)
...
CloseUDPStream Connection