/*----------------------------------------------------------*\
                     Ragnarok Scripts
-------------------------------------------------------------

 ƣű
 ͣϷ
 汾V1.5 ʽ
 ԭδ֪
 ƣˮ
 ƣˮ
 Ȩˮ
 ԣˮ տ
 Eathena Jathena++
 OQ199480984
 E-mailhaohaolover0129@yahoo.com.cn

-----------------------¼Ҫ˵------------------------

 űƣQQϵ

\*----------------------------------------------------------*/


/**************
  [볡]
**************/
baoming2.gat,49,51,5	script	мս	734,{
	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_Zeny1+"z";
		mes "=========================";
		next;
		menu "μ",-;
		if ( Zeny<$@Dc_In_Zeny1 ){
			mes "=========ս========";
			mes "- ^C63131Ǯ^000000,ȥȡǮ";
			mes "=========================";
			close;
		}
		if ( getmapusers("guild_vs21.gat")==0 ){
			killmonster "guild_vs21.gat","Dc_Main_6::OnKillMob";
			warpparty "guild_vs21.gat",49,47,getcharid(1);
			set Zeny,Zeny-$@Dc_In_Zeny1;
			set $@Dc_Truns_1a,1;
			set $@Dc_Party_1a,getcharid(1);
			enablenpc "#6";
		}else if ( getmapusers("guild_vs22.gat")==0 ){
			killmonster "guild_vs22.gat","Dc_Main_7::OnKillMob";
			warpparty "guild_vs22.gat",49,47,getcharid(1);
			set Zeny,Zeny-$@Dc_In_Zeny1;
			set $@Dc_Truns_2a,1;
			set $@Dc_Party_2a,getcharid(1);
			enablenpc "#7";
		}else if ( getmapusers("guild_vs23.gat")==0 ){
			killmonster "guild_vs23.gat","Dc_Main_8::OnKillMob";
			warpparty "guild_vs23.gat",49,47,getcharid(1);
			set Zeny,Zeny-$@Dc_In_Zeny1;
			set $@Dc_Truns_3a,1;
			set $@Dc_Party_3a,getcharid(1);
			enablenpc "#8";
		}else if ( getmapusers("guild_vs24.gat")==0 ){
			killmonster "guild_vs24.gat","Dc_Main_9::OnKillMob";
			warpparty "guild_vs24.gat",49,47,getcharid(1);
			set Zeny,Zeny-$@Dc_In_Zeny1;
			set $@Dc_Truns_5a,1;
			set $@Dc_Party_5a,getcharid(1);
			enablenpc "#9";
		}else{
			mes "=========ս========";
			mes "[һ]: ["+getpartyname($@Dc_Party_1a)+"]";
			mes "[ض]: ["+getpartyname($@Dc_Party_2a)+"]";
			mes "[]: ["+getpartyname($@Dc_Party_3a)+"]";
			mes "[]: ["+getpartyname($@Dc_Party_5a)+"]";
			mes "ȫضս,Ժ";
			mes "=========================";
			close;
		}
		end;
	case 2:
		mes "=========^CA2CCBϢ^000000========";
		mes "- ^467BB0^000000 : "+$@Dc_In_Zeny1+"z";
		mes "- ^639485  ^000000 : "+$@Dc_Conf_Turns1+"()";
		mes "- ^A5527Bˢ^000000 : "+$@Dc_Conf_Nums1+"ֻ";
		mes "=========^82985FϢ^000000========";
		mes "- ^A36B54Ǯ^000000 : "+$@Dc_Win_Zeny1+"z";
		mes "- ^676394Ʒ^000000 :";
		for (set @i,0;@i<getarraysize($@Dc_Item_Id1);set @i,@i+1)
			mes "-     ["+getitemname($@Dc_Item_Id1[@i])+"] x "+$@Dc_Item_Nums1;
		mes "- Ʒ漴һ";
		mes "=========================";
		next;
		do {
			switch(select(	"ñ",
					"ù",
					"ˢ",
					"ýǮ",
					"Ʒ"
			)){
			case 1:
				mes "========ñ========";
				mes "- 뱨 (λ:z)";
				mes "==========================";
				next;
				input @Dc_temp1;
				set $@Dc_In_Zeny1,@Dc_temp1;
				mes "========ñ========";
				mes "- ^46B046óɹ^000000";
				mes "==========================";
				next;
				break;
			case 2:
				mes "=========ù=========";
				mes "-  (2)";
				mes "==========================";
				next;
				input @Dc_temp1;
				if (@Dc_temp1<2){
					mes "=========ù=========";
					mes "- ^C63131^000000";
					mes "==========================";
				}else{
					set $@Dc_Conf_Turns1,@Dc_temp1;
					mes "=========ù=========";
					mes "- ^46B046óɹ^000000";
					mes "==========================";
				}
				next;
				break;
			case 3:
				mes "========ˢ========";
				mes "- ˢ (1ֻ)";
				mes "==========================";
				next;
				input @Dc_temp1;
				if (@Dc_temp1<1){
					mes "========ˢ========";
					mes "- ^C63131^000000";
					mes "==========================";
				}else{
					set $@Dc_Conf_Nums1,@Dc_temp1;
					mes "========ˢ========";
					mes "- ^46B046óɹ^000000";
					mes "==========================";
				}
				next;
				break;
			case 4:
				mes "=======ýǮ=======";
				mes "- Ǯ (λ:z)";
				mes "==========================";
				next;
				input @Dc_temp1;
				set $@Dc_Win_Zeny1,@Dc_temp1;
				mes "=======ýǮ=======";
				mes "- ^46B046óɹ^000000";
				mes "==========================";
				next;
				break;
			case 5:
				mes "=======Ʒ=======";
				mes "- Ʒ漴";
				mes "==========================";
				next;
				set @n,0;
				set @o,(getarraysize($@Dc_Item_Id1)%5)+5;
				set @m,getarraysize($@Dc_Item_Id1)/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_Id1)<6)?"":"һҳ",
							$@Dc_Item_Id1[0+@z]?getitemname($@Dc_Item_Id1[0+@z]):"",
							$@Dc_Item_Id1[1+@z]?getitemname($@Dc_Item_Id1[1+@z]):"",
							$@Dc_Item_Id1[2+@z]?getitemname($@Dc_Item_Id1[2+@z]):"",
							$@Dc_Item_Id1[3+@z]?getitemname($@Dc_Item_Id1[3+@z]):"",
							$@Dc_Item_Id1[4+@z]?getitemname($@Dc_Item_Id1[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_Id1[@y])+"] x "+$@Dc_Item_Nums1;
				mes "- Ҫʲô?";
				mes "==========================";
				next;
				switch(select("Ʒ","޸ĴƷ","Ʒ޸")){
				case 1:
					mes "=======Ʒ=======";
					mes "- ҪƷitem_id";
					mes "==========================";
					next;
					input @Dc_temp1;
					mes "=======Ʒ=======";
					mes "- ӵƷΪ";
					mes "-     ["+getitemname(@Dc_temp1)+"]";
					mes "- ȷô?";
					mes "==========================";
					next;
					menu "ȷ",-;
					set $@Dc_Item_Id1[getarraysize($@Dc_Item_Id1)],@Dc_temp1;
					mes "=======Ʒ=======";
					mes "- ^46B046óɹ^000000";
					mes "==========================";
					next;
					break;
				case 2:
					mes "=======Ʒ=======";
					mes "- Ҫ޸Ʒitem_id";
					mes "==========================";
					next;
					input @Dc_temp1;
					mes "=======Ʒ=======";
					mes "- ޸ĵƷΪ";
					mes "-     ["+getitemname(@Dc_temp1)+"]";
					mes "- ȷô?";
					mes "==========================";
					next;
					menu "ȷ",-;
					set $@Dc_Item_Id1[@y],@Dc_temp1;
					mes "=======Ʒ=======";
					mes "- ^46B046óɹ^000000";
					mes "==========================";
					next;
					break;
				case 3:
					mes "=======Ʒ=======";
					mes "- Ʒ (1)";
					mes "==========================";
					next;
					input @Dc_temp1;
					if (@Dc_temp1<1){
						mes "=======Ʒ=======";
						mes "- ^C63131^000000";
						mes "==========================";
					}else{
						set $@Dc_Item_Nums1,@Dc_temp1;
						mes "=======Ʒ=======";
						mes "- ^46B046óɹ^000000";
						mes "==========================";
					}
					next;
					break;
				}
			}
		} while(1);
	}

