1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
|
//UNFINISHED! need to set names and give rings!
//Made by AppleGirl and Evera/Lorri.
//PROPERTY OF eATHENA! OTHER ATHENAS DON'T TOUCH THIS!
//Note: permanent variables event_marriage. 0=nothing done yet 1=m registered 2=f registered 3=m before ring 4=f before ring 5=m married 6=f married
prt_church.gat,99,125,8 script Tristan the Third 108,{
mes "[Thristan the Third]";
if(event_marriage == 0) goto Lreg;
if(event_marriage == 1) goto Lmale;
if(event_marriage == 2) goto Lfemale;
if(event_marriage == 3) && (countitem(2634)<1) || (event_marriage == 3) && (getequipname(136) == 2634) goto Lmcere;
if(event_marriage == 4) && (countitem(2635)<1) || (event_marriage == 4) && (getequipname(136) == 2635) goto Lfcere;
if(event_marriage >= 5) goto Lhappy;
//else goto Lhappy;
//if(even
Lreg:
mes "If you wish to get married you must first register";
Lmale:
if (getequipname(16) == 7170) goto Lmale2;
if (getequipname(16) != 7170) goto Lmale3;
mes "OmG1! H4X0Rz!1";
close;
Lmale2:
if (zeny >= 30000) goto Lmale4;
if (zeny <= 29999) goto Lmale3;
mes "OmG1! H4X0Rz!1";
close;
//NOTE! Triggers to save/respond names aren't done!
Lmale4:
mes "Hello, how are you doing this wonderful day? Ah. I see you've registered to marry";
mes "Do you wish to marry?";
menu
"yes",Lmyes,"No",Lcancel;
Lmyes:
//enable for input; can't be done with current script.c
// mes"What is your bride's name?";
// input @namemale;
next;
mes "I will now collect your ^FF00FFmoney^000000.";
set Zeny, Zeny-30000;
next;
//enable for input; can't be done with current script.c
// input @namemale;
mes "Here is the ring. Please put it on your bride's hand";
mes "By the holy power invested in me..";
mes "I now pronounce you husband and wife!";
mes "you may now kiss the bride.";
emotion 46;
//enable for setvariable
set event_marriage,3;
getitem 2634,1;
close;
Lmale3:
mes "Hm, have you forgotten to bring your ^FF00FFTuxedo^000000 or ^FF00FFmoney^000000?";
mes "Have a good look for it.";
mes "Because you must bring it in order to get married.";
mes "If you have it right now, please show me";
close;
Lfemale:
if (zeny >= 20000) goto Lfemale4;
if (zeny <= 19999) goto Lfemale3;
mes "OmG1! H4X0Rz!1";
close;
Lfemale4:
mes "Hello, how are you doing this wonderful day? Ah. I see you've registered to marry";
mes "Do you wish to marry?";
menu
"yes",Lfyes,"No",Lcancel;
Lfyes:
//enable for input; can't be done with current script.c
// mes "What is your groom's name?";
// input @namefemale;
next;
mes "I will now collect your ^FF00FFmoney^000000.";
set Zeny, Zeny-20000;
next;
//enable for input; can't be done with current script.c
input @namefemale;
mes "Here is the ring. Please put it on your groom's hand";
mes "By the holy power invested in me..";
mes "I now pronounce you husband and wife!";
//enable for setvariable
set event_marriage,4;
getitem 2635,1;
close;
Lfemale3:
mes "Hm, have you forgotten to bring your ^FF00FFWedding Veil^000000, ^FF00FFWedding Dress^000000, or ^FF00FFMoney^000000?";
mes "Have a good look for it.";
mes "Because you must bring it in order to get married.";
mes "If you have it right now, please show me";
close;
Lmcere:
mes "By the holy power invested in me..";
mes "I now pronounce you husband and wife!";
mes "you may now kiss the bride.";
emotion 46;
set event_marriage,5;
close;
Lfcere:
mes "By the holy power invested in me..";
mes "I now pronounce you husband and wife!";
emotion 46;
set event_marriage,6;
close;
Lhappy:
mes "I hope your marriage is happy and successful!";
close;
Lcancel:
mes "A true pity. I hope to see you another time.";
close;
}
prt_church.gat,95,100,3 script Mary 71,{
mes "[Mary Happy]";
if(event_marriage == 0) goto Lstart;
if(event_marriage != 0) goto Lhappy;
mes "OmG1! H4X0Rz!1";
close;
Lstart:
mes "Getting married bring a lot of joy.";
mes "By any chance, you you want to get engaged with someone?";
next;
menu "Explain the principles of Marrige",Lprinciples,"How does the marrige system work.",Lsystem,"I want to get married with someone.",Lmarried,"I live solo forever!",Lsolo;
Lprinciples:
mes "[Mary Happy]";
mes "His Majesty King Tristan III of the Rune Midgard Kingdom will be officiating this wedding, with the intent of blessing all the people through his noble message.";
next;
mes "[Mary Happy]";
mes "Although His Majesty has a rather busy agenda, for the sake of newly married couples, he has personally come here, to the Prontera Church.";
mes "It is the favor of our King that everyone would live happily ever after.";
next;
mes "[Mary Happy]";
mes "The proposal must be done with prudence and courtesy.";
mes "Once the wedlocks have been made, they cannot be undone.";
mes "The two who are united in marriage must be with the other forever until the day they leave this world.";
next;
mes "[Mary Happy]";
mes "Also, males only with females, and females only with males can be wed. Although there may be those who desire a homosexual or bestial marriage... it is not approved.";
next;
mes "[Mary Happy]";
mes "If there is a significant other whom you want to spend the rest of your life with, then don't be shy to propose.";
mes "Wishing for many blessings upon couples who wish to live happily ever after..";
close;
Lsystem:
mes "[Mary Happy]";
mes "First make sure both players a registered to get married.";
mes "Obviously, you must know each other to get married?";
mes "If both have registered, and you must be on the same party.";
mes "Then talk to Thristan the Third.";
next;
mes "[Mary Happy]";
mes "You must go to Thristan the Third,";
mes "and the male must talk to him first.";
mes "And you must tell him the girl";
mes "you wish to get married with.";
mes "Be sure to tell him exactly who you want to marry.";
next;
mes "[Mary Happy]";
mes "After the male has spoken, next the female must talk.";
mes "Then when both of you have spoken each others names,";
mes "Thristan the third will read out both of your names.";
next;
mes "[Mary Happy]";
mes "After you have got married,";
mes "you will both recive a ring of marrige.";
mes "And as soon as both of you wear these rings,";
mes "you will be forever married with each other.";
mes "You can also be refused of a lasting marrige.";
mes "But, dont be sad.";
next;
mes "[Mary Happy]";
mes "If there are many people that wish to get married,";
mes "So please keep to the order you register.";
mes "Thristan does not do multiple marriges at once.";
mes "He will only see one couple at a time.";
next;
mes "[Mary Happy]";
mes "Lastly, you must put forth your name quickly";
mes "to Thristan the third.";
mes "After the male has said yes to marrage ";
mes "the female has 3 minutes to reply.";
mes "Or you shall forever never be able";
mes "to get married.";
next;
mes "[Mary Happy]";
mes "An easy way to write down the each others name,";
mes "Send a message to each other";
mes "then in the private message window press up";
next;
//o_O who removed this part? we use a diff system now
// mes "[Mary Happy]";
// mes "Then it will show the other persons name.";
// mes "If you press ctrl + C that name will be saved.";
// mes "Next time you need that name";
// mes "you can press shift + insert.";
// mes "Then you will get that name quickly and easily.";
// next;
// mes "[Mary Happy]";
// mes "You should have a go at using this method.";
// mes "Remeber, Press ctrl + C to save that name.";
// next;
// input @nametest;
mes "[Mary Happy]";
mes "Hopefully you will remember this method.";
mes "If you ever decide to get married.";
mes "Remember to register.";
Lmarried:
mes "[Mary Happy]";
mes "If you wish to get married you must first register.";
mes "Male is ^FF00FF30,000^000000 zeny and female is ^FF00FF20,000^000000 zeny";
mes "Both male and female must have registered,";
mes "and both must have paid fees,";
mes "and the female must have a wedding veil.";
next;
mes "[Mary Happy]";
mes "If both people have paid and meet recquirements";
mes "you are able to get married strait away.";
mes "Do you wish to register to get married?";
menu "Yes",LYes,"No",LNo;
LYes:
//add check for sex and if veil and tuxedo and wedding dress
if (Sex == 1) goto Lmale;
if (Sex == 0) goto Lfemale;
Lmale:
if (getequipname(16) == 7170) goto Lmale2;
if (getequipname(16) != 7170) goto Lmale3;
mes "[Mary Happy]";
mes "OmG1! H4X0Rz!1";
close;
Lmale2:
if (zeny >= 30000) goto Lmale4;
if (zeny <= 29999) goto Lmale3;
mes "[Mary Happy]";
mes "OmG1! H4X0Rz!1";
close;
Lmale4:
set event_marriage,1;
mes "[Mary Happy]";
mes "You are now registered =) go talk to his majesty, King Tristan III for your marriage.";
close;
Lmale3:
mes "[Mary Happy]";
mes "Hm, have you forgotten to bring your ^FF00FFTuxedo^000000 or ^FF00FFmoney^000000?";
mes "Have a good look for it.";
mes "Because you must bring it in order to get married.";
mes "If you have it right now, please show me";
close;
Lfemale:
if (getequipname(16) == 2338) && (getequipname(256) == 2206) goto Lfemale2;
if (getequipname(16) != 2338) || (getequipname(256) == 2206) goto Lfemale3;
mes "[Mary Happy]";
mes "OmG1! H4X0Rz!1";
Lfemale2:
if (zeny >= 20000) goto Lfemale4;
if (zeny <= 19999) goto Lfemale3;
mes "[Mary Happy]";
mes "OmG1! H4X0Rz!1";
Lfemale4:
set event_marriage,2;
mes "[Mary Happy]";
mes "You are now registered =) go talk to his majesty, King Tristan III for your marriage.";
Lfemale3:
mes "[Mary Happy]";
mes "Hm, have you forgotten to bring your ^FF00FFWedding Veil^000000, ^FF00FFWedding Dress^000000, or ^FF00FFMoney^000000?";
mes "Have a good look for it.";
mes "Because you must bring it in order to get married.";
mes "If you have it right now, please show me";
close;
LNo:
mes "I hope you have a wonderful day!";
close;
Lhappy:
mes "I hope your marriage is happy and successful!";
close;
}
|
