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

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

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

 űƣQQϵ

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


/**************
  [볡]
**************/
baoming3.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_Zeny2+"z";
		mes "=========================";
		next;
		menu "μ",-;
		if ( Zeny<$@Dc_In_Zeny2 ){
			mes "=========ս========";
			mes "- ^C63131Ǯ^000000,ȥȡǮ";
			mes "=========================";
			close;
		}
		if ( getmapusers("guild_vs31.gat")==0 ){
			killmonster "guild_vs31.gat","Dc_Main_41::OnKillMob";
			warpparty "guild_vs31.gat",49,47,getcharid(1);
			set Zeny,Zeny-$@Dc_In_Zeny2;
			set $@Dc_Truns_1,1;
			set $@Dc_Party_1,getcharid(1);
			enablenpc "#10";
		}else if ( getmapusers("guild_vs32.gat")==0 ){
			killmonster "guild_vs32.gat","Dc_Main_42::OnKillMob";
			warpparty "guild_vs32.gat",49,47,getcharid(1);
			set Zeny,Zeny-$@Dc_In_Zeny2;
			set $@Dc_Truns_2,1;
			set $@Dc_Party_2,getcharid(1);
			enablenpc "#11";
		}else if ( getmapusers("guild_vs33.gat")==0 ){
			killmonster "guild_vs33.gat","Dc_Main_43::OnKillMob";
			warpparty "guild_vs33.gat",49,47,getcharid(1);
			set Zeny,Zeny-$@Dc_In_Zeny2;
			set $@Dc_Truns_3,1;
			set $@Dc_Party_3,getcharid(1);
			enablenpc "#12";
		}else if ( getmapusers("guild_vs34.gat")==0 ){
			killmonster "guild_vs34.gat","Dc_Main_44::OnKillMob";
			warpparty "guild_vs34.gat",49,47,getcharid(1);
			set Zeny,Zeny-$@Dc_In_Zeny2;
			set $@Dc_Truns_5,1;
			set $@Dc_Party_5,getcharid(1);
			enablenpc "#13";
		}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_Zeny2+"z";
		mes "- ^639485  ^000000 : "+$@Dc_Conf_Turns2+"()";
		mes "- ^A5527Bˢ^000000 : "+$@Dc_Conf_Nums2+"ֻ";
		mes "=========^82985FϢ^000000========";
		mes "- ^A36B54Ǯ^000000 : "+$@Dc_Win_Zeny2+"z";
		mes "- ^676394Ʒ^000000 :";
		for (set @i,0;@i<getarraysize($@Dc_Item_Id2);set @i,@i+1)
			mes "-     ["+getitemname($@Dc_Item_Id2[@i])+"] x "+$@Dc_Item_Nums2;
		mes "- Ʒ漴һ";
		mes "=========================";
		next;
		do {
			switch(select(	"ñ",
					"ù",
					"ˢ",
					"ýǮ",
					"Ʒ"
			)){
			case 1:
				mes "========ñ========";
				mes "- 뱨 (λ:z)";
				mes "==========================";
				next;
				input @Dc_temp;
				set $@Dc_In_Zeny2,@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_Turns2,@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_Nums2,@Dc_temp;
					mes "========ˢ========";
					mes "- ^46B046óɹ^000000";
					mes "==========================";
				}
				next;
				break;
			case 4:
				mes "=======ýǮ=======";
				mes "- Ǯ (λ:z)";
				mes "==========================";
				next;
				input @Dc_temp;
				set $@Dc_Win_Zeny2,@Dc_temp;
				mes "=======ýǮ=======";
				mes "- ^46B046óɹ^000000";
				mes "==========================";
				next;
				break;
			case 5:
				mes "=======Ʒ=======";
				mes "- Ʒ漴";
				mes "==========================";
				next;
				set @n,0;
				set @o,(getarraysize($@Dc_Item_Id2)%5)+5;
				set @m,getarraysize($@Dc_Item_Id2)/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_Id2)<6)?"":"һҳ",
							$@Dc_Item_Id2[0+@z]?getitemname($@Dc_Item_Id2[0+@z]):"",
							$@Dc_Item_Id2[1+@z]?getitemname($@Dc_Item_Id2[1+@z]):"",
							$@Dc_Item_Id2[2+@z]?getitemname($@Dc_Item_Id2[2+@z]):"",
							$@Dc_Item_Id2[3+@z]?getitemname($@Dc_Item_Id2[3+@z]):"",
							$@Dc_Item_Id2[4+@z]?getitemname($@Dc_Item_Id2[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_Id2[@y])+"] x "+$@Dc_Item_Nums2;
				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_Id2[getarraysize($@Dc_Item_Id2)],@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_Id2[@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_Nums2,@Dc_temp;
						mes "=======Ʒ=======";
						mes "- ^46B046óɹ^000000";
						mes "==========================";
					}
					next;
					break;
				}
			}
		} while(1);
	}

