武馆教头Npc脚本(收徒拜师+修理勋章)

用于战神引擎的武馆教头Npc脚本,脚本是多功能的,上面有查询声望点,当然这个在人物信息也可以看到,还有就是收徒,拜师,接触师徒关系,领取勋章,修理勋章等功能。

武馆教头Npc脚本(收徒拜师+修理勋章)

部分脚本

program Mir2;
{$I common.pas}
procedure _DoExit;
begin
  This_Npc.CloseDialog(This_Player);
end;
procedure _Exit;
begin
  This_Npc.CloseDialog(This_Player);
end;
procedure _normal;
begin
  This_Npc.NpcDialog(This_Player,
    '真正的勇士,可以失去生命,但不能没有挑战!\只有真正的勇士,才了解战斗的意义!\不仅是为了胜利,更是为了寻找自己的使命和存在的意义!\' 
    +'|{cmd}<如何成为王师教头/@wangshi>\'
    +'|{cmd}<查询声望点数/@checkswry>\'
    +'|{cmd}<师傅如何收徒/@chakanbs>\'
    +'|{cmd}<我要拜师/@sdbaishi>                     ^<解除师徒关系/@left>\'
    +'|{cmd}<领取荣誉勋章/@get>                 ^<修理荣誉勋章/@xiuli>\'
    +'|{cmd}<离开/@doexit>\'
    );
end;
procedure domain;
begin
  if This_Player.GetV(107,1) >= 1 then
  begin
    _normal;
  end else if This_Player.GetV(106,1) = 19 then
  begin
    This_Npc.NpcDialog(This_Player,
    '你已经见到盟重指挥官了么?\'
    +'这里有张灵符,算是我送给你的,你可以去天关试试。\ \'
    +'|{cmd}<谢谢你的好意/@mission107_1_1>        ^<我有别的事情找你/@normal>'
    );
  end
  else if This_Player.GetV(106,1) = 18 then
  begin
    This_Npc.NpcDialog(This_Player,
    '什么?你说你已经消灭了沃玛教主?哈哈,江山代有人才出啊!\'
    +'你证明了你的勇气和力量,作为感谢我推荐去盟重指挥官那里!\'
    +'他是国王手下的高级官员。他的教导对你将来的路,\'
    +'应该有莫大的帮助。\'
    +'这里有张灵符,算是我送给你的,你可以去天关试试。\ \'
    +'|{cmd}<谢谢你的好意/@mission107_1_1>        ^<我有别的事情找你/@normal>'
    );
    This_Player.SetV(106,1,19);
    This_Player.Give('经验',400000);
    This_Player.UpdateTaskDetail(106,1); 
  end
  else
  begin
    This_Npc.NpcDialog(This_Player,
    '真正的勇士,可以失去生命,但不能没有挑战!\只有真正的勇士,才了解战斗的意义!\不仅是为了胜利,更是为了寻找自己的使命和存在的意义!\' 
    +'|{cmd}<如何成为王师教头/@wangshi>\'
    +'|{cmd}<查询声望点数/@checkswry>\'
    +'|{cmd}<师傅如何收徒/@chakanbs>\'
    +'|{cmd}<我要拜师/@sdbaishi>                     ^<解除师徒关系/@left>\'
    +'|{cmd}<领取荣誉勋章/@get>                 ^<修理荣誉勋章/@xiuli>\'
    +'|{cmd}<了解挑战详情/@tiaozhan>                 ^<离开/@doexit>\'
    );
  end;
end;
//------------------------------------------------------------------------------
//成长任务模块
procedure _mission107_1_1;
begin
  if This_Player.GetV(107,1) >= 1 then
  begin
    This_NPC.CloseDialog(This_Player);
  end
  else if This_Player.GetV(106,1) = 19 then
  begin
    This_Player.AddLimLF(0,1);
    This_Player.SetV(107,1,1);
    //#This_Player.DeleteTaskFromUIList(106);
    //#This_Player.AddTaskToUIList(107);
    This_Player.UpdateTaskDetail(107,1);
    This_NPC.CloseDialog(This_Player); 
  end
  else
  exit;
end;
//------------------------------------------------------------------------------
procedure _wangshi;
begin
  This_Npc.NpcDialog(This_Player,
  '比奇国王号召所有勇士成为王师教头来保卫玛法大陆,\只要现在收徒,你就会成为王师教头,\以后你所收的徒弟都将成为王师弟子。 \ \'
  //+'|{cmd}<王师教头可获得的奖赏/@jiangshang>\ \'
  +'|{cmd}<返回/@main>                   ^<离开/@doexit>'
  );
end;
procedure _jiangshang;
begin
  This_Npc.NpcDialog(This_Player,
  '兽人的进攻迫在眉睫,比奇边境村烽火连连。\为了抵抗兽人的进攻,\比奇国王号召天下豪杰担负起培养玛法年轻勇士的责任。\成为王师教头后,只要你培养的王师弟子顺利出师,\并到达一定的等级时,国王将会有丰厚的<道具奖赏/@daoju>给你,\此外,你还可以额外得到你<每一个/c=red>弟子在35级到46级修炼过程中,\所获得<经验中5%/c=red>作为奖赏。\|{cmd}<返回/@main>'
  );
end;
procedure _daoju;
begin
  This_Npc.NpcDialog(This_Player,
  '当你任何一个王师弟子在47级以后,到50级这个阶段内,\每升一级,你就可以获得一下物品中的一件:\雷霆战戒、雷霆护腕、雷霆项链、雷霆腰带、雷霆战靴\光芒道戒、光芒护腕、光芒项链、光芒腰带、光芒道靴\烈焰魔戒、烈焰护腕、烈焰项链、烈焰腰带、烈焰魔靴\ \|{cmd}<返回/@wangshi>'
  );
end;
procedure _checkswry;
begin
  This_Npc.NpcDialog(This_Player,
  '您目前的声望值:' + inttostr(This_Player.MyShengwan)
  );
end;
分享到:
赞(0)