CS_ea

jarkmail886 · 發表於 2014-4-19 19:47:07

本帖最後由 jarkmail886 於 2014-4-19 08:27 PM 編輯

map讀取沒問題

可是中階高階

打完第一隻map後不會出怪

mora.gat,38,122,3 script 中級道場挑戰 868,{
mes "=========道場挑戰========";
mes "- ^984AAC歡迎您參加道場的挑戰^000000";
mes "=========================";
next;
switch(select( "隊伍報名",
getgmlevel()?"GM在線設置":""
)){
case 1:
if (!getcharid(1)) {
mes "=========道場挑戰========";
mes "- ^C63131您沒有隊伍,無法參賽^000000";
mes "=========================";
close;
}
mes "=========道場挑戰========";
mes "- 報名費 : "+$@Dc_In_Zeny+"z";
mes "=========================";
next;
menu "想參加",-;
if ( Zeny<$@Dc_In_Zeny ){
mes "=========道場挑戰========";
mes "- ^C63131金錢不足^000000,快去銀行取錢";
mes "=========================";
close;
}
if ( getmapusers("guild_vs4.gat")==0 ){
killmonster "guild_vs4.gat","ZJDc_Main_1::OnKillMob";
warpparty "guild_vs4.gat",50,50,getcharid(1);
set Zeny,Zeny-$@Dc_In_Zeny;
set $@Dc_Truns_1,1;
set $@Dc_Party_1,getcharid(1);
enablenpc "中級中級裁判#1";
}else if ( getmapusers("guild_vs1-1.gat")==0 ){
killmonster "guild_vs1-1.gat","ZJDc_Main_2::OnKillMob";
warpparty "guild_vs1-1.gat",50,50,getcharid(1);
set Zeny,Zeny-$@Dc_In_Zeny;
set $@Dc_Truns_2,1;
set $@Dc_Party_2,getcharid(1);
enablenpc "中級中級裁判#2";
}else if ( getmapusers("guild_vs1-2.gat")==0 ){
killmonster "guild_vs1-2.gat","ZJDc_Main_3::OnKillMob";
warpparty "guild_vs1-2.gat",50,50,getcharid(1);
set Zeny,Zeny-$@Dc_In_Zeny;
set $@Dc_Truns_3,1;
set $@Dc_Party_3,getcharid(1);
enablenpc "中級中級裁判#3";
}else if ( getmapusers("guild_vs1-3.gat")==0 ){
killmonster "guild_vs1-3.gat","ZJDc_Main_5::OnKillMob";
warpparty "guild_vs1-3.gat",50,50,getcharid(1);
set Zeny,Zeny-$@Dc_In_Zeny;
set $@Dc_Truns_5,1;
set $@Dc_Party_5,getcharid(1);
enablenpc "中級中級裁判#5";
}else{
mes "=========道場挑戰========";
mes "[場地一]隊伍: ["+getpartyname($@Dc_Party_1)+"]";
mes "[場地二]隊伍: ["+getpartyname($@Dc_Party_2)+"]";
mes "[場地三]隊伍: ["+getpartyname($@Dc_Party_3)+"]";
mes "[場地四]隊伍: ["+getpartyname($@Dc_Party_5)+"]";
mes "全部場地都有人在挑戰了,請稍後再試";
mes "=========================";
close;
}
end;
case 2:
mes "=========^CA2CCB基本信息^000000========";
mes "- ^467BB0報名費^000000 : "+$@Dc_In_Zeny+"z";
mes "- ^639485關數^000000 : "+$@Dc_Conf_Turns+"關(輪)";
mes "- ^A5527B刷怪數^000000 : "+$@Dc_Conf_Nums+"只";
mes "=========^82985F獎勵信息^000000========";
mes "- ^A36B54金錢獎^000000 : "+$@Dc_Win_Zeny+"z";
mes "- ^676394物品獎^000000 :";
for (set @i,0;@i<getarraysize($@Dc_Item_Id);set @i,@i+1)
mes "- ["+getitemname($@Dc_Item_Id[@i])+"] x "+$@Dc_Item_Nums;
mes "- 在以上物品中隨即給任意一件";
mes "=========================";
next;
do {
switch(select( "設置報名費",
"設置關數",
"設置刷怪數",
"設置金錢獎勵",
"設置物品獎勵"
)){
case 1:
mes "========設置報名費========";
mes "- 請輸入報名費 (單位:z)";
mes "==========================";
next;
input @Dc_temp;
set $@Dc_In_Zeny,@Dc_temp;
mes "========設置報名費========";
mes "- ^46B046設置成功^000000";
mes "==========================";
next;
break;
case 2:
mes "=========設置關數=========";
mes "- 請輸入關數 (最少2關)";
mes "==========================";
next;
input @Dc_temp;
if (@Dc_temp<2){
mes "=========設置關數=========";
mes "- ^C63131設置有誤^000000";
mes "==========================";
}else{
set $@Dc_Conf_Turns,@Dc_temp;
mes "=========設置關數=========";
mes "- ^46B046設置成功^000000";
mes "==========================";
}
next;
break;
case 3:
mes "========設置刷怪數========";
mes "- 請輸入刷怪數 (最少1只)";
mes "==========================";
next;
input @Dc_temp;
if (@Dc_temp<1){
mes "========設置刷怪數========";
mes "- ^C63131設置有誤^000000";
mes "==========================";
}else{
set $@Dc_Conf_Nums,@Dc_temp;
mes "========設置刷怪數========";
mes "- ^46B046設置成功^000000";
mes "==========================";
}
next;
break;
case 4:
mes "=======設置金錢獎勵=======";
mes "- 請輸入金錢獎勵 (單位:z)";
mes "==========================";
next;
input @Dc_temp;
set $@Dc_Win_Zeny,@Dc_temp;
mes "=======設置金錢獎勵=======";
mes "- ^46B046設置成功^000000";
mes "==========================";
next;
break;
case 5:
mes "=======設置物品獎勵=======";
mes "- 獎勵在以下物品中隨即獲得";
mes "==========================";
next;
set @n,0;
set @o,(getarraysize($@Dc_Item_Id)%5)+5;
set @m,getarraysize($@Dc_Item_Id)/5;
if (@o>5) { set @m,@m+1; set @o,@o-5; }
do {
set @z,@n*5;
set @n,@n+1;
set @tmp,select((@n==1||getarraysize($@Dc_Item_Id)<6)?"":"↑上一頁↑",
$@Dc_Item_Id[0+@z]?getitemname($@Dc_Item_Id[0+@z]):"",
$@Dc_Item_Id[1+@z]?getitemname($@Dc_Item_Id[1+@z]):"",
$@Dc_Item_Id[2+@z]?getitemname($@Dc_Item_Id[2+@z]):"",
$@Dc_Item_Id[3+@z]?getitemname($@Dc_Item_Id[3+@z]):"",
$@Dc_Item_Id[4+@z]?getitemname($@Dc_Item_Id[4+@z]):"",
(@n<@m)?"↓下一頁↓":"");
set @y,(@tmp-2)+@z;
if(((@n<@m&&@tmp!=7)||(@n==@m&&@tmp!=(@o+2))) && @tmp !=1) break;
if(@tmp==1) set @n,@n-2;
} while(@n<@m);
mes "=======設置物品獎勵=======";
mes "- 您選擇的物品";
mes "- ["+getitemname($@Dc_Item_Id[@y])+"] x "+$@Dc_Item_Nums;
mes "- 您要做什麼操作?";
mes "==========================";
next;
switch(select("添加新物品","修改此物品","獎品數量修改")){
case 1:
mes "=======設置物品獎勵=======";
mes "- 請輸入需要添加物品item_id";
mes "==========================";
next;
input @Dc_temp;
mes "=======設置物品獎勵=======";
mes "- 您添加的物品為";
mes "- ["+getitemname(@Dc_temp)+"]";
mes "- 您確定麼?";
mes "==========================";
next;
menu "我確定",-;
set $@Dc_Item_Id[getarraysize($@Dc_Item_Id)],@Dc_temp;
mes "=======設置物品獎勵=======";
mes "- ^46B046設置成功^000000";
mes "==========================";
next;
break;
case 2:
mes "=======設置物品獎勵=======";
mes "- 請輸入需要修改物品item_id";
mes "==========================";
next;
input @Dc_temp;
mes "=======設置物品獎勵=======";
mes "- 您修改的物品為";
mes "- ["+getitemname(@Dc_temp)+"]";
mes "- 您確定麼?";
mes "==========================";
next;
menu "我確定",-;
set $@Dc_Item_Id[@y],@Dc_temp;
mes "=======設置物品獎勵=======";
mes "- ^46B046設置成功^000000";
mes "==========================";
next;
break;
case 3:
mes "=======設置物品獎勵=======";
mes "- 請輸入物品數量 (最少1件)";
mes "==========================";
next;
input @Dc_temp;
if (@Dc_temp<1){
mes "=======設置物品獎勵=======";
mes "- ^C63131設置有誤^000000";
mes "==========================";
}else{
set $@Dc_Item_Nums,@Dc_temp;
mes "=======設置物品獎勵=======";
mes "- ^46B046設置成功^000000";
mes "==========================";
}
next;
break;
}
}
} while(1);
}
OnInit:
//設置入場金錢
set $@Dc_In_Zeny,15000;
//設置關數
set $@Dc_Conf_Turns,15;
//設置每關刷怪數
set $@Dc_Conf_Nums,2;
//設置怪物ID
setarray $@Dc_Mob[0],1038,1039,1046,1059,1086,1087,1112,1115,1147,1150,1157,1159,1190,1272,1312,1373,1389,1492,1708,1719,1734,1751,1768,1779,1785,1658,1630,1832,1874,1871,1646,1647,1648,1649,1650,1651;
//設置物品獎勵
//[物品 ID ]
setarray $@Dc_Item_Id[0],2630,1530,2629,2410,12208,969,7036,7019,7079,7081,710,1015,7085,7087,7025,7253,7169,7248,7253,749,7086;
//[物品數量]
set $@Dc_Item_Nums,1;
//[金錢獎勵]
set $@Dc_Win_Zeny,2000000;
end;
}
/**************
[場地一]
**************/
guild_vs4.gat,0,0,0 script ZJDc_Main_1 -1,{
OnMain:
killmonsterall "guild_vs4.gat";
set $@Dc_Mob_1,0;
for(set $@Dc1,1;$@Dc1<=$@Dc_Conf_Nums;set $@Dc1,$@Dc1+1) {
monster "guild_vs4.gat",50,49,"--ja--",$@Dc_Mob[rand(getarraysize($@Dc_Mob))],1,"ZJDc_Main_1::OnKillMob";
set $@Dc_Mob_1,$@Dc_Mob_1+1;
}
if ($@Dc_Truns_1 != $@Dc_Conf_Turns)
mapannounce "guild_vs4.gat","[ 道場 ] 魔物放出！挑戰開始！",15,0xBD3989;
else
mapannounce "guild_vs4.gat","[ 道場 ] 最後一關挑戰開始,請好好加油！",15,0xBD3989;
end;
OnKillMob:
set $@Dc_Mob_1, $@Dc_Mob_1 - 1;
if( $@Dc_Mob_1 > 0 ) end;
mapannounce "guild_vs4.gat","[ 道場 ] 恭喜你,挑戰成功！",15,0x569AA0;
mapannounce "guild_vs4.gat","[ 道場 ] "+getpartyname($@Dc_Party_1)+" 隊伍, 第"+$@Dc_Truns_1+"關挑戰成功！",15,0xCB3A2C;
if($@Dc_Truns_1 == $@Dc_Conf_Turns) {
addtimer 5000,"ZJDc_Main_1::OnEnd";
end;
}
set $@Dc_Truns_1,$@Dc_Truns_1 + 1;
addtimer 5000,"ZJDc_Main_1::OnMain";
end;
OnEnd:
areawarp "guild_vs4.gat",0,0,300,300,"bat_room.gat",57,207;
end;
}
/**************
[場地二]
**************/
guild_vs1-1.gat,0,0,0 script ZJDc_Main_2 -1,{
OnMain:
killmonsterall "guild_vs1-1.gat";
set $@Dc_Mob_2,0;
for(set $@Dc2,1;$@Dc2<=$@Dc_Conf_Nums;set $@Dc2,$@Dc2+1) {
monster "guild_vs1-1.gat",50,49,"--ja--",$@Dc_Mob[rand(getarraysize($@Dc_Mob))],1,"ZJDc_Main_2::OnKillMob";
set $@Dc_Mob_2,$@Dc_Mob_2+1;
}
if ($@Dc_Truns_2 != $@Dc_Conf_Turns)
mapannounce "guild_vs1-1.gat","[ 道場 ] 魔物放出！挑戰開始！",15,0xBD3989;
else
mapannounce "guild_vs1-1.gat","[ 道場 ] 最後一關挑戰開始,請好好加油！",15,0xBD3989;
end;
OnKillMob:
set $@Dc_Mob_2, $@Dc_Mob_2 - 1;
if( $@Dc_Mob_2 > 0 ) end;
mapannounce "guild_vs1-1.gat","[ 道場 ] 恭喜你,挑戰成功！",15,0x569AA0;
mapannounce "guild_vs1-1.gat","[ 道場 ] "+getpartyname($@Dc_Party_2)+" 隊伍, 第"+$@Dc_Truns_2+"關挑戰成功！",15,0xCB3A2C;
if($@Dc_Truns_2 == $@Dc_Conf_Turns) {
addtimer 5000,"ZJDc_Main_2::OnEnd";
end;
}
set $@Dc_Truns_2,$@Dc_Truns_2 + 1;
addtimer 5000,"ZJDc_Main_2::OnMain";
end;
OnEnd:
areawarp "guild_vs1-1.gat",0,0,300,300,"bat_room.gat",57,207;
end;
}
/**************
[場地三]
**************/
guild_vs1-2.gat,0,0,0 script ZJDc_Main_3 -1,{
OnMain:
killmonsterall "guild_vs1-2.gat";
set $@Dc_Mob_3,0;
for(set $@Dc3,1;$@Dc3<=$@Dc_Conf_Nums;set $@Dc3,$@Dc3+1) {
monster "guild_vs1-2.gat",50,49,"--ja--",$@Dc_Mob[rand(getarraysize($@Dc_Mob))],1,"ZJDc_Main_3::OnKillMob";
set $@Dc_Mob_3,$@Dc_Mob_3+1;
}
if ($@Dc_Truns_3 != $@Dc_Conf_Turns)
mapannounce "guild_vs1-2.gat","[ 道場 ] 魔物放出！挑戰開始！",15,0xBD3989;
else
mapannounce "guild_vs1-2.gat","[ 道場 ] 最後一關挑戰開始,請好好加油！",15,0xBD3989;
end;
OnKillMob:
set $@Dc_Mob_3, $@Dc_Mob_3 - 1;
if( $@Dc_Mob_3 > 0 ) end;
mapannounce "guild_vs1-2.gat","[ 道場 ] 恭喜你,挑戰成功！",15,0x569AA0;
mapannounce "guild_vs1-2.gat","[ 道場 ] "+getpartyname($@Dc_Party_3) +" 隊伍, 第"+$@Dc_Truns_3+"關挑戰成功！",15,0xCB3A2C;
if($@Dc_Truns_3 == $@Dc_Conf_Turns) {
addtimer 5000,"ZJDc_Main_3::OnEnd";
end;
}
set $@Dc_Truns_3,$@Dc_Truns_3 + 1;
addtimer 5000,"ZJDc_Main_3::OnMain";
end;
OnEnd:
areawarp "guild_vs1-2.gat",0,0,300,300,"bat_room.gat",57,207;
end;
}
/**************
[場地四]
**************/
guild_vs1-3.gat,0,0,0 script ZJDc_Main_5 -1,{
OnMain:
killmonsterall "guild_vs1-3.gat";
set $@Dc_Mob_5,0;
for(set $@Dc5,1;$@Dc5<=$@Dc_Conf_Nums;set $@Dc5,$@Dc5+1) {
monster "guild_vs1-3.gat",50,49,"--ja--",$@Dc_Mob[rand(getarraysize($@Dc_Mob))],1,"ZJDc_Main_5::OnKillMob";
set $@Dc_Mob_5,$@Dc_Mob_5+1;
}
if ($@Dc_Truns_5 != $@Dc_Conf_Turns)
mapannounce "guild_vs1-2.gat","[ 道場 ] 魔物放出！挑戰開始！",15,0xBD3989;
else
mapannounce "guild_vs1-2.gat","[ 道場 ] 最後一關挑戰開始,請好好加油！",15,0xBD3989;
end;
OnKillMob:
set $@Dc_Mob_5, $@Dc_Mob_5 - 1;
if( $@Dc_Mob_5 > 0 ) end;
mapannounce "guild_vs1-3.gat","[ 道場 ] 恭喜你,挑戰成功！",15,0x569AA0;
mapannounce "guild_vs1-3.gat","[ 道場 ] "+getpartyname($@Dc_Party_5) +" 隊伍, 第"+$@Dc_Truns_5+"關挑戰成功！",15,0xCB3A2C;
if($@Dc_Truns_5 == $@Dc_Conf_Turns) {
addtimer 5000,"ZJDc_Main_5::OnEnd";
end;
}
set $@Dc_Truns_5,$@Dc_Truns_5 + 1;
addtimer 5000,"ZJDc_Main_5::OnMain";
end;
OnEnd:
areawarp "guild_vs1-3.gat",0,0,300,300,"bat_room.gat",57,207;
end;
}
/**************
[中級裁判]
**************/
guild_vs4.gat,50,49,4 script 中級裁判#1 758,{
mes "[中級裁判]";
mes "您準備要開始挑戰了嗎？";
next;
menu "是的",-;
mes "[中級裁判]";
mes "挑戰開始！";
close2;
doevent "ZJDc_Main_1::OnMain";
disablenpc "中級裁判#1";
end;
}
guild_vs1-1.gat,50,49,4 script 中級裁判#2 758,{
mes "[中級裁判]";
mes "您準備要開始挑戰了嗎？";
next;
menu "是的",-;
mes "[中級裁判]";
mes "挑戰開始！";
close2;
doevent "ZJDc_Main_2::OnMain";
disablenpc "中級裁判#2";
end;
}
guild_vs1-2.gat,50,49,4 script 中級裁判#3 758,{
mes "[中級裁判]";
mes "您準備要開始挑戰了嗎？";
next;
menu "是的",-;
mes "[中級裁判]";
mes "挑戰開始！";
close2;
doevent "ZJDc_Main_3::OnMain";
disablenpc "中級裁判#3";
end;
}
guild_vs1-3.gat,50,49,4 script 中級裁判#5 758,{
mes "[中級裁判]";
mes "您準備要開始挑戰了嗎？";
next;
menu "是的",-;
mes "[中級裁判]";
mes "挑戰開始！";
close2;
doevent "ZJDc_Main_5::OnMain";
disablenpc "中級裁判#5";
end;
}
/**************
[地圖屬性]
**************/
guild_vs4.gat mapflag nomemo dummy
guild_vs4.gat mapflag noteleport dummy
guild_vs4.gat mapflag nosave SavePoint
guild_vs4.gat mapflag nopenalty dummy
guild_vs4.gat mapflag nobranch dummy
guild_vs4.gat mapflag nodrop dummy
guild_vs1-1.gat mapflag nomemo dummy
guild_vs1-1.gat mapflag noteleport dummy
guild_vs1-1.gat mapflag nosave SavePoint
guild_vs1-1.gat mapflag nopenalty dummy
guild_vs1-1.gat mapflag nobranch dummy
guild_vs1-1.gat mapflag nodrop dummy
guild_vs1-2.gat mapflag nomemo dummy
guild_vs1-2.gat mapflag noteleport dummy
guild_vs1-2.gat mapflag nosave SavePoint
guild_vs1-2.gat mapflag nopenalty dummy
guild_vs1-2.gat mapflag nobranch dummy
guild_vs1-2.gat mapflag nodrop dummy
guild_vs1-3.gat mapflag nomemo dummy
guild_vs1-3.gat mapflag noteleport dummy
guild_vs1-3.gat mapflag nosave SavePoint
guild_vs1-3.gat mapflag nopenalty dummy
guild_vs1-3.gat mapflag nobranch dummy
guild_vs1-3.gat mapflag nodrop dummy
bat_room.gat mapflag nomemo dummy
bat_room.gat mapflag noteleport dummy
bat_room.gat mapflag nosave SavePoint
bat_room.gat mapflag nopenalty dummy
bat_room.gat mapflag nobranch dummy
bat_room.gat mapflag noskill dummy
/**************
[獎勵]
**************/
bat_room.gat,54,204,4 script 中級獎金發放員 758,{
mes "[中級獎金發放員]";
mes "我是負責發放獎金的";
mes "你將會獲得"+$@Dc_Win_Zeny+"z";
mes "你確定你要選擇獎金嗎？";
next;
menu "我要領金錢",-;
mes "[中級獎金發放員]";
mes "獎金還不錯吧？";
close2;
set zeny,zeny+$@Dc_Win_Zeny;
warp "mora.gat",134,166;
end;
}
bat_room.gat,61,211,4 script 中級獎品發放員 758,{
mes "[中級獎品發放員]";
mes "我是負責發放獎品的";
mes "你確定你要選擇獎品嗎？";
next;
menu "我要領獎品",-;
mes "[中級獎品發放員]";
mes "獎品還不錯吧？";
close2;
getitem $@Dc_Item_Id[rand(getarraysize($@Dc_Item_Id))],$@Dc_Item_Nums;
warp "mora.gat",134,166;
end;
}
/**************
[道場入場]
**************/
mora.gat,40,122,3 script 高級道場挑戰 868,{
mes "=========道場挑戰========";
mes "- ^984AAC歡迎您參加道場的挑戰^000000";
mes "=========================";
next;
switch(select( "隊伍報名",
getgmlevel()?"GM在線設置":""
)){
case 1:
if (!getcharid(1)) {
mes "=========道場挑戰========";
mes "- ^C63131您沒有隊伍,無法參賽^000000";
mes "=========================";
close;
}
mes "=========道場挑戰========";
mes "- 報名費 : "+$@Dc_In_Zeny+"z";
mes "=========================";
next;
menu "想參加",-;
if ( Zeny<$@Dc_In_Zeny ){
mes "=========道場挑戰========";
mes "- ^C63131金錢不足^000000,快去銀行取錢";
mes "=========================";
close;
}
if ( getmapusers("ordeal_1-1.gat")==0 ){
killmonster "ordeal_1-1.gat","GJDc_Main_1::OnKillMob";
warpparty "ordeal_1-1.gat",150,150,getcharid(1);
set Zeny,Zeny-$@Dc_In_Zeny;
set $@Dc_Truns_1,1;
set $@Dc_Party_1,getcharid(1);
enablenpc "高級裁判#1";
}else if ( getmapusers("guild_vs1-4.gat")==0 ){
killmonster "guild_vs1-4.gat","GJDc_Main_2::OnKillMob";
warpparty "guild_vs1-4.gat",50,50,getcharid(1);
set Zeny,Zeny-$@Dc_In_Zeny;
set $@Dc_Truns_2,1;
set $@Dc_Party_2,getcharid(1);
enablenpc "高級裁判#2";
}else if ( getmapusers("guild_vs2-1.gat")==0 ){
killmonster "guild_vs2-1.gat","GJDc_Main_3::OnKillMob";
warpparty "guild_vs2-1.gat",50,50,getcharid(1);
set Zeny,Zeny-$@Dc_In_Zeny;
set $@Dc_Truns_3,1;
set $@Dc_Party_3,getcharid(1);
enablenpc "高級裁判#3";
}else if ( getmapusers("guild_vs2-2.gat")==0 ){
killmonster "guild_vs2-2.gat","GJDc_Main_5::OnKillMob";
warpparty "guild_vs2-2.gat",50,50,getcharid(1);
set Zeny,Zeny-$@Dc_In_Zeny;
set $@Dc_Truns_5,1;
set $@Dc_Party_5,getcharid(1);
enablenpc "高級裁判#5";
}else{
mes "=========道場挑戰========";
mes "[場地一]隊伍: ["+getpartyname($@Dc_Party_1)+"]";
mes "[場地二]隊伍: ["+getpartyname($@Dc_Party_2)+"]";
mes "[場地三]隊伍: ["+getpartyname($@Dc_Party_3)+"]";
mes "[場地四]隊伍: ["+getpartyname($@Dc_Party_5)+"]";
mes "全部場地都有人在挑戰了,請稍後再試";
mes "=========================";
close;
}
end;
case 2:
mes "=========^CA2CCB基本信息^000000========";
mes "- ^467BB0報名費^000000 : "+$@Dc_In_Zeny+"z";
mes "- ^639485關數^000000 : "+$@Dc_Conf_Turns+"關(輪)";
mes "- ^A5527B刷怪數^000000 : "+$@Dc_Conf_Nums+"只";
mes "=========^82985F獎勵信息^000000========";
mes "- ^A36B54金錢獎^000000 : "+$@Dc_Win_Zeny+"z";
mes "- ^676394物品獎^000000 :";
for (set @i,0;@i<getarraysize($@Dc_Item_Id);set @i,@i+1)
mes "- ["+getitemname($@Dc_Item_Id[@i])+"] x "+$@Dc_Item_Nums;
mes "- 在以上物品中隨即給任意一件";
mes "=========================";
next;
do {
switch(select( "設置報名費",
"設置關數",
"設置刷怪數",
"設置金錢獎勵",
"設置物品獎勵"
)){
case 1:
mes "========設置報名費========";
mes "- 請輸入報名費 (單位:z)";
mes "==========================";
next;
input @Dc_temp;
set $@Dc_In_Zeny,@Dc_temp;
mes "========設置報名費========";
mes "- ^46B046設置成功^000000";
mes "==========================";
next;
break;
case 2:
mes "=========設置關數=========";
mes "- 請輸入關數 (最少2關)";
mes "==========================";
next;
input @Dc_temp;
if (@Dc_temp<2){
mes "=========設置關數=========";
mes "- ^C63131設置有誤^000000";
mes "==========================";
}else{
set $@Dc_Conf_Turns,@Dc_temp;
mes "=========設置關數=========";
mes "- ^46B046設置成功^000000";
mes "==========================";
}
next;
break;
case 3:
mes "========設置刷怪數========";
mes "- 請輸入刷怪數 (最少1只)";
mes "==========================";
next;
input @Dc_temp;
if (@Dc_temp<1){
mes "========設置刷怪數========";
mes "- ^C63131設置有誤^000000";
mes "==========================";
}else{
set $@Dc_Conf_Nums,@Dc_temp;
mes "========設置刷怪數========";
mes "- ^46B046設置成功^000000";
mes "==========================";
}
next;
break;
case 4:
mes "=======設置金錢獎勵=======";
mes "- 請輸入金錢獎勵 (單位:z)";
mes "==========================";
next;
input @Dc_temp;
set $@Dc_Win_Zeny,@Dc_temp;
mes "=======設置金錢獎勵=======";
mes "- ^46B046設置成功^000000";
mes "==========================";
next;
break;
case 5:
mes "=======設置物品獎勵=======";
mes "- 獎勵在以下物品中隨即獲得";
mes "==========================";
next;
set @n,0;
set @o,(getarraysize($@Dc_Item_Id)%5)+5;
set @m,getarraysize($@Dc_Item_Id)/5;
if (@o>5) { set @m,@m+1; set @o,@o-5; }
do {
set @z,@n*5;
set @n,@n+1;
set @tmp,select((@n==1||getarraysize($@Dc_Item_Id)<6)?"":"↑上一頁↑",
$@Dc_Item_Id[0+@z]?getitemname($@Dc_Item_Id[0+@z]):"",
$@Dc_Item_Id[1+@z]?getitemname($@Dc_Item_Id[1+@z]):"",
$@Dc_Item_Id[2+@z]?getitemname($@Dc_Item_Id[2+@z]):"",
$@Dc_Item_Id[3+@z]?getitemname($@Dc_Item_Id[3+@z]):"",
$@Dc_Item_Id[4+@z]?getitemname($@Dc_Item_Id[4+@z]):"",
(@n<@m)?"↓下一頁↓":"");
set @y,(@tmp-2)+@z;
if(((@n<@m&&@tmp!=7)||(@n==@m&&@tmp!=(@o+2))) && @tmp !=1) break;
if(@tmp==1) set @n,@n-2;
} while(@n<@m);
mes "=======設置物品獎勵=======";
mes "- 您選擇的物品";
mes "- ["+getitemname($@Dc_Item_Id[@y])+"] x "+$@Dc_Item_Nums;
mes "- 您要做什麼操作?";
mes "==========================";
next;
switch(select("添加新物品","修改此物品","獎品數量修改")){
case 1:
mes "=======設置物品獎勵=======";
mes "- 請輸入需要添加物品item_id";
mes "==========================";
next;
input @Dc_temp;
mes "=======設置物品獎勵=======";
mes "- 您添加的物品為";
mes "- ["+getitemname(@Dc_temp)+"]";
mes "- 您確定麼?";
mes "==========================";
next;
menu "我確定",-;
set $@Dc_Item_Id[getarraysize($@Dc_Item_Id)],@Dc_temp;
mes "=======設置物品獎勵=======";
mes "- ^46B046設置成功^000000";
mes "==========================";
next;
break;
case 2:
mes "=======設置物品獎勵=======";
mes "- 請輸入需要修改物品item_id";
mes "==========================";
next;
input @Dc_temp;
mes "=======設置物品獎勵=======";
mes "- 您修改的物品為";
mes "- ["+getitemname(@Dc_temp)+"]";
mes "- 您確定麼?";
mes "==========================";
next;
menu "我確定",-;
set $@Dc_Item_Id[@y],@Dc_temp;
mes "=======設置物品獎勵=======";
mes "- ^46B046設置成功^000000";
mes "==========================";
next;
break;
case 3:
mes "=======設置物品獎勵=======";
mes "- 請輸入物品數量 (最少1件)";
mes "==========================";
next;
input @Dc_temp;
if (@Dc_temp<1){
mes "=======設置物品獎勵=======";
mes "- ^C63131設置有誤^000000";
mes "==========================";
}else{
set $@Dc_Item_Nums,@Dc_temp;
mes "=======設置物品獎勵=======";
mes "- ^46B046設置成功^000000";
mes "==========================";
}
next;
break;
}
}
} while(1);
}
OnInit:
//設置入場金錢
set $@Dc_In_Zeny,15000;
//設置關數
set $@Dc_Conf_Turns,15;
//設置每關刷怪數
set $@Dc_Conf_Nums,2;
//設置怪物ID
setarray $@Dc_Mob[0],1038,1039,1046,1059,1086,1087,1112,1115,1147,1150,1157,1159,1190,1272,1312,1373,1389,1492,1708,1719,1734,1751,1768,1779,1785,1658,1630,1832,1874,1871,1646,1647,1648,1649,1650,1651;
//設置物品獎勵
//[物品 ID ]
setarray $@Dc_Item_Id[0],2630,1530,2629,2410,12208,969,7036,7019,7079,7081,710,1015,7085,7087,7025,7253,7169,7248,7253,749,7086;
//[物品數量]
set $@Dc_Item_Nums,1;
//[金錢獎勵]
set $@Dc_Win_Zeny,2000000;
end;
}
/**************
[場地一]
**************/
ordeal_1-1.gat,0,0,0 script GJDc_Main_1 -1,{
OnMain:
killmonsterall "ordeal_1-1.gat";
set $@Dc_Mob_1,0;
for(set $@Dc1,1;$@Dc1<=$@Dc_Conf_Nums;set $@Dc1,$@Dc1+1) {
monster "ordeal_1-1.gat",150,149,"--ja--",$@Dc_Mob[rand(getarraysize($@Dc_Mob))],1,"GJDc_Main_1::OnKillMob";
set $@Dc_Mob_1,$@Dc_Mob_1+1;
}
if ($@Dc_Truns_1 != $@Dc_Conf_Turns)
mapannounce "ordeal_1-1.gat","[ 道場 ] 魔物放出！挑戰開始！",15,0xBD3989;
else
mapannounce "ordeal_1-1.gat","[ 道場 ] 最後一關挑戰開始,請好好加油！",15,0xBD3989;
end;
OnKillMob:
set $@Dc_Mob_1, $@Dc_Mob_1 - 1;
if( $@Dc_Mob_1 > 0 ) end;
mapannounce "ordeal_1-1.gat","[ 道場 ] 恭喜你,挑戰成功！",15,0x569AA0;
mapannounce "ordeal_1-1.gat","[ 道場 ] "+getpartyname($@Dc_Party_1)+" 隊伍, 第"+$@Dc_Truns_1+"關挑戰成功！",15,0xCB3A2C;
if($@Dc_Truns_1 == $@Dc_Conf_Turns) {
addtimer 5000,"GJDc_Main_1::OnEnd";
end;
}
set $@Dc_Truns_1,$@Dc_Truns_1 + 1;
addtimer 5000,"GJDc_Main_1::OnMain";
end;
OnEnd:
areawarp "ordeal_1-1.gat",0,0,300,300,"bat_room.gat",169,207;
end;
}
/**************
[場地二]
**************/
guild_vs1-4.gat,0,0,0 script GJDc_Main_2 -1,{
OnMain:
killmonsterall "guild_vs1-4.gat";
set $@Dc_Mob_2,0;
for(set $@Dc2,1;$@Dc2<=$@Dc_Conf_Nums;set $@Dc2,$@Dc2+1) {
monster "guild_vs1-4.gat",50,49,"--ja--",$@Dc_Mob[rand(getarraysize($@Dc_Mob))],1,"GJDc_Main_2::OnKillMob";
set $@Dc_Mob_2,$@Dc_Mob_2+1;
}
if ($@Dc_Truns_2 != $@Dc_Conf_Turns)
mapannounce "guild_vs1-4.gat","[ 道場 ] 魔物放出！挑戰開始！",15,0xBD3989;
else
mapannounce "guild_vs1-4.gat","[ 道場 ] 最後一關挑戰開始,請好好加油！",15,0xBD3989;
end;
OnKillMob:
set $@Dc_Mob_2, $@Dc_Mob_2 - 1;
if( $@Dc_Mob_2 > 0 ) end;
mapannounce "guild_vs1-4.gat","[ 道場 ] 恭喜你,挑戰成功！",15,0x569AA0;
mapannounce "guild_vs1-4.gat","[ 道場 ] "+getpartyname($@Dc_Party_2)+" 隊伍, 第"+$@Dc_Truns_2+"關挑戰成功！",15,0xCB3A2C;
if($@Dc_Truns_2 == $@Dc_Conf_Turns) {
addtimer 5000,"GJDc_Main_2::OnEnd";
end;
}
set $@Dc_Truns_2,$@Dc_Truns_2 + 1;
addtimer 5000,"GJDc_Main_2::OnMain";
end;
OnEnd:
areawarp "guild_vs1-4.gat",0,0,300,300,"bat_room.gat",169,207;
end;
}
/**************
[場地三]
**************/
guild_vs2-1.gat,0,0,0 script GJDc_Main_3 -1,{
OnMain:
killmonsterall "guild_vs2-1.gat";
set $@Dc_Mob_3,0;
for(set $@Dc3,1;$@Dc3<=$@Dc_Conf_Nums;set $@Dc3,$@Dc3+1) {
monster "guild_vs2-1.gat",50,49,"--ja--",$@Dc_Mob[rand(getarraysize($@Dc_Mob))],1,"GJDc_Main_3::OnKillMob";
set $@Dc_Mob_3,$@Dc_Mob_3+1;
}
if ($@Dc_Truns_3 != $@Dc_Conf_Turns)
mapannounce "guild_vs2-1.gat","[ 道場 ] 魔物放出！挑戰開始！",15,0xBD3989;
else
mapannounce "guild_vs2-1.gat","[ 道場 ] 最後一關挑戰開始,請好好加油！",15,0xBD3989;
end;
OnKillMob:
set $@Dc_Mob_3, $@Dc_Mob_3 - 1;
if( $@Dc_Mob_3 > 0 ) end;
mapannounce "guild_vs2-1.gat","[ 道場 ] 恭喜你,挑戰成功！",15,0x569AA0;
mapannounce "guild_vs2-1.gat","[ 道場 ] "+getpartyname($@Dc_Party_3) +" 隊伍, 第"+$@Dc_Truns_3+"關挑戰成功！",15,0xCB3A2C;
if($@Dc_Truns_3 == $@Dc_Conf_Turns) {
addtimer 5000,"GJDc_Main_3::OnEnd";
end;
}
set $@Dc_Truns_3,$@Dc_Truns_3 + 1;
addtimer 5000,"GJDc_Main_3::OnMain";
end;
OnEnd:
areawarp "guild_vs2-1.gat",0,0,300,300,"bat_room.gat",169,207;
end;
}
/**************
[場地四]
**************/
guild_vs2-2.gat,0,0,0 script GJDc_Main_5 -1,{
OnMain:
killmonsterall "guild_vs2-2.gat";
set $@Dc_Mob_5,0;
for(set $@Dc5,1;$@Dc5<=$@Dc_Conf_Nums;set $@Dc5,$@Dc5+1) {
monster "guild_vs2-2.gat",50,49,"--ja--",$@Dc_Mob[rand(getarraysize($@Dc_Mob))],1,"GJDc_Main_5::OnKillMob";
set $@Dc_Mob_5,$@Dc_Mob_5+1;
}
if ($@Dc_Truns_5 != $@Dc_Conf_Turns)
mapannounce "guild_vs2-1.gat","[ 道場 ] 魔物放出！挑戰開始！",15,0xBD3989;
else
mapannounce "guild_vs2-1.gat","[ 道場 ] 最後一關挑戰開始,請好好加油！",15,0xBD3989;
end;
OnKillMob:
set $@Dc_Mob_5, $@Dc_Mob_5 - 1;
if( $@Dc_Mob_5 > 0 ) end;
mapannounce "guild_vs2-2.gat","[ 道場 ] 恭喜你,挑戰成功！",15,0x569AA0;
mapannounce "guild_vs2-2.gat","[ 道場 ] "+getpartyname($@Dc_Party_5) +" 隊伍, 第"+$@Dc_Truns_5+"關挑戰成功！",15,0xCB3A2C;
if($@Dc_Truns_5 == $@Dc_Conf_Turns) {
addtimer 5000,"GJDc_Main_5::OnEnd";
end;
}
set $@Dc_Truns_5,$@Dc_Truns_5 + 1;
addtimer 5000,"GJDc_Main_5::OnMain";
end;
OnEnd:
areawarp "guild_vs2-2.gat",0,0,300,300,"bat_room.gat",169,207;
end;
}
/**************
[高級裁判]
**************/
ordeal_1-1.gat,150,150,4 script 高級裁判#1 758,{
mes "[高級裁判]";
mes "您準備要開始挑戰了嗎？";
next;
menu "是的",-;
mes "[高級裁判]";
mes "挑戰開始！";
close2;
doevent "GJDc_Main_1::OnMain";
disablenpc "高級裁判#1";
end;
}
guild_vs1-4.gat,50,49,4 script 高級裁判#2 758,{
mes "[高級裁判]";
mes "您準備要開始挑戰了嗎？";
next;
menu "是的",-;
mes "[高級裁判]";
mes "挑戰開始！";
close2;
doevent "GJDc_Main_2::OnMain";
disablenpc "高級裁判#2";
end;
}
guild_vs2-1.gat,50,49,4 script 高級裁判#3 758,{
mes "[高級裁判]";
mes "您準備要開始挑戰了嗎？";
next;
menu "是的",-;
mes "[高級裁判]";
mes "挑戰開始！";
close2;
doevent "GJDc_Main_3::OnMain";
disablenpc "高級裁判#3";
end;
}
guild_vs2-2.gat,50,49,4 script 高級裁判#5 758,{
mes "[高級裁判]";
mes "您準備要開始挑戰了嗎？";
next;
menu "是的",-;
mes "[高級裁判]";
mes "挑戰開始！";
close2;
doevent "GJDc_Main_5::OnMain";
disablenpc "高級裁判#5";
end;
}
/**************
[地圖屬性]
**************/
ordeal_1-1.gat mapflag nomemo dummy
ordeal_1-1.gat mapflag noteleport dummy
ordeal_1-1.gat mapflag nosave SavePoint
ordeal_1-1.gat mapflag nopenalty dummy
ordeal_1-1.gat mapflag nobranch dummy
ordeal_1-1.gat mapflag nodrop dummy
guild_vs1-4.gat mapflag nomemo dummy
guild_vs1-4.gat mapflag noteleport dummy
guild_vs1-4.gat mapflag nosave SavePoint
guild_vs1-4.gat mapflag nopenalty dummy
guild_vs1-4.gat mapflag nobranch dummy
guild_vs1-4.gat mapflag nodrop dummy
guild_vs2-1.gat mapflag nomemo dummy
guild_vs2-1.gat mapflag noteleport dummy
guild_vs2-1.gat mapflag nosave SavePoint
guild_vs2-1.gat mapflag nopenalty dummy
guild_vs2-1.gat mapflag nobranch dummy
guild_vs2-1.gat mapflag nodrop dummy
guild_vs2-2.gat mapflag nomemo dummy
guild_vs2-2.gat mapflag noteleport dummy
guild_vs2-2.gat mapflag nosave SavePoint
guild_vs2-2.gat mapflag nopenalty dummy
guild_vs2-2.gat mapflag nobranch dummy
guild_vs2-2.gat mapflag nodrop dummy
bat_room.gat mapflag nomemo dummy
bat_room.gat mapflag noteleport dummy
bat_room.gat mapflag nosave SavePoint
bat_room.gat mapflag nopenalty dummy
bat_room.gat mapflag nobranch dummy
bat_room.gat mapflag noskill dummy
/**************
[獎勵]
**************/
bat_room.gat,166,204,4 script 高級獎金發放員 758,{
mes "[高級獎金發放員]";
mes "我是負責發放獎金的";
mes "你將會獲得"+$@Dc_Win_Zeny+"z";
mes "你確定你要選擇獎金嗎？";
next;
menu "我要領金錢",-;
mes "[高級獎金發放員]";
mes "獎金還不錯吧？";
close2;
set zeny,zeny+$@Dc_Win_Zeny;
warp "mora.gat",136,163;
end;
}
bat_room.gat,173,211,4 script 高級獎品發放員 758,{
mes "[高級獎品發放員]";
mes "我是負責發放獎品的";
mes "你確定你要選擇獎品嗎？";
next;
menu "我要領獎品",-;
mes "[高級獎品發放員]";
mes "獎品還不錯吧？";
close2;
getitem $@Dc_Item_Id[rand(getarraysize($@Dc_Item_Id))],$@Dc_Item_Nums;
warp "mora.gat",136,163;
end;
}

