云游商人脚本战神引擎神秘商店代码

夜游神

1. program mir2;
   
2. var
   
3. sjzb, sjzb1, sjzb2, sjzb3, sjzb4: string;
   
4. num,num1, jxz, ck_jydd, ck_kind,ck_kind1,ck_kind2,ck_kind3,ck_kind4:integer;
   
5. 
   
6. 
   
7. ck_name : array[1..300] of string;
   
8. ck_value : array[1..300] of integer;
   
9. procedure OnInitialize;
   
10. begin
    
11. ck_name[1] := '神龙复活神戒';     //首饰开始
    
12. ck_name[2] := '神龙护身神戒';
    
13. ck_name[3] := '神龙麻痹神戒';
    
14. ck_name[4] := '刺影复活神戒';
    
15. ck_name[5] := '刺影护身神戒';
    
16. ck_name[6] := '刺影麻痹神戒';
    
17. ck_name[7] := '玉兔复活神戒';
    
18. ck_name[8] := '玉兔护身神戒';
    
19. ck_name[9] := '玉兔麻痹神戒';
    
20. ck_name[10] := '传奇麻痹神戒';
    
21. ck_name[11] := '传奇复活神戒';   
    
22. ck_name[12] := '传奇护身神戒';
    
23. ck_name[13] := '主宰护身神戒';
    
24. ck_name[14] := '主宰复活神戒';
    
25. ck_name[15] := '主宰麻痹神戒';
    
26. ck_name[16] := '神龙斗笠';
    
27. ck_name[17] := '刺影斗笠';
    
28. ck_name[18] := '玉兔斗笠';
    
29. ck_name[19] := '传奇斗笠';
    
30. ck_name[20] := '主宰斗笠';
    
31. ck_name[21] := '元神神龙斗笠';   
    
32. ck_name[22] := '元神刺影斗笠';
    
33. ck_name[23] := '元神玉兔斗笠';
    
34. ck_name[24] := '元神传奇斗笠';
    
35. ck_name[25] := '元神主宰斗笠';
    
36. ck_name[26] := '转生证明';
    
37. ck_name[27] := '麻痹戒指';
    
38. ck_name[28] := '护身戒指';
    
39. ck_name[29] := '复活戒指';
    
40. 
    
41. 
    
42. ck_value[1] :=888;
    
43. ck_value[2] :=888;
    
44. ck_value[3] :=888;
    
45. ck_value[4] :=300;
    
46. ck_value[5] :=300;
    
47. ck_value[6] :=300;
    
48. ck_value[7] :=110;
    
49. ck_value[8] :=110;
    
50. ck_value[9] :=110;
    
51. ck_value[10] :=35;
    
52. ck_value[11] :=35;
    
53. ck_value[12] :=35;
    
54. ck_value[13] :=13;
    
55. ck_value[14] :=13;
    
56. ck_value[15] :=13;
    
57. ck_value[16] :=500;
    
58. ck_value[17] :=200;
    
59. ck_value[18] :=70;
    
60. ck_value[19] :=25;
    
61. ck_value[20] :=10;
    
62. ck_value[21] :=500;
    
63. ck_value[22] :=200;
    
64. ck_value[23] :=70;
    
65. ck_value[24] :=25;
    
66. ck_value[25] :=10;
    
67. ck_value[26] :=1;
    
68. ck_value[27] :=5;
    
69. ck_value[28] :=5;
    
70. ck_value[29] :=5;
    
71. end;
    
72. 
    
73. 
    
74. procedure Execute;
    
75. begin
    
76.     num1:=GetG(33,40);
    
77.    if  GetMin = 01 then  
    
78.    begin
    
79.     if  num1 < 1  then  
    
80.    begin
    
81.     ck_kind := random(29);
    
82.     ck_kind1 := random(29);      
    
83.     ck_kind2 := random(29);      
    
84.     ck_kind3 := random(29);
    
85.     ck_kind4 := random(29);
    
86.       
    
87.     sjzb := ck_name[ck_kind];
    
88.     sjzb1 := ck_name[ck_kind1];      
    
89.     sjzb2 := ck_name[ck_kind2];      
    
