道館--開始問題

cwjh104 · 發表於 2010-9-15 18:11:08

有時候報名後進去點NPC 他會說你不是報名的人
退組重新組隊也一樣問題不知道出在哪之前不會但是突然出現這問題

prontera.gat,148,182,0 script modaOnInit -1,{
OnInit:
//------開道費用----
set $@camoney,5000000;
//------隊友進場費用---
set $@capartm,1000000;
//--------MVPid-------
setarray $@mvpary[1],1779,1039,1046,1871,1086,1087,1112,1115,1147,1150,
1157,1159,1190,1251,1252,1272,1312,1373,1389,1418,
1492,1511,1583,1623,1646,1647,1648,1649,1650,1651,
1658,1685,1688,1708,1719,1734,1751,1768,1779,1785,
1832,1871,1874,1885;
//-------休息關數------
setarray $@kenbrea[1],5,9;
//-------放出mvp數量---
//這里設了多少他就有多少關
//最多127關
setarray $@stagmo[1],1,1,1,1,1,2,2,2,2,3;
//====================================================//
//--- 道館獎勵員的相關設定 , 請各伺服器依情況斟酌 ---
//----- 道館獎勵的獎金設定 -----
//----- 獎勵金額最少能夠取得多少 (預設 100萬 Zeny) (單位：萬元)
set $@ModFReMinZeny,900;
//----- 獎勵金額最多能夠取得多少 (預設 500萬 Zeny) (單位：萬元)
set $@ModFReMaxZeny,3000;
//----- 道館獎勵的商城點數設定 -----
//----- 獎勵商城點數最少能夠取得多少 (預設 10 點)
set $@ModFReMinCash,50;
//----- 獎勵商城點數最多能夠取得多少 (預設 30 點)
set $@ModFReMaxCash,200;
//----- 道館獎勵的獎品設定 -----
//----- 獎勵獎品能夠取得的物品
setarray $@ModFReItemAID[1],5421,5447,5399,5401,5387,4707,4717,4709,4719,4729,4737,4747,4757,5468,5474,5498,5508,5520,5343,5344,5345,5371,5182,5185,12904,12905,12906,12907,12908,12918,5156,5151,5198,5225,5410,5421,5420,5447,5445,5255;
//----- 獎勵獎品能夠取得的數量
setarray $@ModFReItemNum[1],1,1,1,1,1,3,3,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1;
//====================================================//
//--- Script 執行時的特殊設定 , 請各伺服器勿亂做更改 ---
set $@ModFModIDSize,(getarraysize($@ModFModID)-1);
set $@ModFItemSize,(getarraysize($@ModFReItemAID)-1);
set $@ModFGuanSize,(getarraysize($@ModFGuanMod)-1);
}
gonryun.gat,144,116,4 script 進階道場管理員::duplicateV1 767,{
if (getcharid(1) == 0) {
mes "[道場-管理員]";
mes "您沒有隊伍";
mes "無法參賽";
close;
end;
}
set @da,1;
cada: if (@da<5) {
if(getmapusers("guild_vs"+@da+".gat")==0 ) set $party[@da],0;
set @da,@da+1;
goto cada;
}
set @da,1;
cbda: if (@da<5) {
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 "guild_vs"+@da+".gat",49,47;
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<5) {
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 "[道場-管理員]";
mes "歡迎下次再來。";
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; }
guild_vs4.gat,50,50,0 script chal_4 -1,{ Onka: callfunc "daryan",4; }
guild_vs5.gat,50,50,0 script chal_5 -1,{ Onka: callfunc "daryan",5; }
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)]==getarraysize($@stagmo)){
announce "最後一關挑戰開始,請好好加油！",17;
end;}
announce "魔物放出！挑戰開始！",1;
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; }
guild_vs4.gat,50,55,0 script npcev4 -1,{ Onvs: callfunc "vsryan",4; }
guild_vs5.gat,50,55,0 script npcev5 -1,{ Onvs: callfunc "vsryan",5; }
function script vsryan {
set $@db[getarg(0)],$@db[getarg(0)] -1;
if( $@db[getarg(0)] > 0 ) end;
if($stage[getarg(0)]<getarraysize($@stagmo)){announce "隊伍:" +getpartyname($party[getarg(0)]) + ",　第" + $stage[getarg(0)] + "關挑戰成功！",1;}
if($stage[getarg(0)]==10){
announce "恭喜！！隊伍:" +getpartyname($party[getarg(0)]) + ", 成功闖過關！！",15;
areawarp "guild_vs"+getarg(0)+".gat",0,0,300,300,"guild_room",42,369;
}
set @dk,0;
dken: if(getarraysize(@dk">$@kenbrea)>@dk){
if($stage[getarg(0)]==$@kenbrea[@dk]){
enablenpc "裁判"+getarg(0);
announce "休息時間..你的同伴可進場",17;
set $@partywait[getarg(0)],1;
set $stage[getarg(0)],$stage[getarg(0)] +1;
end;
}
set @dk,@dk+1;
goto dken;
}
if($stage[getarg(0)]==25){
areawarp "guild_vs"+getarg(0)+".gat",0,0,300,300,"guild_room",42,285;
end;
}
if($stage[getarg(0)]==50){
areawarp "guild_vs"+getarg(0)+".gat",0,0,300,300,"new_1-2",100,100;
end;
}
if($stage[getarg(0)]==getarraysize($@stagmo)){
areawarp "guild_vs"+getarg(0)+".gat",0,0,300,300,"new_1-2",100,100;
end;
}
set $stage[getarg(0)],$stage[getarg(0)] +1;
addtimer 4000,"chal_"+getarg(0)+"::Onka";
end;
}
//####################################裁判####################################
guild_vs1.gat,50,49,4 script 裁判1 758,{ callfunc "maker",1; }
guild_vs2.gat,50,49,4 script 裁判2 758,{ callfunc "maker",2; }
guild_vs3.gat,50,49,4 script 裁判3 758,{ callfunc "maker",3; }
guild_vs4.gat,50,49,4 script 裁判4 758,{ callfunc "maker",4; }
guild_vs5.gat,50,49,4 script 裁判5 758,{ callfunc "maker",5; }
function script maker {
if (getcharid(0) != $@charid[getarg(0)]) {
mes "[裁判]";
mes "你不是報名的人";
close;
end;
}
mes "[裁判]";
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 "[裁判]";
mes "好的, 請盡速開始!!";
close;
end;
}
//---------------------地圖屬性設定----------------------
guild_vs1.gat mapflag nomemo dummy
guild_vs1.gat mapflag noteleport dummy
guild_vs1.gat mapflag nosave prontera.gat,148,180
guild_vs1.gat mapflag nopenalty dummy
guild_vs1.gat mapflag nobranch dummy
guild_vs2.gat mapflag nomemo dummy
guild_vs2.gat mapflag noteleport dummy
guild_vs2.gat mapflag nosave prontera.gat,148,180
guild_vs2.gat mapflag nopenalty dummy
guild_vs2.gat mapflag nobranch dummy
guild_vs3.gat mapflag nomemo dummy
guild_vs3.gat mapflag noteleport dummy
guild_vs3.gat mapflag nosave prontera.gat,148,180
guild_vs3.gat mapflag nopenalty dummy
guild_vs3.gat mapflag nobranch dummy
guild_vs4.gat mapflag nomemo dummy
guild_vs4.gat mapflag noteleport dummy
guild_vs4.gat mapflag nosave prontera.gat,148,180
guild_vs4.gat mapflag nopenalty dummy
guild_vs4.gat mapflag nobranch dummy
guild_vs5.gat mapflag nomemo dummy
guild_vs5.gat mapflag noteleport dummy
guild_vs5.gat mapflag nosave prontera.gat,148,180
guild_vs5.gat mapflag nopenalty dummy
guild_vs5.gat mapflag nobranch dummy
guild_room.gat mapflag nomemo dummy
guild_room.gat mapflag noteleport dummy
guild_room.gat mapflag nosave prontera.gat,148,180
guild_room.gat mapflag nopenalty dummy
guild_room.gat mapflag nobranch dummy

複製代碼

附上腳本

sinya · 發表於 2010-9-15 19:04:43

本帖最後由 sinya 於 2010-9-15 10:38 PM 編輯

if (getcharid(0) != $@charid[getarg(0)])

改

if (getcharid(0) != $@charid[@da])

cwjh104 · 發表於 2010-9-15 20:57:58

回報還是一樣勒一妳的方法跟改還是一樣
一開始報名他不是會把報名人做記號然後依據記號來確認是否為報名的人?
那怎進去會說不是.....囧

sinya · 發表於 2010-9-15 22:55:13

@da的值有問題

陣列存的charid 沒按預定的存吧

你可以寫語法將陣列的值全都列出來找出原因

cwjh104 · 發表於 2010-9-15 23:48:13

感謝解決了^^ 新苦囉

		自動登錄	找回密碼
密碼			註冊

道館--開始問題

本帖子中包含更多資源

瀏覽過的版塊