战神引擎神力附体英雄版Npc脚本

用于战神引擎神力附体英雄版Npc脚本，脚本只支持给英雄增加属性，单文件，无加密，可以任意修改，默认需要消费50000元宝，可以根据自己的需要，任意修改。

战神引擎神力附体英雄版Npc脚本

部分脚本

procedure _kaiqi;
var
  shuxingming,shuxingming2,shuxingming3,shuxingming4,shuxingming5: string;
  shuxingshuzhi,shuxingshuzhi2,shuxingshuzhi3,shuxingshuzhi4,shuxingshuzhi5: integer;
begin
  This_Player.AddPlayerAbil(11,65535, 0);
  if shuaxin then
  begin
    This_Player.SetV(50, 50, ConvertDateTimeToDB(GetNow));
    if shuxingzhi1 > 0 then
    begin
      shuxingming := '主属性';
      shuxingshuzhi := shuxingzhi1;
      This_Player.AddHeroAbil(This_Player.HeroJob, shuxingzhi1, 18000);
    end;
    if fangyu > 0 then
    begin
      shuxingming2 := '防御';
      shuxingshuzhi2 := fangyu;
      This_Player.AddHeroAbil(8, fangyu, 18000);
    end;
    if moyu > 0 then
    begin
      shuxingming3 := '魔御';
      shuxingshuzhi3 := moyu;
      This_Player.AddHeroAbil(9, moyu, 18000);
    end;
    if shengming > 0 then
    begin
      shuxingming4 := 'HP';
      shuxingshuzhi4 := shengming;
      This_Player.AddHeroAbil(4, shengming, 18000);
    end;
    if mofa > 0 then
    begin
      shuxingming5 := 'MP';
      shuxingshuzhi5 := mofa;
      This_Player.AddHeroAbil(5, mofa, 18000);
    end;
    This_Npc.CloseDialog(This_Player);
    This_NPC.NpcNotice('玩家：【'+This_Player.Name+'】开启了英雄神力护身,全属性增加,生人勿近！！');  
  end
  else
    This_Player.PlayerNotice('请先刷新你要附加的神力！', 0);
end;
procedure _initAbil;
begin
{	This_Player.AddHeroAbil(0,65535,0);
	This_Player.AddHeroAbil(1,65535,0);
	This_Player.AddHeroAbil(2,65535,0);
	This_Player.AddHeroAbil(4,65535,0);
	This_Player.AddHeroAbil(5,65535,0);
	This_Player.AddHeroAbil(8,65535,0);
	This_Player.AddHeroAbil(9,65535,0);
	This_Player.AddHeroAbil(3,65535,0);	
}    
    This_Player.AddPlayerAbil(11,65535,0);	
    This_Player.CallOut(This_NPC,1,'_letgo');  
end;
begin
  shuaxin := False;
  This_Npc.NpcSay('神力附体可以临时提高你的各种属性，持续时间5小时，打宝PK必备！');
  xiangcha := minusDataTime(GetNow,
    ConvertDBToDateTime(This_Player.GetV(50, 50)));
  if (This_Player.GetV(50, 50) = -1) or (xiangcha >= 60) then
  begin
    shouci := False;
    This_Npc.NpcDialog(This_Player, '神力附体可以临时增加你的英雄属性，杀人夺宝，无往不利！' +
      '|花费50000元宝可以随机刷新神力属性，按照你英雄的属性比例来加成。持续时间5小时！|你当前的元宝数量：' +
      inttostr(This_Player.YBNum) + '|{cmd}<我要开启/@letgo>');
  end
  else
    This_Npc.NpcDialog(This_Player, '必须' + inttostr(60 - xiangcha) +
      '秒后才可以再次开启神力！<请重新打开英雄属性.查看增加的神力属性！/c=red>');
end.

分享到：

赞(0)