战神引擎套装触发脚本

果子

战神引擎套装触发脚本

• 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;