複製代碼

球魁 · 發表於 2014-4-19 19:59:34

你要被扣分了
-
getmapmobs是SEA的吧

emistry · 發表於 2014-4-19 20:09:54

添加
src/map/script.c

/*==========================================
* GetMapMobs
returns mob counts on a set map:
e.g. GetMapMobs("prontera")
use "this" - for player's map
*------------------------------------------*/
BUILDIN_FUNC(getmapmobs)
{
const char *str=NULL;
int m=-1,bx,by;
int count=0;
struct block_list *bl;
str=script_getstr(st,2);
if(strcmp(str,"this")==0){
TBL_PC *sd=script_rid2sd(st);
if(sd)
m=sd->bl.m;
else{
script_pushint(st,-1);
return 0;
}
}else
m=map_mapname2mapid(str);
if(m < 0){
script_pushint(st,-1);
return 0;
}
for(by=0;by<=(map[m].ys-1)/BLOCK_SIZE;by++)
for(bx=0;bx<=(map[m].xs-1)/BLOCK_SIZE;bx++)
for( bl = map[m].block_mob[bx+by*map[m].bxs] ; bl != NULL ; bl = bl->next )
if(bl->x>=0 && bl->x<=map[m].xs-1 && bl->y>=0 && bl->y<=map[m].ys-1)
count++;
script_pushint(st,count);
return 0;
}

