战神引擎套装触发脚本

procedure JHTZ_XH_ZS();

var yaodai, xuezi, baoshi , xunzhang   : string;

leiji : integer;

begin        

//0衣服 1武器 2勋章 3项链 4头盔 5左手镯 6右手镯  7左戒指 8右戒指  9毒符 10腰带 11靴子 29宝石

yaodai := This_Player.GetItemNameOnBody(10);

xuezi := This_Player.GetItemNameOnBody(11);

baoshi := This_Player.GetItemNameOnBody(1);   //我没设置宝石，拿武器试，请自行替换

xunzhang := This_Player.GetItemNameOnBody(4);

   leiji := This_Player.GetV(27,27);

//////////验证成功获得技能并且循环验证

if (yaodai = ‘天龙腰带(战)’) or (yaodai = ‘神*冰雪战带’) then  //这里可以填2种腰带，

begin

  if (xuezi = ‘天龙战靴’) or (xuezi = ‘神*冰雪战靴’) then     //类似上面

  begin

  if (baoshi = ‘天龙圣剑’) or (baoshi = ‘神*冰雪神剑’) then

    begin

          if (xunzhang = ‘天龙战盔’) or (xunzhang = ‘神*冰雪战盔’) then

          begin

          if leiji < 4 then

          begin

         This_Player.AddPlayerAbil(0,380,3600);   //  0代表攻击  5代表攻击增加5， 3600代表3600秒

   This_Player.AddPlayerAbil(1,50,3600);   //  1代表魔法

   This_Player.AddPlayerAbil(2,50,3600);   //  2代表道术

   This_Player.SetV(27,27,4);

      This_Player.PlayerNotice(‘套装属性激活,攻击+100魔法+50道术+50’,2);

          end;

          end

    else

begin

  if leiji = 4 then

begin

   This_Player.AddPlayerAbil(0,6,0);      //  0代表攻击  5代表攻击增加5， 0代表0秒

   This_Player.AddPlayerAbil(1,6,0);

   This_Player.AddPlayerAbil(2,6,0);

      This_Player.SetV(27,27,0);

This_Player.PlayerNotice(‘缺少战盔,套装效果消失–!系统检测提示:天龙套装-冰雪套装点击盟重NPC即可开启套装隐藏属性！’,57);

end;

end;

        end else

begin

  if leiji = 4 then

begin

   This_Player.AddPlayerAbil(0,6,0);      //  0代表攻击  5代表攻击增加5， 0代表0秒

   This_Player.AddPlayerAbil(1,6,0);

   This_Player.AddPlayerAbil(2,6,0);

      This_Player.SetV(27,27,0);

This_Player.PlayerNotice(‘缺少武器,套装效果消失–!系统检测提示:天龙套装-冰雪套装点击盟重NPC即可开启套装隐藏属性！’,57);

end;

end;

end

else

begin

  if leiji = 4 then

begin

   This_Player.AddPlayerAbil(0,6,0);      //  0代表攻击  5代表攻击增加5， 0代表0秒

   This_Player.AddPlayerAbil(1,6,0);

   This_Player.AddPlayerAbil(2,6,0);

      This_Player.SetV(27,27,0);

This_Player.PlayerNotice(‘缺少靴子,套装效果消失–!系统检测提示:天龙套装-冰雪套装点击盟重NPC即可开启套装隐藏属性！’,57);

end;

end;

end

else

begin

  if leiji = 4 then

  begin

   This_Player.AddPlayerAbil(0,6,0);      //  0代表攻击  5代表攻击增加5， 0代表0秒

   This_Player.AddPlayerAbil(1,6,0);

   This_Player.AddPlayerAbil(2,6,0);

      This_Player.SetV(27,27,0);

This_Player.PlayerNotice(‘缺少腰带,套装效果消失–!系统检测提示:天龙套装-冰雪套装点击盟重NPC即可开启套装隐藏属性！’,57);

end;

end;

    This_Player.CallOut(This_Npc, 5, ‘JHTZ_XH_ZS’);

end;

procedure JHTZ_XH_FS();

var yaodai, xuezi, baoshi , xunzhang   : string;

leiji : integer;

begin        

