bs.h

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

void init()
{
        object ob, me;
        me = this_object();
        if (interactive(ob = this_player()) && present("shou juan", ob)){
           message_vision(HIY"$N突然拦身在$n前，眼睛直盯着$n怀里的手绢！\n"NOR,me,ob); 
           me->set("chat_chance", 0);
           remove_call_out("do_kill");
           call_out("do_kill", 0, me, ob);
        }        
}

int do_kill(object me, object dest)
{
	if( objectp(dest) && present(dest, environment(me))
		 && !environment(me)->query("no_fight")){
		message_vision(HIR "$N对$n阴阴一笑：这手绢大爷我找了十年了，"
			+RANK_D->query_rude(dest)+"你就乖乖认命吧！\n" NOR, me, dest);
		me->set_leader(dest);
		me->kill_ob(dest);
		dest->fight_ob(me);
		call_out("checking", 0,  me, dest);
	}        
	else
  		call_out("waiting", 1, me, dest);
		return 1;
}
int waiting(object me, object dest)
{
       if ( objectp(dest) ){
	 if (dest->is_ghost()){
		call_out("do_back", 1, me);
		return 1;
		}
	 else if (me->is_fighting() && present(dest, environment(me))){
		call_out("checking", 1, me, dest);
		return 1;
		}
	 else if (living(me) && environment(dest)->query("no_fight")){
		call_out("do_back", 1, me);
		return 1;
		}
	}
	remove_call_out("waiting");
	call_out("waiting", 1, me);
        return 1;
}

int checking(object me, object dest)
{
	object ob;
	if (me->is_fighting()){
	  call_out("checking", 1, me, dest);
          return 1;
	  }
	if( objectp(ob = present("corpse", environment(me)))
	 && ob->query("victim_name") ==	dest->query("name") ){
          remove_call_out("checking");
          command("get shou juan from corpse");
          tell_room(environment(me),
          me->query("name")+"拍了拍身上的灰尘，快步走了出去。\n" NOR, ({me}));
    	  call_out("do_back", 1, me);
          return 1;
	  }
	call_out("waiting", 0, me, dest);
	return 1;
}

int do_back(object me)
{        
  me->move(me->query("startroom"));                       
  tell_room(environment(me), me->query("name")+"快步走了过来。\n", ({me}));	
  me->set_leader(0);
  me->set("chat_chance", 40);
  return 1;
}