wen ich ein Spiel über Lokales Netzwerk machen will ... brauche ich da nen port? ich dachte immer nein in den anderen games muss ich nie port angeben nur IP, aber bei PB finde ich nix was nur IP brauch.
wäre nett wen ihr mr weiterhelft.

Code: Alles auswählen
InitKeyboard()
InitNetwork()
OpenConsole()
*MemoryID= AllocateMemory(5000)
Dim eingab.w(1)
Dim eingabe.s(1)
If CreateNetworkServer(0,7852,#PB_Network_TCP)
Else
quit= 1
EndIf
Repeat
eingabe(0)= ""+ Input()
If eingabe(0)= "hostname"
PrintN(""+Hostname())
EndIf
If Mid(""+eingabe(0),1,4)= "Open"
PrintN("Open: "+Mid(""+eingabe(0),6,Len(""+eingabe(0))))
If OpenNetworkConnection("ftp."+Mid(""+eingabe(0),6,Len(""+eingabe(0)))+".net",7852,#PB_Network_TCP)
PrintN("Succes")
Network= 1
Else
PrintN("Fail")
Network= 0
EndIf
EndIf
If Mid(""+eingabe(0),1,4)= "open"
PrintN("open: "+Mid(""+eingabe(0),6,Len(""+eingabe(0))))
If OpenNetworkConnection(""+Mid(""+eingabe(0),6,Len(""+eingabe(0))),7852,#PB_Network_TCP)
PrintN("Succes")
Network= 1
Else
PrintN("Fail")
Network= 0
EndIf
EndIf
If Mid(""+eingabe(0),1,1)= ":" And Network= 1
SendNetworkString(0,""+Mid(""+eingabe(0),3,Len(""+eingabe(0))))
EndIf
If Network= 1
If eingab(1)= ReceiveNetworkData(0,*MemoryID,5000)
PrintN(""+ Str(eingab(1)))
EndIf
EndIf
If Network= 1
If eingab(1)= ReceiveNetworkData(0,*MemoryID,5000)
PrintN(""+ Str(eingab(1)))
EndIf
EndIf
Until quit= 1
CloseNetworkServer(0)