src/network.c

   1 /***********************************************************
   2 *  Rocks'n'Diamonds -- McDuffin Strikes Back!              *
   3 *----------------------------------------------------------*
   4 *  (c) 1995-98 Artsoft Entertainment                       *
   5 *              Holger Schemel                              *
   6 *              Oststrasse 11a                              *
   7 *              33604 Bielefeld                             *
   8 *              phone: ++49 +521 290471                     *
   9 *              email: aeglos@valinor.owl.de                *
  10 *----------------------------------------------------------*
  11 *  network.c                                               *
  12 ***********************************************************/
  13
  14 #include <stdio.h>
  15 #include <stdlib.h>
  16 #include <unistd.h>
  17 #include <signal.h>
  18 #include <sys/types.h>
  19 #include <sys/time.h>
  20 #include <sys/wait.h>
  21 #include <sys/socket.h>
  22 #include <netinet/in.h>
  23 #include <netinet/tcp.h>
  24 #include <arpa/inet.h>
  25 #include <netdb.h>
  26 #include <errno.h>
  27
  28 #include "network.h"
  29 #include "netserv.h"
  30 #include "game.h"
  31 #include "tape.h"
  32 #include "files.h"
  33 #include "tools.h"
  34 #include "buttons.h"
  35 #include "screens.h"
  36 #include "misc.h"
  37
  38 #define MAXNICKLEN 14
  39
  40 struct user
  41 {
  42   byte nr;
  43   char name[MAXNICKLEN+2];
  44   struct user *next;
  45 };
  46
  47 struct user me =
  48 {
  49   0,
  50   "no name",
  51   NULL
  52 };
  53
  54 static char msgbuf[300];
  55
  56 /* server stuff */
  57
  58 int sfd;
  59 unsigned char realbuf[512], readbuf[MAX_BUFFER_SIZE], writbuf[MAX_BUFFER_SIZE];
  60 unsigned char *buf = realbuf + 4;
  61 int nread = 0, nwrite = 0;
  62
  63 static void sysmsg(char *s)
  64 {
  65   if (options.verbose)
  66   {
  67     printf("** %s\n", s);
  68     fflush(stdout);
  69   }
  70 }
  71
  72 static void u_sleep(int i)
  73 {
  74   struct timeval tm;
  75   tm.tv_sec = i / 1000000;
  76   tm.tv_usec = i % 1000000;
  77   select(0, NULL, NULL, NULL, &tm);
  78 }
  79
  80 static void flushbuf()
  81 {
  82   if (nwrite)
  83   {
  84     write(sfd, writbuf, nwrite);
  85     nwrite = 0;
  86   }
  87 }
  88
  89 static void sendbuf(int len)
  90 {
  91   if (options.network)
  92   {
  93     realbuf[0] = realbuf[1] = realbuf[2] = 0;
  94     realbuf[3] = (unsigned char)len;
  95     buf[0] = 0;
  96     if (nwrite + 4 + len >= MAX_BUFFER_SIZE)
  97       Error(ERR_EXIT, "internal error: network send buffer overflow");
  98     memcpy(writbuf + nwrite, realbuf, 4 + len);
  99     nwrite += 4 + len;
 100
 101
 102     flushbuf();
 103
 104
 105   }
 106 }
 107
 108 struct user *finduser(unsigned char c)
 109 {
 110   struct user *u;
 111
 112   for (u = &me; u; u = u->next)
 113     if (u->nr == c)
 114       return u;
 115
 116   Error(ERR_EXIT, "protocol error: reference to non-existing user %d", c);
 117
 118   return NULL; /* so that gcc -Wall doesn't complain */
 119 }
 120
 121 char *get_user_name(unsigned char c)
 122 {
 123   struct user *u;
 124
 125   if (c == 0)
 126     return("the server");
 127   else if (c == me.nr)
 128     return("you");
 129   else
 130     for (u = &me; u; u = u->next)
 131       if (u->nr == c && u->name && strlen(u->name))
 132         return(u->name);
 133
 134   return("no name");
 135 }
 136
 137 static void StartNetworkServer(int port)
 138 {
 139   switch (fork())
 140   {
 141     case 0:
 142       NetworkServer(port, options.serveronly);
 143
 144       /* never reached */
 145       exit(0);
 146
 147     case -1:
 148       Error(ERR_WARN,
 149             "cannot create network server process - no network games");
 150       options.network = FALSE;
 151       return;
 152
 153     default:
 154       /* we are parent process -- resume normal operation */
 155       return;
 156   }
 157 }
 158
 159 boolean ConnectToServer(char *host, int port)
 160 {
 161   struct hostent *hp;
 162   struct sockaddr_in s;
 163   struct protoent *tcpproto;
 164   int on = 1, i;
 165
 166   if (host)
 167   {
 168     if ((s.sin_addr.s_addr = inet_addr(host)) == -1)
 169     {
 170       hp = gethostbyname(host);
 171       if (!hp)
 172         Error(ERR_EXIT, "cannot locate host '%s'", host);
 173
 174       s.sin_addr = *(struct in_addr *)(hp->h_addr_list[0]);
 175     }
 176   }
 177   else
 178     s.sin_addr.s_addr = inet_addr("127.0.0.1");
 179
 180   if (port == 0)
 181     port = DEFAULTPORT;
 182
 183   s.sin_port = htons(port);
 184   s.sin_family = AF_INET;
 185
 186   sfd = socket(PF_INET, SOCK_STREAM, 0);
 187   if (sfd < 0)
 188     Error(ERR_EXIT, "out of file descriptors");
 189
 190   if ((tcpproto = getprotobyname("tcp")) != NULL)
 191     setsockopt(sfd, tcpproto->p_proto, TCP_NODELAY, (char *)&on, sizeof(int));
 192
 193   if (connect(sfd, (struct sockaddr *)&s, sizeof(s)) < 0)
 194   {
 195     if (!host)
 196     {
 197       printf("No rocksndiamonds server on localhost - starting up one ...\n");
 198
 199       StartNetworkServer(port);
 200
 201       for (i=0; i<6; i++)
 202       {
 203         u_sleep(500000);
 204         close(sfd);
 205
 206         sfd = socket(PF_INET, SOCK_STREAM, 0);
 207         if (sfd < 0)
 208           Error(ERR_EXIT, "out of file descriptors");
 209
 210         setsockopt(sfd, tcpproto->p_proto, TCP_NODELAY,
 211                    (char *)&on, sizeof(int));
 212
 213         if (connect(sfd, (struct sockaddr *)&s, sizeof(s)) >= 0)
 214           break;
 215       }
 216       if (i==6)
 217         Error(ERR_EXIT, "cannot connect to server");
 218     }
 219     else
 220       Error(ERR_EXIT, "cannot connect to server");
 221   }
 222
 223   return(TRUE);
 224 }
 225
 226 void SendToServer_Nickname(char *nickname)
 227 {
 228   static char msgbuf[300];
 229   int len_nickname = strlen(nickname);
 230
 231   buf[1] = OP_NICKNAME;
 232   memcpy(&buf[2], nickname, len_nickname);
 233   sendbuf(2 + len_nickname);
 234   sprintf(msgbuf, "you set your nick to \"%s\"", nickname);
 235   sysmsg(msgbuf);
 236 }
 237
 238 void SendToServer_ProtocolVersion()
 239 {
 240   buf[1] = OP_PROTOCOL_VERSION;
 241   buf[2] = PROT_VERS_1;
 242   buf[3] = PROT_VERS_2;
 243   buf[4] = PROT_VERS_3;
 244
 245   sendbuf(5);
 246 }
 247
 248 void SendToServer_NrWanted(int nr_wanted)
 249 {
 250   buf[1] = OP_NUMBER_WANTED;
 251   buf[2] = nr_wanted;
 252
 253   sendbuf(3);
 254 }
 255
 256 void SendToServer_StartPlaying()
 257 {
 258   unsigned long new_random_seed = InitRND(NEW_RANDOMIZE);
 259
 260   buf[1] = OP_START_PLAYING;
 261   buf[2] = (byte)(level_nr >> 8);
 262   buf[3] = (byte)(level_nr & 0xff);
 263   buf[4] = (byte)(leveldir_nr >> 8);
 264   buf[5] = (byte)(leveldir_nr & 0xff);
 265
 266   buf[6] = (unsigned char)((new_random_seed >> 24) & 0xff);
 267   buf[7] = (unsigned char)((new_random_seed >> 16) & 0xff);
 268   buf[8] = (unsigned char)((new_random_seed >>  8) & 0xff);
 269   buf[9] = (unsigned char)((new_random_seed >>  0) & 0xff);
 270
 271   strcpy(&buf[10], leveldir[leveldir_nr].name);
 272
 273   sendbuf(10 + strlen(leveldir[leveldir_nr].name)+1);
 274 }
 275
 276 void SendToServer_PausePlaying()
 277 {
 278   buf[1] = OP_PAUSE_PLAYING;
 279
 280   sendbuf(2);
 281 }
 282
 283 void SendToServer_ContinuePlaying()
 284 {
 285   buf[1] = OP_CONTINUE_PLAYING;
 286
 287   sendbuf(2);
 288 }
 289
 290 void SendToServer_StopPlaying()
 291 {
 292   buf[1] = OP_STOP_PLAYING;
 293
 294   sendbuf(2);
 295 }
 296
 297 void SendToServer_MovePlayer(byte player_action)
 298 {
 299   buf[1] = OP_MOVE_FIGURE;
 300   buf[2] = player_action;
 301
 302   sendbuf(3);
 303 }
 304
 305 static void Handle_OP_BAD_PROTOCOL_VERSION()
 306 {
 307   Error(ERR_WARN, "protocol version mismatch");
 308   Error(ERR_EXIT, "server expects %d.%d.x instead of %d.%d.%d",
 309         buf[2], buf[3], PROT_VERS_1, PROT_VERS_2, PROT_VERS_3);
 310 }
 311
 312 static void Handle_OP_YOUR_NUMBER()
 313 {
 314   int new_client_nr = buf[2];
 315   int new_index_nr = new_client_nr - 1;
 316   struct PlayerInfo *old_local_player = local_player;
 317   struct PlayerInfo *new_local_player = &stored_player[new_index_nr];
 318
 319   printf("OP_YOUR_NUMBER: %d\n", buf[0]);
 320   me.nr = new_client_nr;
 321
 322   if (old_local_player != new_local_player)
 323   {
 324     /* copy existing player settings and change to new player */
 325
 326     *new_local_player = *old_local_player;
 327     old_local_player->connected = FALSE;
 328
 329     local_player = new_local_player;
 330   }
 331
 332   TestPlayer = new_index_nr;
 333
 334   if (me.nr > MAX_PLAYERS)
 335     Error(ERR_EXIT, "sorry - no more than %d players", MAX_PLAYERS);
 336
 337   sprintf(msgbuf, "you get client # %d", new_client_nr);
 338   sysmsg(msgbuf);
 339 }
 340
 341 static void Handle_OP_NUMBER_WANTED()
 342 {
 343   int client_nr_wanted = buf[2];
 344   int old_client_nr = buf[0];
 345   int new_client_nr = buf[3];
 346   int old_index_nr = old_client_nr - 1;
 347   int new_index_nr = new_client_nr - 1;
 348   int index_nr_wanted = client_nr_wanted - 1;
 349   struct PlayerInfo *old_player = &stored_player[old_index_nr];
 350   struct PlayerInfo *new_player = &stored_player[new_index_nr];
 351
 352   printf("OP_NUMBER_WANTED: %d\n", buf[0]);
 353
 354   if (new_client_nr == client_nr_wanted)        /* switching succeeded */
 355   {
 356     struct user *u;
 357
 358     if (old_client_nr != client_nr_wanted)      /* client's nr has changed */
 359     {
 360       sprintf(msgbuf, "client %d switches to # %d",
 361               old_client_nr, new_client_nr);
 362       sysmsg(msgbuf);
 363     }
 364     else if (old_client_nr == me.nr)            /* local player keeps his nr */
 365     {
 366       sprintf(msgbuf, "keeping client # %d", new_client_nr);
 367       sysmsg(msgbuf);
 368     }
 369
 370     if (old_client_nr != new_client_nr)
 371     {
 372       /* copy existing player settings and change to new player */
 373
 374       *new_player = *old_player;
 375       old_player->connected = FALSE;
 376     }
 377
 378     u = finduser(old_client_nr);
 379     u->nr = new_client_nr;
 380
 381     if (old_player == local_player)             /* local player switched */
 382       local_player = new_player;
 383
 384
 385     TestPlayer = new_index_nr;
 386   }
 387   else if (old_client_nr == me.nr)              /* failed -- local player? */
 388   {
 389     char *color[] = { "yellow", "red", "green", "blue" };
 390
 391     sprintf(msgbuf, "Sorry ! %s player still exists ! You are %s player !",
 392             color[index_nr_wanted], color[new_index_nr]);
 393     Request(msgbuf, REQ_CONFIRM);
 394
 395     sprintf(msgbuf, "cannot switch -- you keep client # %d",
 396             new_client_nr);
 397     sysmsg(msgbuf);
 398   }
 399 }
 400
 401 static void Handle_OP_NICKNAME(unsigned int len)
 402 {
 403   struct user *u;
 404
 405   printf("OP_NICKNAME: %d\n", buf[0]);
 406   u = finduser(buf[0]);
 407   buf[len] = 0;
 408   sprintf(msgbuf, "client %d calls itself \"%s\"", buf[0], &buf[2]);
 409   sysmsg(msgbuf);
 410   strncpy(u->name, &buf[2], MAXNICKLEN);
 411 }
 412
 413 static void Handle_OP_PLAYER_CONNECTED()
 414 {
 415   struct user *u, *v = NULL;
 416   int new_client_nr = buf[0];
 417   int new_index_nr = new_client_nr - 1;
 418
 419   printf("OP_PLAYER_CONNECTED: %d\n", new_client_nr);
 420   sprintf(msgbuf, "new client %d connected", new_client_nr);
 421   sysmsg(msgbuf);
 422
 423   for (u = &me; u; u = u->next)
 424   {
 425     if (u->nr == new_client_nr)
 426       Error(ERR_EXIT, "multiplayer server sent duplicate player id");
 427     else
 428       v = u;
 429   }
 430
 431   v->next = u = checked_malloc(sizeof(struct user));
 432   u->nr = new_client_nr;
 433   u->name[0] = '\0';
 434   u->next = NULL;
 435
 436   stored_player[new_index_nr].connected = TRUE;
 437 }
 438
 439 static void Handle_OP_PLAYER_DISCONNECTED()
 440 {
 441   struct user *u, *v;
 442
 443   printf("OP_PLAYER_DISCONNECTED: %d\n", buf[0]);
 444   u = finduser(buf[0]);
 445   sprintf(msgbuf, "client %d (%s) disconnected",
 446           buf[0], get_user_name(buf[0]));
 447   sysmsg(msgbuf);
 448
 449   for (v = &me; v; v = v->next)
 450     if (v->next == u)
 451       v->next = u->next;
 452   free(u);
 453 }
 454
 455 static void Handle_OP_START_PLAYING()
 456 {
 457   int new_level_nr, new_leveldir_nr;
 458   unsigned long new_random_seed;
 459   unsigned char *new_leveldir_name;
 460
 461   /*
 462     if (game_status == PLAYING)
 463     break;
 464   */
 465
 466   new_level_nr = (buf[2] << 8) + buf[3];
 467   new_leveldir_nr = (buf[4] << 8) + buf[5];
 468   new_random_seed =
 469     (buf[6] << 24) | (buf[7] << 16) | (buf[8] << 8) | (buf[9]);
 470   new_leveldir_name = &buf[10];
 471
 472   printf("OP_START_PLAYING: %d\n", buf[0]);
 473   sprintf(msgbuf, "client %d starts game [level %d from levedir %d (%s)]\n",
 474           buf[0],
 475           new_level_nr,
 476           new_leveldir_nr,
 477           new_leveldir_name);
 478   sysmsg(msgbuf);
 479
 480
 481   if (strcmp(leveldir[new_leveldir_nr].name, new_leveldir_name) != 0)
 482     Error(ERR_WARN, "no such level directory: '%s'",new_leveldir_name);
 483
 484   leveldir_nr = new_leveldir_nr;
 485
 486   /*
 487   local_player->leveldir_nr = leveldir_nr;
 488   */
 489
 490
 491   /*
 492   SaveLevelSetup();
 493   */
 494
 495   /*
 496   LoadPlayerInfo(PLAYER_LEVEL);
 497   SavePlayerInfo(PLAYER_SETUP);
 498   */
 499
 500
 501   level_nr = new_level_nr;
 502
 503   TapeErase();
 504   LoadTape(level_nr);
 505
 506   /*
 507   GetPlayerConfig();
 508   */
 509
 510   LoadLevel(level_nr);
 511
 512
 513
 514   if (setup.autorecord)
 515     TapeStartRecording();
 516
 517
 518
 519   if (tape.recording)
 520     tape.random_seed = new_random_seed;
 521
 522   InitRND(new_random_seed);
 523
 524
 525   /*
 526     printf("tape.random_seed == %d\n", tape.random_seed);
 527   */
 528
 529   game_status = PLAYING;
 530   InitGame();
 531 }
 532
 533 static void Handle_OP_PAUSE_PLAYING()
 534 {
 535   printf("OP_PAUSE_PLAYING: %d\n", buf[0]);
 536   sprintf(msgbuf, "client %d pauses game", buf[0]);
 537   sysmsg(msgbuf);
 538
 539   tape.pausing = TRUE;
 540   DrawVideoDisplay(VIDEO_STATE_PAUSE_ON,0);
 541 }
 542
 543 static void Handle_OP_CONTINUE_PLAYING()
 544 {
 545   printf("OP_CONTINUE_PLAYING: %d\n", buf[0]);
 546   sprintf(msgbuf, "client %d continues game", buf[0]);
 547   sysmsg(msgbuf);
 548
 549   tape.pausing = FALSE;
 550   DrawVideoDisplay(VIDEO_STATE_PAUSE_OFF,0);
 551 }
 552
 553 static void Handle_OP_STOP_PLAYING()
 554 {
 555   printf("OP_STOP_PLAYING: %d\n", buf[0]);
 556   sprintf(msgbuf, "client %d stops game", buf[0]);
 557   sysmsg(msgbuf);
 558
 559   game_status = MAINMENU;
 560   DrawMainMenu();
 561 }
 562
 563 static void Handle_OP_MOVE_FIGURE(unsigned int len)
 564 {
 565   int frame_nr;
 566   int i;
 567
 568   if (!network_playing)
 569     return;
 570
 571   frame_nr =
 572     (buf[2] << 24) | (buf[3] << 16) | (buf[4] << 8) | (buf[5]);
 573
 574   if (frame_nr != FrameCounter)
 575   {
 576     Error(ERR_RETURN, "client and servers frame counters out of sync");
 577     Error(ERR_RETURN, "frame counter of client is %d", FrameCounter);
 578     Error(ERR_RETURN, "frame counter of server is %d", frame_nr);
 579     Error(ERR_EXIT,   "this should not happen -- please debug");
 580   }
 581
 582   /* copy valid player actions */
 583   for (i=0; i<MAX_PLAYERS; i++)
 584     stored_player[i].effective_action =
 585       (i < len - 6 && stored_player[i].active ? buf[6 + i] : 0);
 586
 587   network_player_action_received = TRUE;
 588
 589   /*
 590     sprintf(msgbuf, "frame %d: client %d moves player [0x%02x]",
 591     FrameCounter, buf[0], buf[2]);
 592     sysmsg(msgbuf);
 593   */
 594 }
 595
 596 static void HandleNetworkingMessages()
 597 {
 598   unsigned int len;
 599
 600   while (nread >= 4 && nread >= 4 + readbuf[3])
 601   {
 602     len = readbuf[3];
 603     if (readbuf[0] || readbuf[1] || readbuf[2])
 604       Error(ERR_EXIT, "wrong network server line length");
 605
 606     memcpy(buf, &readbuf[4], len);
 607     nread -= 4 + len;
 608     memmove(readbuf, readbuf + 4 + len, nread);
 609
 610     switch(buf[1])
 611     {
 612       case OP_BAD_PROTOCOL_VERSION:
 613         Handle_OP_BAD_PROTOCOL_VERSION();
 614         break;
 615
 616       case OP_YOUR_NUMBER:
 617         Handle_OP_YOUR_NUMBER();
 618         break;
 619
 620       case OP_NUMBER_WANTED:
 621         Handle_OP_NUMBER_WANTED();
 622         break;
 623
 624       case OP_NICKNAME:
 625         Handle_OP_NICKNAME(len);
 626         break;
 627
 628       case OP_PLAYER_CONNECTED:
 629         Handle_OP_PLAYER_CONNECTED();
 630         break;
 631
 632       case OP_PLAYER_DISCONNECTED:
 633         Handle_OP_PLAYER_DISCONNECTED();
 634         break;
 635
 636       case OP_START_PLAYING:
 637         Handle_OP_START_PLAYING();
 638         break;
 639
 640       case OP_PAUSE_PLAYING:
 641         Handle_OP_PAUSE_PLAYING();
 642         break;
 643
 644       case OP_CONTINUE_PLAYING:
 645         Handle_OP_CONTINUE_PLAYING();
 646         break;
 647
 648       case OP_STOP_PLAYING:
 649         Handle_OP_STOP_PLAYING();
 650         break;
 651
 652       case OP_MOVE_FIGURE:
 653         Handle_OP_MOVE_FIGURE(len);
 654         break;
 655
 656       case OP_WON:
 657         printf("OP_WON: %d\n", buf[0]);
 658         sprintf(msgbuf, "client %d wins the game", buf[0]);
 659         sysmsg(msgbuf);
 660         break;
 661
 662       case OP_ZERO:
 663         printf("OP_ZERO: %d\n", buf[0]);
 664         sprintf(msgbuf, "client %d resets game counters", buf[0]);
 665         sysmsg(msgbuf);
 666         break;
 667
 668       case OP_MSG:
 669         printf("OP_MSG: %d\n", buf[0]);
 670         sprintf(msgbuf, "client %d sends message", buf[0]);
 671         break;
 672
 673       case OP_LOST:
 674         printf("OP_MSG: %d\n", buf[0]);
 675         sprintf(msgbuf, "client %d has lost", buf[0]);
 676         break;
 677
 678       case OP_LEVEL:
 679         printf("OP_MSG: %d\n", buf[0]);
 680         sprintf(msgbuf, "client %d sets level to %d", buf[0], buf[2]);
 681         break;
 682     }
 683   }
 684
 685   fflush(stdout);
 686 }
 687
 688 void HandleNetworking()
 689 {
 690   static struct timeval tv = { 0, 0 };
 691   fd_set rfds;
 692   int r = 0;
 693
 694   flushbuf();
 695
 696   FD_ZERO(&rfds);
 697   FD_SET(sfd, &rfds);
 698
 699   r = select(sfd + 1, &rfds, NULL, NULL, &tv);
 700
 701   if (r < 0 && errno != EINTR)
 702     Error(ERR_EXIT, "HandleNetworking(): select() failed");
 703
 704   if (r < 0)
 705     FD_ZERO(&rfds);
 706
 707   if (FD_ISSET(sfd, &rfds))
 708   {
 709     int r;
 710
 711     r = read(sfd, readbuf + nread, MAX_BUFFER_SIZE - nread);
 712
 713     if (r < 0)
 714       Error(ERR_EXIT, "error reading from network server");
 715
 716     if (r == 0)
 717       Error(ERR_EXIT, "connection to network server lost");
 718
 719     nread += r;
 720
 721     HandleNetworkingMessages();
 722   }
 723 }