90.     sjzb3 := ck_name[ck_kind3];      
    
91.     sjzb4 := ck_name[ck_kind4];      
    
92.       
    
93.         SetG(33,31,ck_kind);
    
94.         SetG(33,32,ck_kind1);
    
95.         SetG(33,33,ck_kind2);
    
96.         SetG(33,34,ck_kind3);
    
97.         SetG(33,35,ck_kind4);
    
98.         SetG(33,40,num1 + 1);
    
99. 
    
100.         This_NPC.NpcNotice('东瀛奸商:新到一批物资[ '+sjzb+' ]抓紧时间购买把！');
     
101.         This_NPC.NpcNotice('东瀛奸商:新到一批物资[ '+sjzb1+' ]抓紧时间购买把！');
     
102.         This_NPC.NpcNotice('东瀛奸商:新到一批物资[ '+sjzb2+' ]抓紧时间购买把！');
     
103.         This_NPC.NpcNotice('东瀛奸商:新到一批物资[ '+sjzb3+' ]抓紧时间购买把！');
     
104.         This_NPC.NpcNotice('东瀛奸商:新到一批物资[ '+sjzb4+' ]抓紧时间购买把！');
     
105.         end else
     
106.         begin
     
107.              SetG(33,40,0);
     
108.    end;
     
109.   end;
     
110. end;
     
111. 
     
112. 
     
113. procedure _shangjiao;
     
114. begin
     
115. 
     
116. if This_Player.MyLFnum >= ck_value[GetG(33,31)] then
     
117. begin
     
118.                 This_Player.DecLF(0, ck_value[GetG(33,31)], false);
     
119.                 This_Player.give(sjzb,1);
     
120.         This_Player.PlayerNotice('提示：购买成功。',5);
     
121. end else
     
