战神手游玩家清理丢不掉垃圾装备脚本,玩家可以把包里的物品丢不掉,卖不掉的物品清理掉。
{
/************************************************************************}
PROGRAM Mir2;
{$I common.pas}
{$I TaoZhuang.pas}
Procedure _doexit;
begin
This_Npc.CloseDialog(This_Player);
end;
procedure domain;
begin
This_Npc.NpcDialog(This_Player,
'看来你需要我的帮助,\'+
'如果你有不要的物品,我这里可以销毁\ \'+
'|{cmd}<清理垃圾 destoryitem="">\'+
'|{cmd}<退出 doexit="">');
end;
Procedure _DestoryItem;
begin
This_NPC.NpcDialog(This_Player,
'把需要销毁的东西放进去就行啦!\ \'+
'|请注意,物品销毁后将<消失 c="red">,无法找回,请<谨慎操作 c="red">!\'+
'|部分物品无法销毁。'+
'|{cmd}<开始销毁 destoryitem_1=""> '
);
end;
Procedure _DestoryItem_1;
begin
This_NPC.Click_CommitItem(This_Player,1,'待销毁道具:');
end;
//-------------删除道具--------------------
function NotDestroy(iName : string):boolean;
begin
result := true;
case iName of
'屠龙' : result := false;
end;
end;
procedure CommitItem(AType:word);
begin
if NotDestroy(This_Item.ItemName) then
begin
This_Player.TakeByClientID(This_Item.ClientItemID);
This_Player.NotifyClientCommitItem(1,'');
This_Player.PlayerNotice(''+This_Item.ItemName+'已销毁。',2);
end else
This_Player.NotifyClientCommitItem(0,'该物品不可销毁,请投入可销毁的物品!'); ;
end;
Procedure _repair;
Begin
This_Npc.NpcDialog(This_Player,
'您您要修理吗?我可是个万能工匠哦!\ \ \'+
'|{cmd}<返回 main="">');
This_Npc.Click_Repair(This_Player);
end;
procedure RepairDone;
begin
This_Npc.NpcDialog(This_Player,
'怎么样,修好了吧?看起来比新的还值钱!\ \' +
'|{cmd}<返回 main="">'
);
end;
Procedure _s_repair;
Begin
This_Npc.NpcDialog(This_Player,
'你这家伙,你可太幸运了,我正好有材料做特殊修补,\'+
'但费用是普通的三倍!\ \'+
'|{cmd}<返回 main="">');
This_Npc.Click_SRepair(This_Player);
end;
procedure SRepairDone;
begin
This_Npc.NpcDialog(This_Player,
'已经修理好了,看起来很不错嘛!\' +
'|{cmd}<返回 main="">');
end;
Procedure _sell;
begin
This_Npc.NpcDialog(This_Player,
'给我您要卖的物品。\ \ \'+
'|{cmd}<返回 main="">');
This_Npc.Click_Sell(This_Player);
end;
Procedure _buy;
Begin
This_Npc.NpcDialog(This_Player,
'您想买些什么?\ \ \'+
'|{cmd}<返回 main="">');
This_Npc.Click_Buy(This_Player);
end;
procedure OnInitialize;
var
i : integer;
begin
// DebugOut('OnInitalize');
This_Npc.SetRebate(100);
//加载道具
This_NPC.FillGoods('金创药(小量)', 100, 1);
This_NPC.FillGoods('魔法药(小量)', 100, 1);
This_NPC.FillGoods('金创药(中量)', 100, 1);
This_NPC.FillGoods('魔法药(中量)', 100, 1);
This_NPC.FillGoods('强效金创药', 100, 1);
This_NPC.FillGoods('强效魔法药', 100, 1);
This_NPC.FillGoods('金创药(小)包', 100, 1);
This_NPC.FillGoods('魔法药(小)包', 100, 1);
This_NPC.FillGoods('金创药(中)包', 100, 1);
This_NPC.FillGoods('魔法药(中)包', 100, 1);
This_NPC.FillGoods('超级金创药', 100, 1);
This_NPC.FillGoods('超级魔法药', 100, 1);
This_NPC.FillGoods('护身符', 10, 1);
This_NPC.FillGoods('护身符(大)', 10, 1);
This_NPC.FillGoods('超级护身符', 10, 1);
This_NPC.FillGoods('灰色药粉(中量)', 10, 1);
This_NPC.FillGoods('黄色药粉(中量)', 10, 1);
This_NPC.FillGoods('灰色药粉(大量)', 10, 1);
This_NPC.FillGoods('黄色药粉(大量)', 10, 1);
This_NPC.FillGoods('超级灰色药粉', 10, 1);
This_NPC.FillGoods('超级黄色药粉', 10, 1);
//加载stdmode
This_NPC.AddStdMode(0);
This_NPC.AddStdMode(3);
This_NPC.AddStdMode(5);
This_NPC.AddStdMode(6);
This_NPC.AddStdMode(10);
This_NPC.AddStdMode(11);
This_NPC.AddStdMode(15);
This_NPC.AddStdMode(16);
This_NPC.AddStdMode(30);
This_NPC.AddStdMode(42);
This_NPC.AddStdMode(43);
for i := 19 to 28 do
This_NPC.AddStdMode(i);
end;
Procedure _chgzuduij;
begin
This_Npc.NpcDialog(This_Player,
'矿洞组队卷轴、神殿组队卷轴、邪窟组队卷轴、地穴组队卷轴、\'+
'石墓组队卷轴都可以兑换成<地下组队卷轴 c="red">。\你想使用哪种组队卷轴兑换呢?\ \'+
'|{cmd}<矿洞组队卷轴 chgzuduij_01=""> ^<神殿组队卷轴 chgzuduij_02=""> ^<邪窟组队卷轴 chgzuduij_03="">\'+
'|{cmd}<地穴组队卷轴 chgzuduij_04=""> ^<石墓组队卷轴 chgzuduij_05="">\ \'+
'|{cmd}<返回 main="">');
end;
Procedure ChangeJuZhou(gtname, gvname : string);
begin
if This_Player.GetBagItemCount(gtname) > 0 then
begin
This_Player.Take(gtname,1);
This_Player.Give(gvname,1);
_chgzuduij;
end else
begin
This_Npc.NpcDialog(This_Player,
'如果你有' + gtname + ',就把它交给我吧。\ \ \'+
'|{cmd}<返回 main="">');
end;
end;
Procedure _chgzuduij_01;
begin
ChangeJuZhou('矿洞组队卷轴','地下组队卷轴');
end;
Procedure _chgzuduij_02;
begin
ChangeJuZhou('神殿组队卷轴','地下组队卷轴');
end;
Procedure _chgzuduij_03;
begin
ChangeJuZhou('邪窟组队卷轴','地下组队卷轴');
end;
Procedure _chgzuduij_04;
begin
ChangeJuZhou('地穴组队卷轴','地下组队卷轴');
end;
Procedure _chgzuduij_05;
begin
ChangeJuZhou('石墓组队卷轴','地下组队卷轴');
end;
Procedure _huishouXF;
begin
This_Npc.NpcDialog(This_Player,
'你有多余的玄绿和反璞归真吗?\'+
'每回收一个玄绿或者反璞归真,都将返还你10000经验。\ \' +
'|{cmd}<玄绿 xlhuishou=""> ^<反璞归真 fphuishou="">\ \'+
'|{cmd}<返回 main="">');
end;
Procedure _XLhuishou;
begin
if This_Player.GetBagItemCount('玄绿') >= 1 then
begin
This_Player.Take('玄绿',1);
This_Player.Give('经验',10000);
This_Npc.NpcDialog(This_Player,
'你还有多余的玄绿和反璞归真吗?\'+
'每回收一个玄绿或者反璞归真,都将返还你10000经验。\ \' +
'|{cmd}<玄绿 xlhuishou=""> ^<反璞归真 fphuishou="">\ \'+
'|{cmd}<返回 main="">');
end else
begin
This_Npc.NpcDialog(This_Player,
'我怎么没看到啊,如果你有玄绿就快给我吧!\ \' +
'|{cmd}<离开 doexit="">');
end;
end;
Procedure _FPhuishou;
begin
if This_Player.GetBagItemCount('反璞归真') >= 1 then
begin
This_Player.Take('反璞归真',1);
This_Player.Give('经验',10000);
This_Npc.NpcDialog(This_Player,
'你还有多余的玄绿和反璞归真吗?\'+
'每回收一个玄绿或者反璞归真,都将返还你10000经验。\ \' +
'|{cmd}<玄绿 xlhuishou=""> ^<反璞归真 fphuishou="">\ \'+
'|{cmd}<返回 main="">');
end else
begin
This_Npc.NpcDialog(This_Player,
'我怎么没看到啊,如果你有反璞归真就快给我吧!\ \' +
'|{cmd}<离开 doexit="">');
end;
end;
Procedure jinngjinbi;
begin
This_Npc.NpcDialog(This_Player,
'下面的物品,如果不需要,可以交给我,但是不能获得5万金币。\ \'+
'|{cmd}<聚气丹 jinnang_1=""> ^<归元丹 jinnang_2=""> ^<精元丹 jinnang_5=""> ^<还虚丹 jinnang_6="">\'+
'|{cmd}<灵虚丹(小) jinnang_7=""> ^<灵虚丹(中) jinnang_8=""> ^<灵虚丹(大) jinnang_9="">\'+
'|{cmd}<超级灵虚丹(小) jinnang_10=""> ^<超级灵虚丹(中) jinnang_11=""> ^<超级灵虚丹(大) jinnang_12="">\'+
'|{cmd}<乾坤令 jinnang_3=""> ^<宝盒 jinnang_4=""> ^<蜡烛 jinnang_13=""> ^<特惠礼包 jinnang_15="">\'+
'|{cmd}<宝藏钥匙 jinnang_14=""> ^<幸运钥匙 jinnang_16=""> ^<紫水晶矿 jinnang_17=""> ^<绿宝石矿 jinnang_18="">\'+
'|{cmd}<魔龙冰晶 jinnang_19=""> ^<气血石(小) jinnang_21=""> ^<幻魔石(小) jinnang_22=""> ^<月饼 jinnang_20="">\'+
'|{cmd}<一次回收10个乾坤令 jinnang_23=""> ^<返回 guhua="">');
end;
Procedure _jinnang;
begin
jinngjinbi;
end;
Procedure _jinnang_23;
begin
if This_Player.GetBagItemCount('乾坤令') >= 10 then
begin
This_Player.Take('乾坤令',10);
jinngjinbi;
end
else
begin
This_Npc.NpcDialog(This_Player,
'我怎么没看到10个乾坤令啊,如果你有就快给我吧!\ \'+
'|{cmd}<退出 doexit="">');
end;
end;
//提交物品模板,不给钱
procedure HandOutItemWithoutMoney(item_name : string);
begin
if This_Player.GetBagItemCount(item_name) >= 1 then
begin
This_Player.Take(item_name,1);
jinngjinbi;
end else
begin
This_Npc.NpcDialog(This_Player,
'我怎么没看到'+item_name+'啊,如果你有就快给我吧!\ \'+
'|{cmd}<退出 doexit="">');
end;
end;
Procedure _jinnang_1;
begin
HandOutItemWithoutMoney('聚气丹');
end;
Procedure _jinnang_2;
begin
HandOutItemWithoutMoney('归元丹');
end;
Procedure _jinnang_5;
begin
HandOutItemWithoutMoney('精元丹');
end;
Procedure _jinnang_6;
begin
HandOutItemWithoutMoney('还虚丹');
end;
Procedure _jinnang_7;
begin
HandOutItemWithoutMoney('灵虚丹(小)');
end;
Procedure _jinnang_8;
begin
HandOutItemWithoutMoney('灵虚丹(中)');
end;
Procedure _jinnang_9;
begin
HandOutItemWithoutMoney('灵虚丹(大)');
end;
Procedure _jinnang_10;
begin
HandOutItemWithoutMoney('超级灵虚丹(小)');
end;
Procedure _jinnang_11;
begin
HandOutItemWithoutMoney('超级灵虚丹(中)');
end;
Procedure _jinnang_12;
begin
HandOutItemWithoutMoney('超级灵虚丹(大)');
end;
Procedure _jinnang_3;
begin
HandOutItemWithoutMoney('乾坤令');
end;
Procedure _jinnang_4;
begin
HandOutItemWithoutMoney('宝盒');
end;
Procedure _jinnang_13;
begin
HandOutItemWithoutMoney('蜡烛');
end;
Procedure _jinnang_14;
begin
HandOutItemWithoutMoney('宝藏钥匙');
end;
procedure _jinnang_15;
begin
HandOutItemWithoutMoney('特惠礼包');
end;
procedure _jinnang_16;
begin
HandOutItemWithoutMoney('幸运钥匙');
end;
procedure _jinnang_17;
begin
HandOutItemWithoutMoney('紫水晶矿');
end;
procedure _jinnang_18;
begin
HandOutItemWithoutMoney('绿宝石矿');
end;
procedure _jinnang_19;
begin
HandOutItemWithoutMoney('魔龙冰晶');
end;
procedure _jinnang_21;
begin
HandOutItemWithoutMoney('气血石(小)');
end;
procedure _jinnang_22;
begin
HandOutItemWithoutMoney('幻魔石(小)');
end;
Procedure _guhua;
begin
This_Npc.NpcDialog(This_Player,
'你有多余的装备吗?\'+
'物品我都以5万金币回收,以下的物品有多余的就给我吧。\ \'+
'|{cmd}<荣誉勋章43号 guhua1=""> ^<荣誉勋章44号 guhua2=""> ^<荣誉勋章45号 guhua3="">\'+
'|{cmd}<圣战纹章 guhua7=""> ^<法神纹章 guhua8=""> ^<天尊纹章 guhua9="">\'+
'|{cmd}<裁决之杖 guhua4=""> ^<骨玉权杖 guhua5=""> ^<龙纹剑 guhua6=""> ^<血饮 guhua13="">\'+
'|{cmd}<天之裁决 guhua10=""> ^<天之骨玉权杖 guhua11=""> ^<天之龙纹 guhua12="">\'+
'|{cmd}<天龙之印 tianlong=""> ^<礼包 libao="">\'+
'|{cmd}<回收封印物品 fengyin=""> ^<免费回收物品 jinnang=""> ^<返回 main="">');
end;
Procedure _fengyin;
begin
This_Npc.NpcDialog(This_Player,
'所有的封印物品我都回收,你想卖给我哪个呢?\'+
'|{cmd}<唤魔项链(封印) huanmo1=""> ^<唤魔手镯(封印) huanmo2=""> ^<唤魔戒指(封印) huanmo3="">\'+
'|{cmd}<雷泽项链(封印) leizel1=""> ^<雷泽手镯(封印) leizel2=""> ^<雷泽戒指(封印) leizel3="">\'+
'|{cmd}<启源项链(封印) qiyuan1=""> ^<启源手镯(封印) qiyuan2=""> ^<启源戒指(封印) qiyuan3="">\'+
'|{cmd}<圣战项链(封印) shenxl1=""> ^<圣战手镯(封印) shensz2=""> ^<圣战戒指(封印) shenjz3="">\'+
'|{cmd}<法神项链(封印) fashxl1=""> ^<法神手镯(封印) fashxl2=""> ^<法神戒指(封印) fashxl3="">\'+
'|{cmd}<天尊项链(封印) tianxl1=""> ^<天尊手镯(封印) tianxl2=""> ^<天尊戒指(封印) tianxl3="">\'+
'|{cmd}<圣战头盔(封印) shentk1=""> ^<法神头盔(封印) fashtk1=""> ^<天尊头盔(封印) tiantk1="">\'+
'|{cmd}<黑铁头盔(封印) heitie="">');
end;
//提交物品模板,换50000金币
//item_name 提交物品名称 ; mode 表示 1第一页物品 2表示封印物品
procedure HandOutItemForMoney(item_name : string; mode : Integer);
begin
if This_Player.GetBagItemCount(item_name) >= 1 then
begin
This_Player.Take(item_name,1);
This_Player.AddGold(50000);
if mode = 1 then
begin
_guhua;
end
else if mode = 2 then
begin
_fengyin;
end
else
begin
end;
end else
begin
This_Npc.NpcDialog(This_Player,
'我怎么没看到'+item_name+'啊,如果你有就快给我吧!\ \'+
'|{cmd}<退出 doexit="">');
end;
end;
Procedure _shentk1;
begin
HandOutItemForMoney('圣战头盔(封印)', 2);
end;
Procedure _fashtk1;
begin
HandOutItemForMoney('法神头盔(封印)', 2);
end;
Procedure _tiantk1;
begin
HandOutItemForMoney('天尊头盔(封印)', 2);
end;
Procedure _heitie;
begin
HandOutItemForMoney('黑铁头盔(封印)', 2);
end;
Procedure _fashxl1;
begin
HandOutItemForMoney('法神项链(封印)', 2);
end;
Procedure _fashxl2;
begin
HandOutItemForMoney('法神手镯(封印)', 2);
end;
Procedure _fashxl3;
begin
HandOutItemForMoney('法神戒指(封印)', 2);
end;
Procedure _tianxl1;
begin
HandOutItemForMoney('天尊项链(封印)', 2);
end;
Procedure _tianxl2;
begin
HandOutItemForMoney('天尊手镯(封印)', 2);
end;
Procedure _tianxl3;
begin
HandOutItemForMoney('天尊戒指(封印)', 2);
end;
Procedure _qiyuan1;
begin
HandOutItemForMoney('启源项链(封印)', 2);
end;
Procedure _qiyuan2;
begin
HandOutItemForMoney('启源手镯(封印)', 2);
end;
Procedure _qiyuan3;
begin
HandOutItemForMoney('启源戒指(封印)', 2);
end;
Procedure _shenxl1;
begin
HandOutItemForMoney('圣战项链(封印)', 2);
end;
Procedure _shensz2;
begin
HandOutItemForMoney('圣战手镯(封印)', 2);
end;
Procedure _shenjz3;
begin
HandOutItemForMoney('圣战戒指(封印)', 2);
end;
Procedure _huanmo1;
begin
HandOutItemForMoney('唤魔项链(封印)', 2);
end;
Procedure _huanmo2;
begin
HandOutItemForMoney('唤魔手镯(封印)', 2);
end;
Procedure _huanmo3;
begin
HandOutItemForMoney('唤魔戒指(封印)', 2);
end;
Procedure _leizel1;
begin
HandOutItemForMoney('雷泽项链(封印)', 2);
end;
Procedure _leizel2;
begin
HandOutItemForMoney('雷泽手镯(封印)', 2);
end;
Procedure _leizel3;
begin
HandOutItemForMoney('雷泽戒指(封印)', 2);
end;
///////////////////////////////////////////////////////////////////////////////
Procedure _libao;
begin
HandOutItemForMoney('礼包', 1);
end;
Procedure _tianlong;
begin
HandOutItemForMoney('天龙之印', 1);
end;
Procedure _guhua1;
begin
HandOutItemForMoney('荣誉勋章43号', 1);
end;
Procedure _guhua2;
begin
HandOutItemForMoney('荣誉勋章44号', 1);
end;
Procedure _guhua3;
begin
HandOutItemForMoney('荣誉勋章45号', 1);
end;
Procedure _guhua7;
begin
HandOutItemForMoney('圣战纹章', 1);
end;
Procedure _guhua8;
begin
HandOutItemForMoney('法神纹章', 1);
end;
Procedure _guhua9;
begin
HandOutItemForMoney('天尊纹章', 1);
end;
Procedure _guhua4;
begin
HandOutItemForMoney('裁决之杖', 1);
end;
Procedure _guhua5;
begin
HandOutItemForMoney('骨玉权杖', 1);
end;
Procedure _guhua6;
begin
HandOutItemForMoney('龙纹剑', 1);
end;
Procedure _guhua13;
begin
HandOutItemForMoney('血饮', 1);
end;
Procedure _guhua10;
begin
HandOutItemForMoney('天之裁决', 1);
end;
Procedure _guhua11;
begin
HandOutItemForMoney('天之骨玉权杖', 1);
end;
Procedure _guhua12;
begin
HandOutItemForMoney('天之龙纹', 1);
end;
Procedure _shenyoling;
begin
This_Npc.NpcDialog(This_Player,
'灵鼠神佑和极品灵鼠神佑可都是不同凡响的东西,但是它们蕴含的\'+
'灵力将随着时间的推移不断消耗,你需要定期给它们注入新的灵力。\'+
'只有在我这里它们才能获取这种灵力,而且灵力第一次注入的瞬间,\'+
'也会将一定的经验注入你的体内,不过我得告诉你,获取经验的机会\'+
'只有一次。如果想恢复灵力就把它们交给我吧。\ \'+
'|{cmd}<恢复灵鼠神佑的灵力 lingshu_01="">\'+
'|{cmd}<恢复极品灵鼠神佑的灵力 lingshu_02="">\'+
'|{cmd}<返回 main="">\');
end;
procedure _lingshu_01;
begin
if This_Player.GetS(18,2) = 100 then
begin
if This_Player.GetBagItemCount('灵鼠神佑') >= 1 then
begin
This_Player.Take('灵鼠神佑',1);
This_Player.Give('灵鼠神佑',1);
This_Npc.NpcDialog(This_Player,
'你的灵鼠神佑已经重新获得了灵力,这就交给你吧。\ \|{cmd}<返回 main="">\');
end
else
begin
This_Npc.NpcDialog(This_Player,
'如果想恢复灵鼠神佑的灵力就把它交给我吧。\ \');
end;
end
else
begin
if This_Player.GetBagItemCount('灵鼠神佑') >= 1 then
begin
This_Player.Take('灵鼠神佑',1);
This_Player.Give('灵鼠神佑',1);
This_Player.SetS(18,2,100);
This_Player.Give('经验',18888);
This_Npc.NpcDialog(This_Player,
'你的灵鼠神佑已经重新获得了灵力,这就交给你吧。\ \|{cmd}<返回 main="">\');
end
else
begin
This_Npc.NpcDialog(This_Player,
'如果想恢复灵鼠神佑的灵力就把它交给我吧。\ \');
end;
end;
end;
procedure _lingshu_02;
begin
if This_Player.GetS(18,3) = 100 then
begin
if This_Player.GetBagItemCount('极品灵鼠神佑') >= 1 then
begin
This_Player.Take('极品灵鼠神佑',1);
This_Player.Give('极品灵鼠神佑',1);
This_Npc.NpcDialog(This_Player,
'你的极品灵鼠神佑已经重新获得了灵力,这就交给你吧。\ \|{cmd}<返回 main="">\');
end
else
begin
This_Npc.NpcDialog(This_Player,
'如果想恢复极品灵鼠神佑的灵力就把它交给我吧。\ \');
end;
end
else
begin
if This_Player.GetBagItemCount('极品灵鼠神佑') >= 1 then
begin
This_Player.Take('极品灵鼠神佑',1);
This_Player.Give('极品灵鼠神佑',1);
This_Player.SetS(18,3,100);
This_Player.Give('经验',88888);
This_Npc.NpcDialog(This_Player,
'你的极品灵鼠神佑已经重新获得了灵力,这就交给你吧。\ \|{cmd}<返回 main="">\');
end
else
begin
This_Npc.NpcDialog(This_Player,
'如果想恢复极品灵鼠神佑的灵力就把它交给我吧。\ \');
end;
end;
end;
Begin
TZJH_NPC;
domain;
end.