EA道館腳本問題 ♥

skygame-5

comodo.gat,196,297,4 script 道場挑戰專員 409,{
if (getcharid(1) == 0) {
mes "[道場-管理員]";
mes "您沒有隊伍";
mes "無法參賽";
close;
end;
}
set @da,1;
cada: if (@da<5) {
if(getmapusers("guild_vs"[email=+@da+]+@da+".gat")==0[/email] ) set $party[@da],0;
set @da,@da+1;
goto cada;
}
set @da,1;
cbda: if (@da<5) {
if (getcharid(1) == $party[@da]){
if(@talk==1){
  mes " 嚴禁怪物傭兵進入!!";
  mes " 請重新登入!!";
  close;
}
mes "[道場-管理員]";
mes "您是^22DD22" +getpartyname(getcharid(1))+ "^000000的隊員吧";
mes "你的隊員已報名挑戰,你要參與嗎？";
next;
menu "好的",cas1,"不用了",cas2;
cas1:
  if([email=$@partywait[@da]==0]$@partywait[@da]==0[/email]) {
   mes "[道場-管理員]";
   mes "你的隊友已經先開始了";
   mes "請你等待或換個隊伍另外挑戰！";
   close;
   end;
  }
  if (zeny<[email=$@capartm]$@capartm[/email]) {
  mes "金錢不夠^22DD22"[email=+$@capartm+]+$@capartm+"^000000[/email]";
  close;
  end;
  }
  set zeny,zeny-$@capartm;
  warp "guild_vs"[email=+@da+]+@da+".gat",49,47[/email];
  end;
cas2:   
  mes "[道場-管理員]";
  mes "歡迎下次再來。";
  close;
  end;
}
set @da,@da+1;
goto cbda;
}
if(@talk==1){
  mes " 嚴禁怪物傭兵進入!!";
  mes " 請重新登入!!";
  close;
}
mes "[道場-管理員]";
mes "您和您的隊伍想參加嗎？";
mes "須先繳納 ^22DD22"[email=+$@camoney+]+$@camoney+"^000000[/email] 元的報名費";
next;
menu "報名",smit,"不了",nosmit;
smit: if (zeny<[email=$@camoney]$@camoney[/email]) {
  mes "金錢不夠^22DD22"[email=+$@camoney+]+$@camoney+"^000000[/email]";
  close;
  end;
  }
  set @da,1;
ccda: if(@da<5) {
   if (getmapusers("guild_vs"[email=+@da+]+@da+".gat")==0[/email] ) {
   set zeny,zeny-$@camoney;
   killmonsterall "guild_vs"[email=+@da+]+@da+".gat[/email]";
   set [email=$@partywait[@da],1]$@partywait[@da],1[/email];
   set $stage[@da],1;
   set $party[@da],getcharid(1);
   set [email=$@charid[@da],getcharid(0]$@charid[@da],getcharid(0[/email]);
   announce "請 [" + getpartyname($party[@da]) + "] 隊伍的隊員,要進入就在克魔島主城 找 [道場-管理員]",16;
   enablenpc "裁判"[email=+@da]+@da[/email];
   warp "guild_vs"[email=+@da+]+@da+".gat",49,47[/email];
   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; }

function script daryan {
set [email=$@db[getarg(0)],0]$@db[getarg(0)],0[/email];
moda: if([email=$@db[getarg(0)]<$@stagmo[$stage[getarg(0]$@db[getarg(0)]<$@stagmo[$stage[getarg(0[/email])]]){
set [email=$@mvp,rand(1,18]$@mvp,rand(1,18[/email]);
monster "guild_vs"+getarg(0)+".gat",50,50,"--ja--",$@mvpary[$@mvp],1,"npcev"+getarg(0)+"::Onvs";
set [email=$@db[getarg(0)],$@db[getarg(0)]+1]$@db[getarg(0)],$@db[getarg(0)]+1[/email];
goto moda;
}
if($stage[getarg(0)]==10){
  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; }

function script vsryan {
set [email=$@db[getarg(0)],$@db[getarg(0]$@db[getarg(0)],$@db[getarg(0[/email])] -1;
if( [email=$@db[getarg(0]$@db[getarg(0[/email])] > 0 ) end;
if($stage[getarg(0)]==10){announce "恭喜！！隊伍:"  +getpartyname($party[getarg(0)]) + ", 成功闖過十關！！",15;}
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 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; }
function script maker {
if (getcharid(0) != [email=$@charid[getarg(0]$@charid[getarg(0[/email])]) {
  mes "[裁判]";
  mes "你不是報名的人";
  close;
  end;
}
mes "[裁判]";
mes "您準備要開始挑戰了嗎？";
next;
menu "準備好!!",redyok,"等等~",noready;
redyok: killmonsterall "guild_vs"+getarg(0)+".gat";
  set [email=$@partywait[getarg(0)],0]$@partywait[getarg(0)],0[/email];
  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_vs1.gat mapflag monster_noteleport dummy
guild_vs2.gat mapflag monster_noteleport dummy
guild_vs3.gat mapflag monster_noteleport 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

//============================發放獎品NPC=======================
guild_room.gat,30,285,4 script 獎品發放員 736,{
         percentheal 100,100;
  getitem 607,3;
  set kmob,kmob+50;
set #CASHPOINTS,#CASHPOINTS+rand(30,70);
dispbottom "您的 CASH 點數已累積 " + #CASHPOINTS + " 點。";
  warp "comodo.gat",205,308;
  close;
cancel:
  close;
OnInit:
//------開道費用----
set [email=$@camoney,1]$@camoney,1[/email];
//------隊友進場費用---
set [email=$@capartm,1]$@capartm,1[/email];
//-------mvp--------
setarray [email=$@mvpary[1],1038,1039,1046,1059,1086,1087,1112,1115,1147,1150]$@mvpary[1],1038,1039,1046,1059,1086,1087,1112,1115,1147,1150[/email],
        1157,1251,1623,1511,1159,1190,1272,1312,1373,1389,1418,1492,1623,1685,1630,1658,1708,1734,1751,1768,1779,1785;
//-------放出mvp數量---
setarray [email=$@stagmo[1],1,1,1,1,1,1,1,1,1,2]$@stagmo[1],1,1,1,1,1,1,1,1,1,2[/email];

//-------可抽得的獎品id-----
setarray [email=$@ken0609[1],501,502,503,504,505,506,507,508,509,510]$@ken0609[1],501,502,503,504,505,506,507,508,509,510[/email],
         511,512,513,514,515,516,517,518,1139,1146;
//------1次領獎數目----
//對應-可抽得的獎品id-設定
setarray [email=$@ken[1],1,1,1,1,1,1,1,1,1,1]$@ken[1],1,1,1,1,1,1,1,1,1,1[/email],
     1,1,1,1,1,1,1,1,1,1;
}

如何在此添加新的MVP

[ 本帖最後由 skygame-5 於 2008-11-23 08:50 PM 編輯 ]

goddameit

===========================

//-------mvp--------
setarray $@mvpary[1],
1038,1039,1046,1059,1086,1087,1112,1115,1147,1150,        1157,1251,1623,1511,1159,1190,1272,1312,1373,1389,1418,1492,1623,1685,1630,1658,1708,1734,1751,1768,1779,1785;

===========================

set $@mvp,rand(1,29);

===========================

整 理 好 再 發 問
一 堆 [/eamil]

秀、

如果要詢問這腳本的錯誤

那我建議可以重新參考他人

試著自己摸索看看　對個人也比較有幫助