//天寒山// by steel #include "ansi.h"inherit ROOM;//int to_die();//int to_yun();void create(){	set("short", "天寒山頂");	set("long", @LONG        這里已是天寒山的山頂,只見崖縫參差,頗為險惡。就在這山頂之上，有一座冰崖沖天而起，仔細看看，崖上好象有斧鑿的痕跡。似乎可以順著爬上去。    LONG	);	       set("exits", ([		"southdown" : __DIR__"hill1",        ]) ); 	setup();}void init(){    add_action("do_climb","climb");}int do_climb(string arg){    object me;    object obj;    int dodge;    me=this_player();    if(!arg) return 0;    if(arg!="bingya")return notify_fail("你要爬什么？\n");    dodge=me->query_skill("dodge",1);    if(obj=me->query_temp("armor/boots"))    {       message_vision(HIB"$N你抓緊冰崖上的石縫，慢慢爬了上去。\n"NOR,me);      if(obj->query("id")=="snow boots")       {        if(dodge>80){            me->add("jing",-80);            me->add("qi",-80);            tell_room(__DIR__"bingya",me->name()+"平安的從下面爬上來\n");            me->move(__DIR__"bingya");            return 1;               }      else       {            if(dodge<=60)             {               call_out("to_die",2);               return 1;             }              else             {                call_out("to_yun",2);return 1;              }        }       }       }  else  {    if(dodge<=60)             {               call_out("to_si",5);               return 1;             }              else             {                call_out("to_yun",5);return 1;             }  }    }int to_si(){     message_vision(HIR"不好!$N手上一滑,從半空中摔了下來。\n"NOR,this_player());       this_player()->die();     return 1;}int to_yun(){     message_vision(HIR"不好!$N手上一滑,從半空中摔了下來。\n"NOR,this_player());          this_player()->unconcious();     return 1;}