用于战神引擎的武馆教头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;