//0衣服 1武器 2勋章 3项链 4头盔 5左手镯 6右手镯  7左戒指 8右戒指  9毒符 10腰带 11靴子 29宝石

yaodai := This_Player.GetItemNameOnBody(10);

xuezi := This_Player.GetItemNameOnBody(11);

baoshi := This_Player.GetItemNameOnBody(1);   //我没设置宝石，拿武器试，请自行替换

xunzhang := This_Player.GetItemNameOnBody(4);

   leiji := This_Player.GetV(27,27);

//////////验证成功获得技能并且循环验证

if (yaodai = ‘天龙腰带(法)’) or (yaodai = ‘神*冰雪法带’) then  //这里可以填2种腰带，

begin

  if (xuezi = ‘天龙魔靴’) or (xuezi = ‘神*冰雪法靴’) then     //类似上面

  begin

  if (baoshi = ‘天龙魔剑’) or (baoshi = ‘神*冰雪神剑’) then

    begin

          if (xunzhang = ‘天龙法冠’) or (xunzhang = ‘神*冰雪法盔’) then

          begin

          if leiji < 4 then

          begin

         This_Player.AddPlayerAbil(0,50,3600);   //  0代表攻击  5代表攻击增加5， 3600代表3600秒

   This_Player.AddPlayerAbil(1,50,3600);   //  1代表魔法

   This_Player.AddPlayerAbil(2,50,3600);   //  2代表道术

   This_Player.SetV(27,27,4);

      This_Player.PlayerNotice(‘套装属性激活,攻击+50魔法+50道术+50’,2);

          end;

          end

    else

begin

  if leiji = 4 then

begin

   This_Player.AddPlayerAbil(0,6,0);      //  0代表攻击  5代表攻击增加5， 0代表0秒

   This_Player.AddPlayerAbil(1,6,0);

   This_Player.AddPlayerAbil(2,6,0);

      This_Player.SetV(27,27,0);

This_Player.PlayerNotice(‘缺少衣服,套装效果消失–!系统检测提示:天龙套装-冰雪套装点击盟重NPC即可开启套装隐藏属性！’,57);

end;

end;

        end else

begin

  if leiji = 4 then

begin

   This_Player.AddPlayerAbil(0,6,0);      //  0代表攻击  5代表攻击增加5， 0代表0秒

   This_Player.AddPlayerAbil(1,6,0);

   This_Player.AddPlayerAbil(2,6,0);

      This_Player.SetV(27,27,0);

This_Player.PlayerNotice(‘缺少武器,套装效果消失–!系统检测提示:天龙套装-冰雪套装点击盟重NPC即可开启套装隐藏属性！’,57);

end;

end;

end

else

begin

  if leiji = 4 then

begin

   This_Player.AddPlayerAbil(0,6,0);      //  0代表攻击  5代表攻击增加5， 0代表0秒

   This_Player.AddPlayerAbil(1,6,0);

   This_Player.AddPlayerAbil(2,6,0);

      This_Player.SetV(27,27,0);

This_Player.PlayerNotice(‘缺少靴子,套装效果消失–!系统检测提示:天龙套装-冰雪套装点击盟重NPC即可开启套装隐藏属性！’,57);

end;

end;

end

else

begin

  if leiji = 4 then

  begin

   This_Player.AddPlayerAbil(0,6,0);      //  0代表攻击  5代表攻击增加5， 0代表0秒

   This_Player.AddPlayerAbil(1,6,0);

   This_Player.AddPlayerAbil(2,6,0);

      This_Player.SetV(27,27,0);

This_Player.PlayerNotice(‘缺少腰带,套装效果消失–!系统检测提示:天龙套装-冰雪套装点击盟重NPC即可开启套装隐藏属性！’,57);

end;

end;

    This_Player.CallOut(This_Npc, 5, ‘JHTZ_XH_FS’);

end;

procedure JHTZ_XH_DS();

var yaodai, xuezi, baoshi , xunzhang   : string;

leiji : integer;

begin        

//0衣服 1武器 2勋章 3项链 4头盔 5左手镯 6右手镯  7左戒指 8右戒指  9毒符 10腰带 11靴子 29宝石

