jiedudan.c

C实现的MUD,对大家基本入门网络游戏很有帮助!

// by snowcat oct 15 1997

inherit ITEM;
inherit F_FOOD;
#include <ansi.h>

string *names = ({
  "红色解毒丹",
  "黄色解毒丹",
  "绿色解毒丹",
  "白色解毒丹",
  "黑色解毒丹",
});
string *name = ({
  "red dan",
  "yellow dan",
  "green dan",
  "white dan",
  "black dan",
});

void create()
{
  set_name("各式解毒丹", ({"jiedu dan", "dan", "yao"}));
  set_weight(100);
  if (clonep())
    set_default_object(__FILE__);
  else {
    set("long", "一颗米粒大小的丹丸。\n");
    set("unit", "颗");
    set("value", 20000);
    set("food_remaining", 5);
    set("food_supply", 35);
  }
  set("no_sell",1);
}

void init()
{
  int num = random(sizeof(names));
  if (query("name")=="各式解毒丹")
    set_name(names[num], ({name[num]}));
// ::init();
        add_action("do_eat", "eat");

}
int do_eat(string arg)
{
  if (!id(arg))  return notify_fail("你要吃什么？\n");
  if(arg=="red dan"||arg=="yellow dan"||arg=="green dan"
     ||arg=="white dan"||arg=="black dan") 
  {
      object ob;
      ob=this_object();
      if((string)ob->query("name")=="红色解毒丹"&& arg=="red dan"){
         if((int)this_player()->query_condition("snake_poison") <1)
         tell_object(this_player(), HIG "你吃下一棵红色解毒丹，但似乎没有什么效果！\n" NOR );
         else {
         tell_object(this_player(), HIG "你只觉一股清香沁入心肺,顿时灵台一片空明,神意清爽！\n" NOR );
         this_player()->apply_condition("snake_poison", 0);
          }
         destruct(this_object());
         return 1;
        }
      if((string)ob->query("name")=="黄色解毒丹"&& arg=="yellow dan"){
         if((int)this_player()->query_condition("wugong_poison") <1)
         tell_object(this_player(), HIG "你吃下一棵黄色解毒丹，但似乎没有什么效果！\n" NOR );
         else {
         tell_object(this_player(), HIG "你只觉一股清香沁入心肺,顿时灵台一片空明,神意清爽！\n" NOR );
         this_player()->apply_condition("wugong_poison", 0);
         }
         destruct(this_object());
         return 1;
       }
      if((string)ob->query("name")=="绿色解毒丹"&& arg=="green dan"){
         if((int)this_player()->query_condition("zhizhu_poison") <1)
         tell_object(this_player(), HIG "你吃下一棵绿色解毒丹，但似乎没有什么效果！\n" NOR );
         else {
         tell_object(this_player(), HIG "你只觉一股清香沁入心肺,顿时灵台一片空明,神意清爽！\n" NOR );
         this_player()->apply_condition("zhizhu_poison", 0);
         }
         destruct(this_object());
         return 1;
       }
      if((string)ob->query("name")=="白色解毒丹"&& arg=="white dan"){
         if((int)this_player()->query_condition("xiezi_poison") <1)
         tell_object(this_player(), HIG "你吃下一棵白色解毒丹，但似乎没有什么效果！\n" NOR );
         else {
         tell_object(this_player(), HIG "你只觉一股清香沁入心肺,顿时灵台一片空明,神意清爽！\n" NOR );
         this_player()->apply_condition("xiezi_poison", 0);
         }
         destruct(this_object());
         return 1;
       }
      if((string)ob->query("name")=="黑色解毒丹"&& arg=="black dan"){
         if((int)this_player()->query_condition("chanchu_poison") <1)
         tell_object(this_player(), HIG "你吃下一棵黑色解毒丹，但似乎没有什么效果！\n" NOR );
         else {
         tell_object(this_player(), HIG "你只觉一股清香沁入心肺,顿时灵台一片空明,神意清爽！\n" NOR );
         this_player()->apply_condition("chanchu_poison", 0);
         }
         destruct(this_object());
         return 1;
       }
  }
return 1;
}