summaryrefslogtreecommitdiff
path: root/npc/other/marriage.txt
diff options
context:
space:
mode:
Diffstat (limited to 'npc/other/marriage.txt')
-rw-r--r--npc/other/marriage.txt973
1 files changed, 0 insertions, 973 deletions
diff --git a/npc/other/marriage.txt b/npc/other/marriage.txt
deleted file mode 100644
index 0f640af2a..000000000
--- a/npc/other/marriage.txt
+++ /dev/null
@@ -1,973 +0,0 @@
-//================= Hercules Script =======================================
-//= _ _ _
-//= | | | | | |
-//= | |_| | ___ _ __ ___ _ _| | ___ ___
-//= | _ |/ _ \ '__/ __| | | | |/ _ \/ __|
-//= | | | | __/ | | (__| |_| | | __/\__ \
-//= \_| |_/\___|_| \___|\__,_|_|\___||___/
-//================= License ===============================================
-//= This file is part of Hercules.
-//= http://herc.ws - http://github.com/HerculesWS/Hercules
-//=
-//= Copyright (C) 2012-2015 Hercules Dev Team
-//= Copyright (C) Euphy
-//= Copyright (C) L0ne_W0lf
-//=
-//= Hercules is free software: you can redistribute it and/or modify
-//= it under the terms of the GNU General Public License as published by
-//= the Free Software Foundation, either version 3 of the License, or
-//= (at your option) any later version.
-//=
-//= This program is distributed in the hope that it will be useful,
-//= but WITHOUT ANY WARRANTY; without even the implied warranty of
-//= MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-//= GNU General Public License for more details.
-//=
-//= You should have received a copy of the GNU General Public License
-//= along with this program. If not, see <http://www.gnu.org/licenses/>.
-//=========================================================================
-//= Player Marriage
-//================= Description ===========================================
-//= Official Marriage script.
-//= Added isloggedin() check, even though Aegis doesn't do it.
-//= Currently does not support same-Sex marriages.
-//================= Current Version =======================================
-//= 1.4
-//================= Variables Used ========================================
-//= - wedding_sign (max 1)
-//= - $@wedding (max 1)
-//= - $@wed_groom$ $@wed_bride$
-//=========================================================================
-
-prt_church,97,100,4 script Wedding Staff#w 1_F_LIBRARYGIRL,{
- cutin "wedding_marry01",2;
- if (Upper == 2) {
- mes "[Marry Happy]";
- mes "Hello~";
- mes "My name is Marry Happy";
- mes "and I'm here to provide you";
- mes "with information related to";
- mes "marriage. Now, did you";
- mes "have any questions?";
- next;
- if (select("I want to get married.", "I don't need your help!") == 1) {
- mes "[Marry Happy]";
- mes "Oh, I'm sorry, but";
- mes "adopted characters";
- mes "aren't allowed to get";
- mes "married. For now, why";
- mes "don't you enjoy the simple";
- mes "pleasures of childhood?";
- callsub L_End;
- }
- mes "[Marry Happy]";
- mes "Oh, of course you";
- mes "don't! Little children";
- mes "can't get married-- there";
- mes "are too many laws against";
- mes "that~ Aren't you the most";
- mes "adorable little thing?";
- callsub L_End;
- }
- mes "[Marry Happy]";
- mes "Marriage is the beautiful";
- mes "union of two souls that have";
- mes "chosen to be together forever,";
- mes "to share their joy and lives.";
- mes "Is there a special someone";
- mes "like that in your life?";
- next;
- switch(select("Ask about Wedding Ceremony", "Ask about Procedure", "Apply for Wedding", "We are the Invincible Single Army!")) {
- case 1:
- mes "[Marry Happy]";
- mes "Wise and benevolent";
- mes "King Tristram III used to";
- mes "conduct wedding ceremonies,";
- mes "but he's no longer able to do";
- mes "so because of his royal duties";
- mes "and freneticly paced schedule.";
- next;
- mes "[Marry Happy]";
- mes "Bishop Vomars, the bishop";
- mes "of love, is now the officiator";
- mes "of the marriage ceremony.";
- mes "He is truly a treasure to the";
- mes "Rune-Midgarts Kingdom.";
- next;
- mes "[Marry Happy]";
- mes "When you marry someone,";
- mes "it's for the rest of your life, so think carefully before making or";
- mes "accepting a marriage proposal.";
- mes "Keep in mind that a man can only";
- mes "marry a woman and vice versa.";
- next;
- mes "[Marry Happy]";
- mes "If you're lucky enough to";
- mes "find someone that you really";
- mes "want to spend the rest of your";
- mes "life with, you might want to pop the question. I hope everyone";
- mes "finds their perfect match~";
- break;
-
- case 2:
- mes "[Marry Happy]";
- mes "The first part of the";
- mes "wedding procedure is to";
- mes "complete the application.";
- mes "Once the bride and bridegroom";
- mes "have finished applying, they";
- mes "must form a party of two.";
- next;
- mes "[Marry Happy]";
- mes "After forming a party of two,";
- mes "the couple must then speak to";
- mes "Bishop Vomars. The bridegroom";
- mes "speaks first and must tell his";
- mes "bride's exact name to the Bishop. Otherwise, the ceremony will stop.";
- next;
- mes "[Marry Happy]";
- mes "Afterwards, the bride will";
- mes "speak to the Bishop and tell";
- mes "him the name of her groom.";
- mes "If these names are correctly";
- mes "told to the Bishop, they will";
- mes "be able to exchange rings.";
- next;
- mes "[Marry Happy]";
- mes "Once the wedding rings are";
- mes "exchanged, the couple is forever bound in matrimony. Of course,";
- mes "before this point, there are many chances to change your mind, so...";
- next;
- mes "[Marry Happy]";
- mes "If there are too many";
- mes "couples who want to get";
- mes "married at one time, please";
- mes "form a line and speak to Bishop";
- mes "Vomars in order since only one couple can be married at a time.";
- next;
- mes "[Marry Happy]";
- mes "Finally, be sure to tell";
- mes "Bishop Vomars your partner's";
- mes "exact name without wasting too much time. If you take too long,";
- mes "the ceremony will automatically stop and you'll have to try again.";
- next;
- mes "[Marry Happy]";
- mes "Brides need to remember";
- mes "that they only have 3 minutes";
- mes "to finish speaking to Bishop";
- mes "Vomars after their grooms";
- mes "have finished speaking to him.";
- next;
- if (select("Thanks, that helps a lot!", "Easiest way to say my partner's name?") == 1) {
- mes "[Marry Happy]";
- mes "Well, I'm here to help";
- mes "weddings proceed as";
- mes "smoothly as possible.";
- mes "If there was something";
- mes "you didn't understand,";
- mes "feel free to ask me again.";
- callsub L_End;
- }
- mes "[Marry Happy]";
- mes "The easiest way to write";
- mes "your partner's name for the";
- mes "bishop is to send a private";
- mes "message to your partner, and";
- mes "then left-click the name section that is left of the chat prompt.";
- next;
- mes "[Marry Happy]";
- mes "Press the ''Ctrl'' and ''C''";
- mes "keys to copy the name. Then,";
- mes "you can paste the name into";
- mes "the input prompt by pressing";
- mes "the ''Insert'' and ''Shift'' keys. That sounds easy, right?";
- next;
- mes "[Marry Happy]";
- mes "Alright, now let's try";
- mes "it. Practice giving me the";
- mes "name of your partner using";
- mes "the method I just described.";
- next;
- input .@partner$;
- mes "[Marry Happy]";
- mes "Alright, after you've";
- mes "decided to get married,";
- mes "come back to me and";
- mes "submit your application.";
- mes "I'll see you later, adventurer~";
- break;
-
- case 3:
- cutin "wedding_marry02",2;
- if (Sex == SEX_MALE) {
- mes "[Marry Happy]";
- mes "So you'd like to get married?";
- mes "As a groom, you need to prepare";
- mes "^3377FF1 Tuxedo^000000 and pay ^3377FF1,300,000 zeny^000000.";
- mes "Brides have to provide their own Wedding Dresses and pay a fee";
- mes "of 1,200,000 zeny.";
- }
- else {
- mes "[Marry Happy]";
- mes "So you'd like to get married?";
- mes "As a bride, you need to prepare";
- mes "1 Wedding Dress and pay a fee";
- mes "of 1,200,000 zeny. Grooms must";
- mes "bring a Tuxedo and pay 1,300,000 zeny to get married.";
- }
- next;
- mes "[Marry Happy]";
- mes "Brides and grooms also need";
- mes "to have ^3377FF1 Diamond Ring^000000 to be";
- mes "exchanged with their partners.";
- mes "You'll need all of these items";
- mes "prepared when you submit your";
- mes "wedding ceremony application.";
- next;
- mes "[Marry Happy]";
- mes "The prospective bride and";
- mes "groom must both complete";
- mes "application process before";
- mes "the wedding can take place.";
- mes "Now, would you like to";
- mes "apply for marriage?";
- next;
- if (select("Yes", "No") == 1) {
- if (getpartnerid()) {
- cutin "wedding_marry02",2;
- mes "[Marry Happy]";
- mes "I'm sorry, but you can't";
- mes "apply for another marriage!";
- mes "I can't allow you to betray";
- mes "your spouse like that, and";
- mes "besides, polygamy isn't";
- mes "legal here in Rune-Midgarts.";
- break;
- }
- else if (wedding_sign == 1) {
- mes "[Marry Happy]";
- mes "Didn't you already";
- mes "complete the application?";
- mes "Hmm, make sure that your";
- mes "partner also finished the";
- mes "application process, and";
- mes "then talk to Bishop Vomars.";
- break;
- }
- else if (BaseLevel < 45) {
- mes "[Marry Happy]";
- mes "Hmm, you need to be";
- mes "strong enough to protect";
- mes "the one that you love before";
- mes "you can consider marriage.";
- mes "After you grow stronger,";
- mes "come and talk to me again.";
- callsub L_End;
- }
- else if (countitem(Diamond_Ring) < 1) {
- mes "[Marry Happy]";
- mes "Mm? Did you forget to";
- mes "bring the Diamond Ring";
- mes "to exchange with your partner";
- mes "during the wedding ceremony?";
- mes "Look for it carefully and come";
- mes "back after you find it, okay?";
- callsub L_End;
- } else if (Sex == SEX_MALE) {
- if (Zeny < 1300000) {
- mes "[Marry Happy]";
- mes "I'm sorry, but you don't";
- mes "have the 1,300,000 zeny";
- mes "that all grooms must pay";
- mes "for the wedding ceremony.";
- mes "Did you misplace your money?";
- callsub L_End;
- }
- else if (countitem(Tuxedo) < 1) {
- mes "[Marry Happy]";
- mes "Where's your Tuxedo?";
- mes "You absolutely have to";
- mes "wear it during the wedding";
- mes "ceremony! Find it, bring it";
- mes "to me, and then we can finally";
- mes "begin the wedding, okay?";
- callsub L_End;
- }
- } else if (Sex == SEX_FEMALE) {
- if (Zeny < 1200000) {
- mes "[Marry Happy]";
- mes "I'm sorry, but all brides";
- mes "must pay the 1,200,000";
- mes "zeny fee to proceed with the";
- mes "wedding ceremony. Perhaps";
- mes "you could ask your partner";
- mes "to help you with the funds?";
- callsub L_End;
- }
- else if (countitem(Wedding_Dress) < 1) {
- mes "[Marry Happy]";
- mes "Oh dear, did you forget";
- mes "your Wedding Dress?";
- mes "Hurry and find it, then";
- mes "bring it to me-- you";
- mes "absolutely need it";
- mes "for the wedding!";
- callsub L_End;
- }
- }
- mes "[Marry Happy]";
- mes "Well, it looks like you";
- mes "have everything ready.";
- mes "Although I'm not sure who";
- mes "your partner is, let me be";
- mes "the first to congratulate you";
- mes "on your upcoming wedding~";
- next;
- mes "[Marry Happy]";
- mes "Now, let's begin the";
- mes "application. Please write";
- mes "down your exact name here.";
- next;
- while(1) {
- input .@name$;
- if (.@name$ == strcharinfo(PC_NAME))
- break;
- mes "[Marry Happy]";
- mes "Hmmm, you have to write";
- mes "down your name exactly as";
- mes "it is displayed. Maybe you";
- mes "need to copy and paste it?";
- mes "Anyway, let's try it again.";
- next;
- }
- mes "[Marry Happy]";
- mes "Great, it looks like we";
- mes "finished your application.";
- mes "Remember that you'll need";
- mes "to tell Bishop Vomars your";
- mes "partner's exact name when";
- mes "you talk to him later, okay?";
- next;
- mes "[Marry Happy]";
- mes "When your partner is";
- mes "finished with the application";
- mes "process, both of you should";
- mes "speak to the Bishop to begin";
- mes "the wedding ceremony.";
- emotion e_lv;
- next;
- mes "[Marry Happy]";
- if (Sex == SEX_MALE) {
- mes "Since you're the groom,";
- mes "you need to speak to the";
- mes "Bishop first. When you're";
- mes "finished, it will be your";
- mes "bride's turn to speak to";
- mes "Bishop Vomars.";
- Zeny -= 1300000;
- delitem Tuxedo,1;
- }
- else {
- mes "Since you're the bride,";
- mes "you need to wait for the";
- mes "groom to speak to Bishop";
- mes "Vomars first. When he's";
- mes "finished, it'll be your turn";
- mes "to speak to Bishop Vomars.";
- Zeny -= 1200000;
- delitem Wedding_Dress,1;
- }
- delitem Diamond_Ring,1;
- wedding_sign = 1;
- callsub L_End;
- }
- mes "[Marry Happy]";
- mes "No...?";
- mes "Well, when you're";
- mes "ready for marriage,";
- mes "feel free to come back to";
- mes "me so that you can apply,";
- mes "okay? Have a good day~";
- break;
-
- case 4:
- cutin "wedding_marry02",2;
- donpcevent "Single Army#Prontera::OnEnable";
- donpcevent "Single Army#Geffen::OnEnable";
- donpcevent "Single Army#Morocc::OnEnable";
- donpcevent "Single Army#Payon::OnEnable";
- donpcevent "Single Army#Amatsu::OnEnable";
- donpcevent "Single Army#Gonryun::OnEnable";
- emotion e_omg;
- mes "[Single Army]";
- mes "^CC9933You have to refine";
- mes "items on your own to";
- mes "make great equipment!^000000";
- emotion e_rock,0,"Single Army#Prontera";
- next;
- mes "[Single Army]";
- mes "^330099It's a waste to";
- mes "form parties in";
- mes "dungeons! I can";
- mes "make it on my own!^000000";
- emotion e_rock,0,"Single Army#Geffen";
- next;
- mes "[Single Army]";
- mes "^666666Hell, I've trained";
- mes "all by myself since";
- mes "birth, all the way";
- mes "to my job change!^000000";
- emotion e_rock,0,"Single Army#Morocc";
- next;
- mes "[Single Army]";
- mes "^666600I CHOOSE to spend";
- mes "Christmas alone...";
- mes "playing Solitaire and";
- mes "doing crossword puzzles!^000000";
- emotion e_rock,0,"Single Army#Payon";
- next;
- mes "[Single Army]";
- mes "^CC9966Women may break my";
- mes "spirit, but they'll never";
- mes "take... my FREEDOM!^000000";
- emotion e_rock,0,"Single Army#Amatsu";
- next;
- mes "[Single Army]";
- mes "^669900...We're the free! We're";
- mes "the Invincible Single Army!^000000";
- emotion e_rock,0,"Single Army#Gonryun";
- close2;
- cutin "wedding_marry01",255;
- emotion e_swt;
- donpcevent "Single Army#Prontera::OnInit";
- donpcevent "Single Army#Geffen::OnInit";
- donpcevent "Single Army#Morocc::OnInit";
- donpcevent "Single Army#Payon::OnInit";
- donpcevent "Single Army#Amatsu::OnInit";
- donpcevent "Single Army#Gonryun::OnInit";
- end;
- }
- close2;
- cutin "wedding_marry01",255;
- end;
-
-L_End:
- close2;
- cutin "",255;
- end;
-}
-
-prt_church,97,102,0 script Single Army#Prontera 8W_SOLDIER,{
- mes "[Single Army]";
- mes "^CC9933You have to refine";
- mes "items on your own to";
- mes "make great equipment!^000000";
- close;
-
-OnInit:
- hideonnpc "Single Army#Prontera";
- end;
-
-OnEnable:
- hideoffnpc "Single Army#Prontera";
- emotion e_go;
- end;
-}
-
-prt_church,98,102,0 script Single Army#Geffen 4_M_GEF_SOLDIER,{
- mes "[Single Army]";
- mes "^330099It's a waste to";
- mes "form parties in";
- mes "dungeons! I can";
- mes "make it on my own!^000000";
- close;
-
-OnInit:
- hideonnpc "Single Army#Geffen";
- end;
-
-OnEnable:
- hideoffnpc "Single Army#Geffen";
- emotion e_go;
- end;
-}
-
-prt_church,99,102,0 script Single Army#Morocc 4_M_MOC_SOLDIER,{
- mes "[Single Army]";
- mes "^666666Hell, I've trained";
- mes "all by myself since";
- mes "birth, all the way";
- mes "to my job change!^000000";
- close;
-
-OnInit:
- hideonnpc "Single Army#Morocc";
- end;
-
-OnEnable:
- hideoffnpc "Single Army#Morocc";
- emotion e_go;
- end;
-}
-
-prt_church,100,102,0 script Single Army#Payon 4_M_PAY_SOLDIER,{
- mes "[Single Army]";
- mes "^666600I CHOOSE to spend";
- mes "Christmas alone...";
- mes "playing Solitaire and";
- mes "doing crossword puzzles!^000000";
- close;
-
-OnInit:
- hideonnpc "Single Army#Payon";
- end;
-
-OnEnable:
- hideoffnpc "Single Army#Payon";
- emotion e_go;
- end;
-}
-
-prt_church,101,102,0 script Single Army#Amatsu 8_M_JPNSOLDIER,{
- mes "[Single Army]";
- mes "^CC9966Women may break my";
- mes " spirit, but they'll never";
- mes "take... my FREEDOM!^000000";
- close;
-
-OnInit:
- hideonnpc "Single Army#Amatsu";
- end;
-
-OnEnable:
- hideoffnpc "Single Army#Amatsu";
- emotion e_go;
- end;
-}
-
-prt_church,102,102,0 script Single Army#Gonryun 8_M_TWSOLDIER,{
- mes "[Single Army]";
- mes "^669900...We're the free! We're";
- mes "the Invincible Single Army!^000000";
- close;
-
-OnInit:
- hideonnpc "Single Army#Gonryun";
- end;
-
-OnEnable:
- hideoffnpc "Single Army#Gonryun";
- emotion e_go;
- end;
-}
-
-prt_church,100,128,4 script Bishop#w 1_M_PASTOR,{
- cutin "wedding_bomars01",2;
- if (Upper == 2) {
- mes "[Vomars]";
- mes "Greetings, child.";
- mes "Are you lost? Hmmm.";
- mes "Do you know where your";
- mes "mommy and daddy are?";
- close2;
- cutin "wedding_bomars01",255;
- end;
- }
-
- if (!getpartnerid()) {
- if (!$@wedding) {
- if (wedding_sign == 1) {
- getpartymember(getcharid(CHAR_ID_PARTY));
- .@partymembercount = $@partymembercount;
- if (.@partymembercount == 2) {
- if (Sex == SEX_MALE) {
- $@wedding = 1;
- initnpctimer;
- mes "[Vomars]";
- mes "Young lovers, please";
- mes "remember this moment for";
- mes "the rest of your lives. May your future be blessed with peace";
- mes "and joy. May the love you share";
- mes "grow with each passing day.";
- next;
- mapannounce "prt_church","It's the marriage proposal from the groom, Mr. " + strcharinfo(PC_NAME) + "...",bc_map;
- mes "[Vomars]";
- mes "Until the end of the";
- mes "world, may you stand";
- mes "by the side of the one";
- mes "whom you love, to support";
- mes "her and protect her. Now, may";
- mes "I know the name of your bride?";
- next;
- input $@wed_bride$;
- mes "[Vomars]";
- mes "Mr. " + strcharinfo(PC_NAME) + "...";
- mes "Do you swear on your life";
- mes "that you will forever cherish";
- mes "and care for your bride,";
- mes "Miss " + $@wed_bride$ + "?";
- next;
- select("I do.");
- $@wed_groom$ = strcharinfo(PC_NAME);
- mes "[Vomars]";
- mes "Now, it is time for";
- mes "your bride to make";
- mes "her wedding vows.";
- mes "If she will come forward...";
- close2;
- mapannounce "prt_church","The groom, Mr. " + strcharinfo(PC_NAME) + ", has made his vows to Miss " + $@wed_bride$ + "...",bc_map;
- cutin "",255;
- end;
- }
- mes "[Vomars]";
- mes "I'm sorry, but the groom";
- mes "must speak to me first in";
- mes "order to begin the wedding.";
- mes "It's old fashioned protocol,";
- mes "but I'll admit that it does";
- mes "keep things running smoothly.";
- callsub L_End;
- }
- mes "[Vomars]";
- mes "Before you can be";
- mes "married, you must";
- mes "first form a party of";
- mes "two with your partner.";
- mes "Then, we can proceed";
- mes "with the ceremony.";
- callsub L_End;
- }
- mes "[Vomars]";
- mes "You must apply for";
- mes "marriage with Happy Marry";
- mes "before you can get married.";
- mes "Happy Marry will let you know";
- mes "what else you'll need to do";
- mes "to prepare for marriage.";
- callsub L_End;
- }
- else if ($@wedding == 1) {
- if (wedding_sign == 1) {
- getpartymember(getcharid(CHAR_ID_PARTY));
- .@partymembercount = $@partymembercount;
- if (.@partymembercount == 2) {
- if (Sex == SEX_FEMALE) {
- if (strcharinfo(PC_NAME) == $@wed_bride$) {
- mes "[Vomars]";
- mes "Young lovers, please";
- mes "remember this moment for";
- mes "the rest of your lives. May your future be blessed with peace";
- mes "and joy. May the love you share";
- mes "grow with each passing day.";
- next;
- mapannounce "prt_church","Let's hear what the bride, Miss "+$@wed_bride$+", has to say...",bc_map;
- mes "[Vomars]";
- mes "Miss "+$@wed_bride$+"...";
- mes "Do you swear to stay";
- mes "true to "+$@wed_groom$+",";
- mes "to be by his side, no matter";
- mes "what the dangers may be?";
- next;
- if (select("^FF0000No.^000000", "I do.") == 1) {
- cutin "wedding_bomars03",2;
- mapannounce "prt_church","Next couple, please proceed...",bc_map;
- mes "[Vomars]";
- mes "So "+$@wed_groom$;
- mes "isn't the one you";
- mes "want to marry? Hmm.";
- mes "I'm truly sorry for this";
- mes "misunderstanding...";
- $@wedding = 0;
- close2;
- stopnpctimer;
- cutin "",255;
- end;
- }
- mes "[Vomars]";
- mes "Do you truly swear";
- mes "fidelity and patience?";
- mes "Will you marry "+$@wed_groom$+"?";
- next;
- if (select("Yes, I do.", "^FF0000No.^000000") == 1) {
- if (isloggedin(getcharid(CHAR_ID_ACCOUNT,$@wed_groom$))) {
- if (marriage($@wed_groom$)) {
- //Call Wedding effect
- wedding;
- //Give ring to Bride, and change to wedding sprite.
- sc_start SC_WEDDING,3600000,1;
- getitem Bride_Ring,1;
- //Give ring to Groom, and change to wedding sprite.
- attachrid(getcharid(CHAR_ID_ACCOUNT,$@wed_groom$));
- sc_start SC_WEDDING,3600000,1;
- getitem Bridegroom_Ring,1;
- detachrid;
- //Switch Script progression back to Bride
- attachrid(getcharid(CHAR_ID_ACCOUNT,$@wed_bride$));
- cutin "wedding_bomars02",2;
- mapannounce "prt_church","I now pronounce you, "+$@wed_groom$+" and "+$@wed_bride$+", husband and wife.",bc_map;
- mes "[Vomars]";
- mes "By the power invested";
- mes "in me as Royal Bishop of";
- mes "the Rune-Midgarts Kingdom,";
- mes "I now pronounce you husband";
- mes "and wife. May your future be";
- mes "blessed with many great joys.";
- next;
- mes "[Vomars]";
- mes "And lastly...";
- mes "Always be happy,";
- mes "dear "+$@wed_bride$+"...";
- $@wed_groom$ = "";
- $@wed_bride$ = "";
- $@wedding = 0;
- close2;
- stopnpctimer;
- cutin "",255;
- detachrid;
- end;
- }
- }
- cutin "wedding_bomars03",2;
- mes "[Vomars]";
- mes "Hm. It seems that";
- mes "your groom left before";
- mes "the ceremony has finished";
- mes "Please try again once he's";
- mes "returned.";
- callsub L_End;
- }
- else {
- cutin "wedding_bomars03",2;
- mapannounce "prt_church","Alas! "+$@wed_bride$+" has rejected "+$@wed_groom$+"'s marriage proposal!",bc_map;
- mes "[Vomars]";
- mes "Hm. It seems that";
- mes "you've changed your";
- mes "mind. Although I feel";
- mes "sorry for the groom, you";
- mes "must do what your heart";
- mes "tells you is right. Now, run!";
- }
- $@wed_groom$ = "";
- $@wed_bride$ = "";
- $@wedding = 0;
- close2;
- stopnpctimer;
- cutin "",255;
- end;
- }
- callsub S_Busy;
- }
- callsub S_Busy;
- }
- callsub S_Busy;
- }
- if (strcharinfo(PC_NAME) == $@wed_bride$) {
- mes "[Vomars]";
- mes "Hm? It appears that";
- mes "Happy Marry still hasn't";
- mes "received your marriage";
- mes "application. Please speak";
- mes "to her so that we can begin";
- mes "the wedding ceremony.";
- callsub L_End;
- }
- callsub S_Busy;
- }
- callsub S_Busy;
- }
- mes "[Vomars]";
- mes "I wish you eternal";
- mes "happiness. No matter";
- mes "how dark the present may";
- mes "be, always stand by your";
- mes "loved one's side and look";
- mes "to the future with hope.";
-
-L_End:
- close2;
- cutin "",255;
- end;
-
-S_Busy:
- if ($@wed_groom$ != "" && $@wed_bride$ != "") {
- mes "[Vomars]";
- mes "The wedding of";
- mes "Miss "+ $@wed_bride$ +" and";
- mes "Mister "+ $@wed_groom$;
- mes "is currently in progress.";
- mes "Please keep your voice down.";
- callsub L_End;
- }
- mes "[Vomars]";
- mes "I'm conducting a wedding";
- mes "for another couple now, so";
- mes "please wait patiently for your";
- mes "turn. Thanks for understanding... ";
- callsub L_End;
-
-OnStop:
- stopnpctimer;
- end;
-
-OnReset:
- $@wed_groom$ = "";
- $@wed_bride$ = "";
- $@wedding = 0;
- end;
-
-OnTimer180000:
- mapannounce "prt_church","You've responded too slowly... Next couple, please proceed.",bc_map;
- donpcevent "Bishop#w::OnReset";
- stopnpctimer;
- end;
-}
-
-prt_church,28,178,4 script The King of Midgart 1_M_PRON_KING,{
- callfunc "F_GM_NPC";
- mes "[Vomars]";
- mes "Wh-who are you?";
- mes "You must know the";
- mes "password to invoke";
- mes "my awesome powers.";
- next;
- if (callfunc("F_GM_NPC",1854,0) < 1) {
- mes "[Vomars]";
- mes "This is";
- mes "no place for";
- mes "fooling around.";
- close2;
- warp "prt_church",101,102;
- end;
- }
- mes "[Wedding Switch]";
- mes "Is there a problem with";
- mes "the wedding ceremony?";
- mes "I can reset the Bishop";
- mes "Vomars NPC if you like.";
- next;
- switch(select("No, thanks", "RESET")) {
- case 1:
- mes "[Wedding Switch]";
- mes "Alright, then.";
- mes "However, if the";
- mes "Bishop Vomars";
- mes "NPC is stuck, it may";
- mes "be best to reset it.";
- close;
- case 2:
- donpcevent "Bishop#w::OnStop";
- donpcevent "Bishop#w::OnReset";
- mapannounce "prt_church","You've responded too slowly... Next couple, please proceed.",bc_map;
- mes "[Wedding Switch]";
- mes "The Bishop Vomars NPC";
- mes "has now been reactivated.";
- mes "It should now be possible";
- mes "to proceed with weddings.";
- close;
- }
-}
-
-prt_church,20,179,4 script Divorce Staff 1_F_LIBRARYGIRL,{
- callfunc "F_GM_NPC";
- mes "[Bad Ending]";
- mes "Uh oh...";
- mes "You know I can't";
- mes "do anything for you.";
- next;
- if (callfunc("F_GM_NPC",1854,0) < 1) {
- mes "[Bad Ending]";
- mes "Hmm...";
- mes "You really";
- mes "shouldn't be";
- mes "in this place...";
- close;
- }
- mes "[Bad Ending]";
- mes "Great, you know the";
- mes "password! Now, did you";
- mes "want me to remove the";
- mes "Wedding Ring in your";
- mes "inventory?";
- next;
- switch(select("Drop 1 Wedding Ring.", "Keep it.")) {
- case 1:
- .@ring = (Sex == SEX_MALE) ? 2634 : 2635; //Bridegroom_Ring, Bride_Ring
- if (countitem(.@ring)) {
- delitem .@ring,1;
- mes "[Bad Ending]";
- mes "It's done!";
- } else {
- mes "[Bad Ending]";
- mes "I couldn't find";
- mes "the Wedding Ring...";
- mes "Please make sure";
- mes "that it's not equipped.";
- }
- close;
- case 2:
- mes "[Bad Ending]";
- mes "You sure you want";
- mes "to keep that ring?";
- mes "Alright, but if it becomes";
- mes "a problem, you come to me.";
- close;
- }
-}
-
-prt_church,22,179,4 script Remarry Staff 1_F_LIBRARYGIRL,{
- callfunc "F_GM_NPC";
- mes "[Wedding Again]";
- mes "Hmm...?";
- mes "What exactly are";
- mes "you doing here?";
- next;
- if (callfunc("F_GM_NPC",1854,0) < 1) {
- mes "[Wedding Again]";
- mes "Ahk!";
- mes "An adventurer";
- mes "like you shouldn't";
- mes "be in this place!";
- close;
- }
- if (getpartnerid()) {
- mes "[Wedding Again]";
- mes "Hmm...";
- mes "I can only create";
- mes "a Wedding Ring if the";
- mes "character is married.";
- close;
- }
- mes "[Wedding Again]";
- mes "Ah, I see that you";
- mes "know the password.";
- mes "Alright, if you somehow";
- mes "lost your Wedding Ring,";
- mes "I can make you a new one.";
- next;
- switch(select("Make new Wedding Ring.", "Cancel.")) {
- case 1:
- .@ring = (Sex == SEX_MALE) ? 2634 : 2635; //Bridegroom_Ring, Bride_Ring
- if (countitem(.@ring) || isequipped(.@ring)) {
- mes "[Wedding Again]";
- mes "Wait, wait...";
- mes "You're wearing your";
- mes "Wedding Ring. I better";
- mes "not make you another since";
- mes "you don't need more than one.";
- } else {
- getitem .@ring,1;
- mes "[Wedding Again]";
- mes "Here you go~";
- mes "It's your brand";
- mes "new Wedding Ring!";
- }
- close;
- case 2:
- mes "[Wedding Again]";
- mes "Alright. If you ever";
- mes "lose your Wedding Ring,";
- mes "come to me if you happen";
- mes "to need a new one, okay?";
- close;
- }
-}