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

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

Internet/网络编程

开发平台：

WINDOWS

W32COMM.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. // @@@ My junk
  38. char      UserMessage[512];
  39. BOOL      fUserReady;
  40. //#define crypt(d,s) strcpy(d,s)
  41. const char echo_off_str [] = { '' };
  42. const char echo_on_str [] = { '' };
  43. const char  go_ahead_str [] = { '' };
  44. bool write_to_descriptor args( ( int desc, char *txt, int length ) );
  45. void send_to_char args( ( const char *txt, CHAR_DATA *ch ) )
  46. {
  47.     if ( txt == NULL || ch->desc == NULL )
  48.         return;
  49.     ch->desc->showstr_head = alloc_mem( strlen( txt ) + 1 );
  50.     strcpy( ch->desc->showstr_head, txt );
  51.     ch->desc->showstr_point = ch->desc->showstr_head;
  52.     show_string( ch->desc, "" );
  53. }
  55. void gettimeofday( struct timeval *tp, void *tzp )
  56. {
  57.     tp->tv_sec  = time( NULL );
  58.     tp->tv_usec = 0;
  59. }
  61. bool read_from_descriptor( DESCRIPTOR_DATA *d )
  62. {
  63.     int iStart;
  65.     /* Hold horses if pending command already. */
  66.     if ( d->incomm[0] != '' )
  67. return TRUE;
  69.     /* Check for overflow. */
  70.     iStart = strlen(d->inbuf);
  71.     if ( iStart >= sizeof(d->inbuf) - 10 )
  72.     {
  73. sprintf( log_buf, "%s input overflow!", d->host );
  74. log_string( log_buf );
  75. write_to_descriptor( d->descriptor,
  76.     "nr*** PUT A LID ON IT!!! ***nr", 0 );
  77. return FALSE;
  78.     }
  80. #if 0
  81.     /* Snarf input. */
  82.     for ( ; ; )
  83.     {
  84. int c;
  85. c = getc( stdin );
  86. if ( c == '' || c == EOF )
  87.     break;
  88. putc( c, stdout );
  89. if ( c == 'r' )
  90.     putc( 'n', stdout );
  91. d->inbuf[iStart++] = c;
  92. if ( iStart > sizeof(d->inbuf) - 10 )
  93.     break;
  94.     }
  95. #else
  96.     if (fUserReady)
  97.        {
  98.        int nLen = strlen(UserMessage);
  99.        fUserReady = FALSE;
  100.        if (iStart + nLen <= sizeof d->inbuf - 10)
  101.           {
  102.           memcpy(d->inbuf + iStart, UserMessage, nLen);
  103.           iStart += nLen;
  104.           d->inbuf[iStart++] = 'r';
  105.           }
  106.        }
  107. #endif
  109.     d->inbuf[iStart] = '';
  110.     return TRUE;
  111. }
  115. /*
  116.  * Transfer one line from input buffer to input line.
  117.  */
  118. void read_from_buffer( DESCRIPTOR_DATA *d )
  119. {
  120.     int i, j, k;
  122.     /*
  123.      * Hold horses if pending command already.
  124.      */
  125.     if ( d->incomm[0] != '' )
  126. return;
  128.     /*
  129.      * Look for at least one new line.
  130.      */
  131.     for ( i = 0; d->inbuf[i] != 'n' && d->inbuf[i] != 'r'; i++ )
  132.     {
  133. if ( d->inbuf[i] == '' )
  134.     return;
  135.     }
  137.     /*
  138.      * Canonical input processing.
  139.      */
  140.     for ( i = 0, k = 0; d->inbuf[i] != 'n' && d->inbuf[i] != 'r'; i++ )
  141.     {
  142. if ( k >= MAX_INPUT_LENGTH - 2 )
  143. {
  144.     write_to_descriptor( d->descriptor, "Line too long.nr", 0 );
  146.     /* skip the rest of the line */
  147.     for ( ; d->inbuf[i] != ''; i++ )
  148.     {
  149. if ( d->inbuf[i] == 'n' || d->inbuf[i] == 'r' )
  150.     break;
  151.     }
  152.     d->inbuf[i]   = 'n';
  153.     d->inbuf[i+1] = '';
  154.     break;
  155. }
  157. if ( d->inbuf[i] == 'b' && k > 0 )
  158.     --k;
  159. else if ( isascii(d->inbuf[i]) && isprint(d->inbuf[i]) )
  160.     d->incomm[k++] = d->inbuf[i];
  161.     }
  163.     /*
  164.      * Finish off the line.
  165.      */
  166.     if ( k == 0 )
  167. d->incomm[k++] = ' ';
  168.     d->incomm[k] = '';
  170.     /*
  171.      * Deal with bozos with #repeat 1000 ...
  172.      */
  173.     if ( k > 1 || d->incomm[0] == '!' )
  174.     {
  175.      if ( d->incomm[0] != '!' && strcmp( d->incomm, d->inlast ) )
  176. {
  177.     d->repeat = 0;
  178. }
  179. else
  180. {
  181.     if ( ++d->repeat >= 20 )
  182.     {
  183. sprintf( log_buf, "%s input spamming!", d->host );
  184. log_string( log_buf );
  185. write_to_descriptor( d->descriptor,
  186.     "nr*** PUT A LID ON IT!!! ***nr", 0 );
  187. strcpy( d->incomm, "quit" );
  188.     }
  189. }
  190.     }
  192.     /*
  193.      * Do '!' substitution.
  194.      */
  195.     if ( d->incomm[0] == '!' )
  196. strcpy( d->incomm, d->inlast );
  197.     else
  198. strcpy( d->inlast, d->incomm );
  200.     /*
  201.      * Shift the input buffer.
  202.      */
  203.     while ( d->inbuf[i] == 'n' || d->inbuf[i] == 'r' )
  204. i++;
  205.     for ( j = 0; ( d->inbuf[j] = d->inbuf[i+j] ) != ''; j++ )
  206. ;
  207.     return;
  208. }
  210. void CloseMerc(void)
  211. {
  212. }
  214. HINSTANCE hInst;
  215. HWND      hQryDlgBox;                         // handle of modeless dialog box
  216. HWND      hWndMain;
  217. HWND      hWndOutput;
  218. char      UserMessage[512];
  219. BOOL      fUserReady;
  221. LRESULT CALLBACK _export MercWndProc(HWND hWnd, UINT message,
  222.                              WPARAM wParam, LPARAM lParam)
  223. {
  224.     switch (message)
  225.     {
  226.         case WM_MOVE:
  227.             // Move the dialog box on top of our main window every
  228.             // time the main window moves.
  229.             if (IsWindow(hQryDlgBox))
  230.                 SendMessage(hQryDlgBox, message, wParam, lParam);
  231.             break;
  233.         case WM_SETFOCUS:
  234.             // Always set the input focus to the dialog box.
  235.             if (IsWindow(hQryDlgBox))
  236.                 SendMessage(hQryDlgBox, message, wParam, lParam);
  237.             break;
  239.         case WM_CLOSE:
  240.             // Tell windows to destroy our window.
  241.             DestroyWindow(hWnd);
  242.             break;
  244.         case WM_QUERYENDSESSION:
  245.             // If we return TRUE we are saying it's ok with us to end the
  246. // windows session.
  247.             return((long) TRUE);  // we agree to end session.
  249.         case WM_ENDSESSION:
  250.             // If wParam is not zero, it meany every application said ok
  251.             // to WM_QUERYENDSESSION messages, so we are really ending.
  252.             if (wParam)           // if all apps aggreed to end session.
  253.                 CloseMerc();     // This is the end. We will not get a
  254.                                    // WM_DESTROY message on end session.
  255.             break;
  257.         case WM_DESTROY:
  258.             // This is the end if we were closed by a DestroyWindow call.
  260.             CloseMerc();
  261. PostQuitMessage(0);
  262.             break;
  264.         default:
  265.             return(DefWindowProc(hWnd, message, wParam, lParam));
  266.     }
  268.     return(0L);
  269. }
  271. BOOL CALLBACK _export MercDlgProc(HWND hDlg, UINT message,
  272.                            WPARAM wParam, LPARAM lParam)
  273. {
  274.     static RECT   wrect;
  276.     int           x, y, w, h, i;
  277.     long          rc;
  278. //    char         *cp, *cpd, tmp[30], sdrives[30];
  279. //    HANDLE        hCursor;
  280.     HWND hWndInput;
  282.     switch (message)
  283.     {
  284.         case WM_INITDIALOG:
  285.             // Save the handle of this proc for use by main window proc.
  286.             hQryDlgBox = hDlg;
  288.             // Save the handle to the output window
  289.             hWndOutput = GetDlgItem(hDlg, 102);
  290.             SendMessage(hWndOutput, WM_SETFONT,
  291.                (WPARAM) GetStockObject(SYSTEM_FIXED_FONT), 0);
  292.             SetFocus(GetDlgItem(hDlg, 101));
  294.             // Get position of dialog box window.
  295.             GetWindowRect(hDlg, (LPRECT) &wrect);
  296.             w = wrect.right - wrect.left;
  297.             h = wrect.bottom - wrect.top;
  299.             // Move main application window to same position.
  300.             SetWindowPos(hWndMain, hDlg,
  301.                          wrect.left, wrect.top, w, h,
  302.                          0);
  303.             break;
  305.         case WM_MOVE:
  306.             // Always keep this dialog box on top of main window.
  307.             GetWindowRect(hWndMain, (LPRECT) &wrect);
  308.             x = wrect.left;
  309.             y = wrect.top;
  310.             w = wrect.right - wrect.left;
  311.             h = wrect.bottom - wrect.top;
  312.             MoveWindow(hDlg, x, y, w, h, 1);
  313.             break;
  315.         case WM_SYSCOMMAND:
  316.             // Pass WM_SYSCOMMAND messages on to main window so both
  317.             // main window and dialog box get iconized, minimized etc.
  318.             // in parallel.
  319.             SendMessage(hWndMain, message, wParam, lParam);
  320.             break;
  322.         case WM_COMMAND:
  323.             switch (LOWORD(wParam))
  324.             {
  325.                 case IDOK:
  326.                     hWndInput = GetDlgItem(hDlg, 101);
  327.                     SendMessage(hWndInput, WM_GETTEXT, sizeof UserMessage, (LPARAM) UserMessage);
  328.                     SendMessage(hWndInput, WM_SETTEXT, 0, (LPARAM) "");
  329.                     SetFocus(hWndInput);
  330.                     fUserReady = TRUE;
  331.                     break;
  333.                 case IDCANCEL:                  // Cancel button
  334.                     // Tell main application window we want to quit.
  335.                     SendMessage(hWndMain, WM_CLOSE, 0, 0L);
  336.                     break;
  338.                 default:
  339.                     break;
  340.             }
  341.             break;
  343.         case WM_CLOSE:
  344.             // Unlock dialog resource we locked above.
  346.             // Zero handle to this dialog window.
  347.             hQryDlgBox = 0;
  349.             // Tell main window to close.
  350.             PostMessage(hWndMain, WM_CLOSE, 0, 0L);
  352.             // Destroy ourseleves.
  353.             DestroyWindow(hDlg);
  354.             break;
  356.         default:
  357.             return FALSE;
  358.     }
  360.     return(TRUE);
  361. }
  363. void InitMerc22(HINSTANCE hInstance, int cmdShow)
  364. {
  365.     WNDCLASS wcMercClass;
  367.     // Define the window class for this application.
  368.     wcMercClass.lpszClassName = "Merc22";
  369.     wcMercClass.hInstance     = hInstance;
  370.     wcMercClass.lpfnWndProc   = MercWndProc;
  371.     wcMercClass.hCursor       = LoadCursor(NULL, IDC_ARROW);
  372. //    wcMercClass.hIcon         = LoadIcon(hInstance, SetUpData.szAppName);
  373.     wcMercClass.hIcon         = 0;
  374.     wcMercClass.lpszMenuName  = (LPSTR) NULL;
  375.     wcMercClass.hbrBackground = GetStockObject(WHITE_BRUSH);
  376.     wcMercClass.style         = CS_HREDRAW | CS_VREDRAW;
  377.     wcMercClass.cbClsExtra    = 0;
  378.     wcMercClass.cbWndExtra    = 0;
  380.     // Register the class
  381.     if (RegisterClass(&wcMercClass) == 0)
  382.        {
  383.        MessageBox(0, "Could not create Window", "@@@", MB_ICONHAND|MB_OK);
  384.        exit(1);
  385.        }
  387.     hInst = hInstance;       // save for use by window procs
  389.     // Create applications main window.
  390.     hWndMain = CreateWindow(
  391.                   "Merc22",
  392.                   "Welcome to Merc22/Win32",
  393.                     WS_BORDER |
  394.                     WS_CAPTION |
  395.                     WS_SYSMENU |
  396.                     WS_MINIMIZEBOX,
  397.                   10,
  398.                   19,
  399.                   256,
  400.                   123,
  401.                   NULL,
  402.                   NULL,
  403.                   hInstance,
  404.                   NULL
  405.                   );
  407.     CreateDialog(hInst, MAKEINTRESOURCE(1), hWndMain, (DLGPROC) MercDlgProc);
  408.     ShowWindow(hWndMain, cmdShow);
  409.     UpdateWindow(hWndMain);
  410. }
  412. int SpinTheMessageLoop()
  413. {
  414.    MSG msg;
  415.    if (PeekMessage(&msg, NULL, NULL, NULL, PM_REMOVE))
  416.       {
  417.       if (msg.message == WM_QUIT)
  418.          return FALSE;
  420.       if (!IsDialogMessage(hQryDlgBox, &msg))
  421.          {
  422.          TranslateMessage(&msg);
  423.          DispatchMessage(&msg);
  424.          }
  425.       }
  427.    return TRUE;
  428. }
  430. WPARAM game_loop_win32(HINSTANCE hInstance, HINSTANCE hPrevInstance, int nCmdShow)
  431. {
  432.     static DESCRIPTOR_DATA dcon;
  433.     DESCRIPTOR_DATA *d;
  434.     MSG   msg;
  435.     DWORD dwTick = 0;
  436.     int   fBackground;
  437. extern char * help_greeting;
  439.     /*
  440.      * New_descriptor analogue.
  441.      */
  442.     dcon.descriptor = 0;
  443.     dcon.connected = CON_GET_NAME;
  444.     dcon.host = str_dup( "localhost" );
  445.     dcon.outsize = 2000;
  446.     dcon.outbuf = alloc_mem( dcon.outsize );
  447.     dcon.next = descriptor_list;
  448.     descriptor_list = &dcon;
  450.     /*
  451.      * Send the greeting.
  452.      */
  453. if ( help_greeting[0] == '.' )
  454.     write_to_buffer( &dcon, help_greeting+1, 0 );
  455. else
  456.     write_to_buffer( &dcon, help_greeting  , 0 );
  458.     /* Main loop */
  460.     // Go init this application.
  461.     InitMerc22(hInstance, nCmdShow);
  463.     // Get and dispatch messages for this applicaton.
  464.     fBackground = FALSE;
  465.     for ( ;; )
  466.         {
  467.         // Always give Windows messages priority over Merc execution
  468.         if (PeekMessage(&msg, NULL, NULL, NULL, PM_REMOVE))
  469.             {
  470.             if (msg.message == WM_QUIT)
  471.                break;
  473.             if (!IsDialogMessage(hQryDlgBox, &msg))
  474.                {
  475.                TranslateMessage(&msg);
  476.                DispatchMessage(&msg);
  477.                }
  478.             }
  479.        else if (!fBackground)
  480.           {
  481.           fBackground++;
  483.     time( &current_time );
  485. /*
  486.  * Autonomous game motion.
  487.  * (Synchronize to a clock.
  488.  * Busy wait (blargh).)
  489.  */
  490.     if (GetTickCount() - dwTick >= 1000 / PULSE_PER_SECOND)
  491.        {
  492.        dwTick = GetTickCount();
  493. /*
  494.  * Process input.
  495.  */
  496. for ( d = descriptor_list; d != NULL; d = d_next )
  497.    {
  498.        // Give Windows a change to run other programs
  499. //       if (!SpinTheMessageLoop())
  500. //          goto merc_done;
  502.    d_next = d->next;
  503.    d->fcommand = FALSE;
  505.    if ( d->character != NULL )
  506.         d->character->timer = 0;
  508.        // Did the user break connection?
  509.    if ( !read_from_descriptor( d ) )
  510.       {
  511.     if ( d->character != NULL )
  512. save_char_obj( d->character );
  513.     d->outtop = 0;
  514.     close_socket( d );
  515.     continue;
  516.     }
  518.     if ( d->character != NULL && d->character->wait > 0 )
  519.         {
  520.     --d->character->wait;
  521.     continue;
  522.         }
  524.     read_from_buffer( d );
  525.     if ( d->incomm[0] != '' )
  526.     {
  527. d->fcommand = TRUE;
  528. stop_idling( d->character );
  530. if ( d->connected == CON_PLAYING )
  531.     if ( d->showstr_point )
  532.         show_string( d, d->incomm );
  533.     else
  534.         interpret( d->character, d->incomm );
  535. else
  536.     nanny( d, d->incomm );
  538. d->incomm[0] = '';
  539.     }
  540.    }
  543.        update_handler( );
  545. /*
  546.  * Output.
  547.  */
  548. for ( d = descriptor_list; d != NULL; d = d_next )
  549. {
  550.        // Give Windows a change to run other programs
  551. //       if (!SpinTheMessageLoop())
  552. //          goto merc_done;
  554.     d_next = d->next;
  556.     if ( ( d->fcommand || d->outtop > 0 ) )
  557.     {
  558. if ( !process_output( d, TRUE ) )
  559. {
  560.     if ( d->character != NULL )
  561. save_char_obj( d->character );
  562.     d->outtop = 0;
  563.     close_socket( d );
  564. }
  565.     }
  566. }
  569. #if 0
  570. now_time = last_time;
  571. for ( ; ; )
  572. {
  573.     int delta;
  575.     {
  576. if ( dcon.character != NULL )
  577.     dcon.character->timer = 0;
  578. if ( !read_from_descriptor( &dcon ) )
  579. {
  580.     if ( dcon.character != NULL )
  581. save_char_obj( d->character );
  582.     dcon.outtop = 0;
  583.     close_socket( &dcon );
  584. }
  585. #if defined(MSDOS)
  586. break;
  587. #endif
  588.     }
  590.     gettimeofday( &now_time, NULL );
  591.     delta = ( now_time.tv_sec  - last_time.tv_sec  ) * 1000 * 1000
  592.   + ( now_time.tv_usec - last_time.tv_usec );
  593.     if ( delta >= 1000000 / PULSE_PER_SECOND )
  594. break;
  595. }
  596. last_time    = now_time;
  597. current_time = (time_t) last_time.tv_sec;
  598. #endif
  599.        }
  600.    fBackground--;
  601.           }
  602.        }
  603. merc_done:
  605.     return(msg.wParam);
  606. }
  608. //int main( int argc, char **argv )
  609. int PASCAL WinMain(HINSTANCE hInstance, HINSTANCE hPrev, LPSTR lpszCmdLine, int nCmdShow)
  610. {
  611.     struct timeval now_time;
  612. //    int port;
  614. #if defined(unix)
  615.     int control;
  616. #endif
  618.     /*
  619.      * Memory debugging if needed.
  620.      */
  621. #if defined(MALLOC_DEBUG)
  622.     malloc_debug( 2 );
  623. #endif
  625.     /*
  626.      * Init time.
  627.      */
  628.     gettimeofday( &now_time, NULL );
  629.     current_time = (time_t) now_time.tv_sec;
  630.     strcpy( str_boot_time, ctime( &current_time ) );
  632.     /*
  633.      * Macintosh console initialization.
  634.      */
  635. #if defined(macintosh)
  636.     console_options.nrows = 31;
  637.     cshow( stdout );
  638.     csetmode( C_RAW, stdin );
  639.     cecho2file( "log file", 1, stderr );
  640. #endif
  642. #if 0
  643.     /*
  644.      * Reserve one channel for our use.
  645.      */
  646.     if ( ( fpReserve = fopen( NULL_FILE, "r" ) ) == NULL )
  647.     {
  648. perror( NULL_FILE );
  649. return 1;
  650.     }
  651. #endif
  653. #if 0
  654.     /*
  655.      * Get the port number.
  656.      */
  657.     port = 1234;
  658.     if ( lpszCmdLine[0] )
  659.     {
  660. if ( !is_number( lpszCmdLine ) )
  661. {
  662.     fprintf( stderr, "Usage: WinMerc [port #]n" );
  663.     return 1;
  664. }
  665. else if ( ( port = atoi( lpszCmdLine ) ) <= 1024 )
  666. {
  667.     fprintf( stderr, "Port number must be above 1024.n" );
  668.     return 1;
  669. }
  670.     }
  671. #endif
  673. #if 0
  674.     /*
  675.      * Run the game.
  676.      */
  677. #if defined(macintosh) || defined(MSDOS)
  678.     boot_db( );
  679.     log_string( "Merc is ready to rock." );
  680.     game_loop_mac_msdos( );
  681. #endif
  683. #if defined(unix)
  684.     control = init_socket( port );
  685.     boot_db( );
  686.     sprintf( log_buf, "Merc is ready to rock on port %d.", port );
  687.     log_string( log_buf );
  688.     game_loop_unix( control );
  689.     close( control );
  690. #endif
  691. #else
  692.     boot_db( );
  693. //    MessageBox(0, "Merc is ready to rock", "@@@", MB_ICONINFORMATION|MB_OK);
  694.     log_string( "Merc is ready to rock." );
  695.     game_loop_win32(hInstance, hPrev, nCmdShow);
  696. #endif
  698.     /*
  699.      * That's all, folks.
  700.      */
  701.     log_string( "Normal termination of game." );
  702.     return 0;
  703. }
  705. // @@@ Orig junk
  707. /*
  708.  * The primary output interface for formatted output.
  709.  */
  710. void act( const char *format, CHAR_DATA *ch, const void *arg1,
  711.  const void *arg2, int type )
  712. {
  713.     static char * const he_she [] = { "it",  "he",  "she" };
  714.     static char * const him_her [] = { "it",  "him", "her" };
  715.     static char * const his_her [] = { "its", "his", "her" };
  717.     char buf[MAX_STRING_LENGTH];
  718.     char fname[MAX_INPUT_LENGTH];
  719.     CHAR_DATA *to;
  720.     CHAR_DATA *vch = (CHAR_DATA *) arg2;
  721.     OBJ_DATA *obj1 = (OBJ_DATA  *) arg1;
  722.     OBJ_DATA *obj2 = (OBJ_DATA  *) arg2;
  723.     const char *str;
  724.     const char *i;
  725.     char *point;
  727.     /*
  728.      * Discard null and zero-length messages.
  729.      */
  730.     if ( format == NULL || format[0] == '' )
  731. return;
  733.     to = ch->in_room->people;
  734.     if ( type == TO_VICT )
  735.     {
  736. if ( vch == NULL )
  737. {
  738.     bug( "Act: null vch with TO_VICT.", 0 );
  739.     return;
  740. }
  741. to = vch->in_room->people;
  742.     }
  743.     
  744.     for ( ; to != NULL; to = to->next_in_room )
  745.     {
  746. if ( ( to->desc == NULL 
  747.     && ( IS_NPC( to ) && !(to->pIndexData->progtypes & ACT_PROG ) ) )
  748.     || !IS_AWAKE(to) )
  749.     continue;
  751. if ( type == TO_CHAR && to != ch )
  752.     continue;
  753. if ( type == TO_VICT && ( to != vch || to == ch ) )
  754.     continue;
  755. if ( type == TO_ROOM && to == ch )
  756.     continue;
  757. if ( type == TO_NOTVICT && (to == ch || to == vch) )
  758.     continue;
  760. point = buf;
  761. str = format;
  762. while ( *str != '' )
  763. {
  764.     if ( *str != '$' )
  765.     {
  766. *point++ = *str++;
  767. continue;
  768.     }
  769.     ++str;
  771.     if ( arg2 == NULL && *str >= 'A' && *str <= 'Z' )
  772.     {
  773. bug( "Act: missing arg2 for code %d.", *str );
  774. i = " <@@@> ";
  775.     }
  776.     else
  777.     {
  778. switch ( *str )
  779. {
  780. default:  bug( "Act: bad code %d.", *str );
  781.   i = " <@@@> "; break;
  782. /* Thx alex for 't' idea */
  783. case 't': i = (char *) arg1; break;
  784. case 'T': i = (char *) arg2;           break;
  785. case 'n': i = PERS( ch,  to  ); break;
  786. case 'N': i = PERS( vch, to  ); break;
  787. case 'e': i = he_she  [URANGE(0, ch  ->sex, 2)]; break;
  788. case 'E': i = he_she  [URANGE(0, vch ->sex, 2)]; break;
  789. case 'm': i = him_her [URANGE(0, ch  ->sex, 2)]; break;
  790. case 'M': i = him_her [URANGE(0, vch ->sex, 2)]; break;
  791. case 's': i = his_her [URANGE(0, ch  ->sex, 2)]; break;
  792. case 'S': i = his_her [URANGE(0, vch ->sex, 2)]; break;
  794. case 'p':
  795.     i = can_see_obj( to, obj1 )
  796.     ? obj1->short_descr
  797.     : "something";
  798.     break;
  800. case 'P':
  801.     i = can_see_obj( to, obj2 )
  802.     ? obj2->short_descr
  803.     : "something";
  804.     break;
  806. case 'd':
  807.     if ( arg2 == NULL || ((char *) arg2)[0] == '' )
  808.     {
  809. i = "door";
  810.     }
  811.     else
  812.     {
  813. one_argument( (char *) arg2, fname );
  814. i = fname;
  815.     }
  816.     break;
  817. }
  818.     }
  820.     ++str;
  821.     while ( ( *point = *i ) != '' )
  822. ++point, ++i;
  823. }
  825. *point++ = 'n';
  826. *point++ = 'r';
  827. buf[0]   = UPPER(buf[0]);
  828. if (to->desc)
  829.   write_to_buffer( to->desc, buf, point - buf );
  830. if (MOBtrigger)
  831.   mprog_act_trigger( buf, to, ch, obj1, vch );
  832.                                             /* Added by Kahn */
  833.     }
  835.     MOBtrigger = TRUE;
  836.     return;
  837. }
  839. /*
  840.  * Append onto an output buffer.
  841.  */
  842. void write_to_buffer( DESCRIPTOR_DATA *d, const char *txt, int length )
  843. {
  844.     /* @@@ ECS */
  845.     if (d == 0)
  846.        return;
  847.        
  848.     /*
  849.      * Find length in case caller didn't.
  850.      */
  851.     if ( length <= 0 )
  852. length = strlen(txt);
  854.     /*
  855.      * Initial nr if needed.
  856.      */
  857.     if ( d->outtop == 0 && !d->fcommand )
  858.     {
  859. d->outbuf[0] = 'n';
  860. d->outbuf[1] = 'r';
  861. d->outtop = 2;
  862.     }
  864.     /*
  865.      * Expand the buffer as needed.
  866.      */
  867.     while ( d->outtop + length >= d->outsize )
  868.     {
  869. char *outbuf;
  871. outbuf      = alloc_mem( 2 * d->outsize );
  872. strncpy( outbuf, d->outbuf, d->outtop );
  873. free_mem( d->outbuf, d->outsize );
  874. d->outbuf   = outbuf;
  875. d->outsize *= 2;
  876.     }
  878.     /*
  879.      * Copy.
  880.      */
  881.     strcpy( d->outbuf + d->outtop, txt );
  882.     d->outtop += length;
  883.     return;
  884. }
  886. void close_socket( DESCRIPTOR_DATA *dclose )
  887. {
  888.     CHAR_DATA *ch;
  890.     if ( dclose->outtop > 0 )
  891. process_output( dclose, FALSE );
  893.     if ( dclose->snoop_by != NULL )
  894.     {
  895. write_to_buffer( dclose->snoop_by,
  896.     "Your victim has left the game.nr", 0 );
  897.     }
  899.     {
  900. DESCRIPTOR_DATA *d;
  902. for ( d = descriptor_list; d != NULL; d = d->next )
  903. {
  904.     if ( d->snoop_by == dclose )
  905. d->snoop_by = NULL;
  906. }
  907.     }
  909.     if ( ( ch = dclose->character ) != NULL )
  910.     {
  911. sprintf( log_buf, "Closing link to %s.", ch->name );
  912. log_string( log_buf );
  913. if ( dclose->connected == CON_PLAYING )
  914. {
  915.     act( "$n has lost $s link.", ch, NULL, NULL, TO_ROOM );
  916.     ch->desc = NULL;
  917. }
  918. else
  919. {
  920.     free_char( dclose->character );
  921. }
  922.     }
  924.     if ( d_next == dclose )
  925. d_next = d_next->next;
  927.     if ( dclose == descriptor_list )
  928.     {
  929. descriptor_list = descriptor_list->next;
  930.     }
  931.     else
  932.     {
  933. DESCRIPTOR_DATA *d;
  935. for ( d = descriptor_list; d && d->next != dclose; d = d->next )
  936.     ;
  937. if ( d != NULL )
  938.     d->next = dclose->next;
  939. else
  940.     bug( "Close_socket: dclose not found.", 0 );
  941.     }
  943. //    close( dclose->descriptor );
  944.     free_string( dclose->host );
  945.     dclose->next = descriptor_free;
  946.     descriptor_free = dclose;
  947. //@@@#if defined(MSDOS) || defined(macintosh)
  948.     exit(1);
  949. //@@@#endif
  950.     return;
  951. }
  953. /*
  954.  * Lowest level output function.
  955.  * Write a block of text to the file descriptor.
  956.  * If this gives errors on very long blocks (like 'ofind all'),
  957.  *   try lowering the max block size.
  958.  */
  959. bool write_to_descriptor( int desc, char *txt, int length )
  960. {
  961.     int iStart;
  962.     int nWrite;
  963.     int nBlock;
  965. #if defined(macintosh) || defined(MSDOS)
  966.     if ( desc == 0 )
  967. desc = 1;
  968. #endif
  969.    char c;
  970.    int n;
  971.    char *p;
  972.       char szBuffer[32767];
  974.     if ( length <= 0 )
  975. length = strlen(txt);
  977. #if 0
  978.     for ( iStart = 0; iStart < length; iStart += nWrite )
  979.     {
  980. nBlock = UMIN( length - iStart, 4096 );
  981. if ( ( nWrite = write( desc, txt + iStart, nBlock ) ) < 0 )
  982.     { perror( "Write_to_descriptor" ); return FALSE; }
  983.     }
  984. #else
  985.    c = txt[length];
  986.    txt[length] = '';
  987. //   MessageBox(0, txt, "@@@", MB_ICONINFORMATION|MB_OK);
  988. //   SendMessage(hWndOutput, WM_SETTEXT, 0, (LPARAM) txt);
  989.    SendMessage(hWndOutput, WM_GETTEXT, 32767, (LPARAM) szBuffer);
  990.    /* Count the newlines */
  991.    for (p = szBuffer, n = 0; *p; p++)
  992.       if (*p == 'n')
  993.          n++;
  994.    for (p = txt; *p; p++)
  995.       if (*p == 'n')
  996.          n++;
  997.    if (n < 22) // @@@ Totally font dependent...
  998.       {
  999. //      strcpy(szBuffer+n, txt);
  1000.       strcat(szBuffer, "n");
  1001.       strcat(szBuffer, txt);
  1002.       SendMessage(hWndOutput, WM_SETTEXT, 0, (LPARAM) szBuffer);
  1003.       }
  1004.    else
  1005.       SendMessage(hWndOutput, WM_SETTEXT, 0, (LPARAM) txt);
  1007.    txt[length] = c;
  1008. #endif
  1010.     return TRUE;
  1011. }
  1015. /*
  1016.  * Deal with sockets that haven't logged in yet.
  1017.  */
  1018. void nanny( DESCRIPTOR_DATA *d, char *argument )
  1019. {
  1020.     char buf[MAX_STRING_LENGTH];
  1021.     CHAR_DATA *ch;
  1022.     NOTE_DATA *pnote;
  1023.     char *pwdnew;
  1024.     char *p;
  1025.     int iClass;
  1026.     int lines;
  1027.     int notes;
  1028.     bool fOld;
  1030.     while ( isspace(*argument) )
  1031. argument++;
  1033.     ch = d->character;
  1035.     switch ( d->connected )
  1036.     {
  1038.     default:
  1039. bug( "Nanny: bad d->connected %d.", d->connected );
  1040. close_socket( d );
  1041. return;
  1043.     case CON_GET_NAME:
  1044. if ( argument[0] == '' )
  1045. {
  1046.     close_socket( d );
  1047.     return;
  1048. }
  1050. argument[0] = UPPER(argument[0]);
  1051. if ( !check_parse_name( argument ) )
  1052. {
  1053.     write_to_buffer( d, "Illegal name, try another.nrName: ", 0 );
  1054.     return;
  1055. }
  1057. fOld = load_char_obj( d, argument );
  1058. ch   = d->character;
  1060. if ( IS_SET(ch->act, PLR_DENY) )
  1061. {
  1062.     sprintf( log_buf, "Denying access to %s@%s.", argument, d->host );
  1063.     log_string( log_buf );
  1064.     write_to_buffer( d, "You are denied access.nr", 0 );
  1065.     close_socket( d );
  1066.     return;
  1067. }
  1069. if ( check_reconnect( d, argument, FALSE ) )
  1070. {
  1071.     fOld = TRUE;
  1072. }
  1073. else
  1074. {
  1075.     if ( wizlock && !IS_HERO( ch ) && !ch->wizbit )
  1076.     {
  1077. write_to_buffer( d, "The game is wizlocked.nr", 0 );
  1078. close_socket( d );
  1079. return;
  1080.     }
  1081. }
  1083. if ( fOld )
  1084. {
  1085.     /* Old player */
  1086.     write_to_buffer( d, "Password: ", 0 );
  1087.     write_to_buffer( d, echo_off_str, 0 );
  1088.     d->connected = CON_GET_OLD_PASSWORD;
  1089.     return;
  1090. }
  1091. else
  1092. {
  1093.     /* New player */
  1094.     /* New characters with same name fix by Salem's Lot */
  1095.     if ( check_playing( d, ch->name ) )
  1096.         return;
  1097.     sprintf( buf, "Did I get that right, %s (Y/N)? ", argument );
  1098.     write_to_buffer( d, buf, 0 );
  1099.     d->connected = CON_CONFIRM_NEW_NAME;
  1100.     return;
  1101. }
  1102. //@@@ break;
  1104.     case CON_GET_OLD_PASSWORD:
  1105. #if defined(unix)
  1106. write_to_buffer( d, "nr", 2 );
  1107. #endif
  1109. if ( strcmp( crypt( argument, ch->pcdata->pwd ), ch->pcdata->pwd ) )
  1110. {
  1111.     write_to_buffer( d, "Wrong password.nr", 0 );
  1112.     close_socket( d );
  1113.     return;
  1114. }
  1116. write_to_buffer( d, echo_on_str, 0 );
  1118. if ( check_reconnect( d, ch->name, TRUE ) )
  1119.     return;
  1121. if ( check_playing( d, ch->name ) )
  1122.     return;
  1123.     
  1124. sprintf( log_buf, "%s@%s has connected.", ch->name, d->host );
  1125. log_string( log_buf );
  1126. lines = ch->pcdata->pagelen;
  1127. ch->pcdata->pagelen = 20;
  1128. if ( IS_HERO(ch) )
  1129.     do_help( ch, "imotd" );
  1130. do_help( ch, "motd" );
  1131. ch->pcdata->pagelen = lines;
  1132. d->connected = CON_READ_MOTD;
  1133. break;
  1135.     case CON_CONFIRM_NEW_NAME:
  1136. switch ( *argument )
  1137. {
  1138. case 'y': case 'Y':
  1139.     sprintf( buf, "New character.nrGive me a password for %s: %s",
  1140. ch->name, echo_off_str );
  1141.     write_to_buffer( d, buf, 0 );
  1142.     d->connected = CON_GET_NEW_PASSWORD;
  1143.     break;
  1145. case 'n': case 'N':
  1146.     write_to_buffer( d, "Ok, what IS it, then? ", 0 );
  1147.     free_char( d->character );
  1148.     d->character = NULL;
  1149.     d->connected = CON_GET_NAME;
  1150.     break;
  1152. default:
  1153.     write_to_buffer( d, "Please type Yes or No? ", 0 );
  1154.     break;
  1155. }
  1156. break;
  1158.     case CON_GET_NEW_PASSWORD:
  1159. #if defined(unix)
  1160. write_to_buffer( d, "nr", 2 );
  1161. #endif
  1163. if ( strlen(argument) < 3 )
  1164. {
  1165.     write_to_buffer( d,
  1166. "Password must be at least three characters long.nrPassword: ",
  1167. 0 );
  1168.     return;
  1169. }
  1171. pwdnew = crypt( argument, ch->name );
  1172. for ( p = pwdnew; *p != ''; p++ )
  1173. {
  1174.     if ( *p == '~' )
  1175.     {
  1176. write_to_buffer( d,
  1177.     "New password not acceptable, try again.nrPassword: ",
  1178.     0 );
  1179. return;
  1180.     }
  1181. }
  1183. free_string( ch->pcdata->pwd );
  1184. ch->pcdata->pwd = str_dup( pwdnew );
  1185. write_to_buffer( d, "Please retype password: ", 0 );
  1186. d->connected = CON_CONFIRM_NEW_PASSWORD;
  1187. break;
  1189.     case CON_CONFIRM_NEW_PASSWORD:
  1190. #if defined(unix)
  1191. write_to_buffer( d, "nr", 2 );
  1192. #endif
  1194. if ( strcmp( crypt( argument, ch->pcdata->pwd ), ch->pcdata->pwd ) )
  1195. {
  1196.     write_to_buffer( d, "Passwords don't match.nrRetype password: ",
  1197. 0 );
  1198.     d->connected = CON_GET_NEW_PASSWORD;
  1199.     return;
  1200. }
  1202. write_to_buffer( d, echo_on_str, 0 );
  1203. write_to_buffer( d, "What is your sex (M/F/N)? ", 0 );
  1204. d->connected = CON_GET_NEW_SEX;
  1205. break;
  1207.     case CON_GET_NEW_SEX:
  1208. switch ( argument[0] )
  1209. {
  1210. case 'm': case 'M': ch->sex = SEX_MALE;    break;
  1211. case 'f': case 'F': ch->sex = SEX_FEMALE;  break;
  1212. case 'n': case 'N': ch->sex = SEX_NEUTRAL; break;
  1213. default:
  1214.     write_to_buffer( d, "That's not a sex.nrWhat IS your sex? ", 0 );
  1215.     return;
  1216. }
  1218. strcpy( buf, "Select a class [" );
  1219. for ( iClass = 0; iClass < MAX_CLASS; iClass++ )
  1220. {
  1221.     if ( iClass > 0 )
  1222. strcat( buf, " " );
  1223.     strcat( buf, class_table[iClass].who_name );
  1224. }
  1225. strcat( buf, "]: " );
  1226. write_to_buffer( d, buf, 0 );
  1227. d->connected = CON_GET_NEW_CLASS;
  1228. break;
  1230.     case CON_GET_NEW_CLASS:
  1231. for ( iClass = 0; iClass < MAX_CLASS; iClass++ )
  1232. {
  1233.     if ( !str_cmp( argument, class_table[iClass].who_name ) )
  1234.     {
  1235. ch->class = iClass;
  1236. break;
  1237.     }
  1238. }
  1240. if ( iClass == MAX_CLASS )
  1241. {
  1242.     write_to_buffer( d,
  1243. "That's not a class.nrWhat IS your class? ", 0 );
  1244.     return;
  1245. }
  1247. sprintf( log_buf, "%s@%s new player.", ch->name, d->host );
  1248. log_string( log_buf );
  1249. write_to_buffer( d, "nr", 2 );
  1250. ch->pcdata->pagelen = 20;
  1251. ch->prompt = "<%hhp %mm %vmv> ";
  1252. do_help( ch, "motd" );
  1253. d->connected = CON_READ_MOTD;
  1254. break;
  1256.     case CON_READ_MOTD:
  1257. ch->next = char_list;
  1258. char_list = ch;
  1259. d->connected = CON_PLAYING;
  1261. send_to_char(
  1262.     "nrWelcome to Merc Diku Mud.  May your visit here be ... Mercenary.nr",
  1263.     ch );
  1265. if ( ch->level == 0 )
  1266. {
  1267.     OBJ_DATA *obj;
  1269.     switch ( class_table[ch->class].attr_prime )
  1270.     {
  1271.     case APPLY_STR: ch->pcdata->perm_str = 16; break;
  1272.     case APPLY_INT: ch->pcdata->perm_int = 16; break;
  1273.     case APPLY_WIS: ch->pcdata->perm_wis = 16; break;
  1274.     case APPLY_DEX: ch->pcdata->perm_dex = 16; break;
  1275.     case APPLY_CON: ch->pcdata->perm_con = 16; break;
  1276.     }
  1278.     ch->level = 1;
  1279.     ch->exp = 1000;
  1280.     ch->hit = ch->max_hit;
  1281.     ch->mana = ch->max_mana;
  1282.     ch->move = ch->max_move;
  1283.     sprintf( buf, "the %s",
  1284. title_table [ch->class] [ch->level]
  1285. [ch->sex == SEX_FEMALE ? 1 : 0] );
  1286.     set_title( ch, buf );
  1288.     obj = create_object( get_obj_index(OBJ_VNUM_SCHOOL_BANNER), 0 );
  1289.     obj_to_char( obj, ch );
  1290.     equip_char( ch, obj, WEAR_LIGHT );
  1292.     obj = create_object( get_obj_index(OBJ_VNUM_SCHOOL_VEST), 0 );
  1293.     obj_to_char( obj, ch );
  1294.     equip_char( ch, obj, WEAR_BODY );
  1296.     obj = create_object( get_obj_index(OBJ_VNUM_SCHOOL_SHIELD), 0 );
  1297.     obj_to_char( obj, ch );
  1298.     equip_char( ch, obj, WEAR_SHIELD );
  1300.     obj = create_object( get_obj_index(class_table[ch->class].weapon),
  1301. 0 );
  1302.     obj_to_char( obj, ch );
  1303.     equip_char( ch, obj, WEAR_WIELD );
  1305.     char_to_room( ch, get_room_index( ROOM_VNUM_SCHOOL ) );
  1306. }
  1307. else if ( ch->in_room != NULL )
  1308. {
  1309.     char_to_room( ch, ch->in_room );
  1310. }
  1311. else if ( IS_IMMORTAL(ch) )
  1312. {
  1313.     char_to_room( ch, get_room_index( ROOM_VNUM_CHAT ) );
  1314. }
  1315. else
  1316. {
  1317.     char_to_room( ch, get_room_index( ROOM_VNUM_TEMPLE ) );
  1318. }
  1320. act( "$n has entered the game.", ch, NULL, NULL, TO_ROOM );
  1321. do_look( ch, "auto" );
  1322. /* check for new notes */
  1323. notes = 0;
  1325. for ( pnote = note_list; pnote != NULL; pnote = pnote->next )
  1326.     if ( is_note_to( ch, pnote ) && str_cmp( ch->name, pnote->sender )
  1327. && pnote->date_stamp > ch->last_note )
  1328.         notes++;
  1330. if ( notes == 1 )
  1331.     send_to_char( "nrYou have one new note waiting.nr", ch );
  1332. else
  1333.     if ( notes > 1 )
  1334.     {
  1335. sprintf( buf, "nrYou have %d new notes waiting.nr",
  1336. notes );
  1337. send_to_char( buf, ch );
  1338.     }
  1340. break;
  1341.     }
  1343.     return;
  1344. }
  1348. /*
  1349.  * Parse a name for acceptability.
  1350.  */
  1351. bool check_parse_name( char *name )
  1352. {
  1353.     /*
  1354.      * Reserved words.
  1355.      */
  1356.     if ( is_name( name, "all auto immortal self someone" ) )
  1357. return FALSE;
  1359.     /*
  1360.      * Length restrictions.
  1361.      */
  1362.     if ( strlen(name) <  3 )
  1363. return FALSE;
  1365. #if defined(MSDOS)
  1366.     if ( strlen(name) >  8 )
  1367. return FALSE;
  1368. #endif
  1370. #if defined(macintosh) || defined(unix)
  1371.     if ( strlen(name) > 12 )
  1372. return FALSE;
  1373. #endif
  1375.     /*
  1376.      * Alphanumerics only.
  1377.      * Lock out IllIll twits.
  1378.      */
  1379.     {
  1380. char *pc;
  1381. bool fIll;
  1383. fIll = TRUE;
  1384. for ( pc = name; *pc != ''; pc++ )
  1385. {
  1386.     if ( !isalpha(*pc) )
  1387. return FALSE;
  1388.     if ( LOWER(*pc) != 'i' && LOWER(*pc) != 'l' )
  1389. fIll = FALSE;
  1390. }
  1392. if ( fIll )
  1393.     return FALSE;
  1394.     }
  1396.     /*
  1397.      * Prevent players from naming themselves after mobs.
  1398.      */
  1399.     {
  1400. extern MOB_INDEX_DATA *mob_index_hash[MAX_KEY_HASH];
  1401. MOB_INDEX_DATA *pMobIndex;
  1402. int iHash;
  1404. for ( iHash = 0; iHash < MAX_KEY_HASH; iHash++ )
  1405. {
  1406.     for ( pMobIndex  = mob_index_hash[iHash];
  1407.   pMobIndex != NULL;
  1408.   pMobIndex  = pMobIndex->next )
  1409.     {
  1410. if ( is_name( name, pMobIndex->player_name ) )
  1411.     return FALSE;
  1412.     }
  1413. }
  1414.     }
  1416.     return TRUE;
  1417. }
  1421. /*
  1422.  * Look for link-dead player to reconnect.
  1423.  */
  1424. bool check_reconnect( DESCRIPTOR_DATA *d, char *name, bool fConn )
  1425. {
  1426.     CHAR_DATA *ch;
  1427.     OBJ_DATA *obj;
  1429.     for ( ch = char_list; ch != NULL; ch = ch->next )
  1430.     {
  1431. if ( !IS_NPC(ch)
  1432. && ( !fConn || ch->desc == NULL )
  1433. &&   !str_cmp( d->character->name, ch->name ) )
  1434. {
  1435.     if ( fConn == FALSE )
  1436.     {
  1437. free_string( d->character->pcdata->pwd );
  1438. d->character->pcdata->pwd = str_dup( ch->pcdata->pwd );
  1439.     }
  1440.     else
  1441.     {
  1442. free_char( d->character );
  1443. d->character = ch;
  1444. ch->desc  = d;
  1445. ch->timer  = 0;
  1446. send_to_char( "Reconnecting.nr", ch );
  1447. act( "$n has reconnected.", ch, NULL, NULL, TO_ROOM );
  1448. sprintf( log_buf, "%s@%s reconnected.", ch->name, d->host );
  1449. log_string( log_buf );
  1450. d->connected = CON_PLAYING;
  1452. /*
  1453.  * Contributed by Gene Choi
  1454.  */
  1455. if ( ( obj = get_eq_char( ch, WEAR_LIGHT ) ) != NULL
  1456.     && obj->item_type == ITEM_LIGHT
  1457.     && obj->value[2] != 0
  1458.     && ch->in_room != NULL )
  1459.     ++ch->in_room->light;
  1460.     }
  1461.     return TRUE;
  1462. }
  1463.     }
  1465.     return FALSE;
  1466. }
  1470. /*
  1471.  * Check if already playing.
  1472.  */
  1473. bool check_playing( DESCRIPTOR_DATA *d, char *name )
  1474. {
  1475.     DESCRIPTOR_DATA *dold;
  1477.     for ( dold = descriptor_list; dold; dold = dold->next )
  1478.     {
  1479. if ( dold != d
  1480. &&   dold->character != NULL
  1481. &&   dold->connected != CON_GET_NAME
  1482. &&   dold->connected != CON_GET_OLD_PASSWORD
  1483. &&   !str_cmp( name, dold->original
  1484.          ? dold->original->name : dold->character->name ) )
  1485. {
  1486.     write_to_buffer( d, "Already playing.nrName: ", 0 );
  1487.     d->connected = CON_GET_NAME;
  1488.     if ( d->character != NULL )
  1489.     {
  1490. free_char( d->character );
  1491. d->character = NULL;
  1492.     }
  1493.     return TRUE;
  1494. }
  1495.     }
  1497.     return FALSE;
  1498. }
  1502. void stop_idling( CHAR_DATA *ch )
  1503. {
  1504.     if ( ch == NULL
  1505.     ||   ch->desc == NULL
  1506.     ||   ch->desc->connected != CON_PLAYING
  1507.     ||   ch->was_in_room == NULL
  1508.     ||   ch->in_room != get_room_index( ROOM_VNUM_LIMBO ) )
  1509. return;
  1511.     ch->timer = 0;
  1512.     char_from_room( ch );
  1513.     char_to_room( ch, ch->was_in_room );
  1514.     ch->was_in_room = NULL;
  1515.     act( "$n has returned from the void.", ch, NULL, NULL, TO_ROOM );
  1516.     return;
  1517. }
  1519. /*
  1520.  * Low level output function.
  1521.  */
  1522. bool process_output( DESCRIPTOR_DATA *d, bool fPrompt )
  1523. {
  1524.     extern bool merc_down;
  1526.     /*
  1527.      * Bust a prompt.
  1528.      */
  1529.     if ( fPrompt && !merc_down && d->connected == CON_PLAYING )
  1530.         if ( d->showstr_point )
  1531.     write_to_buffer( d,
  1532.   "[Please type (c)ontinue, (r)efresh, (b)ack, (h)elp, (q)uit, or RETURN]:  ",
  1533.     0 );
  1534. else
  1535. {
  1536.     CHAR_DATA *ch;
  1538.     ch = d->original ? d->original : d->character;
  1539.     if ( IS_SET(ch->act, PLR_BLANK) )
  1540.         write_to_buffer( d, "nr", 2 );
  1542.     if ( IS_SET(ch->act, PLR_PROMPT) )
  1543.         bust_a_prompt( ch );
  1545.     if ( IS_SET(ch->act, PLR_TELNET_GA) )
  1546.         write_to_buffer( d, go_ahead_str, 0 );
  1547. }
  1549.     /*
  1550.      * Short-circuit if nothing to write.
  1551.      */
  1552.     if ( d->outtop == 0 )
  1553. return TRUE;
  1555.     /*
  1556.      * Snoop-o-rama.
  1557.      */
  1558.     if ( d->snoop_by != NULL )
  1559.     {
  1560. write_to_buffer( d->snoop_by, "% ", 2 );
  1561. write_to_buffer( d->snoop_by, d->outbuf, d->outtop );
  1562.     }
  1564.     /*
  1565.      * OS-dependent output.
  1566.      */
  1567.     if ( !write_to_descriptor( d->descriptor, d->outbuf, d->outtop ) )
  1568.     {
  1569. d->outtop = 0;
  1570. return FALSE;
  1571.     }
  1572.     else
  1573.     {
  1574. d->outtop = 0;
  1575. return TRUE;
  1576.     }
  1577. }
  1579. /*
  1580.  * Bust a prompt (player settable prompt)
  1581.  * coded by Morgenes for Aldara Mud
  1582.  */
  1583. void bust_a_prompt( CHAR_DATA *ch )
  1584. {
  1585.    char buf[MAX_STRING_LENGTH];
  1586.    char buf2[MAX_STRING_LENGTH];
  1587.    const char *str;
  1588.    const char *i;
  1589.    char *point;
  1591.    if( ch->prompt == NULL || ch->prompt[0] == '' )
  1592.    {
  1593.       send_to_char( "nrnr", ch );
  1594.       return;
  1595.    }
  1597.    point = buf;
  1598.    str = ch->prompt;
  1599.    while( *str != '' )
  1600.    {
  1601.       if( *str != '%' )
  1602.       {
  1603.          *point++ = *str++;
  1604.          continue;
  1605.       }
  1606.       ++str;
  1607.       switch( *str )
  1608.       {
  1609.          default :
  1610.             i = " "; break;
  1611.          case 'h' :
  1612.             sprintf( buf2, "%d", ch->hit );
  1613.             i = buf2; break;
  1614.          case 'H' :
  1615.             sprintf( buf2, "%d", ch->max_hit );
  1616.             i = buf2; break;
  1617.          case 'm' :
  1618.             sprintf( buf2, "%d", ch->mana );
  1619.             i = buf2; break;
  1620.          case 'M' :
  1621.             sprintf( buf2, "%d", ch->max_mana );
  1622.             i = buf2; break;
  1623.          case 'v' :
  1624.             sprintf( buf2, "%d", ch->move );
  1625.             i = buf2; break;
  1626.          case 'V' :
  1627.             sprintf( buf2, "%d", ch->max_move );
  1628.             i = buf2; break;
  1629.          case 'x' :
  1630.             sprintf( buf2, "%d", ch->exp );
  1631.             i = buf2; break;
  1632.          case 'g' :
  1633.             sprintf( buf2, "%d", ch->gold);
  1634.             i = buf2; break;
  1635.          case 'a' :
  1636.             if( ch->level < 5 )
  1637.                sprintf( buf2, "%d", ch->alignment );
  1638.             else
  1639.                sprintf( buf2, "%s", IS_GOOD(ch) ? "good" : IS_EVIL(ch) ? 
  1640.                 "evil" : "neutral" );
  1641.             i = buf2; break;
  1642.          case 'r' :
  1643.             if( ch->in_room != NULL )
  1644.                sprintf( buf2, "%s", ch->in_room->name );
  1645.             else
  1646.                sprintf( buf2, " " );
  1647.             i = buf2; break;
  1648.          case 'R' :
  1649.             if( IS_IMMORTAL( ch ) && ch->in_room != NULL )
  1650.                sprintf( buf2, "%d", ch->in_room->vnum );
  1651.             else
  1652.                sprintf( buf2, " " );
  1653.             i = buf2; break;
  1654.          case 'z' :
  1655.             if( IS_IMMORTAL( ch ) && ch->in_room != NULL )
  1656.                sprintf( buf2, "%s", ch->in_room->area->name );
  1657.             else
  1658.                sprintf( buf2, " " );
  1659.             i = buf2; break;
  1660.          case '%' :
  1661.             sprintf( buf2, "%%" );
  1662.             i = buf2; break;
  1663.       } 
  1664.       ++str;
  1665.       while( (*point = *i) != '' )
  1666.          ++point, ++i;
  1667.    }
  1668.    write_to_buffer( ch->desc, buf, point - buf );
  1669.    return;
  1670. }
  1672. /* The heart of the pager.  Thanks to N'Atas-Ha, ThePrincedom
  1673.    for porting this SillyMud code for MERC 2.0 and laying down the groundwork.
  1674.    Thanks to Blackstar, hopper.cs.uiowa.edu 4000 for which
  1675.    the improvements to the pager was modeled from.  - Kahn */
  1677. void show_string(struct descriptor_data *d, char *input)
  1678. {
  1679.   char buffer[ MAX_STRING_LENGTH ];
  1680.   char buf[ MAX_INPUT_LENGTH ];
  1681.   register char *scan, *chk;
  1682.   int lines = 0, toggle=1;
  1684.   one_argument(input, buf);
  1686.   switch( UPPER( buf[0] ) )
  1687.   {
  1688.   case '':
  1689.   case 'C': /* show next page of text */
  1690.     lines = 0;
  1691.     break;
  1693.   case 'R': /* refresh current page of text */
  1694.     lines = - 1 - (d->character->pcdata->pagelen);
  1695.     break;
  1697.   case 'B': /* scroll back a page of text */
  1698.     lines = -(2*d->character->pcdata->pagelen);
  1699.     break;
  1701.   case 'H': /* Show some help */
  1702.     write_to_buffer( d,
  1703.         "C, or Return = continue, R = redraw this page,nr", 0 );
  1704.     write_to_buffer( d,
  1705.         "B = back one page, H = this help, Q or other keys = exit.nrnr",
  1706.     0 );
  1707.     lines = - 1 - (d->character->pcdata->pagelen);
  1708.     break;
  1710.   default: /*otherwise, stop the text viewing */
  1711.     if ( d->showstr_head )
  1712.     {
  1713.       free_string( d->showstr_head );
  1714.       d->showstr_head  = 0;
  1715.     }
  1716.     d->showstr_point = 0;
  1717.     return;
  1719.   }
  1721.   /* do any backing up necessary */
  1722.   if (lines < 0)
  1723.   {
  1724.     for ( scan = d->showstr_point; scan > d->showstr_head; scan-- )
  1725.          if ( ( *scan == 'n' ) || ( *scan == 'r' ) )
  1726.  {
  1727.      toggle = -toggle;
  1728.      if ( toggle < 0 )
  1729.          if ( !( ++lines ) )
  1730.      break;
  1731.  }
  1732.     d->showstr_point = scan;
  1733.   }
  1735.   /* show a chunk */
  1736.   lines  = 0;
  1737.   toggle = 1;
  1738.   for ( scan = buffer; ; scan++, d->showstr_point++ )
  1739.        if ( ( ( *scan = *d->showstr_point ) == 'n' || *scan == 'r' )
  1740.    && ( toggle = -toggle ) < 0 )
  1741.    lines++;
  1742.        else
  1743.    if ( !*scan || ( d->character && !IS_NPC( d->character )
  1744.   && lines >= d->character->pcdata->pagelen) )
  1745.    {
  1747.        *scan = '';
  1748.        write_to_buffer( d, buffer, strlen( buffer ) );
  1750.      /* See if this is the end (or near the end) of the string */
  1751.        for ( chk = d->showstr_point; isspace( *chk ); chk++ );
  1752.        if ( !*chk )
  1753.        {
  1754.    if ( d->showstr_head )
  1755.    {
  1756.       free_string( d->showstr_head );
  1757.       d->showstr_head  = 0;
  1758.    }
  1759.    d->showstr_point = 0;
  1760.        }
  1761.        return;
  1762.    }
  1764. //@@@  return;
  1765. }