EA道館傳送設定

a350bc

1. 
   
2. //\**************************************************/
   
3. 
   
4. //---------------設定--------------
   
5. xmas.gat,120,211,0        script        modaOnInit        -1,{
   
6. OnInit:
   
7. 
   
8. //------開道費用----
   
9.         set $@camoney,1500000;
   
10. 
    
11. //------隊友進場費用---
    
12.         set $@capartm,0;
    
13. 
    
14. //-------mvp--------
    
15.         setarray $@mvpary[1],1874,1779,1786,1871,1734,1847,1502,1719,1708;
    
16. 
    
17. //-------放出mvp數量---
    
18.         setarray $@stagmo[1],1,1,1,1,1,1,1,1,1,3;
    
19. 
    
20. //-------可抽得的獎品id-----
    
21.         setarray $@ken0609[1],607,607,607,607,984,984,984,984,985,985,985,985,5349,5361,5362,5102,12103,12221,7621,5068;
    
22. 
    
23. 
    
24. //------1次領獎數目----
    
25. //對應-可抽得的獎品id-設定
    
26.         setarray $@ken[1],20,30,40,50,20,30,40,50,20,30,40,50,1,1,1,1,250,15,5,1;
    
27. 
    
28. }                        
    
29. payon.gat,178,221,4        script        道場管理員        757,{
    
30. 
    
31.         if (getcharid(1) == 0) {
    
32.         mes "[道場-管理員]";
    
33.         mes "您沒有隊伍";
    
34.         mes "無法參賽";
    
35.         close;
    
36.         end;
    
37.         }
    
38.         set @da,1;
    
39. cada:        if (@da<3) {
    
40.         if(getmapusers("que_qsch0"+@da+".gat")==0 ) set $party[@da],0;
    
41.         set @da,@da+1;
    
42.         goto cada;
    
43.         }
    
44.         set @da,1;
    
45. cbda:        if (@da<3) {
    
46.         if (getcharid(1) == $party[@da]){
    
47.         mes "[道場-管理員]";
    
48.         mes "您是^22DD22" +getpartyname(getcharid(1))+ "^000000的隊員吧";
    
49.         mes "你的隊員已報名挑戰,你要參與嗎？";
    
50.         next;
    
51.         menu "好的",cas1,"不用了",cas2;
    
52.         cas1:
    
53.                 if($@partywait[@da]==0) {
    
54.                         mes "[道場-管理員]";
    
55.                         mes "你的隊友已經先開始了";
    
56.                         mes "請你等待或換個隊伍另外挑戰！";
    
57.                         close;
    
58.                         end;
    
59.                 }
    
60.                 if (zeny<$@capartm) {
    
61.                 mes "金錢不夠^22DD22"+$@capartm+"^000000";
    
62.                 close;
    
63.                 end;
    
64.                 }
    
65.                 set zeny,zeny-$@capartm;
    
66.                 warp "que_qsch0"+@da+".gat",251,339;
    
67.                 end;
    
68.         cas2:                 
    
69.                 mes "[道場-管理員]";
    
70.                 mes "歡迎下次再來。";
    
71.                 close;
    
72.                 end;
    
73.         }
    
74.         set @da,@da+1;
    
75.         goto cbda;
    
76.         }
    
77.         mes "[道場-管理員]";
    
78.         mes "您和您的隊伍想參加嗎？";
    
79.         mes "須先繳納 ^22DD22"+$@camoney+"^000000 元的報名費";
    
80.         next;
    
81.         menu "報名",smit,"不了",nosmit;
    
82.         smit:        if (zeny<$@camoney) {
    
83.                 mes "金錢不夠^22DD22"+$@camoney+"^000000";
    
84.                 close;
    
85.                 end;
    
86.                 }
    
87.                 set @da,1;
    
88.         ccda:        if(@da<3) {
    
89.                         if (getmapusers("que_qsch0"+@da+".gat")==0 ) {
    
90.                         set zeny,zeny-$@camoney;
    
91.                         killmonsterall "que_qsch0"+@da+".gat";
    
92.                         set $@partywait[@da],1;
    
93.                         set $stage[@da],1;
    
94.                         set $party[@da],getcharid(1);
    
95.                         set $@charid[@da],getcharid(0);
    
96.                         announce "請 [" + getpartyname($party[@da]) + "] 隊伍的隊員,要進入就在商城 找 [道場-管理員]",16;
    
97.                         enablenpc "裁判"+@da;
    
98.                         warp "que_qsch0"+@da+".gat",251,339;
    
99.                         end;
    
100.                         }
     
101.                 set @da,@da+1;
     
102.                 goto ccda;
     
103.                 }
     
104.                 mes "全部場地都有人在挑戰中~,請稍後再試";
     
105.                 close;
     
106.                 end;
     
107. 
     
108.         nosmit:        
     
109.                 mes "[道場-管理員]";
     
110.                 mes "歡迎下次再來。";
     
111.                 close;
     
112.                 end;
     
113. }
     
