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
 230   buf[1] = OP_NICKNAME;
 231   memcpy(&buf[2], nickname, strlen(nickname));
 232   sendbuf(2 + strlen(nickname));
 233   sprintf(msgbuf, "you set your nick to \"%s\"", nickname);
 234   sysmsg(msgbuf);
 235 }
 236
 237 void SendToServer_ProtocolVersion()
 238 {
 239   buf[1] = OP_PROTOCOL_VERSION;
 240   buf[2] = PROT_VERS_1;
 241   buf[3] = PROT_VERS_2;
 242   buf[4] = PROT_VERS_3;
 243
 244   sendbuf(5);
 245 }
 246
 247 void SendToServer_NrWanted(int nr_wanted)
 248 {
 249   buf[1] = OP_NUMBER_WANTED;
 250   buf[2] = nr_wanted;
 251
 252   sendbuf(3);
 253 }
 254
 255 void SendToServer_StartPlaying()
 256 {
 257   unsigned long new_random_seed = InitRND(NEW_RANDOMIZE);
 258
 259   buf[1] = OP_START_PLAYING;
 260   buf[2] = (byte)(level_nr >> 8);
 261   buf[3] = (byte)(level_nr & 0xff);
 262   buf[4] = (byte)(leveldir_nr >> 8);
 263   buf[5] = (byte)(leveldir_nr & 0xff);
 264
 265   buf[6] = (unsigned char)((new_random_seed >> 24) & 0xff);
 266   buf[7] = (unsigned char)((new_random_seed >> 16) & 0xff);
 267   buf[8] = (unsigned char)((new_random_seed >>  8) & 0xff);
 268   buf[9] = (unsigned char)((new_random_seed >>  0) & 0xff);
 269
 270   strcpy(&buf[10], leveldir[leveldir_nr].name);
 271
 272   sendbuf(10 + strlen(leveldir[leveldir_nr].name)+1);
 273 }
 274
 275 void SendToServer_PausePlaying()
 276 {
 277   buf[1] = OP_PAUSE_PLAYING;
 278
 279   sendbuf(2);
 280 }
 281
 282 void SendToServer_ContinuePlaying()
 283 {
 284   buf[1] = OP_CONTINUE_PLAYING;
 285
 286   sendbuf(2);
 287 }
 288
 289 void SendToServer_StopPlaying()
 290 {
 291   buf[1] = OP_STOP_PLAYING;
 292
 293   sendbuf(2);
 294 }
 295
 296 void SendToServer_MovePlayer(byte player_action)
 297 {
 298   buf[1] = OP_MOVE_FIGURE;
 299   buf[2] = player_action;
 300
 301   sendbuf(3);
 302 }
 303
 304 static void Handle_OP_BAD_PROTOCOL_VERSION()
 305 {
 306   Error(ERR_WARN, "protocol version mismatch");
 307   Error(ERR_EXIT, "server expects %d.%d.x instead of %d.%d.%d",
 308         buf[2], buf[3], PROT_VERS_1, PROT_VERS_2, PROT_VERS_3);
 309 }
 310
 311 static void Handle_OP_YOUR_NUMBER()
 312 {
 313   int new_client_nr = buf[2];
 314   int new_index_nr = new_client_nr - 1;
 315   struct PlayerInfo *old_local_player = local_player;
 316   struct PlayerInfo *new_local_player = &stored_player[new_index_nr];
 317
 318   printf("OP_YOUR_NUMBER: %d\n", buf[0]);
 319   me.nr = new_client_nr;
 320
 321   if (old_local_player != new_local_player)
 322   {
 323     /* copy existing player settings and change to new player */
 324
 325     *new_local_player = *old_local_player;
 326     old_local_player->connected = FALSE;
 327
 328     local_player = new_local_player;
 329   }
 330
 331   TestPlayer = new_index_nr;
 332
 333   if (me.nr > MAX_PLAYERS)
 334     Error(ERR_EXIT, "sorry - no more than %d players", MAX_PLAYERS);
 335
 336   sprintf(msgbuf, "you get client # %d", new_client_nr);
 337   sysmsg(msgbuf);
 338 }
 339
 340 static void Handle_OP_NUMBER_WANTED()
 341 {
 342   int client_nr_wanted = buf[2];
 343   int old_client_nr = buf[0];
 344   int new_client_nr = buf[3];
 345   int old_index_nr = old_client_nr - 1;
 346   int new_index_nr = new_client_nr - 1;
 347   int index_nr_wanted = client_nr_wanted - 1;
 348   struct PlayerInfo *old_player = &stored_player[old_index_nr];
 349   struct PlayerInfo *new_player = &stored_player[new_index_nr];
 350
 351   printf("OP_NUMBER_WANTED: %d\n", buf[0]);
 352
 353   if (new_client_nr == client_nr_wanted)        /* switching succeeded */
 354   {
 355     struct user *u;
 356
 357     if (old_client_nr != client_nr_wanted)      /* client's nr has changed */
 358     {
 359       sprintf(msgbuf, "client %d switches to # %d",
 360               old_client_nr, new_client_nr);
 361       sysmsg(msgbuf);
 362     }
 363     else if (old_client_nr == me.nr)            /* local player keeps his nr */
 364     {
 365       sprintf(msgbuf, "keeping client # %d", new_client_nr);
 366       sysmsg(msgbuf);
 367     }
 368
 369     if (old_client_nr != new_client_nr)
 370     {
 371       /* copy existing player settings and change to new player */
 372
 373       *new_player = *old_player;
 374       old_player->connected = FALSE;
 375     }
 376
 377     u = finduser(old_client_nr);
 378     u->nr = new_client_nr;
 379
 380     if (old_player == local_player)             /* local player switched */
 381       local_player = new_player;
 382
 383
 384     TestPlayer = new_index_nr;
 385   }
 386   else if (old_client_nr == me.nr)              /* failed -- local player? */
 387   {
 388     char *color[] = { "yellow", "red", "green", "blue" };
 389
 390     sprintf(msgbuf, "Sorry ! %s player still exists ! You are %s player !",
 391             color[index_nr_wanted], color[new_index_nr]);
 392     Request(msgbuf, REQ_CONFIRM);
 393
 394     sprintf(msgbuf, "cannot switch -- you keep client # %d",
 395             new_client_nr);
 396     sysmsg(msgbuf);
 397   }
 398 }
 399
 400 static void Handle_OP_NICKNAME(unsigned int len)
 401 {
 402   struct user *u;
 403
 404   printf("OP_NICKNAME: %d\n", buf[0]);
 405   u = finduser(buf[0]);
 406   buf[len] = 0;
 407   sprintf(msgbuf, "client %d calls itself \"%s\"", buf[0], &buf[2]);
 408   sysmsg(msgbuf);
 409   strncpy(u->name, &buf[2], MAXNICKLEN);
 410 }
 411
 412 static void Handle_OP_PLAYER_CONNECTED()
 413 {
 414   struct user *u, *v = NULL;
 415   int new_client_nr = buf[0];
 416   int new_index_nr = new_client_nr - 1;
 417
 418   printf("OP_PLAYER_CONNECTED: %d\n", new_client_nr);
 419   sprintf(msgbuf, "new client %d connected", new_client_nr);
 420   sysmsg(msgbuf);
 421
 422   for (u = &me; u; u = u->next)
 423   {
 424     if (u->nr == new_client_nr)
 425       Error(ERR_EXIT, "multiplayer server sent duplicate player id");
 426     else
 427       v = u;
 428   }
 429
 430   v->next = u = checked_malloc(sizeof(struct user));
 431   u->nr = new_client_nr;
 432   u->name[0] = '\0';
 433   u->next = NULL;
 434
 435   stored_player[new_index_nr].connected = TRUE;
 436 }
 437
 438 static void Handle_OP_PLAYER_DISCONNECTED()
 439 {
 440   struct user *u, *v;
 441
 442   printf("OP_PLAYER_DISCONNECTED: %d\n", buf[0]);
 443   u = finduser(buf[0]);
 444   sprintf(msgbuf, "client %d (%s) disconnected",
 445           buf[0], get_user_name(buf[0]));
 446   sysmsg(msgbuf);
 447
 448   for (v = &me; v; v = v->next)
 449     if (v->next == u)
 450       v->next = u->next;
 451   free(u);
 452 }
 453
 454 static void Handle_OP_START_PLAYING()
 455 {
 456   int new_level_nr, new_leveldir_nr;
 457   unsigned long new_random_seed;
 458   unsigned char *new_leveldir_name;
 459
 460   /*
 461     if (game_status == PLAYING)
 462     break;
 463   */
 464
 465   new_level_nr = (buf[2] << 8) + buf[3];
 466   new_leveldir_nr = (buf[4] << 8) + buf[5];
 467   new_random_seed =
 468     (buf[6] << 24) | (buf[7] << 16) | (buf[8] << 8) | (buf[9]);
 469   new_leveldir_name = &buf[10];
 470
 471   printf("OP_START_PLAYING: %d\n", buf[0]);
 472   sprintf(msgbuf, "client %d starts game [level %d from levedir %d (%s)]\n",
 473           buf[0],
 474           new_level_nr,
 475           new_leveldir_nr,
 476           new_leveldir_name);
 477   sysmsg(msgbuf);
 478
 479
 480   if (strcmp(leveldir[new_leveldir_nr].name, new_leveldir_name) != 0)
 481     Error(ERR_WARN, "no such level directory: '%s'",new_leveldir_name);
 482
 483   leveldir_nr = new_leveldir_nr;
 484
 485   /*
 486   local_player->leveldir_nr = leveldir_nr;
 487   */
 488
 489
 490   /*
 491   SaveLevelSetup();
 492   */
 493
 494   /*
 495   LoadPlayerInfo(PLAYER_LEVEL);
 496   SavePlayerInfo(PLAYER_SETUP);
 497   */
 498
 499
 500   level_nr = new_level_nr;
 501
 502   TapeErase();
 503   LoadLevelTape(level_nr);
 504
 505   GetPlayerConfig();
 506   LoadLevel(level_nr);
 507
 508
 509
 510   if (setup.autorecord_on)
 511     TapeStartRecording();
 512
 513
 514
 515   if (tape.recording)
 516     tape.random_seed = new_random_seed;
 517
 518   InitRND(new_random_seed);
 519
 520
 521   /*
 522     printf("tape.random_seed == %d\n", tape.random_seed);
 523   */
 524
 525   game_status = PLAYING;
 526   InitGame();
 527 }
 528
 529 static void Handle_OP_PAUSE_PLAYING()
 530 {
 531   printf("OP_PAUSE_PLAYING: %d\n", buf[0]);
 532   sprintf(msgbuf, "client %d pauses game", buf[0]);
 533   sysmsg(msgbuf);
 534
 535   tape.pausing = TRUE;
 536   DrawVideoDisplay(VIDEO_STATE_PAUSE_ON,0);
 537 }
 538
 539 static void Handle_OP_CONTINUE_PLAYING()
 540 {
 541   printf("OP_CONTINUE_PLAYING: %d\n", buf[0]);
 542   sprintf(msgbuf, "client %d continues game", buf[0]);
 543   sysmsg(msgbuf);
 544
 545   tape.pausing = FALSE;
 546   DrawVideoDisplay(VIDEO_STATE_PAUSE_OFF,0);
 547 }
 548
 549 static void Handle_OP_STOP_PLAYING()
 550 {
 551   printf("OP_STOP_PLAYING: %d\n", buf[0]);
 552   sprintf(msgbuf, "client %d stops game", buf[0]);
 553   sysmsg(msgbuf);
 554
 555   game_status = MAINMENU;
 556   DrawMainMenu();
 557 }
 558
 559 static void Handle_OP_MOVE_FIGURE(unsigned int len)
 560 {
 561   int frame_nr;
 562   int i;
 563
 564   if (!network_playing)
 565     return;
 566
 567   frame_nr =
 568     (buf[2] << 24) | (buf[3] << 16) | (buf[4] << 8) | (buf[5]);
 569
 570   if (frame_nr != FrameCounter)
 571   {
 572     Error(ERR_RETURN, "client and servers frame counters out of sync");
 573     Error(ERR_RETURN, "frame counter of client is %d", FrameCounter);
 574     Error(ERR_RETURN, "frame counter of server is %d", frame_nr);
 575     Error(ERR_EXIT,   "this should not happen -- please debug");
 576   }
 577
 578   /* copy valid player actions */
 579   for (i=0; i<MAX_PLAYERS; i++)
 580     stored_player[i].action =
 581       (i < len - 6 && stored_player[i].active ? buf[6 + i] : 0);
 582
 583   network_player_action_received = TRUE;
 584
 585   /*
 586     sprintf(msgbuf, "frame %d: client %d moves player [0x%02x]",
 587     FrameCounter, buf[0], buf[2]);
 588     sysmsg(msgbuf);
 589   */
 590 }
 591
 592 static void HandleNetworkingMessages()
 593 {
 594   unsigned int len;
 595
 596   while (nread >= 4 && nread >= 4 + readbuf[3])
 597   {
 598     len = readbuf[3];
 599     if (readbuf[0] || readbuf[1] || readbuf[2])
 600       Error(ERR_EXIT, "wrong network server line length");
 601
 602     memcpy(buf, &readbuf[4], len);
 603     nread -= 4 + len;
 604     memmove(readbuf, readbuf + 4 + len, nread);
 605
 606     switch(buf[1])
 607     {
 608       case OP_BAD_PROTOCOL_VERSION:
 609         Handle_OP_BAD_PROTOCOL_VERSION();
 610         break;
 611
 612       case OP_YOUR_NUMBER:
 613         Handle_OP_YOUR_NUMBER();
 614         break;
 615
 616       case OP_NUMBER_WANTED:
 617         Handle_OP_NUMBER_WANTED();
 618         break;
 619
 620       case OP_NICKNAME:
 621         Handle_OP_NICKNAME(len);
 622         break;
 623
 624       case OP_PLAYER_CONNECTED:
 625         Handle_OP_PLAYER_CONNECTED();
 626         break;
 627
 628       case OP_PLAYER_DISCONNECTED:
 629         Handle_OP_PLAYER_DISCONNECTED();
 630         break;
 631
 632       case OP_START_PLAYING:
 633         Handle_OP_START_PLAYING();
 634         break;
 635
 636       case OP_PAUSE_PLAYING:
 637         Handle_OP_PAUSE_PLAYING();
 638         break;
 639
 640       case OP_CONTINUE_PLAYING:
 641         Handle_OP_CONTINUE_PLAYING();
 642         break;
 643
 644       case OP_STOP_PLAYING:
 645         Handle_OP_STOP_PLAYING();
 646         break;
 647
 648       case OP_MOVE_FIGURE:
 649         Handle_OP_MOVE_FIGURE(len);
 650         break;
 651
 652       case OP_WON:
 653         printf("OP_WON: %d\n", buf[0]);
 654         sprintf(msgbuf, "client %d wins the game", buf[0]);
 655         sysmsg(msgbuf);
 656         break;
 657
 658       case OP_ZERO:
 659         printf("OP_ZERO: %d\n", buf[0]);
 660         sprintf(msgbuf, "client %d resets game counters", buf[0]);
 661         sysmsg(msgbuf);
 662         break;
 663
 664       case OP_MSG:
 665         printf("OP_MSG: %d\n", buf[0]);
 666         sprintf(msgbuf, "client %d sends message", buf[0]);
 667         break;
 668
 669       case OP_LOST:
 670         printf("OP_MSG: %d\n", buf[0]);
 671         sprintf(msgbuf, "client %d has lost", buf[0]);
 672         break;
 673
 674       case OP_LEVEL:
 675         printf("OP_MSG: %d\n", buf[0]);
 676         sprintf(msgbuf, "client %d sets level to %d", buf[0], buf[2]);
 677         break;
 678     }
 679   }
 680
 681   fflush(stdout);
 682 }
 683
 684 void HandleNetworking()
 685 {
 686   static struct timeval tv = { 0, 0 };
 687   fd_set rfds;
 688   int r = 0;
 689
 690   flushbuf();
 691
 692   FD_ZERO(&rfds);
 693   FD_SET(sfd, &rfds);
 694
 695   r = select(sfd + 1, &rfds, NULL, NULL, &tv);
 696
 697   if (r < 0 && errno != EINTR)
 698     Error(ERR_EXIT, "HandleNetworking(): select() failed");
 699
 700   if (r < 0)
 701     FD_ZERO(&rfds);
 702
 703   if (FD_ISSET(sfd, &rfds))
 704   {
 705     int r;
 706
 707     r = read(sfd, readbuf + nread, MAX_BUFFER_SIZE - nread);
 708
 709     if (r < 0)
 710       Error(ERR_EXIT, "error reading from network server");
 711
 712     if (r == 0)
 713       Error(ERR_EXIT, "connection to network server lost");
 714
 715     nread += r;
 716
 717     HandleNetworkingMessages();
 718   }
 719 }