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   /*
 506   GetPlayerConfig();
 507   */
 508
 509   LoadLevel(level_nr);
 510
 511
 512
 513   if (setup.autorecord)
 514     TapeStartRecording();
 515
 516
 517
 518   if (tape.recording)
 519     tape.random_seed = new_random_seed;
 520
 521   InitRND(new_random_seed);
 522
 523
 524   /*
 525     printf("tape.random_seed == %d\n", tape.random_seed);
 526   */
 527
 528   game_status = PLAYING;
 529   InitGame();
 530 }
 531
 532 static void Handle_OP_PAUSE_PLAYING()
 533 {
 534   printf("OP_PAUSE_PLAYING: %d\n", buf[0]);
 535   sprintf(msgbuf, "client %d pauses game", buf[0]);
 536   sysmsg(msgbuf);
 537
 538   tape.pausing = TRUE;
 539   DrawVideoDisplay(VIDEO_STATE_PAUSE_ON,0);
 540 }
 541
 542 static void Handle_OP_CONTINUE_PLAYING()
 543 {
 544   printf("OP_CONTINUE_PLAYING: %d\n", buf[0]);
 545   sprintf(msgbuf, "client %d continues game", buf[0]);
 546   sysmsg(msgbuf);
 547
 548   tape.pausing = FALSE;
 549   DrawVideoDisplay(VIDEO_STATE_PAUSE_OFF,0);
 550 }
 551
 552 static void Handle_OP_STOP_PLAYING()
 553 {
 554   printf("OP_STOP_PLAYING: %d\n", buf[0]);
 555   sprintf(msgbuf, "client %d stops game", buf[0]);
 556   sysmsg(msgbuf);
 557
 558   game_status = MAINMENU;
 559   DrawMainMenu();
 560 }
 561
 562 static void Handle_OP_MOVE_FIGURE(unsigned int len)
 563 {
 564   int frame_nr;
 565   int i;
 566
 567   if (!network_playing)
 568     return;
 569
 570   frame_nr =
 571     (buf[2] << 24) | (buf[3] << 16) | (buf[4] << 8) | (buf[5]);
 572
 573   if (frame_nr != FrameCounter)
 574   {
 575     Error(ERR_RETURN, "client and servers frame counters out of sync");
 576     Error(ERR_RETURN, "frame counter of client is %d", FrameCounter);
 577     Error(ERR_RETURN, "frame counter of server is %d", frame_nr);
 578     Error(ERR_EXIT,   "this should not happen -- please debug");
 579   }
 580
 581   /* copy valid player actions */
 582   for (i=0; i<MAX_PLAYERS; i++)
 583     stored_player[i].effective_action =
 584       (i < len - 6 && stored_player[i].active ? buf[6 + i] : 0);
 585
 586   network_player_action_received = TRUE;
 587
 588   /*
 589     sprintf(msgbuf, "frame %d: client %d moves player [0x%02x]",
 590     FrameCounter, buf[0], buf[2]);
 591     sysmsg(msgbuf);
 592   */
 593 }
 594
 595 static void HandleNetworkingMessages()
 596 {
 597   unsigned int len;
 598
 599   while (nread >= 4 && nread >= 4 + readbuf[3])
 600   {
 601     len = readbuf[3];
 602     if (readbuf[0] || readbuf[1] || readbuf[2])
 603       Error(ERR_EXIT, "wrong network server line length");
 604
 605     memcpy(buf, &readbuf[4], len);
 606     nread -= 4 + len;
 607     memmove(readbuf, readbuf + 4 + len, nread);
 608
 609     switch(buf[1])
 610     {
 611       case OP_BAD_PROTOCOL_VERSION:
 612         Handle_OP_BAD_PROTOCOL_VERSION();
 613         break;
 614
 615       case OP_YOUR_NUMBER:
 616         Handle_OP_YOUR_NUMBER();
 617         break;
 618
 619       case OP_NUMBER_WANTED:
 620         Handle_OP_NUMBER_WANTED();
 621         break;
 622
 623       case OP_NICKNAME:
 624         Handle_OP_NICKNAME(len);
 625         break;
 626
 627       case OP_PLAYER_CONNECTED:
 628         Handle_OP_PLAYER_CONNECTED();
 629         break;
 630
 631       case OP_PLAYER_DISCONNECTED:
 632         Handle_OP_PLAYER_DISCONNECTED();
 633         break;
 634
 635       case OP_START_PLAYING:
 636         Handle_OP_START_PLAYING();
 637         break;
 638
 639       case OP_PAUSE_PLAYING:
 640         Handle_OP_PAUSE_PLAYING();
 641         break;
 642
 643       case OP_CONTINUE_PLAYING:
 644         Handle_OP_CONTINUE_PLAYING();
 645         break;
 646
 647       case OP_STOP_PLAYING:
 648         Handle_OP_STOP_PLAYING();
 649         break;
 650
 651       case OP_MOVE_FIGURE:
 652         Handle_OP_MOVE_FIGURE(len);
 653         break;
 654
 655       case OP_WON:
 656         printf("OP_WON: %d\n", buf[0]);
 657         sprintf(msgbuf, "client %d wins the game", buf[0]);
 658         sysmsg(msgbuf);
 659         break;
 660
 661       case OP_ZERO:
 662         printf("OP_ZERO: %d\n", buf[0]);
 663         sprintf(msgbuf, "client %d resets game counters", buf[0]);
 664         sysmsg(msgbuf);
 665         break;
 666
 667       case OP_MSG:
 668         printf("OP_MSG: %d\n", buf[0]);
 669         sprintf(msgbuf, "client %d sends message", buf[0]);
 670         break;
 671
 672       case OP_LOST:
 673         printf("OP_MSG: %d\n", buf[0]);
 674         sprintf(msgbuf, "client %d has lost", buf[0]);
 675         break;
 676
 677       case OP_LEVEL:
 678         printf("OP_MSG: %d\n", buf[0]);
 679         sprintf(msgbuf, "client %d sets level to %d", buf[0], buf[2]);
 680         break;
 681     }
 682   }
 683
 684   fflush(stdout);
 685 }
 686
 687 void HandleNetworking()
 688 {
 689   static struct timeval tv = { 0, 0 };
 690   fd_set rfds;
 691   int r = 0;
 692
 693   flushbuf();
 694
 695   FD_ZERO(&rfds);
 696   FD_SET(sfd, &rfds);
 697
 698   r = select(sfd + 1, &rfds, NULL, NULL, &tv);
 699
 700   if (r < 0 && errno != EINTR)
 701     Error(ERR_EXIT, "HandleNetworking(): select() failed");
 702
 703   if (r < 0)
 704     FD_ZERO(&rfds);
 705
 706   if (FD_ISSET(sfd, &rfds))
 707   {
 708     int r;
 709
 710     r = read(sfd, readbuf + nread, MAX_BUFFER_SIZE - nread);
 711
 712     if (r < 0)
 713       Error(ERR_EXIT, "error reading from network server");
 714
 715     if (r == 0)
 716       Error(ERR_EXIT, "connection to network server lost");
 717
 718     nread += r;
 719
 720     HandleNetworkingMessages();
 721   }
 722 }