自学教程：C++ tell_player函数代码示例

 void delete_received(player *p,char *str) {   int number,count=0;   int *make,*scan;   char *oldstack;   note *deleted;   number=atoi(str);   if (number<=0) {     tell_player(p,"Format: delete <mail number>/n");     return;   }   if (!(p->saved)) {     tell_player(p,"You have no save information, and therefore no mail either./n");     return;   }   scan=p->saved->mail_received;   if (!scan) {     tell_player(p,"You have recieved no mail to delete./n");     return;   }   oldstack=stack;   align(stack);   make=(int *)stack;   for(number--;number;number--)      if (*scan) {       *make++=*scan++;       count++;     }     else break;   if (!*scan) {     tell_player(p,"Not that many pieces of mail./n");     stack=oldstack;     return;   }   deleted=find_note(*scan++);   while(*scan) {     *make++=*scan++;     count++;   }   *make++=0;   count++;   if (p->saved->mail_received) FREE(p->saved->mail_received);   if (count!=1) {     p->saved->mail_received=(int *)MALLOC(sizeof(int)*count);     memcpy(p->saved->mail_received,stack,sizeof(int)*count);   }   else p->saved->mail_received=0;   if (deleted) {     deleted->read_count--;     if (!(deleted->read_count)) unlink_mail(deleted);   }   tell_player(p,"Mail deleted..../n");   stack=oldstack; }

void intercom_unbanish_name(player * p, char *str){  nameban *prev, *scan;  char *oldstack;  if (!*str)  {    tell_player(p, "Format: intercom unbanish_name <name>/n");    return;  }  if (p->flags & BLOCK_SU)  {    tell_player(p, "Please go on duty to do that./n");    return;  }  scan = nameban_anchor;  prev = 0;  while (scan)  {    if (scan->name[0] && !strcasecmp(scan->name, str))    {      if (scan->type == 1)	tell_player(p, " Name unbarred./n");      else	tell_player(p, " Name unbanished./n");      oldstack = stack;      sprintf(oldstack, "-=> %s allows the name '%s' to use the "	      "intercom./n", p->name, str);      stack = end_string(oldstack);      su_wall(oldstack);      stack = oldstack;      if (prev)	prev->next = scan->next;      else	nameban_anchor = scan->next;      if (scan->type == 2)	sync_banish_names();      FREE(scan);      return;    }    prev = scan;    scan = scan->next;  }  tell_player(p, " That name is not in the banished list./n");  return;}

void            show_exits(player * p, char *str){   if (p->saved_flags & SHOW_EXITS)   {      tell_player(p, " You won't see exits when you enter a room now./n");      p->saved_flags &= ~SHOW_EXITS;   } else   {      tell_player(p, " When you enter a room you will now see the exits./n");      p->saved_flags |= SHOW_EXITS;   }}

void reset_session(player * p, char *str){  char *oldstack = stack;  player *scan;  if (config_flags & cfNOSWEAR)    str = filter_rude_words(str);  if (strlen(str) > 55)  {    tell_player(p, " Too long a session name .../n");    stack = oldstack;    return;  }  if (*str)  {    if (strstr(str, "^"))      sprintf(session, "%s^N", str);    else      sprintf(session, "%s", str);    sprintf(stack, " You reset the session message to be '%s^N'/n", str);    stack = end_string(stack);    tell_player(p, oldstack);    /* reset comments */    for (scan = flatlist_start; scan; scan = scan->flat_next)      strncpy(scan->comment, "", MAX_COMMENT - 3);    stack = oldstack;    sprintf(stack, "%s resets the session to be '%s'/n", p->name, str);    stack = end_string(stack);    command_type |= EVERYONE;    for (scan = flatlist_start; scan; scan = scan->flat_next)      if (scan != p && !(scan->custom_flags & YES_SESSION))	tell_player(scan, oldstack);    stack = oldstack;    p_sess = p;    strcpy(sess_name, p->name);    sprintf(stack, "%s- %s", p->name, session);    stack = end_string(stack);    log("session", oldstack);    stack = oldstack;  }  session_reset = 0;  tell_player(p, " Session timer reset./n");}

