diff options
Diffstat (limited to 'npc/other/marriage.txt')
| -rw-r--r-- | npc/other/marriage.txt | 973 |
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; - } -} |