战神手游综合买+卖+存+修+脚本

战神手游综合买+卖+存+修+脚本。

战神手游综合买+卖+存+修+脚本

{

/************************************************************************}

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.

温馨提示:本文最后更新于2022-06-14 22:51:18,某些文章具有时效性,若有错误或已失效,请在下方留言或联系吾爱游戏迷
------本页内容已结束,喜欢请分享------

感谢您的来访,获取更多优质资源请收藏本站。

© 版权声明
THE END
喜欢就支持一下吧
点赞304 分享
评论 抢沙发
头像
欢迎您留下宝贵的见解!
提交
头像

昵称

取消
昵称表情代码图片