OnInit:
	//볡Ǯ
	set $@Dc_In_Zeny2,15000000;

	//ù
	set $@Dc_Conf_Turns2,25;

	//ÿˢ
	set $@Dc_Conf_Nums2,8;

	//ùID
	setarray $@Dc_Mob2[0],1917,1651,1802,1646,1502,1832,1647,1751,1648,1708,1650,1779,1874,1685,1312;

	//Ʒ
	//[Ʒ ID ]
	setarray $@Dc_Item_Id2[0],31068,31069,31070,31071,31082,31083,31084,31085,31086,31097;
	//[Ʒ]
	set $@Dc_Item_Nums2,3;
	//[Ǯ]
	set $@Dc_Win_Zeny2,20000000;
	waitingroom "߼",0;
	end;
}

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

guild_vs31.gat,0,0,0	script	Dc_Main_41	-1,{
OnMain:
	killmonsterall "guild_vs31.gat";
	set $@Dc_Mob2_1b,0;
	for(set $@Dc1,1;$@Dc1b<=$@Dc_Conf_Nums2;set $@Dc1b,$@Dc1b+1) {
		monster "guild_vs31.gat",50,49,"--ja--",$@Dc_Mob2[rand(getarraysize($@Dc_Mob2))],1,"Dc_Main_41::OnKillMob";
		set $@Dc_Mob2_1b,$@Dc_Mob2_1b+1;
	}

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

OnKillMob:
	set $@Dc_Mob2_1b, $@Dc_Mob2_1b - 1;
	if( $@Dc_Mob2_1b > 0 ) end;
	mapannounce "guild_vs31.gat","[  ] ϲ,սɹ",15,0x569AA0;
	mapannounce "guild_vs31.gat","[  ] "+getpartyname($@Dc_Party_1b)+" , "+$@Dc_Truns_1b+"սɹ",15,0xCB3A2C;
        if($@Dc_Truns_1b == $@Dc_Conf_Turns2) {
		addtimer 5000,"Dc_Main_41::OnEnd";
		end;
	}
	set $@Dc_Truns_1b,$@Dc_Truns_1b + 1;
	addtimer 5000,"Dc_Main_41::OnMain";
	end;
OnEnd:
       areawarp "guild_vs31.gat",0,0,300,300,"lingjiang3.gat",42,285;
       end;
}

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

guild_vs32.gat,0,0,0	script	Dc_Main_42	-1,{
OnMain:
	killmonsterall "guild_vs32.gat";
	set $@Dc_Mob2_2b,0;
	for(set $@Dc2b,1;$@Dc2b<=$@Dc_Conf_Nums2;set $@Dc2b,$@Dc2b+1) {
		monster "guild_vs32.gat",50,49,"--ja--",$@Dc_Mob2[rand(getarraysize($@Dc_Mob2))],1,"Dc_Main_42::OnKillMob";
		set $@Dc_Mob2_2b,$@Dc_Mob2_2b+1;
	}
	if ($@Dc_Truns_2b != $@Dc_Conf_Turns2)
		mapannounce "guild_vs32.gat","[  ] ħųսʼ",15,0xBD3989;
	else
		mapannounce "guild_vs32.gat","[  ] һսʼ,úüͣ",15,0xBD3989;

	end;

OnKillMob:
	set $@Dc_Mob2_2b, $@Dc_Mob2_2b - 1;
	if( $@Dc_Mob2_2b > 0 ) end;
	mapannounce "guild_vs32.gat","[  ] ϲ,սɹ",15,0x569AA0;
	mapannounce "guild_vs32.gat","[  ] "+getpartyname($@Dc_Party_2b)+" , "+$@Dc_Truns_2b+"սɹ",15,0xCB3A2C;
	if($@Dc_Truns_2b == $@Dc_Conf_Turns2) {
		addtimer 5000,"Dc_Main_42::OnEnd";
		end;
	}
	set $@Dc_Truns_2b,$@Dc_Truns_2b + 1;
	addtimer 5000,"Dc_Main_42::OnMain";
	end;
OnEnd:
	areawarp "guild_vs32.gat",0,0,300,300,"lingjiang3.gat",42,285;
	end;
}

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