OnInit:
	//볡Ǯ
	set $@Dc_In_Zeny1,6000000;

	//ù
	set $@Dc_Conf_Turns1,15;

	//ÿˢ
	set $@Dc_Conf_Nums1,5;

	//ùID
	setarray $@Dc_Mob1[0],1272,1039,1147,1785,1389,1885,1630,1623,1511,1768,1688,1734,1719,1157,1373,1312,1685,1779;

	//Ʒ
	//[Ʒ ID ]
	setarray $@Dc_Item_Id1[0],31024,31025,31026,31027,31028,31029,31030,31031,31032,31050,31051,31052,31053,31054,31055,31056,31057,31058,31093,31094;
	//[Ʒ]
	set $@Dc_Item_Nums1,3;
	//[Ǯ]
	set $@Dc_Win_Zeny1,8000000;
	waitingroom "м",0;
	end;
}

/**************
   [һ]
**************/

guild_vs21.gat,0,0,0	script	Dc_Main_6	-1,{
OnMain:
	killmonsterall "guild_vs21.gat";
	set $@Dc_Mob1_1a,0;
	for(set $@Dc1a,1;$@Dc1a<=$@Dc_Conf_Nums1;set $@Dc1a,$@Dc1a+1) {
		monster "guild_vs21.gat",50,49,"--ja--",$@Dc_Mob1[rand(getarraysize($@Dc_Mob1))],1,"Dc_Main_6::OnKillMob";
		set $@Dc_Mob1_1a,$@Dc_Mob1_1a+1;
	}

	if ($@Dc_Truns_1a != $@Dc_Conf_Turns1)
		mapannounce "guild_vs21.gat","[  ] ħųսʼ",15,0xBD3989;
	else
		mapannounce "guild_vs21.gat","[  ] һսʼ,úüͣ",15,0xBD3989;
	end;

OnKillMob:
	set $@Dc_Mob1_1a, $@Dc_Mob1_1a - 1;
	if( $@Dc_Mob1_1a > 0 ) end;
	mapannounce "guild_vs21.gat","[  ] ϲ,սɹ",15,0x569AA0;
	mapannounce "guild_vs21.gat","[  ] "+getpartyname($@Dc_Party_1a)+" , "+$@Dc_Truns_1a+"սɹ",15,0xCB3A2C;
        if($@Dc_Truns_1a == $@Dc_Conf_Turns1) {
		addtimer 5000,"Dc_Main_6::OnEnd";
		end;
	}
	set $@Dc_Truns_1a,$@Dc_Truns_1a + 1;
	addtimer 5000,"Dc_Main_6::OnMain";
	end;
OnEnd:
       areawarp "guild_vs21.gat",0,0,300,300,"lingjiang2.gat",42,285;
       end;
}

