teamjob.c

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

#include <ansi.h>
mixed names = ({
        ({
        "少林广场","王府路","华藏庵","有所不为轩","紫霄宫大门",
        "天微堂","日月坪","大雪山山谷","六和塔","全真教大门", 
        "墓门","桃花山庄正厅","神龙教大厅","独尊厅","星宿海", 
        "雪山寺山门","一品堂大院","昆仑派山门","燕子坞","五指堂", 
        "朱雀外门","青龙外门","白虎外门","玄武外门","天安门",
        "扬州武馆","福威镖局","玄妙观","灵隐寺","泉州南门",
        "灵州南门","诸葛亮殿","烟雨楼","南阳城","佛山南门",                
        "蛇骨塔","长安乐坊","衡阳西街","喜州城","葛鲁城", 
        "伊犁","山海关","老龙头","长白天池","天山脚下",
       "丽春院","涌泉寺","听雨轩","五老峰","紫金城",
        "松风观","终南山脚","抱子岩","白马潭","升仙坊",                
        "嘉应门","玄妙观","峻极禅院","侠义厅","萧家桥", 
        }),
        });

string ask_jianxi()
{     object guo,ob;
      object *team;
	  int i=0,count=0,minexp,maxexp;
      string where;
	  guo =this_object();
	  ob=this_player();
	  
//	  if (guo->query_condition("mjb_busy"))
//	  return "我没有收到任何消息。";//guo busy time 
	  
      if( ob->query("family/family_name") != "桃花岛")
      return  "只有本派弟子才能做此任务!";
      //too low exp

      if(ob->query("combat_exp")<2000000)
      return  "你的功夫太差了。不要自寻死路!";//too low exp
      team=ob->query_team();
      count=sizeof(team);
	 // write("\n"+sprintf("%d",count));
	  if(count<=1)
      return "就你一个人?"; //too few people
      if(count>=5)
	  return "此事不宜张扬。"; //too many people
	  minexp=team[0]->query("combat_exp");
	  maxexp=minexp;
      
	  for(i=1;i<count;i++)
      { if(team[i]!=0)
	  { if(team[i]->query("combat_exp")<minexp)
	    minexp=team[i]->query("combat_exp");
		if(team[i]->query("combat_exp")>maxexp)
        maxexp=team[i]->query("combat_exp");
	  }
	  }
	  if ((maxexp-minexp)>1000000)
      return "你们的武功相差太悬殊。";//exp too far
     //check ok
      
	  where=names[0][random(60)];
	  guo->apply_condition("mjb_busy",30);
	  ob->set_temp("team_count",count);
	  ob->apply_condition("mjb_busy",60);
	  for(i=0;i<count;i++)
	  team[i]->apply_condition("mjb_busy",60);
	  for(i=100;i*i*i/10<=maxexp;i++);
          call_out("job",60,ob,where,i,count+2);
	  return    "我刚得到消息，有一伙别派弟子与我派作对。派奸细偷去了我派的机要文件\n"+
		        "你们赶快去"+where+"设防阻截，把他们全部消灭。抢到文件后就地销毁(xiaohui)。\n"+
			    "肯定会有不少别派弟子接应他，多加小心。"; 
}