114. 
     
115. que_qsch01.gat,251,339,0        script        chal_1        -1,{ Onka: callfunc "daryan",1; }
     
116. que_qsch02.gat,251,339,0        script        chal_2        -1,{ Onka: callfunc "daryan",2; }
     
117. que_qsch03.gat,251,339,0        script        chal_3        -1,{ Onka: callfunc "daryan",3; }
     
118. 
     
119. function        script        daryan        {
     
120.         set $@db[getarg(0)],0;
     
121. moda:        if($@db[getarg(0)]<$@stagmo[$stage[getarg(0)]]){
     
122.         set $@mvp,rand(1,9);
     
123.         monster "que_qsch0"+getarg(0)+".gat",251,339,"--ja--",$@mvpary[$@mvp],1,"npcev"+getarg(0)+"::Onvs";
     
124.         set $@db[getarg(0)],$@db[getarg(0)]+1;
     
125.         goto moda;
     
126.         }
     
127.         if($stage[getarg(0)]==10){
     
128.          announce "最後一關挑戰開始,請好好加油！",17;
     
129.         end;}
     
130.         announce "魔物放出！挑戰開始！",1;
     
131.         end;
     
132. }
     
133. 
     
134. que_qsch01.gat,251,339,0        script        npcev1        -1,{ Onvs: callfunc "vsryan",1; }
     
135. que_qsch02.gat,251,339,0        script        npcev2        -1,{ Onvs: callfunc "vsryan",2; }
     
136. que_qsch03.gat,251,339,0        script        npcev3        -1,{ Onvs: callfunc "vsryan",3; }
     
137. 
     
138. function        script        vsryan        {
     
139.         set $@db[getarg(0)],$@db[getarg(0)] -1;
     
140.         if( $@db[getarg(0)] > 0 ) end;
     
141.         if($stage[getarg(0)]==10){announce "恭喜！！隊伍:"  +getpartyname($party[getarg(0)]) + ", 成功闖過十關！！",15;}
     
142. 
     
143. 
     
144.         if($stage[getarg(0)]==10){
     
145.         areawarp "que_qsch0"+getarg(0)+".gat",0,0,300,300,"new_3-2",100,102;
     
146.         end;
     
147.         }
     
148. 
     
149.         set $stage[getarg(0)],$stage[getarg(0)] +1;
     
150.         addtimer 4000,"chal_"+getarg(0)+"::Onka";
     
151.         end;
     
152. }
     
153. //####################################裁判####################################
     
154. que_qsch01.gat,251,339,0        script        裁判1        758,{ callfunc "maker",1; }
     
155. que_qsch02.gat,251,339,0        script        裁判2        758,{ callfunc "maker",2; }
     
156. que_qsch03.gat,251,339,0        script        裁判3        758,{ callfunc "maker",3; }
     
157. 
     
158. function        script        maker        {
     
159.         if (getcharid(0) != $@charid[getarg(0)]) {
     
160.                 mes "[裁判]";
     
161.                 mes "你不是報名的人";
     
162.                 close;
     
163.                 end;
     
164.         }
     
165.         mes "[裁判]";
     
166.         mes "您準備要開始挑戰了嗎？";
     
167.         next;
     
168.         menu "準備好!!",redyok,"等等~",noready;
     
169.         redyok: killmonsterall "que_qsch0"+getarg(0)+".gat";
     
170.                 set $@partywait[getarg(0)],0;
     
171.                 disablenpc "裁判"+getarg(0);
     
172.                 doevent "chal_"+getarg(0)+"::Onka";
     
173.                 close;
     
174.                 end;
     
175.         noready: mes "[裁判]";
     
176.                 mes "好的, 請盡速開始!!";
     
177.                 close;
     
178.                 end;
     
179. 
     
180. }
     
181. //---------------------地圖屬性設定----------------------
     
182. que_qsch01.gat        mapflag        nomemo        dummy
     
183. que_qsch01.gat        mapflag        noteleport        dummy
     
184. que_qsch01.gat        mapflag        nosave        SavePoint
     
185. que_qsch01.gat        mapflag        nopenalty        dummy
     
186. que_qsch01.gat        mapflag        nobranch        dummy
     
187. 
     
188. que_qsch02.gat        mapflag        nomemo        dummy
     
189. que_qsch02.gat        mapflag        noteleport        dummy
     
190. que_qsch02.gat        mapflag        nosave        SavePoint
     
