战神手游综合买+卖+存+修+脚本
战神手游综合买+卖+存+修+脚本。
{
/************************************************************************}
PROGRAM Mir2;
{$I common.pas}
Procedure _doexit;
begin
This_Npc.CloseDialog(This_Player);
end;
Procedure _getback;
Begin
This_Npc.NpcDialog(This_Player,
'请看目录决定找什么东西。\ \ \'+
'|{cmd}<返回 main="">');
This_Npc.Click_GetBack(This_Player);
end;
Procedure _storage;
begin
This_Npc.NpcDialog(This_Player,
'需要保管什么东西？\ \ \'+
'|{cmd}<返回 main="">');
This_Npc.Click_GetBack(This_Player);
end;
Procedure _DoInputDialog1;
begin
This_Npc.InputDialog(This_Player,'请输入：', 0 , 100);
end;
Procedure P100;
begin
If This_Npc.InputOK then
begin
This_Player.ReqOpenStorage(This_Npc.InputStr);
end;
end;
Procedure _mbind;
begin
This_Npc.NpcDialog(This_Player,
'你知道我是什么人吗？我做的是这样的事情... \' +
'你要试一下吗？有什么要拜托的就说吧！ \ \' +
'|{cmd}<金币换金条. chgtobar="">'+addspace(' ',18)+'|{cmd}<金条换金币. bartogold="">\' +
'|{cmd}<捆药瓶和卷轴 bind="">\'+
'|{cmd}<取消 doexit="">');
end;
Procedure _chgtobar;
begin
This_Npc.Click_GoldChgBar(This_Player);
end;
Procedure _bartogold;
begin
This_Npc.Click_BartoGold(This_Player);
end;
Procedure _bind;
begin
This_Npc.NpcDialog(This_Player,
'目前我能捆的只有卷书和药水。\'+
'你要捆吗？ \'+
'要捆东西需要100金币。 \ \'+
'|{cmd}<捆药水 p_bind="">'+addspace(' ',20)+'|{cmd}<捆卷书 z_bind=""> \ \'+
'|{cmd}<返回 main="">');
end;
Procedure _P_bind;
begin
This_Npc.NpcDialog(This_Player,
'|{cmd}<强效金创药捆 ch_bind1=""> \'+
'|{cmd}<捆强效魔法药 ma_bind1=""> \'+
'|{cmd}<捆金创药（中） ch_bind2=""> \'+
'|{cmd}<捆魔法药（中） ma_bind2=""> \'+
'|{cmd}<捆金创药 ch_bind3=""> \'+
'|{cmd}<捆魔法药 ma_bind3=""> \'+
'|{cmd}<返回 bind="">');
end;
Procedure _ma_bind3;
begin
if This_Player.GetBagItemCount('魔法药(小量)') >= 6 then
begin
if (This_Player.GoldNum >=100) and (This_Player.GetBagItemCount('魔法药(小量)') >= 6) then
begin
This_Player.DecGold(100);
This_Player.Take('魔法药(小量)',6);
This_Player.Give('魔法药(小)包',1);
This_Npc.NpcDialog(This_Player,
'已经捆好了... 我的技术不错吧... \'+
'还有要捆的就拿给我吧.. \ \'+
'|{cmd}<继续捆 p_bind=""> \'+
'|{cmd}<取消 doexit="">');
end else
begin
This_Npc.NpcDialog(This_Player,
'你都没有钱捆东西，\'+
'还捆什么? 快走吧... \ \'+
'|{cmd}<取消 doexit="">');
end;
end else
begin
This_Npc.NpcDialog(This_Player,
'你都没有要捆的药水，还捆什么? \'+
'等准备好药水之后再来找我吧.. \ \'+
'|{cmd}<取消 doexit="">');
end;
end;
Procedure _ch_bind3;
begin
if This_Player.GetBagItemCount('金创药(小量)') >= 6 then
begin
if (This_Player.GoldNum >=100) and (This_Player.GetBagItemCount('金创药(小量)') >= 6) then
begin
This_Player.DecGold(100);
This_Player.Take('金创药(小量)',6);
This_Player.Give('金创药(小)包',1);
This_Npc.NpcDialog(This_Player,
'已经捆好了... 我的技术不错吧... \'+
'还有要捆的就拿给我吧.. \ \'+
'|{cmd}<继续捆 p_bind=""> \'+
'|{cmd}<取消 doexit="">');
end else
begin
This_Npc.NpcDialog(This_Player,
'你都没有钱捆东西，\'+
'还捆什么? 快走吧... \ \'+
'|{cmd}<取消 doexit="">');
end;
end else
begin
This_Npc.NpcDialog(This_Player,
'你都没有要捆的药水，还捆什么? \'+
'等准备好药水之后再来找我吧.. \ \'+
'|{cmd}<取消 doexit="">');
end;
end;
Procedure _ma_bind2;
begin
if This_Player.GetBagItemCount('魔法药(中量)') >= 6 then
begin
if (This_Player.GoldNum >=100) and (This_Player.GetBagItemCount('魔法药(中量)') >= 6) then
begin
This_Player.DecGold(100);
This_Player.Take('魔法药(中量)',6);
This_Player.Give('魔法药(中)包',1);
This_Npc.NpcDialog(This_Player,
'已经捆好了... 我的技术不错吧... \'+
'还有要捆的就拿给我吧.. \ \'+
'|{cmd}<继续捆 p_bind=""> \'+
'|{cmd}<取消 doexit="">');
end else
begin
This_Npc.NpcDialog(This_Player,
'你都没有钱捆东西，\'+
'还捆什么? 快走吧... \ \'+
'|{cmd}<取消 doexit="">');
end;
end else
begin
This_Npc.NpcDialog(This_Player,
'你都没有要捆的药水，还捆什么? \'+
'等准备好药水之后再来找我吧.. \ \'+
'|{cmd}<取消 doexit="">');
end;
end;
Procedure _ch_bind2;
begin
if This_Player.GetBagItemCount('金创药(中量)') >= 6 then
begin
if (This_Player.GoldNum >=100) and (This_Player.GetBagItemCount('金创药(中量)') >= 6) then
begin
This_Player.DecGold(100);
This_Player.Take('金创药(中量)',6);
This_Player.Give('金创药(中)包',1);
This_Npc.NpcDialog(This_Player,
'已经捆好了... 我的技术不错吧... \'+
'还有要捆的就拿给我吧.. \ \'+
'|{cmd}<继续捆 p_bind=""> \'+
'|{cmd}<取消 doexit="">');
end else
begin
This_Npc.NpcDialog(This_Player,
'你都没有钱捆东西，\'+
'还捆什么? 快走吧... \ \'+
'|{cmd}<取消 doexit="">');
end;
end else
begin
This_Npc.NpcDialog(This_Player,
'你都没有要捆的药水，还捆什么? \'+
'等准备好药水之后再来找我吧.. \ \'+
'|{cmd}<取消 doexit="">');
end;
end;
Procedure _ma_bind1;
begin
if This_Player.GetBagItemCount('强效魔法药') >= 6 then
begin
if (This_Player.GoldNum >=100) and (This_Player.GetBagItemCount('强效魔法药') >= 6) then
begin
This_Player.DecGold(100);
This_Player.Take('强效魔法药',6);
This_Player.Give('超级魔法药',1);
This_Npc.NpcDialog(This_Player,
'已经捆好了... 我的技术不错吧... \'+
'还有要捆的就拿给我吧.. \ \'+
'|{cmd}<继续捆 p_bind=""> \'+
'|{cmd}<取消 doexit="">');
end else
begin
This_Npc.NpcDialog(This_Player,
'你都没有钱捆东西，\'+
'还捆什么? 快走吧... \ \'+
'|{cmd}<取消 doexit="">');
end;
end else
begin
This_Npc.NpcDialog(This_Player,
'你都没有要捆的药水，还捆什么? \'+
'等准备好药水之后再来找我吧.. \ \'+
'|{cmd}<取消 doexit="">');
end;
end;
Procedure _ch_bind1;
begin
if This_Player.GetBagItemCount('强效金创药') >= 6 then
begin
if (This_Player.GoldNum >=100) and (This_Player.GetBagItemCount('强效金创药') >= 6) then
begin
This_Player.DecGold(100);
This_Player.Take('强效金创药',6);
This_Player.Give('超级金创药',1);
This_Npc.NpcDialog(This_Player,
'已经捆好了... 我的技术不错吧... \'+
'还有要捆的就拿给我吧.. \ \'+
'|{cmd}<继续捆 p_bind=""> \'+
'|{cmd}<取消 doexit="">');
end else
begin
This_Npc.NpcDialog(This_Player,
'你都没有钱捆东西，\'+
'还捆什么? 快走吧... \ \'+
'|{cmd}<取消 doexit="">');
end;
end else
begin
This_Npc.NpcDialog(This_Player,
'你都没有要捆的药水，还捆什么? \'+
'等准备好药水之后再来找我吧.. \ \'+
'|{cmd}<取消 doexit="">');
end;
end;
Procedure _Z_bind;
begin
This_Npc.NpcDialog(This_Player,
'|{cmd}<捆地牢逃脱卷 zum_bind1=""> \' +
'|{cmd}<捆随机传送卷 zum_bind2=""> \' +
'|{cmd}<捆回城卷 zum_bind3=""> \' +
'|{cmd}<捆行会回城卷 zum_bind4=""> \' +
'|{cmd}<返回 bind="">');
end;
Procedure _zum_bind4;
begin
if This_Player.GetBagItemCount('行会回城卷') >= 6 then
begin
if (This_Player.GoldNum >=100) and (This_Player.GetBagItemCount('行会回城卷') >= 6) then
begin
This_Player.DecGold(100);
This_Player.Take('行会回城卷',6);
This_Player.Give('行会回城卷包',1);
This_Npc.NpcDialog(This_Player,
'已经捆好了... 我的技术不错吧... \'+
'还有要捆的就拿给我吧.. \ \'+
'|{cmd}<继续捆 z_bind=""> \'+
'|{cmd}<取消 doexit="">');
end else
begin
This_Npc.NpcDialog(This_Player,
'你都没有钱捆东西，\'+
'还捆什么? 快走吧... \ \'+
'|{cmd}<取消 doexit="">');
end;
end else
begin
This_Npc.NpcDialog(This_Player,
'你都没有可以捆的卷书，还捆什么? \'+
'等准备好之后，再来找我吧.. \ \'+
'|{cmd}<取消 doexit="">');
end;
end;
Procedure _zum_bind3;
begin
if This_Player.GetBagItemCount('回城卷') >= 6 then
begin
if (This_Player.GoldNum >=100) and (This_Player.GetBagItemCount('回城卷') >= 6) then
begin
This_Player.DecGold(100);
This_Player.Take('回城卷',6);
This_Player.Give('回城卷包',1);
This_Npc.NpcDialog(This_Player,
'已经捆好了... 我的技术不错吧... \'+
'还有要捆的就拿给我吧.. \ \'+
'|{cmd}<继续捆 z_bind=""> \'+
'|{cmd}<取消 doexit="">');
end else
begin
This_Npc.NpcDialog(This_Player,
'你都没有钱捆东西，\'+
'还捆什么? 快走吧... \ \'+
'|{cmd}<取消 doexit="">');
end;
end else
begin
This_Npc.NpcDialog(This_Player,
'你都没有可以捆的卷书，还捆什么? \'+
'等准备好之后，再来找我吧.. \ \'+
'|{cmd}<取消 doexit="">');
end;
end;
Procedure _zum_bind2;
begin
if This_Player.GetBagItemCount('随机传送卷') >= 6 then
begin
if (This_Player.GoldNum >=100) and (This_Player.GetBagItemCount('随机传送卷') >= 6) then
begin
This_Player.DecGold(100);
This_Player.Take('随机传送卷',6);
This_Player.Give('随机传送卷包',1);
This_Npc.NpcDialog(This_Player,
'已经捆好了... 我的技术不错吧... \'+
'还有要捆的就拿给我吧.. \ \'+
'|{cmd}<继续捆 z_bind=""> \'+
'|{cmd}<取消 doexit="">');
end else
begin
This_Npc.NpcDialog(This_Player,
'你都没有钱捆东西，\'+
'还捆什么? 快走吧... \ \'+
'|{cmd}<取消 doexit="">');
end;
end else
begin
This_Npc.NpcDialog(This_Player,
'你都没有可以捆的卷书，还捆什么? \'+
'等准备好之后，再来找我吧.. \ \'+
'|{cmd}<取消 doexit="">');
end;
end;
Procedure _zum_bind1;
begin
if This_Player.GetBagItemCount('地牢逃脱卷') >= 6 then
begin
if (This_Player.GoldNum >=100) and (This_Player.GetBagItemCount('地牢逃脱卷') >= 6) then
begin
This_Player.DecGold(100);
This_Player.Take('地牢逃脱卷',6);
This_Player.Give('地牢逃脱卷包',1);
This_Npc.NpcDialog(This_Player,
'已经捆好了... 我的技术不错吧... \'+
'还有要捆的就拿给我吧.. \ \'+
'|{cmd}<继续捆 z_bind=""> \'+
'|{cmd}<取消 doexit="">');
end else
begin
This_Npc.NpcDialog(This_Player,
'你都没有钱捆东西，\'+
'还捆什么? 快走吧... \ \'+
'|{cmd}<取消 doexit="">');
end;
end else
begin
This_Npc.NpcDialog(This_Player,
'你都没有可以捆的卷书，还捆什么? \'+
'等准备好之后，再来找我吧.. \ \'+
'|{cmd}<取消 doexit="">');
end;
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('地牢逃脱卷', 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);
//加载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(42);
This_NPC.AddStdMode(43);
for i := 19 to 28 do
This_NPC.AddStdMode(i);
end;
Begin
This_Npc.NpcDialog(This_Player,
'你竟然能跑到这里来？\'+
'看在你这么努力的份上，我就帮助你一下。\ \'+
'|{cmd}<买 buy="">'+addspace(' ',26)+'|{cmd}<卖 sell="">\'+
'|{cmd}<修理 repair="">'+addspace(' ',24)+'|{cmd}<特殊修理 s_repair="">\'+
//'|{cmd}<开启仓库 doinputdialog1="">\'+
'|{cmd}<仓库管理 storage="">'+addspace(' ',20)+//'|{cmd}<找回东西 getback="">\'+
'|{cmd}<捆各种卷书和药水 mbind="">'+addspace(' ',12)+'|{cmd}<退出 doexit="">');
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
- 第二大陆+五套新装+庄园钓鱼+炼体十层
- 战神版本
- 第二大陆+五套新装+庄园钓鱼+炼体十层
- 战神版本