C++ remove_call_out函数代码示例

void init()
{
    object ob;

    ::init();

    if( interactive(ob = this_player()) && !is_fighting() ) {
        if( ob->query_temp("obstacle/have_gui")==1)
        {
            remove_call_out("greeting");
            call_out("greeting", 1, ob);
        }
    }
}

int force_open()
{
	object room;
	if(!objectp( room = find_object(query("outroom"))) )
		room = load_object(query("outroom"));
	if( !objectp(room) )	return 0;
	if( query_inside_person() <= 0 )	return 0;
	
	open_door();
	room->open_door(__FILE__);
	message("vision","外面突然响起粗重的脚步声，由远而近，到门前停了下来．．．\n"+query("force_name")+"啪地把门打开，伸个头进来，一脸狐疑：呆大半天了还不出去，搞什么鬼？\n", room);
	remove_call_out("close_men");
	call_out("close_men", 10);
}

void init()
{
	object me,ob;
	me = this_object () ;
	ob = this_player () ;

	::init();

	add_action("do_join","join");
	if( interactive(ob) && !is_fighting() )
	{
		remove_call_out("greeting");
		call_out("greeting", 1, me, ob);
	}
}

void init()
{
	object me=this_player();
	::init();
	if(!environment()->query("no_fight"))
		environment()->set("no_fight",1);//将此地设为不能战斗
	if( interactive(me) && !is_fighting() )
	{
		remove_call_out("greeting");
		call_out("greeting", 1, me);
	}
	add_action("do_serve", "kaixi");
	add_action("do_finish", "jieshu");
	add_action("do_start", "kaishi");
	add_action("do_kill", ({"kill","fight","hit","perform","yong","ge","touxi"}));

void init()
{
	object ob, me;
	add_action("do_ketou","ketou");
	::init();
	if (interactive(ob = this_player()) && !is_fighting()) {
		remove_call_out("greeting");
		call_out("greeting", 1, ob);
	}
	
	if( !this_object()->query("waiting_target") && ob->query_temp("fengwait") ) 
		ob->delete_temp("fengwait");
	add_action("do_name","宰");

}

int do_finish()
{
   object me=this_object();
   object who=this_player();

   if( !who->query_temp("host_of_party") )
     return notify_fail(name()+"瞪了你一眼：别乱说话！\n");

   if( !me->query_temp("party_start_already") )
     return notify_fail(name()+"瞪了你一眼：不是已经结束了吗！\n");
   message_vision("$N对$n说道：吃饱喝足，多谢老板招待！\n", who, me);
   remove_call_out("finish_party");
   call_out("finish_party", 3, who);
   return 1;
}

int do_finish()
{
	object me=this_object();
	object who=this_player();

	if( !who->query_temp("host_of_party") )
		return notify_fail(name()+"������һ�ۣ�����˵����\n");

	if( !me->query_temp("party_start_already") )
		return notify_fail(name()+"������һ�ۣ������Ѿ���������\n");
	message_vision("$N��$n˵�����Ա����㣬��л�ϰ��д���\n", who, me);
	remove_call_out("finish_party");
	call_out("finish_party", 3, who);
	return 1;
}

int accept_fight(object ob)
{
	object me = this_object();
	int my_max_qi = me->query("max_qi");

	if ( me->query("qi")*100 / my_max_qi <= 80 ) {
		call_out("checking", 1, me, ob);
		return 0;
	}       

	remove_call_out("checking");
	call_out("checking", 1, me, ob);

	return 1;
}

int do_close(string arg)
{
	if ( !is_open() )
		return notify_fail("门已经是关着的了。\n");

	if (!arg || (arg != "men" && arg != "door"))
		return notify_fail("你要关什么？\n");

	message_vision("$N想把门关上。\n", this_player());

	remove_call_out("close_men");
	call_out("close_men", 0);

	return 1;
}

int test_player ()
{
  object me = this_object();
  object who = this_player();

  if (who->query("combat_exp") < 10000)
  {
    message_vision ("$N��$n˵������������в��㣬���Ի��������\n",me,who);
    message_vision ("\n$N�����ҷԸ��˼��䡣\n",me);
    message_vision ("��λ�����ټ�����ò�ض�$Nһ��ͷ��ӵ��$N�߳���\n",who);
    who->move("/d/qujing/tianzhu/zhaoyang");
    who->move("/d/qujing/tianzhu/wumen");
    message_vision ("�������߽����š�\n",who);
    return 1;
  }
  if (who->query("obstacle/tianzhu")=="done")
  {
    message_vision ("$N��$n˵����Ŷ�����������Ϊ�β�Ը����ȡ����\n",me,who);
    return 1;
  }
  if (! who->query_temp("obstacle/tianzhu_thrown"))
  {
    message_vision ("$N��$n˵����������Ҳ��Ȼ�������������\n",me,who);
    message_vision ("\n$N�����ҷԸ��˼��䡣\n",me);
    message_vision ("��λ��λ�ټ�����ò�ض�$Nһ��ͷ��ӵ��$N�߳���\n",who);
    who->move("/d/qujing/tianzhu/zhaoyang");
    who->move("/d/qujing/tianzhu/wumen");
    message_vision ("�������߽����š�\n",who);
    return 1;
  }
  if (who->query_temp("obstacle/tianzhu_killed"))
  {
    object junji = present ("jun ji",environment(me));

    message_vision ("$N��$n˵���������ͿҲ������������Ů��\n",me,who);
    if (! junji)
    {
      message_vision ("\n$N��ֵ��������󳼺��ڣ�\n",me);
      return 1;
    }
    message_vision ("\n$N��$n�Ը��˼��䡣\n",me,junji);
    remove_call_out ("following");
    call_out ("following",5,me,junji,who);
    return 1;
  }
  message_vision ("$N��$n˵��������β��󹬰ݼ�������\n",me,who);
  return 1;
}

int do_search (string arg)
{
  object me = this_player();

  if (!arg || arg != "bone")
  {
    message_vision ("$N����ȥѰ��ʲô��\n",me);
    return 1;
  }

  if (!me->query_temp("know_palm_bone"))
  {
    message_vision ("$N����ȥ�ڿ���֦����ҷ���������\n",me);
    return 1;
  }

  if (me->query("combat_exp")<4000)
  {
    message_vision ("$N���в�����Ҳ�ڿ���֦��װģ�����ط�����ȥ��\n",me);
    return 1;
  }  

  if (room_busy)
  {
    remove_call_out ("reset_room_busy");
    call_out ("reset_room_busy",random(5)+5);
    message_vision ("$N�ڿ���֦��Ϲæ����\n",me);
    return 1;
  }

  if (no_bone)
  {
// remove_call_out("reset_no_bone");
// call_out("reset_no_bone",2700);
    message_vision ("$N�����ѿ���֦������Ҳ�Ҳ���ʲô���ˡ�\n",me);
    return 1;
  }

  if (random(10) == 0)
  {
    object bone = new (__DIR__"obj/bone");
    bone->move(me);
    message_vision ("$N�۾�һ�����Ž��ǣ�\n",me);
    message_vision ("\n$N��������û��ע��Ͻ��ѰŽ��Ǵ������\n",me);
    no_bone = 1;
    call_out ("reset_no_bone",3600);
    return 1;   
  }

void init()
{
	object ob;
	::init();

	if (interactive(ob = this_player()) && !is_fighting() && !wizardp(ob))
	{
		if((int)ob->query("combat_exp") > 100000) return;
		else
		{
			remove_call_out("greeting");
			call_out("greeting", 1, ob);
		}
	}
	add_action("do_job","job");
}

void init()
{
	object ob, me = this_object();

	::init();

	set_heart_beat(1);

	if ( interactive(ob = this_player()) ) {
	  if ( ob->query("family/family_name") != "华山派" )
		me->kill_ob(ob);

		remove_call_out("checking");
		call_out("checking", 1, me, ob);
	}
}

int do_use(string arg)
{
        object me = this_player();
	object ob = present("fire", me);

        if ( !arg || arg=="" ) return 0;
        if ( !ob )  return 0;
        if( arg=="fire" ) {
             	write("���ȼ���ۣ��Ѷ���������һЩ��\n");
        	set("exits", query("hidden_exits"));
               	message("vision", "��������һЩ��΢���Ļ��һ��һ���ġ�\n", environment(me));
		remove_call_out("fire_out");
		call_out("fire_out", 3, me, ob);
             	return 1;
       }
}

string ask_me()
{
	object ob = this_player(), me = this_object();
	mapping obfam;
	obfam = (mapping)ob->query("family");

	if ( !obfam || obfam["family_name"] != "华山派" ) {
	   if ( ob->query_temp("feilong") < 3 ) {
		command( "sneer" );
		ob->add_temp("feilong", 1);
		return "咱们豪无渊源，你问这做什么？还是别太好奇的好。\n";
	   }
	   else {
		message_vision("$N脸色微变，目中阴鹭一闪，发出一阵冷笑。\n", me);
		ob->delete_temp("feilong");
		me->kill_ob(ob);
		remove_call_out("checking");
		call_out("checking", 1, me, ob);
		return "你三番四次想探听华山剑法的奥密，居心叵测！是否想对本派不利？你即然对华山剑法如此憧景，只好用华山剑法送你上路了。\n";
	   }
	}
	
	command( "look "+ob->query("id") );

	if ( ob->query_skill("huashan-jianfa", 1) < 100 )
		return "你的华山剑法修为不够，学不了「天外飞龙」。";

	if ( ob->query_skill("zixia-gong", 1) < 70 )
		return "剑宗以剑为宗，以气为辅，并非弃气不用，你的紫霞功可得再下一番苦功。";

	if ( ob->query_skill("zixia-gong", 1) > ob->query_skill("huashan-jianfa", 1) ) {
		command( "sneer" );
		return "你是气宗的人，却来向我请教，教我如何担当得起？";
	}

	if ( ob->query("huashan/feilong") )
		return "咦，我不是传了你「天外飞龙」吗？多下功夫好好练习，别堕了华山剑宗的威名！";

	command( "say 好！我便传你「天外飞龙」。看仔细了！" );

	message_vision("$N剑走龙蛇，白光如虹，凝重处如山岳巍峙，轻灵处若清风无迹，变幻莫测。\n"
		      +"舞到急处，$N一声大喝，长剑脱手飞出，化作一道惊虹，直没至柄插入一株树中。\n", me);

	ob->set("huashan/feilong", 1);

	return "你今后得要勤加练习，别辜负了我的一番教导。";
}