Server Problem (ERLEDIGT)

Übersicht

BlitzBasic

Beginners-Corner

	Tankbuster Betreff: Server Problem (ERLEDIGT)	Mi, Feb 07, 2007 14:32 Antworten mit Zitat
Ich glaube, ich hatte sonnen Thread schonmal, aber ich find ihn nicht mehr xD Mal wieder mein Server Problem!^^ Ich hab die clients jetzt so weit, das man schon problemlos client-client spielen kann. Jetzt wollte ich aber noch einen "Masterserver" basteln.... Das klappt nur irgendwie nicht richtig. Der Server soll einfach die Daten, die er empfängt an alle anderen Clients schicken. Manchmal werden dann auf einmal mehrere Spieler auf den Clients erstellt, oder alles bewegt sich ganz schnell! Kann es vieleicht sein, dass allem im "stream", was noch nicht ausgelesen wurde, auch mitgeschickt wird? Wäre echt dankbar für eine schnelle Antwort. MFG: Tank Zitat: Type player Field alles halt^^ End Type Graphics 600,600 stream = CreateUDPStream(8000) While Not KeyHit(1) ip= RecvUDPMsg(stream) If ip<>0 Then While ReadAvail(stream) byte$=ReadString$(stream) If nwort$(byte$, 1)="New" Name$=nwort$(byte$, 2) P.player=New player P\id$=Name$ P\recv=ip P\port=nwort$(byte$, 3) EndIf For P.player=Each player If P\id$<>Name$ WriteString(stream,byte$) SendUDPMsg stream,P\recv,P\port EndIf Next Wend EndIf Flip Wend
Twitter Download Jewel Snake! Windows\|Android

Tankbuster

Betreff: Server Problem (ERLEDIGT)

Mi, Feb 07, 2007 14:32
Antworten mit Zitat

Ich glaube, ich hatte sonnen Thread schonmal, aber ich find ihn nicht mehr xD

Mal wieder mein Server Problem!^^ Ich hab die clients jetzt so weit, das man schon problemlos client-client spielen kann. Jetzt wollte ich aber noch einen "Masterserver" basteln.... Das klappt nur irgendwie nicht richtig. Der Server soll einfach die Daten, die er empfängt an alle anderen Clients schicken. Manchmal werden dann auf einmal mehrere Spieler auf den Clients erstellt, oder alles bewegt sich ganz schnell!
Kann es vieleicht sein, dass allem im "stream", was noch nicht ausgelesen wurde, auch mitgeschickt wird? Wäre echt dankbar für eine schnelle Antwort.

MFG: Tank

Zitat:

Type player
Field alles halt^^
End Type

Graphics 600,600

stream = CreateUDPStream(8000)

While Not KeyHit(1)
ip= RecvUDPMsg(stream)
If ip<>0 Then

While ReadAvail(stream)

byte$=ReadString$(stream)

If nwort$(byte$, 1)="New"
Name$=nwort$(byte$, 2)
P.player=New player
P\id$=Name$
P\recv=ip
P\port=nwort$(byte$, 3)

EndIf

For P.player=Each player
If P\id$<>Name$
WriteString(stream,byte$)
SendUDPMsg stream,P\recv,P\port
EndIf
Next

Wend
EndIf

Flip
Wend

Twitter
Download Jewel Snake!
Windows|Android

Zuletzt bearbeitet von Tankbuster am Do, Feb 08, 2007 14:44, insgesamt 3-mal bearbeitet

	Dreamora	Mi, Feb 07, 2007 14:39 Antworten mit Zitat
Bitte Code formatieren wenn du Hilfe willst.
Ihr findet die aktuellen Projekte unter Gayasoft und könnt mich unter @gayasoft auf Twitter erreichen.

Dreamora

Mi, Feb 07, 2007 14:39
Antworten mit Zitat

Bitte Code formatieren wenn du Hilfe willst.

Ihr findet die aktuellen Projekte unter Gayasoft und könnt mich unter @gayasoft auf Twitter erreichen.

	Tankbuster	Mi, Feb 07, 2007 14:55 Antworten mit Zitat
Code: [AUSKLAPPEN] [EINKLAPPEN] Type player Field alles halt^^ End Type Graphics 600,600 stream = CreateUDPStream(8000) While Not KeyHit(1) ip= RecvUDPMsg(stream) If ip<>0 Then While ReadAvail(stream) byte$=ReadString$(stream) If nwort$(byte$, 1)="New" Name$=nwort$(byte$, 2) P.player=New player P\id$=Name$ P\recv=ip P\port=nwort$(byte$, 3) EndIf For P.player=Each player If P\id$<>Name$ WriteString(stream,byte$) SendUDPMsg stream,P\recv,P\port EndIf Next Wend EndIf Flip Wend
Twitter Download Jewel Snake! Windows\|Android

Tankbuster

Mi, Feb 07, 2007 14:55
Antworten mit Zitat

Code: [AUSKLAPPEN]

Type player
Field alles halt^^
End Type

Graphics 600,600

stream = CreateUDPStream(8000)

While Not KeyHit(1)
ip= RecvUDPMsg(stream)
   If ip<>0 Then

      While ReadAvail(stream)

      byte$=ReadString$(stream)

         If nwort$(byte$, 1)="New"
         Name$=nwort$(byte$, 2)
         P.player=New player
         P\id$=Name$
         P\recv=ip
         P\port=nwort$(byte$, 3)

      EndIf

      For P.player=Each player
         If P\id$<>Name$
            WriteString(stream,byte$)
            SendUDPMsg stream,P\recv,P\port
         EndIf
      Next

         Wend
      EndIf

Flip
Wend

Twitter
Download Jewel Snake!
Windows|Android

	Tankbuster	Mi, Feb 07, 2007 22:45 Antworten mit Zitat
sry, wenn ich mich nochmal melde, aber ich glaub sonst geht der Thread "unter"^^ EDIT: HAB selbst gelöst,..... lag am client xD rofl
Twitter Download Jewel Snake! Windows\|Android

Tankbuster

Mi, Feb 07, 2007 22:45
Antworten mit Zitat

sry, wenn ich mich nochmal melde, aber ich glaub sonst geht der Thread "unter"^^
EDIT:
HAB selbst gelöst,..... lag am client xD *rofl*

Twitter
Download Jewel Snake!
Windows|Android

Übersicht

BlitzBasic

Beginners-Corner

Nach Oben

BlitzBasic Portal

Server Problem (ERLEDIGT)

Tankbuster

Betreff: Server Problem (ERLEDIGT)

Dreamora

Tankbuster

Tankbuster