|
|
procedure domain;
begin
This_Npc.NpcDialog(This_Player,
'我这里可以回收祖玛以上的装备。\'+
'如果你有不要的装备，我这里可以给你兑换成经验，金币，元宝，金刚石，4选一\ \'+
'|<每回收一件赤月以上饰品都会增加10点声望/c=red>\ \'+
'|{cmd}<经验回收/@ZhuangBack> ^<元宝回收/@ZhuangBackyb>\'+
'|{cmd}<金刚石回收/@ZhuangBackjgs> ^<金币回收/@ZhuangBackjb>\'+
'|{cmd}<武器类回收/@wuqi> ^<退出/@doexit>');
end;
procedure _wuqi;
begin
This_Npc.NpcDialog(This_Player,
'我这里可以回收祖玛以上的武器。\'+
'如果你有不要的武器，我这里可以给你兑换成经验，金币，元宝，金刚石，4选一\ \'+
'|<每回收一件赤月以上饰品都会增加10点声望/c=red>\ \'+
'|{cmd}<经验回收/@ZhuangBackwq> ^<元宝回收/@ZhuangBackybwq>\'+
'|{cmd}<金刚石回收/@ZhuangBackjgswq> ^<金币回收/@ZhuangBackjbwq>\'+
'|{cmd}<退出/@doexit>');
end;
[mw_shl_code=delphi,true]
PROGRAM Mir2;
{$I common.pas}
//{$I TaoZhuang.pas}
Procedure _doexit;
begin
This_Npc.CloseDialog(This_Player);
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 := '龙之戒指';
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 := '紫绸靴';
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 := '避魂靴';
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 := '光芒道靴';
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 := '强化光芒道靴';
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 := '迷失瞬影戒(麻)';
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 := '终极の魅影复活';
end;
end;
end;
end;
function getZBnameByIdWQ(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 := '炼狱';
end;
end;
2 :
begin
case ZBlvId of //祖玛
1 : result := '龙纹剑';
2 : result := '骨玉权杖';
3 : result := '裁决之杖';
end;
end;
3 :
begin
case ZBlvId of //赤月
1 : result := '银蛇';
2 : result := '无极棍';
3 : result := '魔杖';
4 : result := '炼狱';
end;
end;
4 :
begin
case ZBlvId of //雷霆
1 : result := '银蛇';
2 : result := '无极棍';
3 : result := '魔杖';
4 : result := '炼狱';
end;
end;
5 :
begin
case ZBlvId of //迷失
1 : result := '银蛇';
2 : result := '无极棍';
3 : result := '魔杖';
4 : result := '炼狱';
end;
end;
6 :
begin
case ZBlvId of // 魅影
1 : result := '银蛇';
2 : result := '无极棍';
3 : result := '魔杖';
4 : result := '炼狱';
end;
end;
end;
end;
function getZexpNum(Zlv : integer) : integer;
begin
case Zlv of
1 : result := 20000;
2 : result := 50000;
3 : result := 200000;
4 : result := 500000;
5 : result := 1000000;
6 : result := 2000000;
7 : result := 3000000;
end;
end;
function getZybNum(Zlv : integer) : integer;
begin
case Zlv of
1 : result := 2;
2 : result := 5;
3 : result := 20;
4 : result := 50;
5 : result := 100;
6 : result := 200;
7 : result := 300;
end;
end;
function getZjbNum(Zlv : integer) : integer;
begin
case Zlv of
1 : result := 5000;
2 : result := 10000;
3 : result := 50000;
4 : result := 100000;
5 : result := 500000;
6 : result := 1000000;
7 : result := 2000000;
end;
end;
function getZjgsNum(Zlv : integer) : integer;
begin
case Zlv of
1 : result := 0;
2 : result := 2;
3 : result := 5;
4 : result := 10;
5 : result := 20;
6 : result := 50;
7 : result := 100;
end;
end;
//=======================武器
function getZexpNumWuqi(Zlv : integer) : integer;
begin
case Zlv of
1 : result := 50000;
2 : result := 100000;
3 : result := 500000;
4 : result := 1000000;
5 : result := 50000000;
6 : result := 80000000;
end;
end;
function getZybNumwuqi(Zlv : integer) : integer;
begin
case Zlv of
1 : result := 0;
2 : result := 50;
3 : result := 100;
4 : result := 0;
5 : result := 500;
6 : result := 1000;
end;
end;
function getZjbNumwuqi(Zlv : integer) : integer;
begin
case Zlv of
1 : result := 50000;
2 : result := 100000;
3 : result := 500000;
4 : result := 1000000;
5 : result := 2000000;
6 : result := 5000000;
end;
end;
function getZjgsNumwuqi(Zlv : integer) : integer;
begin
case Zlv of
1 : result := 0;
2 : result := 3;
3 : result := 20;
4 : result := 50;
5 : result := 100;
6 : result := 200;
end;
end;
procedure _ZhuangBack;
begin
This_NPC.NpcDialog(This_Player,
'|请把不要回收的装备放在仓库，回收概不负责：\'
+'|袄玛首饰每个回收2万经验 <一键回收/@Woma_all>\'
+'|祖玛首饰每个回收5万经验 <一键回收/@ZUma_all>\'
+'|赤月首饰每个回收20万经验 <一键回收/@ChiYue_all>\'
+'|魔龙首饰每个回收50万经验 <一键回收/@molong_all>\'
+'|强魔首饰每个回收100万经验 <一键回收/@qiangmo_all>\'
+'|迷失首饰每个回收200万经验 <一键回收/@mishi_all>\'
+'|魅影首饰每个回收300万经验 <一键回收/@meiying_all>\'
+'|<退出/@doexit>'
);
end;
//==============================武器回收
procedure _ZhuangBackwq;
begin
This_NPC.NpcDialog(This_Player,
'|请把不要回收的装备放在仓库，回收概不负责：\'
// +'|袄玛武器每个回收2万经验 <一键回收/@Womawq_all>\'
+'|祖玛武器每个回收5万经验 <一键回收/@ZUmawq_all>\'
+'|赤月武器每个回收10万经验 <一键回收/@ChiYuewq_all>\'
+'|魔龙武器每个回收100万经验 <一键回收/@molongwq_all>\'
// +'|强魔武器每个回收100万经验 <一键回收/@qiangmowq_all>\'
+'|迷失武器每个回收500万经验 <一键回收/@mishiwq_all>\'
+'|魅影武器每个回收800万经验 <一键回收/@meiyingwq_all>\'
+'|<退出/@doexit>'
);
end;
////////////////////////
procedure _Womawq_all;
var WMnum , i : integer;
Iname : string;
begin
WMnum := 0;
for i := 1 to 15 do
begin
Iname := getZBnameByIdWQ(100 + i);
if Iname <> '' then
begin
if This_Player.GetBagItemCount(Iname) > 0 then
begin
WMnum := WMnum + This_Player.GetBagItemCount(Iname);
end;
end;
end;
This_NPC.NpcDialog(This_Player,
'你的包裹中有' + inttostr(WMnum) + '件沃玛武器，回收可获得:' + inttostr(getZexpNum(1) div 10000 * WMnum) + '万经验，你确定回收所有沃玛武器吗？\|'
+'|{cmd}<确认回收所有沃玛武器/@Womawq_True>'
+'|{cmd}<返回/@ZhuangBackwq>');
end;
procedure _Womawq_True;
var WMnum , i , j , itemNum : integer;
Iname : string;
begin
WMnum := 0;
for i := 1 to 15 do
begin
Iname := getZBnameByIdWQ(100 + i);
if Iname <> '' then
begin
itemNum := This_Player.GetBagItemCount(Iname);
if itemNum > 0 then
begin
WMnum := WMnum + itemNum;
This_Player.Take(Iname, itemNum);
for j := 1 to itemNum do
This_Player.Give('经验', getZexpNum(1));
end;
end;
end;
This_NPC.NpcDialog(This_Player,
'恭喜你获得:' + inttostr(getZexpNum(1) div 10000 * WMnum) + '万经验！\|'
+'|{cmd}<返回/@ZhuangBackwqwq>');
end;
///////////////////////////
procedure _ZUmawq_all;
var ZMnum , i : integer;
Iname : string;
begin
ZMnum := 0;
for i := 1 to 15 do
begin
Iname := getZBnameByIdWQ(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) + '万经验，你确定回收所有祖玛武器吗？\|'
+'|{cmd}<确认回收所有祖玛武器/@ZUmawq_True>'
+'|{cmd}<返回/@ZhuangBackwq>');
end;
procedure _ZUmawq_True;
var ZMnum , i , j , itemNum : integer;
Iname : string;
begin
ZMnum := 0;
for i := 1 to 15 do
begin
Iname := getZBnameByIdWQ(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.Give('经验', getZexpNum(2));
end;
end;
end;
This_NPC.NpcDialog(This_Player,
'恭喜你获得:' + inttostr(getZexpNum(2) div 10000 * ZMnum) + '万经验！\|'
+'|{cmd}<返回/@ZhuangBackwq>');
end;
procedure _Chiyuewq_all;
var CYnum , i , ShengW : integer;
Iname : string;
begin
CYnum := 0;
for i := 1 to 15 do
begin
Iname := getZBnameByIdWQ(300 + i);
if Iname <> '' then
begin
if This_Player.GetBagItemCount(Iname) > 0 then
begin
CYnum := CYnum + This_Player.GetBagItemCount(Iname);
end;
end;
end;
This_NPC.NpcDialog(This_Player,
'你的包裹中有' + inttostr(CYnum) + '件赤月武器，回收可获得:' + inttostr(getZexpNum(3) div 10000 * CYnum) + '万经验，获得' + inttostr(CYnum * 10) + '声望。你确定回收所有赤月武器吗？\|'
+'|{cmd}<确认回收所有赤月武器/@Chiyuewq_True>'
+'|{cmd}<返回/@ZhuangBackwq>');
end;
procedure _Chiyuewq_True;
var CYnum , i , j , itemNum, ShengW : integer;
Iname : string;
begin
CYnum := 0;
for i := 1 to 15 do
begin
Iname := getZBnameByIdWQ(300 + i);
if Iname <> '' then
begin
itemNum := This_Player.GetBagItemCount(Iname);
if itemNum > 0 then
begin
CYnum := CYnum + itemNum;
ShengW :=itemNum * 10;
This_Player.Take(Iname, itemNum);
for j := 1 to itemNum do
This_Player.MyShengwan := This_Player.MyShengwan + 10
This_Player.Give('经验', getZexpNum(3));
end;
end;
end;
This_NPC.NpcDialog(This_Player,
'恭喜你获得:' + inttostr(getZexpNum(3) div 10000 * CYnum) + '万经验！\|'
+'恭喜你获得' + inttostr(ShengW) + '声望\|'
+'|{cmd}<返回/@ZhuangBackwq>');
end;
procedure _molongwq_all;
var MLnum , i : integer;
Iname : string;
begin
MLnum := 0;
for i := 1 to 15 do
begin
Iname := getZBnameByIdWQ(400 + i);
if Iname <> '' then
begin
if This_Player.GetBagItemCount(Iname) > 0 then
begin
MLnum := MLnum + This_Player.GetBagItemCount(Iname);
end;
end;
end;
This_NPC.NpcDialog(This_Player,
'你的包裹中有' + inttostr(MLnum) + '件魔龙武器，回收可获得:' + inttostr(getZexpNum(4) div 10000 * mlnum) + '万经验，你确定回收所有魔龙武器吗？\|'
+'|{cmd}<确认回收所有魔龙武器/@molongwq_True>'
+'|{cmd}<返回/@ZhuangBackwq>');
end;
procedure _molongwq_True;
var MLnum , i , j , itemNum, ShengW : integer;
Iname : string;
begin
MLnum := 0;
for i := 1 to 15 do
begin
Iname := getZBnameByIdWQ(400 + i);
if Iname <> '' then
begin
itemNum := This_Player.GetBagItemCount(Iname);
if itemNum > 0 then
begin
MLnum := MLnum + itemNum;
This_Player.Take(Iname, itemNum);
ShengW :=itemNum * 10;
for j := 1 to itemNum do
This_Player.Give('经验', getZexpNum(4));
This_Player.MyShengwan := This_Player.MyShengwan + 10
end;
end;
end;
This_NPC.NpcDialog(This_Player,
'恭喜你获得:' + inttostr(getZexpNum(4) div 10000 * MLnum) + '万经验！\|'
+'恭喜你获得' + inttostr(ShengW) + '声望\|'
+'|{cmd}<返回/@ZhuangBackwq>');
end;
procedure _qiangmowq_all;
var QMnum , i : integer;
Iname : string;
begin
QMnum := 0;
for i := 1 to 15 do
begin
Iname := getZBnameByIdWQ(500 + i);
if Iname <> '' then
begin
if This_Player.GetBagItemCount(Iname) > 0 then
begin
QMnum := QMnum + This_Player.GetBagItemCount(Iname);
end;
end;
end;
This_NPC.NpcDialog(This_Player,
'你的包裹中有' + inttostr(QMnum) + '件强化魔龙武器，回收可获得:' + inttostr(getZexpNum(5) div 10000 * QMnum) + '万经验，你确定回收所有强化魔龙武器吗？\|'
+'|{cmd}<确认回收所有强化魔龙武器/@qiangmowq_True>'
+'|{cmd}<返回/@ZhuangBackwq>');
end;
procedure _qiangmowq_True;
var QMnum , i , j , itemNum, ShengW : integer;
Iname : string;
begin
QMnum := 0;
for i := 1 to 15 do
begin
Iname := getZBnameByIdWQ(500 + i);
if Iname <> '' then
begin
itemNum := This_Player.GetBagItemCount(Iname);
if itemNum > 0 then
begin
QMnum := QMnum + itemNum;
This_Player.Take(Iname, itemNum);
ShengW :=itemNum * 10;
for j := 1 to itemNum do
This_Player.Give('经验', getZexpNum(5));
This_Player.MyShengwan := This_Player.MyShengwan + 10
end;
end;
end;
This_NPC.NpcDialog(This_Player,
'恭喜你获得:' + inttostr(getZexpNum(5) div 10000 * QMnum) + '万经验！\|'
+'恭喜你获得' + inttostr(ShengW) + '声望\|'
+'|{cmd}<返回/@ZhuangBackwq>');
end;
procedure _mishiwq_all;
var MSnum , i : integer;
Iname : string;
begin
MSnum := 0;
for i := 1 to 15 do
begin
Iname := getZBnameByIdWQ(600 + i);
if Iname <> '' then
begin
if This_Player.GetBagItemCount(Iname) > 0 then
begin
MSnum := MSnum + This_Player.GetBagItemCount(Iname);
end;
end;
end;
This_NPC.NpcDialog(This_Player,
'你的包裹中有' + inttostr(MSnum) + '件迷失武器，回收可获得:' + inttostr(getZexpNum(6) div 10000 * MSnum) + '万经验，你确定回收所有迷失武器吗？\|'
+'|{cmd}<确认回收所有迷失武器/@mishiwq_True>'
+'|{cmd}<返回/@ZhuangBackwq>');
end;
procedure _mishiwq_True;
var MSnum , i , j , itemNum, ShengW : integer;
Iname : string;
begin
MSnum := 0;
for i := 1 to 15 do
begin
Iname := getZBnameByIdWQ(600 + i);
if Iname <> '' then
begin
itemNum := This_Player.GetBagItemCount(Iname);
if itemNum > 0 then
begin
MSnum := MSnum + itemNum;
This_Player.Take(Iname, itemNum);
ShengW :=itemNum * 10;
//This_Player.Give('声望',1);
for j := 1 to itemNum do
This_Player.Give('经验', getZexpNum(6));
This_Player.MyShengwan := This_Player.MyShengwan + 10
end;
end;
end;
This_NPC.NpcDialog(This_Player,
'恭喜你获得:' + inttostr(getZexpNum(6) div 10000 * MSnum) + '万经验！\|'
+'恭喜你获得' + inttostr(ShengW) + '声望\|'
+'|{cmd}<返回/@ZhuangBackwq>');
end;
procedure _meiyingwq_all;
var MYnum , i : integer;
Iname : string;
begin
MYnum := 0;
for i := 1 to 15 do
begin
Iname := getZBnameByIdWQ(700 + i);
if Iname <> '' then
begin
if This_Player.GetBagItemCount(Iname) > 0 then
begin
MYnum := MYnum + This_Player.GetBagItemCount(Iname);
end;
end;
end;
This_NPC.NpcDialog(This_Player,
'你的包裹中有' + inttostr(MYnum) + '件终极の魅影武器，回收可获得:' + inttostr(getZexpNum(7) div 10000 * MYnum) + '万经验，你确定回收所有终极の魅影武器吗？\|'
+'|{cmd}<确认回收所有终极の魅影武器/@meiyingwq_True>'
+'|{cmd}<返回/@ZhuangBackwq>');
end;
procedure _meiyingwq_True;
var MYnum , i , j , itemNum, ShengW : integer;
Iname : string;
begin
MYnum := 0;
for i := 1 to 15 do
begin
Iname := getZBnameByIdWQ(700 + i);
if Iname <> '' then
begin
itemNum := This_Player.GetBagItemCount(Iname);
if itemNum > 0 then
begin
MYnum := MYnum + itemNum;
This_Player.Take(Iname, itemNum);
ShengW :=itemNum * 10;
//This_Player.Give('声望',1);
for j := 1 to itemNum do
This_Player.Give('经验', getZexpNum(7));
This_Player.MyShengwan := This_Player.MyShengwan + 10
end;
end;
end;
This_NPC.NpcDialog(This_Player,
'恭喜你获得:' + inttostr(getZexpNum(7) div 10000 * MYnum) + '万经验！\|'
+'恭喜你获得' + inttostr(ShengW) + '声望\|'
+'|{cmd}<返回/@ZhuangBackwq>');
end;
//===============================元宝
procedure _ZhuangBackybwq;
begin
This_NPC.NpcDialog(This_Player,
'|请把不要回收的武器放在仓库，回收概不负责：\'
// +'|袄玛武器每个回收2元宝 <一键回收/@Womaybwq_all>\'
// +'|祖玛武器每个回收5元宝 <一键回收/@ZUmaybwq_all>\'
+'|赤月武器每个回收50元宝 <一键回收/@ChiYueybwq_all>\'
+'|魔龙武器每个回收100元宝 <一键回收/@molongybwq_all>\'
// +'|强魔武器每个回收100元宝 <一键回收/@qiangmoybwq_all>\'
+'|迷失武器每个回收500元宝 <一键回收/@mishiybwq_all>\'
+'|魅影武器每个回收1000元宝 <一键回收/@meiyingybwq_all>\'
+'|{cmd}<退出/@doexit>'
);
end;
procedure _Womaybwq_all;
var WMnum , i : integer;
Iname : string;
begin
WMnum := 0;
for i := 1 to 15 do
begin
Iname := getZBnameByIdWQ(100 + i);
if Iname <> '' then
begin
if This_Player.GetBagItemCount(Iname) > 0 then
begin
WMnum := WMnum + This_Player.GetBagItemCount(Iname);
end;
end;
end;
This_NPC.NpcDialog(This_Player,
'你的包裹中有' + inttostr(WMnum) + '件沃玛备，回收可获得:' + inttostr(getZybNum(1) * WMnum) + '元宝，你确定回收所有沃玛武器吗？\|'
+'|{cmd}<确认回收所有沃玛武器/@Womaybwq_True>'
+'|{cmd}<返回/@ZhuangBackybwq>');
end;
procedure _Womaybwq_True;
var WMnum , i , j , itemNum : integer;
Iname : string;
begin
WMnum := 0;
for i := 1 to 15 do
begin
Iname := getZBnameByIdWQ(100 + i);
if Iname <> '' then
begin
itemNum := This_Player.GetBagItemCount(Iname);
if itemNum > 0 then
begin
WMnum := WMnum + itemNum;
This_Player.Take(Iname, itemNum);
This_Player.ScriptRequestAddYBNum(getZybNum(1) * itemNum);
end;
end;
end;
This_NPC.NpcDialog(This_Player,
'恭喜你获得:' + inttostr(getZybNum(1) * WMnum) + '元宝！\|'
+'|{cmd}<返回/@ZhuangBackybwq>');
end;
///////////////////////////
procedure _ZUmaybwq_all;
var ZMnum , i : integer;
Iname : string;
begin
ZMnum := 0;
for i := 1 to 15 do
begin
Iname := getZBnameByIdWQ(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(getZybNum(2) * ZMnum) + '元宝，你确定回收所有祖玛武器吗？\|'
+'|{cmd}<确认回收所有祖玛武器/@ZUmaybwq_True>'
+'|{cmd}<返回/@ZhuangBackybwq>');
end;
procedure _ZUmaybwq_True;
var ZMnum , i , j , itemNum : integer;
Iname : string;
begin
ZMnum := 0;
for i := 1 to 15 do
begin
Iname := getZBnameByIdWQ(200 + i);
if Iname <> '' then
begin
itemNum := This_Player.GetBagItemCount(Iname);
if itemNum > 0 then
begin
ZMnum := ZMnum + itemNum;
This_Player.Take(Iname, itemNum);
This_Player.ScriptRequestAddYBNum(getZybNum(2) * itemNum);
end;
end;
end;
This_NPC.NpcDialog(This_Player,
'恭喜你获得:' + inttostr(getZybNum(2) * ZMnum) + '元宝！\|'
+'|{cmd}<返回/@ZhuangBackybwq>');
end;
procedure _Chiyueybwq_all;
var CYnum , i : integer;
Iname : string;
begin
CYnum := 0;
for i := 1 to 15 do
begin
Iname := getZBnameByIdWQ(300 + i);
if Iname <> '' then
begin
if This_Player.GetBagItemCount(Iname) > 0 then
begin
CYnum := CYnum + This_Player.GetBagItemCount(Iname);
end;
end;
end;
This_NPC.NpcDialog(This_Player,
'你的包裹中有' + inttostr(CYnum) + '件赤月武器，回收可获得:' + inttostr(getZybNum(3) * CYnum) + '元宝，你确定回收所有赤月武器吗？\|'
+'|{cmd}<确认回收所有赤月武器/@Chiyueybwq_True>'
+'|{cmd}<返回/@ZhuangBackybwq>');
end;
procedure _Chiyueybwq_True;
var CYnum , i , j , itemNum : integer;
Iname : string;
begin
CYnum := 0;
for i := 1 to 15 do
begin
Iname := getZBnameByIdWQ(300 + i);
if Iname <> '' then
begin
itemNum := This_Player.GetBagItemCount(Iname);
if itemNum > 0 then
begin
CYnum := CYnum + itemNum;
This_Player.Take(Iname, itemNum);
This_Player.ScriptRequestAddYBNum(getZybNum(3) * itemNum);
end;
end;
end;
This_NPC.NpcDialog(This_Player,
'恭喜你获得:' + inttostr(getZybNum(3) * CYnum) + '元宝！\|'
+'|{cmd}<返回/@ZhuangBackybwq>');
end;
procedure _molongybwq_all;
var MLnum , i : integer;
Iname : string;
begin
MLnum := 0;
for i := 1 to 15 do
begin
Iname := getZBnameByIdWQ(400 + i);
if Iname <> '' then
begin
if This_Player.GetBagItemCount(Iname) > 0 then
begin
MLnum := MLnum + This_Player.GetBagItemCount(Iname);
end;
end;
end;
This_NPC.NpcDialog(This_Player,
'你的包裹中有' + inttostr(MLnum) + '件魔龙武器，回收可获得:' + inttostr(getZybNum(4) * mlnum) + '元宝，你确定回收所有魔龙武器吗？\|'
+'|{cmd}<确认回收所有魔龙武器/@molongybwq_True>'
+'|{cmd}<返回/@ZhuangBackybwq>');
end;
procedure _molongybwq_True;
var MLnum , i , j , itemNum : integer;
Iname : string;
begin
MLnum := 0;
for i := 1 to 15 do
begin
Iname := getZBnameByIdWQ(400 + i);
if Iname <> '' then
begin
itemNum := This_Player.GetBagItemCount(Iname);
if itemNum > 0 then
begin
MLnum := MLnum + itemNum;
This_Player.Take(Iname, itemNum);
This_Player.ScriptRequestAddYBNum(getZybNum(4) * itemNum);
end;
end;
end;
This_NPC.NpcDialog(This_Player,
'恭喜你获得:' + inttostr(getZybNum(4) * MLnum) + '元宝！\|'
+'|{cmd}<返回/@ZhuangBackybwq>');
end;
procedure _qiangmoybwq_all;
var QMnum , i : integer;
Iname : string;
begin
QMnum := 0;
for i := 1 to 15 do
begin
Iname := getZBnameByIdWQ(500 + i);
if Iname <> '' then
begin
if This_Player.GetBagItemCount(Iname) > 0 then
begin
QMnum := QMnum + This_Player.GetBagItemCount(Iname);
end;
end;
end;
This_NPC.NpcDialog(This_Player,
'你的包裹中有' + inttostr(QMnum) + '件强化魔龙武器，回收可获得:' + inttostr(getZybNum(5) * QMnum) + '元宝，你确定回收所有强化魔龙武器吗？\|'
+'|{cmd}<确认回收所有强化魔龙武器/@qiangmoybwq_True>'
+'|{cmd}<返回/@ZhuangBackybwq>');
end;
procedure _qiangmoybwq_True;
var QMnum , i , j , itemNum : integer;
Iname : string;
begin
QMnum := 0;
for i := 1 to 15 do
begin
Iname := getZBnameByIdWQ(500 + i);
if Iname <> '' then
begin
itemNum := This_Player.GetBagItemCount(Iname);
if itemNum > 0 then
begin
QMnum := QMnum + itemNum;
This_Player.Take(Iname, itemNum);
This_Player.ScriptRequestAddYBNum(getZybNum(5) * itemNum);
end;
end;
end;
This_NPC.NpcDialog(This_Player,
'恭喜你获得:' + inttostr(getZybNum(5) * QMnum) + '元宝！\|'
+'|{cmd}<返回/@ZhuangBackybwq>');
end;
procedure _mishiybwq_all;
var MSnum , i : integer;
Iname : string;
begin
MSnum := 0;
for i := 1 to 15 do
begin
Iname := getZBnameByIdWQ(600 + i);
if Iname <> '' then
begin
if This_Player.GetBagItemCount(Iname) > 0 then
begin
MSnum := MSnum + This_Player.GetBagItemCount(Iname);
end;
end;
end;
This_NPC.NpcDialog(This_Player,
'你的包裹中有' + inttostr(MSnum) + '件迷失武器，回收可获得:' + inttostr(getZybNum(6) * MSnum) + '元宝，你确定回收所有迷失武器吗？\|'
+'|{cmd}<确认回收所有迷失武器/@mishiybwq_True>'
+'|{cmd}<返回/@ZhuangBackybwq>');
end;
procedure _mishiybwq_True;
var MSnum , i , j , itemNum : integer;
Iname : string;
begin
MSnum := 0;
for i := 1 to 15 do
begin
Iname := getZBnameByIdWQ(600 + i);
if Iname <> '' then
begin
itemNum := This_Player.GetBagItemCount(Iname);
if itemNum > 0 then
begin
MSnum := MSnum + itemNum;
This_Player.Take(Iname, itemNum);
This_Player.ScriptRequestAddYBNum(getZybNum(6) * itemNum);
end;
end;
end;
This_NPC.NpcDialog(This_Player,
'恭喜你获得:' + inttostr(getZybNum(6) * MSnum) + '元宝！\|'
+'|{cmd}<返回/@ZhuangBackybwq>');
end;
procedure _meiyingybwq_all;
var MYnum , i : integer;
Iname : string;
begin
MYnum := 0;
for i := 1 to 15 do
begin
Iname := getZBnameByIdWQ(700 + i);
if Iname <> '' then
begin
if This_Player.GetBagItemCount(Iname) > 0 then
begin
MYnum := MYnum + This_Player.GetBagItemCount(Iname);
end;
end;
end;
This_NPC.NpcDialog(This_Player,
'你的包裹中有' + inttostr(MYnum) + '件终极の魅影武器，回收可获得:' + inttostr(getZybNum(7) * MYnum) + '元宝，你确定回收所有终极の魅影武器吗？\|'
+'|{cmd}<确认回收所有终极の魅影武器/@meiyingybwq_True>'
+'|{cmd}<返回/@ZhuangBackybwq>');
end;
procedure _meiyingybwq_True;
var MYnum , i , j , itemNum : integer;
Iname : string;
begin
MYnum := 0;
for i := 1 to 15 do
begin
Iname := getZBnameByIdWQ(700 + i);
if Iname <> '' then
begin
itemNum := This_Player.GetBagItemCount(Iname);
if itemNum > 0 then
begin
MYnum := MYnum + itemNum;
This_Player.Take(Iname, itemNum);
This_Player.ScriptRequestAddYBNum(getZybNum(7)*itemNum);
end;
end;
end;
This_NPC.NpcDialog(This_Player,
'恭喜你获得:' + inttostr(getZybNum(7) * MYnum) + '元宝！\|'
+'|{cmd}<返回/@ZhuangBackybwq>');
end;
//=============================金刚石
procedure _ZhuangBackjgswq;
begin
This_NPC.NpcDialog(This_Player,
'|请把不要回收的武器放在仓库，回收概不负责：\'
// +'|袄玛武器每个回收2金刚石 <一键回收/@Womajgswq_all>\'
+'|祖玛武器每个回收3金刚石 <一键回收/@ZUmajgswq_all>\'
+'|赤月武器每个回收20金刚石 <一键回收/@ChiYuejgswq_all>\'
+'|魔龙武器每个回收50金刚石 <一键回收/@molongjgswq_all>\'
// +'|强魔武器每个回收100金刚石 <一键回收/@qiangmojgswq_all>\'
+'|迷失武器每个回收100金刚石 <一键回收/@mishijgswq_all>\'
+'|魅影武器每个回收200金刚石 <一键回收/@meiyingjgswq_all>\'
+'|{cmd}<退出/@doexit>'
);
end;
procedure _Womajgswq_all;
var WMnum , i : integer;
Iname : string;
begin
WMnum := 0;
for i := 1 to 15 do
begin
Iname := getZBnameByIdWQ(100 + i);
if Iname <> '' then
begin
if This_Player.GetBagItemCount(Iname) > 0 then
begin
WMnum := WMnum + This_Player.GetBagItemCount(Iname);
end;
end;
end;
This_NPC.NpcDialog(This_Player,
'你的包裹中有' + inttostr(WMnum) + '件沃玛备，回收可获得:' + inttostr(getZjgsNum(1) * WMnum) + '金刚石，你确定回收所有沃玛武器吗？\|'
+'|{cmd}<确认回收所有沃玛武器/@Womajgswq_True>'
+'|{cmd}<返回/@ZhuangBackjgswq>');
end;
procedure _Womajgswq_True;
var WMnum , i , j , itemNum : integer;
Iname : string;
begin
WMnum := 0;
for i := 1 to 15 do
begin
Iname := getZBnameByIdWQ(100 + i);
if Iname <> '' then
begin
itemNum := This_Player.GetBagItemCount(Iname);
if itemNum > 0 then
begin
WMnum := WMnum + itemNum;
This_Player.Take(Iname, itemNum);
This_Player.Give('金刚石',getZjgsNum(1) * itemNum);
end;
end;
end;
This_NPC.NpcDialog(This_Player,
'恭喜你获得:' + inttostr(getZjgsNum(1) * WMnum) + '金刚石！\|'
+'|{cmd}<返回/@ZhuangBackjgswq>');
end;
///////////////////////////
procedure _ZUmajgswq_all;
var ZMnum , i : integer;
Iname : string;
begin
ZMnum := 0;
for i := 1 to 15 do
begin
Iname := getZBnameByIdWQ(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(getZjgsNum(2) * ZMnum) + '金刚石，你确定回收所有祖玛武器吗？\|'
+'|{cmd}<确认回收所有祖玛武器/@ZUmajgswq_True>'
+'|{cmd}<返回/@ZhuangBackjgswq>');
end;
procedure _ZUmajgswq_True;
var ZMnum , i , j , itemNum : integer;
Iname : string;
begin
ZMnum := 0;
for i := 1 to 15 do
begin
Iname := getZBnameByIdWQ(200 + i);
if Iname <> '' then
begin
itemNum := This_Player.GetBagItemCount(Iname);
if itemNum > 0 then
begin
ZMnum := ZMnum + itemNum;
This_Player.Take(Iname, itemNum);
This_Player.Give('金刚石',getZjgsNum(2) * itemNum);
end;
end;
end;
This_NPC.NpcDialog(This_Player,
'恭喜你获得:' + inttostr(getZjgsNum(2) * ZMnum) + '金刚石！\|'
+'|{cmd}<返回/@ZhuangBackjgswq>');
end;
procedure _Chiyuejgswq_all;
var CYnum , i : integer;
Iname : string;
begin
CYnum := 0;
for i := 1 to 15 do
begin
Iname := getZBnameByIdWQ(300 + i);
if Iname <> '' then
begin
if This_Player.GetBagItemCount(Iname) > 0 then
begin
CYnum := CYnum + This_Player.GetBagItemCount(Iname);
end;
end;
end;
This_NPC.NpcDialog(This_Player,
'你的包裹中有' + inttostr(CYnum) + '件赤月武器，回收可获得:' + inttostr(getZjgsNum(3) * CYnum) + '金刚石，你确定回收所有赤月武器吗？\|'
+'|{cmd}<确认回收所有赤月武器/@Chiyuejgswq_True>'
+'|{cmd}<返回/@ZhuangBackjgswq>');
end;
procedure _Chiyuejgswq_True;
var CYnum , i , j , itemNum : integer;
Iname : string;
begin
CYnum := 0;
for i := 1 to 15 do
begin
Iname := getZBnameByIdWQ(300 + i);
if Iname <> '' then
begin
itemNum := This_Player.GetBagItemCount(Iname);
if itemNum > 0 then
begin
CYnum := CYnum + itemNum;
This_Player.Take(Iname, itemNum);
This_Player.Give('金刚石',getZjgsNum(3) * itemNum);
end;
end;
end;
This_NPC.NpcDialog(This_Player,
'恭喜你获得:' + inttostr(getZjgsNum(3) * CYnum) + '金刚石！\|'
+'|{cmd}<返回/@ZhuangBackjgswq>');
end;
procedure _molongjgswq_all;
var MLnum , i : integer;
Iname : string;
begin
MLnum := 0;
for i := 1 to 15 do
begin
Iname := getZBnameByIdWQ(400 + i);
if Iname <> '' then
begin
if This_Player.GetBagItemCount(Iname) > 0 then
begin
MLnum := MLnum + This_Player.GetBagItemCount(Iname);
end;
end;
end;
This_NPC.NpcDialog(This_Player,
'你的包裹中有' + inttostr(MLnum) + '件魔龙武器，回收可获得:' + inttostr(getZjgsNum(4) * mlnum) + '金刚石，你确定回收所有魔龙武器吗？\|'
+'|{cmd}<确认回收所有魔龙武器/@molongjgswq_True>'
+'|{cmd}<返回/@ZhuangBackjgswq>');
end;
procedure _molongjgswq_True;
var MLnum , i , j , itemNum : integer;
Iname : string;
begin
MLnum := 0;
for i := 1 to 15 do
begin
Iname := getZBnameByIdWQ(400 + i);
if Iname <> '' then
begin
itemNum := This_Player.GetBagItemCount(Iname);
if itemNum > 0 then
begin
MLnum := MLnum + itemNum;
This_Player.Take(Iname, itemNum);
This_Player.Give('金刚石',getZjgsNum(4) * itemNum);
end;
end;
end;
This_NPC.NpcDialog(This_Player,
'恭喜你获得:' + inttostr(getZjgsNum(4) * MLnum) + '金刚石！\|'
+'|{cmd}<返回/@ZhuangBackjgswq>');
end;
procedure _qiangmojgswq_all;
var QMnum , i : integer;
Iname : string;
begin
QMnum := 0;
for i := 1 to 15 do
begin
Iname := getZBnameByIdWQ(500 + i);
if Iname <> '' then
begin
if This_Player.GetBagItemCount(Iname) > 0 then
begin
QMnum := QMnum + This_Player.GetBagItemCount(Iname);
end;
end;
end;
This_NPC.NpcDialog(This_Player,
'你的包裹中有' + inttostr(QMnum) + '件强化魔龙武器，回收可获得:' + inttostr(getZjgsNum(5) * QMnum) + '金刚石，你确定回收所有强化魔龙武器吗？\|'
+'|{cmd}<确认回收所有强化魔龙武器/@qiangmojgswq_True>'
+'|{cmd}<返回/@ZhuangBackjgswq>');
end;
procedure _qiangmojgswq_True;
var QMnum , i , j , itemNum : integer;
Iname : string;
begin
QMnum := 0;
for i := 1 to 15 do
begin
Iname := getZBnameByIdWQ(500 + i);
if Iname <> '' then
begin
itemNum := This_Player.GetBagItemCount(Iname);
if itemNum > 0 then
begin
QMnum := QMnum + itemNum;
This_Player.Take(Iname, itemNum);
This_Player.Give('金刚石',getZjgsNum(5) * itemNum);
end;
end;
end;
This_NPC.NpcDialog(This_Player,
'恭喜你获得:' + inttostr(getZjgsNum(5) * QMnum) + '金刚石！\|'
+'|{cmd}<返回/@ZhuangBackjgswq>');
end;
procedure _mishijgswq_all;
var MSnum , i : integer;
Iname : string;
begin
MSnum := 0;
for i := 1 to 15 do
begin
Iname := getZBnameByIdWQ(600 + i);
if Iname <> '' then
begin
if This_Player.GetBagItemCount(Iname) > 0 then
begin
MSnum := MSnum + This_Player.GetBagItemCount(Iname);
end;
end;
end;
This_NPC.NpcDialog(This_Player,
'你的包裹中有' + inttostr(MSnum) + '件迷失武器，回收可获得:' + inttostr(getZjgsNum(6) * MSnum) + '金刚石，你确定回收所有迷失武器吗？\|'
+'|{cmd}<确认回收所有迷失武器/@mishigswq_True>'
+'|{cmd}<返回/@ZhuangBackjgswq>');
end;
procedure _mishijgswq_True;
var MSnum , i , j , itemNum : integer;
Iname : string;
begin
MSnum := 0;
for i := 1 to 15 do
begin
Iname := getZBnameByIdWQ(600 + i);
if Iname <> '' then
begin
itemNum := This_Player.GetBagItemCount(Iname);
if itemNum > 0 then
begin
MSnum := MSnum + itemNum;
This_Player.Take(Iname, itemNum);
This_Player.Give('金刚石',getZjgsNum(6) * itemNum);
end;
end;
end;
This_NPC.NpcDialog(This_Player,
'恭喜你获得:' + inttostr(getZjgsNum(6) * MSnum) + '金刚石！\|'
+'|{cmd}<返回/@ZhuangBackjgswq>');
end;
procedure _meiyingjgswq_all;
var MYnum , i : integer;
Iname : string;
begin
MYnum := 0;
for i := 1 to 15 do
begin
Iname := getZBnameByIdWQ(700 + i);
if Iname <> '' then
begin
if This_Player.GetBagItemCount(Iname) > 0 then
begin
MYnum := MYnum + This_Player.GetBagItemCount(Iname);
end;
end;
end;
This_NPC.NpcDialog(This_Player,
'你的包裹中有' + inttostr(MYnum) + '件终极の魅影武器，回收可获得:' + inttostr(getZjgsNum(7) * MYnum) + '金刚石，你确定回收所有终极の魅影武器吗？\|'
+'|{cmd}<确认回收所有终极の魅影武器/@meiyingjgswq_True>'
+'|{cmd}<返回/@ZhuangBackjgswq>');
end;
procedure _meiyingjgswq_True;
var MYnum , i , j , itemNum : integer;
Iname : string;
begin
MYnum := 0;
for i := 1 to 15 do
begin
Iname := getZBnameByIdWQ(700 + i);
if Iname <> '' then
begin
itemNum := This_Player.GetBagItemCount(Iname);
if itemNum > 0 then
begin
MYnum := MYnum + itemNum;
This_Player.Take(Iname, itemNum);
This_Player.Give('金刚石',getZjgsNum(7)*itemNum);
end;
end;
end;
This_NPC.NpcDialog(This_Player,
'恭喜你获得:' + inttostr(getZjgsNum(7) * MYnum) + '金刚石！\|'
+'|{cmd}<返回/@ZhuangBackjgswq>');
end;
//=============================金币
procedure _ZhuangBackjbwq;
begin
This_NPC.NpcDialog(This_Player,
'|请把不要回收的武器放在仓库，回收概不负责：\'
+'|袄玛武器每个回收50000金币 <一键回收/@Womajbwq_all>\'
+'|祖玛武器每个回收10W金币 <一键回收/@ZUmajbwq_all>\'
+'|赤月武器每个回收50W金币 <一键回收/@ChiYuejbwq_all>\'
+'|魔龙武器每个回收100W金币 <一键回收/@molongjbwq_all>\'
// +'|强魔武器每个回收50W金币 <一键回收/@qiangmojbwq_all>\'
+'|迷失武器每个回收200W金币 <一键回收/@mishijbwq_all>\'
+'|魅影武器每个回收500W金币 <一键回收/@meiyingjbwq_all>\'
+'|{cmd}<退出/@doexit>'
);
end;
procedure _Womajbwq_all;
var WMnum , i : integer;
Iname : string;
begin
WMnum := 0;
for i := 1 to 15 do
begin
Iname := getZBnameByIdWQ(100 + i);
if Iname <> '' then
begin
if This_Player.GetBagItemCount(Iname) > 0 then
begin
WMnum := WMnum + This_Player.GetBagItemCount(Iname);
end;
end;
end;
This_NPC.NpcDialog(This_Player,
'你的包裹中有' + inttostr(WMnum) + '件沃玛备，回收可获得:' + inttostr(getZjbNumwuqi(1) * WMnum) + '金币，你确定回收所有沃玛武器吗？\|'
+'|{cmd}<确认回收所有沃玛武器/@Womajbwq_True>'
+'|{cmd}<返回/@ZhuangBackjbwq>');
end;
procedure _Womajbwq_True;
var WMnum , i , j , itemNum : integer;
Iname : string;
begin
WMnum := 0;
for i := 1 to 15 do
begin
Iname := getZBnameByIdWQ(100 + i);
if Iname <> '' then
begin
itemNum := This_Player.GetBagItemCount(Iname);
if itemNum > 0 then
begin
WMnum := WMnum + itemNum;
This_Player.Take(Iname, itemNum);
This_Player.AddGold(getZjbNumwuqi(1) * itemNum);
end;
end;
end;
This_NPC.NpcDialog(This_Player,
'恭喜你获得:' + inttostr(getZjbNumwuqi(1) * WMnum) + '金币！\|'
+'|{cmd}<返回/@ZhuangBackjbwq>');
end;
///////////////////////////
procedure _ZUmajbwq_all;
var ZMnum , i : integer;
Iname : string;
begin
ZMnum := 0;
for i := 1 to 15 do
begin
Iname := getZBnameByIdWQ(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(getZjbNumwuqi(2) * ZMnum) + '金币，你确定回收所有祖玛武器吗？\|'
+'|{cmd}<确认回收所有祖玛武器/@ZUmajbwq_True>'
+'|{cmd}<返回/@ZhuangBackjbwq>');
end;
procedure _ZUmajbwq_True;
var ZMnum , i , j , itemNum : integer;
Iname : string;
begin
ZMnum := 0;
for i := 1 to 15 do
begin
Iname := getZBnameByIdWQ(200 + i);
if Iname <> '' then
begin
itemNum := This_Player.GetBagItemCount(Iname);
if itemNum > 0 then
begin
ZMnum := ZMnum + itemNum;
This_Player.Take(Iname, itemNum);
This_Player.AddGold(1000);
end;
end;
end;
This_NPC.NpcDialog(This_Player,
'恭喜你获得:' + inttostr(getZjbNumwuqi(2) * ZMnum) + '金币！\|'
+'|{cmd}<返回/@ZhuangBackjbwq>');
end;
procedure _Chiyuejbwq_all;
var CYnum , i : integer;
Iname : string;
begin
CYnum := 0;
for i := 1 to 15 do
begin
Iname := getZBnameByIdWQ(300 + i);
if Iname <> '' then
begin
if This_Player.GetBagItemCount(Iname) > 0 then
begin
CYnum := CYnum + This_Player.GetBagItemCount(Iname);
end;
end;
end;
This_NPC.NpcDialog(This_Player,
'你的包裹中有' + inttostr(CYnum) + '件赤月武器，回收可获得:' + inttostr(getZjbNumwuqi(3) * CYnum) + '金币，你确定回收所有赤月武器吗？\|'
+'|{cmd}<确认回收所有赤月武器/@Chiyuejbwq_True>'
+'|{cmd}<返回/@ZhuangBackjbwq>');
end;
procedure _Chiyuejbwq_True;
var CYnum , i , j , itemNum : integer;
Iname : string;
begin
CYnum := 0;
for i := 1 to 15 do
begin
Iname := getZBnameByIdWQ(300 + i);
if Iname <> '' then
begin
itemNum := This_Player.GetBagItemCount(Iname);
if itemNum > 0 then
begin
CYnum := CYnum + itemNum;
This_Player.Take(Iname, itemNum);
This_Player.AddGold(getZjbNumwuqi(3) * itemNum);
end;
end;
end;
This_NPC.NpcDialog(This_Player,
'恭喜你获得:' + inttostr(getZjbNumwuqi(3) * CYnum) + '金币！\|'
+'|{cmd}<返回/@ZhuangBackjbwq>');
end;
procedure _molongjbwq_all;
var MLnum , i : integer;
Iname : string;
begin
MLnum := 0;
for i := 1 to 15 do
begin
Iname := getZBnameByIdWQ(400 + i);
if Iname <> '' then
begin
if This_Player.GetBagItemCount(Iname) > 0 then
begin
MLnum := MLnum + This_Player.GetBagItemCount(Iname);
end;
end;
end;
This_NPC.NpcDialog(This_Player,
'你的包裹中有' + inttostr(MLnum) + '件魔龙武器，回收可获得:' + inttostr(getZjbNumwuqi(4) * mlnum) + '金币，你确定回收所有魔龙武器吗？\|'
+'|{cmd}<确认回收所有魔龙武器/@molongjbwq_True>'
+'|{cmd}<返回/@ZhuangBackjbwq>');
end;
procedure _molongjbwq_True;
var MLnum , i , j , itemNum : integer;
Iname : string;
begin
MLnum := 0;
for i := 1 to 15 do
begin
Iname := getZBnameByIdWQ(400 + i);
if Iname <> '' then
begin
itemNum := This_Player.GetBagItemCount(Iname);
if itemNum > 0 then
begin
MLnum := MLnum + itemNum;
This_Player.Take(Iname, itemNum);
This_Player.AddGold(getZjbNumwuqi(4) * itemNum);
end;
end;
end;
This_NPC.NpcDialog(This_Player,
'恭喜你获得:' + inttostr(getZjbNumwuqi(4) * MLnum) + '金币！\|'
+'|{cmd}<返回/@ZhuangBackjbwq>');
end;
procedure _qiangmojbwq_all;
var QMnum , i : integer;
Iname : string;
begin
QMnum := 0;
for i := 1 to 15 do
begin
Iname := getZBnameByIdWQ(500 + i);
if Iname <> '' then
begin
if This_Player.GetBagItemCount(Iname) > 0 then
begin
QMnum := QMnum + This_Player.GetBagItemCount(Iname);
end;
end;
end;
This_NPC.NpcDialog(This_Player,
'你的包裹中有' + inttostr(QMnum) + '件强化魔龙武器，回收可获得:' + inttostr(getZjbNumwuqi(5) * QMnum) + '金币，你确定回收所有强化魔龙武器吗？\|'
+'|{cmd}<确认回收所有强化魔龙武器/@qiangmojbwq_True>'
+'|{cmd}<返回/@ZhuangBackjbwq>');
end;
procedure _qiangmojbwq_True;
var QMnum , i , j , itemNum : integer;
Iname : string;
begin
QMnum := 0;
for i := 1 to 15 do
begin
Iname := getZBnameByIdWQ(500 + i);
if Iname <> '' then
begin
itemNum := This_Player.GetBagItemCount(Iname);
if itemNum > 0 then
begin
QMnum := QMnum + itemNum;
This_Player.Take(Iname, itemNum);
This_Player.AddGold(getZjbNumwuqi(5) * itemNum);
end;
end;
end;
This_NPC.NpcDialog(This_Player,
'恭喜你获得:' + inttostr(getZjbNumwuqi(5) * QMnum) + '金币！\|'
+'|{cmd}<返回/@ZhuangBackjbwq>');
end;
procedure _mishijbwq_all;
var MSnum , i : integer;
Iname : string;
begin
MSnum := 0;
for i := 1 to 15 do
begin
Iname := getZBnameByIdWQ(600 + i);
if Iname <> '' then
begin
if This_Player.GetBagItemCount(Iname) > 0 then
begin
MSnum := MSnum + This_Player.GetBagItemCount(Iname);
end;
end;
end;
This_NPC.NpcDialog(This_Player,
'你的包裹中有' + inttostr(MSnum) + '件迷失武器，回收可获得:' + inttostr(getZjbNumwuqi(6) * MSnum) + '金币，你确定回收所有迷失武器吗？\|'
+'|{cmd}<确认回收所有迷失武器/@mishijbwq_True>'
+'|{cmd}<返回/@ZhuangBackjbwq>');
end;
procedure _mishijbwq_True;
var MSnum , i , j , itemNum : integer;
Iname : string;
begin
MSnum := 0;
for i := 1 to 15 do
begin
Iname := getZBnameByIdWQ(600 + i);
if Iname <> '' then
begin
itemNum := This_Player.GetBagItemCount(Iname);
if itemNum > 0 then
begin
MSnum := MSnum + itemNum;
This_Player.Take(Iname, itemNum);
This_Player.AddGold(getZjbNumwuqi(6) * itemNum);
end;
end;
end;
This_NPC.NpcDialog(This_Player,
'恭喜你获得:' + inttostr(getZjbNumwuqi(6) * MSnum) + '金币！\|'
+'|{cmd}<返回/@ZhuangBackjbwq>');
end;
procedure _meiyingjbwq_all;
var MYnum , i : integer;
Iname : string;
begin
MYnum := 0;
for i := 1 to 15 do
begin
Iname := getZBnameByIdWQ(700 + i);
if Iname <> '' then
begin
if This_Player.GetBagItemCount(Iname) > 0 then
begin
MYnum := MYnum + This_Player.GetBagItemCount(Iname);
end;
end;
end;
This_NPC.NpcDialog(This_Player,
'你的包裹中有' + inttostr(MYnum) + '件终极の魅影武器，回收可获得:' + inttostr(getZjbNumwuqi(7) * MYnum) + '金币，你确定回收所有终极の魅影武器吗？\|'
+'|{cmd}<确认回收所有终极の魅影武器/@meiyingjbwq_True>'
+'|{cmd}<返回/@ZhuangBackjbwq>');
end;
procedure _meiyingjbwq_True;
var MYnum , i , j , itemNum : integer;
Iname : string;
begin
MYnum := 0;
for i := 1 to 15 do
begin
Iname := getZBnameByIdWQ(700 + i);
if Iname <> '' then
begin
itemNum := This_Player.GetBagItemCount(Iname);
if itemNum > 0 then
begin
MYnum := MYnum + itemNum;
This_Player.Take(Iname, itemNum);
This_Player.AddGold(getZjbNumwuqi(7)*itemNum);
end;
end;
end;
This_NPC.NpcDialog(This_Player,
'恭喜你获得:' + inttostr(getZjbNumwuqi(7) * MYnum) + '金币！\|'
+'|{cmd}<返回/@ZhuangBackjbwq>');
end;
//======================================
////////////////////////
procedure _Woma_all;
var WMnum , i : integer;
Iname : string;
begin
WMnum := 0;
for i := 1 to 15 do
begin
Iname := getZBnameById(100 + i);
if Iname <> '' then
begin
if This_Player.GetBagItemCount(Iname) > 0 then
begin
WMnum := WMnum + This_Player.GetBagItemCount(Iname);
end;
end;
end;
This_NPC.NpcDialog(This_Player,
'你的包裹中有' + inttostr(WMnum) + '件沃玛备，回收可获得:' + inttostr(getZexpNum(1) div 10000 * WMnum) + '万经验，你确定回收所有沃玛装备吗？\|'
+'|{cmd}<确认回收所有沃玛装备/@Woma_True>'
+'|{cmd}<返回/@ZhuangBack>');
end;
procedure _Woma_True;
var WMnum , i , j , itemNum : integer;
Iname : string;
begin
WMnum := 0;
for i := 1 to 15 do
begin
Iname := getZBnameById(100 + i);
if Iname <> '' then
begin
itemNum := This_Player.GetBagItemCount(Iname);
if itemNum > 0 then
begin
WMnum := WMnum + itemNum;
This_Player.Take(Iname, itemNum);
for j := 1 to itemNum do
This_Player.Give('经验', getZexpNum(1));
end;
end;
end;
This_NPC.NpcDialog(This_Player,
'恭喜你获得:' + inttostr(getZexpNum(1) div 10000 * WMnum) + '万经验！\|'
+'|{cmd}<返回/@ZhuangBack>');
end;
procedure _ZUma_all;
var ZMnum , i : integer;
Iname : string;
begin
ZMnum := 0;
for i := 1 to 15 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) + '万经验，你确定回收所有祖玛装备吗？\|'
+'|{cmd}<确认回收所有祖玛装备/@ZUma_True>'
+'|{cmd}<返回/@ZhuangBack>');
end;
procedure _ZUma_True;
var ZMnum , i , j , itemNum : integer;
Iname : string;
begin
ZMnum := 0;
for i := 1 to 15 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.Give('经验', getZexpNum(2));
end;
end;
end;
This_NPC.NpcDialog(This_Player,
'恭喜你获得:' + inttostr(getZexpNum(2) div 10000 * ZMnum) + '万经验！\|'
+'|{cmd}<返回/@ZhuangBack>');
end;
procedure _Chiyue_all;
var CYnum , i , ShengW : integer;
Iname : string;
begin
CYnum := 0;
for i := 1 to 15 do
begin
Iname := getZBnameById(300 + i);
if Iname <> '' then
begin
if This_Player.GetBagItemCount(Iname) > 0 then
begin
CYnum := CYnum + This_Player.GetBagItemCount(Iname);
end;
end;
end;
This_NPC.NpcDialog(This_Player,
'你的包裹中有' + inttostr(CYnum) + '件赤月装备，回收可获得:' + inttostr(getZexpNum(3) div 10000 * CYnum) + '万经验，获得' + inttostr(CYnum * 10) + '声望。你确定回收所有赤月装备吗？\|'
+'|{cmd}<确认回收所有赤月装备/@Chiyue_True>'
+'|{cmd}<返回/@ZhuangBack>');
end;
procedure _Chiyue_True;
var CYnum , i , j , itemNum, ShengW : integer;
Iname : string;
begin
CYnum := 0;
for i := 1 to 15 do
begin
Iname := getZBnameById(300 + i);
if Iname <> '' then
begin
itemNum := This_Player.GetBagItemCount(Iname);
if itemNum > 0 then
begin
CYnum := CYnum + itemNum;
ShengW :=itemNum * 10;
This_Player.Take(Iname, itemNum);
for j := 1 to itemNum do
This_Player.MyShengwan := This_Player.MyShengwan + 10
This_Player.Give('经验', getZexpNum(3));
end;
end;
end;
This_NPC.NpcDialog(This_Player,
'恭喜你获得:' + inttostr(getZexpNum(3) div 10000 * CYnum) + '万经验！\|'
+'恭喜你获得' + inttostr(ShengW) + '声望\|'
+'|{cmd}<返回/@ZhuangBack>');
end;
procedure _molong_all;
var MLnum , i : integer;
Iname : string;
begin
MLnum := 0;
for i := 1 to 15 do
begin
Iname := getZBnameById(400 + i);
if Iname <> '' then
begin
if This_Player.GetBagItemCount(Iname) > 0 then
begin
MLnum := MLnum + This_Player.GetBagItemCount(Iname);
end;
end;
end;
This_NPC.NpcDialog(This_Player,
'你的包裹中有' + inttostr(MLnum) + '件魔龙装备，回收可获得:' + inttostr(getZexpNum(4) div 10000 * mlnum) + '万经验，你确定回收所有魔龙装备吗？\|'
+'|{cmd}<确认回收所有魔龙装备/@molong_True>'
+'|{cmd}<返回/@ZhuangBack>');
end;
procedure _molong_True;
var MLnum , i , j , itemNum, ShengW : integer;
Iname : string;
begin
MLnum := 0;
for i := 1 to 15 do
begin
Iname := getZBnameById(400 + i);
if Iname <> '' then
begin
itemNum := This_Player.GetBagItemCount(Iname);
if itemNum > 0 then
begin
MLnum := MLnum + itemNum;
This_Player.Take(Iname, itemNum);
ShengW :=itemNum * 10;
for j := 1 to itemNum do
This_Player.Give('经验', getZexpNum(4));
This_Player.MyShengwan := This_Player.MyShengwan + 10
end;
end;
end;
This_NPC.NpcDialog(This_Player,
'恭喜你获得:' + inttostr(getZexpNum(4) div 10000 * MLnum) + '万经验！\|'
+'恭喜你获得' + inttostr(ShengW) + '声望\|'
+'|{cmd}<返回/@ZhuangBack>');
end;
procedure _qiangmo_all;
var QMnum , i : integer;
Iname : string;
begin
QMnum := 0;
for i := 1 to 15 do
begin
Iname := getZBnameById(500 + i);
if Iname <> '' then
begin
if This_Player.GetBagItemCount(Iname) > 0 then
begin
QMnum := QMnum + This_Player.GetBagItemCount(Iname);
end;
end;
end;
This_NPC.NpcDialog(This_Player,
'你的包裹中有' + inttostr(QMnum) + '件强化魔龙装备，回收可获得:' + inttostr(getZexpNum(5) div 10000 * QMnum) + '万经验，你确定回收所有强化魔龙装备吗？\|'
+'|{cmd}<确认回收所有强化魔龙装备/@qiangmo_True>'
+'|{cmd}<返回/@ZhuangBack>');
end;
procedure _qiangmo_True;
var QMnum , i , j , itemNum, ShengW : integer;
Iname : string;
begin
QMnum := 0;
for i := 1 to 15 do
begin
Iname := getZBnameById(500 + i);
if Iname <> '' then
begin
itemNum := This_Player.GetBagItemCount(Iname);
if itemNum > 0 then
begin
QMnum := QMnum + itemNum;
This_Player.Take(Iname, itemNum);
ShengW :=itemNum * 10;
for j := 1 to itemNum do
This_Player.Give('经验', getZexpNum(5));
This_Player.MyShengwan := This_Player.MyShengwan + 10
end;
end;
end;
This_NPC.NpcDialog(This_Player,
'恭喜你获得:' + inttostr(getZexpNum(5) div 10000 * QMnum) + '万经验！\|'
+'恭喜你获得' + inttostr(ShengW) + '声望\|'
+'|{cmd}<返回/@ZhuangBack>');
end;
procedure _mishi_all;
var MSnum , i : integer;
Iname : string;
begin
MSnum := 0;
for i := 1 to 15 do
begin
Iname := getZBnameById(600 + i);
if Iname <> '' then
begin
if This_Player.GetBagItemCount(Iname) > 0 then
begin
MSnum := MSnum + This_Player.GetBagItemCount(Iname);
end;
end;
end;
This_NPC.NpcDialog(This_Player,
'你的包裹中有' + inttostr(MSnum) + '件迷失装备，回收可获得:' + inttostr(getZexpNum(6) div 10000 * MSnum) + '万经验，你确定回收所有迷失装备吗？\|'
+'|{cmd}<确认回收所有迷失装备/@mishi_True>'
+'|{cmd}<返回/@ZhuangBack>');
end;
procedure _mishi_True;
var MSnum , i , j , itemNum, ShengW : integer;
Iname : string;
begin
MSnum := 0;
for i := 1 to 15 do
begin
Iname := getZBnameById(600 + i);
if Iname <> '' then
begin
itemNum := This_Player.GetBagItemCount(Iname);
if itemNum > 0 then
begin
MSnum := MSnum + itemNum;
This_Player.Take(Iname, itemNum);
ShengW :=itemNum * 10;
//This_Player.Give('声望',1);
for j := 1 to itemNum do
This_Player.Give('经验', getZexpNum(6));
This_Player.MyShengwan := This_Player.MyShengwan + 10
end;
end;
end;
This_NPC.NpcDialog(This_Player,
'恭喜你获得:' + inttostr(getZexpNum(6) div 10000 * MSnum) + '万经验！\|'
+'恭喜你获得' + inttostr(ShengW) + '声望\|'
+'|{cmd}<返回/@ZhuangBack>');
end;
procedure _meiying_all;
var MYnum , i : integer;
Iname : string;
begin
MYnum := 0;
for i := 1 to 15 do
begin
Iname := getZBnameById(700 + i);
if Iname <> '' then
begin
if This_Player.GetBagItemCount(Iname) > 0 then
begin
MYnum := MYnum + This_Player.GetBagItemCount(Iname);
end;
end;
end;
This_NPC.NpcDialog(This_Player,
'你的包裹中有' + inttostr(MYnum) + '件终极の魅影装备，回收可获得:' + inttostr(getZexpNum(7) div 10000 * MYnum) + '万经验，你确定回收所有终极の魅影装备吗？\|'
+'|{cmd}<确认回收所有终极の魅影装备/@_meiying_True>'
+'|{cmd}<返回/@ZhuangBack>');
end;
procedure _meiying_True;
var MYnum , i , j , itemNum, ShengW : integer;
Iname : string;
begin
MYnum := 0;
for i := 1 to 15 do
begin
Iname := getZBnameById(700 + i);
if Iname <> '' then
begin
itemNum := This_Player.GetBagItemCount(Iname);
if itemNum > 0 then
begin
MYnum := MYnum + itemNum;
This_Player.Take(Iname, itemNum);
ShengW :=itemNum * 10;
//This_Player.Give('声望',1);
for j := 1 to itemNum do
This_Player.Give('经验', getZexpNum(7));
This_Player.MyShengwan := This_Player.MyShengwan + 10
end;
end;
end;
This_NPC.NpcDialog(This_Player,
'恭喜你获得:' + inttostr(getZexpNum(7) div 10000 * MYnum) + '万经验！\|'
+'恭喜你获得' + inttostr(ShengW) + '声望\|'
+'|{cmd}<返回/@ZhuangBack>');
end;
//===============================元宝
procedure _ZhuangBackyb;
begin
This_NPC.NpcDialog(This_Player,
'|请把不要回收的装备放在仓库，回收概不负责：\'
+'|袄玛首饰每个回收2元宝 <一键回收/@Womayb_all>\'
+'|祖玛首饰每个回收5元宝 <一键回收/@ZUmayb_all>\'
+'|赤月首饰每个回收20元宝 <一键回收/@ChiYueyb_all>\'
+'|魔龙首饰每个回收50元宝 <一键回收/@molongyb_all>\'
+'|强魔首饰每个回收100元宝 <一键回收/@qiangmoyb_all>\'
+'|迷失首饰每个回收200元宝 <一键回收/@mishiyb_all>\'
+'|魅影首饰每个回收300元宝 <一键回收/@meiyingyb_all>\'
+'|{cmd}<退出/@doexit>'
);
end;
procedure _Womayb_all;
var WMnum , i : integer;
Iname : string;
begin
WMnum := 0;
for i := 1 to 15 do
begin
Iname := getZBnameById(100 + i);
if Iname <> '' then
begin
if This_Player.GetBagItemCount(Iname) > 0 then
begin
WMnum := WMnum + This_Player.GetBagItemCount(Iname);
end;
end;
end;
This_NPC.NpcDialog(This_Player,
'你的包裹中有' + inttostr(WMnum) + '件沃玛备，回收可获得:' + inttostr(getZybNum(1) * WMnum) + '元宝，你确定回收所有沃玛装备吗？\|'
+'|{cmd}<确认回收所有沃玛装备/@Womayb_True>'
+'|{cmd}<返回/@ZhuangBackyb>');
end;
procedure _Womayb_True;
var WMnum , i , j , itemNum : integer;
Iname : string;
begin
WMnum := 0;
for i := 1 to 15 do
begin
Iname := getZBnameById(100 + i);
if Iname <> '' then
begin
itemNum := This_Player.GetBagItemCount(Iname);
if itemNum > 0 then
begin
WMnum := WMnum + itemNum;
This_Player.Take(Iname, itemNum);
This_Player.ScriptRequestAddYBNum(getZybNum(1) * itemNum);
end;
end;
end;
This_NPC.NpcDialog(This_Player,
'恭喜你获得:' + inttostr(getZybNum(1) * WMnum) + '元宝！\|'
+'|{cmd}<返回/@ZhuangBackyb>');
end;
///////////////////////////
procedure _ZUmayb_all;
var ZMnum , i : integer;
Iname : string;
begin
ZMnum := 0;
for i := 1 to 15 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(getZybNum(2) * ZMnum) + '元宝，你确定回收所有祖玛装备吗？\|'
+'|{cmd}<确认回收所有祖玛装备/@ZUmayb_True>'
+'|{cmd}<返回/@ZhuangBackyb>');
end;
procedure _ZUmayb_True;
var ZMnum , i , j , itemNum : integer;
Iname : string;
begin
ZMnum := 0;
for i := 1 to 15 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);
This_Player.ScriptRequestAddYBNum(getZybNum(2) * itemNum);
end;
end;
end;
This_NPC.NpcDialog(This_Player,
'恭喜你获得:' + inttostr(getZybNum(2) * ZMnum) + '元宝！\|'
+'|{cmd}<返回/@ZhuangBackyb>');
end;
procedure _Chiyueyb_all;
var CYnum , i : integer;
Iname : string;
begin
CYnum := 0;
for i := 1 to 15 do
begin
Iname := getZBnameById(300 + i);
if Iname <> '' then
begin
if This_Player.GetBagItemCount(Iname) > 0 then
begin
CYnum := CYnum + This_Player.GetBagItemCount(Iname);
end;
end;
end;
This_NPC.NpcDialog(This_Player,
'你的包裹中有' + inttostr(CYnum) + '件赤月装备，回收可获得:' + inttostr(getZybNum(3) * CYnum) + '元宝，你确定回收所有赤月装备吗？\|'
+'|{cmd}<确认回收所有赤月装备/@Chiyueyb_True>'
+'|{cmd}<返回/@ZhuangBackyb>');
end;
procedure _Chiyueyb_True;
var CYnum , i , j , itemNum : integer;
Iname : string;
begin
CYnum := 0;
for i := 1 to 15 do
begin
Iname := getZBnameById(300 + i);
if Iname <> '' then
begin
itemNum := This_Player.GetBagItemCount(Iname);
if itemNum > 0 then
begin
CYnum := CYnum + itemNum;
This_Player.Take(Iname, itemNum);
This_Player.ScriptRequestAddYBNum(getZybNum(3) * itemNum);
end;
end;
end;
This_NPC.NpcDialog(This_Player,
'恭喜你获得:' + inttostr(getZybNum(3) * CYnum) + '元宝！\|'
+'|{cmd}<返回/@ZhuangBackyb>');
end;
procedure _molongyb_all;
var MLnum , i : integer;
Iname : string;
begin
MLnum := 0;
for i := 1 to 15 do
begin
Iname := getZBnameById(400 + i);
if Iname <> '' then
begin
if This_Player.GetBagItemCount(Iname) > 0 then
begin
MLnum := MLnum + This_Player.GetBagItemCount(Iname);
end;
end;
end;
This_NPC.NpcDialog(This_Player,
'你的包裹中有' + inttostr(MLnum) + '件魔龙装备，回收可获得:' + inttostr(getZybNum(4) * mlnum) + '元宝，你确定回收所有魔龙装备吗？\|'
+'|{cmd}<确认回收所有魔龙装备/@molongyb_True>'
+'|{cmd}<返回/@ZhuangBackyb>');
end;
procedure _molongyb_True;
var MLnum , i , j , itemNum : integer;
Iname : string;
begin
MLnum := 0;
for i := 1 to 15 do
begin
Iname := getZBnameById(400 + i);
if Iname <> '' then
begin
itemNum := This_Player.GetBagItemCount(Iname);
if itemNum > 0 then
begin
MLnum := MLnum + itemNum;
This_Player.Take(Iname, itemNum);
This_Player.ScriptRequestAddYBNum(getZybNum(4) * itemNum);
end;
end;
end;
This_NPC.NpcDialog(This_Player,
'恭喜你获得:' + inttostr(getZybNum(4) * MLnum) + '元宝！\|'
+'|{cmd}<返回/@ZhuangBackyb>');
end;
procedure _qiangmoyb_all;
var QMnum , i : integer;
Iname : string;
begin
QMnum := 0;
for i := 1 to 15 do
begin
Iname := getZBnameById(500 + i);
if Iname <> '' then
begin
if This_Player.GetBagItemCount(Iname) > 0 then
begin
QMnum := QMnum + This_Player.GetBagItemCount(Iname);
end;
end;
end;
This_NPC.NpcDialog(This_Player,
'你的包裹中有' + inttostr(QMnum) + '件强化魔龙装备，回收可获得:' + inttostr(getZybNum(5) * QMnum) + '元宝，你确定回收所有强化魔龙装备吗？\|'
+'|{cmd}<确认回收所有强化魔龙装备/@qiangmoyb_True>'
+'|{cmd}<返回/@ZhuangBackyb>');
end;
procedure _qiangmoyb_True;
var QMnum , i , j , itemNum : integer;
Iname : string;
begin
QMnum := 0;
for i := 1 to 15 do
begin
Iname := getZBnameById(500 + i);
if Iname <> '' then
begin
itemNum := This_Player.GetBagItemCount(Iname);
if itemNum > 0 then
begin
QMnum := QMnum + itemNum;
This_Player.Take(Iname, itemNum);
This_Player.ScriptRequestAddYBNum(getZybNum(5) * itemNum);
end;
end;
end;
This_NPC.NpcDialog(This_Player,
'恭喜你获得:' + inttostr(getZybNum(5) * QMnum) + '元宝！\|'
+'|{cmd}<返回/@ZhuangBackyb>');
end;
procedure _mishiyb_all;
var MSnum , i : integer;
Iname : string;
begin
MSnum := 0;
for i := 1 to 15 do
begin
Iname := getZBnameById(600 + i);
if Iname <> '' then
begin
if This_Player.GetBagItemCount(Iname) > 0 then
begin
MSnum := MSnum + This_Player.GetBagItemCount(Iname);
end;
end;
end;
This_NPC.NpcDialog(This_Player,
'你的包裹中有' + inttostr(MSnum) + '件迷失装备，回收可获得:' + inttostr(getZybNum(6) * MSnum) + '元宝，你确定回收所有迷失装备吗？\|'
+'|{cmd}<确认回收所有迷失装备/@mishiyb_True>'
+'|{cmd}<返回/@ZhuangBackyb>');
end;
procedure _mishiyb_True;
var MSnum , i , j , itemNum : integer;
Iname : string;
begin
MSnum := 0;
for i := 1 to 15 do
begin
Iname := getZBnameById(600 + i);
if Iname <> '' then
begin
itemNum := This_Player.GetBagItemCount(Iname);
if itemNum > 0 then
begin
MSnum := MSnum + itemNum;
This_Player.Take(Iname, itemNum);
This_Player.ScriptRequestAddYBNum(getZybNum(6) * itemNum);
end;
end;
end;
This_NPC.NpcDialog(This_Player,
'恭喜你获得:' + inttostr(getZybNum(6) * MSnum) + '元宝！\|'
+'|{cmd}<返回/@ZhuangBackyb>');
end;
procedure _meiyingyb_all;
var MYnum , i : integer;
Iname : string;
begin
MYnum := 0;
for i := 1 to 15 do
begin
Iname := getZBnameById(700 + i);
if Iname <> '' then
begin
if This_Player.GetBagItemCount(Iname) > 0 then
begin
MYnum := MYnum + This_Player.GetBagItemCount(Iname);
end;
end;
end;
This_NPC.NpcDialog(This_Player,
'你的包裹中有' + inttostr(MYnum) + '件终极の魅影装备，回收可获得:' + inttostr(getZybNum(7) * MYnum) + '元宝，你确定回收所有终极の魅影装备吗？\|'
+'|{cmd}<确认回收所有终极の魅影装备/@meiyingyb_True>'
+'|{cmd}<返回/@ZhuangBackyb>');
end;
procedure _meiyingyb_True;
var MYnum , i , j , itemNum : integer;
Iname : string;
begin
MYnum := 0;
for i := 1 to 15 do
begin
Iname := getZBnameById(700 + i);
if Iname <> '' then
begin
itemNum := This_Player.GetBagItemCount(Iname);
if itemNum > 0 then
begin
MYnum := MYnum + itemNum;
This_Player.Take(Iname, itemNum);
This_Player.ScriptRequestAddYBNum(getZybNum(7)*itemNum);
end;
end;
end;
This_NPC.NpcDialog(This_Player,
'恭喜你获得:' + inttostr(getZybNum(7) * MYnum) + '元宝！\|'
+'|{cmd}<返回/@ZhuangBackyb>');
end;
//=============================金刚石
procedure _ZhuangBackjgs;
begin
This_NPC.NpcDialog(This_Player,
'|请把不要回收的装备放在仓库，回收概不负责：\'
+'|袄玛首饰每个回收2金刚石 <一键回收/@Womajgs_all>\'
+'|祖玛首饰每个回收5金刚石 <一键回收/@ZUmajgs_all>\'
+'|赤月首饰每个回收20金刚石 <一键回收/@ChiYuejgs_all>\'
+'|魔龙首饰每个回收50金刚石 <一键回收/@molongjgs_all>\'
+'|强魔首饰每个回收100金刚石 <一键回收/@qiangmojgs_all>\'
+'|迷失首饰每个回收200金刚石 <一键回收/@mishijgs_all>\'
+'|魅影首饰每个回收300金刚石 <一键回收/@meiyingjgs_all>\'
+'|{cmd}<退出/@doexit>'
);
end;
procedure _Womajgs_all;
var WMnum , i : integer;
Iname : string;
begin
WMnum := 0;
for i := 1 to 15 do
begin
Iname := getZBnameById(100 + i);
if Iname <> '' then
begin
if This_Player.GetBagItemCount(Iname) > 0 then
begin
WMnum := WMnum + This_Player.GetBagItemCount(Iname);
end;
end;
end;
This_NPC.NpcDialog(This_Player,
'你的包裹中有' + inttostr(WMnum) + '件沃玛备，回收可获得:' + inttostr(getZjgsNum(1) * WMnum) + '金刚石，你确定回收所有沃玛装备吗？\|'
+'|{cmd}<确认回收所有沃玛装备/@Womajgs_True>'
+'|{cmd}<返回/@ZhuangBackjgs>');
end;
procedure _Womajgs_True;
var WMnum , i , j , itemNum : integer;
Iname : string;
begin
WMnum := 0;
for i := 1 to 15 do
begin
Iname := getZBnameById(100 + i);
if Iname <> '' then
begin
itemNum := This_Player.GetBagItemCount(Iname);
if itemNum > 0 then
begin
WMnum := WMnum + itemNum;
This_Player.Take(Iname, itemNum);
This_Player.Give('金刚石',getZjgsNum(1) * itemNum);
end;
end;
end;
This_NPC.NpcDialog(This_Player,
'恭喜你获得:' + inttostr(getZjgsNum(1) * WMnum) + '金刚石！\|'
+'|{cmd}<返回/@ZhuangBackjgs>');
end;
///////////////////////////
procedure _ZUmajgs_all;
var ZMnum , i : integer;
Iname : string;
begin
ZMnum := 0;
for i := 1 to 15 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(getZjgsNum(2) * ZMnum) + '金刚石，你确定回收所有祖玛装备吗？\|'
+'|{cmd}<确认回收所有祖玛装备/@ZUmajgs_True>'
+'|{cmd}<返回/@ZhuangBackjgs>');
end;
procedure _ZUmajgs_True;
var ZMnum , i , j , itemNum : integer;
Iname : string;
begin
ZMnum := 0;
for i := 1 to 15 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);
This_Player.Give('金刚石',getZjgsNum(2) * itemNum);
end;
end;
end;
This_NPC.NpcDialog(This_Player,
'恭喜你获得:' + inttostr(getZjgsNum(2) * ZMnum) + '金刚石！\|'
+'|{cmd}<返回/@ZhuangBackjgs>');
end;
procedure _Chiyuejgs_all;
var CYnum , i : integer;
Iname : string;
begin
CYnum := 0;
for i := 1 to 15 do
begin
Iname := getZBnameById(300 + i);
if Iname <> '' then
begin
if This_Player.GetBagItemCount(Iname) > 0 then
begin
CYnum := CYnum + This_Player.GetBagItemCount(Iname);
end;
end;
end;
This_NPC.NpcDialog(This_Player,
'你的包裹中有' + inttostr(CYnum) + '件赤月装备，回收可获得:' + inttostr(getZjgsNum(3) * CYnum) + '金刚石，你确定回收所有赤月装备吗？\|'
+'|{cmd}<确认回收所有赤月装备/@Chiyuejgs_True>'
+'|{cmd}<返回/@ZhuangBackjgs>');
end;
procedure _Chiyuejgs_True;
var CYnum , i , j , itemNum : integer;
Iname : string;
begin
CYnum := 0;
for i := 1 to 15 do
begin
Iname := getZBnameById(300 + i);
if Iname <> '' then
begin
itemNum := This_Player.GetBagItemCount(Iname);
if itemNum > 0 then
begin
CYnum := CYnum + itemNum;
This_Player.Take(Iname, itemNum);
This_Player.Give('金刚石',getZjgsNum(3) * itemNum);
end;
end;
end;
This_NPC.NpcDialog(This_Player,
'恭喜你获得:' + inttostr(getZjgsNum(3) * CYnum) + '金刚石！\|'
+'|{cmd}<返回/@ZhuangBackjgs>');
end;
procedure _molongjgs_all;
var MLnum , i : integer;
Iname : string;
begin
MLnum := 0;
for i := 1 to 15 do
begin
Iname := getZBnameById(400 + i);
if Iname <> '' then
begin
if This_Player.GetBagItemCount(Iname) > 0 then
begin
MLnum := MLnum + This_Player.GetBagItemCount(Iname);
end;
end;
end;
This_NPC.NpcDialog(This_Player,
'你的包裹中有' + inttostr(MLnum) + '件魔龙装备，回收可获得:' + inttostr(getZjgsNum(4) * mlnum) + '金刚石，你确定回收所有魔龙装备吗？\|'
+'|{cmd}<确认回收所有魔龙装备/@molongjgs_True>'
+'|{cmd}<返回/@ZhuangBackjgs>');
end;
procedure _molongjgs_True;
var MLnum , i , j , itemNum : integer;
Iname : string;
begin
MLnum := 0;
for i := 1 to 15 do
begin
Iname := getZBnameById(400 + i);
if Iname <> '' then
begin
itemNum := This_Player.GetBagItemCount(Iname);
if itemNum > 0 then
begin
MLnum := MLnum + itemNum;
This_Player.Take(Iname, itemNum);
This_Player.Give('金刚石',getZjgsNum(4) * itemNum);
end;
end;
end;
This_NPC.NpcDialog(This_Player,
'恭喜你获得:' + inttostr(getZjgsNum(4) * MLnum) + '金刚石！\|'
+'|{cmd}<返回/@ZhuangBackjgs>');
end;
procedure _qiangmojgs_all;
var QMnum , i : integer;
Iname : string;
begin
QMnum := 0;
for i := 1 to 15 do
begin
Iname := getZBnameById(500 + i);
if Iname <> '' then
begin
if This_Player.GetBagItemCount(Iname) > 0 then
begin
QMnum := QMnum + This_Player.GetBagItemCount(Iname);
end;
end;
end;
This_NPC.NpcDialog(This_Player,
'你的包裹中有' + inttostr(QMnum) + '件强化魔龙装备，回收可获得:' + inttostr(getZjgsNum(5) * QMnum) + '金刚石，你确定回收所有强化魔龙装备吗？\|'
+'|{cmd}<确认回收所有强化魔龙装备/@qiangmojgs_True>'
+'|{cmd}<返回/@ZhuangBackjgs>');
end;
procedure _qiangmojgs_True;
var QMnum , i , j , itemNum : integer;
Iname : string;
begin
QMnum := 0;
for i := 1 to 15 do
begin
Iname := getZBnameById(500 + i);
if Iname <> '' then
begin
itemNum := This_Player.GetBagItemCount(Iname);
if itemNum > 0 then
begin
QMnum := QMnum + itemNum;
This_Player.Take(Iname, itemNum);
This_Player.Give('金刚石',getZjgsNum(5) * itemNum);
end;
end;
end;
This_NPC.NpcDialog(This_Player,
'恭喜你获得:' + inttostr(getZjgsNum(5) * QMnum) + '金刚石！\|'
+'|{cmd}<返回/@ZhuangBackjgs>');
end;
procedure _mishijgs_all;
var MSnum , i : integer;
Iname : string;
begin
MSnum := 0;
for i := 1 to 15 do
begin
Iname := getZBnameById(600 + i);
if Iname <> '' then
begin
if This_Player.GetBagItemCount(Iname) > 0 then
begin
MSnum := MSnum + This_Player.GetBagItemCount(Iname);
end;
end;
end;
This_NPC.NpcDialog(This_Player,
'你的包裹中有' + inttostr(MSnum) + '件迷失装备，回收可获得:' + inttostr(getZjgsNum(6) * MSnum) + '金刚石，你确定回收所有迷失装备吗？\|'
+'|{cmd}<确认回收所有迷失装备/@mishijgs_True>'
+'|{cmd}<返回/@ZhuangBackjgs>');
end;
procedure _mishijgs_True;
var MSnum , i , j , itemNum : integer;
Iname : string;
begin
MSnum := 0;
for i := 1 to 15 do
begin
Iname := getZBnameById(600 + i);
if Iname <> '' then
begin
itemNum := This_Player.GetBagItemCount(Iname);
if itemNum > 0 then
begin
MSnum := MSnum + itemNum;
This_Player.Take(Iname, itemNum);
This_Player.Give('金刚石',getZjgsNum(6) * itemNum);
end;
end;
end;
This_NPC.NpcDialog(This_Player,
'恭喜你获得:' + inttostr(getZjgsNum(6) * MSnum) + '金刚石！\|'
+'|{cmd}<返回/@ZhuangBackjgs>');
end;
procedure _meiyingjgs_all;
var MYnum , i : integer;
Iname : string;
begin
MYnum := 0;
for i := 1 to 15 do
begin
Iname := getZBnameById(700 + i);
if Iname <> '' then
begin
if This_Player.GetBagItemCount(Iname) > 0 then
begin
MYnum := MYnum + This_Player.GetBagItemCount(Iname);
end;
end;
end;
This_NPC.NpcDialog(This_Player,
'你的包裹中有' + inttostr(MYnum) + '件终极の魅影装备，回收可获得:' + inttostr(getZjgsNum(7) * MYnum) + '金刚石，你确定回收所有终极の魅影装备吗？\|'
+'|{cmd}<确认回收所有终极の魅影装备/@meiyingjgs_True>'
+'|{cmd}<返回/@ZhuangBackjgs>');
end;
procedure _meiyingjgs_True;
var MYnum , i , j , itemNum : integer;
Iname : string;
begin
MYnum := 0;
for i := 1 to 15 do
begin
Iname := getZBnameById(700 + i);
if Iname <> '' then
begin
itemNum := This_Player.GetBagItemCount(Iname);
if itemNum > 0 then
begin
MYnum := MYnum + itemNum;
This_Player.Take(Iname, itemNum);
This_Player.Give('金刚石',getZjgsNum(7)*itemNum);
end;
end;
end;
This_NPC.NpcDialog(This_Player,
'恭喜你获得:' + inttostr(getZjgsNum(7) * MYnum) + '金刚石！\|'
+'|{cmd}<返回/@ZhuangBackjgs>');
end;
//=============================金币
procedure _ZhuangBackjb;
begin
This_NPC.NpcDialog(This_Player,
'|请把不要回收的装备放在仓库，回收概不负责：\'
+'|袄玛首饰每个回收5000金币 <一键回收/@Womajb_all>\'
+'|祖玛首饰每个回收1W金币 <一键回收/@ZUmajb_all>\'
+'|赤月首饰每个回收5W金币 <一键回收/@ChiYuejb_all>\'
+'|魔龙首饰每个回收10W金币 <一键回收/@molongjb_all>\'
+'|强魔首饰每个回收50W金币 <一键回收/@qiangmojb_all>\'
+'|迷失首饰每个回收100W金币 <一键回收/@mishijb_all>\'
+'|魅影首饰每个回收200W金币 <一键回收/@meiyingjb_all>\'
+'|{cmd}<退出/@doexit>'
);
end;
procedure _Womajb_all;
var WMnum , i : integer;
Iname : string;
begin
WMnum := 0;
for i := 1 to 15 do
begin
Iname := getZBnameById(100 + i);
if Iname <> '' then
begin
if This_Player.GetBagItemCount(Iname) > 0 then
begin
WMnum := WMnum + This_Player.GetBagItemCount(Iname);
end;
end;
end;
This_NPC.NpcDialog(This_Player,
'你的包裹中有' + inttostr(WMnum) + '件沃玛备，回收可获得:' + inttostr(getZjbNum(1) * WMnum) + '金币，你确定回收所有沃玛装备吗？\|'
+'|{cmd}<确认回收所有沃玛装备/@Womajb_True>'
+'|{cmd}<返回/@ZhuangBackjb>');
end;
procedure _Womajb_True;
var WMnum , i , j , itemNum : integer;
Iname : string;
begin
WMnum := 0;
for i := 1 to 15 do
begin
Iname := getZBnameById(100 + i);
if Iname <> '' then
begin
itemNum := This_Player.GetBagItemCount(Iname);
if itemNum > 0 then
begin
WMnum := WMnum + itemNum;
This_Player.Take(Iname, itemNum);
This_Player.AddGold(getZjbNum(1) * itemNum);
end;
end;
end;
This_NPC.NpcDialog(This_Player,
'恭喜你获得:' + inttostr(getZjbNum(1) * WMnum) + '金币！\|'
+'|{cmd}<返回/@ZhuangBackjb>');
end;
///////////////////////////
procedure _ZUmajb_all;
var ZMnum , i : integer;
Iname : string;
begin
ZMnum := 0;
for i := 1 to 15 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(getZjbNum(2) * ZMnum) + '金币，你确定回收所有祖玛装备吗？\|'
+'|{cmd}<确认回收所有祖玛装备/@ZUmajb_True>'
+'|{cmd}<返回/@ZhuangBackjb>');
end;
procedure _ZUmajb_True;
var ZMnum , i , j , itemNum : integer;
Iname : string;
begin
ZMnum := 0;
for i := 1 to 15 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);
This_Player.AddGold(1000);
end;
end;
end;
This_NPC.NpcDialog(This_Player,
'恭喜你获得:' + inttostr(getZjbNum(2) * ZMnum) + '金币！\|'
+'|{cmd}<返回/@ZhuangBackjb>');
end;
procedure _Chiyuejb_all;
var CYnum , i : integer;
Iname : string;
begin
CYnum := 0;
for i := 1 to 15 do
begin
Iname := getZBnameById(300 + i);
if Iname <> '' then
begin
if This_Player.GetBagItemCount(Iname) > 0 then
begin
CYnum := CYnum + This_Player.GetBagItemCount(Iname);
end;
end;
end;
This_NPC.NpcDialog(This_Player,
'你的包裹中有' + inttostr(CYnum) + '件赤月装备，回收可获得:' + inttostr(getZjbNum(3) * CYnum) + '金币，你确定回收所有赤月装备吗？\|'
+'|{cmd}<确认回收所有赤月装备/@Chiyuejb_True>'
+'|{cmd}<返回/@ZhuangBackjb>');
end;
procedure _Chiyuejb_True;
var CYnum , i , j , itemNum : integer;
Iname : string;
begin
CYnum := 0;
for i := 1 to 15 do
begin
Iname := getZBnameById(300 + i);
if Iname <> '' then
begin
itemNum := This_Player.GetBagItemCount(Iname);
if itemNum > 0 then
begin
CYnum := CYnum + itemNum;
This_Player.Take(Iname, itemNum);
This_Player.AddGold(getZjbNum(3) * itemNum);
end;
end;
end;
This_NPC.NpcDialog(This_Player,
'恭喜你获得:' + inttostr(getZjbNum(3) * CYnum) + '金币！\|'
+'|{cmd}<返回/@ZhuangBackjb>');
end;
procedure _molongjb_all;
var MLnum , i : integer;
Iname : string;
begin
MLnum := 0;
for i := 1 to 15 do
begin
Iname := getZBnameById(400 + i);
if Iname <> '' then
begin
if This_Player.GetBagItemCount(Iname) > 0 then
begin
MLnum := MLnum + This_Player.GetBagItemCount(Iname);
end;
end;
end;
This_NPC.NpcDialog(This_Player,
'你的包裹中有' + inttostr(MLnum) + '件魔龙装备，回收可获得:' + inttostr(getZjbNum(4) * mlnum) + '金币，你确定回收所有魔龙装备吗？\|'
+'|{cmd}<确认回收所有魔龙装备/@molongjb_True>'
+'|{cmd}<返回/@ZhuangBackjb>');
end;
procedure _molongjb_True;
var MLnum , i , j , itemNum : integer;
Iname : string;
begin
MLnum := 0;
for i := 1 to 15 do
begin
Iname := getZBnameById(400 + i);
if Iname <> '' then
begin
itemNum := This_Player.GetBagItemCount(Iname);
if itemNum > 0 then
begin
MLnum := MLnum + itemNum;
This_Player.Take(Iname, itemNum);
This_Player.AddGold(getZjbNum(4) * itemNum);
end;
end;
end;
This_NPC.NpcDialog(This_Player,
'恭喜你获得:' + inttostr(getZjbNum(4) * MLnum) + '金币！\|'
+'|{cmd}<返回/@ZhuangBackjb>');
end;
procedure _qiangmojb_all;
var QMnum , i : integer;
Iname : string;
begin
QMnum := 0;
for i := 1 to 15 do
begin
Iname := getZBnameById(500 + i);
if Iname <> '' then
begin
if This_Player.GetBagItemCount(Iname) > 0 then
begin
QMnum := QMnum + This_Player.GetBagItemCount(Iname);
end;
end;
end;
This_NPC.NpcDialog(This_Player,
'你的包裹中有' + inttostr(QMnum) + '件强化魔龙装备，回收可获得:' + inttostr(getZjbNum(5) * QMnum) + '金币，你确定回收所有强化魔龙装备吗？\|'
+'|{cmd}<确认回收所有强化魔龙装备/@qiangmojb_True>'
+'|{cmd}<返回/@ZhuangBackjb>');
end;
procedure _qiangmojb_True;
var QMnum , i , j , itemNum : integer;
Iname : string;
begin
QMnum := 0;
for i := 1 to 15 do
begin
Iname := getZBnameById(500 + i);
if Iname <> '' then
begin
itemNum := This_Player.GetBagItemCount(Iname);
if itemNum > 0 then
begin
QMnum := QMnum + itemNum;
This_Player.Take(Iname, itemNum);
This_Player.AddGold(getZjbNum(5) * itemNum);
end;
end;
end;
This_NPC.NpcDialog(This_Player,
'恭喜你获得:' + inttostr(getZjbNum(5) * QMnum) + '金币！\|'
+'|{cmd}<返回/@ZhuangBackjb>');
end;
procedure _mishijb_all;
var MSnum , i : integer;
Iname : string;
begin
MSnum := 0;
for i := 1 to 15 do
begin
Iname := getZBnameById(600 + i);
if Iname <> '' then
begin
if This_Player.GetBagItemCount(Iname) > 0 then
begin
MSnum := MSnum + This_Player.GetBagItemCount(Iname);
end;
end;
end;
This_NPC.NpcDialog(This_Player,
'你的包裹中有' + inttostr(MSnum) + '件迷失装备，回收可获得:' + inttostr(getZjbNum(6) * MSnum) + '金币，你确定回收所有迷失装备吗？\|'
+'|{cmd}<确认回收所有迷失装备/@mishijb_True>'
+'|{cmd}<返回/@ZhuangBackjb>');
end;
procedure _mishijb_True;
var MSnum , i , j , itemNum : integer;
Iname : string;
begin
MSnum := 0;
for i := 1 to 15 do
begin
Iname := getZBnameById(600 + i);
if Iname <> '' then
begin
itemNum := This_Player.GetBagItemCount(Iname);
if itemNum > 0 then
begin
MSnum := MSnum + itemNum;
This_Player.Take(Iname, itemNum);
This_Player.AddGold(getZjbNum(6) * itemNum);
end;
end;
end;
This_NPC.NpcDialog(This_Player,
'恭喜你获得:' + inttostr(getZjbNum(6) * MSnum) + '金币！\|'
+'|{cmd}<返回/@ZhuangBackjb>');
end;
procedure _meiyingjb_all;
var MYnum , i : integer;
Iname : string;
begin
MYnum := 0;
for i := 1 to 15 do
begin
Iname := getZBnameById(700 + i);
if Iname <> '' then
begin
if This_Player.GetBagItemCount(Iname) > 0 then
begin
MYnum := MYnum + This_Player.GetBagItemCount(Iname);
end;
end;
end;
This_NPC.NpcDialog(This_Player,
'你的包裹中有' + inttostr(MYnum) + '件终极の魅影装备，回收可获得:' + inttostr(getZjbNum(7) * MYnum) + '金币，你确定回收所有终极の魅影装备吗？\|'
+'|{cmd}<确认回收所有终极の魅影装备/@meiyingjb_True>'
+'|{cmd}<返回/@ZhuangBackjb>');
end;
procedure _meiyingjb_True;
var MYnum , i , j , itemNum : integer;
Iname : string;
begin
MYnum := 0;
for i := 1 to 15 do
begin
Iname := getZBnameById(700 + i);
if Iname <> '' then
begin
itemNum := This_Player.GetBagItemCount(Iname);
if itemNum > 0 then
begin
MYnum := MYnum + itemNum;
This_Player.Take(Iname, itemNum);
This_Player.AddGold(getZjbNum(7)*itemNum);
end;
end;
end;
This_NPC.NpcDialog(This_Player,
'恭喜你获得:' + inttostr(getZjbNum(7) * MYnum) + '金币！\|'
+'|{cmd}<返回/@ZhuangBackjb>');
end;
Begin
//TZJH_NPC;
domain;
end.[/mw_shl_code]
|
|
发表于 2022-12-31 20:45:36
发表于 2023-12-28 12:12:13