void intercom_unbar_name(player * p, char *str){  nameban *scan, *prev;  char *oldstack;  if (!*str)  {    tell_player(p, " Format: intercom unbar_name <name>./n");    return;  }  if (p->flags & BLOCK_SU)  {    tell_player(p, "Please go on duty to do that./n");    return;  }  scan = nameban_anchor;  prev = 0;  while (scan)  {    if (scan->name[0] && !strcasecmp(scan->name, str))    {      if (scan->type == 2)      {	tell_player(p, " They are banished, you need to use intercom "		    "unbanish_name to re-permit them./n");	return;      }      tell_player(p, " Name unbanished./n");      oldstack = stack;      sprintf(oldstack, "-=> %s allows the name '%s' to use the "	      "intercom./n", p->name, str);      stack = end_string(oldstack);      su_wall(oldstack);      stack = oldstack;      if (prev)	prev->next = scan->next;      else	nameban_anchor = scan->next;      FREE(scan);      return;    }    prev = scan;    scan = scan->next;  }  tell_player(p, " No such name in the intercom barred lists./n");  return;}

void            pager(player * p, char *text, int page){   ed_info        *e;   int             length = 0, lines = 0;   char           *scan;   if (p->saved_flags & NO_PAGER && !page)   {      tell_player(p, text);      return;   }   if (p->edit_info)   {      tell_player(p, " You are currently already in the pager/editor!/n");      return;   }   /* scan whole of string, if its a newline then increase lines, and inc      length -again-??       Of course - this routine below can't actually cope with overwrapping       lines */   for (scan = text; *scan; scan++, length++)   {      if (*scan == '/n')         lines++;   }   if (lines > (TERM_LINES + 1))   {      e = (ed_info *) MALLOC(sizeof(ed_info));      if(e==NULL) {         tell_player(p, " Eeek, can't enter pager right now./n");         return;      }      memset(e, 0, sizeof(ed_info));      p->edit_info = e;      e->buffer = (char *) MALLOC(length+1);      if(e->buffer==NULL) {         tell_player(p, " Eeek, can't enter pager right now./n");         free(e);         return;      }      memset(e->buffer, 0, length+1);      strncpy(e->buffer, text, length);      e->current = e->buffer;      e->max_size = lines;      e->size = 0;      e->input_copy = p->input_to_fn;      e->flag_copy = p->flags;      p->input_to_fn = pager_fn;      p->flags &= ~PROMPT;   }   draw_page(p, text, 1);}

void add_intercom_server(player * p, char *str){  char *name, *abbr, *addr, *port, *oldstack;  name = str;  abbr = 0;  addr = 0;  port = 0;  if (*name)  {    abbr = strchr(name, ':');    if (abbr)    {      *abbr++ = '/0';      if (*abbr)      {	addr = strchr(abbr, ':');	if (addr)	{	  *addr++ = '/0';	  if (*addr)	  {	    port = strchr(addr, ':');	    if (port)	      *port++ = '/0';	  }	}      }    }  }  if (!port || !*port || !*addr || !*abbr || !name || !*name)  {    tell_player(p, "Format: add_server "		"<name>:<abbreviation>:<address>:<port>/n");    return;  }  oldstack = stack;  sprintf(oldstack, " Sending request to intercom to add %s to the database, "	  "at address %s %s, abbreviated to %s./n", name, addr, port, abbr);  stack = end_string(oldstack);  tell_player(p, oldstack);  stack = oldstack;  send_to_intercom(p, "%c%s:%s:%s:%s:%s:O",		   ADD_NEW_LINK, p->name, name, abbr, addr, port);  return;}

void toggle_quiet_edit(player *p,char *str){  restore_flags(p);  if (!strcmp("off",str)) p->saved_flags &= ~QUIET_EDIT;  else if (!strcmp("on",str)) p->saved_flags |= QUIET_EDIT;  else p->saved_flags ^= QUIET_EDIT;    if (p->saved_flags&QUIET_EDIT)     tell_player(p,"You will block tells and shouts upon editing./n");  else    tell_player(p,"You won't block shouts and tells on editing./n");  save_flags(p);}

