//===== Hercules Script ======================================= 
//= Hall of Abyss - Al De Baran
//===== By: ================================================== 
//= Masao
//===== Current Version: ===================================== 
//= 1.0
//===== Compatible With: ===================================== 
//= Hercules
//===== Description: ========================================= 
//= NPC's needed to invest into Al De Baran Castles for the
//= Hall of Abyss entrance and warp.
//===== Additional Comments: ================================= 
//= 1.0 First Version.
//============================================================ 

aldeg_cas01,85,105,4	script	Gate Manager#aldeg_cas01::aldeg_hoa	421,{

	set .@GID,GetCastleData(""+strnpcinfo(2)+"",1);
	if (.@GID == getcharid(2)) {
		mes "[Gate Manager]";
		mes "Hello, I am the Gate Manager from Cat Paw Merchant Guild warp department.";
		mes "How may I help you today?";
		next;
		switch (select("Invest for gate connection:Deepest Layer Dungeon Access:Abyss Gate Access:Cancel")) {
		case 1:
			if (checkweight(1301,3) == 2 || checkweight(1301,3) == 3) {
				mes "[Gate Manager]";
				mes "You have too many items to receive the Thank You Ticket as a small gift for your investment.";
				mes "Please come back after making room in your inventory.";
				close;
			}
			if (countitem(6488) > 4799) {
				mes "[Gate Manager]";
				mes "You have too many Thank You Tickets to receive any more.";
				mes "Cannot give you any more tickets. Please use your ticket and come back.";
				mes "The ticket can be exchanged with various items in Malangdo.";
				close;
			}
			if ($alde_invest_result == 0) {
				if (.@GID == getcharid(2)) {
					mes "[Gate Manager]";
					mes "Proceed investing under your guild name.";
					mes "There are 2 ways to invest, by Zeny or the Investment Certificate given out by the Cat Paw Merchant Guild.";
					mes "Which way would you like to make your investment?";
					next;
					switch (select("Invest with Zeny.:Invest with Investment Certificates.:Cancel")) {
					case 1:
						mes "[Gate Manager]";
						mes "So you've decided to invest in Zeny.";
						mes "Minimum investment unit is ^4d4dff10,000 Zeny^000000.";
						mes "You can invest a maximum of 50 units which is ^4d4dff 500,000 Zeny^000000.";
						next;
						switch (select("1 unit 10,000 Zeny:10 units 100,000 Zeny:50 units 500,000 Zeny:Another amount:Cancel")) {
						case 1:
							if (Zeny > 9999) {
								mes "[Gate Manager]";
								mes "You've invested 1 unit 10,000 Zeny.";
								mes "Not much but this is a small gift. You can exchange it with items in Malangdo.";
								set Zeny, Zeny - 10000;
								setcastledata ""+strnpcinfo(2)+"",18,1;
								getitem 6488,1;
								close;
							}
							mes "[Gate Manager]";
							mes "You do not have enough money.";
							close;
						case 2:
							if (Zeny > 99999) {
								mes "[Gate Manager]";
								mes "You've invested 10 units 100,000 Zeny.";
								mes "Not much but this is a small gift. You can exchange it with items in Malangdo.";
								set Zeny, Zeny - 100000;
								setcastledata ""+strnpcinfo(2)+"",18,10;
								getitem 6488,10;
								close;
							}
							mes "[Gate Manager]";
							mes "You do not have enough money.";
							close;
						case 3:
							if (Zeny > 499999) {
								mes "[Gate Manager]";
								mes "You've invested 50 units 500,000 Zeny.";
								mes "Not much but this is a small gift. You can exchange it with items in Malangdo.";
								set Zeny, Zeny - 500000;
								setcastledata ""+strnpcinfo(2)+"",18,50;
								getitem 6488,50;
								close;
							}
							mes "[Gate Manager]";
							mes "You do not have enough money.";
							close;
						case 4:
							mes "[Gate Manager]";
							mes "Please enter the amount you want to invest.";
							mes "Please choose between 1 to 200.";
							mes "Please enter 0 to cancel.";
							next;
							input .@input;
							if (.@input < 0 || .@input > 200) {
								mes "[Gate Manager]";
								mes "You've exceeded the amount per investment.";
								mes "Please try again.";
								close;
							} else if (.@input == 0) {
								mes "[Gate Manager]";
								mes "Canceled.";
								close;
							}
							set .@don, .@input * 10000;
							if (Zeny < .@don) {
								mes "[Gate Manager]";
								mes "You do not have enough money.";
								close;
							}
							mes "[Gate Manager]";
							mes " " + .@input + " unit " + .@don + "z Zeny invested.";
							mes "Not much but this is a small gift. You can exchange it with items in Malangdo.";
							set Zeny, Zeny - .@don;
							setcastledata ""+strnpcinfo(2)+"",18,.@input;
							getitem 6488,.@input;
							close;
						case 5:
							mes "[Gate Manager]";
							mes "Canceled.";
							close;
						}
					case 2:
						mes "[Gate Manager]";
						mes "Wow, you've brought Investment Certificates.";
						mes "How many certificates will you submit?";
						next;
						switch (select("1 Investment Certificate:5 Investment Certificates:Another amount:Cancel")) {
						case 1:
							if (countitem(6489) > 0) {
								mes "[Gate Manager]";
								mes "1 Investment Certificate is the same as an investment of 10 units (100,000z).";
								mes "Not much but this is a small gift. You can exchange it with items in Malangdo.";
								setcastledata ""+strnpcinfo(2)+"",18,10;
								delitem 6489,1;
								getitem 6488,10;
								close;
							}
							mes "[Gate Manager]";
							mes "Looks like you have fewer Investment Certificates than you want to submit.";
							close;
						case 2:
							if (countitem(6489) > 4) {
								mes "[Gate Manager]";
								mes "5 Investment Certificates are the same as an investment of 50 units (500,000z).";
								mes "Not much but this is a small gift. You can exchange it with items in Malangdo.";
								setcastledata ""+strnpcinfo(2)+"",18,50;
								delitem 6489,5;
								getitem 6488,50;
								close;
							}
							mes "[Gate Manager]";
							mes "Looks like you have fewer Investment Certificates than you want to submit.";
							close;
						case 3:
							mes "[Gate Manager]";
							mes "Please enter the number of Investment Certificates you want to submit.";
							mes "Please choose between 1 to 20.";
							mes "Please enter 0 to cancel.";
							next;
							input .@input;
							if (.@input < 0 || .@input > 20) {
								mes "[Gate Manager]";
								mes "You've exceeded the amount per investment.";
								mes "Please try again.";
								close;
							} else if (.@input == 0) {
								mes "[Gate Manager]";
								mes "Canceled.";
								close;
							}
							if (countitem(6489) < .@input) {
								mes "[Gate Manager]";
								mes "Looks like you have fewer Investment Certificates than you want to submit.";
								close;
							}
							set .@don, .@input * 10;
							mes "[Gate Manager]";
							mes "Investment Certificate" + .@input + "is the same as" + .@don + "unit(s) (" + .@don + "00,000z).";
							mes "Not much but this is a small gift. You can exchange it with items in Malangdo.";
							setcastledata ""+strnpcinfo(2)+"",18,.@don;
							delitem 6489,.@input;
							getitem 6488,.@don;
							close;
						case 5:
							mes "[Gate Manager]";
							mes "Canceled.";
							close;
						}
					case 3:
						mes "[Gate Manager]";
						mes "Canceled.";
						close;
	                }
				}
				mes "[Gate Manager]";
				mes "You don't seem to be the member of guild owning this castle.";
				mes "Please use normal investigate from the Agit square.";
				close;
			}
			mes "[Gate Manager]";
			mes "We do not receive investments now.";
			mes "Please come back during the investment duration.";
			close;
		case 2:
			if (GetAgitInvestMsg == 3) {
				set .@inv_result_alde, $alde_invest_result;
				if ((.@inv_result_alde == 2) || (.@inv_result_alde == 3)) {
					mes "[Gate Manager]";
					mes "You are interested in exploring the Luina Guild Dungeon Deepest Layer (2F).";
					mes "Let me guide you. Good luck.";
					close2;
					if(strnpcinfo(2) == "aldeg_cas01"){
						warp "gld_dun02_2",32,122;
					} else if(strnpcinfo(2) == "aldeg_cas02"){
						warp "gld_dun02_2",79,30;
					} else if(strnpcinfo(2) == "aldeg_cas03"){
						warp "gld_dun02_2",165,38;
					} else if(strnpcinfo(2) == "aldeg_cas04"){
						warp "gld_dun02_2",160,148;
					} else {
						warp "gld_dun02_2",103,169;
					}
					end;
				}
				mes "[Gate Manager]";
				mes "Luina was not chosen to be connected with a gate this time.";
				mes "Please wait for the next investment duration.";
				close;
			} else if (GetAgitInvestMsg < 3) {
				mes "[Gate Manager]";
				mes "There are currently no connected dungeon gates.";
				mes "A gate will be connected as soon as the investment results are available.";
				mes "Please wait.";
				close;
			}
			mes "[Gate Manager]";
			mes "The gate will disappear soon.";
			mes "The dungeon is no longer accessible.";
			mes "Please try again next time.";
			close;
		case 3:
			if (GetAgitInvestMsg == 3) {
				set .@inv_result_alde, $alde_invest_result;
				if (.@inv_result_alde == 3) {
					mes "[Gate Manager]";
					mes "Let me guide you to the Abyss Gap connected with Luina, the Abyss Gate 'Way of the Warrior'.";
					close2;
					if(strnpcinfo(2) == "aldeg_cas01"){
						warp "gld2_ald",175,41;
					} else if(strnpcinfo(2) == "aldeg_cas02"){
						warp "gld2_ald",77,64;
					} else if(strnpcinfo(2) == "aldeg_cas03"){
						warp "gld2_ald",46,127;
					} else if(strnpcinfo(2) == "aldeg_cas04"){
						warp "gld2_ald",104,246;
					} else {
						warp "gld2_ald",241,156;
					}
					end;
				}
				mes "[Gate Manager]";
				mes "Luina was not chosen to be connected with a gate this time.";
				mes "Please wait for the next investment duration.";
				close;
			} else if (GetAgitInvestMsg < 3) {
				mes "[Gate Manager]";
				mes "There are currently no connected dungeon gates.";
				mes "A gate will be connected as soon as the investment results are available.";
				mes "Please wait.";
				close;
			}
			mes "[Gate Manager]";
			mes "The gate will disappear soon.";
			mes "The dungeon is no longer accessible.";
			mes "Please try again next time.";
			close;
		case 4:
			mes "[Gate Manager]";
			mes "Canceled.";
			close;
		}
	}
	mes "[Gate Manager]";
	mes "You don't seem to be the member of the guild owning this castle.";
	mes "If you need any help, please visit any of our guild members at Luina Square.";
	close;
}