/**************
   [ض]
**************/

guild_vs22.gat,0,0,0	script	Dc_Main_7	-1,{
OnMain:
	killmonsterall "guild_vs22.gat";
	set $@Dc_Mob1_2a,0;
	for(set $@Dc2a,1;$@Dc2a<=$@Dc_Conf_Nums1;set $@Dc2a,$@Dc2a+1) {
		monster "guild_vs22.gat",50,49,"--ja--",$@Dc_Mob1[rand(getarraysize($@Dc_Mob1))],1,"Dc_Main_7::OnKillMob";
		set $@Dc_Mob1_2a,$@Dc_Mob1_2a+1;
	}
	if ($@Dc_Truns_2a != $@Dc_Conf_Turns1)
		mapannounce "guild_vs22.gat","[  ] ħųսʼ",15,0xBD3989;
	else
		mapannounce "guild_vs22.gat","[  ] һսʼ,úüͣ",15,0xBD3989;

	end;

OnKillMob:
	set $@Dc_Mob1_2a, $@Dc_Mob1_2a - 1;
	if( $@Dc_Mob1_2a > 0 ) end;
	mapannounce "guild_vs22.gat","[  ] ϲ,սɹ",15,0x569AA0;
	mapannounce "guild_vs22.gat","[  ] "+getpartyname($@Dc_Party_2a)+" , "+$@Dc_Truns_2a+"սɹ",15,0xCB3A2C;
	if($@Dc_Truns_2a == $@Dc_Conf_Turns1) {
		addtimer 5000,"Dc_Main_7::OnEnd";
		end;
	}
	set $@Dc_Truns_2a,$@Dc_Truns_2a + 1;
	addtimer 5000,"Dc_Main_7::OnMain";
	end;
OnEnd:
	areawarp "guild_vs22.gat",0,0,300,300,"lingjiang2.gat",42,285;
	end;
}

/**************
   []
**************/

guild_vs23.gat,0,0,0	script	Dc_Main_8	-1,{
OnMain:
	killmonsterall "guild_vs23.gat";
	set $@Dc_Mob1_3a,0;
	for(set $@Dc3a,1;$@Dc3a<=$@Dc_Conf_Nums1;set $@Dc3a,$@Dc3a+1) {
		monster "guild_vs23.gat",50,49,"--ja--",$@Dc_Mob1[rand(getarraysize($@Dc_Mob1))],1,"Dc_Main_8::OnKillMob";
		set $@Dc_Mob1_3a,$@Dc_Mob1_3a+1;
	}
	if ($@Dc_Truns_3a != $@Dc_Conf_Turns1)
		mapannounce "guild_vs23.gat","[  ] ħųսʼ",15,0xBD3989;
	else
		mapannounce "guild_vs23.gat","[  ] һսʼ,úüͣ",15,0xBD3989;

	end;

OnKillMob:
	set $@Dc_Mob1_3a, $@Dc_Mob1_3a - 1;
	if( $@Dc_Mob1_3a > 0 ) end;
	mapannounce "guild_vs23.gat","[  ] ϲ,սɹ",15,0x569AA0;
	mapannounce "guild_vs23.gat","[  ] "+getpartyname($@Dc_Party_3a) +" , "+$@Dc_Truns_3+"սɹ",15,0xCB3A2C;
	if($@Dc_Truns_3a == $@Dc_Conf_Turns1) {
		addtimer 5000,"Dc_Main_8::OnEnd";
		end;
	}
	set $@Dc_Truns_3a,$@Dc_Truns_3a + 1;
	addtimer 5000,"Dc_Main_8::OnMain";
	end;
OnEnd:
	areawarp "guild_vs23.gat",0,0,300,300,"lingjiang2.gat",42,285;
	end;
}

