Wert=SENDNETMSG (Code, Nachricht$, Von [,Nach] [,Wichtig])


Beschreibung
Dieser Befehl sendet eine Nachricht über ein Netzwerk zu einem Spieler.

"Code" kann nur ein Wert von 1 bis 99 sein, der eine benutzerdefinierte Kennung angibt. "Von" und "Nach" sind Integerwerte, die mit CREATENETPLAYER ermittelt wurden. Wird "Wichtig" auf 1 gesetzt, dann wird die Nachricht 3x schneller übertragen.

Um diesen Befehl zu benutzen, muss man vorher entweder STARTNETGAME oder JOINNETGAME ausführen. Danach muss man mit CREATENETPLAYER einen Spieler erstellen. Die Nachricht wird mit RECVNETMSG empfangen und mit NETMSGTYPE der Typ ermitteln.


Parameter
Code=Nachrichtkennung 1-99
Nachricht=beliebige Textnachricht
Von=Identität des Spielers (ermittelt mit CREATENETPLAYER)
Nach=Identität des Spielers (ermittelt mit CREATENETPLAYER)
Bei 0 wird es an alle gesendet!
Wichtig=0=normal, 1=wichtige Nachricht (schneller=standard)


Rückgabewert
???


Beispiel
GRAPHICS 640,480,16
SETBUFFER BACKBUFFER()
TYPE multi
   FIELD x
   FIELD y
   FIELD id
   FIELD name$
   FIELD xspeed
   FIELD boxColor
END TYPE

joinStatus=HOSTNETGAME("ShaneGame")
IF joinStatus=2 THEN
   PRINT "Spiel gestartet... "
ELSE
   PRINT "Spiel konnte nicht gestartet werden!"
   END
END IF

FOR t = 1 TO 5
   player.multi = NEW Multi
   player\ID=CREATENETPLAYER("Player" + t)
   IF player\ID <> 0 THEN
      player\name$="Player" + t
      player\x = RAND(640)
      player\y = RAND(480)
      player\boxColor = RAND(255)
      player\xspeed = RAND(1,5)
      PRINT "Spieler " + t + " hat ID=" + player\ID
   ELSE
      PRINT "Spieler konnte nicht erstellt werden!"
   END IF
NEXT

PRINT "Alle Spieler eingebunden..."
WAITKEY()

WHILE NOT KEYHIT(1)
   CLS
   FOR player = EACH multi
      COLOR player\boxColor,player\boxColor,player\boxColor
      RECT player\x,player\y,10,10,1
      TEXT player\x-10,player\y-15,player\name$
      player\x = player\x + player\xspeed
      IF player\x > 640 OR player\x < 0 THEN
         player\xspeed=-player\xspeed
         message$="Spieler ID #" + player\ID + " beruhrte Wand"
         SENDNETMSG RAND(1,99),message$,player\id,0
      END IF
   NEXT
   FLIP
WEND
END


Siehe auch
NETMSGDATA, NETMSGFROM, NETMSGTO, NETMSGTYPE, RECVNETMSG