作者  [e-mail] (jjchen),                看板  MUD         
 標題  transemote.c                                                           
 時間  交大資工鳳凰城資訊站 (Thu Jul  9 00:00:49 1998)                        
 來源  SimFarm!news.ntu!news.mcu!news.cs.nthu!news.csie.nctu!phoenix          
───────────────────────────────────────

// /cmds/arch/transemote.c
// 本檔案改自 es2 mudlib
// 歡迎流傳本檔案, 請保留本檔頭
// wade 1998/7/10

inherit F_CLEAN_UP;

int in_use;

int main(object me, string arg)
{
  string        *emotes;
  mapping       emote;

  if ( !arg ) return notify_fail("你要轉換什麼 emote﹖\n");

  if ( arg == "-a" ) {
    int i, s, trans;

    emotes = EMOTE_D->query_all_emote();
    s = sizeof (emotes);
    for (i=0; i<s; i++) {
      write ("轉換["+i+"]: "+emotes[i]+"\n");
      emote = EMOTE_D->query_emote (emotes[i]);
      trans = 0;
      if (!undefinedp (emote["updated"])) {
        trans = 1;
        map_delete (emote, "updated");
      }
      if (undefinedp (emote["short"]) && !undefinedp (emote["myself"])) {
        emote["short"] = emote["myself"][0..7];
        trans = 1;
      }
      if (trans) EMOTE_D->set_emote (emotes[i], emote);
    }
    return 1;
  }

  emote = EMOTE_D->query_emote(arg);

  write ("轉換 emote﹕" + arg + "\n");
  write ("───────────────────────────────\n");
  printf ("自己:%s\n其他人:%s\n看給自己:%s\n他人看給自己:%s\n看給他人:%s\n",
          emote["myself"],
          emote["others"],
          emote["myself_self"],
          emote["others_self"],
          emote["myself_target"]);
  printf ("他人看給他:%s\n其他:%s\n",
          emote["target"], emote["others_target"]);
  write ("───────────────────────────────\n");
  write ("短訊息：");
  input_to("get_msg", emote, arg);
  return 1;
}


int get_msg (string msg, mapping emote, string pattern)
{
  if (msg == "~q") {
    write ("取消。\n");
    return 1;
  }
  emote["short"] = msg;
  EMOTE_D->set_emote (pattern, emote);
  return 1;
}

int help(object me)
{
write(@HELP
指令格式 : transemote [-a | emote]

這個指令可以轉換 emote 成新格式，請勿亂用。
HELP
    );
    return 1;
}