战神引擎边打边回收装备得元宝脚本
战神引擎边打边回收装备得元宝脚本，玩家开启以后，不需要在土城，去其他地图，打装备，爆出来的，捡取到包裹以后，也会自动回收得元宝，脚本是明文版的，可以任何修改回收的物品和元宝数。
PROGRAM Mir2;
{$I TaoZhuang.pas}
{$I common.pas}
Procedure _doexit;
begin
This_Npc.CloseDialog(This_Player);
end;
procedure domain;
begin
This_Npc.NpcDialog(This_Player,
'┏━━━━━元宝━━━━经验━━━━━━┓\'+
'|<火龙装备 c="254"> <元宝2 c="red"> <经验10万 c="250">^ <一键收火龙 1_all="">\'+
'|<金牛装备 c="254"> <元宝5 c="red"> <经验20万 c="250">^ <一键收金牛 11_all="">\|'+
'|<炎龙装备 c="254"> <元宝10 c="red"> <经验40万 c="250">^ <一键收炎龙 2_all="">\'+
'|<荣耀装备 c="254"> <元宝30 c="red"> <经验100万 c="250">^ <一键收荣耀 22_all="">\|'+
'|<虎威装备 c="254"> <元宝50 c="red"> <经验150万 c="250">^ <一键收虎威 3_all="">\'+
'|<主宰装备 c="254"> <元宝100 c="red"> <经验250万 c="250">^ <一键收主宰 33_all="">\|'+
'|<传奇装备 c="254"> <元宝300 c="red"> <经验450万 c="250">^ <一键收传奇 4_all="">\'+
'|<玉兔装备 c="254"> <元宝500 c="red"> <经验900万 c="250">^ <一键收玉兔 44_all="">\|'+
'|<赤影装备 c="254"> <元宝800 c="red"> <经验1500万 c="250">^ <一键收赤影 5_all="">\'+
'|<魅影装备 c="254"> <元宝2000 c="red"> <经验5千万 c="250">^ <一键收魅影 55_all="">\'+
'|<回收注意 c="245"> <不想回收的装备请放置仓库 c="249">\'+
'|┗━━━━━━━━━━━━━━━━━━━┛\'+
'|{cmd}<退出 doexit="">');
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 := '火龙神靴';
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 := '金牛道袍(女)';
28 : result := '金牛战斧';
29 : result := '金牛道剑';
30 : result := '金牛魔杖';
end;
end;
3 :
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 := '炎龙道袍(女)';
end;
end;
4 :
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 := '荣耀道扇';
end;
end;
5 :
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 := '虎威道刃';
end;
end;
6 :
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 := '主宰道袍(女)';
end;
end;
7 :
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 := '传奇道靴';
end;
end;
8 :
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 := '玉兔道靴';
end;
end;
9 :
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 := '赤影道靴';
end;
end;
10 :
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 := '魅影道靴';
end;
end;
end;
end;
function getZexpNum(Zlv : integer) : integer;
begin
case Zlv of
1 : result := 100000;
2 : result := 200000;
3 : result := 400000;
4 : result := 1000000;
5 : result := 1500000;
6 : result := 2500000;
7 : result := 4500000;
8 : result := 9000000;
9 : result := 15000000;
10 : result := 50000000;
end;
end;
function getZYBNum(Zlv : integer) : integer;
begin
case Zlv of
1 : result := 2;
2 : result := 5;
3 : result := 10;
4 : result := 30;
5 : result := 50;
6 : result := 100;
7 : result := 300;
8 : result := 500;
9 : result := 800;
10 : result := 2000;
end;
end;
procedure _1_all;
var ZMnum , i : integer;
Iname : string;
begin
ZMnum := 0;
for i := 1 to 40 do
begin
Iname := getZBnameById(100 + i);
if Iname <> '' then
begin
if This_Player.GetBagItemCount(Iname) > 0 then
begin
ZMnum := ZMnum + This_Player.GetBagItemCount(Iname);
end;
end;
end;
This_NPC.NpcDialog(This_Player,
'你的包裹中有' + inttostr(ZMnum) + '件火龙装备，回收可获得:' + inttostr(getZexpNum(1) div 10000 * ZMnum) + '万经验，' + inttostr(getZYBNum(1) * ZMnum) + '个元宝\|'
+'|{cmd}<确认回收所有火龙装备 1_true="">'
+'|{cmd}<返回 main="">');
end;
procedure _1_True;
var ZMnum , i , j , itemNum : integer;
Iname : string;
begin
ZMnum := 0;
for i := 1 to 40 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;
This_NPC.NpcDialog(This_Player,
'恭喜你成功回收！'
+'|{cmd}<返回 main="">');
end;
end;
procedure _11_all;
var ZMnum , i : integer;
Iname : string;
begin
ZMnum := 0;
for i := 1 to 40 do
begin
Iname := getZBnameById(200 + i);
if Iname <> '' then
begin
if This_Player.GetBagItemCount(Iname) > 0 then
begin
ZMnum := ZMnum + This_Player.GetBagItemCount(Iname);
end;
end;
end;
This_NPC.NpcDialog(This_Player,
'你的包裹中有' + inttostr(ZMnum) + '件金牛装备，回收可获得:' + inttostr(getZexpNum(2) div 10000 * ZMnum) + '万经验，' + inttostr(getZYBNum(2) * ZMnum) + '个元宝\|'
+'|{cmd}<确认回收所有金牛装备 11_true="">'
+'|{cmd}<返回 main="">');
end;
procedure _11_True;
var ZMnum , i , j , itemNum : integer;
Iname : string;
begin
ZMnum := 0;
for i := 1 to 40 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;
This_NPC.NpcDialog(This_Player,
'恭喜你成功回收！'
+'|{cmd}<返回 main="">');
end;
end;
procedure _2_all;
var ZMnum , i : integer;
Iname : string;
begin
ZMnum := 0;
for i := 1 to 40 do
begin
Iname := getZBnameById(300 + i);
if Iname <> '' then
begin
if This_Player.GetBagItemCount(Iname) > 0 then
begin
ZMnum := ZMnum + This_Player.GetBagItemCount(Iname);
end;
end;
end;
This_NPC.NpcDialog(This_Player,
'你的包裹中有' + inttostr(ZMnum) + '件炎龙装备，回收可获得:' + inttostr(getZexpNum(3) div 10000 * ZMnum) + '万经验，' + inttostr(getZYBNum(3) * ZMnum) + '个元宝\|'
+'|{cmd}<确认回收所有炎龙装备 2_true="">'
+'|{cmd}<返回 main="">');
end;
procedure _2_True;
var ZMnum , i , j , itemNum : integer;
Iname : string;
begin
ZMnum := 0;
for i := 1 to 40 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;
This_NPC.NpcDialog(This_Player,
'恭喜你成功回收！'
+'|{cmd}<返回 main="">');
end;
end;
procedure _22_all;
var ZMnum , i : integer;
Iname : string;
begin
ZMnum := 0;
for i := 1 to 40 do
begin
Iname := getZBnameById(400 + i);
if Iname <> '' then
begin
if This_Player.GetBagItemCount(Iname) > 0 then
begin
ZMnum := ZMnum + This_Player.GetBagItemCount(Iname);
end;
end;
end;
This_NPC.NpcDialog(This_Player,
'你的包裹中有' + inttostr(ZMnum) + '件荣耀装备，回收可获得:' + inttostr(getZexpNum(4) div 10000 * ZMnum) + '万经验，' + inttostr(getZYBNum(4) * ZMnum) + '个元宝\|'
+'|{cmd}<确认回收所有荣耀装备 22_true="">'
+'|{cmd}<返回 main="">');
end;
procedure _22_True;
var ZMnum , i , j , itemNum : integer;
Iname : string;
begin
ZMnum := 0;
for i := 1 to 40 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;
This_NPC.NpcDialog(This_Player,
'恭喜你成功回收！'
+'|{cmd}<返回 main="">');
end;
end;
procedure _3_all;
var ZMnum , i : integer;
Iname : string;
begin
ZMnum := 0;
for i := 1 to 40 do
begin
Iname := getZBnameById(500 + i);
if Iname <> '' then
begin
if This_Player.GetBagItemCount(Iname) > 0 then
begin
ZMnum := ZMnum + This_Player.GetBagItemCount(Iname);
end;
end;
end;
This_NPC.NpcDialog(This_Player,
'你的包裹中有' + inttostr(ZMnum) + '件虎威装备，回收可获得:' + inttostr(getZexpNum(5) div 10000 * ZMnum) + '万经验，' + inttostr(getZYBNum(5) * ZMnum) + '个元宝\|'
+'|{cmd}<确认回收所有虎威装备 3_true="">'
+'|{cmd}<返回 main="">');
end;
procedure _3_True;
var ZMnum , i , j , itemNum : integer;
Iname : string;
begin
ZMnum := 0;
for i := 1 to 40 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;
This_NPC.NpcDialog(This_Player,
'恭喜你成功回收！'
+'|{cmd}<返回 main="">');
end;
end;
procedure _33_all;
var ZMnum , i : integer;
Iname : string;
begin
ZMnum := 0;
for i := 1 to 40 do
begin
Iname := getZBnameById(600 + i);
if Iname <> '' then
begin
if This_Player.GetBagItemCount(Iname) > 0 then
begin
ZMnum := ZMnum + This_Player.GetBagItemCount(Iname);
end;
end;
end;
This_NPC.NpcDialog(This_Player,
'你的包裹中有' + inttostr(ZMnum) + '件主宰装备，回收可获得:' + inttostr(getZexpNum(6) div 10000 * ZMnum) + '万经验，' + inttostr(getZYBNum(6) * ZMnum) + '个元宝\|'
+'|{cmd}<确认回收所有主宰装备 33_true="">'
+'|{cmd}<返回 main="">');
end;
procedure _33_True;
var ZMnum , i , j , itemNum : integer;
Iname : string;
begin
ZMnum := 0;
for i := 1 to 40 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;
This_NPC.NpcDialog(This_Player,
'恭喜你成功回收！'
+'|{cmd}<返回 main="">');
end;
end;
procedure _4_all;
var ZMnum , i : integer;
Iname : string;
begin
ZMnum := 0;
for i := 1 to 40 do
begin
Iname := getZBnameById(700 + i);
if Iname <> '' then
begin
if This_Player.GetBagItemCount(Iname) > 0 then
begin
ZMnum := ZMnum + This_Player.GetBagItemCount(Iname);
end;
end;
end;
This_NPC.NpcDialog(This_Player,
'你的包裹中有' + inttostr(ZMnum) + '件传奇装备，回收可获得:' + inttostr(getZexpNum(7) div 10000 * ZMnum) + '万经验，' + inttostr(getZYBNum(7) * ZMnum) + '个元宝\|'
+'|{cmd}<确认回收所有传奇装备 4_true="">'
+'|{cmd}<返回 main="">');
end;
procedure _4_True;
var ZMnum , i , j , itemNum : integer;
Iname : string;
begin
ZMnum := 0;
for i := 1 to 40 do
begin
Iname := getZBnameById(700 + 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(7));
begin
for j := 1 to itemNum do
This_Player.Give('经验', getZexpNum(7));
end;
end;
end;
This_NPC.NpcDialog(This_Player,
'恭喜你成功回收！'
+'|{cmd}<返回 main="">');
end;
end;
procedure _44_all;
var ZMnum , i : integer;
Iname : string;
begin
ZMnum := 0;
for i := 1 to 40 do
begin
Iname := getZBnameById(800 + i);
if Iname <> '' then
begin
if This_Player.GetBagItemCount(Iname) > 0 then
begin
ZMnum := ZMnum + This_Player.GetBagItemCount(Iname);
end;
end;
end;
This_NPC.NpcDialog(This_Player,
'你的包裹中有' + inttostr(ZMnum) + '件玉兔装备，回收可获得:' + inttostr(getZexpNum(8) div 10000 * ZMnum) + '万经验，' + inttostr(getZYBNum(8) * ZMnum) + '个元宝\|'
+'|{cmd}<确认回收所有玉兔装备 44_true="">'
+'|{cmd}<返回 main="">');
end;
procedure _44_True;
var ZMnum , i , j , itemNum : integer;
Iname : string;
begin
ZMnum := 0;
for i := 1 to 40 do
begin
Iname := getZBnameById(800 + 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(8));
begin
for j := 1 to itemNum do
This_Player.Give('经验', getZexpNum(8));
end;
end;
end;
This_NPC.NpcDialog(This_Player,
'恭喜你成功回收！'
+'|{cmd}<返回 main="">');
end;
end;
procedure _5_all;
var ZMnum , i : integer;
Iname : string;
begin
ZMnum := 0;
for i := 1 to 40 do
begin
Iname := getZBnameById(900 + i);
if Iname <> '' then
begin
if This_Player.GetBagItemCount(Iname) > 0 then
begin
ZMnum := ZMnum + This_Player.GetBagItemCount(Iname);
end;
end;
end;
This_NPC.NpcDialog(This_Player,
'你的包裹中有' + inttostr(ZMnum) + '件赤影装备，回收可获得:' + inttostr(getZexpNum(9) div 10000 * ZMnum) + '万经验，' + inttostr(getZYBNum(9) * ZMnum) + '个元宝\|'
+'|{cmd}<确认回收所有赤影装备 5_true="">'
+'|{cmd}<返回 main="">');
end;
procedure _5_True;
var ZMnum , i , j , itemNum : integer;
Iname : string;
begin
ZMnum := 0;
for i := 1 to 40 do
begin
Iname := getZBnameById(900 + 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(9));
begin
for j := 1 to itemNum do
This_Player.Give('经验', getZexpNum(9));
end;
end;
end;
This_NPC.NpcDialog(This_Player,
'恭喜你成功回收！'
+'|{cmd}<返回 main="">');
end;
end;
procedure _55_all;
var ZMnum , i : integer;
Iname : string;
begin
ZMnum := 0;
for i := 1 to 40 do
begin
Iname := getZBnameById(1000 + i);
if Iname <> '' then
begin
if This_Player.GetBagItemCount(Iname) > 0 then
begin
ZMnum := ZMnum + This_Player.GetBagItemCount(Iname);
end;
end;
end;
This_NPC.NpcDialog(This_Player,
'你的包裹中有' + inttostr(ZMnum) + '件魅影装备，回收可获得:' + inttostr(getZexpNum(10) div 10000 * ZMnum) + '万经验，' + inttostr(getZYBNum(10) * ZMnum) + '个元宝\|'
+'|{cmd}<确认回收所有魅影装备 55_true="">'
+'|{cmd}<返回 main="">');
end;
procedure _55_True;
var ZMnum , i , j , itemNum : integer;
Iname : string;
begin
ZMnum := 0;
for i := 1 to 40 do
begin
Iname := getZBnameById(1000 + 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(10));
begin
for j := 1 to itemNum do
This_Player.Give('经验', getZexpNum(10));
end;
end;
end;
This_NPC.NpcDialog(This_Player,
'恭喜你成功回收！'
+'|{cmd}<返回 main="">');
end;
end;
Begin
TZJH_NPC;
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
- 第二大陆+五套新装+庄园钓鱼+炼体十层
- 战神版本
- 第二大陆+五套新装+庄园钓鱼+炼体十层
- 战神版本