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_RETURN,
 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_RETURN, "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     old_local_player->local = 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       old_player->local = FALSE;
 377     }
 378
 379     u = finduser(old_client_nr);
 380     u->nr = new_client_nr;
 381
 382     if (old_player == local_player)             /* local player switched */
 383       local_player = new_player;
 384
 385
 386     TestPlayer = new_index_nr;
 387   }
 388   else if (old_client_nr == me.nr)              /* failed -- local player? */
 389   {
 390     char *color[] = { "yellow", "red", "green", "blue" };
 391
 392     sprintf(msgbuf, "Sorry ! %s player still exists ! You are %s player !",
 393             color[index_nr_wanted], color[new_index_nr]);
 394     Request(msgbuf, REQ_CONFIRM);
 395
 396     sprintf(msgbuf, "cannot switch -- you keep client # %d",
 397             new_client_nr);
 398     sysmsg(msgbuf);
 399   }
 400 }
 401
 402 static void Handle_OP_NICKNAME(unsigned int len)
 403 {
 404   struct user *u;
 405
 406   printf("OP_NICKNAME: %d\n", buf[0]);
 407   u = finduser(buf[0]);
 408   buf[len] = 0;
 409   sprintf(msgbuf, "client %d calls itself \"%s\"", buf[0], &buf[2]);
 410   sysmsg(msgbuf);
 411   strncpy(u->name, &buf[2], MAXNICKLEN);
 412 }
 413
 414 static void Handle_OP_PLAYER_CONNECTED()
 415 {
 416   struct user *u, *v = NULL;
 417   int new_client_nr = buf[0];
 418   int new_index_nr = new_client_nr - 1;
 419
 420   printf("OP_PLAYER_CONNECTED: %d\n", new_client_nr);
 421   sprintf(msgbuf, "new client %d connected", new_client_nr);
 422   sysmsg(msgbuf);
 423
 424   for (u = &me; u; u = u->next)
 425   {
 426     if (u->nr == new_client_nr)
 427       Error(ERR_EXIT, "multiplayer server sent duplicate player id");
 428     else
 429       v = u;
 430   }
 431
 432   v->next = u = checked_malloc(sizeof(struct user));
 433   u->nr = new_client_nr;
 434   u->name[0] = '\0';
 435   u->next = NULL;
 436
 437   stored_player[new_index_nr].connected = TRUE;
 438 }
 439
 440 static void Handle_OP_PLAYER_DISCONNECTED()
 441 {
 442   struct user *u, *v;
 443
 444   printf("OP_PLAYER_DISCONNECTED: %d\n", buf[0]);
 445   u = finduser(buf[0]);
 446   sprintf(msgbuf, "client %d (%s) disconnected",
 447           buf[0], get_user_name(buf[0]));
 448   sysmsg(msgbuf);
 449
 450   for (v = &me; v; v = v->next)
 451     if (v->next == u)
 452       v->next = u->next;
 453   free(u);
 454 }
 455
 456 static void Handle_OP_START_PLAYING()
 457 {
 458   int new_level_nr, new_leveldir_nr;
 459   unsigned long new_random_seed;
 460   unsigned char *new_leveldir_name;
 461
 462   /*
 463     if (game_status == PLAYING)
 464     break;
 465   */
 466
 467   new_level_nr = (buf[2] << 8) + buf[3];
 468   new_leveldir_nr = (buf[4] << 8) + buf[5];
 469   new_random_seed =
 470     (buf[6] << 24) | (buf[7] << 16) | (buf[8] << 8) | (buf[9]);
 471   new_leveldir_name = &buf[10];
 472
 473   printf("OP_START_PLAYING: %d\n", buf[0]);
 474   sprintf(msgbuf, "client %d starts game [level %d from levedir %d (%s)]\n",
 475           buf[0],
 476           new_level_nr,
 477           new_leveldir_nr,
 478           new_leveldir_name);
 479   sysmsg(msgbuf);
 480
 481
 482   if (strcmp(leveldir[new_leveldir_nr].name, new_leveldir_name) != 0)
 483     Error(ERR_RETURN, "no such level directory: '%s'",new_leveldir_name);
 484
 485   leveldir_nr = new_leveldir_nr;
 486
 487   local_player->leveldir_nr = leveldir_nr;
 488   LoadPlayerInfo(PLAYER_LEVEL);
 489   SavePlayerInfo(PLAYER_SETUP);
 490
 491   level_nr = new_level_nr;
 492
 493   TapeErase();
 494   LoadLevelTape(level_nr);
 495
 496   GetPlayerConfig();
 497   LoadLevel(level_nr);
 498
 499
 500
 501   if (setup.autorecord_on)
 502     TapeStartRecording();
 503
 504
 505
 506   if (tape.recording)
 507     tape.random_seed = new_random_seed;
 508
 509   InitRND(new_random_seed);
 510
 511
 512   /*
 513     printf("tape.random_seed == %d\n", tape.random_seed);
 514   */
 515
 516   game_status = PLAYING;
 517   InitGame();
 518 }
 519
 520 static void Handle_OP_PAUSE_PLAYING()
 521 {
 522   printf("OP_PAUSE_PLAYING: %d\n", buf[0]);
 523   sprintf(msgbuf, "client %d pauses game", buf[0]);
 524   sysmsg(msgbuf);
 525
 526   tape.pausing = TRUE;
 527   DrawVideoDisplay(VIDEO_STATE_PAUSE_ON,0);
 528 }
 529
 530 static void Handle_OP_CONTINUE_PLAYING()
 531 {
 532   printf("OP_CONTINUE_PLAYING: %d\n", buf[0]);
 533   sprintf(msgbuf, "client %d continues game", buf[0]);
 534   sysmsg(msgbuf);
 535
 536   tape.pausing = FALSE;
 537   DrawVideoDisplay(VIDEO_STATE_PAUSE_OFF,0);
 538 }
 539
 540 static void Handle_OP_STOP_PLAYING()
 541 {
 542   printf("OP_STOP_PLAYING: %d\n", buf[0]);
 543   sprintf(msgbuf, "client %d stops game", buf[0]);
 544   sysmsg(msgbuf);
 545
 546   game_status = MAINMENU;
 547   DrawMainMenu();
 548 }
 549
 550 static void Handle_OP_MOVE_FIGURE(unsigned int len)
 551 {
 552   int frame_nr;
 553   int i;
 554
 555   if (!network_playing)
 556     return;
 557
 558   frame_nr =
 559     (buf[2] << 24) | (buf[3] << 16) | (buf[4] << 8) | (buf[5]);
 560
 561   if (frame_nr != FrameCounter)
 562   {
 563     Error(ERR_RETURN, "client and servers frame counters out of sync");
 564     Error(ERR_RETURN, "frame counter of client is %d", FrameCounter);
 565     Error(ERR_RETURN, "frame counter of server is %d", frame_nr);
 566     Error(ERR_EXIT,   "this should not happen -- please debug");
 567   }
 568
 569   /* copy valid player actions */
 570   for (i=0; i<MAX_PLAYERS; i++)
 571     stored_player[i].action =
 572       (i < len - 6 && stored_player[i].active ? buf[6 + i] : 0);
 573
 574   network_player_action_received = TRUE;
 575
 576   /*
 577     sprintf(msgbuf, "frame %d: client %d moves player [0x%02x]",
 578     FrameCounter, buf[0], buf[2]);
 579     sysmsg(msgbuf);
 580   */
 581 }
 582
 583 static void HandleNetworkingMessages()
 584 {
 585   unsigned int len;
 586
 587   while (nread >= 4 && nread >= 4 + readbuf[3])
 588   {
 589     len = readbuf[3];
 590     if (readbuf[0] || readbuf[1] || readbuf[2])
 591       Error(ERR_EXIT, "wrong network server line length");
 592
 593     memcpy(buf, &readbuf[4], len);
 594     nread -= 4 + len;
 595     memmove(readbuf, readbuf + 4 + len, nread);
 596
 597     switch(buf[1])
 598     {
 599       case OP_BAD_PROTOCOL_VERSION:
 600         Handle_OP_BAD_PROTOCOL_VERSION();
 601         break;
 602
 603       case OP_YOUR_NUMBER:
 604         Handle_OP_YOUR_NUMBER();
 605         break;
 606
 607       case OP_NUMBER_WANTED:
 608         Handle_OP_NUMBER_WANTED();
 609         break;
 610
 611       case OP_NICKNAME:
 612         Handle_OP_NICKNAME(len);
 613         break;
 614
 615       case OP_PLAYER_CONNECTED:
 616         Handle_OP_PLAYER_CONNECTED();
 617         break;
 618
 619       case OP_PLAYER_DISCONNECTED:
 620         Handle_OP_PLAYER_DISCONNECTED();
 621         break;
 622
 623       case OP_START_PLAYING:
 624         Handle_OP_START_PLAYING();
 625         break;
 626
 627       case OP_PAUSE_PLAYING:
 628         Handle_OP_PAUSE_PLAYING();
 629         break;
 630
 631       case OP_CONTINUE_PLAYING:
 632         Handle_OP_CONTINUE_PLAYING();
 633         break;
 634
 635       case OP_STOP_PLAYING:
 636         Handle_OP_STOP_PLAYING();
 637         break;
 638
 639       case OP_MOVE_FIGURE:
 640         Handle_OP_MOVE_FIGURE(len);
 641         break;
 642
 643       case OP_WON:
 644         printf("OP_WON: %d\n", buf[0]);
 645         sprintf(msgbuf, "client %d wins the game", buf[0]);
 646         sysmsg(msgbuf);
 647         break;
 648
 649       case OP_ZERO:
 650         printf("OP_ZERO: %d\n", buf[0]);
 651         sprintf(msgbuf, "client %d resets game counters", buf[0]);
 652         sysmsg(msgbuf);
 653         break;
 654
 655       case OP_MSG:
 656         printf("OP_MSG: %d\n", buf[0]);
 657         sprintf(msgbuf, "client %d sends message", buf[0]);
 658         break;
 659
 660       case OP_LOST:
 661         printf("OP_MSG: %d\n", buf[0]);
 662         sprintf(msgbuf, "client %d has lost", buf[0]);
 663         break;
 664
 665       case OP_LEVEL:
 666         printf("OP_MSG: %d\n", buf[0]);
 667         sprintf(msgbuf, "client %d sets level to %d", buf[0], buf[2]);
 668         break;
 669     }
 670   }
 671
 672   fflush(stdout);
 673 }
 674
 675 void HandleNetworking()
 676 {
 677   static struct timeval tv = { 0, 0 };
 678   fd_set rfds;
 679   int r = 0;
 680
 681   flushbuf();
 682
 683   FD_ZERO(&rfds);
 684   FD_SET(sfd, &rfds);
 685
 686   r = select(sfd + 1, &rfds, NULL, NULL, &tv);
 687
 688   if (r < 0 && errno != EINTR)
 689     Error(ERR_EXIT, "HandleNetworking(): select() failed");
 690
 691   if (r < 0)
 692     FD_ZERO(&rfds);
 693
 694   if (FD_ISSET(sfd, &rfds))
 695   {
 696     int r;
 697
 698     r = read(sfd, readbuf + nread, MAX_BUFFER_SIZE - nread);
 699
 700     if (r < 0)
 701       Error(ERR_EXIT, "error reading from network server");
 702
 703     if (r == 0)
 704       Error(ERR_EXIT, "connection to network server lost");
 705
 706     nread += r;
 707
 708     HandleNetworkingMessages();
 709   }
 710 }