//Room: shierpan3.c 十二盤//Date: Oct. 2 1997 by Thatinherit ROOM;void create(){      set("short","十二盤");      set("long",@LONG這里石階陡折多彎，號(hào)稱「十二盤」。你見路邊有個(gè)八音池，有人正在向池中擊掌(clap)。由此西上可達(dá)華嚴(yán)頂，東下則到萬年庵。LONG);      set("outdoors", "emei");      set("exits",([ /* sizeof() == 1 */          "eastdown"  : __DIR__"shierpan2",          "southwest" : __DIR__"shierpan4",      ]));      set("no_clean_up", 0);      setup();}void init(){      add_action("do_clap", "clap");}int do_clap(){      object me;      int qi_cost,c_exp,c_skill;      me = this_player();      c_exp=me->query("combat_exp");      c_skill=me->query_skill("strike",1);      write("池內(nèi)忽然有蛙大鳴一聲，接著群蛙次第相合，最后又是一蛙大鳴，群蛙便嘎然\n");      write("而止，其數(shù)正好為八。\n");      qi_cost = 10;      if (me->query("qi")>qi_cost)      {           if (((c_skill*c_skill*c_skill/10)< c_exp) && (c_skill<101))           me->improve_skill("strike", (int)me->query_skill("strike", 1));           me->receive_damage("qi", qi_cost );                 }      return 1;}int valid_leave(object me, string dir){      int c_exp,c_skill;      me = this_player();      if (dir == "southwest" )      {         c_exp=me->query("combat_exp");         c_skill=me->query_skill("dodge",1);         me->add("qi",-10);         if (((c_skill*c_skill*c_skill/10)< c_exp) && (c_exp< 101))             me->improve_skill("dodge", (int)me->query_skill("dodge", 1));         tell_object(me,"你爬上了十二盤，覺得上山的路又陡又彎，好累人。\n");      }      return 1;}