121377e29c7f359c3508775f0efb2f3d90035712
[rocksndiamonds.git] / src / netserv.c
1 /***********************************************************
2 * Rocks'n'Diamonds -- McDuffin Strikes Back!               *
3 *----------------------------------------------------------*
4 * (c) 1995-2006 Artsoft Entertainment                      *
5 *               Holger Schemel                             *
6 *               Detmolder Strasse 189                      *
7 *               33604 Bielefeld                            *
8 *               Germany                                    *
9 *               e-mail: info@artsoft.org                   *
10 *----------------------------------------------------------*
11 * netserv.c                                                *
12 ***********************************************************/
13
14 #include "libgame/platform.h"
15
16 #if defined(NETWORK_AVALIABLE)
17
18 #include <fcntl.h>
19 #include <sys/time.h>
20 #include <signal.h>
21 #include <errno.h>
22
23 #if defined(TARGET_SDL)
24 #include "main.h"
25 #else
26 #include <sys/socket.h>
27 #include <netinet/in.h>
28 #include <netinet/tcp.h>
29 #include <arpa/inet.h>
30 #include <netdb.h>
31 #include <sys/select.h>                 /* apparently needed for OS/2 port */
32 #endif
33
34 #include "libgame/libgame.h"
35
36 #include "netserv.h"
37
38 static int clients = 0;
39 static int onceonly = 0;
40
41 struct NetworkServerPlayerInfo
42 {
43 #if defined(TARGET_SDL)
44   TCPsocket fd;
45 #else
46   int fd;
47 #endif
48
49   char player_name[16];
50   unsigned char number;
51   struct NetworkServerPlayerInfo *next;
52   char active;
53   char introduced;
54   unsigned char readbuffer[MAX_BUFFER_SIZE];
55   unsigned char writbuffer[MAX_BUFFER_SIZE];
56   int nread, nwrite;
57   byte action;
58   boolean action_received;
59 };
60
61 static struct NetworkServerPlayerInfo *first_player = NULL;
62
63 #define NEXT(player) ((player)->next ? (player)->next : first_player)
64
65 #if defined(TARGET_SDL)
66 /* TODO: peer address */
67 static TCPsocket lfd;           /* listening socket */
68 static SDLNet_SocketSet fds;    /* socket set */
69 #else
70 static struct sockaddr_in saddr;
71 static int lfd;                 /* listening socket */
72 static fd_set fds;              /* socket set */
73 static int tcp = -1;
74 #endif
75
76 static unsigned char realbuffer[512], *buffer = realbuffer + 4;
77
78 static int interrupt;
79
80 static unsigned int ServerFrameCounter = 0;
81
82 static void addtobuffer(struct NetworkServerPlayerInfo *player,
83                         unsigned char *b, int len)
84 {
85   if (player->nwrite + len >= MAX_BUFFER_SIZE)
86     Error(ERR_EXIT_NETWORK_SERVER,
87           "internal error: network send buffer overflow");
88
89   memcpy(player->writbuffer + player->nwrite, b, len);
90   player->nwrite += len;
91 }
92
93 static void flushuser(struct NetworkServerPlayerInfo *player)
94 {
95   if (player->nwrite)
96   {
97 #if defined(TARGET_SDL)
98     SDLNet_TCP_Send(player->fd, player->writbuffer, player->nwrite);
99 #else
100     if (write(player->fd, player->writbuffer, player->nwrite) == -1)
101       Error(ERR_WARN, "write() failed; %s", strerror(errno));
102 #endif
103     player->nwrite = 0;
104   }
105 }
106
107 static void broadcast(struct NetworkServerPlayerInfo *except,
108                       int len, int activeonly)
109 {
110   struct NetworkServerPlayerInfo *player;
111
112   realbuffer[0] = realbuffer[1] = realbuffer[2] = 0;
113   realbuffer[3] = (unsigned char)len;
114   for (player = first_player; player; player = player->next)
115     if (player != except && player->introduced &&
116         (player->active || !activeonly))
117       addtobuffer(player, realbuffer, 4 + len);
118 }
119
120 static void sendtoone(struct NetworkServerPlayerInfo *to, int len)
121 {
122   realbuffer[0] = realbuffer[1] = realbuffer[2] = 0;
123   realbuffer[3] = (unsigned char)len;
124   addtobuffer(to, realbuffer, 4 + len);
125 }
126
127 static void RemovePlayer(struct NetworkServerPlayerInfo *player)
128 {
129   struct NetworkServerPlayerInfo *v;
130   
131   if (options.verbose)
132     Error(ERR_NETWORK_SERVER, "dropping client %d (%s)",
133           player->number, player->player_name);
134
135   if (player == first_player)
136     first_player = player->next;
137   else
138   {
139     for (v = first_player; v; v = v->next)
140     {
141       if (v->next && v->next == player)
142       {
143         v->next = player->next;
144         break;
145       }
146     }
147   }
148
149 #if defined(TARGET_SDL)
150   SDLNet_TCP_DelSocket(fds, player->fd);
151   SDLNet_TCP_Close(player->fd);
152 #else
153   close(player->fd);
154 #endif
155
156   if (player->introduced)
157   {
158     buffer[0] = player->number;
159     buffer[1] = OP_PLAYER_DISCONNECTED;
160     broadcast(player, 2, 0);
161   }
162
163   free(player);
164   clients--;
165
166   if (onceonly && clients == 0)
167   {
168     if (options.verbose)
169     {
170       Error(ERR_NETWORK_SERVER, "no clients left");
171       Error(ERR_NETWORK_SERVER, "aborting");
172     }
173     exit(0);
174   }
175 }
176
177 #if defined(TARGET_SDL)
178 static void AddPlayer(TCPsocket fd)
179 #else
180 static void AddPlayer(int fd)
181 #endif
182 {
183   struct NetworkServerPlayerInfo *player, *v;
184   unsigned char nxn;
185   boolean again = TRUE;
186
187   player = checked_malloc(sizeof (struct NetworkServerPlayerInfo));
188
189   player->fd = fd;
190   player->player_name[0] = 0;
191   player->next = first_player;
192   player->active = 0;
193   player->nread = 0;
194   player->nwrite = 0;
195   player->introduced = 0;
196   player->action = 0;
197   player->action_received = FALSE;
198
199 #if defined(TARGET_SDL)
200   SDLNet_TCP_AddSocket(fds, fd);
201 #endif
202
203   first_player = player;
204
205   nxn = 1;
206
207   while (again)
208   {
209     again = FALSE;
210     v = player->next;
211
212     while (v)
213     {
214       if (v->number == nxn)
215       {
216         nxn++;
217
218         again = TRUE;
219         break;
220       }
221       v = v->next;
222     }
223   }
224
225   player->number = nxn;
226 #if !defined(TARGET_SDL)
227   if (options.verbose)
228     Error(ERR_NETWORK_SERVER, "client %d connecting from %s",
229           nxn, inet_ntoa(saddr.sin_addr));
230 #endif
231   clients++;
232
233   buffer[0] = 0;
234   buffer[1] = OP_YOUR_NUMBER;
235   buffer[2] = player->number;
236   sendtoone(player, 3);
237 }
238
239 static void Handle_OP_PROTOCOL_VERSION(struct NetworkServerPlayerInfo *player,
240                                        unsigned int len)
241 {
242   if (len != 5 ||
243       buffer[2] != PROTOCOL_VERSION_1 ||
244       buffer[3] != PROTOCOL_VERSION_2)
245   {
246     if (options.verbose)
247       Error(ERR_NETWORK_SERVER,
248             "client %d (%s) has wrong protocol version %d.%d.%d",
249             player->number, player->player_name, buffer[2], buffer[3], buffer[4]);
250
251     buffer[0] = 0;
252     buffer[1] = OP_BAD_PROTOCOL_VERSION;
253     buffer[2] = PROTOCOL_VERSION_1;
254     buffer[3] = PROTOCOL_VERSION_2;
255     buffer[4] = PROTOCOL_VERSION_3;
256     sendtoone(player, 5);
257     flushuser(player);
258
259     RemovePlayer(player);
260     interrupt = 1;
261   }
262   else
263   {
264     if (options.verbose)
265       Error(ERR_NETWORK_SERVER,
266             "client %d (%s) uses protocol version %d.%d.%d",
267             player->number, player->player_name, buffer[2], buffer[3], buffer[4]);
268   }
269 }
270
271 static void Handle_OP_NUMBER_WANTED(struct NetworkServerPlayerInfo *player)
272 {
273   struct NetworkServerPlayerInfo *v;
274   int client_nr = player->number;
275   int nr_wanted = buffer[2];
276   int nr_is_free = 1;
277
278   if (options.verbose)
279       Error(ERR_NETWORK_SERVER, "client %d (%s) wants to switch to # %d",
280             player->number, player->player_name, nr_wanted);
281
282   for (v = first_player; v; v = v->next)
283   {
284     if (v->number == nr_wanted)
285     {
286       nr_is_free = 0;
287       break;
288     }
289   }
290
291   if (options.verbose)
292   {
293     if (nr_is_free)
294       Error(ERR_NETWORK_SERVER, "client %d (%s) switches to # %d",
295             player->number, player->player_name, nr_wanted);
296     else if (player->number == nr_wanted)
297       Error(ERR_NETWORK_SERVER, "client %d (%s) already has # %d",
298             player->number, player->player_name, nr_wanted);
299     else
300       Error(ERR_NETWORK_SERVER,
301             "client %d (%s) cannot switch (client %d already exists)",
302             player->number, player->player_name, nr_wanted);
303   }
304
305   if (nr_is_free)
306     player->number = nr_wanted;
307
308   buffer[0] = client_nr;
309   buffer[1] = OP_NUMBER_WANTED;
310   buffer[2] = nr_wanted;
311   buffer[3] = player->number;
312
313   /*
314   sendtoone(player, 4);
315   */
316
317   broadcast(NULL, 4, 0);
318 }
319
320 static void Handle_OP_PLAYER_NAME(struct NetworkServerPlayerInfo *player,
321                                   unsigned int len)
322 {
323   struct NetworkServerPlayerInfo *v;
324   int i;
325
326   if (len>16)
327     len=16;
328   memcpy(player->player_name, &buffer[2], len-2);
329   player->player_name[len-2] = 0;
330   for (i = 0; i < len - 2; i++)
331   {
332     if (player->player_name[i] < ' ' || 
333         ((unsigned char)(player->player_name[i]) > 0x7e &&
334          (unsigned char)(player->player_name[i]) <= 0xa0))
335     {
336       player->player_name[i] = 0;
337       break;
338     }
339   }
340
341   if (!player->introduced)
342   {
343     buffer[0] = player->number;
344     buffer[1] = OP_PLAYER_CONNECTED;
345     broadcast(player, 2, 0);
346   }
347               
348   if (options.verbose)
349     Error(ERR_NETWORK_SERVER, "client %d calls itself \"%s\"",
350           player->number, player->player_name);
351   buffer[1] = OP_PLAYER_NAME;
352   broadcast(player, len, 0);
353
354   if (!player->introduced)
355   {
356     for (v = first_player; v; v = v->next)
357     {
358       if (v != player && v->introduced)
359       {
360         buffer[0] = v->number;
361         buffer[1] = OP_PLAYER_CONNECTED;
362         sendtoone(player, 2);
363         buffer[1] = OP_PLAYER_NAME;
364         memcpy(&buffer[2], v->player_name, 14);
365         sendtoone(player, 2+strlen(v->player_name));
366       }
367     }
368   }
369
370   player->introduced = 1;
371 }
372
373 static void Handle_OP_START_PLAYING(struct NetworkServerPlayerInfo *player)
374 {
375   struct NetworkServerPlayerInfo *v, *w;
376
377   if (options.verbose)
378     Error(ERR_NETWORK_SERVER,
379           "client %d (%s) starts game [level %d from leveldir %d (%s)]",
380           player->number, player->player_name,
381           (buffer[2] << 8) + buffer[3],
382           (buffer[4] << 8) + buffer[5],
383           &buffer[10]);
384
385   for (w = first_player; w; w = w->next)
386     if (w->introduced)
387       w->active = 1;
388
389   /* reset frame counter */
390   ServerFrameCounter = 0;
391
392   Error(ERR_NETWORK_SERVER, "resetting ServerFrameCounter to 0");
393
394   /* reset player actions */
395   for (v = first_player; v; v = v->next)
396   {
397     v->action = 0;
398     v->action_received = FALSE;
399   }
400
401   broadcast(NULL, 10 + strlen((char *)&buffer[10])+1, 0);
402 }
403
404 static void Handle_OP_PAUSE_PLAYING(struct NetworkServerPlayerInfo *player)
405 {
406   if (options.verbose)
407     Error(ERR_NETWORK_SERVER, "client %d (%s) pauses game",
408           player->number, player->player_name);
409   broadcast(NULL, 2, 0);
410 }
411
412 static void Handle_OP_CONTINUE_PLAYING(struct NetworkServerPlayerInfo *player)
413 {
414   if (options.verbose)
415     Error(ERR_NETWORK_SERVER, "client %d (%s) continues game",
416           player->number, player->player_name);
417   broadcast(NULL, 2, 0);
418 }
419
420 static void Handle_OP_STOP_PLAYING(struct NetworkServerPlayerInfo *player)
421 {
422   int cause_for_stopping = buffer[2];
423
424   if (options.verbose)
425     Error(ERR_NETWORK_SERVER, "client %d (%s) stops game [%d]",
426           player->number, player->player_name, cause_for_stopping);
427   broadcast(NULL, 3, 0);
428 }
429
430 static void Handle_OP_MOVE_PLAYER(struct NetworkServerPlayerInfo *player)
431 {
432   struct NetworkServerPlayerInfo *v;
433   int last_client_nr = 0;
434   int i;
435
436   /* store player action */
437   for (v = first_player; v; v = v->next)
438   {
439     if (v->number == player->number)
440     {
441       v->action = buffer[2];
442       v->action_received = TRUE;
443     }
444   }
445
446   /* check if server received action from each player */
447   for (v = first_player; v; v = v->next)
448   {
449     if (!v->action_received)
450       return;
451
452     if (v->number > last_client_nr)
453       last_client_nr = v->number;
454   }
455
456   /* initialize all player actions to zero */
457   for (i = 0; i < last_client_nr; i++)
458     buffer[6 + i] = 0;
459
460   /* broadcast actions of all players to all players */
461   for (v = first_player; v; v = v->next)
462   {
463     buffer[6 + v->number-1] = v->action;
464     v->action = 0;
465     v->action_received = FALSE;
466   }
467
468   buffer[2] = (unsigned char)((ServerFrameCounter >> 24) & 0xff);
469   buffer[3] = (unsigned char)((ServerFrameCounter >> 16) & 0xff);
470   buffer[4] = (unsigned char)((ServerFrameCounter >>  8) & 0xff);
471   buffer[5] = (unsigned char)((ServerFrameCounter >>  0) & 0xff);
472
473   broadcast(NULL, 6 + last_client_nr, 0);
474
475 #if 0
476   Error(ERR_NETWORK_SERVER, "sending ServerFrameCounter value %d",
477         ServerFrameCounter);
478 #endif
479
480   ServerFrameCounter++;
481 }
482
483 #if defined(TARGET_SDL)
484 /* the following is not used for a standalone server;
485    the pointer points to an integer containing the port-number */
486 int NetworkServerThread(void *ptr)
487 {
488   NetworkServer(*((int *) ptr), 0);
489
490   /* should never be reached */
491   return 0;
492 }
493 #endif
494
495 void NetworkServer(int port, int serveronly)
496 {
497   int sl;
498   struct NetworkServerPlayerInfo *player;
499   int r; 
500   unsigned int len;
501 #if defined(TARGET_SDL)
502   IPaddress ip;
503 #else
504   int i, on;
505   int is_daemon = 0;
506   struct protoent *tcpproto;
507   struct timeval tv;
508   int mfd;
509 #endif
510
511 #if defined(PLATFORM_UNIX) && !defined(PLATFORM_NEXT)
512   struct sigaction sact;
513 #endif
514
515   if (port == 0)
516     port = DEFAULT_SERVER_PORT;
517
518   if (!serveronly)
519     onceonly = 1;
520
521 #if !defined(TARGET_SDL)
522   if ((tcpproto = getprotobyname("tcp")) != NULL)
523     tcp = tcpproto->p_proto;
524 #endif
525
526 #if defined(PLATFORM_UNIX)
527 #if defined(PLATFORM_NEXT)
528   signal(SIGPIPE, SIG_IGN);
529 #else
530   sact.sa_handler = SIG_IGN;
531   sigemptyset(&sact.sa_mask);
532   sact.sa_flags = 0;
533   sigaction(SIGPIPE, &sact, NULL);
534 #endif
535 #endif
536
537 #if defined(TARGET_SDL)
538
539   /* assume that SDL is already initialized */
540 #if 0
541   if (SDLNet_Init() == -1)
542     Error(ERR_EXIT_NETWORK_SERVER, "SDLNet_Init() failed");
543   atexit(SDLNet_Quit);
544 #endif
545
546   if (SDLNet_ResolveHost(&ip, NULL, port) == -1)
547     Error(ERR_EXIT_NETWORK_SERVER, "SDLNet_ResolveHost() failed");
548
549   lfd = SDLNet_TCP_Open(&ip);
550   if (!lfd)
551     Error(ERR_EXIT_NETWORK_SERVER, "SDLNet_TCP_Open() failed");
552
553   fds = SDLNet_AllocSocketSet(MAX_PLAYERS+1);
554   SDLNet_TCP_AddSocket(fds, lfd);
555
556 #else
557
558   if ((lfd = socket(PF_INET, SOCK_STREAM, 0)) < 0)
559     Error(ERR_EXIT_NETWORK_SERVER, "socket() failed");
560
561   saddr.sin_family = AF_INET;
562   saddr.sin_addr.s_addr = htonl(INADDR_ANY);
563   saddr.sin_port = htons(port);
564
565   on = 1;
566
567   setsockopt(lfd, SOL_SOCKET, SO_REUSEADDR, (char *)&on, sizeof(int));
568   if (bind(lfd, (struct sockaddr *)&saddr, sizeof(saddr)) < 0)
569     Error(ERR_EXIT_NETWORK_SERVER, "bind() failed");
570
571   listen(lfd, 5);
572 #endif
573
574 #if !defined(TARGET_SDL)
575   if (is_daemon)
576   {
577     /* become a daemon, breaking all ties with the controlling terminal */
578     options.verbose = FALSE;
579     for (i = 0; i < 255; i++)
580     {
581       if (i != lfd)
582         close(i);
583     }
584
585     if (fork())
586       exit(0);
587     setsid();
588     if (fork())
589       exit(0);
590     if (chdir("/") == -1)
591       Error(ERR_WARN, "chdir() failed; %s", strerror(errno));
592
593     /* open a fake stdin, stdout, stderr, just in case */
594     open("/dev/null", O_RDONLY);
595     open("/dev/null", O_WRONLY);
596     open("/dev/null", O_WRONLY);
597   }
598 #endif
599
600   if (options.verbose)
601   {
602     Error(ERR_NETWORK_SERVER, "started up, listening on port %d", port);
603     Error(ERR_NETWORK_SERVER, "using protocol version %d.%d.%d",
604           PROTOCOL_VERSION_1, PROTOCOL_VERSION_2, PROTOCOL_VERSION_3);
605   }
606
607   while (1)
608   {
609     interrupt = 0;
610
611     for (player = first_player; player; player = player->next)
612       flushuser(player);
613
614 #if defined(TARGET_SDL)
615     if ((sl = SDLNet_CheckSockets(fds, 500000)) < 1)
616     {
617       Error(ERR_NETWORK_SERVER, "SDLNet_CheckSockets failed: %s",
618             SDLNet_GetError());
619       perror("SDLNet_CheckSockets");
620     }
621
622 #else
623
624     FD_ZERO(&fds);
625     mfd = lfd;
626     player = first_player;
627     while (player)
628     {
629       FD_SET(player->fd, &fds);
630       if (player->fd > mfd)
631         mfd = player->fd;
632       player = player->next;
633     }
634     FD_SET(lfd, &fds);
635     tv.tv_sec = 0;
636     tv.tv_usec = 500000;
637     if ((sl = select(mfd + 1, &fds, NULL, NULL, &tv)) < 0)
638     {
639       if (errno != EINTR)
640         Error(ERR_EXIT_NETWORK_SERVER, "select() failed");
641       else
642         continue;
643     }
644 #endif
645
646     if (sl < 0)
647       continue;
648     
649     if (sl == 0)
650       continue;
651
652     /* accept incoming connections */
653 #if defined(TARGET_SDL)
654     if (SDLNet_SocketReady(lfd))
655     {
656       TCPsocket newsock;
657
658       newsock = SDLNet_TCP_Accept(lfd);
659
660       if (newsock)
661         AddPlayer(newsock);
662     }
663
664 #else
665
666     if (FD_ISSET(lfd, &fds))
667     {
668       int newfd;
669       socklen_t slen;
670
671       slen = sizeof(saddr);
672       newfd = accept(lfd, (struct sockaddr *)&saddr, &slen);
673       if (newfd < 0)
674       {
675         if (errno != EINTR)
676           Error(ERR_EXIT_NETWORK_SERVER, "accept() failed");
677       }
678       else
679       {
680         if (tcp != -1)
681         {
682           on = 1;
683           setsockopt(newfd, tcp, TCP_NODELAY, (char *)&on, sizeof(int));
684         }
685         AddPlayer(newfd);
686       }
687       continue;
688     }
689 #endif
690
691     player = first_player;
692
693     do
694     {
695 #if defined(TARGET_SDL)
696       if (SDLNet_SocketReady(player->fd))
697 #else
698       if (FD_ISSET(player->fd, &fds))
699 #endif
700       {
701 #if defined(TARGET_SDL)
702         /* read only 1 byte, because SDLNet blocks when we want more than is
703            in the buffer */
704         r = SDLNet_TCP_Recv(player->fd, player->readbuffer + player->nread, 1);
705 #else
706         r = read(player->fd, player->readbuffer + player->nread,
707                  MAX_BUFFER_SIZE - player->nread);
708 #endif
709
710         if (r <= 0)
711         {
712           if (options.verbose)
713             Error(ERR_NETWORK_SERVER, "EOF from client %d (%s)",
714                   player->number, player->player_name);
715           RemovePlayer(player);
716           interrupt = 1;
717           break;
718         }
719         player->nread += r;
720         while (player->nread >= 4 && player->nread >= 4 + player->readbuffer[3])
721         {
722           len = player->readbuffer[3];
723           if (player->readbuffer[0] || player->readbuffer[1] || player->readbuffer[2])
724           {
725             if (options.verbose)
726               Error(ERR_NETWORK_SERVER, "crap from client %d (%s)",
727                     player->number, player->player_name);
728             RemovePlayer(player);
729             interrupt = 1;
730             break;
731           }
732           memcpy(buffer, &player->readbuffer[4], len);
733           player->nread -= 4 + len;
734           memmove(player->readbuffer, player->readbuffer + 4 + len, player->nread);
735
736           buffer[0] = player->number;
737           if (!player->introduced && buffer[1] != OP_PLAYER_NAME)
738           {
739             if (options.verbose)
740               Error(ERR_NETWORK_SERVER, "!(client %d)->introduced && buffer[1]==%d (expected OP_PLAYER_NAME)", buffer[0], buffer[1]);
741
742             RemovePlayer(player);
743             interrupt = 1;
744             break;
745           }
746
747           switch (buffer[1])
748           {
749             case OP_PLAYER_NAME:
750               Handle_OP_PLAYER_NAME(player, len);
751               break;
752
753             case OP_PROTOCOL_VERSION:
754               Handle_OP_PROTOCOL_VERSION(player, len);
755               break;
756
757             case OP_NUMBER_WANTED:
758               Handle_OP_NUMBER_WANTED(player);
759               break;
760
761             case OP_START_PLAYING:
762               Handle_OP_START_PLAYING(player);
763               break;
764
765             case OP_PAUSE_PLAYING:
766               Handle_OP_PAUSE_PLAYING(player);
767               break;
768
769             case OP_CONTINUE_PLAYING:
770               Handle_OP_CONTINUE_PLAYING(player);
771               break;
772
773             case OP_STOP_PLAYING:
774               Handle_OP_STOP_PLAYING(player);
775               break;
776
777             case OP_MOVE_PLAYER:
778               Handle_OP_MOVE_PLAYER(player);
779               break;
780
781             case OP_BROADCAST_MESSAGE:
782               buffer[len] = '\0';
783               if (options.verbose)
784                 Error(ERR_NETWORK_SERVER, "client %d (%s) sends message: %s",
785                       player->number, player->player_name, &buffer[2]);
786               broadcast(player, len, 0);
787               break;
788             
789             default:
790               if (options.verbose)
791                 Error(ERR_NETWORK_SERVER,
792                       "unknown opcode %d from client %d (%s)",
793                       buffer[0], player->number, player->player_name);
794           }
795         }
796       }
797
798       if (player && !interrupt)
799         player = player->next;
800     }
801     while (player && !interrupt);
802   }
803 }
804
805 #endif /* NETWORK_AVALIABLE */