用于战神引擎手游版本的四象神力Npc脚本带自定义素材，脚本是帮主从3.0的版本里面提取出来的，经过帮主亲自测试，功能正常，脚本牵扯到了多个变量和属性文件，添加的时候，记得备份一下原先的属性文件，喜欢这种自定义NPC对话框的兄弟可以下载来研究一下。

部分脚本

begin
   xx := xx + getzqx(1);
   xx := xx + getzqx(2);
   xx := xx + getzqx(3);
   This_Player.PlayerNotice('CNPC=' + xx, 5);
  end else if zqcs = 4 then
  begin
   xx := xx + getzqx(1);
   xx := xx + getzqx(2);
   xx := xx + getzqx(3);
   xx := xx + getzqx(4);
   This_Player.PlayerNotice('CNPC=' + xx, 5);
  end else if zqcs = 5 then
  begin
   xx := xx + getzqx(1);
   xx := xx + getzqx(2);
   xx := xx + getzqx(3);
   xx := xx + getzqx(4);
   xx := xx + getzqx(5);
   This_Player.PlayerNotice('CNPC=' + xx, 5);
  end else if zqcs = 6 then
  begin
   xx := xx + getzqx(1);
   xx := xx + getzqx(2);
   xx := xx + getzqx(3);
   xx := xx + getzqx(4);
   xx := xx + getzqx(5);
   xx := xx + getzqx(6);
   This_Player.PlayerNotice('CNPC=' + xx, 5);
  end else if zqcs = 7 then
  begin
   xx := xx + getzqx(1);
   xx := xx + getzqx(2);
   xx := xx + getzqx(3);
   xx := xx + getzqx(4);
   xx := xx + getzqx(5);
   xx := xx + getzqx(6);
   xx := xx + getzqx(7);
   This_Player.PlayerNotice('CNPC=' + xx, 5);
   end else if zqcs = 8 then
   begin
   xx := xx + getzqx(1);
   xx := xx + getzqx(2);
   xx := xx + getzqx(3);
   xx := xx + getzqx(4);
   xx := xx + getzqx(5);
   xx := xx + getzqx(6);
   xx := xx + getzqx(7);
   xx := xx + getzqx(8);
   This_Player.PlayerNotice('CNPC=' + xx, 5);
   end else if zqcs = 9 then
   begin
   xx := xx + getzqx(1);
   xx := xx + getzqx(2);
   xx := xx + getzqx(3);
   xx := xx + getzqx(4);
   xx := xx + getzqx(5);
   xx := xx + getzqx(6);
   xx := xx + getzqx(7);
   xx := xx + getzqx(8);
   xx := xx + getzqx(9);
   This_Player.PlayerNotice('CNPC=' + xx, 5);
   end else if zqcs = 10 then
   begin
   xx := xx + getzqx(1);
   xx := xx + getzqx(2);
   xx := xx + getzqx(3);
   xx := xx + getzqx(4);
   xx := xx + getzqx(5);
   xx := xx + getzqx(6);
   xx := xx + getzqx(7);
   xx := xx + getzqx(8);
   xx := xx + getzqx(9);
   xx := xx + getzqx(10);
   This_Player.PlayerNotice('CNPC=' + xx, 5);
   end else if zqcs = 11 then
   begin
   xx := xx + getzqx(1);
   xx := xx + getzqx(2);
   xx := xx + getzqx(3);
   xx := xx + getzqx(4);
   xx := xx + getzqx(5);
   xx := xx + getzqx(6);
   xx := xx + getzqx(7);
   xx := xx + getzqx(8);
   xx := xx + getzqx(9);
   xx := xx + getzqx(10);
   xx := xx + getzqx(11);
   This_Player.PlayerNotice('CNPC=' + xx, 5);
   end else if zqcs = 12 then
   begin
   xx := xx + getzqx(1);
   xx := xx + getzqx(2);
   xx := xx + getzqx(3);
   xx := xx + getzqx(4);
   xx := xx + getzqx(5);
   xx := xx + getzqx(6);
   xx := xx + getzqx(7);
   xx := xx + getzqx(8);
   xx := xx + getzqx(9);
   xx := xx + getzqx(10);
   xx := xx + getzqx(11);
   xx := xx + getzqx(12);
   This_Player.PlayerNotice('CNPC=' + xx, 5);
   end;
end;
 procedure _zqqr;
var zqcs :integer;
begin
if This_Player.GetV(121,1) >=12 then
begin
OKKK('失败','你的青龙神力已全部激活');
Exit;
end;
zqcs := (This_Player.GetV(121,1) + 1);
yy1 := (zqcs * 300) + (This_Player.GetS(62,12));
if This_Player.GetBagItemCount('朱雀印') >= getcl(zqcs) then
begin
if This_Player.YBnum >= getyb(zqcs) then
begin
This_Player.Take('朱雀印',getcl(zqcs));
This_Player.ScriptRequestSubYBNum(getyb(zqcs));
This_Player.SetV(121,1,zqcs);
This_Player.SetS(62,12,(yy1));
shuxing2;
_zq;
NOTICE('恭喜你','成功激活一层朱雀神力');
if This_Player.GetV(121,1) >=12 then
begin
yy1 := yy1 + 1000;
This_Player.SetS(62,12,(yy1));
shuxing2;
_zq;
NOTICE('恭喜你','朱雀神力已全部激活，HP额外增加1000');
end;
end else
OKKK('失败','元宝不足');
end else
OKKK('失败','没有足够的朱雀印');
end;
begin
if (This_Player.GetV(118,1) < 0) then This_Player.SetV(118,1,0);
if (This_Player.GetV(119,1) < 0) then This_Player.SetV(119,1,0);
if (This_Player.GetV(120,1) < 0) then This_Player.SetV(120,1,0);
if (This_Player.GetV(121,1) < 0) then This_Player.SetV(121,1,0);
	domain;
end.