void job(object ob,string where,int maxpot,int ckiller)
{    object *team,obj,gift;
      
     int i=0;
    // team=ob->query_team();
	 //for(i=0;i<sizeof(team);i++)
	 if(environment(ob)->query("short")==where&&ob->query_condition("mjb_busy"))
	 {  if (ckiller>0)
	    {
	    if (random(19)== 0)
	    {
	      obj=new("quest/menpai/jobnpc/btshan");   
	      obj->do_copy(ob,maxpot,3);
	      obj->set("title",HIY"白驼山首座弟子"NOR);     
              obj->move(environment(ob));
              obj->kill_ob(ob);ob->kill(this_object());
              ob->kill(this_object());
	     }
	     else 
	    if (random(19)== 1)
	    {
	      obj=new("quest/menpai/jobnpc/gumu");   
	      obj->do_copy(ob,maxpot,3);
	      obj->set("title",HIY"古墓派首座弟子"NOR);     
              obj->move(environment(ob));
              obj->kill_ob(ob);ob->kill(this_object());
	     }
	     else 
	    if (random(19)== 2)
	    {
	      obj=new("quest/menpai/jobnpc/gaibang");   
	      obj->do_copy(ob,maxpot,3);
	      obj->set("title",HIY"丐帮派首座弟子"NOR);     
              obj->move(environment(ob));
              obj->kill_ob(ob);ob->kill(this_object());
	     }
	     else 
	    if (random(19)== 3)
	    {
	      obj=new("quest/menpai/jobnpc/emei");   
	      obj->do_copy(ob,maxpot,3);
	      obj->set("title",HIY"峨嵋派首座弟子"NOR);     
              obj->move(environment(ob));
              obj->kill_ob(ob);ob->kill(this_object());
	     }
	     else 
	    if (random(19)== 4)
	    {
	      obj=new("quest/menpai/jobnpc/dali");   
	      obj->do_copy(ob,maxpot,3);
	      obj->set("title",HIY"大理国首座弟子"NOR);     
              obj->move(environment(ob));
              obj->kill_ob(ob);ob->kill(this_object());
	     }
	     else 
	    if (random(19)== 5)
	    {
	      obj=new("quest/menpai/jobnpc/huashan");   
	      obj->do_copy(ob,maxpot,3);
	      obj->set("title",HIY"华山派首座弟子"NOR);     
              obj->move(environment(ob));
              obj->kill_ob(ob);ob->kill(this_object());
	     }
	     else 
	    if (random(19)== 6)
	    {
	      obj=new("quest/menpai/jobnpc/kunlun");   
	      obj->do_copy(ob,maxpot,3);
	      obj->set("title",HIY"昆仑派首座弟子"NOR);     
              obj->move(environment(ob));
              obj->kill_ob(ob);ob->kill(this_object());
	     }
	     else 
	    if (random(19)== 7)
	    {
	      obj=new("quest/menpai/jobnpc/shaolin");   
	      obj->do_copy(ob,maxpot,3);
	      obj->set("title",HIY"少林派首座弟子"NOR);     
              obj->move(environment(ob));
              obj->kill_ob(ob);ob->kill(this_object());
	     }
	     else 
	    if (random(19)== 8)
	    {
	      obj=new("quest/menpai/jobnpc/mr");   
	      obj->do_copy(ob,maxpot,3);
	      obj->set("title",HIY"慕容派首座弟子"NOR);     
              obj->move(environment(ob));
              obj->kill_ob(ob);ob->kill(this_object());
	     }
	     else 
	    if (random(19)== 9)
	    {
	      obj=new("quest/menpai/jobnpc/mingjiao");   
	      obj->do_copy(ob,maxpot,3);
	      obj->set("title",HIY"明教首座弟子"NOR);     
              obj->move(environment(ob));
              obj->kill_ob(ob);ob->kill(this_object());
	     }
	     else 
	    if (random(19)== 10)
	    {
	      obj=new("quest/menpai/jobnpc/lingjiu");   
	      obj->do_copy(ob,maxpot,3);
	      obj->set("title",HIY"灵鹫宫首座弟子"NOR);     
              obj->move(environment(ob));
              obj->kill_ob(ob);ob->kill(this_object());
	     }
	     else 
	    if (random(19)== 11)
	    {
	      obj=new("quest/menpai/jobnpc/taohua");   
	      obj->do_copy(ob,maxpot,3);
	      obj->set("title",HIY"桃花岛首座弟子"NOR);     
              obj->move(environment(ob));
              obj->kill_ob(ob);ob->kill(this_object());
	     }
	     else 
	    if (random(19)== 12)
	    {
	      obj=new("quest/menpai/jobnpc/xueshan1");   
	      obj->do_copy(ob,maxpot,3);
	      obj->set("title",HIY"雪山派护教弟子"NOR);     
              obj->move(environment(ob));
              obj->kill_ob(ob);ob->kill(this_object());
	     }
	     else 
	    if (random(19)== 13)
	    {
	      obj=new("quest/menpai/jobnpc/xueshan2");   
	      obj->do_copy(ob,maxpot,3);
	      obj->set("title",HIY"雪山派护教法王"NOR);     
              obj->move(environment(ob));
              obj->kill_ob(ob);ob->kill(this_object());
	     }
	     else 
	    if (random(19)== 14)
	    {
	      obj=new("quest/menpai/jobnpc/xueshan3");   
	      obj->do_copy(ob,maxpot,3);
	      obj->set("title",HIY"雪山派首座弟子"NOR);     
              obj->move(environment(ob));
              obj->kill_ob(ob);ob->kill(this_object());
	     }
	     else 
	    if (random(19)== 15)
	    {
	      obj=new("quest/menpai/jobnpc/xingxiu");   
	      obj->do_copy(ob,maxpot,3);
	      obj->set("title",HIY"星宿派首座弟子"NOR);     
              obj->move(environment(ob));
              obj->kill_ob(ob);ob->kill(this_object());
	     }
	     else 
	    if (random(19)== 16)
	    {
	      obj=new("quest/menpai/jobnpc/wudang");   
	      obj->do_copy(ob,maxpot,3);
	      obj->set("title",HIY"武当派首座弟子"NOR);