战神引擎称号晋升Npc脚本带自定义素材

用于战神引擎手游传奇服务端的称号晋升Npc脚本，因为脚本添加的是自定义对话框，牵扯到的素材帮主一并提取出来了，脚本关联了多份属性文件，添加的时候，记得备份一下版本原先的，在提取对应的变量到文件里面，脚本提取自3.0的版本，无法跟2.0直接兼容。其他的方面喜欢脚本的兄弟自行研究。

战神引擎称号晋升Npc脚本带自定义素材

部分脚本

if This_Player.YBnum >= fy(xx) then
begin
This_Player.ScriptRequestSubYBNum(fy(xx));
This_Player.SetV(117,1,xx);
This_Player.SetS(70,16,(This_Player.GetS(70,16) + bj(xx)));
This_Player.SetS(61,13,(This_Player.GetS(61,13) + bg(xx)));
This_Player.SetS(71,14,(This_Player.GetS(71,14) + blv1(xx)));
This_Player.Setv(69,1,xx1);
givefenghao;
shuxing11;
shuxing1;
shuxing10;
_byzy1;
This_Player.Setv(117,2,xx1+1);
NOTICE('恭喜你','成功晋升称号'+chmz(xx)+'');
end else
OKKK('失败','元宝不足');
end;
end;
procedure _js2;
var xx ,xx1:integer;
begin
 xx1 := This_Player.GetV(117,1);
 if xx1 > 0 then
 begin
 This_Player.Setv(69,1,0);
 givefenghao;
 NOTICE('成功','操作成功，称号已隐藏');
 end else
 OKKK('失败','操作失败，当前无称号');
end;
procedure _js3;
var xx ,xx1:integer;
begin
 xx := This_Player.GetV(117,2);
 xx1 := This_Player.GetV(117,1);
 if xx1 > 0 then
 begin
 This_Player.Setv(69,1,xx-1);
 givefenghao;
 NOTICE('成功','操作成功，称号已显示');
 end else
 OKKK('失败','操作失败，当前无称号');
end;
begin
if This_Player.GetV(117,1) < 0 then This_Player.SetV(117,1,0);
if This_Player.GetV(117,2) < 0 then This_Player.SetV(117,2,9);
if This_Player.GetS(70,16) < 0 then This_Player.SetS(70,16,0);
if This_Player.GetS(71,14) < 0 then This_Player.SetS(71,14,0);
if This_Player.GetS(61,13) < 0 then This_Player.SetS(61,13,0);
	domain;
end.

分享到：

赞(0)