开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Internet/网络编程 > 查看源码
WIN32SRV.C
资源名称：mercwsrc.zip　[点击查看]
上传用户：kesirui
上传日期：2007-01-07
资源大小：263k
文件大小：44k
源码类别：

Internet/网络编程

开发平台：

WINDOWS

WIN32SRV.C：源码内容
  1. #include <time.h>
  2. #include <stdio.h>
  3. #include <stdlib.h>
  5. #include <windows.h>
  7. #include "merc.h"
  8. #include "merc-win.rh"
  10. /*
  11.  * Global variables.
  12.  */
  13. DESCRIPTOR_DATA *   descriptor_free; /* Free list for descriptors */
  14. DESCRIPTOR_DATA *   descriptor_list; /* All open descriptors */
  15. DESCRIPTOR_DATA *   d_next; /* Next descriptor in loop */
  16. FILE *     fpReserve; /* Reserved file handle */
  17. bool     god; /* All new chars are gods! */
  18. bool     merc_down; /* Shutdown */
  19. bool     wizlock; /* Game is wizlocked */
  20. char     str_boot_time[MAX_INPUT_LENGTH];
  21. time_t     current_time; /* Time of this pulse */
  23. /*
  24.  * Other local functions (OS-independent).
  25.  */
  26. bool check_parse_name args( ( char *name ) );
  27. bool check_reconnect args( ( DESCRIPTOR_DATA *d, char *name,
  28.     bool fConn ) );
  29. bool check_playing args( ( DESCRIPTOR_DATA *d, char *name ) );
  30. int main args( ( int argc, char **argv ) );
  31. void nanny args( ( DESCRIPTOR_DATA *d, char *argument ) );
  32. bool process_output args( ( DESCRIPTOR_DATA *d, bool fPrompt ) );
  33. void read_from_buffer args( ( DESCRIPTOR_DATA *d ) );
  34. void stop_idling args( ( CHAR_DATA *ch ) );
  35. void    bust_a_prompt           args( ( CHAR_DATA *ch ) );
  37. const char echo_off_str [] = { '' };
  38. const char echo_on_str [] = { '' };
  39. const char  go_ahead_str [] = { '' };
  40. bool write_to_descriptor args( ( int desc, char *txt, int length ) );
  41. void send_to_char args( ( const char *txt, CHAR_DATA *ch ) )
  42. {
  43.     if ( txt == NULL || ch->desc == NULL )
  44.         return;
  45.     ch->desc->showstr_head = alloc_mem( strlen( txt ) + 1 );
  46.     strcpy( ch->desc->showstr_head, txt );
  47.     ch->desc->showstr_point = ch->desc->showstr_head;
  48.     show_string( ch->desc, "" );
  49. }
  51. void gettimeofday( struct timeval *tp, void *tzp )
  52. {
  53.     tp->tv_sec  = time( NULL );
  54.     tp->tv_usec = 0;
  55. }
  57. bool read_from_descriptor( DESCRIPTOR_DATA *d )
  58. {
  59.     int iStart;
  61.     /* Hold horses if pending command already. */
  62.     if ( d->incomm[0] != '' )
  63. return TRUE;
  65.     /* Check for overflow. */
  66.     iStart = strlen(d->inbuf);
  67.     if ( iStart >= sizeof(d->inbuf) - 10 )
  68.     {
  69. sprintf( log_buf, "%s input overflow!", d->host );
  70. log_string( log_buf );
  71. write_to_descriptor( d->descriptor,
  72.     "nr*** PUT A LID ON IT!!! ***nr", 0 );
  73. return FALSE;
  74.     }
  76. #if 0
  77.     /* Snarf input. */
  78.     for ( ; ; )
  79.     {
  80. int c;
  81. c = getc( stdin );
  82. if ( c == '' || c == EOF )
  83.     break;
  84. putc( c, stdout );
  85. if ( c == 'r' )
  86.     putc( 'n', stdout );
  87. d->inbuf[iStart++] = c;
  88. if ( iStart > sizeof(d->inbuf) - 10 )
  89.     break;
  90.     }
  91. #else
  92.     if (fUserReady)
  93.        {
  94.        int nLen = strlen(UserMessage);
  95.        fUserReady = FALSE;
  96.        if (iStart + nLen <= sizeof d->inbuf - 10)
  97.           {
  98.           memcpy(d->inbuf + iStart, UserMessage, nLen);
  99.           iStart += nLen;
  100.           d->inbuf[iStart++] = 'r';
  101.           }
  102.        }
  103. #endif
  105.     d->inbuf[iStart] = '';
  106.     return TRUE;
  107. }
  111. /*
  112.  * Transfer one line from input buffer to input line.
  113.  */
  114. void read_from_buffer( DESCRIPTOR_DATA *d )
  115. {
  116.     int i, j, k;
  118.     /*
  119.      * Hold horses if pending command already.
  120.      */
  121.     if ( d->incomm[0] != '' )
  122. return;
  124.     /*
  125.      * Look for at least one new line.
  126.      */
  127.     for ( i = 0; d->inbuf[i] != 'n' && d->inbuf[i] != 'r'; i++ )
  128.     {
  129. if ( d->inbuf[i] == '' )
  130.     return;
  131.     }
  133.     /*
  134.      * Canonical input processing.
  135.      */
  136.     for ( i = 0, k = 0; d->inbuf[i] != 'n' && d->inbuf[i] != 'r'; i++ )
  137.     {
  138. if ( k >= MAX_INPUT_LENGTH - 2 )
  139. {
  140.     write_to_descriptor( d->descriptor, "Line too long.nr", 0 );
  142.     /* skip the rest of the line */
  143.     for ( ; d->inbuf[i] != ''; i++ )
  144.     {
  145. if ( d->inbuf[i] == 'n' || d->inbuf[i] == 'r' )
  146.     break;
  147.     }
  148.     d->inbuf[i]   = 'n';
  149.     d->inbuf[i+1] = '';
  150.     break;
  151. }
  153. if ( d->inbuf[i] == 'b' && k > 0 )
  154.     --k;
  155. else if ( isascii(d->inbuf[i]) && isprint(d->inbuf[i]) )
  156.     d->incomm[k++] = d->inbuf[i];
  157.     }
  159.     /*
  160.      * Finish off the line.
  161.      */
  162.     if ( k == 0 )
  163. d->incomm[k++] = ' ';
  164.     d->incomm[k] = '';
  166.     /*
  167.      * Deal with bozos with #repeat 1000 ...
  168.      */
  169.     if ( k > 1 || d->incomm[0] == '!' )
  170.     {
  171.      if ( d->incomm[0] != '!' && strcmp( d->incomm, d->inlast ) )
  172. {
  173.     d->repeat = 0;
  174. }
  175. else
  176. {
  177.     if ( ++d->repeat >= 20 )
  178.     {
  179. sprintf( log_buf, "%s input spamming!", d->host );
  180. log_string( log_buf );
  181. write_to_descriptor( d->descriptor,
  182.     "nr*** PUT A LID ON IT!!! ***nr", 0 );
  183. strcpy( d->incomm, "quit" );
  184.     }
  185. }
  186.     }
  188.     /*
  189.      * Do '!' substitution.
  190.      */
  191.     if ( d->incomm[0] == '!' )
  192. strcpy( d->incomm, d->inlast );
  193.     else
  194. strcpy( d->inlast, d->incomm );
  196.     /*
  197.      * Shift the input buffer.
  198.      */
  199.     while ( d->inbuf[i] == 'n' || d->inbuf[i] == 'r' )
  200. i++;
  201.     for ( j = 0; ( d->inbuf[j] = d->inbuf[i+j] ) != ''; j++ )
  202. ;
  203.     return;
  204. }
  206. void CloseMerc(void)
  207. {
  208. }
  210. HINSTANCE hInst;
  211. HWND      hQryDlgBox;                         // handle of modeless dialog box
  212. HWND      hWndMain;
  213. HWND      hWndOutput;
  214. char      UserMessage[512];
  215. BOOL      fUserReady;
  217. LRESULT CALLBACK _export MercWndProc(HWND hWnd, UINT message,
  218.                              WPARAM wParam, LPARAM lParam)
  219. {
  220.     switch (message)
  221.     {
  222.         case WM_MOVE:
  223.             // Move the dialog box on top of our main window every
  224.             // time the main window moves.
  225.             if (IsWindow(hQryDlgBox))
  226.                 SendMessage(hQryDlgBox, message, wParam, lParam);
  227.             break;
  229.         case WM_SETFOCUS:
  230.             // Always set the input focus to the dialog box.
  231.             if (IsWindow(hQryDlgBox))
  232.                 SendMessage(hQryDlgBox, message, wParam, lParam);
  233.             break;
  235.         case WM_CLOSE:
  236.             // Tell windows to destroy our window.
  237.             DestroyWindow(hWnd);
  238.             break;
  240.         case WM_QUERYENDSESSION:
  241.             // If we return TRUE we are saying it's ok with us to end the
  242. // windows session.
  243.             return((long) TRUE);  // we agree to end session.
  245.         case WM_ENDSESSION:
  246.             // If wParam is not zero, it meany every application said ok
  247.             // to WM_QUERYENDSESSION messages, so we are really ending.
  248.             if (wParam)           // if all apps aggreed to end session.
  249.                 CloseMerc();     // This is the end. We will not get a
  250.                                    // WM_DESTROY message on end session.
  251.             break;
  253.         case WM_DESTROY:
  254.             // This is the end if we were closed by a DestroyWindow call.
  256.             CloseMerc();
  257. PostQuitMessage(0);
  258.             break;
  260.         default:
  261.             if (message == uMercOpen)
  262.                new_descriptor( (HWND) wParam )
  263.             else if (message == uMercClose)
  264.                MessageBox(hWnd, "Somebody went down", "MercServ", MB_OK);
  265. //            else if (message == uMercSend)
  266. //               @@@
  267.             else
  268.                return(DefWindowProc(hWnd, message, wParam, lParam));
  270.             break;
  271.     }
  273.     return(0L);
  274. }
  276. #if 0
  277. BOOL CALLBACK _export MercDlgProc(HWND hDlg, UINT message,
  278.                            WPARAM wParam, LPARAM lParam)
  279. {
  280.     static RECT   wrect;
  282.     int           x, y, w, h, i;
  283.     long          rc;
  284. //    char         *cp, *cpd, tmp[30], sdrives[30];
  285. //    HANDLE        hCursor;
  286.     HWND hWndInput;
  288.     switch (message)
  289.     {
  290.         case WM_INITDIALOG:
  291.             // Save the handle of this proc for use by main window proc.
  292.             hQryDlgBox = hDlg;
  294.             // Save the handle to the output window
  295.             hWndOutput = GetDlgItem(hDlg, 102);
  296.             SetFocus(GetDlgItem(hDlg, 101));
  298.             // Get position of dialog box window.
  299.             GetWindowRect(hDlg, (LPRECT) &wrect);
  300.             w = wrect.right - wrect.left;
  301.             h = wrect.bottom - wrect.top;
  303.             // Move main application window to same position.
  304.             SetWindowPos(hWndMain, hDlg,
  305.                          wrect.left, wrect.top, w, h,
  306.                          0);
  307.             break;
  309.         case WM_MOVE:
  310.             // Always keep this dialog box on top of main window.
  311.             GetWindowRect(hWndMain, (LPRECT) &wrect);
  312.             x = wrect.left;
  313.             y = wrect.top;
  314.             w = wrect.right - wrect.left;
  315.             h = wrect.bottom - wrect.top;
  316.             MoveWindow(hDlg, x, y, w, h, 1);
  317.             break;
  319.         case WM_SYSCOMMAND:
  320.             // Pass WM_SYSCOMMAND messages on to main window so both
  321.             // main window and dialog box get iconized, minimized etc.
  322.             // in parallel.
  323.             SendMessage(hWndMain, message, wParam, lParam);
  324.             break;
  326.         case WM_COMMAND:
  327.             switch (LOWORD(wParam))
  328.             {
  329.                 case IDOK:
  330.                     hWndInput = GetDlgItem(hDlg, 101);
  331.                     SendMessage(hWndInput, WM_GETTEXT, sizeof UserMessage, (LPARAM) UserMessage);
  332.                     SendMessage(hWndInput, WM_SETTEXT, 0, (LPARAM) "");
  333.                     SetFocus(hWndInput);
  334.                     fUserReady = TRUE;
  335.                     break;
  337.                 case IDCANCEL:                  // Cancel button
  338.                     // Tell main application window we want to quit.
  339.                     SendMessage(hWndMain, WM_CLOSE, 0, 0L);
  340.                     break;
  342.                 default:
  343.                     break;
  344.             }
  345.             break;
  347.         case WM_CLOSE:
  348.             // Unlock dialog resource we locked above.
  350.             // Zero handle to this dialog window.
  351.             hQryDlgBox = 0;
  353.             // Tell main window to close.
  354.             PostMessage(hWndMain, WM_CLOSE, 0, 0L);
  356.             // Destroy ourseleves.
  357.             DestroyWindow(hDlg);
  358.             break;
  360.         default:
  361.             return FALSE;
  362.     }
  364.     return(TRUE);
  365. }
  366. #endif
  368. void InitMerc22(HINSTANCE hInstance, int cmdShow)
  369. {
  370.     WNDCLASS wcMercClass;
  372.     // Define the window class for this application.
  373.     wcMercClass.lpszClassName = "Merc22";
  374.     wcMercClass.hInstance     = hInstance;
  375.     wcMercClass.lpfnWndProc   = MercWndProc;
  376.     wcMercClass.hCursor       = LoadCursor(NULL, IDC_ARROW);
  377. //    wcMercClass.hIcon         = LoadIcon(hInstance, SetUpData.szAppName);
  378.     wcMercClass.hIcon         = 0;
  379.     wcMercClass.lpszMenuName  = (LPSTR) NULL;
  380.     wcMercClass.hbrBackground = GetStockObject(WHITE_BRUSH);
  381.     wcMercClass.style         = CS_HREDRAW | CS_VREDRAW;
  382.     wcMercClass.cbClsExtra    = 0;
  383.     wcMercClass.cbWndExtra    = 0;
  385.     // Register the class
  386.     if (RegisterClass(&wcMercClass) == 0)
  387.        {
  388.        MessageBox(0, "Could not create Window", "@@@", MB_ICONHAND|MB_OK);
  389.        exit(1);
  390.        }
  392.     hInst = hInstance;       // save for use by window procs
  394.     // Create applications main window.
  395.     hWndMain = CreateWindow(
  396.                   "Merc22",
  397.                   "Welcome to Merc22/Win32",
  398.                     WS_BORDER |
  399.                     WS_CAPTION |
  400.                     WS_SYSMENU |
  401.                     WS_MINIMIZEBOX,
  402.                   10,
  403.                   19,
  404.                   256,
  405.                   123,
  406.                   NULL,
  407.                   NULL,
  408.                   hInstance,
  409.                   NULL
  410.                   );
  412.     CreateDialog(hInst, MAKEINTRESOURCE(1), hWndMain, (DLGPROC) MercDlgProc);
  413.     ShowWindow(hWndMain, cmdShow);
  414.     UpdateWindow(hWndMain);
  415. }
  417. void new_descriptor( HWND hWnd )
  418. {
  419.     static DESCRIPTOR_DATA d_zero;
  420.     char buf[MAX_STRING_LENGTH];
  421.     DESCRIPTOR_DATA *dnew;
  422.     BAN_DATA *pban;
  423.     struct sockaddr_in sock;
  424.     struct hostent *from;
  425. //    int desc;
  426.     int size;
  428.     /*
  429.      * Cons a new descriptor.
  430.      */
  431.     if ( descriptor_free == NULL )
  432.     {
  433. dnew = alloc_perm( sizeof(*dnew) );
  434.     }
  435.     else
  436.     {
  437. dnew = descriptor_free;
  438. descriptor_free = descriptor_free->next;
  439.     }
  441.     *dnew = d_zero;
  442.     dnew->descriptor = (sh_int) hWnd;
  443.     dnew->connected = CON_GET_NAME;
  444.     dnew->showstr_head  = NULL;
  445.     dnew->showstr_point = NULL;
  446.     dnew->outsize = 2000;
  447.     dnew->outbuf = alloc_mem( dnew->outsize );
  449.    sprintf(buf, "HWND: 0x%x", hWnd);
  450. dnew->host = str_dup( buf );
  452.     /*
  453.      * Init descriptor data.
  454.      */
  455.     dnew->next = descriptor_list;
  456.     descriptor_list = dnew;
  458.     /*
  459.      * Send the greeting.
  460.      */
  461.     {
  462. extern char * help_greeting;
  463. if ( help_greeting[0] == '.' )
  464.     write_to_buffer( dnew, help_greeting+1, 0 );
  465. else
  466.     write_to_buffer( dnew, help_greeting  , 0 );
  467.     }
  469.     return;
  470. }
  472. WPARAM game_loop_win32(HINSTANCE hInstance, HINSTANCE hPrevInstance, int nCmdShow)
  473. {
  474.     struct timeval last_time;
  475.     struct timeval now_time;
  476.     static DESCRIPTOR_DATA dcon;
  477.     DESCRIPTOR_DATA *d;
  478.     MSG   msg;
  479. //    DWORD dwTick = -1;
  480.     BOOL  fBackground;
  482.     gettimeofday( &last_time, NULL );
  483.     current_time = (time_t) last_time.tv_sec;
  485. #if 0
  486.     /*
  487.      * New_descriptor analogue.
  488.      */
  489.     dcon.descriptor = 0;
  490.     dcon.connected = CON_GET_NAME;
  491.     dcon.host = str_dup( "localhost" );
  492.     dcon.outsize = 2000;
  493.     dcon.outbuf = alloc_mem( dcon.outsize );
  494.     dcon.next = descriptor_list;
  495.     descriptor_list = &dcon;
  497.     /*
  498.      * Send the greeting.
  499.      */
  500.     {
  501. extern char * help_greeting;
  502. if ( help_greeting[0] == '.' )
  503.     write_to_buffer( &dcon, help_greeting+1, 0 );
  504. else
  505.     write_to_buffer( &dcon, help_greeting  , 0 );
  506.     }
  507. #endif
  509.     /* Main loop */
  510. #if 1
  512.     // Go init this application.
  513.     InitMerc22(hInstance, nCmdShow);
  515.     // Get and dispatch messages for this applicaton.
  516.     fBackground = FALSE;
  517.     for ( ;; )
  518.        {
  519.        if (PeekMessage(&msg, NULL, NULL, NULL, PM_REMOVE))
  520.           {
  521.           if (msg.message == WM_QUIT)
  522.              break;
  524.           if (!IsDialogMessage(hQryDlgBox, &msg))
  525.              {
  526.              TranslateMessage(&msg);
  527.              DispatchMessage(&msg);
  528.              }
  529.           }
  530.        else if (/*GetTickCount() > dwTick + 1000 &&*/ !fBackground)
  531.           {
  532.           fBackground++;
  533. //          dwTick = GetTickCount();
  535. /*
  536.  * Process input.
  537.  */
  538. for ( d = descriptor_list; d != NULL; d = d_next )
  539. {
  540.        if (PeekMessage(&msg, NULL, NULL, NULL, PM_REMOVE))
  541.           {
  542.           if (msg.message == WM_QUIT)
  543.              goto merc_done;
  545.           if (!IsDialogMessage(hQryDlgBox, &msg))
  546.              {
  547.              TranslateMessage(&msg);
  548.              DispatchMessage(&msg);
  549.              }
  550.           }
  552.     d_next = d->next;
  553.     d->fcommand = FALSE;
  555. if ( d->character != NULL )
  556.     d->character->timer = 0;
  558.       // Did the user break connection?
  559. if ( !read_from_descriptor( d ) )
  560. {
  561.     if ( d->character != NULL )
  562. save_char_obj( d->character );
  563.     d->outtop = 0;
  564.     close_socket( d );
  565.     continue;
  566. }
  568.     if ( d->character != NULL && d->character->wait > 0 )
  569.     {
  570. --d->character->wait;
  571. continue;
  572.     }
  574.     read_from_buffer( d );
  575.     if ( d->incomm[0] != '' )
  576.     {
  577. d->fcommand = TRUE;
  578. stop_idling( d->character );
  580. if ( d->connected == CON_PLAYING )
  581.     if ( d->showstr_point )
  582.         show_string( d, d->incomm );
  583.     else
  584.         interpret( d->character, d->incomm );
  585. else
  586.     nanny( d, d->incomm );
  588. d->incomm[0] = '';
  589.     }
  590. }
  594. /*
  595.  * Autonomous game motion.
  596.  */
  597. update_handler( );
  601. /*
  602.  * Output.
  603.  */
  604. for ( d = descriptor_list; d != NULL; d = d_next )
  605. {
  606.     d_next = d->next;
  608.     if ( ( d->fcommand || d->outtop > 0 ) )
  609.     {
  610. if ( !process_output( d, TRUE ) )
  611. {
  612.     if ( d->character != NULL )
  613. save_char_obj( d->character );
  614.     d->outtop = 0;
  615.     close_socket( d );
  616. }
  617.     }
  618. }
  622. /*
  623.  * Synchronize to a clock.
  624.  * Busy wait (blargh).
  625.  */
  626. now_time = last_time;
  627. for ( ; ; )
  628. {
  629.     int delta;
  631.     {
  632. if ( dcon.character != NULL )
  633.     dcon.character->timer = 0;
  634. if ( !read_from_descriptor( &dcon ) )
  635. {
  636.     if ( dcon.character != NULL )
  637. save_char_obj( d->character );
  638.     dcon.outtop = 0;
  639.     close_socket( &dcon );
  640. }
  641. #if defined(MSDOS)
  642. break;
  643. #endif
  644.     }
  646.     gettimeofday( &now_time, NULL );
  647.     delta = ( now_time.tv_sec  - last_time.tv_sec  ) * 1000 * 1000
  648.   + ( now_time.tv_usec - last_time.tv_usec );
  649.     if ( delta >= 1000000 / PULSE_PER_SECOND )
  650. break;
  651. }
  652. last_time    = now_time;
  653. current_time = (time_t) last_time.tv_sec;
  654.    fBackground--;
  655.           }
  656.        }
  657. merc_done:
  659.     return(msg.wParam);
  660. #else
  661.     while ( !merc_down )
  662.     {
  664. /*
  665.  * Process input.
  666.  */
  667. for ( d = descriptor_list; d != NULL; d = d_next )
  668. {
  669.     d_next = d->next;
  670.     d->fcommand = FALSE;
  672. #if defined(MSDOS)
  673.     if ( kbhit( ) )
  674. #endif
  675.     {
  676. if ( d->character != NULL )
  677.     d->character->timer = 0;
  678. if ( !read_from_descriptor( d ) )
  679. {
  680.     if ( d->character != NULL )
  681. save_char_obj( d->character );
  682.     d->outtop = 0;
  683.     close_socket( d );
  684.     continue;
  685. }
  686.     }
  688.     if ( d->character != NULL && d->character->wait > 0 )
  689.     {
  690. --d->character->wait;
  691. continue;
  692.     }
  694.     read_from_buffer( d );
  695.     if ( d->incomm[0] != '' )
  696.     {
  697. d->fcommand = TRUE;
  698. stop_idling( d->character );
  700. if ( d->connected == CON_PLAYING )
  701.     if ( d->showstr_point )
  702.         show_string( d, d->incomm );
  703.     else
  704.         interpret( d->character, d->incomm );
  705. else
  706.     nanny( d, d->incomm );
  708. d->incomm[0] = '';
  709.     }
  710. }
  714. /*
  715.  * Autonomous game motion.
  716.  */
  717. update_handler( );
  721. /*
  722.  * Output.
  723.  */
  724. for ( d = descriptor_list; d != NULL; d = d_next )
  725. {
  726.     d_next = d->next;
  728.     if ( ( d->fcommand || d->outtop > 0 ) )
  729.     {
  730. if ( !process_output( d, TRUE ) )
  731. {
  732.     if ( d->character != NULL )
  733. save_char_obj( d->character );
  734.     d->outtop = 0;
  735.     close_socket( d );
  736. }
  737.     }
  738. }
  742. /*
  743.  * Synchronize to a clock.
  744.  * Busy wait (blargh).
  745.  */
  746. now_time = last_time;
  747. for ( ; ; )
  748. {
  749.     int delta;
  751. #if defined(MSDOS)
  752.     if ( kbhit( ) )
  753. #endif
  754.     {
  755. if ( dcon.character != NULL )
  756.     dcon.character->timer = 0;
  757. if ( !read_from_descriptor( &dcon ) )
  758. {
  759.     if ( dcon.character != NULL )
  760. save_char_obj( d->character );
  761.     dcon.outtop = 0;
  762.     close_socket( &dcon );
  763. }
  764. #if defined(MSDOS)
  765. break;
  766. #endif
  767.     }
  769.     gettimeofday( &now_time, NULL );
  770.     delta = ( now_time.tv_sec  - last_time.tv_sec  ) * 1000 * 1000
  771.   + ( now_time.tv_usec - last_time.tv_usec );
  772.     if ( delta >= 1000000 / PULSE_PER_SECOND )
  773. break;
  774. }
  775. last_time    = now_time;
  776. current_time = (time_t) last_time.tv_sec;
  777.     }
  779.     return;
  780. #endif
  781. }
  783. //int main( int argc, char **argv )
  784. int PASCAL WinMain(HINSTANCE hInstance, HINSTANCE hPrev, LPSTR lpszCmdLine, int nCmdShow)
  785. {
  786.     struct timeval now_time;
  787. //    int port;
  789. #if defined(unix)
  790.     int control;
  791. #endif
  793.     /*
  794.      * Memory debugging if needed.
  795.      */
  796. #if defined(MALLOC_DEBUG)
  797.     malloc_debug( 2 );
  798. #endif
  800.     /*
  801.      * Init time.
  802.      */
  803.     gettimeofday( &now_time, NULL );
  804.     current_time = (time_t) now_time.tv_sec;
  805.     strcpy( str_boot_time, ctime( &current_time ) );
  807.     /*
  808.      * Macintosh console initialization.
  809.      */
  810. #if defined(macintosh)
  811.     console_options.nrows = 31;
  812.     cshow( stdout );
  813.     csetmode( C_RAW, stdin );
  814.     cecho2file( "log file", 1, stderr );
  815. #endif
  817. #if 0
  818.     /*
  819.      * Reserve one channel for our use.
  820.      */
  821.     if ( ( fpReserve = fopen( NULL_FILE, "r" ) ) == NULL )
  822.     {
  823. perror( NULL_FILE );
  824. return 1;
  825.     }
  826. #endif
  828. #if 0
  829.     /*
  830.      * Get the port number.
  831.      */
  832.     port = 1234;
  833.     if ( lpszCmdLine[0] )
  834.     {
  835. if ( !is_number( lpszCmdLine ) )
  836. {
  837.     fprintf( stderr, "Usage: WinMerc [port #]n" );
  838.     return 1;
  839. }
  840. else if ( ( port = atoi( lpszCmdLine ) ) <= 1024 )
  841. {
  842.     fprintf( stderr, "Port number must be above 1024.n" );
  843.     return 1;
  844. }
  845.     }
  846. #endif
  848. #if 0
  849.     /*
  850.      * Run the game.
  851.      */
  852. #if defined(macintosh) || defined(MSDOS)
  853.     boot_db( );
  854.     log_string( "Merc is ready to rock." );
  855.     game_loop_mac_msdos( );
  856. #endif
  858. #if defined(unix)
  859.     control = init_socket( port );
  860.     boot_db( );
  861.     sprintf( log_buf, "Merc is ready to rock on port %d.", port );
  862.     log_string( log_buf );
  863.     game_loop_unix( control );
  864.     close( control );
  865. #endif
  866. #else
  867.     boot_db( );
  868. //    MessageBox(0, "Merc is ready to rock", "@@@", MB_ICONINFORMATION|MB_OK);
  869.     log_string( "Merc is ready to rock." );
  870.     game_loop_win32(hInstance, hPrev, nCmdShow);
  871. #endif
  873.     /*
  874.      * That's all, folks.
  875.      */
  876.     log_string( "Normal termination of game." );
  877.     return 0;
  878. }
  880. // @@@ Orig junk
  882. /*
  883.  * The primary output interface for formatted output.
  884.  */
  885. void act( const char *format, CHAR_DATA *ch, const void *arg1,
  886.  const void *arg2, int type )
  887. {
  888.     static char * const he_she [] = { "it",  "he",  "she" };
  889.     static char * const him_her [] = { "it",  "him", "her" };
  890.     static char * const his_her [] = { "its", "his", "her" };
  892.     char buf[MAX_STRING_LENGTH];
  893.     char fname[MAX_INPUT_LENGTH];
  894.     CHAR_DATA *to;
  895.     CHAR_DATA *vch = (CHAR_DATA *) arg2;
  896.     OBJ_DATA *obj1 = (OBJ_DATA  *) arg1;
  897.     OBJ_DATA *obj2 = (OBJ_DATA  *) arg2;
  898.     const char *str;
  899.     const char *i;
  900.     char *point;
  902.     /*
  903.      * Discard null and zero-length messages.
  904.      */
  905.     if ( format == NULL || format[0] == '' )
  906. return;
  908.     to = ch->in_room->people;
  909.     if ( type == TO_VICT )
  910.     {
  911. if ( vch == NULL )
  912. {
  913.     bug( "Act: null vch with TO_VICT.", 0 );
  914.     return;
  915. }
  916. to = vch->in_room->people;
  917.     }
  918.     
  919.     for ( ; to != NULL; to = to->next_in_room )
  920.     {
  921. if ( ( to->desc == NULL 
  922.     && ( IS_NPC( to ) && !(to->pIndexData->progtypes & ACT_PROG ) ) )
  923.     || !IS_AWAKE(to) )
  924.     continue;
  926. if ( type == TO_CHAR && to != ch )
  927.     continue;
  928. if ( type == TO_VICT && ( to != vch || to == ch ) )
  929.     continue;
  930. if ( type == TO_ROOM && to == ch )
  931.     continue;
  932. if ( type == TO_NOTVICT && (to == ch || to == vch) )
  933.     continue;
  935. point = buf;
  936. str = format;
  937. while ( *str != '' )
  938. {
  939.     if ( *str != '$' )
  940.     {
  941. *point++ = *str++;
  942. continue;
  943.     }
  944.     ++str;
  946.     if ( arg2 == NULL && *str >= 'A' && *str <= 'Z' )
  947.     {
  948. bug( "Act: missing arg2 for code %d.", *str );
  949. i = " <@@@> ";
  950.     }
  951.     else
  952.     {
  953. switch ( *str )
  954. {
  955. default:  bug( "Act: bad code %d.", *str );
  956.   i = " <@@@> "; break;
  957. /* Thx alex for 't' idea */
  958. case 't': i = (char *) arg1; break;
  959. case 'T': i = (char *) arg2;           break;
  960. case 'n': i = PERS( ch,  to  ); break;
  961. case 'N': i = PERS( vch, to  ); break;
  962. case 'e': i = he_she  [URANGE(0, ch  ->sex, 2)]; break;
  963. case 'E': i = he_she  [URANGE(0, vch ->sex, 2)]; break;
  964. case 'm': i = him_her [URANGE(0, ch  ->sex, 2)]; break;
  965. case 'M': i = him_her [URANGE(0, vch ->sex, 2)]; break;
  966. case 's': i = his_her [URANGE(0, ch  ->sex, 2)]; break;
  967. case 'S': i = his_her [URANGE(0, vch ->sex, 2)]; break;
  969. case 'p':
  970.     i = can_see_obj( to, obj1 )
  971.     ? obj1->short_descr
  972.     : "something";
  973.     break;
  975. case 'P':
  976.     i = can_see_obj( to, obj2 )
  977.     ? obj2->short_descr
  978.     : "something";
  979.     break;
  981. case 'd':
  982.     if ( arg2 == NULL || ((char *) arg2)[0] == '' )
  983.     {
  984. i = "door";
  985.     }
  986.     else
  987.     {
  988. one_argument( (char *) arg2, fname );
  989. i = fname;
  990.     }
  991.     break;
  992. }
  993.     }
  995.     ++str;
  996.     while ( ( *point = *i ) != '' )
  997. ++point, ++i;
  998. }
  1000. *point++ = 'n';
  1001. *point++ = 'r';
  1002. buf[0]   = UPPER(buf[0]);
  1003. if (to->desc)
  1004.   write_to_buffer( to->desc, buf, point - buf );
  1005. if (MOBtrigger)
  1006.   mprog_act_trigger( buf, to, ch, obj1, vch );
  1007.                                             /* Added by Kahn */
  1008.     }
  1010.     MOBtrigger = TRUE;
  1011.     return;
  1012. }
  1014. /*
  1015.  * Append onto an output buffer.
  1016.  */
  1017. void write_to_buffer( DESCRIPTOR_DATA *d, const char *txt, int length )
  1018. {
  1019.     /*
  1020.      * Find length in case caller didn't.
  1021.      */
  1022.     if ( length <= 0 )
  1023. length = strlen(txt);
  1025.     /*
  1026.      * Initial nr if needed.
  1027.      */
  1028.     if ( d->outtop == 0 && !d->fcommand )
  1029.     {
  1030. d->outbuf[0] = 'n';
  1031. d->outbuf[1] = 'r';
  1032. d->outtop = 2;
  1033.     }
  1035.     /*
  1036.      * Expand the buffer as needed.
  1037.      */
  1038.     while ( d->outtop + length >= d->outsize )
  1039.     {
  1040. char *outbuf;
  1042. outbuf      = alloc_mem( 2 * d->outsize );
  1043. strncpy( outbuf, d->outbuf, d->outtop );
  1044. free_mem( d->outbuf, d->outsize );
  1045. d->outbuf   = outbuf;
  1046. d->outsize *= 2;
  1047.     }
  1049.     /*
  1050.      * Copy.
  1051.      */
  1052.     strcpy( d->outbuf + d->outtop, txt );
  1053.     d->outtop += length;
  1054.     return;
  1055. }
  1057. void close_socket( DESCRIPTOR_DATA *dclose )
  1058. {
  1059.     CHAR_DATA *ch;
  1061.     if ( dclose->outtop > 0 )
  1062. process_output( dclose, FALSE );
  1064.     if ( dclose->snoop_by != NULL )
  1065.     {
  1066. write_to_buffer( dclose->snoop_by,
  1067.     "Your victim has left the game.nr", 0 );
  1068.     }
  1070.     {
  1071. DESCRIPTOR_DATA *d;
  1073. for ( d = descriptor_list; d != NULL; d = d->next )
  1074. {
  1075.     if ( d->snoop_by == dclose )
  1076. d->snoop_by = NULL;
  1077. }
  1078.     }
  1080.     if ( ( ch = dclose->character ) != NULL )
  1081.     {
  1082. sprintf( log_buf, "Closing link to %s.", ch->name );
  1083. log_string( log_buf );
  1084. if ( dclose->connected == CON_PLAYING )
  1085. {
  1086.     act( "$n has lost $s link.", ch, NULL, NULL, TO_ROOM );
  1087.     ch->desc = NULL;
  1088. }
  1089. else
  1090. {
  1091.     free_char( dclose->character );
  1092. }
  1093.     }
  1095.     if ( d_next == dclose )
  1096. d_next = d_next->next;
  1098.     if ( dclose == descriptor_list )
  1099.     {
  1100. descriptor_list = descriptor_list->next;
  1101.     }
  1102.     else
  1103.     {
  1104. DESCRIPTOR_DATA *d;
  1106. for ( d = descriptor_list; d && d->next != dclose; d = d->next )
  1107.     ;
  1108. if ( d != NULL )
  1109.     d->next = dclose->next;
  1110. else
  1111.     bug( "Close_socket: dclose not found.", 0 );
  1112.     }
  1114. //    close( dclose->descriptor );
  1115.     free_string( dclose->host );
  1116.     dclose->next = descriptor_free;
  1117.     descriptor_free = dclose;
  1118. //@@@#if defined(MSDOS) || defined(macintosh)
  1119.     exit(1);
  1120. //@@@#endif
  1121.     return;
  1122. }
  1124. /*
  1125.  * Lowest level output function.
  1126.  * Write a block of text to the file descriptor.
  1127.  * If this gives errors on very long blocks (like 'ofind all'),
  1128.  *   try lowering the max block size.
  1129.  */
  1130. bool write_to_descriptor( int desc, char *txt, int length )
  1131. {
  1132.     int iStart;
  1133.     int nWrite;
  1134.     int nBlock;
  1136. #if defined(macintosh) || defined(MSDOS)
  1137.     if ( desc == 0 )
  1138. desc = 1;
  1139. #endif
  1140.    char c;
  1142.     if ( length <= 0 )
  1143. length = strlen(txt);
  1145. #if 0
  1146.     for ( iStart = 0; iStart < length; iStart += nWrite )
  1147.     {
  1148. nBlock = UMIN( length - iStart, 4096 );
  1149. if ( ( nWrite = write( desc, txt + iStart, nBlock ) ) < 0 )
  1150.     { perror( "Write_to_descriptor" ); return FALSE; }
  1151.     }
  1152. #else
  1153.    c = txt[length];
  1154.    txt[length] = '';
  1155. //   MessageBox(0, txt, "@@@", MB_ICONINFORMATION|MB_OK);
  1156.    SendMessage(hWndOutput, WM_SETTEXT, 0, (LPARAM) txt);
  1157.    txt[length] = c;
  1158. #endif
  1160.     return TRUE;
  1161. }
  1165. /*
  1166.  * Deal with sockets that haven't logged in yet.
  1167.  */
  1168. void nanny( DESCRIPTOR_DATA *d, char *argument )
  1169. {
  1170.     char buf[MAX_STRING_LENGTH];
  1171.     CHAR_DATA *ch;
  1172.     NOTE_DATA *pnote;
  1173.     char *pwdnew;
  1174.     char *p;
  1175.     int iClass;
  1176.     int lines;
  1177.     int notes;
  1178.     bool fOld;
  1180.     while ( isspace(*argument) )
  1181. argument++;
  1183.     ch = d->character;
  1185.     switch ( d->connected )
  1186.     {
  1188.     default:
  1189. bug( "Nanny: bad d->connected %d.", d->connected );
  1190. close_socket( d );
  1191. return;
  1193.     case CON_GET_NAME:
  1194. if ( argument[0] == '' )
  1195. {
  1196.     close_socket( d );
  1197.     return;
  1198. }
  1200. argument[0] = UPPER(argument[0]);
  1201. if ( !check_parse_name( argument ) )
  1202. {
  1203.     write_to_buffer( d, "Illegal name, try another.nrName: ", 0 );
  1204.     return;
  1205. }
  1207. fOld = load_char_obj( d, argument );
  1208. ch   = d->character;
  1210. if ( IS_SET(ch->act, PLR_DENY) )
  1211. {
  1212.     sprintf( log_buf, "Denying access to %s@%s.", argument, d->host );
  1213.     log_string( log_buf );
  1214.     write_to_buffer( d, "You are denied access.nr", 0 );
  1215.     close_socket( d );
  1216.     return;
  1217. }
  1219. if ( check_reconnect( d, argument, FALSE ) )
  1220. {
  1221.     fOld = TRUE;
  1222. }
  1223. else
  1224. {
  1225.     if ( wizlock && !IS_HERO( ch ) && !ch->wizbit )
  1226.     {
  1227. write_to_buffer( d, "The game is wizlocked.nr", 0 );
  1228. close_socket( d );
  1229. return;
  1230.     }
  1231. }
  1233. if ( fOld )
  1234. {
  1235.     /* Old player */
  1236.     write_to_buffer( d, "Password: ", 0 );
  1237.     write_to_buffer( d, echo_off_str, 0 );
  1238.     d->connected = CON_GET_OLD_PASSWORD;
  1239.     return;
  1240. }
  1241. else
  1242. {
  1243.     /* New player */
  1244.     /* New characters with same name fix by Salem's Lot */
  1245.     if ( check_playing( d, ch->name ) )
  1246.         return;
  1247.     sprintf( buf, "Did I get that right, %s (Y/N)? ", argument );
  1248.     write_to_buffer( d, buf, 0 );
  1249.     d->connected = CON_CONFIRM_NEW_NAME;
  1250.     return;
  1251. }
  1252. break;
  1254.     case CON_GET_OLD_PASSWORD:
  1255. #if defined(unix)
  1256. write_to_buffer( d, "nr", 2 );
  1257. #endif
  1259. if ( strcmp( crypt( argument, ch->pcdata->pwd ), ch->pcdata->pwd ) )
  1260. {
  1261.     write_to_buffer( d, "Wrong password.nr", 0 );
  1262.     close_socket( d );
  1263.     return;
  1264. }
  1266. write_to_buffer( d, echo_on_str, 0 );
  1268. if ( check_reconnect( d, ch->name, TRUE ) )
  1269.     return;
  1271. if ( check_playing( d, ch->name ) )
  1272.     return;
  1273.     
  1274. sprintf( log_buf, "%s@%s has connected.", ch->name, d->host );
  1275. log_string( log_buf );
  1276. lines = ch->pcdata->pagelen;
  1277. ch->pcdata->pagelen = 20;
  1278. if ( IS_HERO(ch) )
  1279.     do_help( ch, "imotd" );
  1280. do_help( ch, "motd" );
  1281. ch->pcdata->pagelen = lines;
  1282. d->connected = CON_READ_MOTD;
  1283. break;
  1285.     case CON_CONFIRM_NEW_NAME:
  1286. switch ( *argument )
  1287. {
  1288. case 'y': case 'Y':
  1289.     sprintf( buf, "New character.nrGive me a password for %s: %s",
  1290. ch->name, echo_off_str );
  1291.     write_to_buffer( d, buf, 0 );
  1292.     d->connected = CON_GET_NEW_PASSWORD;
  1293.     break;
  1295. case 'n': case 'N':
  1296.     write_to_buffer( d, "Ok, what IS it, then? ", 0 );
  1297.     free_char( d->character );
  1298.     d->character = NULL;
  1299.     d->connected = CON_GET_NAME;
  1300.     break;
  1302. default:
  1303.     write_to_buffer( d, "Please type Yes or No? ", 0 );
  1304.     break;
  1305. }
  1306. break;
  1308.     case CON_GET_NEW_PASSWORD:
  1309. #if defined(unix)
  1310. write_to_buffer( d, "nr", 2 );
  1311. #endif
  1313. if ( strlen(argument) < 3 )
  1314. {
  1315.     write_to_buffer( d,
  1316. "Password must be at least three characters long.nrPassword: ",
  1317. 0 );
  1318.     return;
  1319. }
  1321. pwdnew = crypt( argument, ch->name );
  1322. for ( p = pwdnew; *p != ''; p++ )
  1323. {
  1324.     if ( *p == '~' )
  1325.     {
  1326. write_to_buffer( d,
  1327.     "New password not acceptable, try again.nrPassword: ",
  1328.     0 );
  1329. return;
  1330.     }
  1331. }
  1333. free_string( ch->pcdata->pwd );
  1334. ch->pcdata->pwd = str_dup( pwdnew );
  1335. write_to_buffer( d, "Please retype password: ", 0 );
  1336. d->connected = CON_CONFIRM_NEW_PASSWORD;
  1337. break;
  1339.     case CON_CONFIRM_NEW_PASSWORD:
  1340. #if defined(unix)
  1341. write_to_buffer( d, "nr", 2 );
  1342. #endif
  1344. if ( strcmp( crypt( argument, ch->pcdata->pwd ), ch->pcdata->pwd ) )
  1345. {
  1346.     write_to_buffer( d, "Passwords don't match.nrRetype password: ",
  1347. 0 );
  1348.     d->connected = CON_GET_NEW_PASSWORD;
  1349.     return;
  1350. }
  1352. write_to_buffer( d, echo_on_str, 0 );
  1353. write_to_buffer( d, "What is your sex (M/F/N)? ", 0 );
  1354. d->connected = CON_GET_NEW_SEX;
  1355. break;
  1357.     case CON_GET_NEW_SEX:
  1358. switch ( argument[0] )
  1359. {
  1360. case 'm': case 'M': ch->sex = SEX_MALE;    break;
  1361. case 'f': case 'F': ch->sex = SEX_FEMALE;  break;
  1362. case 'n': case 'N': ch->sex = SEX_NEUTRAL; break;
  1363. default:
  1364.     write_to_buffer( d, "That's not a sex.nrWhat IS your sex? ", 0 );
  1365.     return;
  1366. }
  1368. strcpy( buf, "Select a class [" );
  1369. for ( iClass = 0; iClass < MAX_CLASS; iClass++ )
  1370. {
  1371.     if ( iClass > 0 )
  1372. strcat( buf, " " );
  1373.     strcat( buf, class_table[iClass].who_name );
  1374. }
  1375. strcat( buf, "]: " );
  1376. write_to_buffer( d, buf, 0 );
  1377. d->connected = CON_GET_NEW_CLASS;
  1378. break;
  1380.     case CON_GET_NEW_CLASS:
  1381. for ( iClass = 0; iClass < MAX_CLASS; iClass++ )
  1382. {
  1383.     if ( !str_cmp( argument, class_table[iClass].who_name ) )
  1384.     {
  1385. ch->class = iClass;
  1386. break;
  1387.     }
  1388. }
  1390. if ( iClass == MAX_CLASS )
  1391. {
  1392.     write_to_buffer( d,
  1393. "That's not a class.nrWhat IS your class? ", 0 );
  1394.     return;
  1395. }
  1397. sprintf( log_buf, "%s@%s new player.", ch->name, d->host );
  1398. log_string( log_buf );
  1399. write_to_buffer( d, "nr", 2 );
  1400. ch->pcdata->pagelen = 20;
  1401. ch->prompt = "<%hhp %mm %vmv> ";
  1402. do_help( ch, "motd" );
  1403. d->connected = CON_READ_MOTD;
  1404. break;
  1406.     case CON_READ_MOTD:
  1407. ch->next = char_list;
  1408. char_list = ch;
  1409. d->connected = CON_PLAYING;
  1411. send_to_char(
  1412.     "nrWelcome to Merc Diku Mud.  May your visit here be ... Mercenary.nr",
  1413.     ch );
  1415. if ( ch->level == 0 )
  1416. {
  1417.     OBJ_DATA *obj;
  1419.     switch ( class_table[ch->class].attr_prime )
  1420.     {
  1421.     case APPLY_STR: ch->pcdata->perm_str = 16; break;
  1422.     case APPLY_INT: ch->pcdata->perm_int = 16; break;
  1423.     case APPLY_WIS: ch->pcdata->perm_wis = 16; break;
  1424.     case APPLY_DEX: ch->pcdata->perm_dex = 16; break;
  1425.     case APPLY_CON: ch->pcdata->perm_con = 16; break;
  1426.     }
  1428.     ch->level = 1;
  1429.     ch->exp = 1000;
  1430.     ch->hit = ch->max_hit;
  1431.     ch->mana = ch->max_mana;
  1432.     ch->move = ch->max_move;
  1433.     sprintf( buf, "the %s",
  1434. title_table [ch->class] [ch->level]
  1435. [ch->sex == SEX_FEMALE ? 1 : 0] );
  1436.     set_title( ch, buf );
  1438.     obj = create_object( get_obj_index(OBJ_VNUM_SCHOOL_BANNER), 0 );
  1439.     obj_to_char( obj, ch );
  1440.     equip_char( ch, obj, WEAR_LIGHT );
  1442.     obj = create_object( get_obj_index(OBJ_VNUM_SCHOOL_VEST), 0 );
  1443.     obj_to_char( obj, ch );
  1444.     equip_char( ch, obj, WEAR_BODY );
  1446.     obj = create_object( get_obj_index(OBJ_VNUM_SCHOOL_SHIELD), 0 );
  1447.     obj_to_char( obj, ch );
  1448.     equip_char( ch, obj, WEAR_SHIELD );
  1450.     obj = create_object( get_obj_index(class_table[ch->class].weapon),
  1451. 0 );
  1452.     obj_to_char( obj, ch );
  1453.     equip_char( ch, obj, WEAR_WIELD );
  1455.     char_to_room( ch, get_room_index( ROOM_VNUM_SCHOOL ) );
  1456. }
  1457. else if ( ch->in_room != NULL )
  1458. {
  1459.     char_to_room( ch, ch->in_room );
  1460. }
  1461. else if ( IS_IMMORTAL(ch) )
  1462. {
  1463.     char_to_room( ch, get_room_index( ROOM_VNUM_CHAT ) );
  1464. }
  1465. else
  1466. {
  1467.     char_to_room( ch, get_room_index( ROOM_VNUM_TEMPLE ) );
  1468. }
  1470. act( "$n has entered the game.", ch, NULL, NULL, TO_ROOM );
  1471. do_look( ch, "auto" );
  1472. /* check for new notes */
  1473. notes = 0;
  1475. for ( pnote = note_list; pnote != NULL; pnote = pnote->next )
  1476.     if ( is_note_to( ch, pnote ) && str_cmp( ch->name, pnote->sender )
  1477. && pnote->date_stamp > ch->last_note )
  1478.         notes++;
  1480. if ( notes == 1 )
  1481.     send_to_char( "nrYou have one new note waiting.nr", ch );
  1482. else
  1483.     if ( notes > 1 )
  1484.     {
  1485. sprintf( buf, "nrYou have %d new notes waiting.nr",
  1486. notes );
  1487. send_to_char( buf, ch );
  1488.     }
  1490. break;
  1491.     }
  1493.     return;
  1494. }
  1498. /*
  1499.  * Parse a name for acceptability.
  1500.  */
  1501. bool check_parse_name( char *name )
  1502. {
  1503.     /*
  1504.      * Reserved words.
  1505.      */
  1506.     if ( is_name( name, "all auto immortal self someone" ) )
  1507. return FALSE;
  1509.     /*
  1510.      * Length restrictions.
  1511.      */
  1512.     if ( strlen(name) <  3 )
  1513. return FALSE;
  1515. #if defined(MSDOS)
  1516.     if ( strlen(name) >  8 )
  1517. return FALSE;
  1518. #endif
  1520. #if defined(macintosh) || defined(unix)
  1521.     if ( strlen(name) > 12 )
  1522. return FALSE;
  1523. #endif
  1525.     /*
  1526.      * Alphanumerics only.
  1527.      * Lock out IllIll twits.
  1528.      */
  1529.     {
  1530. char *pc;
  1531. bool fIll;
  1533. fIll = TRUE;
  1534. for ( pc = name; *pc != ''; pc++ )
  1535. {
  1536.     if ( !isalpha(*pc) )
  1537. return FALSE;
  1538.     if ( LOWER(*pc) != 'i' && LOWER(*pc) != 'l' )
  1539. fIll = FALSE;
  1540. }
  1542. if ( fIll )
  1543.     return FALSE;
  1544.     }
  1546.     /*
  1547.      * Prevent players from naming themselves after mobs.
  1548.      */
  1549.     {
  1550. extern MOB_INDEX_DATA *mob_index_hash[MAX_KEY_HASH];
  1551. MOB_INDEX_DATA *pMobIndex;
  1552. int iHash;
  1554. for ( iHash = 0; iHash < MAX_KEY_HASH; iHash++ )
  1555. {
  1556.     for ( pMobIndex  = mob_index_hash[iHash];
  1557.   pMobIndex != NULL;
  1558.   pMobIndex  = pMobIndex->next )
  1559.     {
  1560. if ( is_name( name, pMobIndex->player_name ) )
  1561.     return FALSE;
  1562.     }
  1563. }
  1564.     }
  1566.     return TRUE;
  1567. }
  1571. /*
  1572.  * Look for link-dead player to reconnect.
  1573.  */
  1574. bool check_reconnect( DESCRIPTOR_DATA *d, char *name, bool fConn )
  1575. {
  1576.     CHAR_DATA *ch;
  1577.     OBJ_DATA *obj;
  1579.     for ( ch = char_list; ch != NULL; ch = ch->next )
  1580.     {
  1581. if ( !IS_NPC(ch)
  1582. && ( !fConn || ch->desc == NULL )
  1583. &&   !str_cmp( d->character->name, ch->name ) )
  1584. {
  1585.     if ( fConn == FALSE )
  1586.     {
  1587. free_string( d->character->pcdata->pwd );
  1588. d->character->pcdata->pwd = str_dup( ch->pcdata->pwd );
  1589.     }
  1590.     else
  1591.     {
  1592. free_char( d->character );
  1593. d->character = ch;
  1594. ch->desc  = d;
  1595. ch->timer  = 0;
  1596. send_to_char( "Reconnecting.nr", ch );
  1597. act( "$n has reconnected.", ch, NULL, NULL, TO_ROOM );
  1598. sprintf( log_buf, "%s@%s reconnected.", ch->name, d->host );
  1599. log_string( log_buf );
  1600. d->connected = CON_PLAYING;
  1602. /*
  1603.  * Contributed by Gene Choi
  1604.  */
  1605. if ( ( obj = get_eq_char( ch, WEAR_LIGHT ) ) != NULL
  1606.     && obj->item_type == ITEM_LIGHT
  1607.     && obj->value[2] != 0
  1608.     && ch->in_room != NULL )
  1609.     ++ch->in_room->light;
  1610.     }
  1611.     return TRUE;
  1612. }
  1613.     }
  1615.     return FALSE;
  1616. }
  1620. /*
  1621.  * Check if already playing.
  1622.  */
  1623. bool check_playing( DESCRIPTOR_DATA *d, char *name )
  1624. {
  1625.     DESCRIPTOR_DATA *dold;
  1627.     for ( dold = descriptor_list; dold; dold = dold->next )
  1628.     {
  1629. if ( dold != d
  1630. &&   dold->character != NULL
  1631. &&   dold->connected != CON_GET_NAME
  1632. &&   dold->connected != CON_GET_OLD_PASSWORD
  1633. &&   !str_cmp( name, dold->original
  1634.          ? dold->original->name : dold->character->name ) )
  1635. {
  1636.     write_to_buffer( d, "Already playing.nrName: ", 0 );
  1637.     d->connected = CON_GET_NAME;
  1638.     if ( d->character != NULL )
  1639.     {
  1640. free_char( d->character );
  1641. d->character = NULL;
  1642.     }
  1643.     return TRUE;
  1644. }
  1645.     }
  1647.     return FALSE;
  1648. }
  1652. void stop_idling( CHAR_DATA *ch )
  1653. {
  1654.     if ( ch == NULL
  1655.     ||   ch->desc == NULL
  1656.     ||   ch->desc->connected != CON_PLAYING
  1657.     ||   ch->was_in_room == NULL
  1658.     ||   ch->in_room != get_room_index( ROOM_VNUM_LIMBO ) )
  1659. return;
  1661.     ch->timer = 0;
  1662.     char_from_room( ch );
  1663.     char_to_room( ch, ch->was_in_room );
  1664.     ch->was_in_room = NULL;
  1665.     act( "$n has returned from the void.", ch, NULL, NULL, TO_ROOM );
  1666.     return;
  1667. }
  1669. /*
  1670.  * Low level output function.
  1671.  */
  1672. bool process_output( DESCRIPTOR_DATA *d, bool fPrompt )
  1673. {
  1674.     extern bool merc_down;
  1676.     /*
  1677.      * Bust a prompt.
  1678.      */
  1679.     if ( fPrompt && !merc_down && d->connected == CON_PLAYING )
  1680.         if ( d->showstr_point )
  1681.     write_to_buffer( d,
  1682.   "[Please type (c)ontinue, (r)efresh, (b)ack, (h)elp, (q)uit, or RETURN]:  ",
  1683.     0 );
  1684. else
  1685. {
  1686.     CHAR_DATA *ch;
  1688.     ch = d->original ? d->original : d->character;
  1689.     if ( IS_SET(ch->act, PLR_BLANK) )
  1690.         write_to_buffer( d, "nr", 2 );
  1692.     if ( IS_SET(ch->act, PLR_PROMPT) )
  1693.         bust_a_prompt( ch );
  1695.     if ( IS_SET(ch->act, PLR_TELNET_GA) )
  1696.         write_to_buffer( d, go_ahead_str, 0 );
  1697. }
  1699.     /*
  1700.      * Short-circuit if nothing to write.
  1701.      */
  1702.     if ( d->outtop == 0 )
  1703. return TRUE;
  1705.     /*
  1706.      * Snoop-o-rama.
  1707.      */
  1708.     if ( d->snoop_by != NULL )
  1709.     {
  1710. write_to_buffer( d->snoop_by, "% ", 2 );
  1711. write_to_buffer( d->snoop_by, d->outbuf, d->outtop );
  1712.     }
  1714.     /*
  1715.      * OS-dependent output.
  1716.      */
  1717.     if ( !write_to_descriptor( d->descriptor, d->outbuf, d->outtop ) )
  1718.     {
  1719. d->outtop = 0;
  1720. return FALSE;
  1721.     }
  1722.     else
  1723.     {
  1724. d->outtop = 0;
  1725. return TRUE;
  1726.     }
  1727. }
  1729. /*
  1730.  * Bust a prompt (player settable prompt)
  1731.  * coded by Morgenes for Aldara Mud
  1732.  */
  1733. void bust_a_prompt( CHAR_DATA *ch )
  1734. {
  1735.    char buf[MAX_STRING_LENGTH];
  1736.    char buf2[MAX_STRING_LENGTH];
  1737.    const char *str;
  1738.    const char *i;
  1739.    char *point;
  1741.    if( ch->prompt == NULL || ch->prompt[0] == '' )
  1742.    {
  1743.       send_to_char( "nrnr", ch );
  1744.       return;
  1745.    }
  1747.    point = buf;
  1748.    str = ch->prompt;
  1749.    while( *str != '' )
  1750.    {
  1751.       if( *str != '%' )
  1752.       {
  1753.          *point++ = *str++;
  1754.          continue;
  1755.       }
  1756.       ++str;
  1757.       switch( *str )
  1758.       {
  1759.          default :
  1760.             i = " "; break;
  1761.          case 'h' :
  1762.             sprintf( buf2, "%d", ch->hit );
  1763.             i = buf2; break;
  1764.          case 'H' :
  1765.             sprintf( buf2, "%d", ch->max_hit );
  1766.             i = buf2; break;
  1767.          case 'm' :
  1768.             sprintf( buf2, "%d", ch->mana );
  1769.             i = buf2; break;
  1770.          case 'M' :
  1771.             sprintf( buf2, "%d", ch->max_mana );
  1772.             i = buf2; break;
  1773.          case 'v' :
  1774.             sprintf( buf2, "%d", ch->move );
  1775.             i = buf2; break;
  1776.          case 'V' :
  1777.             sprintf( buf2, "%d", ch->max_move );
  1778.             i = buf2; break;
  1779.          case 'x' :
  1780.             sprintf( buf2, "%d", ch->exp );
  1781.             i = buf2; break;
  1782.          case 'g' :
  1783.             sprintf( buf2, "%d", ch->gold);
  1784.             i = buf2; break;
  1785.          case 'a' :
  1786.             if( ch->level < 5 )
  1787.                sprintf( buf2, "%d", ch->alignment );
  1788.             else
  1789.                sprintf( buf2, "%s", IS_GOOD(ch) ? "good" : IS_EVIL(ch) ? 
  1790.                 "evil" : "neutral" );
  1791.             i = buf2; break;
  1792.          case 'r' :
  1793.             if( ch->in_room != NULL )
  1794.                sprintf( buf2, "%s", ch->in_room->name );
  1795.             else
  1796.                sprintf( buf2, " " );
  1797.             i = buf2; break;
  1798.          case 'R' :
  1799.             if( IS_IMMORTAL( ch ) && ch->in_room != NULL )
  1800.                sprintf( buf2, "%d", ch->in_room->vnum );
  1801.             else
  1802.                sprintf( buf2, " " );
  1803.             i = buf2; break;
  1804.          case 'z' :
  1805.             if( IS_IMMORTAL( ch ) && ch->in_room != NULL )
  1806.                sprintf( buf2, "%s", ch->in_room->area->name );
  1807.             else
  1808.                sprintf( buf2, " " );
  1809.             i = buf2; break;
  1810.          case '%' :
  1811.             sprintf( buf2, "%%" );
  1812.             i = buf2; break;
  1813.       } 
  1814.       ++str;
  1815.       while( (*point = *i) != '' )
  1816.          ++point, ++i;
  1817.    }
  1818.    write_to_buffer( ch->desc, buf, point - buf );
  1819.    return;
  1820. }
  1822. /* The heart of the pager.  Thanks to N'Atas-Ha, ThePrincedom
  1823.    for porting this SillyMud code for MERC 2.0 and laying down the groundwork.
  1824.    Thanks to Blackstar, hopper.cs.uiowa.edu 4000 for which
  1825.    the improvements to the pager was modeled from.  - Kahn */
  1827. void show_string(struct descriptor_data *d, char *input)
  1828. {
  1829.   char buffer[ MAX_STRING_LENGTH ];
  1830.   char buf[ MAX_INPUT_LENGTH ];
  1831.   register char *scan, *chk;
  1832.   int lines = 0, toggle=1;
  1834.   one_argument(input, buf);
  1836.   switch( UPPER( buf[0] ) )
  1837.   {
  1838.   case '':
  1839.   case 'C': /* show next page of text */
  1840.     lines = 0;
  1841.     break;
  1843.   case 'R': /* refresh current page of text */
  1844.     lines = - 1 - (d->character->pcdata->pagelen);
  1845.     break;
  1847.   case 'B': /* scroll back a page of text */
  1848.     lines = -(2*d->character->pcdata->pagelen);
  1849.     break;
  1851.   case 'H': /* Show some help */
  1852.     write_to_buffer( d,
  1853.         "C, or Return = continue, R = redraw this page,nr", 0 );
  1854.     write_to_buffer( d,
  1855.         "B = back one page, H = this help, Q or other keys = exit.nrnr",
  1856.     0 );
  1857.     lines = - 1 - (d->character->pcdata->pagelen);
  1858.     break;
  1860.   default: /*otherwise, stop the text viewing */
  1861.     if ( d->showstr_head )
  1862.     {
  1863.       free_string( d->showstr_head );
  1864.       d->showstr_head  = 0;
  1865.     }
  1866.     d->showstr_point = 0;
  1867.     return;
  1869.   }
  1871.   /* do any backing up necessary */
  1872.   if (lines < 0)
  1873.   {
  1874.     for ( scan = d->showstr_point; scan > d->showstr_head; scan-- )
  1875.          if ( ( *scan == 'n' ) || ( *scan == 'r' ) )
  1876.  {
  1877.      toggle = -toggle;
  1878.      if ( toggle < 0 )
  1879.          if ( !( ++lines ) )
  1880.      break;
  1881.  }
  1882.     d->showstr_point = scan;
  1883.   }
  1885.   /* show a chunk */
  1886.   lines  = 0;
  1887.   toggle = 1;
  1888.   for ( scan = buffer; ; scan++, d->showstr_point++ )
  1889.        if ( ( ( *scan = *d->showstr_point ) == 'n' || *scan == 'r' )
  1890.    && ( toggle = -toggle ) < 0 )
  1891.    lines++;
  1892.        else
  1893.    if ( !*scan || ( d->character && !IS_NPC( d->character )
  1894.   && lines >= d->character->pcdata->pagelen) )
  1895.    {
  1897.        *scan = '';
  1898.        write_to_buffer( d, buffer, strlen( buffer ) );
  1900.      /* See if this is the end (or near the end) of the string */
  1901.        for ( chk = d->showstr_point; isspace( *chk ); chk++ );
  1902.        if ( !*chk )
  1903.        {
  1904.    if ( d->showstr_head )
  1905.    {
  1906.       free_string( d->showstr_head );
  1907.       d->showstr_head  = 0;
  1908.    }
  1909.    d->showstr_point = 0;
  1910.        }
  1911.        return;
  1912.    }
  1914.   return;
  1915. }