TypesReihenschltung ^^ - funst nicht

Übersicht

BlitzBasic

Allgemein

	Mez_K Betreff: TypesReihenschltung ^^ - funst nicht	So, Sep 25, 2005 11:11 Antworten mit Zitat
hi mein Problem ist das die types nicht geändert werden - na ok irgendwie doch und irgendwie schon: Wenn die IP1 seine koordinaten schickt bekommt er seine daten zurück und die der andern, die nach dem Befehl "New" festgelegt wurden, aber wenn jetzt ein anderer diese anfrage schickt bekommt er das selbe zurück, die dateien der IP1 wurden nicht geändert, sondern die die nach "New" festgelegt wurden... Hier der Teil des Codes: BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] ;TCP################################################################### IP = RecvUDPMsg(UDPStream) If IP <> 0 Then For client.clienten = Each clienten If IP = client\ip client\x = ReadShort(UDPStream) client\y = ReadShort(UDPStream) client\winkel = ReadShort(UDPStream) ;Notify client\x+\"+\"+client\y+\"+\"+client\winkel Exit EndIf Next For client.clienten = Each clienten ;Notify client\y+\"\"+client\x+\"\"+client\winkel WriteShort UDPStream,client\x WriteShort UDPStream,client\y WriteShort UDPStream,client\winkel Next For client.clienten = Each clienten If IP = client\ip client\port = UDPMsgPort(UDPStream) SendUDPMsg UDPStream,client\ip,client\port Exit EndIf Next EndIf ;TCP Ende############################################################## (Der Ping liegt bei 2-4 ) (Nur bei den falschen Daten )

Mez_K

Betreff: TypesReihenschltung ^^ - funst nicht

So, Sep 25, 2005 11:11
Antworten mit Zitat

hi

mein Problem ist das die types nicht geändert werden - na ok irgendwie doch und irgendwie schon:

Wenn die IP1 seine koordinaten schickt bekommt er seine daten zurück und die der andern, die nach dem Befehl "New" festgelegt wurden, aber wenn jetzt ein anderer diese anfrage schickt bekommt er das selbe zurück, die dateien der IP1 wurden nicht geändert, sondern die die nach "New" festgelegt wurden...

Hier der Teil des Codes:

BlitzBasic: [AUSKLAPPEN]

	;TCP###################################################################
	IP = RecvUDPMsg(UDPStream)
	If IP <> 0 Then
		For client.clienten = Each clienten
			If IP = client\ip
				client\x = ReadShort(UDPStream)
				client\y = ReadShort(UDPStream)
				client\winkel = ReadShort(UDPStream)
				;Notify client\x+\"+\"+client\y+\"+\"+client\winkel
				Exit
			EndIf
		Next
		
			For client.clienten = Each clienten
				;Notify client\y+\"\"+client\x+\"\"+client\winkel
				WriteShort UDPStream,client\x					
				WriteShort UDPStream,client\y
				WriteShort UDPStream,client\winkel
			Next
		For client.clienten = Each clienten 
			If IP = client\ip
				client\port = UDPMsgPort(UDPStream)
				SendUDPMsg UDPStream,client\ip,client\port
				Exit
			EndIf
		Next
	EndIf
	;TCP Ende##############################################################

(Der Ping liegt bei 2-4 Very Happy

)
(Nur bei den falschen Daten Crying or Very sad

)