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

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

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

 űƣQQϵ

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


/**************
  [볡]
**************/
baoming1.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_Zeny+"z";
		mes "=========================";
		next;
		menu "μ",-;
		if ( Zeny<$@Dc_In_Zeny ){
			mes "=========ս========";
			mes "- ^C63131Ǯ^000000,ȥȡǮ";
			mes "=========================";
			close;
		}
		if ( getmapusers("guild_vs12.gat")==0 ){
			killmonster "guild_vs12.gat","Dc_Main_1::OnKillMob";
			warpparty "guild_vs12.gat",49,47,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_vs11.gat")==0 ){
			killmonster "guild_vs11.gat","Dc_Main_2::OnKillMob";
			warpparty "guild_vs11.gat",49,47,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_vs13.gat")==0 ){
			killmonster "guild_vs13.gat","Dc_Main_3::OnKillMob";
			warpparty "guild_vs13.gat",49,47,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_vs15.gat")==0 ){
			killmonster "guild_vs15.gat","Dc_Main_5::OnKillMob";
			warpparty "guild_vs15.gat",49,47,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,1000000;

	//ù
	set $@Dc_Conf_Turns,8;

	//ÿˢ
	set $@Dc_Conf_Nums,3;

	//ùID
	setarray $@Dc_Mob[0],1086,1115,1150,1399,1159,1112,1583,1492,1046,1252,1418,1190,1059,1251,1087,1038,1658;

	//Ʒ
	//[Ʒ ID ]
	setarray $@Dc_Item_Id[0],31044,31045,31046,31047,31048,31049,31066,31067,31018,31019,31020,31021,31022,31023,31080,31081,31092,31093;
	//[Ʒ]
	set $@Dc_Item_Nums,2;
	//[Ǯ]
	set $@Dc_Win_Zeny,3000000;
	waitingroom "",0;
	end;
}

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

guild_vs12.gat,0,0,0	script	Dc_Main_1	-1,{
OnMain:
	killmonsterall "guild_vs12.gat";
	set $@Dc_Mob_1,0;
	for(set $@Dc1,1;$@Dc1<=$@Dc_Conf_Nums;set $@Dc1,$@Dc1+1) {
		monster "guild_vs12.gat",50,49,"--ja--",$@Dc_Mob[rand(getarraysize($@Dc_Mob))],1,"Dc_Main_1::OnKillMob";
		set $@Dc_Mob_1,$@Dc_Mob_1+1;
	}

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

OnKillMob:
	set $@Dc_Mob_1, $@Dc_Mob_1 - 1;
	if( $@Dc_Mob_1 > 0 ) end;
	mapannounce "guild_vs12.gat","[  ] ϲ,սɹ",15,0x569AA0;
	mapannounce "guild_vs12.gat","[  ] "+getpartyname($@Dc_Party_1)+" , "+$@Dc_Truns_1+"սɹ",15,0xCB3A2C;
        if($@Dc_Truns_1 == $@Dc_Conf_Turns) {
		addtimer 5000,"Dc_Main_1::OnEnd";
		end;
	}
	set $@Dc_Truns_1,$@Dc_Truns_1 + 1;
	addtimer 5000,"Dc_Main_1::OnMain";
	end;
OnEnd:
       areawarp "guild_vs12.gat",0,0,300,300,"lingjiang1.gat",42,285;
       end;
}

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

guild_vs11.gat,0,0,0	script	Dc_Main_2	-1,{
OnMain:
	killmonsterall "guild_vs11.gat";
	set $@Dc_Mob_2,0;
	for(set $@Dc2,1;$@Dc2<=$@Dc_Conf_Nums;set $@Dc2,$@Dc2+1) {
		monster "guild_vs11.gat",50,49,"--ja--",$@Dc_Mob[rand(getarraysize($@Dc_Mob))],1,"Dc_Main_2::OnKillMob";
		set $@Dc_Mob_2,$@Dc_Mob_2+1;
	}
	if ($@Dc_Truns_2 != $@Dc_Conf_Turns)
		mapannounce "guild_vs11.gat","[  ] ħųսʼ",15,0xBD3989;
	else
		mapannounce "guild_vs11.gat","[  ] һսʼ,úüͣ",15,0xBD3989;

	end;

OnKillMob:
	set $@Dc_Mob_2, $@Dc_Mob_2 - 1;
	if( $@Dc_Mob_2 > 0 ) end;
	mapannounce "guild_vs11.gat","[  ] ϲ,սɹ",15,0x569AA0;
	mapannounce "guild_vs11.gat","[  ] "+getpartyname($@Dc_Party_2)+" , "+$@Dc_Truns_2+"սɹ",15,0xCB3A2C;
	if($@Dc_Truns_2 == $@Dc_Conf_Turns) {
		addtimer 5000,"Dc_Main_2::OnEnd";
		end;
	}
	set $@Dc_Truns_2,$@Dc_Truns_2 + 1;
	addtimer 5000,"Dc_Main_2::OnMain";
	end;
OnEnd:
	areawarp "guild_vs11.gat",0,0,300,300,"lingjiang1.gat",42,285;
	end;
}

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