alde_gld,186,157,3	script	Cat Paw Merchant Guild Megrez	549,{

	mes "[Megrez]";
	mes "I'm Mergrez, the Luina Branch Manager in Al De Baran of the Cat Paw Merchant Guild.";
	mes "I consult about investments for the Abyss Gate development.";
	mes "How may I help you?";
	next;
	switch (select("What is the Abyss Gate?:What do you mean by investing in the gate development?:I want to invest in this area.:Cancel")) {
	case 1:
		mes "[Megrez]";
		mes "It is only called the Abyss Gate for convenience but it's simply a ^4d4dffgap to another dimension^000000.";
		next;
		mes "[Megrez]";
		mes "More of these gaps are found here and there after Morocc created the Crack of Dimension.";
		mes "I personally think that the Abyss Gate found recently is part of the past or even from the future.";
		next;
		mes "[Megrez]";
		mes "It is said that the Abyss Gate forcefully connects to another dimension beyond our world.";
		mes "Probably because there are those that follow the Emperium's power.";
		next;
		mes "[Megrez]";
		mes "There are a total of 4 Abyss Gates found so far. They all connect to the Agit region overflowing with the Emperium's force.";
		next;
		mes "[Megrez]";
		mes "We named each by dimension beyond the gap.";
		mes "^4d4dffWay of the Warrior, Hill of the Dead, Winds of the Ancient, and the Hero's Tears.^000000";
		mes "And all these four gaps are called the ^4d4dffAbyss Gate^000000.";
		next;
		mes "[Megrez]";
		mes "The gap may lead to the past, future or even an unknown world.";
		mes "The power the Abyss Gate holds is both fearful but sweet";
		next;
		mes "[Megrez]";
		mes "Are you also interested in exploring the Abyss Gate?";
		mes "Ha ha. You'll need to go through several steps before exploring.";
		next;
		mes "[Megrez]";
		mes "If you are interested";
		mes "will you take the time to sit down and talk about investing in maintaining the Abyss Gate?";
		close;
	case 2:
		mes "[Megrez]";
		mes "Are you curious about investing in the Gate development?";
		mes "What do you want to know about?";
		next;
		switch (select("About the Gate?:About investments?:How to invest?:Benefits from investing?")) {
		case 1:
			mes "[Megrez]";
			mes "The Gate is what it is named after, a door.";
			mes "A dimensional passageway that connects here to there.";
			next;
			mes "[Megrez]";
			mes "The Abyss Gate was created as a very unstable path from beyond the dimensional gap,";
			mes "therefore traveling through the Gate will need an artificial dimension connection.";
			next;
			mes "[Megrez]";
			mes "Humans are far from having the advanced technology that's needed";
			mes "but our Cat Paw Merchant Guild holds the high technology to use the Crack of Dimension.";
			next;
			mes "[Megrez]";
			mes "So we made a proposal.";
			mes "With the promise of support the Cat Paw Merchant Guild and paying for the immense expense for maintaining the connection with the Gate,";
			mes "we will make the connection to the Crack of Dimension.";
			next;
			mes "[Megrez]";
			mes "Of course working on the Crack of Dimension is no easy job and it does come with risks.";
			mes "There are cases where people go missing from traveling between.";
			next;
			mes "[Megrez]";
			mes "The best maintaining duration is about 4 days";
			mes "You invest in us and we create the door that connects to the dimensional gap.";
			next;
			mes "[Megrez]";
			mes "Doesn't this sound like the perfect win-win proposal?";
			close;
		case 2:
			mes "[Megrez]";
			mes "Forcing through the unstable dimensional gap and creating a passageway is very dangerous.";
			mes "Not to mention the huge resources needed.";
			next;
			mes "[Megrez]";
			mes "If you take care of the charges and also the danger pay by investing in the Cat Paw Merchant Guild,";
			mes "we'll create and maintain the gate regardless of the risks.";
			next;
			mes "[Megrez]";
			mes "But then of course the money involved for the gate costs will be extreme.";
			mes "It will be easy if you can find investors to share the amount.";
			next;
			mes "[Megrez]";
			mes "There is a basic charge to start connecting the gate.";
			mes "Results depend on the how much investment money is collected.";
			next;
			mes "[Megrez]";
			mes "The Abyss Gate exists in each Agit region.";
			mes "Can you imagine how much money and sacrifice our guild will have to go through to develop in all areas?";
			next;
			mes "[Megrez]";
			mes "This explains the regional competition in investments.";
			mes "If not enough gate maintenance costs are collected then it is obvious the region with the most investments will receive the benefits";
			next;
			mes "[Megrez]";
			mes "If ^4d4dffthe Abyss Gate is successfully connected then the dungeon of the hideout area";
			mes "will be open to others instead of being guild exclusive^000000 which will be very attractive for investment.";
			next;
			mes "[Megrez]";
			mes "But then again, this is only for when the gate is connected.";
			close;
		case 3:
			mes "[Megrez]";
			mes "It's simple.";
			mes "Visit the branch manager of the ^4d4dffregion you want to invest in during the investment duration^000000 and make your investment.";
			next;
			mes "[Megrez]";
			mes "We usually receive ^4d4dffthe common currency here, Zeny^000000.";
			mes "But since we're talking about supporting our Cat Paw Merchant Guild, you can also invest with items in demand in Malangdo.";
			next;
			mes "[Megrez]";
			mes "Provide the items in need to Namis in Malangdo who is in charge of general affairs in our guild.";
			mes "Bring back your Investment Certificate to add it to the investment tribute.";
			next;
			mes "[Megrez]";
			mes "You must visit and invest at the region you want in order for your investment to be counted as a tribute.";
			close;
		case 4:
			mes "[Megrez]";
			mes "The Abyss Gate is basically contracting and connecting with the castle that owns the Agit;";
			mes "therefore, we will provide all we have once the costs for connecting and maintaining the gate are sufficient.";
			next;
			mes "[Megrez]";
			mes "In terms of the minimum and maximum costs for the whole work,";
			mes "if the collected investment ^4d4dffexceeds the minimum costs^000000, we can connect you to the ^4d4dffdeepest layer of an unknown guild dungeon^000000.";
			next;
			mes "[Megrez]";
			mes "If investments exceed the maximum costs, that region will be connected to the";
			mes "^4d4dffAbyss Gate^000000 regardless of the investment rank which includes the deepest layer of the guild dungeon.";
			next;
			mes "[Megrez]";
			mes "^ff0000If there is no Agit region that reached the maximum investment, then the region with the";
			mes "highest investment participation will get the Abyss Gate connected with the investment collected from all regions.^000000";
			next;
			mes "[Megrez]";
			mes "Once the Abyss Gate is connected, the deepest layer (2F) of the guild dungeon";
			mes "will be open to all adventurers that participated in the regional investment.";
			next;
			mes "[Megrez]";
			mes "Visits to the dungeon will be counted for the next investment for the Agit region";
			mes "so being in good terms with the guild that claims the Agit castle will be a bonus.";
			next;
			mes "[Megrez]";
			mes "By the way, it isn't easy to maintain the connection with the Abyss Gate and investments and reconnection is needed weekly";
			mes "so please continue your support and investment if you want the power of the unknown.";
			close;
		}
	case 3:
		if (checkweight(1301,3) == 2 || checkweight(1301,3) == 3) {
			mes "- Cannot proceed with the quest because you have too many items. -";
			close;
		}
		if (countitem(6488) > 4799) {
			mes "[Megrez]";
			mes "You have too many [Thank You Tickets] to receive any more.";
			mes "Cannot give you any more tickets. Please use your ticket and come back.";
			mes "The ticket can be exchanged with various items in Malangdo.";
			close;
		}
		set .@castle01$,"Neuschwanstein Castle : [" + getguildname(GetCastleData("aldeg_cas01",1)) + "] Guild";
		if(getguildname(GetCastleData("aldeg_cas01",1)) == ""){
			set .@castle01$,"Free.";
		}set .@castle02$,"Hohenschwangau Castle : [" + getguildname(GetCastleData("aldeg_cas02",1)) + "] Guild";
		if(getguildname(GetCastleData("aldeg_cas02",1)) == ""){
			set .@castle02$,"Free.";
		}set .@castle03$,"Nuernberg Castle : [" + getguildname(GetCastleData("aldeg_cas03",1)) + "] Guild";
		if(getguildname(GetCastleData("aldeg_cas03",1)) == ""){
			set .@castle03$,"Free.";
		}set .@castle04$,"Wuerzburg Castle : [" + getguildname(GetCastleData("aldeg_cas04",1)) + "] Guild";
		if(getguildname(GetCastleData("aldeg_cas04",1)) == ""){
			set .@castle04$,"Free.";
		}set .@castle05$,"Rothenburg Castle : [" + getguildname(GetCastleData("aldeg_cas05",1)) + "] Guild";
		if(getguildname(GetCastleData("aldeg_cas05",1)) == ""){
			set .@castle05$,"Free.";
		}if (GetAgitInvestMsg == 1) {
			mes "[Megrez]";
			mes "Would you like to invest in the ^4d4dffLuina^000000 region?";
			mes "If there is a castle occupied already, you will invest in the castle and the guild that is currently occupying it.";
			next;
			switch (select(""+.@castle01$+":"+.@castle02$+":"+.@castle03$+":"+.@castle04$+":"+.@castle05$+"")) {
			case 1:
				callsub S_Invest,"aldeg_cas01","Neuschwanstein";
				end;
			case 2:
				callsub S_Invest,"aldeg_cas02","Hohenschwangau";
				end;
			case 3:
				callsub S_Invest,"aldeg_cas03","Nuernberg";
				end;
			case 4:
				callsub S_Invest,"aldeg_cas04","Wuerzburg";
				end;
			case 5:
				callsub S_Invest,"aldeg_cas05","Rothenburg";
				end
			}
		}
	case 4:
		mes "[Megrez]";
		mes "Is that so?";
		mes "Please come back whenever you are interested in investing in the Abyss Gate development.";
		close;
	}

S_Invest:
	if(getguildname(GetCastleData(""+getarg(0)+"",1)) == ""){
		mes "[Megrez]";
		mes "You can't invest into an Castle which currently isn't occupied by any Guild.",
		close;
	}
	mes "[Megrez]";
	mes "Invest under "+getarg(1)+"'s "+ getguildname(GetCastleData(""+getarg(0)+"",1)) + "guild name.";
	mes "There are 2 ways to invest, either by Zeny or the Investment Certificate given out by the Cat Paw Merchant Guild.";
	mes "Which way would you like to make your investment?";
	next;
	switch (select("Invest with Zeny.:Invest with Investment Certificates.:Cancel")) {
	case 1:
		mes "[Megrez]";
		mes "So you've decided to invest in Zeny.";
		mes "Minimum investment unit is ^4d4dff10,000 Zeny^000000.";
		mes "You can invest a maximum of 50 units which is ^4d4dff 500,000 Zeny^000000.";
		next;
		switch (select("1 unit 10,000 Zeny:10 units 100,000 Zeny:50 units 500,000 Zeny:Another amount:Cancel")) {
		case 1:
			if (Zeny > 9999) {
				if(getcastledata("alde_gld",19) >= 2000){
					set $alde_invest_result,2;
				}
				if(getcastledata("alde_gld",19) >= 7000){
					set $alde_invest_result,3;
					callsub S_Fundextra "alde_gld",10000,1;
					end;
				}
				mes "[Megrez]";
				mes "You've invested 1 unit 10,000 Zeny.";
				mes "Not much but this is a small gift. You can exchange it with items in Malangdo.";
				set Zeny, Zeny - 10000;
				setcastledata ""+getarg(0)+"",18,1;
				getitem 6488,1;
				close;
			}
			mes "[Megrez]";
			mes "You do not have enough money.";
			close;
		case 2:
			if (Zeny > 99999) {
				if(getcastledata("alde_gld",19) >= 2000){
					set $alde_invest_result,2;
				}
				if(getcastledata("alde_gld",19) >= 7000){
					set $alde_invest_result,3;
					callsub S_Fundextra "alde_gld",100000,10;
					end;
				}
				mes "[Megrez]";
				mes "You've invested 10 units 100,000 Zeny.";
				mes "Not much but this is a small gift. You can exchange it with items in Malangdo.";
				set Zeny, Zeny - 100000;
				setcastledata ""+getarg(0)+"",18,10;
				getitem 6488,10;
				close;
			}
			mes "[Megrez]";
			mes "You do not have enough money.";
			close;
		case 3:
			if (Zeny > 499999) {
				if(getcastledata("alde_gld",19) >= 2000){
					set $alde_invest_result,2;
				}
				if(getcastledata("alde_gld",19) >= 7000){
					set $alde_invest_result,3;
					callsub S_Fundextra "alde_gld",500000,50;
					end;
				}
				mes "[Megrez]";
				mes "You've invested 50 units 500,000 Zeny.";
				mes "Not much but this is a small gift. You can exchange it with items in Malangdo.";
				set Zeny, Zeny - 500000;
				setcastledata ""+getarg(0)+"",18,50;
				getitem 6488,50;
				close;
			}
			mes "[Megrez]";
			mes "You do not have enough money.";
			close;
		case 4:
			mes "[Megrez]";
			mes "Please enter the amount you want to invest.";
			mes "Please choose between 1 to 200.";
			mes "Please enter 0 to cancel.";
			next;
			input .@input;
			if (.@input < 0 || .@input > 200) {
				mes "[Megrez]";
				mes "You've exceeded the amount per investment.";
				mes "Please try again.";
				close;
			} else if (.@input == 0) {
				mes "[Megrez]";
				mes "Canceled.";
				close;
			}
			set .@don, .@input * 10000;
			if (Zeny < .@don) {
				mes "[Megrez]";
				mes "You do not have enough money.";
				close;
			}
			if(getcastledata("alde_gld",19) >= 2000){
				set $alde_invest_result,2;
			}
			if(getcastledata("alde_gld",19) >= 7000){
				set $alde_invest_result,3;
				callsub S_Fundextra "alde_gld",.@don,.@input;
				end;
			}
			mes "[Megrez]";
			mes " " + .@input + " unit " + .@don + "z Zeny invested.";
			mes "Not much but this is a small gift. You can exchange it with items in Malangdo.";
			set Zeny, Zeny - .@don;
			setcastledata ""+getarg(0)+"",18,.@input;
			getitem 6488,.@input;
			close;
		case 5:
			mes "[Megrez]";
			mes "Canceled.";
			close;
		}
	case 2:
		mes "[Megrez]";
		mes "Wow, you've brought Investment Certificates.";
		mes "How many certificates will you submit?";
		next;
		switch (select("1 Investment Certificate:5 Investment Certificates:Another amount:Cancel")) {
		case 1:
			if (countitem(6489) > 0) {
				if(getcastledata("alde_gld",19) >= 2000){
					set $alde_invest_result,2;
				}
				if(getcastledata("alde_gld",19) >= 7000){
					set $alde_invest_result,3;
					callsub S_Fundextra "alde_gld",6489,10,1;
					end;
				}
				mes "[Megrez]";
				mes "1 Investment Certificate is the same as an investment of 10 units (100,000z).";
				mes "Not much but this is a small gift. You can exchange it with items in Malangdo.";
				setcastledata ""+getarg(0)+"",18,10;
				delitem 6489,1;
				getitem 6488,10;
				close;
			}
			mes "[Megrez]";
			mes "Looks like you have fewer Investment Certificates than you want to submit.";
			close;
		case 2:
			if (countitem(6489) > 4) {
				if(getcastledata("alde_gld",19) >= 2000){
					set $alde_invest_result,2;
				}
				if(getcastledata("alde_gld",19) >= 7000){
					set $alde_invest_result,3;
					callsub S_Fundextra "alde_gld",6489,50,5;
					end;
				}
				mes "[Megrez]";
				mes "5 Investment Certificates are the same as an investment of 50 units (500,000z).";
				mes "Not much but this is a small gift. You can exchange it with items in Malangdo.";
				setcastledata ""+getarg(0)+"",18,50;
				delitem 6489,5;
				getitem 6488,50;
				close;
			}
			mes "[Megrez]";
			mes "Looks like you have fewer Investment Certificates than you want to submit.";
			close;
		case 3:
			mes "[Megrez]";
			mes "Please enter the number of Investment Certificates you want to submit.";
			mes "Please choose between 1 to 20.";
			mes "Please enter 0 to cancel.";
			next;
			input .@input;
			if (.@input < 0 || .@input > 20) {
				mes "[Megrez]";
				mes "You've exceeded the amount per investment.";
				mes "Please try again.";
				close;
			} else if (.@input == 0) {
				mes "[Megrez]";
				mes "Canceled.";
				close;
			}
			if (countitem(6489) < .@input) {
				mes "[Megrez]";
				mes "Looks like you have fewer Investment Certificates than you want to submit.";
				close;
			}
			set .@don, .@input * 10;
			if(getcastledata("alde_gld",19) >= 2000){
			set $alde_invest_result,2;
				}
			if(getcastledata("alde_gld",19) >= 7000){
				set $alde_invest_result,3;
				callsub S_Fundextra "alde_gld",6489,.@don,.@input;
				end;
			}
			mes "[Megrez]";
			mes "Investment Certificate" + .@input + "is the same as" + .@don + "unit(s) (" + .@don + "00,000z).";
			mes "Not much but this is a small gift. You can exchange it with items in Malangdo.";
			setcastledata ""+getarg(0)+"",18,.@don;
			delitem 6489,.@input;
			getitem 6488,.@don;
			close;
		case 4:
			mes "[Megrez]";
			mes "Canceled.";
			close;
		}
	case 3:
		mes "[Megrez]";
		mes "Canceled.";
		close;
	}

S_Fundextra:
	mes "[Megrez]";
	mes "The maximum needed investment for this realm has been reached,";
	mes "currently everyone can connect to the Guild Dungeon, Guild Dungeon Layer F2 and Hall of Abyss.";
	next;
	mes "[Megrez]";
	mes "If you still wish to invest into this realm, your investment will be stored up until the next time an fee is needed for this realm";
	mes "to be connected to the Guild Dungeon. Guild Dungeon Layer F2 and Hall of Abyss.";
	next;
	if(select("Don't invest:Invest") == 1){
		mes "[Megrez]";
		mes "Canceled.";
		close;
	}
	mes "[Megrez]";
	mes "Your investment has been saved for upcoming connection fees with the Guild Dungeon Layer F2 and Hall of Abyss.";
	mes "It's not much but this is a small gift. You can exchange it with items in Malangdo.";
	set $alde_extra,$alde_extra+getarg(2);
	if((getarg(1) == 6489){
		delitem 6489,getarg(3);
	} else {
		set Zeny,Zeny - getarg(1);
	}
	getitem 6488,getarg(2);
	close;
}

alde_gld,191,164,3	script	Megrez#alde_f00	421,{

	if (GetAgitInvestMsg == 3) {
		set .@inv_result_alde, $alde_invest_result; // 1 = Closed to everyone. 2 = 20Mio. have been reached, Layer F2 is open for guilds owning a castle. 3 = 70Mio. have been reached, Hall of Abyss & F2 is open for everyone.
		if (.@inv_result_alde == 3) {
			mes "[Alkor]";
			mes "We've successfully connected the Abyss Gate [Hero's Tears] with the help from your investment.";
			mes "The Agit dungeon will be open to everyone with a small entrance fee in Luina.";
			next;
			mes "[Alkor]";
			mes "Please visit as often as possible since the entrance fee is saved as an investment for the region.";
			mes "Do you want to enter the Agit dungeon?";
			next;
			switch (select("Luina Dungeon 1F - 10000z:Luina Dungeon 2F - 10000z:Cancel")) {
			case 1:
				if (Zeny > 9999) {
					mes "[Alkor]";
					mes "I'm sending you to the Luina Agit Dungeon 1F.";
					set Zeny, Zeny - 10000;
					set $alde_extra,$alde_extra+1;
					close2;
					warp "gld_dun02",32,122;
					end;
				}
				mes "[Alkor]";
				mes "I'm collecting a small entrance fee.";
				mes "Your contribution will be saved for the next investment.";
				mes "Entrance fee is 10000z.";
				close;
			case 2:
				if (Zeny > 9999) {
					mes "[Alkor]";
					mes "I'm sending you to the Luina Agit Dungeon 2F.";
					set Zeny, Zeny - 10000;
					set $alde_extra,$alde_extra+1;
					close2;
					warp "gld_dun02_2",32,122;
					end;
				}
				mes "[Alkor]";
				mes "I'm collecting a small entrance fee.";
				mes "Your contribution will be saved for the next investment.";
				mes "Entrance fee is 10000z.";
				close;
			case 3:
				mes "[Alkor]";
				mes "Canceled.";
				close;
			}
        } else if (.@inv_result_alde == 2) {
			mes "[Alkor]";
			mes "The Luina Agit Dungeon 2F is now available but since it is not connected with the Abyss Gate,";
			mes "the Agit dungeon is only accessible to the Agit guild.";
			close;
        }
		mes "[Alkor]";
		mes "Luina was not chosen to be connected with a gate this time.";
		mes "Please wait for the next investment duration.";
		close;
    }
	mes "[Alkor]";
	mes "There are currently no connected dungeon gates.";
	close;
}