yaodai := This_Player.GetItemNameOnBody(10);

xuezi := This_Player.GetItemNameOnBody(11);

baoshi := This_Player.GetItemNameOnBody(1);   //我没设置宝石，拿武器试，请自行替换

xunzhang := This_Player.GetItemNameOnBody(4);

   leiji := This_Player.GetV(27,27);

//////////验证成功获得技能并且循环验证

if (yaodai = ‘天龙腰带(道)’) or (yaodai = ‘神*冰雪道带’) then  //这里可以填2种腰带，

begin

  if (xuezi = ‘天龙道靴’) or (xuezi = ‘神*冰雪道靴’) then     //类似上面

  begin

  if (baoshi = ‘天龙道剑’) or (baoshi = ‘神*冰雪神剑’) then

    begin

          if (xunzhang = ‘天龙道盔’) or (xunzhang = ‘神*冰雪道盔’) then

          begin

          if leiji < 4 then

          begin

         This_Player.AddPlayerAbil(0,50,3600);   //  0代表攻击  5代表攻击增加5， 3600代表3600秒

   This_Player.AddPlayerAbil(1,50,3600);   //  1代表魔法

   This_Player.AddPlayerAbil(2,50,3600);   //  2代表道术

   This_Player.SetV(27,27,4);

      This_Player.PlayerNotice(‘套装属性激活,攻击+50魔法+50道术+50’,2);

          end;

          end

    else

begin

  if leiji = 4 then

begin

   This_Player.AddPlayerAbil(0,6,0);      //  0代表攻击  5代表攻击增加5， 0代表0秒

   This_Player.AddPlayerAbil(1,6,0);

   This_Player.AddPlayerAbil(2,6,0);

      This_Player.SetV(27,27,0);

This_Player.PlayerNotice(‘缺少衣服,套装效果消失–!系统检测提示:天龙套装-冰雪套装点击盟重NPC即可开启套装隐藏属性！’,57);

end;

end;

        end else

begin

  if leiji = 4 then

begin

   This_Player.AddPlayerAbil(0,6,0);      //  0代表攻击  5代表攻击增加5， 0代表0秒

   This_Player.AddPlayerAbil(1,6,0);

   This_Player.AddPlayerAbil(2,6,0);

      This_Player.SetV(27,27,0);

This_Player.PlayerNotice(‘缺少武器,套装效果消失–!系统检测提示:天龙套装-冰雪套装点击盟重NPC即可开启套装隐藏属性！’,57);

end;

end;

end

else

begin

  if leiji = 4 then

begin

   This_Player.AddPlayerAbil(0,6,0);      //  0代表攻击  5代表攻击增加5， 0代表0秒

   This_Player.AddPlayerAbil(1,6,0);

   This_Player.AddPlayerAbil(2,6,0);

      This_Player.SetV(27,27,0);

This_Player.PlayerNotice(‘缺少靴子,套装效果消失–!系统检测提示:天龙套装-冰雪套装点击盟重NPC即可开启套装隐藏属性！’,57);

end;

end;

end

else

begin

  if leiji = 4 then

  begin

   This_Player.AddPlayerAbil(0,6,0);      //  0代表攻击  5代表攻击增加5， 0代表0秒

   This_Player.AddPlayerAbil(1,6,0);

   This_Player.AddPlayerAbil(2,6,0);

      This_Player.SetV(27,27,0);

This_Player.PlayerNotice(‘缺少腰带,套装效果消失–!系统检测提示:天龙套装-冰雪套装点击盟重NPC即可开启套装隐藏属性！’,57);

end;

end;

    This_Player.CallOut(This_Npc, 5, ‘JHTZ_XH_DS’); //循环语句，5代表5秒循环一次

end;

procedure JHTZ_KS();      //3职业调用入口，请勿修改

begin      

//This_Player.PlayerNotice(‘成功调用2’,2);      

  case This_Player.Job of

       0:

           JHTZ_XH_ZS();

       1:

           JHTZ_XH_FS();

       2:

           JHTZ_XH_DS();

  end;

end;

function TZJH_NPC:string;

begin

//This_Player.PlayerNotice(‘成功调用1’,2);   

  JHTZ_KS();

end;  

复制代码