//===== 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