想问个脚本指令的问题

Louie

我现在有一个类似钓鱼伐木一样的脚本，其他功能都一切正常，但它增加了一个VIP有自动钓鱼的选项~~自动钓鱼也能正常运行，可是问题是中间有一段，提示“自动伐木中~~注意，关掉此窗口将取消自动伐木” 现在的问题是这个关闭窗口的选项一直没有显示，也就意味着VIP一旦开启自动钓鱼~要关闭只有强退~~小弟想在此寻找各路大仙有什么解决办法没？我附上完整脚本：

1. yuno_fild12.gat,121,261,4        script        副职-鱼群#1        920,{
   
2. set @npcname$,"^ff0000①号渔场^000000";
   
3. callfunc "diaoyu";
   
4. end;
   
5.         }
   
6. 
   
7. yuno_fild12.gat,124,246,4        script        副职-鱼群#2        920,{
   
8. set @npcname$,"^ff0000②号渔场^000000";
   
9. callfunc "diaoyu";
   
10. end;
    
11.         }
    
12. 
    
13. yuno_fild12.gat,169,255,4        script        副职-鱼群#3        920,{
    
14. set @npcname$,"^ff0000③号渔场^000000";
    
15. callfunc "diaoyu";
    
16. end;
    
17.         }
    
18. 
    
19. yuno_fild12.gat,232,212,4        script        副职-鱼群#4        920,{
    
20. set @npcname$,"^ff0000④号渔场^000000";
    
21. callfunc "diaoyu";
    
22. end;
    
23.         }
    
24. 
    
25. yuno_fild12.gat,304,230,4        script        副职-鱼群#5        920,{
    
26. set @npcname$,"^ff0000⑤号渔场^000000";
    
27. callfunc "diaoyu";
    
28. end;
    
29.         }
    
30. //执行部分
    
