UID11076
帖子
精華
主題
積分1147
現金
積極性
威望
違規
熱心
推廣次數
閱讀權限10
註冊時間2007-9-2
在線時間 小時
最後登錄1970-1-1
TA的每日心情 | 無聊 2010-7-6 04:52 PM |
---|
簽到天數: 56 天 連續簽到: 0 天 [LV.5]常住居民I
|
本帖最後由 a350bc 於 2010-6-21 06:31 PM 編輯
- //---------------設定--------------
- xmas.gat,120,211,0 script modaOnInit -1,{
- OnInit:
- //------開道費用----
- set $@camoney,1500000;
- //------隊友進場費用---
- set $@capartm,0;
- //-------mvp--------
- setarray $@mvpary
- [1],1874,1779,1786,1871,1734,1847,1502,1719,1708;
- //-------放出mvp數量---
- setarray $@stagmo[1],1,1,1,1,1,1,1,1,2,3;
- //-------可抽得的獎品id-----
- setarray $@ken0609
- [1],607,607,607,607,984,984,984,984,985,985,985,985,5349,5361,5362,51
- 02,12103,12221,7621,5068;
- //------1次領獎數目----
- //對應-可抽得的獎品id-設定
- setarray $@ken
- [1],20,30,40,50,20,30,40,50,20,30,40,50,1,1,1,1,250,15,5,1;
- }
- xmas.gat,151,125,4 script 道場管理員 757,{
- if (getcharid(1) == 0) {
- mes "[道場-管理員]";
- mes "您沒有隊伍";
- mes "無法參賽";
- close;
- end;
- }
- set @da,1;
- cada: if (@da<3) {
- if(getmapusers("que_qsch0"+@da+".gat")==0 ) set $party
- [@da],0;
- set @da,@da+1;
- goto cada;
- }
- set @da,1;
- cbda: if (@da<3) {
- if (getcharid(1) == $party[@da]){
- mes "[道場-管理員]";
- mes "您是^22DD22" +getpartyname(getcharid(1))+ "^000000的隊員
- 吧";
- mes "你的隊員已報名挑戰,你要參與嗎?";
- next;
- menu "好的",cas1,"不用了",cas2;
- cas1:
- if($@partywait[@da]==0) {
- mes "[道場-管理員]";
- mes "你的隊友已經先開始了";
- mes "請你等待或換個隊伍另外挑戰!";
- close;
- end;
- }
- if (zeny<$@capartm) {
- mes "金錢不夠^22DD22"+$@capartm+"^000000";
- close;
- end;
- }
- set zeny,zeny-$@capartm;
- warp "que_qsch0"+@da+".gat",251,339;
- end;
- cas2:
- mes "[道場-管理員]";
- mes "歡迎下次再來。";
- close;
- end;
- }
- set @da,@da+1;
- goto cbda;
- }
- mes "[道場-管理員]";
- mes "您和您的隊伍想參加嗎?";
- mes "須先繳納 ^22DD22"+$@camoney+"^000000 元的報名費";
- next;
- menu "報名",smit,"不了",nosmit;
- smit: if (zeny<$@camoney) {
- mes "金錢不夠^22DD22"+$@camoney+"^000000";
- close;
- end;
- }
- set @da,1;
- ccda: if(@da<3) {
- if (getmapusers("que_qsch0"+@da+".gat")==0 )
- {
- set zeny,zeny-$@camoney;
- killmonsterall "que_qsch0"+@da+".gat";
- set $@partywait[@da],1;
- set $stage[@da],1;
- set $party[@da],getcharid(1);
- set $@charid[@da],getcharid(0);
- announce "請 [" + getpartyname($party[@da]) +
- "] 隊伍的隊員,要進入就在商城 找 [道場-管理員]",16;
- enablenpc "裁判"+@da;
- warp "que_qsch0"+@da+".gat",251,339;
- end;
- }
- set @da,@da+1;
- goto ccda;
- }
- mes "全部場地都有人在挑戰中~,請稍後再試";
- close;
- end;
- nosmit:
- mes "[道場-管理員]";
- mes "歡迎下次再來。";
- close;
- end;
- }
- que_qsch01.gat,251,336,0 script chal_1 -1,{ Onka: callfunc
- "daryan",1; }
- que_qsch02.gat,251,336,0 script chal_2 -1,{ Onka: callfunc
- "daryan",2; }
- que_qsch03.gat,251,336,0 script chal_3 -1,{ Onka: callfunc
- "daryan",3; }
- function script daryan {
- set $@db[getarg(0)],0;
- moda: if($@db[getarg(0)]<$@stagmo[$stage[getarg(0)]]){
- set $@mvp,rand(1,9);
- monster "que_qsch0"+getarg(0)+".gat",251,339,"--ja-
- -",$@mvpary[$@mvp],1,"npcev"+getarg(0)+"::Onvs";
- set $@db[getarg(0)],$@db[getarg(0)]+1;
- goto moda;
- }
- if($stage[getarg(0)]==10){
- announce "最後一關挑戰開始,請好好加油!",17;
- end;}
- announce "魔物放出!挑戰開始!",1;
- end;
- }
- que_qsch01.gat,250,340,0 script npcev1 -1,{ Onvs: callfunc
- "vsryan",1; }
- que_qsch02.gat,250,340,0 script npcev2 -1,{ Onvs: callfunc
- "vsryan",2; }
- que_qsch03.gat,250,340,0 script npcev3 -1,{ Onvs: callfunc
- "vsryan",3; }
- function script vsryan {
- set $@db[getarg(0)],$@db[getarg(0)] -1;
- if( $@db[getarg(0)] > 0 ) end;
- if($stage[getarg(0)]==10){announce "恭喜!!隊伍:"
- +getpartyname($party[getarg(0)]) + ", 成功闖過十關!!",15;}
- if($stage[getarg(0)]==10){
- areawarp "que_qsch0"+getarg(0)+".gat",0,0,300,300,"new_3-
- 2",30,167;
- end;
- }
- set $stage[getarg(0)],$stage[getarg(0)] +1;
- addtimer 4000,"chal_"+getarg(0)+"::Onka";
- end;
- }
- //####################################裁判
- ####################################
- que_qsch01.gat,251,338,4 script 裁判6 758,{ callfunc
- "maker",1; }
- que_qsch02.gat,251,338,4 script 裁判7 758,{ callfunc
- "maker",2; }
- que_qsch03.gat,251,338,4 script 裁判8 758,{ callfunc
- "maker",3; }
- function script maker {
- if (getcharid(0) != $@charid[getarg(0)]) {
- mes "[裁判]";
- mes "你不是報名的人";
- close;
- end;
- }
- mes "[裁判]";
- mes "您準備要開始挑戰了嗎?";
- next;
- menu "準備好!!",redyok,"等等~",noready;
- redyok: killmonsterall "que_qsch0"+getarg(0)+".gat";
- set $@partywait[getarg(0)],0;
- disablenpc "裁判"+getarg(0);
- doevent "chal_"+getarg(0)+"::Onka";
- close;
- end;
- noready: mes "[裁判]";
- mes "好的, 請盡速開始!!";
- close;
- end;
- }
- //---------------------地圖屬性設定----------------------
- que_qsch01.gat mapflag nomemo dummy
- que_qsch01.gat mapflag noteleport dummy
- que_qsch01.gat mapflag nosave SavePoint
- que_qsch01.gat mapflag nopenalty dummy
- que_qsch01.gat mapflag nobranch dummy
- que_qsch02.gat mapflag nomemo dummy
- que_qsch02.gat mapflag noteleport dummy
- que_qsch02.gat mapflag nosave SavePoint
- que_qsch02.gat mapflag nopenalty dummy
- que_qsch02.gat mapflag nobranch dummy
- que_qsch03.gat mapflag nomemo dummy
- que_qsch03.gat mapflag noteleport dummy
- que_qsch03.gat mapflag nosave SavePoint
- que_qsch03.gat mapflag nopenalty dummy
- que_qsch03.gat mapflag nobranch dummy
- new_3-2.gat mapflag nomemo dummy
- new_3-2.gat mapflag noteleport dummy
- new_3-2.gat mapflag nosave SavePoint
- new_3-2.gat mapflag nopenalty dummy
- new_3-2.gat mapflag nobranch dummy
- //-------------------------商人NPC設置-----------------------------
- //guild_vs1.gat,47,89,5 shop 物品商人
- 76,501:50,502:200,503:550,504:1200,505:4200,601:60,610:4000,611:40,64
- 5:800,656:1500,657:3000,717:600,1065:100,1751:200
- //guild_vs2.gat,47,92,5 shop 物品商人
- 76,501:50,502:200,503:550,504:1200,505:4200,601:60,610:4000,611:40,64
- 5:800,656:1500,657:3000,717:600,1065:100,1751:200
- //guild_vs3.gat,47,86,5 shop 物品商人
- 76,501:50,502:200,503:550,504:1200,505:4200,601:60,610:4000,611:40,64
- 5:800,656:1500,657:3000,717:600,1065:100,1751:200
- //guild_vs4.gat,47,91,5 shop 物品商人
- 76,501:50,502:200,503:550,504:1200,505:4200,601:60,610:4000,611:40,64
- 5:800,656:1500,657:3000,717:600,1065:100,1751:200
- //guild_vs5.gat,47,75,5 shop 物品商人
- 76,501:50,502:200,503:550,504:1200,505:4200,601:60,610:4000,611:40,64
- 5:800,656:1500,657:3000,717:600,1065:100,1751:200
- //============================發放獎品NPC=======================
- guild_room.gat,30,285,4 script 獎品發放員 736,{
- mes "[獎品發放員]";
- mes "你很厲害!能打到這裡,讓我給你一些獎勵吧!";
- percentheal 100,100;
- next;
- mes "[獎品發放員]";
- mes "我是負責發放獎品的";
- mes "你將會隨機獲得一種獎品";
- mes "請注意負重問題避免獎品噴出!!";
- next;
- menu "對,我要領獎品!",-,"不了,讓我在考慮一下!",cancel;
- set @ke,rand(1,getarraysize($@ken0609));
- getitem $@ken0609[@ke],$@ken[@ke];
- warp "alberta.gat",117,57;
- end;
- cancel: mes "[獎品發放員]";
- mes "那要的時候再來找我!";
- mes "再見!!";
- close;
- end;
- }
複製代碼
我設定的打完10關,並不會傳送到獎品區。
開始挑戰裁判也不會消失......
我已爬過文....每個都失敗=ˋ=
傳送如果改成 warp 只會傳送一個人....並不是全隊!!
誰能交交我=ˋ=用哩好多天.... |
|