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

GowLom2战神引擎传奇手游 NPC商店配置脚本
所有商店中必须有OnInitialize方法，用于程序初始化时加载
该方法中 This_Npc.AddStdMode(X);  X为该商店可买卖、修理的物品对应DB表中StdMode的值
This_Npc.FillGoods(物品名,数量,时间);

如：This_Npc.FillGoods('布衣(男)',50,1);表示该商店每分钟会刷新50件布衣(男)，
注：刷新时只补齐到50件

1. 比如衣服店
   
2. procedure _DoExit;
   
3. begin
   
4.    This_Npc.CloseDialog(This_Player);
   
5. end;
   
6. 
   
7. procedure domain;
   
8. begin
   
9.           This_Npc.NpcDialog(This_Player,
   
10.           +'感谢光临。请问有什么事情帮忙吗？\ \'
    
11. 
    
12.           +'|{cmd}<买衣服/@buy>'+ addSpace('', 24) + '|{cmd}<修复衣服/@repair>\'
    
13.           +'|{cmd}<卖衣服/@sell>'+ addSpace('', 24) + '|{cmd}<特殊修理/@s_repair>\'
    
14.           +'|{cmd}<退出/@doexit>');
    
15. end;
    
16. 
    
17. procedure _buy;
    
18. begin
    
19.    This_Npc.NpcDialog(This_Player,
    
20.      '要购买什么吗？\ \ \|{cmd}<返回/@main>'
    
21.    );
    
22.    This_Npc.Click_Buy(This_Player);
    
23. end;
    
24. procedure _Sell;
    
25. begin
    
26.    This_Npc.NpcDialog(This_Player,
    
27.      '请放上去要卖的衣服，我给估价。\头盔和帽子也收购，\最好在这儿一起卖吧。\ \|{cmd}<返回/@main>'
    
28.    );
    
29.    This_Npc.Click_Sell(This_Player);
    
30. end;
    
31. procedure _Repair;
    
32. begin
    
33.    This_Npc.NpcDialog(This_Player,
    
34.      '可以修复衣服，头盔，帽子。\ \ \|{cmd}<返回/@main>'
    
35.    );
    
36.    This_Npc.Click_Repair(This_Player);
    
37. end;
    
38. procedure RepairDone;
    
39. begin
    
40.    This_Npc.NpcDialog(This_Player,
    
41.      '修得还算不错。\ \ \ |{cmd}<返回/@main>'
    
42.    );
    
43. end;
    
44. procedure _S_Repair;
    
45. begin
    
46.    This_Npc.NpcDialog(This_Player,
    
47.      '你这家伙，你可太幸运了，我正好有材料做特殊修补，\但费用是普通的3倍！'
    
48.    );
    
49.    This_Npc.Click_SRepair(This_Player);
    
50. end;
    
51. procedure SRepairDone;
    
52. begin
    
53.    This_Npc.NpcDialog(This_Player,
    
54.      '看上去它已经修好了……\请好好的使用它。\ \|{cmd}<返回/@main>'
    
55.    );
    
56. end;
    
57. //初始化操作
    
58. procedure OnInitialize;
    
59. begin
    
60.    This_Npc.AddStdMode(10);  //
    
61.    This_Npc.AddStdMode(11);
    
62.    This_Npc.AddStdMode(15);
    
63.    This_Npc.AddStdMode(27);
    
64.    This_Npc.AddStdMode(28);
    
65.    This_Npc.FillGoods('布衣(男)',50,1);
    
66.    This_Npc.FillGoods('布衣(女)',50,1);
    
67.    This_Npc.FillGoods('轻型盔甲(男)',50,1);
    
68.    This_Npc.FillGoods('轻型盔甲(女)',50,1);
    
69.    This_Npc.FillGoods('中型盔甲(男)',50,1);
    
70.    This_Npc.FillGoods('中型盔甲(女)',50,1);
    
71.    This_Npc.FillGoods('重盔甲(男)',30,1);
    
72.    This_Npc.FillGoods('重盔甲(女)',30,1);
    
73.    This_Npc.FillGoods('魔法长袍(男)',50,1);
    
74.    This_Npc.FillGoods('魔法长袍(女)',50,1);
    
75.    This_Npc.FillGoods('灵魂战衣(男)',50,1);
    
76.    This_Npc.FillGoods('灵魂战衣(女)',50,1);
    
77.    This_Npc.FillGoods('幽灵战衣(男)',50,1);
    
78.    This_Npc.FillGoods('幽灵战衣(女)',50,1);
    
79.    This_Npc.FillGoods('恶魔长袍(男)',30,1);
    
80.    This_Npc.FillGoods('恶魔长袍(女)',30,1);
    
81.    This_Npc.FillGoods('战神盔甲(男)',30,1);
    
82.    This_Npc.FillGoods('战神盔甲(女)',30,1);
    
83.    This_Npc.SetRebate(100);
    
84. end;
    
85. //脚本执行的入口
    
86. begin
    
87.    domain;
    
88. end.

复制代码