cmd_read(int x){  if(!x){    tell_player(THISP, "/n~~~ Table of Contents ~~~/n ");    cmd_dir();    tell_player(THISP, "/n~~~ Usage: read <#> ~~~");  }  else {    x = x-1;    mixed f = get_dir(to_string(CONTENT));    if(x < sizeof(f)){      THISP->more_string( read_file(to_string(CONTENT) + f[x]));      tell_room(ENV(THISP), PNAME+" studies a book carefully./n", ({THISP}));    }

void intercom_banish(player * p, char *str){  if (!*str)  {    tell_player(p, " Format: banish <name|alias>/n");    return;  }  if (p->flags & BLOCK_SU)  {    tell_player(p, "Please go on duty to do that./n");    return;  }  send_to_intercom(p, "%c%s:%s", BANISH_SITE, p->name, str);  return;}

void intercom_bar_name(player * p, char *str){  nameban *new_var;  char *oldstack;  if (!*str)  {    tell_player(p, " Format: intercom bar_name <name>./n");    return;  }  if (p->flags & BLOCK_SU)  {    tell_player(p, "Please go on duty to do that./n");    return;  }  if (strlen(str) > MAX_NAME - 1)    str[MAX_NAME - 1] = 0;  if (check_intercom_banished_name(str))  {    tell_player(p, " That name is already barred./n");    return;  }  new_var = (nameban *) MALLOC(sizeof(nameban));  memset(new_var, 0, sizeof(nameban));  if (nameban_anchor)    new_var->next = nameban_anchor;  nameban_anchor = new_var;  strcpy(new_var->name, str);  new_var->type = 1;  oldstack = stack;  sprintf(oldstack, " The name '%s' is now barred from the intercom./n", str);  stack = end_string(oldstack);  tell_player(p, oldstack);  sprintf(oldstack, "-=> %s bars the name '%s' from using the intercom./n",	  p->name, str);  stack = end_string(oldstack);  su_wall(oldstack);  stack = oldstack;  return;}

/* the dreaded pager B-)  */int             draw_page(player * p, char *text, int drawme){   int             end_line = 0, n;   float perc;   ed_info        *e;   char           *oldstack;   oldstack = stack;   for (n = TERM_LINES + 1; n; n--, end_line++)   {      while (*text && *text != '/n')         *stack++ = *text++;      if (!*text)         break;      *stack++ = *text++;   }   *stack++ = 0;      if(drawme)     tell_player(p, oldstack);        if (*text && p->edit_info)   {      e = p->edit_info;      end_line += e->size;      perc = (((float)end_line/(float)e->max_size)*100);      sprintf(oldstack,               "(Pager: lines %d-%d of %d (%d%%)) p/N/f/l/r/q/?: "	      ,e->size+1, end_line, e->max_size, (int) perc);      stack = end_string(oldstack);      do_prompt(p, oldstack);   }   stack = oldstack;   return *text;}

void edit_forward_line(player *p,char *str){  char *c;  ed_info *e;  e=p->edit_info;  c=e->current;  if (!*c) {    tell_player(p,"Can't go forward, bottom of buffer./n");    return;  }  while(*c && *c!='/n') c++;  if (*c) c++;  e->current=c;  if (!*c) tell_player(p,"Reached bottom of buffer./n");  else edit_view_line(p,0);}

void edit_stats(player *p,char *str){  int words=0,lines=0,blip=0;  char *scan,*oldstack;  oldstack=stack;  for(scan=p->edit_info->buffer;*scan;scan++) {    switch(*scan) {    case ' ':      if (blip) words++;      blip=0;      break;    case '/n':      if (blip) words++;      blip=0;      lines++;      break;    default:      blip=1;    	    }  }  sprintf(oldstack,"Used %d bytes out of %d, in %d lines and %d words./n",	  p->edit_info->size,p->edit_info->max_size,lines,words);  stack=end_string(stack);  tell_player(p,oldstack);  stack=oldstack;}

int draw_page(player *p,char *text){  int end_line=0,n;  ed_info *e;  char *oldstack;  oldstack=stack;  for(n=TERM_LINES-3;n;n--,end_line++) {    while(*text && *text!='/n') *stack++=*text++;    if (!*text) break;    *stack++=*text++;  }  *stack++=0;  tell_player(p,oldstack);  if (*text && p->edit_info) {    e=p->edit_info;    end_line+=e->size;    sprintf(oldstack,"(Pager: lines %d to %d, from a total %d)",	    e->size,end_line,e->max_size);    stack=end_string(oldstack);    do_prompt(p,oldstack);  }  stack=oldstack;	  return *text;}

void phase4( object arg ){    tell_player( arg, "There is definitely something shifting "      "down in the darkness. You can make out a huge dark shape."    );    call_out( "phase5", 5, THISP );}

void phase5( object arg ){    tell_player( arg, "You hit the ground with a resounding thud. "      "Your limbs twist and contort." );    THISP->move_player( "&&", FROOM "pit", 1 );    arg->DeathSequence( arg, "fell too far" );}

mixed cmd(string str) {    object target;    if(!str || str == "") str = "me";    if(str == "me") str = this_player()->GetKeyName();    if(!target = present(str, environment(this_player()))){        write("They're not here.");        return 1;    }    if(!living(target)) {        write("That's not a living thing.");        return 1;    }    if(creatorp(target) && !archp(this_player()) &&            target != this_player()){        write("That's impolite.");        tell_player(target,capitalize(this_player()->GetKeyName())+                " just tried to anglicize you.");        return 1;    }    target->SetNativeLanguage("English");    if(target == this_player()) str = "yourself";    else str = capitalize(str);    write("You anglicize "+str+".");    if(target != this_player())         tell_object(target, capitalize(this_player()->GetKeyName())+" anglicizes you.");    return 1;}

void send_to_intercom(player * p, const char *fmt,...){  va_list varlist;  char *oldstack;  oldstack = stack;  if (p && intercom_fd < 1)  {    tell_player(p, " The intercom is currently down./n");    return;  }  va_start(varlist, fmt);  vsprintf(stack, fmt, varlist);  va_end(varlist);  if (oldstack[strlen(oldstack) - 1] == (char) INCOMPLETE_MESSAGE ||      oldstack[strlen(oldstack) - 1] == (char) END_MESSAGE)    stack = end_string(oldstack);  else  {    stack = strchr(oldstack, 0);    *stack++ = (char) END_MESSAGE;    *stack++ = '/0';  }  if (intercom_fd > 0)    write(intercom_fd, oldstack, strlen(oldstack));  stack = oldstack;}

void sub_command(player *p,char *str,struct command *comlist){  char *oldstack,*rol;  void (*fn)();  oldstack=stack;    while(comlist->text) {    if ((!comlist->level) || ((p->residency)&(comlist->level))) {      rol=do_match(str,comlist);      if (rol) {	last_com=comlist;	stack_check=stack;        fn=comlist->function;        (*fn)(p,rol);	if (stack!=stack_check) bad_stack();	sys_flags &= ~(FAILED_COMMAND|PIPE|ROOM_TAG|FRIEND_TAG|EVERYONE_TAG);	command_type=0;        return;      }    }    comlist++;  }  rol=str;  while(*rol && !isspace(*rol)) rol++;  *rol=0;  sprintf(oldstack,"Cannot find sub command '%s'/n",str);  stack=end_string(oldstack);  tell_player(p,oldstack);  stack=oldstack;}

void exit_mail_mode(player *p,char *str){    if (p->input_to_fn != mail_command) return;    tell_player(p,"Leaving mail mode./n");    p->input_to_fn=0;    p->flags|=PROMPT;}

void dest_note(player *p,char *str){  note *n;  if (!*str) {    tell_player(p,"Format: dest_note <number>/n");    return;  }  n=find_note(atoi(str));  if (!n) {    tell_player(p,"Can't find note with that number./n");    return;  }  remove_any_note(n);  tell_player(p,"Note removed/n");}

void list_all_notes(player *p,char *str){    char *oldstack;    int count=0,hash;    note *scan;    oldstack=stack;    strcpy(stack," All notes --/n");    stack=strchr(stack,0);    for (hash=0;hash<=NOTE_HASH_SIZE;count=0,hash++) {	for (scan=n_hash[hash];scan;scan=scan->hash_next) count++;	sprintf(stack,"%3d notes in bucket %2d",count,hash);	stack=strchr(stack,0);	if (hash&1)	    strcpy(stack,"   --   ");	else	    strcpy(stack,"/n");	stack=strchr(stack,0);    }    strcpy(stack," --/n");    stack=strchr(stack,0);    stack++;    tell_player(p,oldstack);    stack=oldstack;}

void report_idea(player * p, char *str){  if (!*str)  {    tell_player(p, " Format: idea <whatever you thought of>/n");    return;  }  if (strlen(str) > 480)  {    tell_player(p, " Please make it a little smaller./n");    return;  }  TELLPLAYER(p, "%s%s/n%s ... logged as idea, thank you./n", LINE, str, LINE);  LOGF("idea", "%s - %s ", p->name, str);  SW_BUT(p, " -=*> Idea log from %s: %s/n", p->name, str);}

void            match_commands(player * p, char *str){   struct command *comlist;   char           *rol, *oldstack, *space;   void            (*fn) ();   oldstack = stack;   while (*str && *str == ' ')      str++;   space = strchr(str, 0);   space--;   while (*space == ' ')      *space-- = 0;   if (!*str)      return;   if (isalpha(*str))      comlist = coms[((int) (tolower(*str)) - (int) 'a' + 1)];   else      comlist = coms[0];   while (comlist->text)   {      if (((!comlist->level) || ((p->residency) & (comlist->level))) &&	  ((!comlist->andlevel) || ((p->residency) & (comlist->andlevel))))      {    rol = do_match(str, comlist);    if (rol)    {       last_com = comlist;       stack_check = stack;       fn = comlist->function;       (*fn) (p, rol);       if (stack != stack_check)          bad_stack();       sys_flags &= ~(FAILED_COMMAND | PIPE | ROOM_TAG | FRIEND_TAG | EVERYONE_TAG);       command_type = 0;       return;    }      }      comlist++;   }   p->antipipe++;/*   if (p->antipipe > 30)   {      quit(p, 0);      return;   }*/   rol = str;   while (*rol && !isspace(*rol))      rol++;   *rol = 0;   sprintf(oldstack, " Cannot find command '%s'/n", str);   stack = end_string(oldstack);   tell_player(p, oldstack);   stack = oldstack;}

void edit_back_line(player *p,char *str){  char *c;  ed_info *e;  e=p->edit_info;  c=e->current;  if (c==e->buffer) {    tell_player(p,"Can't go back any more, top of buffer./n");    return;  }  c-=2;  while(c!=e->buffer && *c!='/n') c--;  if (c==e->buffer) tell_player(p,"Reached top of buffer./n");  else c++;  e->current=c;  edit_view_line(p,0);}

void read_scroll(){        tell_player(this_player(), "/nThe scroll crumbles into dust.../n");    this_player()->eventMoveLiving("/domains/diku-alfa/room/30.zon/3001.c",                                   this_player()->GetName()+" disappears!",                                    this_player()->GetName()+" appears in the middle of the room.");    this_object()->eventDestruct();}

int start( object arg ){    string player = arg->query_real_name();    if( !find_player( player ) )      return 0;    tell_player( arg, "The air starts to get hotter." );    call_out( "phase2", 5, THISP );}

void intercom_update_servers(player * p, char *str){  tell_player(p, " Requesting talker lists from all connected talkers./n");  send_to_intercom(p, "%c", REQUEST_SERVER_LIST);  return;}

void set_comment(player * p, char *str){  char *oldstack;  player *scan;  oldstack = stack;  if (!*str)  {    tell_player(p, " You reset your session comment./n");    strncpy(p->comment, "", MAX_COMMENT - 3);    return;  }  if (p->custom_flags & YES_SESSION)  {    tell_player(p, " You are ignoring sessions - type /"muffle session/" to toggle./n");    return;  }  if (strstr(str, "^"))  {    tell_player(p, " Sorry, but you can't have colour in your session comment./n");    return;  }  if (strstr(str, "&"))  {    tell_player(p, " Sorry, but you can't have dynatext in your session comment./n");    return;  }  if (config_flags & cfNOSWEAR)    str = filter_rude_words(str);  strncpy(p->comment, str, MAX_COMMENT - 3);  sprintf(stack, " You set your session comment to be '%s'/n", p->comment);  stack = end_string(stack);  tell_player(p, oldstack);  stack = oldstack;  /* Inform everyone else who is listening to session information */  for (scan = flatlist_start; scan; scan = scan->flat_next)    if (scan != p && !(scan->custom_flags & YES_SESSION))      TELLPLAYER(scan, " -=*> %s sets %s session comment to be '%s'/n", p->name, gstring_possessive(p), p->comment);}