/**************
   []
**************/

guild_vs24.gat,0,0,0	script	Dc_Main_9	-1,{
OnMain:
	killmonsterall "guild_vs24.gat";
	set $@Dc_Mob1_5a,0;
	for(set $@Dc5a,1;$@Dc5a<=$@Dc_Conf_Nums1;set $@Dc5a,$@Dc5a+1) {
		monster "guild_vs24.gat",50,49,"--ja--",$@Dc_Mob1[rand(getarraysize($@Dc_Mob1))],1,"Dc_Main_9::OnKillMob";
		set $@Dc_Mob1_5a,$@Dc_Mob1_5a+1;
	}
	if ($@Dc_Truns_5a != $@Dc_Conf_Turns1)
		mapannounce "guild_vs23.gat","[  ] ħųսʼ",15,0xBD3989;
	else
		mapannounce "guild_vs23.gat","[  ] һսʼ,úüͣ",15,0xBD3989;
	end;

OnKillMob:
	set $@Dc_Mob1_5a, $@Dc_Mob1_5a - 1;
	if( $@Dc_Mob1_5a > 0 ) end;
	mapannounce "guild_vs24.gat","[  ] ϲ,սɹ",15,0x569AA0;
	mapannounce "guild_vs24.gat","[  ] "+getpartyname($@Dc_Party_5a) +" , "+$@Dc_Truns_5a+"սɹ",15,0xCB3A2C;
	if($@Dc_Truns_5a == $@Dc_Conf_Turns1) {
		addtimer 5000,"Dc_Main_9::OnEnd";
		end;
	}
	set $@Dc_Truns_5a,$@Dc_Truns_5a + 1;
	addtimer 5000,"Dc_Main_9::OnMain";
	end;

OnEnd:
	areawarp "guild_vs24.gat",0,0,300,300,"lingjiang2.gat",42,285;
	end;
}

/**************
    []
**************/
guild_vs21.gat,50,49,4	script	#6	758,{
	mes "[]";
	mes "׼Ҫʼս";
	next;
	menu "ǵ",-;
	mes "[]";
	mes "սʼ";
	close2;
	doevent "Dc_Main_6::OnMain";
	disablenpc "#6";
	end;

}

guild_vs22.gat,50,49,4	script	#7	758,{
	mes "[]";
	mes "׼Ҫʼս";
	next;
	menu "ǵ",-;
	mes "[]";
	mes "սʼ";
	close2;
	doevent "Dc_Main_7::OnMain";
	disablenpc "#7";
	end;
}

guild_vs23.gat,50,49,4	script	#8	758,{
	mes "[]";
	mes "׼Ҫʼս";
	next;
	menu "ǵ",-;
	mes "[]";
	mes "սʼ";
	close2;
	doevent "Dc_Main_8::OnMain";
	disablenpc "#8";
	end;
}



guild_vs24.gat,50,49,4	script	#9	758,{
	mes "[]";
	mes "׼Ҫʼս";
	next;
	menu "ǵ",-;
	mes "[]";
	mes "սʼ";
	close2;
	doevent "Dc_Main_9::OnMain";
	disablenpc "#9";
	end;
}


/**************
    []
**************/
lingjiang2.gat,30,285,4	script	м𷢷Ա	736,{

	mes "[м𷢷Ա]";
	mes "Ǹ𷢷Ž";
	mes "㽫"+$@Dc_Win_Zeny1+"z";
	mes "ȷҪѡ񽱽";
	next;
	menu "ҪǮ",-;
	mes "[м𷢷Ա]";
	mes "𻹲ɣ";
	close2;
	set zeny,zeny+$@Dc_Win_Zeny1;
	warp "prontera.gat",156,108;
	end;

}

lingjiang2.gat,53,285,4	script	мƷԱ	737,{

	mes "[мƷԱ]";
	mes "Ǹ𷢷ŽƷ";
	mes "ȷҪѡƷ";
	next;
	menu "Ҫ콱Ʒ",-;
	mes "[мƷԱ]";
	mes "Ʒɣ";
	close2;
	getitem $@Dc_Item_Id1[rand(getarraysize($@Dc_Item_Id1))],$@Dc_Item_Nums1;
	warp "prontera.gat",156,108;
	end;
}