UID58752
帖子
精華
主題
積分448
現金
積極性
威望
違規
熱心
推廣次數
閱讀權限5
註冊時間2008-2-4
在線時間 小時
最後登錄1970-1-1
TA的每日心情 | 慵懶 2015-11-21 02:01 AM |
---|
簽到天數: 3 天 連續簽到: 1 天 [LV.2]偶爾看看I
|

樓主 |
發表於 2009-3-22 04:18:13
|
顯示全部樓層
本帖最後由 jj24267272 於 2009-3-22 04:36 AM 編輯
//---------------設定--------------
monk_test.gat,319,148,0 script modaOnInit -1,{
OnInit:
//------開道費用----
set $@camoney,1000;
//------隊友進場費用---
set $@capartm,1000;
//-------mvp--------
setarray $@mvpary[1],1399,1252,1059,1087,1251,1038,1272,1719,1373,1399,1252,1059,1087,1251,1038,1272,1719,1373,1399,1252,1059,1087,1251,1038,1272,1719,1373,1399,1252,1059,1087,1251,1038,1272,1719,1373,1399,1252,1059,1087,1251,1038,1272,1719,1373,1399,1252,1059,1087,1251,1038,1272,1719,1373,1399,1252,1059,1087,1251,1038,1272,1719,1373,1399,1252,1059,1087,1251,1038,1272,1719,1373,1399,1252,1059,1087,1251,1038,1272,1719,1373,1399,1252,1059,1087,1251,1038,1272,1719,1373;
//-------放出mvp數量---
setarray $@stagmo[1],5,5,5,5,5,5,5,5,5,10;
}
payon.gat,186,136,4 script Amd-PVP道場管理員 772,{
if (getcharid(1) == 0) {
mes "[Amd-PVP道場管理員]";
mes "您沒有隊伍";
mes "無法參賽";
close;
end;
}
set @da,1;
cada: if (@da<3) {
if(getmapusers("guild_vs"+@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 "[Amd-PVP道場管理員]";
mes "您是^22DD22" +getpartyname(getcharid(1))+ "^000000的隊員吧";
mes "你的隊員已報名挑戰,你要參與嗎?";
next;
menu "好的",cas1,"不用了",cas2;
cas1:
if($@partywait[@da]==0) {
mes "[Amd-PVP道場-管理員]";
mes "你的隊友已經先開始了";
mes "請你等待或換個隊伍另外挑戰!";
close;
end;
}
if (zeny<$@capartm) {
mes "金錢不夠^22DD22"+$@capartm+"^000000";
close;
end;
}
set zeny,zeny-$@capartm;
warp "guild_vs"+@da+".gat",49,47;
end;
cas2:
mes "[Amd-PVP道場管理員]";
mes "歡迎下次再來。";
close;
end;
}
set @da,@da+1;
goto cbda;
}
mes "[Amd-PVP道場管理員]";
mes "這是最強道館的報名處";
mes "只要你可以突破10關艱難的考驗";
mes "就可以跟天才歪領取";
mes "^FF3355ALL+15^000000的手製巧克力^FF335550個^000000";
next;
mes "[Amd-PVP道場管理員]";
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("guild_vs"+@da+".gat")==0 ) {
set zeny,zeny-$@camoney;
killmonsterall "guild_vs"+@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 "guild_vs"+@da+".gat",49,47;
end;
}
set @da,@da+1;
goto ccda;
}
mes "全部場地都有人在挑戰中~,請稍後再試";
close;
end;
nosmit:
mes "[Amd-PVP道場管理員]";
mes "歡迎下次再來。";
close;
end;
L_START:
mes "[Amd-PVP道場管理員]";
mes "gm不能參與";
close;
end;
}
guild_vs1.gat,50,50,0 script chal_1 -1,{ Onka: callfunc "daryan",1; }
guild_vs2.gat,50,50,0 script chal_2 -1,{ Onka: callfunc "daryan",2; }
guild_vs3.gat,50,50,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,18);
monster "guild_vs"+getarg(0)+".gat",50,50,"--ja--",$@mvpary[$@mvp],1,"npcev"+getarg(0)+"::Onvs";
set $@db[getarg(0)],$@db[getarg(0)]+1;
goto moda;
}
if($stage[getarg(0)]==10){
end;}
end;
}
guild_vs1.gat,50,55,0 script npcev1 -1,{ Onvs: callfunc "vsryan",1; }
guild_vs2.gat,50,55,0 script npcev2 -1,{ Onvs: callfunc "vsryan",2; }
guild_vs3.gat,50,55,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){
areawarp "guild_vs"+getarg(0)+".gat",0,0,300,300,"guild_room",42,285;
end;
}
set $stage[getarg(0)],$stage[getarg(0)] +1;
addtimer 4000,"chal_"+getarg(0)+"::Onka";
end;
}
//####################################裁判####################################
guild_vs1.gat,50,49,4 script 裁判1 775,{ callfunc "maker",1; }
guild_vs2.gat,50,49,4 script 裁判2 775,{ callfunc "maker",2; }
guild_vs3.gat,50,49,4 script 裁判3 775,{ callfunc "maker",3; }
function script maker {
if (getcharid(0) != $@charid[getarg(0)]) {
mes "[Amd-PVP裁判]";
mes "你不是報名的人";
close;
end;
}
mes "[Amd-PVP裁判]";
mes "您準備要開始挑戰了嗎?";
next;
menu "準備好!!",redyok,"等等~",noready;
redyok: killmonsterall "guild_vs"+getarg(0)+".gat";
set $@partywait[getarg(0)],0;
disablenpc "裁判"+getarg(0);
doevent "chal_"+getarg(0)+"::Onka";
close;
end;
noready: mes "[Amd-PVP裁判]";
mes "好的, 請盡速開始!!";
close;
end;
}
//---------------------地圖屬性設定----------------------
guild_vs1.gat mapflag nomemo dummy
guild_vs1.gat mapflag noteleport dummy
guild_vs1.gat mapflag nobloot dummy
guild_vs1.gat mapflag nosave payon.gat,184,106
guild_vs1.gat mapflag nopenalty dummy
guild_vs2.gat mapflag nomemo dummy
guild_vs2.gat mapflag noteleport dummy
guild_vs2.gat mapflag nobloot dummy
guild_vs2.gat mapflag nosave payon.gat,184,106
guild_vs2.gat mapflag nopenalty dummy
guild_vs3.gat mapflag nomemo dummy
guild_vs3.gat mapflag noteleport dummy
guild_vs3.gat mapflag nobloot dummy
guild_vs3.gat mapflag nosave payon.gat,184,106
guild_vs3.gat mapflag nopenalty dummy
guild_room.gat mapflag nomemo dummy
guild_room.gat mapflag noteleport dummy
guild_room.gat mapflag nosave payon.gat,184,106
guild_room.gat mapflag nopenalty dummy
//============================發放獎品NPC=======================
guild_room.gat,31,285,4 script Amd-PVP天才歪 759,{
mes "[Amd-PVP天才歪]";
mes "!!!";
next;
mes "[Amd-PVP天才歪]";
mes "你可以來到這,真不簡單 Q A Q (奔";
next;
mes "[Amd-PVP天才歪]";
mes "為了獎勵你我就給你我親手製作的巧克力吧. -___-";
next;
mes "[Amd-PVP天才歪]";
mes "他的效果是^FF3355ALL+15^000000哦! = P";
next;
getitem 559,50;
warp "payon.gat",184,106;
cancel:
close;
OnInit:
waitingroom "天才歪",0;
} |
|