战神引擎自动回收装备得元宝脚本
在端游里面，自动回收的功能已经很普遍了，但在手游里面，还是比较少的，今天帮主大家分享的是战神引擎自动回收装备得元宝脚本。脚本文件有两份，添加需要你们自己来，以后帮主做个教程。脚本来自飞天沉默。
{********************************************************************
//by QQ：309533053
*******************************************************************}
program mir2;
{$I common.pas}
procedure _Exit;
begin
This_Npc.CloseDialog(This_Player);
end;
Procedure domain;
begin
if This_Player.GetV(88,1) <>1 then
begin
This_NPC.NpcDialog(This_Player,
'|<【超级】 c="180"> 自动回收65级以下装备\'+
'|<【规则】 c="180"> <45-50级装备每件50元宝,55-60级装备每件100元宝 c="253">\'+
'|<【至尊】 c="180"> <随身泡点请到会员服务开启.自动买疗伤药50元宝1包 c="253">\'+
'|<【提示】 c="180"> <赞助地图和首冲地图不能使用，每次下线后上线需再次手动开启~！ c="red">\'+
'|<【提示】 c="180"> 每次开启需要1050元宝\'+
'|<【状态】 c="180"> <【未开启】 c="249">^<【我要开启】 kqmy="">\'
);
end
else
This_NPC.NpcDialog(This_Player,
'|<【超级】 c="180"> 自动回收65级以下装备\'+
'|<【规则】 c="180"> <45-50级装备每件50元宝,55-60级装备每件100元宝 c="253">\'+
'|<【至尊】 c="180"> <随身泡点请到会员服务开启.自动买疗伤药50元宝1包 c="253">\'+
'|<【提示】 c="180"> <赞助地图和首冲地图不能使用，每次下线后上线需再次手动开启~！ c="red">\'+
'|<【提示】 c="180"> 每次开启需要1050元宝\'+
'|<【状态】 c="180"> <【已开启】 c="250">^<【我要关闭】 gmy="">\'
);
end;
function getZBnameById(ZBid : integer) : string;
var ZBlv , ZBlvId : integer;
begin
ZBlv := ZBid div 100;
ZBlvId := ZBid mod 100;
result := '';
case ZBlv of
1 :
begin
case ZBlvId of
1 : result := '王者头盔';
2 : result := '王者项链';
3 : result := '宙迪手套';
4 : result := '贝斯戒指';
5 : result := '贝迪头盔(强)';
6 : result := '魔龙项链';
7 : result := '魔龙手环';
8 : result := '考斯戒指';
9 : result := '三丰头盔';
10 : result := '迪斯项链';
11 : result := '三丰手套';
12 : result := '三丰戒指';
13 : result := '王者之袍(男)';
14 : result := '王者之袍(女)';
15 : result := '魔龙之袍(男)';
16 : result := '魔龙之袍(女)';
17 : result := '三丰道衣(女)';
18 : result := '三丰道衣(男)';
19 : result := '修炼石';
20 : result := '邪恶霹雳铲';
21 : result := '梦幻银蛇剑';
22 : result := '魔云幽灵杖';
23 : result := '武神项链';
24 : result := '武神手臂';
25 : result := '武神戒指';
26 : result := '魔神项链';
27 : result := '魔神手臂';
28 : result := '魔神戒指';
29 : result := '青龙项链';
30 : result := '青龙手臂';
31 : result := '青龙戒指';
32 : result := '武神头盔';
31 : result := '青龙头盔';
34 : result := '魔神头盔';
35 : result := '武神战刀';
36 : result := '魔神之仗';
37 : result := '青龙扇';
38 : result := '武神战甲(男)';
39 : result := '黑铁战衣(女)';
40 : result := '魔神法衣(男)';
41 : result := '凤凰魔袍(女)';
42 : result := '青龙道衣(男)';
43 : result := '天女道衣(女)';
44 : result := '魔神盾';
45 : result := '武神盾';
46 : result := '道神盾';
end;
end;
2 :
begin
case ZBlvId of
1 : result := '圣域头盔';
2 : result := '魔石头盔';
3 : result := '爱情头盔';
4 : result := '爱情项链';
5 : result := '魔石项链';
6 : result := '圣域项链';
7 : result := '圣域手套';
8 : result := '圣域之戒';
9 : result := '爱情手镯';
10 : result := '爱情戒指';
11 : result := '魔石之戒';
12 : result := '魔石手套';
13 : result := '泣鬼斩';
14 : result := '魔龙之刃';
15 : result := '独孤九剑';
16 : result := '铁骑战甲(男)';
17 : result := '铁骑战甲(女)';
18 : result := '猩猩魔袍(男)';
19 : result := '猩猩魔袍(女)';
20 : result := '麒麟道衣(男)';
21 : result := '麒麟道衣(女)';
22 : result := '骷髅盾';
23 : result := '龙翼袍(男)';
24 : result := '龙翼袍(女)';
25 : result := '血灵头盔';
26 : result := '天蚕头盔';
27 : result := '远古头盔';
38 : result := '远古项链';
29 : result := '天蚕项链';
30 : result := '血灵项链';
31 : result := '远古手镯';
32 : result := '天蚕手镯';
33 : result := '血灵手镯';
34 : result := '远古戒指';
35 : result := '血灵戒指';
36 : result := '天蚕戒指';
37 : result := '远古神器';
38 : result := '远古神器';
39 : result := '天蚕剑';
40 : result := '远古之翼(男)';
41 : result := '远古之翼(女)';
42 : result := '血灵之翼(男)';
43 : result := '血灵之翼(女)';
44 : result := '天蚕之翼(男)';
45 : result := '天蚕之翼(女)';
46 : result := '蝴蝶盾';
47 : result := '龙王战衣(男)';
48 : result := '龙王战衣(女)';
end;
end;
end;
end;
function getZexpNum(Zlv : integer) : integer;
begin
case Zlv of
1 : result := 10000;
2 : result := 20000;
3 : result := 50000;
4 : result := 10000;
5 : result := 200000;
6 : result := 500000;
end;
end;
function getZYBNum(Zlv : integer) : integer;
begin
case Zlv of
1 : result := 50;
2 : result := 100;
3 : result := 200;
4 : result := 1;
5 : result := 2;
6 : result := 3;
7 : result := 1;
8 : result := 2;
9 : result := 5;
10 : result := 1;
11 : result := 5;
12 : result := 10;
end;
end;
procedure zdhs1();
var ZMnum , i , j , itemNum : integer;
Iname : string;
begin
ZMnum := 0;
for i := 1 to 50 do
begin
Iname := getZBnameById(100 + i);
if Iname <> '' then
begin
itemNum := This_Player.GetBagItemCount(Iname);
if itemNum > 0 then
begin
ZMnum := ZMnum + itemNum;
This_Player.Take(Iname, itemNum);
for j := 1 to itemNum do
This_Player.ScriptRequestAddYBNum(getZYBNum(1));
begin
for j := 1 to itemNum do
This_Player.Give('经验', getZexpNum(1));
end;
end;
end;
end;
end;
procedure zdhs2();
var ZMnum , i , j , itemNum : integer;
Iname : string;
begin
ZMnum := 0;
for i := 1 to 50 do
begin
Iname := getZBnameById(200 + i);
if Iname <> '' then
begin
itemNum := This_Player.GetBagItemCount(Iname);
if itemNum > 0 then
begin
ZMnum := ZMnum + itemNum;
This_Player.Take(Iname, itemNum);
for j := 1 to itemNum do
This_Player.ScriptRequestAddYBNum(getZYBNum(2));
begin
for j := 1 to itemNum do
This_Player.Give('经验', getZexpNum(2));
end;
end;
end;
end;
end;
procedure zdhs3();
var ZMnum , i , j , itemNum : integer;
Iname : string;
begin
ZMnum := 0;
for i := 1 to 50 do
begin
Iname := getZBnameById(300 + i);
if Iname <> '' then
begin
itemNum := This_Player.GetBagItemCount(Iname);
if itemNum > 0 then
begin
ZMnum := ZMnum + itemNum;
This_Player.Take(Iname, itemNum);
for j := 1 to itemNum do
This_Player.ScriptRequestAddYBNum(getZYBNum(3));
begin
for j := 1 to itemNum do
This_Player.Give('经验', getZexpNum(3));
end;
end;
end;
end;
end;
procedure zdhs4();
var ZMnum , i , j , itemNum : integer;
Iname : string;
begin
ZMnum := 0;
for i := 1 to 50 do
begin
Iname := getZBnameById(400 + i);
if Iname <> '' then
begin
itemNum := This_Player.GetBagItemCount(Iname);
if itemNum > 0 then
begin
ZMnum := ZMnum + itemNum;
This_Player.Take(Iname, itemNum);
for j := 1 to itemNum do
This_Player.ScriptRequestAddYBNum(getZYBNum(4));
begin
for j := 1 to itemNum do
This_Player.Give('经验', getZexpNum(4));
end;
end;
end;
end;
end;
procedure zdhs5();
var ZMnum , i , j , itemNum : integer;
Iname : string;
begin
ZMnum := 0;
for i := 1 to 50 do
begin
Iname := getZBnameById(500 + i);
if Iname <> '' then
begin
itemNum := This_Player.GetBagItemCount(Iname);
if itemNum > 0 then
begin
ZMnum := ZMnum + itemNum;
This_Player.Take(Iname, itemNum);
for j := 1 to itemNum do
This_Player.ScriptRequestAddYBNum(getZYBNum(5));
begin
for j := 1 to itemNum do
This_Player.Give('经验', getZexpNum(5));
end;
end;
end;
end;
end;
procedure zdhs6();
var ZMnum , i , j , itemNum : integer;
Iname : string;
begin
ZMnum := 0;
for i := 1 to 50 do
begin
Iname := getZBnameById(600 + i);
if Iname <> '' then
begin
itemNum := This_Player.GetBagItemCount(Iname);
if itemNum > 0 then
begin
ZMnum := ZMnum + itemNum;
This_Player.Take(Iname, itemNum);
for j := 1 to itemNum do
This_Player.ScriptRequestAddYBNum(getZYBNum(6));
begin
for j := 1 to itemNum do
This_Player.Give('经验', getZexpNum(6));
end;
end;
end;
end;
end;
procedure _kqmy;
begin
if This_Player.YBNum >= 1050 then
begin
This_Player.ScriptRequestSubYBNum(1050);
This_Player.SetV(88,1,1);
This_Player.CallOut(This_NPC,1,'zdmyk');
This_NPC.NpcDialog(This_Player,
'至尊辅助功能已开启。\ \'
);
end else
This_NPC.NpcDialog(This_Player,
'没钱凑啥热闹。\ \'
);
end;
procedure zdmyk;
begin
if This_Player.GetV(88,1) = 1 then
begin
if This_Player.FreeBagNum >= 2 then
begin
if This_Player.YBNum >= 50 then
begin
if This_Player.GetBagItemCount('疗伤药包')<1 then
begin
zdhs1();
zdhs2();
zdhs3();
This_Player.Give('疗伤药包', 1);
This_Player.ScriptRequestSubYBNum(50);
This_Player.Give('经验',8888);
This_Player.CallOut(This_NPC,1,'zdmyk');
endelse
begin
zdhs1();
zdhs2();
zdhs3();
This_Player.CallOut(This_NPC,1,'zdmyk');
end
endelse
begin
This_Player.SetV(88,1,0);
This_NPC.NpcDialog(This_Player,
'元宝不足，至尊辅助功能已关闭。\ \');
end
endelse
begin
This_Player.CallOut(This_NPC,1,'zdmyk');
This_NPC.NpcDialog(This_Player,
'背包不足，至尊辅助功能已暂停。\ \');
end
end;
end;
procedure _gmy;
begin
This_Player.SetV(88,1,0);
This_NPC.NpcDialog(This_Player,
'至尊辅助功能已关闭。\ \'
);
end;
begin
domain;
end.
推荐工具
热门游戏
- 1
- 战神引擎官方制作原始1.85合击端
- 战神版本
- 战神引擎官方制作原始1.85合击端
- 战神版本
- 2
- 帮主RMB买来的，支持安装和苹
- 战神版本
- 帮主RMB买来的，支持安装和苹
- 战神版本
- 3
- 战神引擎官方制作1.76原始端
- 战神版本
- 战神引擎官方制作1.76原始端
- 战神版本
- 4
- 冰雪大陆+冷月驿站+天地神魔+独家制作
- 战神版本
- 冰雪大陆+冷月驿站+天地神魔+独家制作
- 战神版本
- 5
- 经典版本+一切都有+沉默首选
- 战神版本
- 经典版本+一切都有+沉默首选
- 战神版本
- 6
- 自动回收+装备合成+易币兑换+一切都爆
- 战神版本
- 自动回收+装备合成+易币兑换+一切都爆
- 战神版本
- 7
- 新UI+新地图+新怪物+新装备
- 战神版本
- 新UI+新地图+新怪物+新装备
- 战神版本
- 8
- 英雄圣地+卧龙英雄+转生狂暴+加官进爵
- 战神版本
- 英雄圣地+卧龙英雄+转生狂暴+加官进爵
- 战神版本
- 9
- 自动回收+九个称号+各种活动+功能丰富
- 战神版本
- 自动回收+九个称号+各种活动+功能丰富
- 战神版本
- 10
- 冰雪之城+九次转生+六道轮回+装备熔炼
- 战神版本
- 冰雪之城+九次转生+六道轮回+装备熔炼
- 战神版本
- 11
- 四个大陆+新地图+新装备+玩法丰富
- 战神版本
- 四个大陆+新地图+新装备+玩法丰富
- 战神版本
- 12
- 第二大陆+五套新装+庄园钓鱼+炼体十层
- 战神版本
- 第二大陆+五套新装+庄园钓鱼+炼体十层
- 战神版本