战神引擎套装触发脚本

1659866 · 2024-9-25 08:39:31

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;

复制代码

帐号		自动登录	找回密码
密码			注册

战神引擎战神引擎套装触发脚本

热门推荐

相关文章

排行榜

器灵宝塔

斗罗封神传

少年跑者

王座守护者

新凡人修仙传

万道武神

战神引擎 战神引擎套装触发脚本

热门推荐

相关文章

排行榜

器灵宝塔

斗罗封神传

少年跑者

王座守护者

新凡人修仙传

万道武神

战神引擎战神引擎套装触发脚本