武馆教头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)