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}<买衣服/@buy>'+ addSpace('', 24) + '|{cmd}<修复衣服/@repair>\' +'|{cmd}<卖衣服/@sell>'+ addSpace('', 24) + '|{cmd}<特殊修理/@s_repair>\' +'|{cmd}<退出/@doexit>'); end; procedure _buy; begin This_Npc.NpcDialog(This_Player, '要购买什么吗? \ \|{cmd}<返回/@main>' ); This_Npc.Click_Buy(This_Player); end; procedure _Sell; begin This_Npc.NpcDialog(This_Player, '请放上去要卖的衣服,我给估价。头盔和帽子也收购,最好在这儿一起卖吧。 \|{cmd}<返回/@main>' ); This_Npc.Click_Sell(This_Player); 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, '你这家伙,你可太幸运了,我正好有材料做特殊修补,\但费用是普通的3倍!' ); This_Npc.Click_SRepair(This_Player); end; procedure SRepairDone; begin This_Npc.NpcDialog(This_Player, '看上去它已经修好了……请好好的使用它。 \|{cmd}<返回/@main>' ); 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.
原文链接:https://www.gmduo.com/241.html,转载请注明出处~~~
评论0