战神引擎魂环系统自定义Npc脚本+素材

用于战神引擎的魂环系统NPC脚本，脚本使用了自定义对话框，帮主通过脚本给出的线索，把牵扯到的图片素材和脚本一起打包了，你们添加的时候要特别记得，脚本是从3.0里面提取出来的，使用了动态刷新功能，2.0不能直接兼容，需要改脚本，3.0以上才能支持动态刷新，其他的方面自行研究对接。

战神引擎魂环系统自定义Npc脚本+素材

部分脚本

procedure domain;
var xx:string;
begin
xx := shou(1);
This_Player.PlayerNotice('CNPC=' + xx, 5);
end;
procedure _xia(id :integer);
var xx:string;
begin
xx := shou(id +1);
This_Player.PlayerNotice('CNPC=' + xx, 5);
end;
procedure _shang(id :integer);
var xx:string;
begin
xx := shou(id -1);
This_Player.PlayerNotice('CNPC=' + xx, 5);
end;
procedure _huo(id :integer);
begin
if (This_Player.GetV(136,id-1) <> 1) and (id <> 1) then
begin
OKKK('失败','请依次购买');
Exit;
end;
if This_Player.GetV(136,id) = 1 then
begin
OKKK('失败','已经获得该魂环');
Exit;
end;
if (This_Player.MyLFnum >= getlingfu(id)) and (This_Player.GoldNum >= getjinbi(id)) then
begin
This_Player.SetV(136,id,1);
This_Player.DecLF(0, getlingfu(id), false);
This_Player.DecGold(getjinbi(id));
This_Player.SetV(135,1,This_Player.GetV(135,1)+getqiege(id));
This_Player.SetV(134,1,This_Player.GetV(134,1)+getshengming(id));
This_Player.SetV(133,1,This_Player.GetV(133,1)+getfangyu(id));
This_Player.SetS(1,11,This_Player.GetV(135,1));
This_Player.SetS(1,12,This_Player.GetV(134,1));
This_Player.SetS(1,19,This_Player.GetV(133,1));
This_Player.AddPlayerAbil(0,0,0);
This_Player.SetV(69,13,getfen(id));
givefenghao;
NOTICE('恭喜你','激活成功');
end else
begin
OKKK('失败','元宝不足');
end;
end;
procedure _shiqu;
begin
This_Player.SetS(1,61,50);
end;
begin
if This_Player.GetV(135,1) < 0 then This_Player.SetV(135,1,0);
if This_Player.GetV(134,1) < 0 then This_Player.SetV(134,1,0);
if This_Player.GetV(133,1) < 0 then This_Player.SetV(133,1,0);
	domain;
end.

分享到：

赞(0)