31. function        script        diaoyu        {
    
32.         if (#vip>0 && @zdck>0) {
    
33.                 if (@abc == 1) goto nzzb;
    
34.                 set @abc,1;
    
35.                 goto L_vip;
    
36.                 end;
    
37.         }
    
38.     set @yzcs,rand(1,3);
    
39.     set @yzcs2,@yzcs2+@yzcs;
    
40.     if (@yzcs2 < 10) goto Lyanzhengok;
    
41.     set @yzcs2,0;
    
42.     set @yanzhen1,rand(1000,9999);
    
43.         mes "[系统提示]";
    
44.         mes "请正确输入下面的验证码方可使用。";
    
45.         mes "验证码 ：[ ^FF0000"+@yanzhen1+"^000000 ]";
    
46.         next;
    
47.         input @yanzhen2;
    
48.         if(@yanzhen2 == @yanzhen1) goto Lyanzhengok;
    
49.     set @yzcs2,20;
    
50.         mes "[系统提示]";
    
51.         mes "验证码错误。";
    
52.         close;
    
53. Lyanzhengok:
    
54.         mes "[渔场工作人员]";
    
55.         mes "你好,这里是"+@npcname$+" ";
    
56.         mes "请问你要开始钓鱼了吗?";
    
57.         next;
    
58.         switch(select("是的,我要开始钓鱼","不.现在还不用",(#vip>0)?"自动钓鱼":"")) {
    
59.         case 1:
    
60.         if(@abc==1)goto nzzb;
    
61.         if(countitem(22016)==0) goto mwq;
    
62.         set @abc,1;
    
63.         mes "[系统提示]";
    
64.         mes "钓鱼中...";
    
65.         mes "^ff0000(在工作过程中,请玩家不要下线.否则工作将不能进行下去)^000000";
    
66.         next;
    
67.         cutin "dy00",1;
    
68.         addtimer 5000,"钓鱼计时::Onone";
    
69.         addtimer 10000,"钓鱼计时::Ontwo";
    
70.         addtimer 15000,"钓鱼计时::Onthree";
    
71.         addtimer 20000,"钓鱼计时::Onfour";
    
72.         addtimer 25000,"钓鱼计时::Onfive";
    
73.         addtimer 30000,"钓鱼计时::Onsix";
    
74.         addtimer 35000,"钓鱼计时::Onseven";
    
75.         addtimer 40000,"钓鱼计时::Oneight";
    
76.         addtimer 45000,"钓鱼计时::Onnine";
    
77.         addtimer 50000,"钓鱼计时::Onten";
    
78.         break;
    
79. 
    
80. mwq:
    
81.         mes "[钓鱼工作人员]";
    
82.         mes "你还没有钓鱼的工具呢.";
    
83.         close;
    
84. nzzb:
    
85.         mes "[钓鱼工作人员]";
    
86.         mes "不能作弊哦";
    
87.         close;
    
88.         end;
    
89. 
    
90.         case 2:
    
91.         mes "[钓鱼工作人员]";
    
92.         mes "那么你有需要再来吧";
    
93.         close;
    
94. case 3:
    
95. L_vip:
    
96.         set @zdck,2;
    
97.         cutin "dy00",1;
    
98.         addtimer 5000,"钓鱼计时::Onone";
    
99.         addtimer 10000,"钓鱼计时::Ontwo";
    
100.         addtimer 15000,"钓鱼计时::Onthree";
     
101.         addtimer 20000,"钓鱼计时::Onfour";
     
102.         addtimer 25000,"钓鱼计时::Onfive";
     
103.         addtimer 30000,"钓鱼计时::Onsix";
     
104.         addtimer 35000,"钓鱼计时::Onseven";
     
105.         addtimer 40000,"钓鱼计时::Oneight";
     
106.         addtimer 45000,"钓鱼计时::Onnine";
     
107.         addtimer 50000,"钓鱼计时::Onten";
     
108.         break;
     
109.                 }
     
110. 
     
111.         }
     
112. 
     
113. 
     
114. 
     
115. yuno_fild12.gat,155,185,0        script        钓鱼计时        -1,{
     
116. Onone:
     
117. cutin "dy00",255;
     
118. cutin "dy10",1;
     
119. end;
     
120. 
     
121. Ontwo:
     
122. cutin "dy10",255;
     
123. cutin "dy20",1;
     
124. end;
     
125. Onthree:
     
126. cutin "dy20",255;
     
127. cutin "dy30",1;
     
128. end;
     
129. 
     
130. Onfour:
     
131. cutin "dy30",255;
     
132. cutin "dy40",1;
     
133. end;
     
134. 
     
135. Onfive:
     
136. cutin "dy40",255;
     
137. cutin "dy50",1;
     
138. end;
     
139. 
     
140. Onsix:
     
141. cutin "dy50",255;
     
142. cutin "dy60",1;
     
143. end;
     
144. 
     
145. Onseven:
     
146. cutin "dy60",255;
     
147. cutin "dy70",1;
     
148. end;
     
149. 
     
150. Oneight:
     
151. cutin "dy70",255;
     
152. cutin "dy80",1;
     
153. end;
     
154. 
     
155. Onnine:
     
156. cutin "dy80",255;
     
157. cutin "dy90",1;
     
158. end;
     
159. 
     
160. Onten:
     
161.         if (#vip>0 && @zdck>0) {
     
162.                 goto L_vip_2;
     
163.                 end;
     
164.         }
     
165.         mes "^ff0000钓鱼完成了.!^000000";
     
166.         cutin "dy90",255;
     
167.         cutin "dy100",1;
     
168.         next;
     
169.         cutin "dy100",255;
     
170. //矿物处理
     
171.         L_vip_2:
     
172.         if(char_dylvl<50) set @itemid,22005;
     
173.         if(char_dylvl>=50&&char_dylvl<100) set @itemid,rand(22005,22006);
     
174.         if(char_dylvl>=100&&char_dylvl<300) set @itemid,rand(22005,22007);
     
175.         if(char_dylvl>=200&&char_dylvl<600) set @itemid,rand(22005,22008);
     
176.         if(char_dylvl>=400&&char_dylvl<1200) set @itemid,rand(22005,22009);
     
177.         if(char_dylvl>=800&&char_dylvl<2400) set @itemid,rand(22005,22009);
     
178.         if(char_dylvl>=1600&&char_dylvl<4800) set @itemid,rand(22005,22009);
     
179.         if(char_dylvl>=3200&&char_dylvl<6800)  set @itemid,rand(22007,22009);
     
180.         if(char_dylvl>=5800&&char_dylvl<8800)  set @itemid,rand(22008,22009);
     
181.         if(char_dylvl>=8800)  set @itemid,22009;
     
182. 
     
183. 
     
184. //给予物品
     
185.         if(char_wklvl<800) set @i,1;
     
186.         if(char_wklvl>=800&&char_wklvl<3200) set @i,rand(1,2);
     
187.         if(char_wklvl>=3200) set @i,rand(1,3);
     
188.         if(char_wklvl>=4800) set @i,rand(1,4);
     
189.         if(char_wklvl>=6800) set @i,rand(1,5);
     
190.         if(char_wklvl>=8800) set @i,rand(1,6);
     
191.         getitem @itemid,@i;
     
192. //等级经验处理
     
193.         if(char_dylvl<50) set @dyjinyan,50;
     
194.         if(char_dylvl>=50&&char_dylvl<100) set @dyjinyan,100;
     
195.         if(char_dylvl>=100&&char_dylvl<300) set @dyjinyan,300;
     
196.         if(char_dylvl>=200&&char_dylvl<600) set @dyjinyan,600;
     
197.         if(char_dylvl>=400&&char_dylvl<1200) set @dyjinyan,1200;
     
198.         if(char_dylvl>=800&&char_dylvl<2400) set @dyjinyan,2400;
     
199.         if(char_dylvl>=1600&&char_dylvl<4800) set @dyjinyan,4800;
     
200.         if(char_dylvl>=3200&&char_dylvl<6800) set @dyjinyan,6800;
     
201.         if(char_dylvl>=5800&&char_dylvl<8800) set @dyjinyan,6800;
     
202.         if(char_dylvl>=8800) set @dyjinyan,0;
     
203. //等级名称处理
     
204.         if(char_dylvl<50) set @char_dylvll$,"副职-钓鱼初学者";
     
205.         if(char_dylvl>=50&&char_dylvl<100) set @char_dylvll$,"副职-钓鱼武士";
     
206.         if(char_dylvl>=100&&char_dylvl<300) set @char_dylvll$,"副职-钓鱼工匠";
     
207.         if(char_dylvl>=200&&char_dylvl<600) set @char_dylvll$,"副职-钓鱼达人";
     
208.         if(char_dylvl>=400&&char_dylvl<1200) set @char_dylvll$,"副职-钓鱼长老";
     
209.         if(char_dylvl>=800&&char_dylvl<2400) set @char_dylvll$,"副职-钓鱼圣人";
     
210.         if(char_dylvl>=1600&&char_dylvl<4800) set @char_dylvll$,"副职-钓鱼之神";
     
211.         if(char_dylvl>=3200&&char_dylvl<6800) set @char_dylvll$,"副职-钓鱼天下第一";
     
212.         if(char_dylvl>=5800&&char_dylvl<8800) set @char_dylvll$,"副职-钓鱼宇宙第一";
     
213.         if(char_dylvl>=8800) set @char_dylvll$,"副职-钓鱼始祖";
     
214. //给予点数
     
215.         set @din,rand(1,3);
     
216.         set char_dylvl,char_dylvl+@din;
     
217.         if (#vip>0 && @zdck>0) {
     
218.                 set @abc,0;
     
219.                 dispbottom "[ 自动采矿系统 ] 获得了["+getitemname(@itemid)+"]["+@i+"]个";
     
220.                 dispbottom "[ 自动采矿系统 ] 经验: ["+char_dylvl+"/ "+@dyjinyan+"](+"+@din+")";
     
221.                 dispbottom "[ 自动采矿系统 ] 目前钓鱼技能等级为: ["+@char_dylvll$+"]";
     
222.                 mes "[系统提示]";
     
223.                 mes "自动钓鱼中~~~~";
     
224.                 mes "^FF0000注意，关掉此窗口将取消自动钓鱼^000000";
     
225.                 callfunc "diaoyu";
     
226.                 close2;
     
227.                 set @zdck,0;
     
228.         end;
     
229.         }
     
230. //-------------
     
231.         mes "^990000钓鱼结果:^000000";
     
232.         mes "获得了"+getitemname(@itemid)+" ^ff0000 "+@i+" ^000000个";
     
233.         mes "经验: ^ff0000 "+char_dylvl+" ^000000 / ^ff0000 "+@dyjinyan+" ^000000(+"+@din+")";
     
234.         mes "目前钓鱼技能等级为: ^532E6B"+@char_dylvll$+"^000000";
     
235.         close2;
     
236.         set @abc,0;
     
237.         end;
     
238. }

复制代码

Louie

求大神帮忙啊~~~