GowLom2战神引擎传奇手游 NPC商店配置脚本

admin

GowLom2战神引擎传奇手游 NPC市肆设置脚本
全部市肆中必须有OnInitialize方法，用于步伐初始化时加载
该方法中 This_Npc.AddStdMode(X); X为该市肆可交易、补缀的物品对应DB表中StdMode的值
This_Npc.FillGoods(物品名,数目,时间);
如：This_Npc.FillGoods('布衣(男)',50,1);表现该市肆每分钟会革新50件布衣(男)，
注：革新时只补齐到50件
比如衣服店
procedure _DoExit;
begin
This_Npc.CloseDialog(This_Player);
end;
procedure domain;
begin
This_Npc.NpcDialog(This_Player,
+'感谢光临。叨教有什么事变帮助吗？\ \'
+'|{cmd}<买衣服[url=]/@buy>'[/url]+ addSpace('', 24) + '|{cmd}<修复衣服[url=]/@repair>\'[/url]
+'|{cmd}<卖衣服[url=]/@sell>'[/url]+ addSpace('', 24) + '|{cmd}<特殊补缀[url=]/@s_repair>\'[/url]
+'|{cmd}<退出[url=]/@doexit>'[/url]);
end;
procedure _buy;
begin
This_Npc.NpcDialog(This_Player,
'要购买什么吗？\ \ \|{cmd}<返回[url=]/@main>'[/url]
);
This_Npc.Click_Buy(This_Player);
end;
procedure _Sell;
begin
This_Npc.NpcDialog(This_Player,
'请放上去要卖的衣服，我给估价。\头盔和帽子也收购，\最幸亏这儿一起卖吧。\ \|{cmd}<返回[url=]/@main>'[/url]
);
This_Npc.Click_Sell(This_Player);
end;
procedure _Repair;
begin
This_Npc.NpcDialog(This_Player,
'可以修复衣服，头盔，帽子。\ \ \|{cmd}<返回[url=]/@main>'[/url]
);
This_Npc.Click_Repair(This_Player);
end;
procedure RepairDone;
begin
This_Npc.NpcDialog(This_Player,
'修得还算不错。\ \ \ |{cmd}<返回[url=]/@main>'[/url]
);
end;
procedure _S_Repair;
begin
This_Npc.NpcDialog(This_Player,
'你这家伙，你可太荣幸了，我恰好有质料做特殊修补，\但费用是平常的3倍！'
);
This_Npc.Click_SRepair(This_Player);
end;
procedure SRepairDone;
begin
This_Npc.NpcDialog(This_Player,
'看上去它已经修睦了……\请好好的利用它。\ \|{cmd}<返回[url=]/@main>'[/url]
);
end;
//初始化利用
procedure OnInitialize;
begin
This_Npc.AddStdMode(10); //
This_Npc.AddStdMode(11);
This_Npc.AddStdMode(15);
This_Npc.AddStdMode(27);
This_Npc.AddStdMode(28);
This_Npc.FillGoods('布衣(男)',50,1);
This_Npc.FillGoods('布衣(女)',50,1);
This_Npc.FillGoods('轻型盔甲(男)',50,1);
This_Npc.FillGoods('轻型盔甲(女)',50,1);
This_Npc.FillGoods('中型盔甲(男)',50,1);
This_Npc.FillGoods('中型盔甲(女)',50,1);
This_Npc.FillGoods('重盔甲(男)',30,1);
This_Npc.FillGoods('重盔甲(女)',30,1);
This_Npc.FillGoods('邪术长袍(男)',50,1);
This_Npc.FillGoods('邪术长袍(女)',50,1);
This_Npc.FillGoods('魂魄战衣(男)',50,1);
This_Npc.FillGoods('魂魄战衣(女)',50,1);
This_Npc.FillGoods('幽灵战衣(男)',50,1);
This_Npc.FillGoods('幽灵战衣(女)',50,1);
This_Npc.FillGoods('恶魔长袍(男)',30,1);
This_Npc.FillGoods('恶魔长袍(女)',30,1);
This_Npc.FillGoods('战神盔甲(男)',30,1);
This_Npc.FillGoods('战神盔甲(女)',30,1);
This_Npc.SetRebate(100);
end;
//脚本实验的入口
begin
domain;
end.

来源：传奇手游版本库