//===== Hercules Script =======================================
//=
//===== By: ==================================================
//=
//===== Current Version: =====================================
//= 1.0
//===== Compatible With: =====================================
//= rAthena
//===== Description: =========================================
//= [Aegis Conversion]
//= Original filename:
//= NPC list:
//= - Cat Paw Merchant Guild Megrez (alde_gld 186 157)
//= - Megrez#alde_f00 (alde_gld 191 164)
//= - Investment Status Board#fund04 (alde_gld 188 158)
//===== Additional Comments: =================================
//= 1.0 Converted from the official Aegis script.
//============================================================
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){
callsub S_Fundextra "alde_gld";
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){
callsub S_Fundextra "alde_gld";
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){
callsub S_Fundextra "alde_gld";
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){
callsub S_Fundextra "alde_gld",;
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){
callsub S_Fundextra 10;
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;
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){
callsub S_Fundextra 50;
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;
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;
}
if(getcastledata "alde_gld",19 >= 2000){
callsub S_Fundextra "alde_gld";
end;
}
set .@don, .@input * 10;
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.";
set Zeny, Zeny - .@don;
setcastledata ""+getarg(0)+"",18,.@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(0);
getitem 6488,getarg(1);
close;
}