122.                 This_Npc.NpcDialog(This_Player,'灵符不足哟!\'  );
     
123. end;
     
124. 
     
125. procedure _shangjiao1;
     
126. begin
     
127. if This_Player.MyLFnum >= ck_value[GetG(33,32)] then
     
128. begin
     
129.                 This_Player.give(sjzb1,1);
     
130.                 This_Player.DecLF(0, ck_value[GetG(33,32)], false);
     
131.         This_Player.PlayerNotice('提示：购买成功。',5);
     
132.       
     
133. end else
     
134.                 This_Npc.NpcDialog(This_Player,'灵符不足哟!\'  );
     
135. end;
     
136. 
     
137. procedure _shangjiao2;
     
138. begin
     
139. 
     
140. if This_Player.MyLFnum >= ck_value[GetG(33,33)] then
     
141. begin
     
142.                 This_Player.DecLF(0, ck_value[GetG(33,33)], false);
     
143.                 This_Player.give(sjzb2,1);
     
144.         This_Player.PlayerNotice('提示：购买成功。',5);
     
145. 
     
146. end else
     
147. 
     
148.                 This_Npc.NpcDialog(This_Player,'灵符不足哟!\'  );               
     
149.                
     
150. end;
     
151. 
     
152. procedure _shangjiao3;
     
153. begin
     
154. if This_Player.MyLFnum >= ck_value[GetG(33,34)] then
     
155. begin
     
156.                 This_Player.DecLF(0, ck_value[GetG(33,34)], false);
     
157.                 This_Player.give(sjzb3,1);
     
158.         This_Player.PlayerNotice('提示：购买成功。',5);
     
159. 
     
160. end else
     
161.                 This_Npc.NpcDialog(This_Player,'灵符不足哟!\'  );               
     
162. end;
     
163. 
     
164. procedure _shangjiao4;
     
165. begin
     
166. if This_Player.MyLFnum >= ck_value[GetG(33,35)] then
     
167. begin
     
168.                 This_Player.DecLF(0, ck_value[GetG(33,35)], false);
     
169.                 This_Player.give(sjzb4,1);
     
170.         This_Player.PlayerNotice('提示：购买成功。',5);
     
171. 
     
172. end else
     
173.                 This_Npc.NpcDialog(This_Player,'灵符不足哟!\'  );               
     
174. end;
     
175. 
     
176. 
     
177. Procedure _doexit;
     
178. begin
     
179.    This_Npc.CloseDialog(This_Player);
     
180. end;
     
181. procedure _Exit;
     
182. begin
     
183.   This_Npc.CloseDialog(This_Player);
     
184. end;
     
185. 
     
186. procedure domain;
     
187. begin
     
188. num := This_Player.MyLFnum;   
     
189. 
     
190. if sjzb1 = '' then
     
191. begin
     
192.                
     
193.                 This_Npc.NpcDialog(This_Player,
     
194.            +'|东瀛奸商:您当前充值灵符: <'+inttostr(num)+'> 灵符！\'
     
195.            +'|<谢谢您的大力支持！我这里提供灵符购买服务！>\'
     
196.            +'|每次只随机刷新<5>个！\'
     
197.            +'|每个<整点零1分-2分之间>刷新 \'  
     
198.            +'|<注意：>请等2分钟过后再进行购买，以免出现正在点击够买出现刷新物品买错的情况！   \'      
     
199.            +'|正在售卖 <[ 暂无  ]/c=250> 0灵符   |\'         
     
200.        +'<注意:不显示物品是没刷，不要购买，灵符照扣>\'         
     
201.            +'|正在售卖 <[ 暂无  ]/c=250> 0灵符  |\'
     
202.            +'<注意:不显示物品是没刷，不要购买，灵符照扣>\'      
     
203.            +'|正在售卖 <[ 暂无  ]/c=250> 0灵符  |\'
     
204.            +'<注意:不显示物品是没刷，不要购买，灵符照扣>\'      
     
205.            +'|正在售卖 <[ 暂无  ]/c=250> 0灵符  |\'
     
206.            +'<注意:不显示物品是没刷，不要购买，灵符照扣>\'      
     
207.            +'|正在售卖 <[ 暂无  ]/c=250> 0灵符  |\'
     
208.        +'{cmd}<关闭窗口/@doexit> \' );
     
209.         end else   
     
210.                 This_Npc.NpcDialog(This_Player,
     
211.            +'|东瀛奸商:您当前拥有灵符: <'+inttostr(num)+'> 灵符！\'
     
212.            +'|<谢谢您的大力支持！我这里提供灵符购买服务！>\'
     
213.            +'|共<200>件物品！每次随机刷新<5>个！\'
     
214.            +'|只会在每个<整点零1分-2分之间>刷新 \'  
     
215.            +'|<注意：>请等2分钟过后再进行购买，以免出现正在点击够买出现刷新物品买错的情况！      \'      
     
216.            +'|正在售卖 <[ '+sjzb+'  ]/c=250> '+inttostr(ck_value[GetG(33,31)])+'灵符 <购买物品/@shangjiao>  |\'         
     
217.        +'<注意:不显示物品是没刷，不要购买，灵符照扣>\'         
     
218.            +'|正在售卖 <[ '+sjzb1+'  ]/c=250> '+inttostr(ck_value[GetG(33,32)])+'灵符 <购买物品/@shangjiao1> |\'
     
219.            +'<注意:不显示物品是没刷，不要购买，灵符照扣>\'      
     
220.            +'|正在售卖 <[ '+sjzb2+'  ]/c=250> '+inttostr(ck_value[GetG(33,33)])+'灵符 <购买物品/@shangjiao2> |\'
     
221.            +'<注意:不显示物品是没刷，不要购买，灵符照扣>\'      
     
222.            +'|正在售卖 <[ '+sjzb3+'  ]/c=250> '+inttostr(ck_value[GetG(33,34)])+'灵符 <购买物品/@shangjiao3> |\'
     
223.            +'<注意:不显示物品是没刷，不要购买，灵符照扣>\'      
     
224.            +'|正在售卖 <[ '+sjzb4+'  ]/c=250> '+inttostr(ck_value[GetG(33,35)])+'灵符 <购买物品/@shangjiao4> |\'
     
225.        +'{cmd}<关闭窗口/@doexit> \' );   
     
226.          
     
227. end;
     
228. 
     
229. begin
     
230. domain;
     
231. end.
     
232. [/mw_shl_code]

复制代码

Chinese.Doll

积分任务

616126447

:):):):):):)