alde_gld,188,158,3	script	Investment Status Board#fund04	857,{

    if (GetAgitInvestMsg == 1) {
        set .@notice_time, $agit_result_notice;
        if (.@notice_time == 1) {
            set .@resultnotice$, "1st total (unit in 10,000z)";
        }
        else if (.@notice_time == 2) {
            set .@resultnotice$, "2nd total (unit in 10,000z)";
        }
        else if (.@notice_time == 3) {
            set .@resultnotice$, "3rd total (unit in 10,000z)";
        }
        else if (.@notice_time == 4) {
            set .@resultnotice$, "4th total (unit in 10,000z)";
        }
        else if (.@notice_time == 5) {
            set .@resultnotice$, "5th total (unit in 10,000z)";
        }
        else if (.@notice_time == 6) {
            set .@resultnotice$, "6th total (unit in 10,000z)";
        }
        else if (.@notice_time == 7) {
            set .@resultnotice$, "7th total (unit in 10,000z)";
        }
        else if (.@notice_time == 8) {
            set .@resultnotice$, "8th total (unit in 10,000z)";
        }
        else if (.@notice_time == 9) {
            set .@resultnotice$, "9th total (unit in 10,000z)";
        }
        else if (.@notice_time == 10) {
            set .@resultnotice$, "10th total (unit in 10,000z)";
        }
        else if (.@notice_time == 11) {
            set .@resultnotice$, "11th total (unit in 10,000z)";
        }
        else if (.@notice_time == 12) {
            set .@resultnotice$, "12th total (unit in 10,000z)";
        }
        else {
            set .@resultnotice$, "There are currently no investment sums available.";
        }
        if ((.@notice_time > 0) && (.@notice_time < 13)) {
            mes .@resultnotice$;
            mes "Neuschwanstein" + getguildname(GetCastleData("aldeg_cas01",1)) + "Guild:" + getcastledata("aldeg_cas01",18) + "";
            mes "Hohenschwangau" + getguildname(GetCastleData("aldeg_cas02",1)) + "Guild:" + getcastledata("aldeg_cas02",18) + "";
            mes "Nuremberg" + getguildname(GetCastleData("aldeg_cas03",1)) + "Guild:" + getcastledata("aldeg_cas03",18) + "";
            mes "Wuerzburg" + getguildname(GetCastleData("aldeg_cas04",1)) + "Guild:" + getcastledata("aldeg_cas04",18) + "";
            mes "Rothenburg" + getguildname(GetCastleData("aldeg_cas05",1)) + "Guild:" + getcastledata("aldeg_cas05",18) + "";
            mes "Luina:" + ($alde_extra) + "";
            mes "Luina Investment Grand Total:" + (getcastledata("aldeg_gld",19) + $alde_extra)  + "";
            close;
        }
		mes .@resultnotice$;
		close;
	}
	else if (GetAgitInvestMsg == 2) {
		mes "!- Notice -!";
		mes "No sums are available because the total investment amount is currently being calculated.";
		mes "Please wait for the announcement of the results.";
		close;
	}
	else if (GetAgitInvestMsg == 3) {
        set .@inv_result_prt, $prt_invest_result;
        set .@inv_result_pay, $pay_invest_result;
        set .@inv_result_gef, $gef_invest_result;
        set .@inv_result_alde, $alde_invest_result;
        mes "!-Investment Results of All Agit Regions-!";
		if (.@inv_result_prt == 1) {
			mes "^aaaaaa[Valkyrie Realm] below minimum^000000";
		} else if (.@inv_result_prt == 2) {
			mes "[Valkyrie Realm] minimum achieved";
			mes "-> Guild Dungeon Deepest Layer (2F) available";
		} else if (.@inv_result_prt == 3) {
			mes "^4d4dff[Valkyrie Realm] maximum achieved^000000";
			mes "-> Abyss Gate available";
		} else {
			mes "No data for [Valkyrie Realm].";
		} if (.@inv_result_pay == 1) {
			mes "^aaaaaa[Greenwood Lake] below minimum^000000";
		} else if (.@inv_result_pay == 2) {
			mes "[Greenwood Lake] minimum achieved";
			mes "-> Guild Dungeon Deepest Layer (2F) available";
		} else if (.@inv_result_pay == 3) {
			mes "^4d4dff[Greenwood Lake] maximum achieved^000000";
			mes "-> Abyss Gate available";
		} else {
			mes "No data for [Greenwood Lake].";
		} if (.@inv_result_gef == 1) {
			mes "^aaaaaa[Britoniah] below minimum^000000";
		} else if (.@inv_result_gef == 2) {
			mes "[Britoniah] minimum achieved";
			mes "-> Guild Dungeon Deepest Layer (2F) available";
		} else if (.@inv_result_gef == 3) {
			mes "^4d4dff[Britoniah] maximum achieved^000000";
			mes "-> Abyss Gate available";
		} else {
			mes "No data for [Britoniah].";
		} if (.@inv_result_alde == 1) {
			mes "^aaaaaa[Luina] below minimum^000000";
		} else if (.@inv_result_alde == 2) {
			mes "[Luina] minimum achieved";
			mes "-> Guild Dungeon Deepest Layer (2F) available";
		} else if (.@inv_result_alde == 3) {
			mes "^4d4dff[Lunia] maximum achieved^000000";
			mes "-> Abyss Gate available";
		} else {
			mes "No data for [Lunia].";
		}
		close;
	}
	mes "!- Notice -!";
	mes "No investment information will be announced now.";
	close;
}

aldeg_cas02,124,49,3	duplicate(aldeg_hoa)	Gate Manager#aldeg_cas02	421
aldeg_cas03,121,75,3	duplicate(aldeg_hoa)	Gate Manager#aldeg_cas03	421
aldeg_cas04,25,67,7	duplicate(aldeg_hoa)	Gate Manager#aldeg_cas04	421
aldeg_cas05,54,200,3	duplicate(aldeg_hoa)	Gate Manager#aldeg_cas05	421