guild_vs13.gat,0,0,0	script	Dc_Main_3	-1,{
OnMain:
	killmonsterall "guild_vs13.gat";
	set $@Dc_Mob_3,0;
	for(set $@Dc3,1;$@Dc3<=$@Dc_Conf_Nums;set $@Dc3,$@Dc3+1) {
		monster "guild_vs13.gat",50,49,"--ja--",$@Dc_Mob[rand(getarraysize($@Dc_Mob))],1,"Dc_Main_3::OnKillMob";
		set $@Dc_Mob_3,$@Dc_Mob_3+1;
	}
	if ($@Dc_Truns_3 != $@Dc_Conf_Turns)
		mapannounce "guild_vs13.gat","[  ] ħųսʼ",15,0xBD3989;
	else
		mapannounce "guild_vs13.gat","[  ] һսʼ,úüͣ",15,0xBD3989;

	end;

OnKillMob:
	set $@Dc_Mob_3, $@Dc_Mob_3 - 1;
	if( $@Dc_Mob_3 > 0 ) end;
	mapannounce "guild_vs13.gat","[  ] ϲ,սɹ",15,0x569AA0;
	mapannounce "guild_vs13.gat","[  ] "+getpartyname($@Dc_Party_3) +" , "+$@Dc_Truns_3+"սɹ",15,0xCB3A2C;
	if($@Dc_Truns_3 == $@Dc_Conf_Turns) {
		addtimer 5000,"Dc_Main_3::OnEnd";
		end;
	}
	set $@Dc_Truns_3,$@Dc_Truns_3 + 1;
	addtimer 5000,"Dc_Main_3::OnMain";
	end;
OnEnd:
	areawarp "guild_vs13.gat",0,0,300,300,"lingjiang1.gat",42,285;
	end;
}

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

guild_vs15.gat,0,0,0	script	Dc_Main_5	-1,{
OnMain:
	killmonsterall "guild_vs15.gat";
	set $@Dc_Mob_5,0;
	for(set $@Dc5,1;$@Dc5<=$@Dc_Conf_Nums;set $@Dc5,$@Dc5+1) {
		monster "guild_vs15.gat",50,49,"--ja--",$@Dc_Mob[rand(getarraysize($@Dc_Mob))],1,"Dc_Main_5::OnKillMob";
		set $@Dc_Mob_5,$@Dc_Mob_5+1;
	}
	if ($@Dc_Truns_5 != $@Dc_Conf_Turns)
		mapannounce "guild_vs13.gat","[  ] ħųսʼ",15,0xBD3989;
	else
		mapannounce "guild_vs13.gat","[  ] һսʼ,úüͣ",15,0xBD3989;
	end;

OnKillMob:
	set $@Dc_Mob_5, $@Dc_Mob_5 - 1;
	if( $@Dc_Mob_5 > 0 ) end;
	mapannounce "guild_vs15.gat","[  ] ϲ,սɹ",15,0x569AA0;
	mapannounce "guild_vs15.gat","[  ] "+getpartyname($@Dc_Party_5) +" , "+$@Dc_Truns_5+"սɹ",15,0xCB3A2C;
	if($@Dc_Truns_5 == $@Dc_Conf_Turns) {
		addtimer 5000,"Dc_Main_5::OnEnd";
		end;
	}
	set $@Dc_Truns_5,$@Dc_Truns_5 + 1;
	addtimer 5000,"Dc_Main_5::OnMain";
	end;

OnEnd:
	areawarp "guild_vs15.gat",0,0,300,300,"lingjiang1.gat",42,285;
	end;
}

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

}

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

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



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





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

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

}

lingjiang1.gat,53,285,4	script	ƷԱ	737,{

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