複製代碼

jarkmail886 · 發表於 2014-4-19 20:23:39

emistry 發表於 2014-4-19 08:09 PM
添加
src/map/script.c

這個我不太會添加耶
還是我換另外一個腳本@@
一樣是npc招怪有問題

謝謝你

jarkmail886 · 發表於 2014-4-19 20:30:10

球魁發表於 2014-4-19 07:59 PM
你要被扣分了
-
getmapmobs是SEA的吧

ea跑得比較勤勞
所以po錯區和腳本了
有換掉了sor

emistry · 發表於 2014-4-19 21:59:41

把 getmapmob() 換成 mobcount()

dano0501 · 發表於 2014-4-19 22:23:38

本帖最後由 dano0501 於 2014-4-19 10:33 PM 編輯

你確定Map沒問題嗎 ?

很多空格 -> 沒用tab
中級中級裁判應改為中級裁判

改為tab後可以出怪

jarkmail886 · 發表於 2014-4-19 23:12:02

本帖最後由 jarkmail886 於 2014-4-19 11:14 PM 編輯

dano0501 發表於 2014-4-19 10:23 PM
你確定Map沒問題嗎 ?

很多空格 -> 沒用tab

實測OK了
謝謝樓上兩位~
然後想順便問
如何可以讓隊友死掉後不要再進入@@
因為剛剛發現打死後會馬上被傳出去可是又可以馬上在進去
我記得以前好像是不能進的0.0
還是記.錯了

dano0501 · 發表於 2014-4-20 17:10:48

jarkmail886 發表於 2014-4-19 11:12 PM
實測OK了
謝謝樓上兩位~
然後想順便問

自己設置
進入道館 -> 全隊傳送
check場地有人 -> 無法進入

腳本無問題請改為 '已解決' 並#1重編輯附上答案 .

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

CS_ea

評分