guild_vs33.gat,0,0,0	script	Dc_Main_43	-1,{
OnMain:
	killmonsterall "guild_vs33.gat";
	set $@Dc_Mob2_3b,0;
	for(set $@Dc3b,1;$@Dc3b<=$@Dc_Conf_Nums2;set $@Dc3b,$@Dc3b+1) {
		monster "guild_vs33.gat",50,49,"--ja--",$@Dc_Mob2[rand(getarraysize($@Dc_Mob2))],1,"Dc_Main_43::OnKillMob";
		set $@Dc_Mob2_3b,$@Dc_Mob2_3b+1;
	}
	if ($@Dc_Truns_3b != $@Dc_Conf_Turns2)
		mapannounce "guild_vs33.gat","[  ] ħųսʼ",15,0xBD3989;
	else
		mapannounce "guild_vs33.gat","[  ] һսʼ,úüͣ",15,0xBD3989;

	end;

OnKillMob:
	set $@Dc_Mob2_3b, $@Dc_Mob2_3b - 1;
	if( $@Dc_Mob2_3b > 0 ) end;
	mapannounce "guild_vs33.gat","[  ] ϲ,սɹ",15,0x569AA0;
	mapannounce "guild_vs33.gat","[  ] "+getpartyname($@Dc_Party_3b) +" , "+$@Dc_Truns_3b+"սɹ",15,0xCB3A2C;
	if($@Dc_Truns_3b == $@Dc_Conf_Turns2) {
		addtimer 5000,"Dc_Main_43::OnEnd";
		end;
	}
	set $@Dc_Truns_3b,$@Dc_Truns_3b + 1;
	addtimer 5000,"Dc_Main_43::OnMain";
	end;
OnEnd:
	areawarp "guild_vs33.gat",0,0,300,300,"lingjiang3.gat",42,285;
	end;
}

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

guild_vs34.gat,0,0,0	script	Dc_Main_44	-1,{
OnMain:
	killmonsterall "guild_vs34.gat";
	set $@Dc_Mob2_5b,0;
	for(set $@Dc5b,1;$@Dc5b<=$@Dc_Conf_Nums2;set $@Dc5b,$@Dc5b+1) {
		monster "guild_vs34.gat",50,49,"--ja--",$@Dc_Mob2[rand(getarraysize($@Dc_Mob2))],1,"Dc_Main_44::OnKillMob";
		set $@Dc_Mob2_5b,$@Dc_Mob2_5b+1;
	}
	if ($@Dc_Truns_5b != $@Dc_Conf_Turns2)
		mapannounce "guild_vs33.gat","[  ] ħųսʼ",15,0xBD3989;
	else
		mapannounce "guild_vs33.gat","[  ] һսʼ,úüͣ",15,0xBD3989;
	end;

OnKillMob:
	set $@Dc_Mob2_5b, $@Dc_Mob2_5b - 1;
	if( $@Dc_Mob2_5b > 0 ) end;
	mapannounce "guild_vs34.gat","[  ] ϲ,սɹ",15,0x569AA0;
	mapannounce "guild_vs34.gat","[  ] "+getpartyname($@Dc_Party_5b) +" , "+$@Dc_Truns_5b+"սɹ",15,0xCB3A2C;
	if($@Dc_Truns_5b == $@Dc_Conf_Turns2) {
		addtimer 5000,"Dc_Main_44::OnEnd";
		end;
	}
	set $@Dc_Truns_5b,$@Dc_Truns_5b + 1;
	addtimer 5000,"Dc_Main_44::OnMain";
	end;

OnEnd:
	areawarp "guild_vs34.gat",0,0,300,300,"lingjiang3.gat",42,285;
	end;
}

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

}

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

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



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


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

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

}

lingjiang3.gat,53,285,4	script	߼ƷԱ	737,{

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