/*************************************************************************** * Original Diku Mud copyright (C) 1990, 1991 by Sebastian Hammer, * * Michael Seifert, Hans Henrik St{rfeldt, Tom Madsen, and Katja Nyboe. * * * * Merc Diku Mud improvments copyright (C) 1992, 1993 by Michael * * Chastain, Michael Quan, and Mitchell Tse. * * * * Envy Diku Mud improvements copyright (C) 1994 by Michael Quan, David * * Love, Guilherme 'Willie' Arnold, and Mitchell Tse. * * * * In order to use any part of this Envy Diku Mud, you must comply with * * the original Diku license in 'license.doc', the Merc license in * * 'license.txt', as well as the Envy license in 'license.nvy'. * * In particular, you may not remove either of these copyright notices. * * * * Thanks to abaddon for proof-reading our comm.c and pointing out bugs. * * Any remaining bugs are, of course, our work, not his. :) * * * * Much time and thought has gone into this software and you are * * benefitting. We hope that you share your changes too. What goes * * around, comes around. * ***************************************************************************/ /*$Id: comm.c,v 1.65 2005/03/30 15:18:27 ahsile Exp $*/ /* * This file contains all of the OS-dependent stuff: * startup, signals, BSD sockets for tcp/ip, i/o, timing. * * The data flow for input is: * Game_loop ---> Read_from_descriptor ---> Read * Game_loop ---> Read_from_buffer * * The data flow for output is: * Game_loop ---> Process_Output ---> Write_to_descriptor -> Write * * The OS-dependent functions are Read_from_descriptor and Write_to_descriptor. * -- Furey 26 Jan 1993 */ //#define RUN_AS_WIN32SERVICE // Only Uncomment for windows. // Unfortunately, this has to be // defined here because windows.h // doesn't like to be included // after merc.h. #ifdef RUN_AS_WIN32SERVICE #include <winsock2.h> #include <direct.h> #endif #if defined( macintosh ) #include <types.h> #endif #if defined ( linux ) || defined( unix) #include <sys/types.h> #include <sys/time.h> #endif #include <ctype.h> #include <errno.h> #include <stdio.h> #include <stdlib.h> #include <string.h> #include <time.h> #include "merc.h" #define FLAG_WRAUTH 1 #define FLAG_AUTH 2 /* * Signal handling. * Apollo has a problem with __attribute( atomic ) in signal.h, * I dance around it. */ #if defined( apollo ) #define __attribute( x ) #endif #if defined( unix ) #include <signal.h> #endif #if defined( apollo ) #undef __attribute #endif /* * Socket and TCP/IP stuff. */ #if defined( macintosh ) || defined( MSDOS ) || defined(RUN_AS_WIN32SERVICE) /* const char echo_off_str [] = { '\0' }; const char echo_on_str [] = { '\0' }; const char go_ahead_str [] = { '\0' }; */ /* Manually ripped these from arpa/telnet.h - Ahsile */ #define TELOPT_ECHO 1 #define GA 249 #define WILL 251 #define WONT 252 #define IAC 255 #pragma warning( disable : 4305 ) const char echo_off_str [] = { IAC, WILL, TELOPT_ECHO, '\0' }; const char echo_on_str [] = { IAC, WONT, TELOPT_ECHO, '\0' }; const char go_ahead_str [] = { IAC, GA, '\0' }; #endif #if defined( unix ) #include <fcntl.h> #include <netdb.h> #include <netinet/in.h> #include <sys/socket.h> #include <arpa/telnet.h> const char echo_off_str [] = { IAC, WILL, TELOPT_ECHO, '\0' }; const char echo_on_str [] = { IAC, WONT, TELOPT_ECHO, '\0' }; const char go_ahead_str [] = { IAC, GA, '\0' }; #endif /* * OS-dependent declarations. */ #if defined( _AIX ) #include <sys/select.h> int accept args( ( int s, struct sockaddr *addr, int *addrlen ) ); int bind args( ( int s, struct sockaddr *name, int namelen ) ); void bzero args( ( char *b, int length ) ); int getpeername args( ( int s, struct sockaddr *name, int *namelen ) ); int getsockname args( ( int s, struct sockaddr *name, int *namelen ) ); int gettimeofday args( ( struct timeval *tp, struct timezone *tzp ) ); int listen args( ( int s, int backlog ) ); int setsockopt args( ( int s, int level, int optname, void *optval, int optlen ) ); int socket args( ( int domain, int type, int protocol ) ); #endif #if defined( irix ) void bzero args( ( char *b, int length ) ); int read args( ( int fd, char *buf, int nbyte ) ); int write args( ( int fd, char *buf, int nbyte ) ); int close args( ( int fd ) ); int select args( ( int width, fd_set *readfds, fd_set *writefds, fd_set *exceptfds, struct timeval *timeout ) ); #endif #if defined( apollo ) #include <unistd.h> void bzero args( ( char *b, int length ) ); #endif #if defined( __hpux ) int accept args( ( int s, void *addr, int *addrlen ) ); int bind args( ( int s, const void *addr, int addrlen ) ); void bzero args( ( char *b, int length ) ); int getpeername args( ( int s, void *addr, int *addrlen ) ); int getsockname args( ( int s, void *name, int *addrlen ) ); int gettimeofday args( ( struct timeval *tp, struct timezone *tzp ) ); int listen args( ( int s, int backlog ) ); int setsockopt args( ( int s, int level, int optname, const void *optval, int optlen ) ); int socket args( ( int domain, int type, int protocol ) ); #endif #if defined( interactive ) #include <net/errno.h> #include <sys/fcntl.h> #endif // Removed by Ahsile for CygWin #if defined( linux ) || defined( RUN_AS_WIN32SERVICE ) int close args( ( int fd ) ); int gettimeofday args( ( struct timeval *tp, struct timezone *tzp ) ); //int listen args( ( int s, int backlog ) ); int _select args( ( int width, fd_set *readfds, fd_set *writefds, fd_set *exceptfds, struct timeval *timeout ) ); int _socket args( ( int domain, int type, int protocol ) ); extern void read_auth args( ( struct descriptor_data *d ) );/* TRI */ extern void send_auth args( ( struct descriptor_data *d ) );/* TRI */ extern void start_auth args( ( struct descriptor_data *d ) ); /* TRI */ bool check_ban args( ( struct descriptor_data *dnew, bool loggedin ) ); extern void userl_update args( ( struct descriptor_data *d, bool login ) ); #endif #ifdef RUN_AS_WIN32SERVICE int _read args( ( int fd, char *buf, int nbyte ) ); int _write args( ( int fd, char *buf, int nbyte ) ); #endif #ifdef linux int listen args( ( int s, int backlog ) ); int read args( ( int fd, char *buf, int nbyte ) ); int write args( ( int fd, char *buf, int nbyte ) ); #endif #if defined( macintosh ) #include <console.h> #include <fcntl.h> #include <unix.h> struct timeval { time_t tv_sec; time_t tv_usec; }; #if !defined( isascii ) #define isascii( c ) ( ( c ) < 0200 ) #endif static long theKeys [4]; int gettimeofday args( ( struct timeval *tp, void *tzp ) ); #endif #if defined( MIPS_OS ) extern int errno; #endif #if defined( MSDOS ) int gettimeofday args( ( struct timeval *tp, struct timezone *tzp ) ); /* JWD */ int kbhit args( ( void ) ); #endif #if defined( NeXT ) int close args( ( int fd ) ); int fcntl args( ( int fd, int cmd, int arg ) ); #if !defined( htons ) u_short htons args( ( u_short hostshort ) ); #endif #if !defined( ntohl ) u_long ntohl args( ( u_long hostlong ) ); #endif int read args( ( int fd, char *buf, int nbyte ) ); int select args( ( int width, fd_set *readfds, fd_set *writefds, fd_set *exceptfds, struct timeval *timeout ) ); int write args( ( int fd, char *buf, int nbyte ) ); #endif #if defined( sequent ) int accept args( ( int s, struct sockaddr *addr, int *addrlen ) ); int bind args( ( int s, struct sockaddr *name, int namelen ) ); int close args( ( int fd ) ); int fcntl args( ( int fd, int cmd, int arg ) ); int getpeername args( ( int s, struct sockaddr *name, int *namelen ) ); int getsockname args( ( int s, struct sockaddr *name, int *namelen ) ); int gettimeofday args( ( struct timeval *tp, struct timezone *tzp ) ); #if !defined( htons ) u_short htons args( ( u_short hostshort ) ); #endif int listen args( ( int s, int backlog ) ); #if !defined( ntohl ) u_long ntohl args( ( u_long hostlong ) ); #endif int read args( ( int fd, char *buf, int nbyte ) ); int select args( ( int width, fd_set *readfds, fd_set *writefds, fd_set *exceptfds, struct timeval *timeout ) ); int setsockopt args( ( int s, int level, int optname, caddr_t optval, int optlen ) ); int socket args( ( int domain, int type, int protocol ) ); int write args( ( int fd, char *buf, int nbyte ) ); #endif /* * This includes Solaris SYSV as well */ #if defined( sun ) int accept args( ( int s, struct sockaddr *addr, int *addrlen ) ); int bind args( ( int s, struct sockaddr *name, int namelen ) ); void bzero args( ( char *b, int length ) ); int close args( ( int fd ) ); int getpeername args( ( int s, struct sockaddr *name, int *namelen ) ); int getsockname args( ( int s, struct sockaddr *name, int *namelen ) ); int gettimeofday args( ( struct timeval *tp, struct timezone *tzp ) ); int listen args( ( int s, int backlog ) ); int read args( ( int fd, char *buf, int nbyte ) ); int select args( ( int width, fd_set *readfds, fd_set *writefds, fd_set *exceptfds, struct timeval *timeout ) ); #if defined( SYSV ) int setsockopt args( ( int s, int level, int optname, const char *optval, int optlen ) ); #else int setsockopt args( ( int s, int level, int optname, void *optval, int optlen ) ); #endif int socket args( ( int domain, int type, int protocol ) ); int write args( ( int fd, char *buf, int nbyte ) ); #endif #if defined( ultrix ) int accept args( ( int s, struct sockaddr *addr, int *addrlen ) ); int bind args( ( int s, struct sockaddr *name, int namelen ) ); void bzero args( ( char *b, int length ) ); int close args( ( int fd ) ); int getpeername args( ( int s, struct sockaddr *name, int *namelen ) ); int getsockname args( ( int s, struct sockaddr *name, int *namelen ) ); int gettimeofday args( ( struct timeval *tp, struct timezone *tzp ) ); int listen args( ( int s, int backlog ) ); int read args( ( int fd, char *buf, int nbyte ) ); int select args( ( int width, fd_set *readfds, fd_set *writefds, fd_set *exceptfds, struct timeval *timeout ) ); int setsockopt args( ( int s, int level, int optname, void *optval, int optlen ) ); int socket args( ( int domain, int type, int protocol ) ); int write args( ( int fd, char *buf, int nbyte ) ); #endif /* * Global variables. */ DESCRIPTOR_DATA * descriptor_free; /* Free list for descriptors */ DESCRIPTOR_DATA * descriptor_list; /* All open descriptors */ DESCRIPTOR_DATA * d_next; /* Next descriptor in loop */ FILE * fpReserve; /* Reserved file handle */ bool merc_down; /* Shutdown */ bool wizlock; /* Game is wizlocked */ int numlock = 0; /* Game is numlocked at <level> */ int iRace; char str_boot_time [ MAX_INPUT_LENGTH ]; time_t current_time; /* Time of this pulse */ /* * OS-dependent local functions. */ #if defined( macintosh ) || defined( MSDOS ) void game_loop_mac_msdos args( ( void ) ); bool read_from_descriptor args( ( DESCRIPTOR_DATA *d ) ); bool write_to_descriptor args( ( int desc, char *txt, int length, CHAR_DATA *ch ) ); #endif #if defined( unix ) || defined (RUN_AS_WIN32SERVICE) void game_loop_unix args( ( unsigned int control ) ); int init_socket args( ( int port ) ); void new_descr args( ( int control ) ); bool read_from_descriptor args( ( DESCRIPTOR_DATA *d ) ); bool write_to_descriptor args( ( int desc, char *txt, int length, DESCRIPTOR_DATA *d ) ); #endif /* * Other local functions (OS-independent). */ bool check_parse_name args( ( char *name ) ); bool check_reconnect args( ( DESCRIPTOR_DATA *d, char *name, bool fConn ) ); bool check_playing args( ( DESCRIPTOR_DATA *d, char *name ) ); int main args( ( int argc, char **argv ) ); void nanny args( ( DESCRIPTOR_DATA *d, char *argument ) ); bool process_output args( ( DESCRIPTOR_DATA *d, bool fPrompt ) ); void read_from_buffer args( ( DESCRIPTOR_DATA *d ) ); void stop_idling args( ( CHAR_DATA *ch ) ); void bust_a_prompt args( ( DESCRIPTOR_DATA *d ) ); void bust_a_color_prompt args( ( DESCRIPTOR_DATA *d ) ); /* Semi-local functions that arent OS dependant.. :).. -- Altrag */ void note_cleanup args( ( void ) ); int port; int maxdesc; int ch_invcount args( ( CHAR_DATA* ch ) ); char *initial args( ( const char *str ) ); #if defined( unix ) || defined(RUN_AS_WIN32SERVICE) int init_socket( int port ) { static struct sockaddr_in sa_zero; struct sockaddr_in sa; int x = 1; int fd; #if !defined(RUN_AS_WIN32SERVICE) if ( ( fd = socket( AF_INET, SOCK_STREAM, 0 ) ) < 0 ) #else WSADATA wsaData; WSAStartup(0x202,&wsaData); if ( ( fd = socket( AF_INET, SOCK_STREAM, IPPROTO_TCP ) ) < 0 ) #endif { perror( "Init_socket: socket" ); ___exit( 0 ); } if ( setsockopt( fd, SOL_SOCKET, SO_REUSEADDR, (char *) &x, sizeof( x ) ) < 0 ) { perror( "Init_socket: SO_REUSEADDR" ); close( fd ); ___exit( 0 ); } #if defined( SO_DONTLINGER ) && !defined( SYSV ) { struct linger ld; ld.l_onoff = 1; ld.l_linger = 1000; if ( setsockopt( fd, SOL_SOCKET, SO_DONTLINGER, (char *) &ld, sizeof( ld ) ) < 0 ) { perror( "Init_socket: SO_DONTLINGER" ); close( fd ); ___exit( 0 ); } } #endif sa = sa_zero; sa.sin_family = AF_INET; sa.sin_port = htons( (unsigned short) port ); if ( bind( fd, (struct sockaddr *) &sa, sizeof( sa ) ) < 0 ) { perror( "Init_socket: bind" ); close( fd ); ___exit( 0 ); } if ( listen( fd, 3 ) < 0 ) { perror( "Init_socket: listen" ); close( fd ); ___exit( 0 ); } return fd; } #endif #if defined( macintosh ) || defined( MSDOS ) void game_loop_mac_msdos( void ) { static DESCRIPTOR_DATA dcon; struct timeval last_time; struct timeval now_time; gettimeofday( &last_time, NULL ); current_time = (time_t) last_time.tv_sec; /* * New_descriptor analogue. */ dcon.descriptor = 0; dcon.character = NULL; dcon.connected = CON_GET_NAME; dcon.host = str_dup( "localhost" ); dcon.outsize = 2000; dcon.outbuf = alloc_mem( dcon.outsize ); dcon.showstr_head = str_dup( "" ); dcon.showstr_point = 0; dcon.pEdit = NULL; /* OLC */ dcon.pString = NULL; /* OLC */ dcon.editor = 0; /* OLC */ dcon.next = descriptor_list; descriptor_list = &dcon; /* * Send the greeting. */ { extern char * help_greeting_one; extern char * help_greeting_two; extern char * help_greeting_three; extern char * help_greeting_four; extern char * help_greeting_five; /* if ( help_greeting[0] == '.' ) write_to_buffer( &dcon, help_greeting+1, 0 ); else write_to_buffer( &dcon, help_greeting , 0 ); */ switch number_range(1, 5) { case 1: write_to_buffer( &dcon, help_greeting_one, 0 ); case 2: write_to_buffer( &dcon, help_greeting_two, 0 ); case 3: write_to_buffer( &dcon, help_greeting_three, 0 ); case 4: write_to_buffer( &dcon, help_greeting_four, 0 ); case 5: write_to_buffer( &dcon, help_greeting_five, 0 ); } } /* Main loop */ while ( !merc_down ) { DESCRIPTOR_DATA *d; /* * Process input. */ for ( d = descriptor_list; d; d = d_next ) { d_next = d->next; d->fcommand = FALSE; #if defined( MSDOS ) if ( kbhit( ) ) #endif { if ( d->character ) d->character->timer = 0; if ( !read_from_descriptor( d ) ) { if ( d->character ) save_char_obj( d->character, FALSE ); d->outtop = 0; close_socket( d ); continue; } } if ( d->character && d->character->wait > 0 ) { --d->character->wait; continue; } read_from_buffer( d ); if ( d->incomm[0] != '\0' ) { d->fcommand = TRUE; stop_idling( d->character ); /* OLC */ if ( d->showstr_point ) show_string( d, d->incomm ); else if ( d->pString ) string_add( d->character, d->incomm ); else if ( d->connected == CON_PLAYING ) { if ( !run_olc_editor( d ) ) interpret( d->character, d->incomm ); } else nanny( d, d->incomm ); d->incomm[0] = '\0'; } } /* * Autonomous game motion. */ update_handler( ); /* * Output. */ for ( d = descriptor_list; d; d = d_next ) { d_next = d->next; if ( ( d->fcommand || d->outtop > 0 ) ) { if ( !process_output( d, TRUE ) ) { if ( d->character ) save_char_obj( d->character, FALSE ); d->outtop = 0; close_socket( d ); } } } /* * Synchronize to a clock. * Busy wait (blargh). */ now_time = last_time; for ( ; ; ) { int delta; #if defined( MSDOS ) if ( kbhit( ) ) #endif { if ( dcon.character ) dcon.character->timer = 0; if ( !read_from_descriptor( &dcon ) ) { if ( dcon.character ) save_char_obj( d->character, FALSE ); dcon.outtop = 0; close_socket( &dcon ); } #if defined( MSDOS ) break; #endif } gettimeofday( &now_time, NULL ); delta = ( now_time.tv_sec - last_time.tv_sec ) * 1000 * 1000 + ( now_time.tv_usec - last_time.tv_usec ); if ( delta >= 1000000 / PULSE_PER_SECOND ) break; } last_time = now_time; current_time = (time_t) last_time.tv_sec; } return; } #endif #if defined( unix ) || defined(RUN_AS_WIN32SERVICE) void game_loop_unix( unsigned int control ) { static struct timeval null_time; struct timeval last_time; #ifndef RUN_AS_WIN32SERVICE signal( SIGPIPE, SIG_IGN ); #endif gettimeofday( &last_time, NULL ); current_time = (time_t) last_time.tv_sec; /* Main loop */ while ( !merc_down ) { DESCRIPTOR_DATA *d; fd_set in_set; fd_set out_set; fd_set exc_set; /* * Poll all active descriptors. */ FD_ZERO( &in_set ); FD_ZERO( &out_set ); FD_ZERO( &exc_set ); FD_SET( control, &in_set ); maxdesc = control; for ( d = descriptor_list; d; d = d->next ) { maxdesc = UMAX( maxdesc, (int) d->descriptor ); FD_SET( d->descriptor, &in_set ); FD_SET( d->descriptor, &out_set ); FD_SET( d->descriptor, &exc_set ); } #if defined(RUN_AS_WIN32SERVICE) if ( select( 0, &in_set, &out_set, &exc_set, &null_time ) < 0 ) #else if ( select( maxdesc+1, &in_set, &out_set, &exc_set, &null_time ) < 0 ) #endif { continue; // attempt to fix things //perror( "Game_loop: select: poll" ); //___exit( 0 ); } /* * New connection? */ if ( FD_ISSET( control, &in_set ) ) new_descr( control ); /* * Kick out the freaky folks. */ for ( d = descriptor_list; d; d = d_next ) { d_next = d->next; if ( FD_ISSET( d->descriptor, &exc_set ) ) { FD_CLR( d->descriptor, &in_set ); FD_CLR( d->descriptor, &out_set ); if ( d->character ) save_char_obj( d->character, FALSE ); d->outtop = 0; close_socket( d ); continue; } if ( ( d->auth_fd == -1 ) && ( d->atimes < 70 ) && !str_cmp( d->user, "(unknown)" ) ) { start_auth( d ); continue; } if ( d->auth_fd == -1 ) continue; if ( FD_ISSET( d->descriptor, &in_set ) ) { read_auth( d ); if ( !d->auth_state ) check_ban( d, TRUE ); } else if ( ( FD_ISSET( d->descriptor, &out_set ) ) && IS_SET( d->auth_state, FLAG_WRAUTH ) ) { send_auth( d ); if ( !d->auth_state ) check_ban( d, TRUE ); } } /* * Process input. */ for ( d = descriptor_list; d; d = d_next ) { d_next = d->next; d->fcommand = FALSE; if ( FD_ISSET( d->descriptor, &in_set ) ) { if ( d->character ) d->character->timer = 0; if ( !read_from_descriptor( d ) ) { FD_CLR( d->descriptor, &out_set ); if ( d->character ) save_char_obj( d->character, FALSE ); d->outtop = 0; close_socket( d ); continue; } } if ( d->character && d->character->wait > 0 ) { --d->character->wait; continue; } read_from_buffer( d ); if ( d->incomm[0] != '\0' ) { d->fcommand = TRUE; stop_idling( d->character ); /* OLC */ if ( d->showstr_point ) show_string( d, d->incomm ); else if ( d->pString ) string_add( d->character, d->incomm ); else { char buf[MAX_INPUT_LENGTH]; char buf2[MAX_STRING_LENGTH]; FILE *fp; sprintf( buf, "comlog%d.txt", port ); /* sprintf( buf2, "%s: %s: %s\n", ctime( ¤t_time ), d->character ? d->character->name : "(Unknown)", d->incomm ); */ sprintf( buf2, "%s: %s\n", d->character ? d->character->name : "(Unknown)", d->incomm ); log_string( buf2, CHANNEL_COMLOG, L_CON); fclose(fpReserve); if ( (fp = fopen( buf, "a" ) ) ) { fprintf( fp, "%s: %s: %s\n", ctime( ¤t_time ), d->character ? d->character->name : "(Unknown)", d->incomm ); fclose(fp); } fpReserve = fopen( NULL_FILE, "r" ); if ( d->connected == CON_PLAYING ) { if ( !run_olc_editor( d ) ) interpret( d->character, d->incomm ); } else nanny( d, d->incomm ); } d->incomm[0] = '\0'; } } /* * Autonomous game motion. */ update_handler( ); /* * Output. */ for ( d = descriptor_list; d; d = d_next ) { d_next = d->next; if ( ( d->fcommand || d->outtop > 0 ) && FD_ISSET( d->descriptor, &out_set ) ) { if ( !process_output( d, TRUE ) ) { if ( d->character ) save_char_obj( d->character, FALSE ); d->outtop = 0; close_socket( d ); } } } /* * Synchronize to a clock. * Sleep( last_time + 1/PULSE_PER_SECOND - now ). * Careful here of signed versus unsigned arithmetic. */ { struct timeval now_time; long secDelta; long usecDelta; gettimeofday( &now_time, NULL ); usecDelta = ( (int) last_time.tv_usec ) - ( (int) now_time.tv_usec ) + 1000000 / PULSE_PER_SECOND; secDelta = ( (int) last_time.tv_sec ) - ( (int) now_time.tv_sec ); while ( usecDelta < 0 ) { usecDelta += 1000000; secDelta -= 1; } while ( usecDelta >= 1000000 ) { usecDelta -= 1000000; secDelta += 1; } if ( secDelta > 0 || ( secDelta == 0 && usecDelta > 0 ) ) { #ifndef RUN_AS_WIN32SERVICE /* - Not working anymore (?) * - Use sleep instead struct timeval stall_time; stall_time.tv_usec = usecDelta; stall_time.tv_sec = secDelta; if ( select( 0, NULL, NULL, NULL, &stall_time ) < 0 ) { perror( "Game_loop: select: stall" ); ___exit( 0 ); } * - Ahsile */ char buf[MAX_STRING_LENGTH]; sprintf(buf, "sleep %ld.%ld", secDelta, usecDelta/1000); system(buf); #else /* Force sleep on windows machines - Ahsile */ int sleep_time = (secDelta * 1000) + (usecDelta/1000); Sleep(sleep_time); #endif } } gettimeofday( &last_time, NULL ); current_time = (time_t) last_time.tv_sec; } return; } #endif #if defined( unix ) || defined(RUN_AS_WIN32SERVICE) void new_descr( int control ) { static DESCRIPTOR_DATA d_zero; DESCRIPTOR_DATA *dnew; struct sockaddr_in sock; struct hostent *from; char buf [ MAX_STRING_LENGTH ]; int desc; int size; size = sizeof( sock ); getsockname( control, (struct sockaddr *) &sock, &size ); if ( ( desc = accept( control, (struct sockaddr *) &sock, &size) ) < 0 ) { perror( "New_descriptor: accept" ); return; } #if !defined( FNDELAY ) #if defined( __hpux ) #define FNDELAY O_NONBLOCK #else #define FNDELAY O_NDELAY #endif #endif #ifndef RUN_AS_WIN32SERVICE if ( fcntl( desc, F_SETFL, FNDELAY ) == -1 ) { perror( "New_descriptor: fcntl: FNDELAY" ); return; } #endif /* * Cons a new descriptor. */ dnew = new_descriptor(); *dnew = d_zero; dnew->descriptor = desc; dnew->character = NULL; dnew->connected = CON_GET_ANSI; dnew->showstr_head = str_dup( "" ); dnew->showstr_point = 0; dnew->showstr_point = NULL; dnew->pEdit = NULL; /* OLC */ dnew->pString = NULL; /* OLC */ dnew->editor = 0; /* OLC */ dnew->outsize = 2000; dnew->outbuf = alloc_mem( dnew->outsize ); dnew->ansi = FALSE; dnew->user = str_dup( "(unknown)" ); dnew->auth_inc = 0; dnew->auth_fd = -1; size = sizeof(sock); if ( getpeername( desc, (struct sockaddr *) &sock, &size ) < 0 ) { perror( "New_descriptor: getpeername" ); dnew->host = str_dup( "(unknown)" ); } else { /* * Would be nice to use inet_ntoa here but it takes a struct arg, * which ain't very compatible between gcc and system libraries. */ int addr; int a1, a2, a3, a4; addr = ntohl( sock.sin_addr.s_addr ); a1 = ( addr >> 24 ) & 0xFF; a2 = ( addr >> 16 ) & 0xFF; a3 = ( addr >> 8 ) & 0xFF; a4 = ( addr ) & 0xFF; sprintf( buf, "%d.%d.%d.%d", ( addr >> 24 ) & 0xFF, ( addr >> 16 ) & 0xFF, ( addr >> 8 ) & 0xFF, ( addr ) & 0xFF ); sprintf( log_buf, "Sock.sinaddr: %s", buf ); /* hack to not log Batlin's site a17b37.rogerswave.ca 204.92.17.37 to prevent log spamming 6/9/96 REK */ if ( ( a1 != 204 && a1 != 130 ) && ( a2 != 92 && a2 != 63 ) && ( a3 != 17 && a3 != 122 ) && ( a4 != 37 ) ) log_string( log_buf, CHANNEL_GOD, -1 ); from = gethostbyaddr( (char *) &sock.sin_addr, sizeof(sock.sin_addr), AF_INET ); dnew->host = str_dup( from ? from->h_name : buf ); } /* * Swiftest: I added the following to ban sites. I don't * endorse banning of sites, but Copper has few descriptors now * and some people from certain sites keep abusing access by * using automated 'autodialers' and leaving connections hanging. * * Furey: added suffix check by request of Nickel of HiddenWorlds. */ if ( check_ban( dnew, FALSE ) ) return; /* * Init descriptor data. */ dnew->next = descriptor_list; descriptor_list = dnew; start_auth( dnew ); /* * Send the greeting. */ write_to_buffer( dnew, "Do you wish to use ANSI? (Yes/No): ", 0 ); return; } #endif void close_socket( DESCRIPTOR_DATA *dclose ) { CHAR_DATA *ch; if ( dclose->outtop > 0 ) process_output( dclose, FALSE ); if ( dclose->snoop_by ) { write_to_buffer( dclose->snoop_by, "Your victim has left the game.\n\r", 0 ); } if ( dclose->descriptor == (unsigned int) maxdesc ) maxdesc--; { DESCRIPTOR_DATA *d; for ( d = descriptor_list; d; d = d->next ) { if ( d->snoop_by == dclose ) d->snoop_by = NULL; } } if ( ( ch = dclose->original ) ) { if ( !dclose->character ) { sprintf( log_buf, "Close_socket: original without character: %s", (dclose->original->name ? dclose->original->name : "(unknown)" ) ); bug( log_buf, 0); dclose->original->desc = NULL; } else { if ( IS_NPC(dclose->character) ) do_return( dclose->character, "" ); else dclose->original->desc = NULL; } } if ( ( ch = dclose->character ) ) { sprintf( log_buf, "Closing link to %s.", ch->name ); log_string( log_buf, CHANNEL_LOG, -1 ); if ( !IS_SET( ch->act, PLR_WIZINVIS ) && !IS_AFFECTED( ch, AFF_INVISIBLE ) && !IS_AFFECTED2( ch, AFF_IMPROVED_INVIS ) ) { sprintf( log_buf, "%s has lost %s link.", ch->name, ch->sex == SEX_FEMALE ? "her" : ch->sex == SEX_MALE ? "his" : "its" ); /* hack - Ahsile */ if (ch->desc->connected == CON_PLAYING) ch->desc->connected = -1; log_string( log_buf, CHANNEL_INFO, -1 ); if (ch->desc->connected == -1) ch->desc->connected = CON_PLAYING; /*end hack - Ahsile */ } { USERL_DATA *ul; for ( ul = user_list; ul; ul = ul->next ) { if ( !str_cmp( ch->name, ul->name ) ) { sprintf( log_buf, "Last on: %s", ctime( ¤t_time ) ); *(log_buf + strlen(log_buf) - 1) = '\0'; free_string(ul->lastlogin); ul->lastlogin = str_dup( log_buf ); ul->level = ch->level; break; } } } if ( dclose->connected == CON_PLAYING ) { act(AT_GREEN, "$n has lost $s link.", ch, NULL, NULL, TO_ROOM ); ch->desc = NULL; } #ifndef SQL_SYSTEM else { free_ch( dclose->character ); } #endif } if ( d_next == dclose ) d_next = d_next->next; if ( dclose == descriptor_list ) { descriptor_list = descriptor_list->next; } else { DESCRIPTOR_DATA *d; for ( d = descriptor_list; d && d->next != dclose; d = d->next ) ; if ( d ) d->next = dclose->next; else bug( "Close_socket: dclose not found.", 0 ); } #ifndef RUN_AS_WIN32SERVICE close( dclose->descriptor ); if ( dclose->auth_fd != -1 ) { close( dclose->auth_fd ); if ( dclose->auth_fd == maxdesc ) maxdesc--; } #else closesocket( dclose->descriptor ); if ( dclose->auth_fd != -1 ) { closesocket( dclose->auth_fd ); if ( dclose->auth_fd == maxdesc ) maxdesc--; } #endif /* RT socket leak fix */ free_mem( dclose->outbuf, dclose->outsize ); dclose->outtop = 0; dclose->outsize = 0; dclose->outbuf = NULL; free_descriptor( dclose); #if defined( MSDOS ) || defined( macintosh ) ___exit( 0 ); #endif return; } bool read_from_descriptor( DESCRIPTOR_DATA *d ) { int iStart; /* Hold horses if pending command already. */ if ( d->incomm[0] != '\0' ) return TRUE; /* Check for overflow. */ iStart = strlen( d->inbuf ); if ( iStart >= sizeof( d->inbuf ) - 10 ) { sprintf( log_buf, "%s input overflow!", d->host ); log_string( log_buf, CHANNEL_GOD, -1 ); write_to_descriptor( d->descriptor, "\n\r*** PUT A LID ON IT!!! ***\n\r", 0, d ); return FALSE; } /* Snarf input. */ #if defined( macintosh ) for ( ; ; ) { int c; c = getc( stdin ); if ( c == '\0' || c == EOF ) break; putc( c, stdout ); if ( c == '\r' ) putc( '\n', stdout ); d->inbuf[iStart++] = c; if ( iStart > sizeof( d->inbuf ) - 10 ) break; } #endif #if defined( MSDOS ) || defined( unix ) || defined( RUN_AS_WIN32SERVICE ) for ( ; ; ) { int nRead; #ifdef RUN_AS_WIN32SERVICE { nRead = recv(d->descriptor, d->inbuf + iStart, sizeof( d->inbuf ) - 10 - iStart,0); } #else nRead = read( d->descriptor, d->inbuf + iStart, sizeof( d->inbuf ) - 10 - iStart ); #endif if ( nRead > 0 ) { iStart += nRead; if ( d->inbuf[iStart-1] == '\n' || d->inbuf[iStart-1] == '\r' ) break; } else if ( nRead == 0 ) { log_string( "EOF encountered on read.", CHANNEL_GOD, -1 ); return FALSE; } #ifndef RUN_AS_WIN32SERVICE else if ( errno == EWOULDBLOCK || errno == EAGAIN ) break; #endif else { perror( "Read_from_descriptor" ); return FALSE; } } #endif d->inbuf[iStart] = '\0'; return TRUE; } /* * Transfer one line from input buffer to input line. */ void read_from_buffer( DESCRIPTOR_DATA *d ) { int i; int j; int k; /* * Hold horses if pending command already. */ if ( d->incomm[0] != '\0' ) return; /* * Look for at least one new line. */ for ( i = 0; d->inbuf[i] != '\n' && d->inbuf[i] != '\r'; i++ ) { if ( d->inbuf[i] == '\0' ) return; } /* * Canonical input processing. */ for ( i = 0, k = 0; d->inbuf[i] != '\n' && d->inbuf[i] != '\r'; i++ ) { if ( k >= MAX_INPUT_LENGTH - 2 ) { write_to_descriptor( d->descriptor, "Line too long.\n\r", 0, d ); /* skip the rest of the line */ for ( ; d->inbuf[i] != '\0'; i++ ) { if ( d->inbuf[i] == '\n' || d->inbuf[i] == '\r' ) break; } d->inbuf[i] = '\n'; d->inbuf[i+1] = '\0'; break; } if ( d->inbuf[i] == '\b' && k > 0 ) --k; else if ( isascii( d->inbuf[i] ) && isprint( d->inbuf[i] ) ) d->incomm[k++] = d->inbuf[i]; } /* * Finish off the line. */ if ( k == 0 ) d->incomm[k++] = ' '; d->incomm[k] = '\0'; /* * Deal with bozos with #repeat 1000 ... */ if ( k > 1 || d->incomm[0] == '!' ) { if ( d->incomm[0] != '!' && strcmp( d->incomm, d->inlast ) ) { d->repeat = 0; } else { if ( ++d->repeat >= 20 ) { sprintf( log_buf, "%s input spamming!", d->host ); log_string( log_buf, CHANNEL_GOD, -1 ); write_to_descriptor( d->descriptor, "\n\r*** PUT A LID ON IT!!! ***\n\r", 0, d ); strcpy( d->incomm, "quit" ); } } } /* * Do '!' substitution. */ if ( d->incomm[0] == '!' ) strcpy( d->incomm, d->inlast ); else strcpy( d->inlast, d->incomm ); /* * Shift the input buffer. */ while ( d->inbuf[i] == '\n' || d->inbuf[i] == '\r' ) i++; for ( j = 0; ( d->inbuf[j] = d->inbuf[i+j] ) != '\0'; j++ ) ; return; } /* * Low level output function. */ bool process_output( DESCRIPTOR_DATA *d, bool fPrompt ) { extern bool merc_down; /* * Bust a prompt. */ if ( fPrompt && !merc_down && d->connected == CON_PLAYING ) /* OLC */ { if ( d->showstr_point ) write_to_buffer( d, "[Please type (c)ontinue, (r)efresh, (b)ack, (h)elp, (q)uit, or RETURN]: ", 0 ); else if ( d->pString ) write_to_buffer( d, "> ", 2 ); else { CHAR_DATA *ch; CHAR_DATA *victim; /* XOR */ /* battle prompt from Rom2 */ ch = d->character; if ((victim = ch->fighting) != NULL) { int percent; char wound[100]; char buf[MAX_STRING_LENGTH]; if (victim->max_hit > 0) percent = victim->hit * 100 / victim->max_hit; else percent = -1; if (percent >= 100) sprintf(wound,"is in excellent condition."); else if (percent >= 90) sprintf(wound,"has a few scratches."); else if (percent >= 75) sprintf(wound,"has some small wounds and bruises."); else if (percent >= 50) sprintf(wound,"has quite a few wounds."); else if (percent >= 30) sprintf(wound,"has some big nasty wounds and scratches."); else if (percent >= 15) sprintf(wound,"looks pretty hurt."); else if (percent >= 0) sprintf(wound,"is in awful condition."); else sprintf(wound,"is bleeding to death."); sprintf(buf,"\n\r&r%s %s", IS_NPC(victim) ? victim->short_descr : victim->name,wound); buf[0] = UPPER(buf[0]); write_to_buffer( d, buf, 0); } else if ( (victim = ch->hunting) && IS_NPC(victim) ) { hunt_victim( ch ); } ch = d->original ? d->original : d->character; if ( IS_SET( ch->act, PLR_BLANK ) ) write_to_buffer( d, "\n\r", 2 ); if ( IS_SET( ch->act, PLR_PROMPT ) ) bust_a_prompt( d ); if ( IS_SET( ch->act, PLR_TELNET_GA ) ) write_to_buffer( d, go_ahead_str, 0 ); } } /* * Short-circuit if nothing to write. */ if ( d->outtop == 0 ) return TRUE; /* * Snoop-o-rama. */ if ( d->snoop_by ) { write_to_buffer( d->snoop_by, "% ", 2 ); write_to_buffer( d->snoop_by, d->outbuf, d->outtop ); } /* * OS-dependent output. */ if ( !write_to_descriptor( d->descriptor, d->outbuf, d->outtop, d ) ) { d->outtop = 0; free_mem(d->outbuf, d->outsize); d->outsize = 1; d->outbuf = alloc_mem(d->outsize); return FALSE; } else { d->outtop = 0; free_mem(d->outbuf, d->outsize); d->outsize = 10; d->outbuf = alloc_mem(d->outsize); return TRUE; } } /* * Bust a prompt (player settable prompt) * coded by Morgenes for Aldara Mud */ void bust_a_prompt( DESCRIPTOR_DATA *d ) { CHAR_DATA *ch; const char *str; const char *i; char *point; char buf [ MAX_STRING_LENGTH ]; char buf2 [ MAX_STRING_LENGTH ]; ch = d->character; if( !ch->prompt || ch->prompt[0] == '\0' ) { send_to_char(C_DEFAULT, "\n\r\n\r", ch ); return; } i = 0; point = buf; str = d->original ? d->original->prompt : d->character->prompt; send_to_char(C_DEFAULT, "", ch); while( *str != '\0' ) { if( *str != '%' ) { *point++ = *str++; continue; } ++str; switch( *str ) { default : i = " "; break; case 'h' : sprintf( buf2, "%d", ch->hit ); i = buf2; break; case 'H' : sprintf( buf2, "%d", ch->max_hit ); i = buf2; break; case 'm' : if (( ch->class != 9 )&&( ch->class != 11)) sprintf( buf2, "%d", ch->mana ); else sprintf( buf2, "%d", ch->bp ); i = buf2; break; case 'M' : if (( ch->class != 9 )&&(ch->class != 11)) sprintf( buf2, "%d", ch->max_mana ); else sprintf( buf2, "%d", ch->max_bp ); i = buf2; break; case 'v' : sprintf( buf2, "%d", ch->move ); i = buf2; break; case 'V' : sprintf( buf2, "%d", ch->max_move ); i = buf2; break; case 'x' : sprintf( buf2, "%d", ch->exp ); i = buf2; break; case 'X' : sprintf( buf2, "%d", 1000 - (ch->exp % 1000) ); i = buf2; break; case 'g' : sprintf( buf2, "%d", ch->gold ); i = buf2; break; case 'a' : if( ch->level >= 5 ) sprintf( buf2, "%d", ch->alignment ); else sprintf( buf2, "%s", IS_GOOD( ch ) ? "good" : IS_EVIL( ch ) ? "evil" : "neutral" ); i = buf2; break; case 'r' : if( ch->in_room ) sprintf( buf2, "%s", ( !IS_AFFECTED( ch, AFF_BLIND ) || IS_SET( ch->act, PLR_HOLYLIGHT ) ) ? ch->in_room->name : "( You can't see a thing! )" ); /* Blind Code Added by Ahsile */ else sprintf( buf2, " " ); i = buf2; break; case 'R' : if( IS_IMMORTAL( ch ) && ch->in_room ) sprintf( buf2, "%d", ch->in_room->vnum ); else sprintf( buf2, " " ); i = buf2; break; case 'z' : if( IS_IMMORTAL( ch ) && ch->in_room ) sprintf( buf2, "%s", ch->in_room->area->name ); else sprintf( buf2, " " ); i = buf2; break; case '%' : sprintf( buf2, "%%" ); i = buf2; break; case 'c' : /* OLC */ i = olc_ed_name( ch ); break; case 'C' : /* OLC */ i = olc_ed_vnum( ch ); break; case 'l' : if ( ( IS_SET( ch->act, PLR_WIZINVIS ) ) || ( IS_AFFECTED( ch, AFF_INVISIBLE ) ) || ( IS_AFFECTED2( ch, AFF_IMPROVED_INVIS ) ) ) sprintf( buf2, "Invisible" ); else sprintf( buf2, "Visible" ); i = buf2; break; case 'p' : { extern int sAllocPerm; sprintf( buf2, "%d", (sAllocPerm * 10) / (1024 * 1024) ); i = buf2; break; } } ++str; while( ( *point = *i ) != '\0' ) ++point, ++i; } write_to_buffer( d, buf, point - buf ); return; } void bust_a_color_prompt( DESCRIPTOR_DATA *d ) { CHAR_DATA *ch; const char *str; const char *i; char *point; char buf [ MAX_STRING_LENGTH ]; char buf2 [ MAX_STRING_LENGTH ]; ch = d->character; if( !ch->prompt || ch->prompt[0] == '\0' ) { send_to_char(C_DEFAULT, "\n\r\n\r", ch ); return; } point = buf; str = d->original ? d->original->prompt : d->character->prompt; send_to_char(C_DEFAULT, "< ", ch); while( *str != '\0' ) { if( *str != '%' ) { *point++ = *str++; continue; } ++str; switch( *str ) { default : i = " "; break; case 'h' : sprintf( buf2, "%dhp ", ch->hit ); send_to_char(AT_YELLOW, buf2, ch); i = buf2; buf2[0] = '\0'; break; case 'm' : if (( ch->class != 9 )&&( ch->class != 11)) { sprintf( buf2, "%dm ", ch->mana ); send_to_char(AT_LBLUE, buf2, ch); } else { sprintf( buf2, "%dbp ", ch->bp ); send_to_char(AT_RED, buf2, ch); } i = buf2; buf2[0] = '\0';break; case 'v' : sprintf( buf2, "%dmv ", ch->move ); send_to_char(AT_GREEN, buf2, ch); i = buf2; buf2[0] = '\0';break; case 'x' : sprintf( buf2, "%dxp ", ch->exp ); send_to_char(AT_WHITE, buf2, ch); i = buf2; buf2[0] = '\0';break; case 'g' : sprintf( buf2, "%dgp ", ch->gold ); send_to_char(AT_YELLOW, buf2, ch); i = buf2; buf2[0] = '\0';break; case 'a' : if( ch->level < 5 ) sprintf( buf2, "%d ", ch->alignment ); else sprintf( buf2, "%s ", IS_GOOD( ch ) ? "good" : IS_EVIL( ch ) ? "evil" : "neutral" ); send_to_char(AT_GREY, buf2, ch); i = buf2; buf2[0] = '\0';break; case 'r' : if( ch->in_room ) sprintf( buf2, "%s ", ( !IS_AFFECTED( ch, AFF_BLIND ) || IS_SET( ch->act, PLR_HOLYLIGHT ) ) ? ch->in_room->name : "( You can't see a thing! )" ); /* Blind Code Added by Ahsile */ else sprintf( buf2, " " ); send_to_char(AT_RED, buf2, ch); i = buf2; buf2[0] = '\0';break; case 'R' : if( IS_IMMORTAL( ch ) && ch->in_room ) sprintf( buf2, "%d ", ch->in_room->vnum ); else sprintf( buf2, " " ); send_to_char(AT_WHITE, buf2, ch); i = buf2; buf2[0] = '\0';break; case 'c' : /* OLC */ send_to_char( AT_GREEN, olc_ed_name( ch ), ch ); i = olc_ed_name( ch ); break; case 'z' : if( IS_IMMORTAL( ch ) && ch->in_room ) sprintf( buf2, "%s ", ch->in_room->area->name ); else sprintf( buf2, " " ); send_to_char(AT_RED, buf2, ch); i = buf2; buf2[0] = '\0';break; case 'l' : if ( ( IS_SET( ch->act, PLR_WIZINVIS ) ) || ( IS_AFFECTED( ch, AFF_INVISIBLE ) ) || ( IS_AFFECTED2( ch, AFF_IMPROVED_INVIS ) ) ) sprintf( buf2, "Invisible " ); else sprintf( buf2, "Visible " ); send_to_char(AT_BLUE, buf2, ch ); i = buf2; buf2[0] = '\0';break; } ++str; while( ( *point = *i ) != '\0' ) ++point, ++i; *point = '\0'; } send_to_char(C_DEFAULT, "> ", ch); return; } /* * Append onto an output buffer. */ void write_to_buffer( DESCRIPTOR_DATA *d, const char *txt, int length ) { /* * Find length in case caller didn't. */ if ( length <= 0 ) length = strlen( txt ); /* * Initial \n\r if needed. */ if ( d->outtop == 0 && !d->fcommand ) { d->outbuf[0] = '\n'; d->outbuf[1] = '\r'; d->outtop = 2; } /* * Expand the buffer as needed. */ while ( d->outtop + length >= d->outsize ) { char *outbuf; outbuf = alloc_mem( d->outtop + length + 1 ); strncpy( outbuf, d->outbuf, d->outtop ); free_mem( d->outbuf, d->outsize ); d->outbuf = outbuf; d->outsize = d->outtop + length + 1; } /* * Copy. */ strncpy( d->outbuf + d->outtop, txt, length ); /* OLC */ d->outtop += length; return; } /* * Lowest level output function. * Write a block of text to the file descriptor. * If this gives errors on very long blocks (like 'ofind all'), * try lowering the max block size. */ /* TRI */ /* This is the within string ansi switcher; due to being in * such a low level function, it is available to anything in * the mud which sends txt/data to a char. * the format for switching colors is: * &color * i.e.: .hahaha&rhahaha would chat the first three ha's in the default * chat color, and the next 3 in darkred, with no * space between the 2 sets of 3 ha's. :> * make sense? :P.. don't you just love me? *Phtpht* * the & is the char which tells the mud to check for a new clr, * and color is one letter, the new color. * r : dark red * R : bright red * g : dark green * G : bright green * b : dark blue * B : light blue * etc */ bool write_to_descriptor( int desc, char *txt, int length, DESCRIPTOR_DATA *d ) { int iStart; int nWrite; int nBlock; /* TRI WHOOHOO!! */ int clr; const char *str; const char *i = NULL; char *point; char buf1[MAX_STRING_LENGTH]; char* buf2 = malloc((length * 5) + (MAX_STRING_LENGTH*2)); int ln = 0; int rc = 0; /* End TRI */ #if defined( macintosh ) || defined( MSDOS ) if ( desc == 0 ) desc = 1; #endif memset( buf2, 0, ( (length * 5) + (MAX_STRING_LENGTH*2) ) ); /* NOTE: it seems to work now, I had couple guys test it problem was that (str-txt)>=length thingy, should be < uncomment, test it, and do your worst =) the thing that doesn't work well is ofind all, buffer size may not be enough for VERY long strings... which is why i still have this commented out REMEMBER to uncomment the length adjustment at the end too when testing */ point = buf2; str = txt; while ((length <= 0) ? (*str != '\0') : ((str-txt) < length)) { if ( *str != '&' ) { *point++ = *str++; continue; } if((str-txt+1) >= length) { *point++ = *str++; break; } ln -= 2; ++str; switch( *str ) { default: clr = -1; sprintf(buf1, "&%c", *str); ln += 2; i = buf1; break; case '\0': case '&': clr = -1; ln += 1; i = "&"; break; case 'r': clr = 1; break; case 'R': clr = 9; break; case 'g': clr = 2; break; case 'G': clr = 10; break; case 'b': clr = 4; break; case 'B': clr = 12; break; case 'c': clr = 6; break; case 'C': clr = 14; break; case 'W': clr = 15; break; case 'Y': clr = 11; break; case 'O': clr = 3; break; case 'p': clr = 5; break; case 'P': clr = 13; break; case 'z': clr = 8; break; case 'w': clr = 7; break; case '.': do { rc = number_percent(); } while ( rc < 1 || rc > 70 || rc == 16 ); clr = rc; break; } ++str; if(clr == -1) { } else if ( d->character ) { if ( IS_SET( d->character->act, PLR_ANSI ) ) { if(clr > 15) { sprintf(buf1,"\033[0;%d;5;%dm",(((clr-16)&8)==8),30+((clr-16)&7)); ln += strlen(buf1); i = buf1; } else { sprintf(buf1,"\033[0;%d;%dm",((clr & 8)==8),30+(clr & 7)); ln += strlen(buf1); i = buf1; } } else { i = ""; } } if ( !(d->character) ) { if ( d->ansi == TRUE ) { if (clr > 15 ) { sprintf(buf1, "\033[0;%d;5;%dm",(((clr-16)&8)==8),30+((clr-16)&7)); ln += strlen( buf1 ); i = buf1; } else { sprintf( buf1, "\033[0;%d;%dm",((clr & 8)==8),30+(clr & 7)); ln += strlen( buf1 ); i = buf1; } } else { i = ""; } } while((*point++ = *i++) != '\0' ) ; point--; } *point++ = '\n'; *point++ = '\r'; *point++ = '\0'; txt = buf2; /* End TRI */ if ( length <= 0 ) length = strlen(txt); else length += ln; for ( iStart = 0; iStart < length; iStart += nWrite ) { nBlock = UMIN( length - iStart, 4096 ); #ifdef RUN_AS_WIN32SERVICE if ( ( nWrite = send( desc, txt + iStart, nBlock, 0 ) ) < 0 ) #else if ( ( nWrite = write( desc, txt + iStart, nBlock ) ) < 0 ) #endif { free(buf2); perror( "Write_to_descriptor" ); return FALSE; } } free(buf2); return TRUE; } /* * Deal with sockets that haven't logged in yet. */ void nanny( DESCRIPTOR_DATA *d, char *argument ) { CHAR_DATA *ch; NOTE_DATA *pnote; AFFECT_DATA *paf; AFFECT_DATA *paf_next; char *pwdnew; char *p; char buf [ MAX_STRING_LENGTH ]; int iClass; int notes; bool fOld; int fstr = 0; int fint = 0; int fwis = 0; int fdex = 0; int fcon = 0; int stor_cost = 0; while ( isspace( *argument ) ) argument++; /* This is here so we wont get warnings. ch = NULL anyways - Kahn */ ch = d->character; switch ( d->connected ) { default: bug( "Nanny: bad d->connected %d.", d->connected ); close_socket( d ); return; case CON_GET_ANSI: if ( argument[0] == '\0' ) { close_socket( d ); return; } if (!str_prefix( argument, "yes" ) ) { d->ansi = TRUE; write_to_buffer( d, "ANSI set.\n\r", 0 ); } else if (!str_prefix( argument, "no" ) ) write_to_buffer( d, "ANSI not set.\n\r", 0 ); d->connected = CON_GET_NAME; { extern char *help_greeting_one; extern char *help_greeting_two; extern char *help_greeting_three; extern char *help_greeting_four; extern char *help_greeting_five; int rndnumber = number_range(1, 5); /* if ( help_greeting[0] == '.' ) write_to_buffer( d, help_greeting + 1, 0 ); else write_to_buffer( d, help_greeting, 0 ); */ if( rndnumber == 1 ) { write_to_buffer( d, help_greeting_one, 0 ); } if( rndnumber == 2 ) { write_to_buffer( d, help_greeting_two, 0 ); } if( rndnumber == 3 ) { write_to_buffer( d, help_greeting_three, 0 ); } if( rndnumber == 4 ) { write_to_buffer( d, help_greeting_four, 0 ); } if( rndnumber == 5 ) { write_to_buffer( d, help_greeting_five, 0 ); } } break; case CON_GET_NAME: if ( argument[0] == '\0' ) { close_socket( d ); return; } argument[0] = UPPER( argument[0] ); log_string( argument, CHANNEL_NONE , -1 ); fOld = load_char_obj( d, argument ); ch = d->character; if ( !check_parse_name( argument ) ) { if ( !fOld ) { write_to_buffer( d, "Illegal name, try another.\n\rName: ", 0 ); if ( d->character ) free_ch( d->character ); d->character = NULL; return; } else { /* * Trap the "." and ".." logins. * Chars must be > level 1 here */ if ( ch->level < 1 ) { write_to_buffer( d, "Illegal name, try another.\n\rName: ", 0 ); return; } sprintf( buf, "Illegal name: %s", argument ); bug( buf, 0 ); } } if ( IS_SET( ch->act, PLR_DENY ) ) { sprintf( log_buf, "Denying access to %s@%s.", argument, d->host ); log_string( log_buf, CHANNEL_GOD , -1 ); write_to_buffer( d, "You are denied access.\n\r", 0 ); close_socket( d ); return; } if ( check_reconnect( d, argument, FALSE ) ) { fOld = TRUE; } else { /* Must be immortal with wizbit in order to get in */ if ( wizlock && !IS_CHAMP( ch ) && !ch->wizbit ) { write_to_buffer( d, "The game is wizlocked.\n\r", 0 ); close_socket( d ); return; } if ( ch->level <= numlock && !ch->wizbit && numlock != 0 ) { write_to_buffer( d, "The game is locked to your level character.\n\r\n\r", 0 ); if ( ch->level == 0 ) { write_to_buffer( d, "New characters are now temporarily in email ", 0 ); write_to_buffer( d, "registration mode.\n\r\n\r", 0 ); write_to_buffer( d, "Please email <implementor addr here> to ", 0 ); write_to_buffer( d, "register your character.\n\r\n\r", 0 ); write_to_buffer( d, "One email address per character please.\n\r", 0 ); write_to_buffer( d, "Thank you, EnvyMud Staff.\n\r\n\r", 0 ); } close_socket( d ) ; return; } } if ( ch->level < 1 ) { fOld = FALSE; } if ( fOld ) { /* Old player */ write_to_buffer( d, "Password: ", 0 ); write_to_buffer( d, echo_off_str, 0 ); d->connected = CON_GET_OLD_PASSWORD; return; } else { CHAR_DATA* nch; bool found = FALSE; for (nch=char_list; nch; nch = nch->next) { if (!IS_NPC(nch) && !str_cmp( nch->name, argument ) && nch != d->character && !ch->deleted) { found=TRUE; break; } } if (!found) { /* New player */ sprintf( buf, "Did I get that right, %s (Y/N)? ", argument ); write_to_buffer( d, buf, 0 ); d->connected = CON_CONFIRM_NEW_NAME; return; } else { sprintf( buf, "%s is already in the game.\n\r", argument); write_to_descriptor( d->descriptor, buf, 0, d); close_socket( d ); ch->deleted = TRUE; return; } } break; case CON_GET_OLD_PASSWORD: #if defined( unix ) write_to_buffer( d, "\n\r", 2 ); #endif if ( strcmp( crypt( argument, ch->pcdata->pwd ), ch->pcdata->pwd ) ) { write_to_buffer( d, "Wrong password.\n\r", 0 ); close_socket( d ); return; } write_to_buffer( d, echo_on_str, 0 ); if ( check_playing( d, ch->name ) ) return; if ( check_reconnect( d, ch->name, TRUE ) ) return; if ( IS_IMMORTAL( ch ) ) do_help( ch, "imotd" ); do_help( ch, "motd" ); ch->pkill_timer = 0; d->connected = CON_READ_MOTD; break; case CON_CONFIRM_NEW_NAME: switch ( *argument ) { case 'y': case 'Y': { if (!str_cmp(d->host, "mudconnector.com") || !str_cmp(d->host, "mudconnect.com")) { write_to_descriptor(d->descriptor, "We apologize, but anonymous connections have been disabled on this mud\n\rfor new players.\n\rPlease use a direct connection from software like ZMud or a telnet program\n\rlike [Secure]CRT or PuTTy.\n\rn\rWe also provide a Java telnet client on our website. Please visit\n\rhtp://www.stormgate.ca/ for more details.\n\r", 0, d); close_socket( d ); return; } sprintf( buf, "New character.\n\rGive me a password for %s: %s", ch->name, echo_off_str ); write_to_buffer( d, buf, 0 ); d->connected = CON_GET_NEW_PASSWORD; break; } case 'n': case 'N': write_to_buffer( d, "Ok, what IS it, then? ", 0 ); free_ch( d->character ); d->character = NULL; d->connected = CON_GET_NAME; break; default: write_to_buffer( d, "Please type Yes or No? ", 0 ); break; } break; case CON_GET_NEW_PASSWORD: #if defined( unix ) write_to_buffer( d, "\n\r", 2 ); #endif if ( strlen( argument ) < 5 ) { write_to_buffer( d, "Password must be at least five characters long.\n\rPassword: ", 0 ); return; } pwdnew = crypt( argument, ch->name ); for ( p = pwdnew; *p != '\0'; p++ ) { if ( *p == '~' ) { write_to_buffer( d, "New password not acceptable, try again.\n\rPassword: ", 0 ); return; } } free_string( ch->pcdata->pwd ); ch->pcdata->pwd = str_dup( pwdnew ); write_to_buffer( d, "Please retype password: ", 0 ); d->connected = CON_CONFIRM_NEW_PASSWORD; break; case CON_CONFIRM_NEW_PASSWORD: #if defined( unix ) write_to_buffer( d, "\n\r", 2 ); #endif if ( strcmp( crypt( argument, ch->pcdata->pwd ), ch->pcdata->pwd ) ) { write_to_buffer( d, "Passwords don't match.\n\rRetype password: ", 0 ); d->connected = CON_GET_NEW_PASSWORD; return; } write_to_buffer( d, echo_on_str, 0 ); write_to_buffer( d, "\n\rPress Return to continue:\n\r", 0 ); d->connected = CON_DISPLAY_RACE; break; case CON_DISPLAY_RACE: strcpy( buf, "Select a race\n\r\n\r[" ); for ( iRace = 0; iRace < MAX_RACE; iRace++ ) { if ( !IS_SET( race_table[ iRace ].race_abilities, RACE_PC_AVAIL ) ) continue; if ( iRace > 0 ) strcat( buf, "]\n\r[" ); strcat( buf, race_table[iRace].race_full ); } strcat( buf, "]\n\r\n\rPlease chose: " ); write_to_buffer( d, buf, 0 ); d->connected = CON_GET_NEW_RACE; break; case CON_GET_NEW_RACE: for ( iRace = 0; iRace < MAX_RACE; iRace++ ) if( ( !str_cmp( argument, race_table[iRace].race_full ) || !str_cmp( argument, race_table[iRace].race_name ) ) && IS_SET( race_table[ iRace ].race_abilities, RACE_PC_AVAIL ) ) { ch->race = race_lookup( race_table[iRace].race_full ); break; } if ( iRace == MAX_RACE ) { write_to_buffer( d, "That is not a race.\n\rWhat IS your race? ", 0 ); return; } write_to_buffer( d, "\n\r", 0 ); do_help( ch, race_table[ch->race].race_full ); write_to_buffer( d, "Are you sure you want this race? [N]: ", 0 ); d->connected = CON_CONFIRM_RACE; break; case CON_CONFIRM_RACE: switch ( argument[0] ) { case 'y': case 'Y': break; default: write_to_buffer( d, "\n\rPress Return to continue:\n\r", 0 ); d->connected = CON_DISPLAY_RACE; return; } write_to_buffer( d, "\n\rWhat is your sex (M/F/N)? ", 0 ); d->connected = CON_GET_NEW_SEX; break; case CON_GET_NEW_SEX: switch ( argument[0] ) { case 'm': case 'M': ch->sex = SEX_MALE; break; case 'f': case 'F': ch->sex = SEX_FEMALE; break; case 'n': case 'N': ch->sex = SEX_NEUTRAL; break; default: write_to_buffer( d, "That's not a sex.\n\rWhat IS your sex? ", 0 ); return; } d->connected = CON_DISPLAY_CLASS; write_to_buffer( d, "\n\rPress Return to continue:\n\r", 0 ); break; case CON_DISPLAY_CLASS: strcpy( buf, "Select a class:\n\r\n\r[" ); for ( iClass = 0; iClass < (MAX_CLASS -1); iClass++ ) { if ( iClass > 0 ) strcat( buf, "]\n\r[" ); strcat( buf, class_table[iClass].who_long ); } strcat( buf, "]\n\r\n\rPlease chose: " ); write_to_buffer( d, buf, 0 ); d->connected = CON_GET_NEW_CLASS; break; case CON_GET_NEW_CLASS: for ( iClass = 0; iClass < MAX_CLASS; iClass++ ) { if ( !str_prefix( argument, class_table[iClass].who_long ) || !str_prefix( argument, class_table[iClass].who_name ) ) { ch->class = iClass; break; } } if ( iClass == MAX_CLASS ) { write_to_buffer( d, "That's not a class.\n\rWhat IS your class? ", 0 ); return; } do_help( ch, (char *)class_table[iClass].who_long ); write_to_buffer( d, "Is this the class you desire? [N]: ", 0 ); d->connected = CON_CONFIRM_CLASS; break; case CON_CONFIRM_CLASS: switch ( argument[0] ) { case 'y': case 'Y': write_to_buffer( d, "\n\r\n\r", 0); do_help( ch, "startingmulticlass" ); write_to_buffer( d, "\n\rDo you want to multiclass? [N]: ", 0 ); d->connected = CON_CHOICE_MULTICLASS; break; default: write_to_buffer( d, "\n\rPress Return to continue:\n\r", 0 ); d->connected = CON_DISPLAY_CLASS; return; } break; case CON_CHOICE_MULTICLASS: switch ( argument[0] ) { case 'y': case 'Y': write_to_buffer( d, "\n\rPress Return to continue:\n\r", 0 ); d->connected = CON_DISPLAY_MULTICLASS; break; default: write_to_buffer( d, "\n\rPress Return to continue:\n\r", 0 ); ch->multied = ch->class; d->connected = CON_DISPLAY_RELIGION; return; } break; case CON_DISPLAY_MULTICLASS: strcpy( buf, "Select a class:\n\r\n\r[" ); for ( iClass = 0; iClass < (MAX_CLASS-1); iClass++ ) { if ( iClass > 0 ) strcat( buf, "]\n\r[" ); strcat( buf, class_table[iClass].who_long ); } strcat( buf, "]\n\r\n\rPlease chose: " ); write_to_buffer( d, buf, 0 ); d->connected = CON_GET_MULTICLASS; break; case CON_GET_MULTICLASS: for ( iClass = 0; iClass < MAX_CLASS; iClass++ ) { if ( !str_prefix( argument, class_table[iClass].who_name ) || !str_prefix( argument, class_table[iClass].who_long ) ) { ch->multied = iClass; break; } } if ( iClass == MAX_CLASS ) { write_to_buffer( d, "That's not a class.\n\rWhat IS your multiclass? ", 0 ); return; } if ( iClass == ch->class ) { write_to_buffer( d, "You are already that class.\n\rWhat IS your multiclass? ", 0 ); return; } do_help( ch, (char *)class_table[iClass].who_long ); write_to_buffer( d, "Is this the class you desire? [N]: ", 0 ); d->connected = CON_CONFIRM_MULTICLASS; break; case CON_CONFIRM_MULTICLASS: switch ( argument[0] ) { case 'y': case 'Y': write_to_buffer( d, "\n\rPress Return to continue:\n\r", 0 ); d->connected = CON_DISPLAY_RELIGION; break; default: write_to_buffer( d, "\n\rPress Return to continue:\n\r", 0 ); d->connected = CON_DISPLAY_MULTICLASS; return; } break; case CON_DISPLAY_RELIGION: write_to_buffer( d, "Select a Religion:\n\r\n\r", 0 ); write_to_buffer( d, "A. The Order of Truth, Honour and Chivalry\n\r", 0 ); write_to_buffer( d, "B. The Order of Law, Order and Justice\n\r", 0 ); write_to_buffer( d, "C. The Order of Life and Nature\n\r", 0 ); write_to_buffer( d, "D. The Order of Lies, Manipulation and Deceit\n\r", 0 ); write_to_buffer( d, "E. The Order of Chaos, Strife and Injustice\n\r", 0 ); write_to_buffer( d, "F. The Order of Death and Decay\n\r", 0 ); write_to_buffer( d, "G. The Order of Time and Fate\n\r\r", 0 ); write_to_buffer( d, "\n\rPlease chose (A-G): ", 0 ); d->connected = CON_CHOSE_RELIGION; break; case CON_CHOSE_RELIGION: switch ( argument[0] ) { case 'A': case 'a': ch->religion = 1; break; case 'B': case 'b': ch->religion = 2; break; case 'C': case 'c': ch->religion = 3; break; case 'D': case 'd': ch->religion = 4; break; case 'E': case 'e': ch->religion = 5; break; case 'F': case 'f': ch->religion = 6; break; case 'G': case 'g': ch->religion = 7; break; default: write_to_buffer( d, "Thats not a religion. What IS your religion? ", 0 ); return; } write_to_buffer( d, "\n\r", 0 ); write_to_buffer( d, get_religion_index( ch->religion )->shortdesc, 0 ); write_to_buffer( d, "\n\r", 0 ); write_to_buffer( d, get_religion_index( ch->religion )->description, 0 ); write_to_buffer( d, "\n\r\n\rIs this the religion you desire? [N]: ", 0 ); d->connected = CON_CONFIRM_RELIGION; break; case CON_CONFIRM_RELIGION: switch ( argument[0] ) { case 'y': case 'Y': { write_to_buffer( d, "\n\rPress Return to continue:\n\r", 0 ); d->connected = CON_DISPLAY_ATTRIBUTES; break; } default: write_to_buffer( d, "\n\rPress Return to continue:\n\r", 0 ); d->connected = CON_DISPLAY_RELIGION; return; } break; case CON_DISPLAY_ATTRIBUTES: fstr = 16 + race_table[ch->race].str_mod; fint = 16 + race_table[ch->race].int_mod; fwis = 16 + race_table[ch->race].wis_mod; fdex = 16 + race_table[ch->race].dex_mod; fcon = 16 + race_table[ch->race].con_mod; if ( ch->sex == SEX_MALE ) { fstr += 1; } if ( ch->sex == SEX_FEMALE ) { fdex += 1; } write_to_buffer( d, " |A |B |C |D\n\r", 0 ); write_to_buffer( d, "--------------+----+----+----+----\n\r", 0 ); sprintf( buf, "Strength |%d |%d |%d |%d \n\r", fstr, fstr - 2, fstr + 3, fstr -2 ); write_to_buffer( d, buf, 0 ); sprintf( buf, "Intelligence |%d |%d |%d |%d \n\r", fint, fint + 3, fint - 2, fint ); write_to_buffer( d, buf, 0 ); sprintf( buf, "Wisdom |%d |%d |%d |%d \n\r", fwis, fwis + 3, fwis - 2, fwis -2 ); write_to_buffer( d, buf, 0 ); sprintf( buf, "Dexterity |%d |%d |%d |%d \n\r", fdex, fdex - 2, fdex - 2, fdex + 4 ); write_to_buffer( d, buf, 0 ); sprintf( buf, "Constitution |%d |%d |%d |%d \n\r", fcon, fcon - 2, fcon + 3, fcon ); write_to_buffer( d, buf, 0 ); write_to_buffer( d, "\n\rPlease chose (A-D): ", 0 ); d->connected = CON_CHOSE_ATTRIBUTES; break; case CON_CHOSE_ATTRIBUTES: switch ( argument[0] ) { case 'A': case 'a': ch->pcdata->perm_str = 16 + race_table[ch->race].str_mod; ch->pcdata->perm_int = 16 + race_table[ch->race].int_mod; ch->pcdata->perm_wis = 16 + race_table[ch->race].wis_mod; ch->pcdata->perm_dex = 16 + race_table[ch->race].dex_mod; ch->pcdata->perm_con = 16 + race_table[ch->race].con_mod; break; case 'B': case 'b': ch->pcdata->perm_str = 16 + race_table[ch->race].str_mod - 2; ch->pcdata->perm_int = 16 + race_table[ch->race].int_mod + 3; ch->pcdata->perm_wis = 16 + race_table[ch->race].wis_mod + 3; ch->pcdata->perm_dex = 16 + race_table[ch->race].dex_mod - 2; ch->pcdata->perm_con = 16 + race_table[ch->race].con_mod - 2; break; case 'C': case 'c': ch->pcdata->perm_str = 16 + race_table[ch->race].str_mod + 3; ch->pcdata->perm_int = 16 + race_table[ch->race].int_mod - 2; ch->pcdata->perm_wis = 16 + race_table[ch->race].wis_mod - 2; ch->pcdata->perm_dex = 16 + race_table[ch->race].dex_mod - 2; ch->pcdata->perm_con = 16 + race_table[ch->race].con_mod + 3; break; case 'D': case 'd': ch->pcdata->perm_str = 16 + race_table[ch->race].str_mod - 2; ch->pcdata->perm_int = 16 + race_table[ch->race].int_mod + 0; ch->pcdata->perm_wis = 16 + race_table[ch->race].wis_mod - 2; ch->pcdata->perm_dex = 16 + race_table[ch->race].dex_mod + 4; ch->pcdata->perm_con = 16 + race_table[ch->race].con_mod + 0; break; default: write_to_buffer( d, "Thats not valid choice What IS your choice? ", 0 ); return; } write_to_buffer( d, "\n\rAre these the attributes you desire? [N]: ", 0 ); d->connected = CON_CONFIRM_ATTRIBUTES; break; case CON_CONFIRM_ATTRIBUTES: switch ( argument[0] ) { case 'y': case 'Y': if ( ch->sex == SEX_MALE ) { ch->pcdata->perm_str += 1; } if ( ch->sex == SEX_FEMALE ) { ch->pcdata->perm_dex += 1; } write_to_buffer( d, "\n\r\n\r", 0); do_help( ch, "startingpk" ); write_to_buffer( d, "\n\rDo you want to PKill? [Y]: ", 0 ); d->connected = CON_GET_PKILL; break; default: write_to_buffer( d, "\n\rPress Return to continue:\n\r", 0 ); d->connected = CON_DISPLAY_ATTRIBUTES; return; } break; case CON_GET_PKILL: switch (argument[0]) { case 'n': case 'N': write_to_buffer(d, "\n\rAre you sure you want to be peaceful? [N]: ", 0 ); ch->pkill = FALSE; d->connected = CON_CONFIRM_PKILL; break; default: if( ch->class == ch->multied ) { write_to_buffer(d, "\n\rYou can choose peaceful, and later remort to a pkill character.", 0 ); } write_to_buffer(d, "\n\rAre you sure you want to PKill? [N]: ", 0 ); ch->pkill = TRUE; d->connected = CON_CONFIRM_PKILL; } break; case CON_CONFIRM_PKILL: switch ( argument[0] ) { case 'y': case 'Y': break; default: write_to_buffer( d, "\n\rDo you want to PKill? [Y]: ", 0 ); d->connected = CON_GET_PKILL; return; } sprintf( log_buf, "%s!%s@%s new player.", ch->name, d->user, d->host ); log_string( log_buf, CHANNEL_GOD, -1 ); sprintf( log_buf, "%s is a new player to the Mud!", ch->name ); log_string( log_buf, CHANNEL_INFO, -1 ); ch->pcdata->pagelen = 60; ch->pcdata->clean = TRUE; do_help( ch, "motd" ); ch->pcdata->pagelen = 20; d->connected = CON_READ_MOTD; break; case CON_AUTHORIZE_NAME: case CON_AUTHORIZE_NAME1: case CON_AUTHORIZE_NAME2: case CON_AUTHORIZE_NAME3: write_to_buffer(d, "Please wait for an immortal to authorize you.\n\r", 0); sprintf(log_buf, "%s!%s@%s needs be to AUTHORIZED.", ch->name, d->user, d->host); log_string(log_buf, CHANNEL_LOG, -1 ); d->connected++; if(d->connected == CON_AUTHORIZE_LOGOUT) { write_to_buffer( d, "Auto exit to prevent spam.\n\r", 0 ); sprintf(log_buf, "%s!%s@%s auto logged off.", ch->name, d->user, d->host); log_string(log_buf, CHANNEL_LOG, -1 ); close_socket( d ); return; } break; /* END */ case CON_READ_MOTD: { /* Reload char after motd to avoid * the duping bug */ if (ch->level > 1) { char* char_name = str_dup(ch->name); free_ch( ch ); load_char_obj( d, char_name ); free_string(char_name); } ch->next = char_list; char_list = ch; d->connected = CON_PLAYING; #ifdef SQL_SYSTEM if (!ch->playing) link_char(ch); #endif send_to_char(AT_GREEN, "\n\rWelcome to the Realm. May your visit here be adventurous.", ch ); if( !IS_NPC ( ch ) && IS_SET( ch->act, PLR_SOUND ) ) { send_to_char( AT_GREEN, "!!SOUND(login1.wav V=100 L=1 P=55 T=Logon)", ch ); } send_to_char(AT_GREEN, "\n\r", ch ); userl_update( ch->desc, TRUE ); if ( ch->level == 0 ) { OBJ_DATA *obj; RELIGION_DATA *pReligion; pReligion = get_religion_index( ch->religion ); pReligion->members++; ch->level = 1; ch->exp = 1000; ch->updated = CURRENT_PLAYER_UPDATE; ch->hit = ch->max_hit; ch->mana = ch->max_mana; ch->bp = ch->max_bp; ch->move = ch->max_move; ch->pcdata->awins = 0; /* arena wins */ ch->pcdata->alosses = 0; /* arena losses */ ch->pcdata->mobkills = 0; /* number of mobs killed */ SET_BIT (ch->act, PLR_AUTOLOOT); SET_BIT (ch->act, PLR_AUTOEXIT); SET_BIT (ch->act, PLR_AUTOGOLD); SET_BIT (ch->act, PLR_AUTOSAC); #if defined (AUTOLEARN) /* Set default language */ ch->speaking = race_table[ch->race].race_lang; ch->language[race_table[ch->race].race_lang] = 100; ch->language[COMMON] = 100; ch->pcdata->learn = 5; #endif sprintf( buf, "the %s", title_table [ch->class] [ch->level] [ch->sex == SEX_FEMALE ? 1 : 0] ); set_title( ch, buf ); ch->pcdata->who_text = str_dup( "@" ); if (( ch->class != 9 )&&( ch->class != 11)) ch->prompt = str_dup( "<&Y%hhp &C%mm &G%vmv&w> " ); else ch->prompt = str_dup( "<&Y%hhp &R%mbp &G%vmv&w> " ); obj = create_object( get_obj_index( OBJ_VNUM_SCHOOL_BANNER ), 0 ); obj_to_char( obj, ch ); equip_char( ch, obj, WEAR_LIGHT ); obj = create_object( get_obj_index( OBJ_VNUM_SCHOOL_VEST ), 0 ); obj_to_char( obj, ch ); equip_char( ch, obj, WEAR_BODY ); if( ch->race != 13 && ch->class != CLASS_BARBARIAN && ch->multied != CLASS_BARBARIAN ) { obj = create_object(get_obj_index( OBJ_VNUM_SCHOOL_DAGGER ),0); obj_to_char( obj, ch ); equip_char( ch, obj, WEAR_WIELD ); } if (!get_religion_index(ch->religion)->start) char_to_room( ch, get_room_index( ROOM_VNUM_SCHOOL ) ); else char_to_room( ch, get_room_index( get_religion_index( ch->religion )->start ) ); } else if ( ch->in_room ) { char_to_room( ch, ch->in_room ); } else if ( IS_IMMORTAL( ch ) ) { char_to_room( ch, get_room_index( ROOM_VNUM_CHAT ) ); } else { char_to_room( ch, get_room_index( ROOM_VNUM_TEMPLE ) ); } if ( ch->updated != CURRENT_PLAYER_UPDATE ) { /* This is where the update character crap will go before login */ OBJ_DATA* obj; send_to_char(AT_RED, "Please wait while your pfile is updated.\n\r\n\r", ch ); if( ch->updated == 0 ) { if(ch->pcdata->bankaccount > 50000000 ) { ch->pcdata->bankaccount = 50000000; send_to_char(AT_RED, "Completed update to 1.01.\n\r", ch ); } ch->updated = 101; } if( ch->updated == 101 ) { ch->nextquest = 0; ch->countdown = 0; ch->questobj = 0; ch->questmob = 0; send_to_char(AT_RED, "Completed update to 1.02.\n\r", ch ); ch->updated = 102; } if( ch->updated == 102 ) { int cnt; ch->rquestpoints = 0; ch->rnextquest = 0; ch->rcountdown = 0; for (cnt=0;cnt<MAX_LEVEL;cnt++) { ch->rquestobj[cnt] = 0; ch->rquestmob[cnt] = 0; } send_to_char(AT_RED, "Completed update to 1.03.\n\r", ch ); ch->updated = 103; } if( ch->updated == 103 ) { ch->clan = 0; ch->clev = 0; send_to_char(AT_RED, "Completed update to 1.04.\n\r", ch ); ch->updated = 104; } if( ch->updated == 104 || ch->updated == 105 || ch->updated == 106) { RELIGION_DATA *pReligion; pReligion = get_religion_index( ch->religion ); pReligion->members++; send_to_char(AT_RED, "Completed update to 1.07.\n\r", ch ); ch->updated = 107; } if (ch->updated == 107) { DeadObjPrntOnly = FALSE; clean_player_objects(ch); ch->updated = 108; DeadObjPrntOnly = TRUE; ch->pcdata->switched = FALSE; send_to_char(AT_RED, "Completed update to 1.08.\n\r", ch ); } if( ch->updated == 108 ) { ch->position = POS_STANDING; send_to_char(AT_RED, "Completed update to 1.09.\n\r", ch ); ch->updated = 109; } if( ch->updated == 109 ) { if( ch->level >= 50 ) { SET_BIT ( ch->act, PLR_GHOST ); } send_to_char(AT_RED, "Completed update to 1.10.\n\r", ch ); ch->updated = 110; } if ( ch->updated == 110) { do_astrip(ch, "self"); send_to_char(AT_RED, "Completed update to 1.11.\n\r", ch ); ch->updated = 111; } if ( ch->updated == 111 || ch->updated == 112 ) { ch->clan = 0; ch->clev = 0; send_to_char(AT_RED, "Completed update to 1.13.\n\r", ch ); ch->updated = 113; } if ( ch->updated == 113 || ch->updated == 114 ) { for( paf = ch->affected; paf; paf = paf_next ) { paf_next = paf->next; affect_remove( ch, paf ); } for( paf = ch->affected2; paf; paf = paf_next ) { paf_next = paf->next; affect_remove2( ch, paf ); } for( paf = ch->affected3; paf; paf = paf_next ) { paf_next = paf->next; affect_remove3( ch, paf ); } for( paf = ch->affected4; paf; paf = paf_next ) { paf_next = paf->next; affect_remove4( ch, paf ); } for( paf = ch->affected_powers; paf; paf = paf_next ) { paf_next = paf->next; affect_remove_powers( ch, paf ); } for( paf = ch->affected_weaknesses; paf; paf = paf_next ) { paf_next = paf->next; affect_remove_weaknesses( ch, paf ); } ch->affected_by = 0; ch->affected_by2 &= CODER; ch->affected_by3 = 0; ch->affected_by4 = 0; ch->affected_by_powers = 0; ch->affected_by_weaknesses = 0; ch->shields = 0; ch->updated = 115; send_to_char(AT_RED, "\n\rYOU HAVE BEEN STRIPPED OF ALL AFFECTS!\n\r", ch ); send_to_char(AT_RED, "Completed update to 1.15.\n\r", ch ); } if ( ch->updated == 115 ) { DeadObjPrntOnly = FALSE; clean_player_objects(ch); ch->updated = 116; DeadObjPrntOnly = TRUE; ch->pcdata->switched = FALSE; send_to_char(AT_RED, "Completed update to 1.16.\n\r", ch ); } if ( ch->updated == 116 ) { ch->pcdata->bankaccount /= 1000; ch->gold /= 1000; ch->updated = 117; send_to_char(AT_RED, "Completed update to 1.17.\n\r", ch ); } if ( ch->updated == 117 ) { ch->pcdata->mobkills = 0; ch->updated = 118; send_to_char(AT_RED, "Completed update to 1.18\n\r", ch ); } if ( ch->updated == 118 ) { ch->mounted = 0; ch->mountshort = ""; ch->mountcharmed = 0; ch->updated = 119; send_to_char(AT_RED, "Completed update to 1.19\n\r", ch ); } if ( ch->updated == 119 ) { ch->questpoints += 2500; send_to_char(AT_RED, "&RCongratulations to all of us! Stormgate has now been in existance for\n\r\n\r****************\n\r* &WEIGHT &RYEARS! *\n\r****************\n\r\n\rYou have been awarded 2500qp as a thank-you for playing!\n\r", ch ); ch->updated = 120; } if ( ch->updated == 120 ) { OBJ_DATA *obj; OBJ_DATA *obj_next; int count = 1; char buf[MAX_STRING_LENGTH]; for ( obj = ch->pcdata->storage; obj; obj = obj_next, count++ ) { obj_next = obj->next_content; sprintf( buf, "The bank has repossessed %s from your storage.\n\r", obj->short_descr ); send_to_char( AT_RED, buf, ch ); obj_from_storage( obj ); extract_obj( obj ); } ch->updated = 121; send_to_char(AT_RED, "Completed update to 1.21\n\r", ch ); } if ( ch->updated == 121 || ch->updated == 122 ) { for ( obj = ch->carrying; obj; obj = obj->next_content ) { if( obj->wear_loc != WEAR_NONE) unequip_char( ch, obj); } for( paf = ch->affected; paf; paf = paf_next ) { paf_next = paf->next; affect_remove( ch, paf ); } for( paf = ch->affected2; paf; paf = paf_next ) { paf_next = paf->next; affect_remove2( ch, paf ); } for( paf = ch->affected3; paf; paf = paf_next ) { paf_next = paf->next; affect_remove3( ch, paf ); } for( paf = ch->affected4; paf; paf = paf_next ) { paf_next = paf->next; affect_remove4( ch, paf ); } for( paf = ch->affected_powers; paf; paf = paf_next ) { paf_next = paf->next; affect_remove_powers( ch, paf ); } for( paf = ch->affected_weaknesses; paf; paf = paf_next ) { paf_next = paf->next; affect_remove_weaknesses( ch, paf ); } ch->affected_by = 0; ch->affected_by2 &= CODER; ch->affected_by3 = 0; ch->affected_by4 = 0; ch->affected_by_powers = 0; ch->affected_by_weaknesses = 0; ch->shields = 0; ch->armor = 0; ch->updated = 123; send_to_char(AT_RED, "\n\rALL OF YOUR EQUIPMENT HAS BEEN REMOVED.\n\rALL OF YOUR SPELL EFFECTS HAVE BEEN STRIPPED.\n\r\n\r", ch ); send_to_char(AT_RED, "Completed update to 1.23\n\r", ch ); } if( ch->updated == 123 ) { if( ch->race == 13 ) { ch->pcdata->perm_str -= 4; ch->pcdata->perm_int -= 7; ch->pcdata->perm_wis -= 2; ch->pcdata->perm_dex += 2; ch->pcdata->perm_con -= 5; ch->race = 20; } ch->updated = 124; send_to_char(AT_RED, "Completed update to 1.24.\n\r", ch ); } if( ch->updated == 124 ) { ch->clev = 0; ch->clan = 0; send_to_char(AT_RED, "Completed update to 1.25.\n\r", ch ); ch->updated = 125; } if( ch->updated == 125 ) { /* Set race language to 100% due to bug - Ahsile*/ ch->language[race_table[ch->race].race_lang] = 100; send_to_char(AT_RED, "Completed update to 1.26.\n\r",ch ); ch->updated = 126; } if( ch->updated == 126 ) { /* Set current poison level to zero and strip poison effects */ affect_strip( ch, skill_lookup("poison") ); ch->poison_level = 0; send_to_char(AT_RED, "Completed update to 1.27.\n\r", ch ); ch->updated = 127; } if ( ch->updated == 127 ) { ch->clev = 0; ch->clan = 0; send_to_char(AT_RED, "Completed update to 1.28.\n\r", ch ); ch->updated = 128; } if( ch->updated == 128 ) { int sn; for ( sn = 0; skill_table[sn].name[0] != '\0'; sn++ ) { if ( skill_table[sn].name ) { if ( skill_table[sn].skill_level[ch->class] <= LEVEL_DEMIGOD || skill_table[sn].skill_level[ch->multied] <= LEVEL_DEMIGOD ) ch->pcdata->learned[sn] = 0; else if ( skill_table[sn].skill_level[ch->class] <= get_trust( ch ) || skill_table[sn].skill_level[ch->multied] <= get_trust( ch ) ) ch->pcdata->learned[sn] = 0; } } ch->questpoints += 150; ch->practice += 250; char_from_room( ch ); char_to_room( ch, get_room_index( get_religion_index(ch->religion)->recall ) ); send_to_char(AT_RED, "Completed update to 1.29.\n\rPlease see the forums at www.stormgate.ca, under Announcements, for the update to 1.29 for an explanation.\n\r", ch ); ch->updated = 129; } if (ch->updated == 129) { if (ch->level >= 50) { SET_BIT( ch->act, PLR_GHOST ); } send_to_char(AT_RED, "Completed update to 1.30\n\r", ch ); ch->updated = 130; } send_to_char(AT_RED, "\n\rCompleted fully. See HELP PLAYERUPDATE for more information.\n\r\n\r", ch ); ch->updated = CURRENT_PLAYER_UPDATE; } if ( !IS_SET( ch->act, PLR_WIZINVIS ) && !IS_AFFECTED( ch, AFF_INVISIBLE ) && !IS_AFFECTED2( ch, AFF_IMPROVED_INVIS ) ) { act(AT_GREEN, "$n has returned to the game.", ch, NULL, NULL, TO_ROOM ); sprintf( log_buf, "%s has returned to the game.", ch->name ); broadcast_channel( ch, log_buf, CHANNEL_INFO, "!!SOUND(holy2.wav V=100 L=1 P=50 T=Logon)"); } if ( !IS_CODER( ch ) ) { sprintf(log_buf,"%s!%s@%s has connected in room vnum %d.", ch->name, d->user, d->host, ch->in_room->vnum ); log_string(log_buf, CHANNEL_LOG, ch->level - 1 ); } if ( ch->pcdata->corpses >= 2 ) { char strfng [ MAX_INPUT_LENGTH ]; ch->pcdata->corpses = 0; #if !defined( macintosh ) && !defined( MSDOS ) sprintf( strfng, "%s%s%s%s.cps", PLAYER_DIR, initial( ch->name ), "/", capitalize( ch->name ) ); #else sprintf( strfng, "%s%s.cps", PLAYER_DIR, capitalize( ch->name ); #endif if ( remove( strfng ) != 0 ) perror( strfng ); } // initial inventory count - Ahsile ch->carry_number = ch_invcount( ch ); if ( !IS_NPC( ch ) && ch->pcdata->storage ) { OBJ_DATA *obj; OBJ_DATA *obj_next; int count = 1; char buf[MAX_STRING_LENGTH]; for ( obj = ch->pcdata->storage; obj; obj = obj_next, count++ ) { obj_next = obj->next_content; if ( ch->pcdata->bankaccount < count * 100 ) { sprintf( buf, "The bank has repossessed %s from your storage.\n\r", obj->short_descr ); send_to_char( AT_RED, buf, ch ); obj_from_storage( obj ); extract_obj( obj ); } } #if defined BANK_INVEST stor_cost = ( ( 100 + share_value) * ch->pcdata->storcount )/10; #else stor_cost = 25 * ch->pcdata->storcount; #endif sprintf( buf, "The bank deducts %dgp from your account for the storage of %d items.\n\r", stor_cost, ch->pcdata->storcount ); send_to_char( AT_PINK, buf, ch ); ch->pcdata->bankaccount -= stor_cost;; } if (ch->fixed_error) send_to_char(AT_RED, "\n\r*** Corrupted items have been found on your character.\n\r*** They have been removed to prevent a crash.\n\r\n\r", ch); do_look( ch, "auto" ); /* check for new notes */ notes = 0; for ( pnote = note_list; pnote; pnote = pnote->next ) if ( is_note_to( ch, pnote ) && str_cmp( ch->name, pnote->sender ) && pnote->date_stamp > ch->last_note && pnote->on_board == 0 ) notes++; if ( notes == 1 ) { send_to_char(AT_WHITE, "\n\rYou have one new note waiting.", ch ); } else { if ( notes > 1 ) { sprintf( buf, "\n\rYou have %d new notes waiting.", notes ); send_to_char(AT_WHITE, buf, ch ); } } if( notes >= 1 ) { if(!IS_NPC( ch ) && IS_SET( ch->act, PLR_SOUND ) ) { send_to_char(AT_WHITE, "!!SOUND(newmsg1.wav V=100 L=1 P=100 T=Logon)", ch ); } send_to_char(AT_WHITE, "\n\r", ch ); } break; } } return; } /* * Parse a name for acceptability. */ bool check_parse_name( char *name ) { /* * Reserved words. OLC 1.1b */ if ( is_name( name, "all auto immortal self someone none" ) ) return FALSE; /* * Length restrictions. */ if ( strlen( name ) < 3 ) return FALSE; #if defined( MSDOS ) if ( strlen(name) > 8 ) return FALSE; #endif #if defined( macintosh ) || defined( unix ) if ( strlen( name ) > 12 ) return FALSE; #endif /* * Alphanumerics only. * Lock out IllIll twits. */ { char *pc; bool fIll; fIll = TRUE; for ( pc = name; *pc != '\0'; pc++ ) { if ( !isalpha( *pc ) ) return FALSE; if ( LOWER( *pc ) != 'i' && LOWER( *pc ) != 'l' ) fIll = FALSE; } if ( fIll ) return FALSE; } /* * Prevent players from naming themselves after mobs. */ { extern MOB_INDEX_DATA *mob_index_hash [ MAX_KEY_HASH ]; MOB_INDEX_DATA *pMobIndex; int iHash; for ( iHash = 0; iHash < MAX_KEY_HASH; iHash++ ) { for ( pMobIndex = mob_index_hash[iHash]; pMobIndex; pMobIndex = pMobIndex->next ) { if ( is_name( name, pMobIndex->player_name ) ) return FALSE; } } } return TRUE; } /* * Look for link-dead player to reconnect. */ bool check_reconnect( DESCRIPTOR_DATA *d, char *name, bool fConn ) { OBJ_DATA *obj; CHAR_DATA *ch; for ( ch = char_list; ch; ch = ch->next ) { if ( !IS_NPC( ch ) && ( !fConn || !ch->desc ) && !str_cmp( d->character->name, ch->name ) && !ch->deleted ) { if ( fConn == FALSE ) { if (d->character != ch ) { free_string( d->character->pcdata->pwd ); d->character->pcdata->pwd = str_dup( ch->pcdata->pwd ); } } else { free_ch( d->character ); d->character = ch; ch->desc = d; ch->timer = 0; send_to_char(AT_GREEN, "Reconnecting.\n\r", ch ); act(AT_GREEN, "$n has reconnected.", ch, NULL, NULL, TO_ROOM ); sprintf( log_buf, "%s!%s@%s reconnected in room vnum %d.", ch->name, d->user, d->host, ch->in_room->vnum ); log_string( log_buf, CHANNEL_LOG, ch->level -1 ); if ( !IS_SET( ch->act, PLR_WIZINVIS ) && !IS_AFFECTED( ch, AFF_INVISIBLE ) && !IS_AFFECTED2( ch, AFF_IMPROVED_INVIS ) ) { sprintf( log_buf, "%s reconnected.", ch->name); log_string( log_buf, CHANNEL_INFO, ch->level -1 ); } d->connected = CON_PLAYING; { USERL_DATA *ul; for ( ul = user_list; ul; ul = ul->next ) { if ( !str_cmp( ch->name, ul->name ) ) { sprintf( log_buf, "On Since %s", ctime( ¤t_time ) ); *( log_buf + strlen( log_buf ) - 1 ) = '\0'; free_string( ul->lastlogin ); ul->lastlogin = str_dup( log_buf ); ul->class = ch->class; ul->multi = ch->multied; break; } } } /* * Contributed by Gene Choi */ if ( ( obj = get_eq_char( ch, WEAR_LIGHT ) ) && obj->item_type == ITEM_LIGHT && obj->value[2] != 0 && ch->in_room ) ++ch->in_room->light; } return TRUE; } } return FALSE; } /* * Check if already playing. */ bool check_playing( DESCRIPTOR_DATA *d, char *name ) { DESCRIPTOR_DATA *dold; for ( dold = descriptor_list; dold; dold = dold->next ) { if ( dold != d && dold->character && dold->connected != CON_GET_NAME && dold->connected != CON_GET_OLD_PASSWORD && !str_cmp( name, dold->original ? dold->original->name : dold->character->name ) && !dold->character->deleted ) { if (dold->character->level == 1) { write_to_buffer( d, "Already playing.\n\rName: ", 0 ); d->connected = CON_GET_NAME; if ( d->character ) { free_ch( d->character ); d->character = NULL; } return TRUE; } if ( dold->connected == CON_PLAYING ) { #ifndef SQL_SYSTEM free_ch(d->character); d->character = (dold->original ? dold->original : dold->character ); #else if (d->character != dold->character) { free_ch(d->character); d->character = (dold->original ? dold->original : dold->character ); } #endif if ( dold->original ) dold->original->desc = NULL; dold->character->desc = NULL; d->character->desc = d; dold->original = NULL; dold->character = NULL; write_to_buffer(dold, "Kicking off old link.\n\r", 0); close_socket(dold); if ( !IS_SET( d->character->act, PLR_WIZINVIS ) ) act( AT_GREEN, "A ghostly aura briefly embodies $n.", d->character, NULL, NULL, TO_ROOM ); send_to_char( AT_GREEN, "You arise from netdeath and continue" " playing.\n\r", d->character ); sprintf(log_buf, "%s connects, kicking off old link.", d->character->name); log_string(log_buf, CHANNEL_LOG, d->character->level); sprintf(log_buf, "%s has returned to the game.", d->character->name ); log_string( log_buf, CHANNEL_INFO, d->character->level - 1); d->connected = CON_PLAYING; return TRUE; } write_to_buffer( d, "Already playing.\n\r Name: ", 0 ); d->connected = CON_GET_NAME; if ( d->character ) { free_ch( d->character ); d->character = NULL; } return TRUE; } } return FALSE; } void stop_idling( CHAR_DATA *ch ) { if ( !ch || !ch->desc || ch->desc->connected != CON_PLAYING || !ch->was_in_room || ch->in_room != get_room_index( ROOM_VNUM_LIMBO ) ) return; ch->timer = 0; char_from_room( ch ); char_to_room( ch, ch->was_in_room ); ch->was_in_room = NULL; act(AT_GREEN, "$n has returned from the void.", ch, NULL, NULL, TO_ROOM ); return; } /* * Write to all characters. */ void send_to_all_char( const char *text ) { DESCRIPTOR_DATA *d; if ( !text ) return; for ( d = descriptor_list; d; d = d->next ) if ( d->connected == CON_PLAYING ) send_to_char(AT_YELLOW, text, d->character ); return; } /* * Write to one char. */ void send_to_char(int AType, const char *txt, CHAR_DATA *ch ) { if ( !txt || !ch->desc ) return; free_string( ch->desc->showstr_head ); ch->desc->showstr_head = str_dup( txt ); ch->desc->showstr_point = ch->desc->showstr_head; set_char_color( AType, ch ); show_string( ch->desc, "" ); } void set_char_color( int AType, CHAR_DATA *ch ) { char buf[32]; if ( IS_SET(ch->act,PLR_ANSI) && ch->desc ) { if (AType>15) sprintf( buf,"\033[0;%d;5;%dm",(((AType-16) & 8)==8),30+((AType-16) & 7) ); else sprintf( buf,"\033[0;%d;%dm",((AType & 8)==8),30+(AType & 7) ); write_to_buffer( ch->desc, buf, strlen(buf) ); } return; } /* OLC, new pager for editing long descriptions. */ /* ========================================================================= */ /* - The heart of the pager. Thanks to N'Atas-Ha, ThePrincedom for porting */ /* this SillyMud code for MERC 2.0 and laying down the groundwork. */ /* - Thanks to Blackstar, hopper.cs.uiowa.edu 4000 for which the improvements*/ /* to the pager was modeled from. - Kahn */ /* - Safer, allows very large pagelen now, and allows to page while switched */ /* Zavod of jcowan.reslife.okstate.edu 4000. */ /* ========================================================================= */ void show_string( DESCRIPTOR_DATA *d, char *input ) { char *start, *end; char arg[MAX_INPUT_LENGTH]; int lines = 0, pagelen; if ( !d ) return; /* Set the page length */ /* ------------------- */ pagelen = d->original ? d->original->pcdata->pagelen : d->character->pcdata->pagelen; /* Check for the command entered */ /* ----------------------------- */ one_argument( input, arg ); switch( UPPER( *arg ) ) { /* Show the next page */ case '\0': case 'C': lines = 0; break; /* Scroll back a page */ case 'B': lines = -2 * pagelen; break; /* Help for show page */ case 'H': write_to_buffer( d, "B - Scroll back one page.\n\r", 0 ); write_to_buffer( d, "C - Continue scrolling.\n\r", 0 ); write_to_buffer( d, "H - This help menu.\n\r", 0 ); write_to_buffer( d, "R - Refresh the current page.\n\r", 0 ); write_to_buffer( d, "Enter - Continue Scrolling.\n\r", 0 ); return; /* refresh the current page */ case 'R': lines = -1 - pagelen; break; /* stop viewing */ default: free_string( d->showstr_head ); d->showstr_head = NULL; d->showstr_point = NULL; return; } /* do any backing up necessary to find the starting point */ /* ------------------------------------------------------ */ if ( lines < 0 ) { for( start= d->showstr_point; start > d->showstr_head && lines < 0; start-- ) if ( *start == '\r' ) lines++; } else start = d->showstr_point; /* Find the ending point based on the page length */ /* ---------------------------------------------- */ lines = 0; for ( end= start; *end && lines < pagelen; end++ ) { if ( *end == '\r' ) lines++; } d->showstr_point = end; if ( end - start ) write_to_buffer( d, start, end - start ); /* See if this is the end (or near the end) of the string */ /* ------------------------------------------------------ */ for ( ; isspace( *end ); end++ ); if ( !*end ) { free_string( d->showstr_head ); d->showstr_head = NULL; d->showstr_point = NULL; } return; } /* * The primary output interface for formatted output. */ void act(int AType, const char *format, CHAR_DATA *ch, const void *arg1, const void *arg2, int type ) { OBJ_DATA *obj1 = (OBJ_DATA *) arg1; OBJ_DATA *obj2 = (OBJ_DATA *) arg2; CHAR_DATA *to; CHAR_DATA *vch = (CHAR_DATA *) arg2; static char * const he_she [ ] = { "it", "he", "she" }; static char * const him_her [ ] = { "it", "him", "her" }; static char * const his_her [ ] = { "its", "his", "her" }; const char *str; const char *i; char *point; char buf [ MAX_STRING_LENGTH ]; char buf2 [ MAX_STRING_LENGTH ]; char fname [ MAX_INPUT_LENGTH ]; /* * Discard null and zero-length messages. */ if ( !format || format[0] == '\0' ) return; if (!ch->in_room) { ch->in_room = get_room_index(ROOM_VNUM_LIMBO); } to = ch->in_room->people; if ( type == TO_VICT ) { if ( !vch ) { bug( "Act: null vch with TO_VICT.", 0 ); return; } to = vch->in_room->people; } for ( ; to; to = to->next_in_room ) { if ( ( to->deleted ) || !IS_AWAKE( to ) ) continue; if ( type == TO_CHAR && to != ch ) continue; if ( type == TO_VICT && ( to != vch || to == ch ) ) continue; if ( type == TO_ROOM && to == ch ) continue; if ( type == TO_NOTVICT && (to == ch || to == vch) ) continue; if ( type == TO_COMBAT && (to == ch || to == vch || !IS_SET(to->act, PLR_COMBAT ) ) ) continue; point = buf; str = format; while ( *str != '\0' ) { if ( *str != '$' ) { *point++ = *str++; continue; } ++str; if ( !arg2 && *str >= 'A' && *str <= 'Z' ) { bug( "Act: missing arg2 for code %d.", *str ); sprintf( log_buf, "String: %s.", format ); bug( log_buf, 0 ); i = " <@@@> "; } else { switch ( *str ) { default: bug( "Act: bad code %d.", *str ); i = " <@@@> "; break; /* Thx alex for 't' idea */ case 't': i = (char *) arg1; break; case 'T': i = (char *) arg2; break; case 'n': i = PERS( ch, to ); break; case 'N': i = PERS( vch, to ); break; case 'e': i = he_she [URANGE( 0, ch ->sex, 2 )]; break; case 'E': i = he_she [URANGE( 0, vch ->sex, 2 )]; break; case 'm': i = him_her [URANGE( 0, ch ->sex, 2 )]; break; case 'M': i = him_her [URANGE( 0, vch ->sex, 2 )]; break; case 's': i = his_her [URANGE( 0, ch ->sex, 2 )]; break; case 'S': i = his_her [URANGE( 0, vch ->sex, 2 )]; break; case 'p': i = can_see_obj( to, obj1 ) ? obj1->short_descr : "something"; break; case 'P': i = can_see_obj( to, obj2 ) ? obj2->short_descr : "something"; break; case 'd': if ( !arg2 || ( (char *) arg2 )[0] == '\0' ) { i = "door"; } else { one_argument( (char *) arg2, fname ); i = fname; } break; } } ++str; while ( ( *point = *i ) != '\0' ) ++point, ++i; } *point++ = '\n'; *point++ = '\r'; *point++ = '\0'; buf[0] = UPPER( buf[0] ); if (IS_SET(to->act,PLR_ANSI)) { if (AType>15) sprintf(buf2,"\033[0;%d;5;%dm",(((AType-16) & 8)==8),30+((AType-16) & 7)); else sprintf(buf2,"\033[0;%d;%dm",((AType & 8)==8),30+(AType & 7)); strcat(buf2, buf); } else strcpy(buf2, buf); if ( to->desc ) write_to_buffer( to->desc, buf2, strlen(buf2) ); if (MOBtrigger) mprog_act_trigger( buf, to, ch, obj1, vch ); } MOBtrigger = TRUE; return; } /* * Macintosh support functions. */ #if defined( macintosh ) || defined( RUN_AS_WIN32SERVICE) int gettimeofday( struct timeval *tp, struct timezone *tzp ) { tp->tv_sec = time( NULL ); tp->tv_usec = 0; return 0; } #endif void do_authorize(CHAR_DATA *ch, char *argument) { DESCRIPTOR_DATA *d; char arg1[MAX_STRING_LENGTH]; char arg2[MAX_STRING_LENGTH]; char buf[MAX_STRING_LENGTH]; int mode = 0; if(argument[0] != '\0') { argument = one_argument(argument, arg1); argument = one_argument(argument, arg2); if(arg2[0] == '\0' || !str_prefix(arg2, "yes")) mode = 1; else if(!str_prefix(arg2, "no")) mode = 2; else mode = 3; } else { send_to_char(AT_PURPLE,"People waiting for authorization:\n\r",ch); send_to_char(AT_PURPLE,"---------------------------------\n\r",ch); } for(d = descriptor_list;d;d = d_next) { d_next = d->next; if(!d->character) continue; if(!d->character->name) continue; if(mode == 0) { if(d->connected >= CON_AUTHORIZE_NAME && d->connected <= CON_AUTHORIZE_LOGOUT) { sprintf(buf, " %s!%s@%s\n\r", d->character->name, d->user, d->host); send_to_char(C_DEFAULT, buf, ch); } } else if(d->connected >= CON_AUTHORIZE_NAME && d->connected <= CON_AUTHORIZE_LOGOUT && is_name(d->character->name, arg1)) { if(mode == 1) { send_to_char(C_DEFAULT, "Character authorized.\n\r", ch); d->connected = CON_READ_MOTD; write_to_buffer(d, "You have been authorized. Press return.\n\r", 0 ); sprintf(buf, "%s!%s@%s AUTHORIZED by %s.", d->character->name, d->user, d->host, ch->name); log_string(buf, CHANNEL_LOG, -1 ); return; } else if(mode == 2) { send_to_char(C_DEFAULT, "Character denied.\n\r", ch); write_to_buffer(d, "Please choose a more medieval name.\n\r", 0 ); sprintf(buf, "%s!%s@%s denied by %s.", d->character->name, d->user, d->host, ch->name); log_string( buf, CHANNEL_LOG, -1 ); close_socket(d); return; } else { send_to_char(C_DEFAULT, "Ok.\n\r", ch); sprintf(buf, "%s %s.\n\r", arg2, argument); write_to_buffer(d, buf, 0); close_socket(d); return; } } } if(mode) send_to_char(C_DEFAULT, "No such unauthorized person.\n\r", ch); return; } void send_to_area( AREA_DATA *pArea, char *txt ) { DESCRIPTOR_DATA *d; for ( d = descriptor_list; d; d = d->next ) { if ( d->connected != CON_PLAYING ) continue; if ( d->character ) { if ( !( d->character->in_room ) || ( d->character->deleted ) || !IS_OUTSIDE( d->character ) || !IS_AWAKE( d->character ) ) continue; if ( d->character->in_room->area == pArea ) send_to_char( C_DEFAULT, txt, d->character ); } } return; } bool check_ban( DESCRIPTOR_DATA *dnew, bool loggedin ) { BAN_DATA *pban; DESCRIPTOR_DATA *dremove; for ( pban = ban_list; pban; pban = pban->next ) { if ( ( !str_suffix( pban->name, dnew->host ) && !pban->user ) || ( pban->user && !str_cmp( pban->user, dnew->user ) && !str_suffix( pban->name, dnew->host ) ) ) { if ( pban->user && !str_cmp( pban->user, dnew->user ) ) if ( !str_suffix( pban->name, dnew->host ) ) { write_to_descriptor( dnew->descriptor, "You have been banned from the Mud.\n\r", 0, dnew ); } if ( !str_suffix( pban->name, dnew->host ) && !pban->user ) { write_to_descriptor( dnew->descriptor, "Your site has been banned from the Mud.\n\r", 0, dnew ); } sprintf( log_buf, "%s!%s@%s being denied access.", dnew->character ? dnew->character->name : "(unknown)", dnew->user, dnew->host ); bug( log_buf, 0 ); close( dnew->descriptor ); if ( loggedin ) { for ( dremove = descriptor_list; dremove; dremove = dremove->next ) if ( dremove->next == dnew ) break; dremove->next = dnew->next; } if ( dnew->character ) { extract_char( dnew->character, TRUE ); } free_mem( dnew->outbuf, dnew->outsize ); free_descriptor(dnew); return TRUE; } } return FALSE; } void send_to_al( int clr, int level, char *text ) { CHAR_DATA *ch; for ( ch = char_list; ch; ch = ch->next ) { if ( !ch->desc ) continue; if ( get_trust( ch ) > level ) send_to_char( clr, text, ch ); } return; } bool is_pkillable( CHAR_DATA *ch, CHAR_DATA *victim ) { if ( is_safe( ch, victim ) ) { send_to_char(AT_WHITE, "You cannot.\n\r", ch); return FALSE; } if ( IS_AFFECTED4(victim, AFF_BURROW) ) { send_to_char(AT_WHITE, "You cannot attack someone who is burrowed!\n\r",ch); return FALSE; } if ( IS_NPC(ch) || IS_NPC(victim) ) { return TRUE; } if( IS_SET(ch->in_room->room_flags, ROOM_PKILL ) && ch->level >= 30 && victim->level >= 30 && ( ( ch->clan != victim->clan || ch->clan == 0 || victim->clan == 0 ) ) ) { victim->pkill_timer = 0; ch->pkill_timer = 0; return TRUE; } if (ch == victim) return TRUE; if (!ch->pkill) { send_to_char(AT_WHITE, "You are peaceful, you cannot murder other players.\n\r", ch); } else if (!victim->pkill) { send_to_char(AT_WHITE, "You cannot attack a peaceful player.\n\r", ch); } else if ( victim->pkill_timer > 0 ) { send_to_char(AT_WHITE, "You cannot attack someone who has just been killed.\n\r", ch); } else if ( ( ch->level < 30 ) || ( victim->level < 30 ) ) { send_to_char(AT_WHITE, "You can not murder anyone under level 30.\n\r", ch); } else if ( ( ch->level - PKILL_RANGE > victim->level ) || ( ch->level + PKILL_RANGE < victim->level ) ) { send_to_char(AT_WHITE, "That is not in the pkill range... valid range is +/- 8 levels.\n\r", ch ); } else if( ( victim->clan == ch->clan ) && ch->clan != 0 ) { send_to_char(C_DEFAULT, "You can't attack someone in the your clan.\n\r", ch ); } else { return TRUE; } return FALSE; } bool IS_SHIELDABLE( CHAR_DATA *ch ) { int temp1; int temp2; int temp3; temp1 = class_table[ch->class].no_shields; temp2 = class_table[ch->multied].no_shields; temp3 = 5; if (temp1 > temp2) { temp3 = temp2; } if (temp2 > temp1 ) { temp3 = temp1; } if (temp1 == temp2) { temp3 = temp1; } if(ch->shields >= temp3) { send_to_char(AT_WHITE, "You have the maximum number of shields allowed for your class.\n\r", ch); return FALSE; } else { return TRUE; } } void ___exit( int arg ) { exit( arg ); } #if !defined( RUN_AS_WIN32SERVICE ) int main( int argc, char **argv ) { struct timeval now_time; #if defined( unix ) int control; #endif /* * Init time. */ gettimeofday( &now_time, NULL ); current_time = (time_t) now_time.tv_sec; strcpy( str_boot_time, ctime( ¤t_time ) ); /* * Macintosh console initialization. */ #if defined( macintosh ) console_options.nrows = 31; cshow( stdout ); csetmode( C_RAW, stdin ); cecho2file( "log file", 1, stderr ); #endif /* * Reserve one channel for our use. */ if ( !( fpReserve = fopen( NULL_FILE, "r" ) ) ) { perror( NULL_FILE ); ___exit( 0 ); } /* * Get the port number. */ port = 1234; if ( argc > 1 ) { if ( !is_number( argv[1] ) ) { fprintf( stderr, "Usage: %s [port #]\n", argv[0] ); ___exit( 0 ); } else if ( ( port = atoi( argv[1] ) ) <= 1024 ) { fprintf( stderr, "Port number must be above 1024.\n" ); ___exit( 0 ); } } /* * Run the game. */ #if defined( macintosh ) || defined( MSDOS ) boot_db( ); log_string( "OmegaMud is ready to rock.", CHANNEL_NONE, -1 ); game_loop_mac_msdos( ); #endif #if defined( unix ) boot_db( ); note_cleanup( ); control = init_socket( port ); sprintf( log_buf, "OmegmaMud is ready to rock on port %d.", port ); log_string( log_buf, CHANNEL_NONE, -1 ); { FILE *fp; char buf[MAX_INPUT_LENGTH]; #if !defined( RUN_AS_WIN32SERVICE ) sprintf(buf, "cp -f comlog%d.019 comlog%d.020", port, port ); system( buf ); sprintf(buf, "cp -f comlog%d.018 comlog%d.019", port, port ); system( buf ); sprintf(buf, "cp -f comlog%d.017 comlog%d.018", port, port ); system( buf ); sprintf(buf, "cp -f comlog%d.016 comlog%d.017", port, port ); system( buf ); sprintf(buf, "cp -f comlog%d.015 comlog%d.016", port, port ); system( buf ); sprintf(buf, "cp -f comlog%d.014 comlog%d.015", port, port ); system( buf ); sprintf(buf, "cp -f comlog%d.013 comlog%d.014", port, port ); system( buf ); sprintf(buf, "cp -f comlog%d.012 comlog%d.013", port, port ); system( buf ); sprintf(buf, "cp -f comlog%d.011 comlog%d.012", port, port ); system( buf ); sprintf(buf, "cp -f comlog%d.010 comlog%d.011", port, port ); system( buf ); sprintf(buf, "cp -f comlog%d.009 comlog%d.010", port, port ); system( buf ); sprintf(buf, "cp -f comlog%d.008 comlog%d.009", port, port ); system( buf ); sprintf(buf, "cp -f comlog%d.007 comlog%d.008", port, port ); system( buf ); sprintf(buf, "cp -f comlog%d.006 comlog%d.007", port, port ); system( buf ); sprintf(buf, "cp -f comlog%d.005 comlog%d.006", port, port ); system( buf ); sprintf(buf, "cp -f comlog%d.004 comlog%d.005", port, port ); system( buf ); sprintf(buf, "cp -f comlog%d.003 comlog%d.004", port, port ); system( buf ); sprintf(buf, "cp -f comlog%d.002 comlog%d.003", port, port ); system( buf ); sprintf(buf, "cp -f comlog%d.001 comlog%d.002", port, port ); system( buf ); sprintf(buf, "cp -f comlog%d.txt comlog%d.001", port, port ); system( buf ); #else char from[MAX_STRING_LENGTH]; char to[MAX_STRING_LENGTH]; int i; for(i = 19; i >=0 ; i--) { if (i==0) { sprintf(from, "comlog%d.txt", port); } else { sprintf(from, "comlog%d.%03d", port, i); } sprintf(to, "comlog%d.%03d", port, i+1); copyfile(from, to); } #endif sprintf(buf, "comlog%d.txt", port ); fclose(fpReserve); if ( !(fp = fopen( buf, "w" ) ) ) perror( buf ); else { fprintf( fp, "%s: %s\n", ctime( ¤t_time ), log_buf ); fclose(fp); } fpReserve = fopen(NULL_FILE, "r" ); } game_loop_unix( control ); close( control ); #endif free_allocated_mem(); /* * That's all, folks. */ log_string( "Normal termination of game.", CHANNEL_NONE, -1 ); ___exit( 0 ); return 0; } #else void ServiceMain(int argc, char** argv); void ControlHandler(DWORD request); int WriteToLog(char* str); int InitService(); SERVICE_STATUS ServiceStatus; SERVICE_STATUS_HANDLE hStatus; int RegSvc() { char strDir[1024]; HANDLE schSCManager,schService; SC_ACTION restart_my_svc; char lpszBinaryPathName[MAX_STRING_LENGTH]; SERVICE_FAILURE_ACTIONS my_service_actions; GetCurrentDirectory(1024,strDir); strcat(strDir,"\\Stormgate.exe"); schSCManager = OpenSCManager(NULL,NULL,SC_MANAGER_ALL_ACCESS); if (schSCManager == NULL) { return 0; } strcpy(lpszBinaryPathName,strDir); schService = CreateService(schSCManager,"Stormgate","Stormgate", // service name to display SERVICE_ALL_ACCESS, // desired access SERVICE_WIN32_OWN_PROCESS, // service type SERVICE_DEMAND_START, // start type SERVICE_ERROR_NORMAL, // error control type lpszBinaryPathName, // service's binary NULL, // no load ordering group NULL, // no tag identifier NULL, // no dependencies NULL, // LocalSystem account NULL); // no password if (schService == NULL) return 0; restart_my_svc.Delay = 0; restart_my_svc.Type = SC_ACTION_RESTART; my_service_actions.dwResetPeriod = INFINITE; my_service_actions.lpRebootMsg = NULL; my_service_actions.lpCommand = NULL; my_service_actions.cActions = 1; my_service_actions.lpsaActions = &restart_my_svc; ChangeServiceConfig2(schService, SERVICE_CONFIG_FAILURE_ACTIONS, &my_service_actions); CloseServiceHandle(schService); return -1; } int UnRegSvc() { HANDLE schSCManager; SC_HANDLE hService; schSCManager = OpenSCManager(NULL,NULL,SC_MANAGER_ALL_ACCESS); if (schSCManager == NULL) return -1; hService=OpenService(schSCManager,"Stormgate",SERVICE_ALL_ACCESS); if (hService == NULL) return -1; if(DeleteService(hService)==0) return -1; if(CloseServiceHandle(hService)==0) return -1; else return 0; } int main(int argc, char** argv) { char buf[MAX_PATH]; SERVICE_TABLE_ENTRY ServiceTable[2]; if (argc > 1) { if(strcmp(argv[1],"\\r")==0) { printf("Registering Stormgate Service..."); return RegSvc(); } else if (strcmp(argv[1],"\\u")==0) { printf("Unregistering Stormgate Service..."); return UnRegSvc(); } else if (!isdigit(argv[1][0])) { return -1; } } if (argc > 1) { sprintf(buf, "Stormgate%s", argv[1]); } else { strcpy(buf, "Stormgate"); } ServiceTable[0].lpServiceName = buf; ServiceTable[0].lpServiceProc = (LPSERVICE_MAIN_FUNCTION)ServiceMain; ServiceTable[1].lpServiceName = NULL; ServiceTable[1].lpServiceProc = NULL; // Start the control dispatcher thread for our service StartServiceCtrlDispatcher(ServiceTable); return 0; } void copyfile(char* from, char* to) { FILE* in = fopen(from,"r"); char buf[MAX_STRING_LENGTH]; if (in) { FILE* out = fopen(to, "w"); if (out) { int count=0; while(!feof(in)) { count = fread(buf, sizeof(char), MAX_STRING_LENGTH, in); fwrite(buf, sizeof(char), count, out); }; fclose(out); } fclose(in); } } void ServiceMain(int argc, char** argv) { char buf[MAX_STRING_LENGTH]; HANDLE schSCManager; HANDLE hService; DWORD size; DWORD realsize; QUERY_SERVICE_CONFIG* conf; FILE* lognum; int ln; int control; struct timeval now_time; //Sleep(30000); ServiceStatus.dwServiceType = SERVICE_WIN32; ServiceStatus.dwCurrentState = SERVICE_START_PENDING; ServiceStatus.dwControlsAccepted = SERVICE_ACCEPT_STOP | SERVICE_ACCEPT_SHUTDOWN; ServiceStatus.dwWin32ExitCode = 0; ServiceStatus.dwServiceSpecificExitCode = 0; ServiceStatus.dwCheckPoint = 0; ServiceStatus.dwWaitHint = 0; //Sleep(20000); if (argc > 1) { sprintf(buf, "Stormgate%s", argv[1]); } else { strcpy(buf, "Stormgate"); } hStatus = RegisterServiceCtrlHandler(buf, (LPHANDLER_FUNCTION)ControlHandler); if (hStatus == (SERVICE_STATUS_HANDLE)0) { // Registering Control Handler failed return; } schSCManager = OpenSCManager(NULL,NULL,SC_MANAGER_ALL_ACCESS); hService = OpenService(schSCManager, buf, SERVICE_ALL_ACCESS); QueryServiceConfig(hService, NULL, 0, &size); realsize = size; conf = malloc(size); QueryServiceConfig(hService, conf, realsize, &size); memset(buf, 0, MAX_STRING_LENGTH); strncpy(buf, conf->lpBinaryPathName, (int)((strrchr(conf->lpBinaryPathName, '\\') - conf->lpBinaryPathName + 1))); _chdir(buf); free(conf); CloseServiceHandle(hService); CloseServiceHandle(schSCManager); ServiceStatus.dwCurrentState = SERVICE_RUNNING; SetServiceStatus (hStatus, &ServiceStatus); lognum = fopen("lognum.txt","r"); ln = 1000; if (lognum) { memset(buf,0,MAX_STRING_LENGTH); fread(buf, sizeof(char),MAX_STRING_LENGTH,lognum); fclose(lognum); ln = atoi(buf); ln++; } sprintf(buf,"%d",ln); lognum = fopen("lognum.txt","w"); fwrite(buf,sizeof(char),strlen(buf),lognum); fclose(lognum); sprintf(buf,"../log/%d.log", ln); __stderr = freopen(buf,"w",stderr); /* * Init time. */ gettimeofday( &now_time, NULL ); current_time = (time_t) now_time.tv_sec; strcpy( str_boot_time, ctime( ¤t_time ) ); /* * Reserve one channel for our use. */ if ( !( fpReserve = fopen( NULL_FILE, "r" ) ) ) { perror( NULL_FILE ); ___exit( 0 ); } /* * Get the port number. */ port = 1234; if ( argc > 1 ) { if ( !is_number( argv[1] ) ) { fprintf( __stderr, "Usage: %s [port #]\n", argv[0] ); ___exit( 0 ); } else if ( ( port = atoi( argv[1] ) ) <= 1024 ) { fprintf( __stderr, "Port number must be above 1024.\n" ); ___exit( 0 ); } } /* * Run the game. */ boot_db( ); note_cleanup( ); control = init_socket( port ); sprintf( log_buf, "OmegmaMud is ready to rock on port %d.", port ); log_string( log_buf, CHANNEL_NONE, -1 ); { FILE *fp; char buf[MAX_INPUT_LENGTH]; char from[MAX_STRING_LENGTH]; char to[MAX_STRING_LENGTH]; int i; for(i = 19; i >=0 ; i--) { if (i==0) { sprintf(from, "comlog%d.txt", port); } else { sprintf(from, "comlog%d.%03d", port, i); } sprintf(to, "comlog%d.%03d", port, i+1); copyfile(from, to); } sprintf(buf, "comlog%d.txt", port ); fclose(fpReserve); if ( !(fp = fopen( buf, "w" ) ) ) perror( buf ); else { fprintf( fp, "%s: %s\n", ctime( ¤t_time ), log_buf ); fclose(fp); } fpReserve = fopen(NULL_FILE, "r" ); } game_loop_unix( control ); #ifdef RUN_AS_WIN32SERVICE closesocket( control ); #else close( control ); #endif free_allocated_mem(); /* * That's all, folks. */ log_string( "Normal termination of game.", CHANNEL_NONE, -1 ); ___exit( 0 ); return; } void ControlHandler(DWORD request) { switch(request) { case SERVICE_CONTROL_STOP: ServiceStatus.dwWin32ExitCode = 0; ServiceStatus.dwCurrentState = SERVICE_STOPPED; SetServiceStatus (hStatus, &ServiceStatus); return; case SERVICE_CONTROL_SHUTDOWN: ServiceStatus.dwWin32ExitCode = 0; ServiceStatus.dwCurrentState = SERVICE_STOPPED; SetServiceStatus (hStatus, &ServiceStatus); return; default: break; } // Report current status SetServiceStatus (hStatus, &ServiceStatus); return; } #endif