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] = PROTOCOL_VERSION_1;
 242   buf[3] = PROTOCOL_VERSION_2;
 243   buf[4] = PROTOCOL_VERSION_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],
 310         PROTOCOL_VERSION_1, PROTOCOL_VERSION_2, PROTOCOL_VERSION_3);
 311 }
 312
 313 static void Handle_OP_YOUR_NUMBER()
 314 {
 315   int new_client_nr = buf[2];
 316   int new_index_nr = new_client_nr - 1;
 317   struct PlayerInfo *old_local_player = local_player;
 318   struct PlayerInfo *new_local_player = &stored_player[new_index_nr];
 319
 320   printf("OP_YOUR_NUMBER: %d\n", buf[0]);
 321   me.nr = new_client_nr;
 322
 323   if (old_local_player != new_local_player)
 324   {
 325     /* copy existing player settings and change to new player */
 326
 327     *new_local_player = *old_local_player;
 328     old_local_player->connected = FALSE;
 329
 330     local_player = new_local_player;
 331   }
 332
 333   TestPlayer = new_index_nr;
 334
 335   if (me.nr > MAX_PLAYERS)
 336     Error(ERR_EXIT, "sorry - no more than %d players", MAX_PLAYERS);
 337
 338   sprintf(msgbuf, "you get client # %d", new_client_nr);
 339   sysmsg(msgbuf);
 340 }
 341
 342 static void Handle_OP_NUMBER_WANTED()
 343 {
 344   int client_nr_wanted = buf[2];
 345   int old_client_nr = buf[0];
 346   int new_client_nr = buf[3];
 347   int old_index_nr = old_client_nr - 1;
 348   int new_index_nr = new_client_nr - 1;
 349   int index_nr_wanted = client_nr_wanted - 1;
 350   struct PlayerInfo *old_player = &stored_player[old_index_nr];
 351   struct PlayerInfo *new_player = &stored_player[new_index_nr];
 352
 353   printf("OP_NUMBER_WANTED: %d\n", buf[0]);
 354
 355   if (new_client_nr == client_nr_wanted)        /* switching succeeded */
 356   {
 357     struct user *u;
 358
 359     if (old_client_nr != client_nr_wanted)      /* client's nr has changed */
 360     {
 361       sprintf(msgbuf, "client %d switches to # %d",
 362               old_client_nr, new_client_nr);
 363       sysmsg(msgbuf);
 364     }
 365     else if (old_client_nr == me.nr)            /* local player keeps his nr */
 366     {
 367       sprintf(msgbuf, "keeping client # %d", new_client_nr);
 368       sysmsg(msgbuf);
 369     }
 370
 371     if (old_client_nr != new_client_nr)
 372     {
 373       /* copy existing player settings and change to new player */
 374
 375       *new_player = *old_player;
 376       old_player->connected = 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_WARN, "no such level directory: '%s'",new_leveldir_name);
 484
 485   leveldir_nr = new_leveldir_nr;
 486
 487   /*
 488   local_player->leveldir_nr = leveldir_nr;
 489   */
 490
 491
 492   /*
 493   SaveLevelSetup();
 494   */
 495
 496   /*
 497   LoadPlayerInfo(PLAYER_LEVEL);
 498   SavePlayerInfo(PLAYER_SETUP);
 499   */
 500
 501
 502   level_nr = new_level_nr;
 503
 504   TapeErase();
 505   LoadTape(level_nr);
 506
 507   /*
 508   GetPlayerConfig();
 509   */
 510
 511   LoadLevel(level_nr);
 512
 513
 514
 515   if (setup.autorecord)
 516     TapeStartRecording();
 517
 518
 519
 520   if (tape.recording)
 521     tape.random_seed = new_random_seed;
 522
 523   InitRND(new_random_seed);
 524
 525
 526   /*
 527     printf("tape.random_seed == %d\n", tape.random_seed);
 528   */
 529
 530   game_status = PLAYING;
 531   InitGame();
 532 }
 533
 534 static void Handle_OP_PAUSE_PLAYING()
 535 {
 536   printf("OP_PAUSE_PLAYING: %d\n", buf[0]);
 537   sprintf(msgbuf, "client %d pauses game", buf[0]);
 538   sysmsg(msgbuf);
 539
 540   tape.pausing = TRUE;
 541   DrawVideoDisplay(VIDEO_STATE_PAUSE_ON,0);
 542 }
 543
 544 static void Handle_OP_CONTINUE_PLAYING()
 545 {
 546   printf("OP_CONTINUE_PLAYING: %d\n", buf[0]);
 547   sprintf(msgbuf, "client %d continues game", buf[0]);
 548   sysmsg(msgbuf);
 549
 550   tape.pausing = FALSE;
 551   DrawVideoDisplay(VIDEO_STATE_PAUSE_OFF,0);
 552 }
 553
 554 static void Handle_OP_STOP_PLAYING()
 555 {
 556   printf("OP_STOP_PLAYING: %d\n", buf[0]);
 557   sprintf(msgbuf, "client %d stops game", buf[0]);
 558   sysmsg(msgbuf);
 559
 560   game_status = MAINMENU;
 561   DrawMainMenu();
 562 }
 563
 564 static void Handle_OP_MOVE_FIGURE(unsigned int len)
 565 {
 566   int frame_nr;
 567   int i;
 568
 569   if (!network_playing)
 570     return;
 571
 572   frame_nr =
 573     (buf[2] << 24) | (buf[3] << 16) | (buf[4] << 8) | (buf[5]);
 574
 575   if (frame_nr != FrameCounter)
 576   {
 577     Error(ERR_RETURN, "client and servers frame counters out of sync");
 578     Error(ERR_RETURN, "frame counter of client is %d", FrameCounter);
 579     Error(ERR_RETURN, "frame counter of server is %d", frame_nr);
 580     Error(ERR_EXIT,   "this should not happen -- please debug");
 581   }
 582
 583   /* copy valid player actions */
 584   for (i=0; i<MAX_PLAYERS; i++)
 585     stored_player[i].effective_action =
 586       (i < len - 6 && stored_player[i].active ? buf[6 + i] : 0);
 587
 588   network_player_action_received = TRUE;
 589
 590   /*
 591     sprintf(msgbuf, "frame %d: client %d moves player [0x%02x]",
 592     FrameCounter, buf[0], buf[2]);
 593     sysmsg(msgbuf);
 594   */
 595 }
 596
 597 static void HandleNetworkingMessages()
 598 {
 599   unsigned int len;
 600
 601   while (nread >= 4 && nread >= 4 + readbuf[3])
 602   {
 603     len = readbuf[3];
 604     if (readbuf[0] || readbuf[1] || readbuf[2])
 605       Error(ERR_EXIT, "wrong network server line length");
 606
 607     memcpy(buf, &readbuf[4], len);
 608     nread -= 4 + len;
 609     memmove(readbuf, readbuf + 4 + len, nread);
 610
 611     switch(buf[1])
 612     {
 613       case OP_BAD_PROTOCOL_VERSION:
 614         Handle_OP_BAD_PROTOCOL_VERSION();
 615         break;
 616
 617       case OP_YOUR_NUMBER:
 618         Handle_OP_YOUR_NUMBER();
 619         break;
 620
 621       case OP_NUMBER_WANTED:
 622         Handle_OP_NUMBER_WANTED();
 623         break;
 624
 625       case OP_NICKNAME:
 626         Handle_OP_NICKNAME(len);
 627         break;
 628
 629       case OP_PLAYER_CONNECTED:
 630         Handle_OP_PLAYER_CONNECTED();
 631         break;
 632
 633       case OP_PLAYER_DISCONNECTED:
 634         Handle_OP_PLAYER_DISCONNECTED();
 635         break;
 636
 637       case OP_START_PLAYING:
 638         Handle_OP_START_PLAYING();
 639         break;
 640
 641       case OP_PAUSE_PLAYING:
 642         Handle_OP_PAUSE_PLAYING();
 643         break;
 644
 645       case OP_CONTINUE_PLAYING:
 646         Handle_OP_CONTINUE_PLAYING();
 647         break;
 648
 649       case OP_STOP_PLAYING:
 650         Handle_OP_STOP_PLAYING();
 651         break;
 652
 653       case OP_MOVE_FIGURE:
 654         Handle_OP_MOVE_FIGURE(len);
 655         break;
 656
 657       case OP_WON:
 658         printf("OP_WON: %d\n", buf[0]);
 659         sprintf(msgbuf, "client %d wins the game", buf[0]);
 660         sysmsg(msgbuf);
 661         break;
 662
 663       case OP_ZERO:
 664         printf("OP_ZERO: %d\n", buf[0]);
 665         sprintf(msgbuf, "client %d resets game counters", buf[0]);
 666         sysmsg(msgbuf);
 667         break;
 668
 669       case OP_MSG:
 670         printf("OP_MSG: %d\n", buf[0]);
 671         sprintf(msgbuf, "client %d sends message", buf[0]);
 672         break;
 673
 674       case OP_LOST:
 675         printf("OP_MSG: %d\n", buf[0]);
 676         sprintf(msgbuf, "client %d has lost", buf[0]);
 677         break;
 678
 679       case OP_LEVEL:
 680         printf("OP_MSG: %d\n", buf[0]);
 681         sprintf(msgbuf, "client %d sets level to %d", buf[0], buf[2]);
 682         break;
 683     }
 684   }
 685
 686   fflush(stdout);
 687 }
 688
 689 void HandleNetworking()
 690 {
 691   static struct timeval tv = { 0, 0 };
 692   fd_set rfds;
 693   int r = 0;
 694
 695   flushbuf();
 696
 697   FD_ZERO(&rfds);
 698   FD_SET(sfd, &rfds);
 699
 700   r = select(sfd + 1, &rfds, NULL, NULL, &tv);
 701
 702   if (r < 0 && errno != EINTR)
 703     Error(ERR_EXIT, "HandleNetworking(): select() failed");
 704
 705   if (r < 0)
 706     FD_ZERO(&rfds);
 707
 708   if (FD_ISSET(sfd, &rfds))
 709   {
 710     int r;
 711
 712     r = read(sfd, readbuf + nread, MAX_BUFFER_SIZE - nread);
 713
 714     if (r < 0)
 715       Error(ERR_EXIT, "error reading from network server");
 716
 717     if (r == 0)
 718       Error(ERR_EXIT, "connection to network server lost");
 719
 720     nread += r;
 721
 722     HandleNetworkingMessages();
 723   }
 724 }