UID15208
帖子
精華
主題
積分115
現金
積極性
威望
違規
熱心
推廣次數
閱讀權限5
註冊時間2007-9-11
在線時間 小時
最後登錄1970-1-1
TA的每日心情 | 郁悶 2010-11-9 07:32 AM |
---|
簽到天數: 1 天 連續簽到: 0 天 [LV.1]初來乍到
|

樓主 |
發表於 2010-11-19 22:45:24
|
顯示全部樓層
function script Mod_F10_Script {
if ( $@ModF_PTimer == 1 ) {
announce "道館傳送員 : 有玩家正在報名中,請稍後或等待 30 秒鐘!",bc_self,0xFF0000;
close; }
set $@ModF_PTimer,1;
initnpctimer "ModF_PTimer";
if ( getcharid(1) == 0 ) {
mes "[道館傳送員]";
mes "對不起,您沒有加入任何隊伍!";
mes "無法參加挑戰賽。";
set $@ModF_PTimer,0;
close; }
for ( set @MnF,1; @MnF <= 8; set @MnF,@MnF+1 ) {
if ( getmapusers("pvp_n_"+@MnF+"-2.gat") == 0 ) set $ModFPID[@MnF],0; }
for ( set @MnF,1; @MnF <= 8; set @MnF,@MnF+1 ) {
if ( getcharid(1) == $ModFPID[@MnF] ){
mes "[道館傳送員]";
mes "您好,我是道館傳送員。";
mes "您是 [^FF0000"+getpartyname(getcharid(1))+"^000000] 的隊員吧!";
mes "請問有需要為您服務嗎?";
next;
if (select("我要參加挑戰!","不小心點到!")==1) {
if ( $@ModF_PTimer == 0 ) {
announce "道館傳送員 : 已超過報名時間!請您在重新報名一次。",bc_self,0xFF0000;
close; }
set $@ModF_PTimer,0;
if ( $@ModFStart[@MnF] == 1 ) {
mes "[道館傳送員]";
mes "您的隊友已經開始挑戰了,";
mes "請稍後或加入其他隊伍另外報名參加!";
close; }
if ( zeny < $@ModFPZeny ) {
mes "[道館傳送員]";
mes "對不起,您沒有足夠的金錢!";
close; }
if ( getmapusers("pvp_n_"+@MnF+"-2.gat") >= $@ModFPlayer ) {
mes "[道館傳送員]";
mes "隊伍 [^FF0000"+getpartyname(getcharid(1))+"^000000] 參加的人數已滿,";
mes "請稍後或加入其他隊伍另外報名參加!";
close; }
set zeny,zeny - $@ModFPZeny;
warpparty "pvp_n_"+@MnF+"-2.gat",99,99,getcharid(1);
end; }
mes "[道館傳送員]";
mes "那您以後別在那麼不小心哩!";
set $@ModF_PTimer,0;
close; } }
//====================================================//
mes "[道館傳送員]";
mes "您好,我是道館傳送員。";
mes "您和您的隊伍要報名參加挑戰賽嗎?";
mes "報名費: 10萬 ";
mes "請問有需要為您服務嗎?";
next;
if (select("我要參加挑戰!","不小心點到!")==1) {
if ( $@ModF_PTimer == 0 ) {
announce "道館傳送員 : 已超過報名時間!請您在重新報名一次。",bc_self,0xFF0000;
close; }
set $@ModF_PTimer,0;
if ( Zeny < $@ModFZeny ) {
mes "[道館傳送員]";
mes "對不起,您沒有足夠的金錢!";
close; }
for ( set @MnF,1; @MnF <= 8; set @MnF,@MnF+1 ) {
if ( getmapusers("pvp_n_"+@MnF+"-2.gat") == 0 ) {
enablenpc "道館裁判#"+@MnF+"";
killmonsterall "pvp_n_"+@MnF+"-2.gat";
set Zeny,Zeny - $@ModFZeny;
set $@ModFStart[@MnF],0;
set $ModFPID[@MnF],getcharid(1);
set $@ModFCID[@MnF],getcharid(0);
set $@GuanShu[@MnF],1;
warpparty "pvp_n_"+@MnF+"-2.gat",99,99,getcharid(1);
end; } }
mes "[道館傳送員]";
mes "所有場地都有隊伍在挑戰中,";
mes "請您稍後再試,謝謝!!";
close; }
mes "[道館傳送員]";
mes "那您以後別在那麼不小心哩!";
set $@ModF_PTimer,0;
close; }
//====================================================//
- script ModF_PTimer -1,{
OnTimer30000:
set $@ModF_PTimer,0;
setnpctimer 0;
end; }
//====================================================//
pvp_n_1-2.gat,87,100,4 script 道館裁判#1 758,{ callfunc "ModF_Referee",1; }
pvp_n_2-2.gat,87,100,4 script 道館裁判#2 758,{ callfunc "ModF_Referee",2; }
pvp_n_3-2.gat,87,100,4 script 道館裁判#3 758,{ callfunc "ModF_Referee",3; }
pvp_n_4-2.gat,87,100,4 script 道館裁判#4 758,{ callfunc "ModF_Referee",4; }
pvp_n_5-2.gat,87,100,4 script 道館裁判#5 758,{ callfunc "ModF_Referee",5; }
pvp_n_6-2.gat,87,100,4 script 道館裁判#6 758,{ callfunc "ModF_Referee",6; }
pvp_n_7-2.gat,87,100,4 script 道館裁判#7 758,{ callfunc "ModF_Referee",7; }
pvp_n_8-2.gat,87,100,4 script 道館裁判#8 758,{ callfunc "ModF_Referee",8; }
//====================================================//
function script ModF_Referee {
if ( getcharid(0) != $@ModFCID[@MnF] ) {
mes "[道館裁判]";
mes "請確認報名程序,避免卡關";
for ( set @MnF,1; @MnF <= 8; set @MnF,@MnF+1 ) {
if ( getmapusers("pvp_n_"+@MnF+"-2.gat") == 0 ) set $ModFPID[@MnF],0; }
for ( set @MnF,1; @MnF <= 8; set @MnF,@MnF+1 ) {
if ( getcharid(1) == $ModFPID[@MnF] ){
mes "您是 [^FF0000"+getpartyname(getcharid(1))+"^000000] 的隊員!";
mes "請妳確認後,在攻擊怪物";
next;
menu
"我要報名",LD,
"我點錯了",LC;
LD:
announce "道館隊員報名員 : "+ strcharinfo(0) +",完成報名程序!",Bc_map,0xFF0000;
next;
close;
LC:
mes "[道館裁判]";
mes "那您以後別在那麼不小心哩!";
set $@ModF_PTimer,0;
close; } }
close; }
mes "[道館裁判]";
mes "您好,我是道館裁判。";
mes "^FF1493請確認隊友有跟我報名,避免卡關^000000";
mes "請問有需要為您服務嗎?";
next;
switch(select("隊友都報名了,開始挑戰!","不小心點到!")) {
case 1:
set $@ModFStart[@MnF],1;
disablenpc "道館裁判#"+@MnF+"";
set $@ModFQuantity[@MnF],$@GuanShuMod[$@GuanShu[@MnF]];
doevent "ModF_Mod::OnSummon_ModF";
close;
end;
case 2:
mes "[道館裁判]";
mes "那您以後別在那麼不小心哩!";
close; } }
//====================================================//
- script ModF_Mod -1,{
OnSummon_ModF:
set $@ModF,rand(1,$@ModFNumber);
set $@ModFQuantity[@MnF],$@ModFQuantity[@MnF]-1;
monster "pvp_n_"+@MnF+"-2.gat",99,99,"--ja--",$@ModFName[$@ModF],1,"ModF_Mod::OnKill_ModF";
if ( $@GuanShu[@MnF] == getarraysize($@GuanShuMod) - 1 ) {
announce "道館裁判 : 魔物出現了,請加油!",17;
end; }
announce "道館裁判 : 魔物放出,挑戰開始!",1;
end;
OnKill_ModF:
if ( $@ModFQuantity[@MnF] != -1 ) {
addtimer 2500,"ModF_Mod::OnSummon_ModF";
end; }
if ( $@GuanShu[@MnF] == $@AllGuanShu ) {
announce "隊伍 ["+getpartyname($ModFPID[@MnF])+"] ,挑戰道館成功!!",15;
areawarp "pvp_n_"+@MnF+"-2.gat",0,0,300,300,"guild_room.gat",48,69;
end; }
set @CheckRests,0;
CheckRests:
if ( getarraysize($@RestsGuanShu) > @CheckRests ){
if ( $@GuanShu[@MnF] == $@RestsGuanShu[@CheckRests] ) {
set $@GuanShu[@MnF],$@GuanShu[@MnF] +1;
announce "道館裁判 : 休息時間,請準備好在開始挑戰!",17;
enablenpc "道館裁判#"+@MnF+"";
end; }
set @CheckRests,@CheckRests+1;
goto CheckRests; }
set $@GuanShu[@MnF],$@GuanShu[@MnF] +1;
set $@ModFQuantity[@MnF],$@GuanShuMod[$@GuanShu[@MnF]];
addtimer 5000,"ModF_Mod::OnSummon_ModF";
end; }
//====================================================//
guild_room.gat,48,74,4 script 物品獎勵員#1 736,{
{
set @GetItem,rand(1,$@ModFReItemNumber);
getitem $@ModFReItem[@GetItem],$@ModFReItemMax[@GetItem];
warp "splendide",216,119;
} close; }
guild_room.gat,37,74,4 script 獎金獎勵員#2 920,{
{
set @GetZeny,rand($@ModFReZeny,$@ModFReZenyMax);
set zeny,zeny + @GetZeny;
warp "splendide",216,119;
} close; }
guild_room.gat,60,74,4 script 點數獎勵員#3 936,{
{
set @GetCash,rand($@ModFReCash,$@ModFReCashMax);
set #CASHPOINTS,#CASHPOINTS + @GetCash;
warp "splendide",216,119;
} close; } |
|