191. que_qsch02.gat        mapflag        nopenalty        dummy
     
192. que_qsch02.gat        mapflag        nobranch        dummy
     
193. 
     
194. que_qsch03.gat        mapflag        nomemo        dummy
     
195. que_qsch03.gat        mapflag        noteleport        dummy
     
196. que_qsch03.gat        mapflag        nosave        SavePoint
     
197. que_qsch03.gat        mapflag        nopenalty        dummy
     
198. que_qsch03.gat        mapflag        nobranch        dummy
     
199. 
     
200. new_3-2.gat        mapflag        nomemo        dummy
     
201. new_3-2.gat        mapflag        noteleport        dummy
     
202. new_3-2.gat        mapflag        nosave        SavePoint
     
203. new_3-2.gat        mapflag        nopenalty        dummy
     
204. new_3-2.gat        mapflag        nobranch        dummy
     
205. 
     
206. //-------------------------商人NPC設置-----------------------------
     
207. //que_qsch01.gat,47,89,5        shop        物品商人        76,501:251,3392:200,503:5251,3394:1200,505:4200,601:60,610:4000,611:40,645:800,656:1500,657:3000,717:600,1065:100,1751:200
     
208. //que_qsch02.gat,47,92,5        shop        物品商人        76,501:251,3392:200,503:5251,3394:1200,505:4200,601:60,610:4000,611:40,645:800,656:1500,657:3000,717:600,1065:100,1751:200
     
209. //que_qsch03.gat,47,86,5        shop        物品商人        76,501:251,3392:200,503:5251,3394:1200,505:4200,601:60,610:4000,611:40,645:800,656:1500,657:3000,717:600,1065:100,1751:200
     
210. //que_qsch04.gat,47,91,5        shop        物品商人        76,501:251,3392:200,503:5251,3394:1200,505:4200,601:60,610:4000,611:40,645:800,656:1500,657:3000,717:600,1065:100,1751:200
     
211. //que_qsch05.gat,47,75,5        shop        物品商人        76,501:251,3392:200,503:5251,3394:1200,505:4200,601:60,610:4000,611:40,645:800,656:1500,657:3000,717:600,1065:100,1751:200
     
212. //============================發放獎品NPC=======================
     
213. 
     
214. new_3-2.gat,38,183,4        script        獎品發放員        736,{
     
215. 
     
216.         mes "[獎品發放員]";
     
217.         mes "你很厲害！能打到這裡，讓我給你一些獎勵吧！";
     
218.         percentheal 100,100;
     
219.         next;
     
220.         mes "[獎品發放員]";
     
221.         mes "我是負責發放獎品的";
     
222.         mes "你將會隨機獲得一種獎品";
     
223.         mes "請注意負重問題避免獎品噴出!!";
     
224.         next;
     
225.         menu "對，我要領獎品！",-,"不了，讓我在考慮一下！",cancel;
     
226.         set @ke,rand(1,getarraysize($@ken0609));
     
227.         getitem $@ken0609[@ke],$@ken[@ke];
     
228.         warp "alberta.gat",117,57;
     
229.         end;
     
230. cancel:        mes "[獎品發放員]";
     
231.         mes "那要的時候再來找我!";
     
232.         mes "再見!!";
     
233.         close;
     
234.         end;
     
235. }
     

複製代碼

我這腳本打完10關後，都不會傳送到領獎品地圖....

請問我哪裡修改錯誤?!  還是地圖設定有問題?!

a350bc

有人知道什麼問題嗎=ˋ=

我實在找不出來....

傳送到獎品區這行，我看沒問題-.-

•         if($stage[getarg(0)]==10){
•         areawarp "que_qsch0"+getarg(0)+".gat",0,0,300,300,"new_3-2",100,102;
•         end;
•         }

-樂-

areawarp "que_qsch0"+getarg(0)+".gat",0,0,300,300,"new_3-2",100,102;

應該只有這樣

warp "new_3-2",100,102;

a350bc

areawarp "que_qsch0"+getarg(0)+".gat",0,0,300,300,"new_3-2",100,102;

這段不是傳送到獎品區的嗎=ˋ=

-樂-

areawarp "que_qsch0"+getarg(0)+".gat",0,0,300,300,"new_3-2",100,102;

這段不是傳送到獎品區的嗎=ˋ=
a350bc 發表於 2010-6-17 04:53 PM

    如果你認為那段無誤，為何他不會執行傳送?

a350bc

樂大大，依照你上面的方式改就會執行了=ˋ=

但是我是照原版本去修改的，原版本的會傳送....

我只改完地圖後....卻不會執行那行指令.....

請問樂大大，知道原因嗎?!!

-樂-

不曉得，我只會除錯:39: