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.txt51
1 files changed, 31 insertions, 20 deletions
diff --git a/npc/other/marriage.txt b/npc/other/marriage.txt
index 8f49532a5..200968bb2 100644
--- a/npc/other/marriage.txt
+++ b/npc/other/marriage.txt
@@ -7,14 +7,14 @@
//=====By================================================
// AppleGirl and Evera(version 1.0)
//=====Current Version===================================
-// 2.7
+// 2.8
//=====Compatible With:==================================
-// eAthena Version SVN-R4287 and up; RO Episode 6+
+// eAthena Version SVN-R8637 and up; RO Episode 6+
//=====Description=======================================
// Fully working wedding script for all kind of weddings
//=====Additional Comments:==============================
// Lesbian and Gay Weddings by ShadowLady (version 1.1)
-// Complete Rewrite by Skotlex (version 2.0->2.5)
+// Complete Rewrite by Skotlex (version 2.0->2.8)
//=======================================================
//
@@ -35,9 +35,9 @@ OnInit:
}
// Other Configuration:
-// Line 59,60: Priest location, sprite and name.
-// Line 430,431: Registration location, sprite and name.
-// Line 803,804: Divorcing location, sprite and name.
+// Line 61,62: Priest location, sprite and name.
+// Line 437,438: Registration location, sprite and name.
+// Line 813,814: Divorcing location, sprite and name.
// Variable Notes:
// $wed_progress Signals that there is a wedding in progress
@@ -51,6 +51,8 @@ OnInit:
// Retrieve the ring. 4: Retrieved the ring. 5: All set to be wed. 6: Already
// a couple.
// ceremony.
+// $wedding_effect_id - When wedding_effect is enabled, sets the ID of the
+// player to show the effect on.
// $divorce_progress signals that there is a divorce in progress
// $@divorcer$ name of the person who requested divorce
// $@divorcee id of the partner, who has to accept the divorce and pay.
@@ -123,7 +125,7 @@ function SF_Groom {
switch($wed_groom_progress) {
case 1:
- goto SF_AcceptBride;
+ SF_AcceptBride();
break;
case 2:
mes "["+@name$+"]";
@@ -266,9 +268,10 @@ function SF_RetrieveRingM {
mes "What happened to your "+getitemname($@wed_ring)+"? You didn't lose it... did you? We need it to continue with the ceremony!";
close;
}
- set @item, 2635; //Bride's wedding ring
if ($wed_bride_sex)
set @item, 2634; //Groom's wedding ring
+ else
+ set @item, 2635; //Bride's wedding ring
if (getnameditem(@item,$wed_groom$) == 0) {
mes "You don't seem to have enough space to carry the ring... go free up some space and come back to reclaim your partner's ring.";
close;
@@ -276,6 +279,7 @@ function SF_RetrieveRingM {
mes "Here's the wedding ring for your bride.";
if ($@wed_ring) delitem $@wed_ring,1;
set $wed_groom_progress,4;
+
if ($wed_bride_progress == 4)
SF_StartCeremony();
else {
@@ -290,9 +294,11 @@ function SF_RetrieveRingF {
mes "What happened to your "+getitemname($@wed_ring)+"? You didn't lose it... did you? We need it to continue with the ceremony!";
close;
}
- set @item, 2635; //Bride's wedding ring
if ($wed_groom_sex)
set @item, 2634; //Groom's wedding ring
+ else
+ set @item, 2635; //Bride's wedding ring
+
if (getnameditem(@item,$wed_bride$) == 0) {
mes "You don't seem to have enough space to carry the ring... go free up some space and come back to reclaim your partner's ring.";
close;
@@ -300,6 +306,7 @@ function SF_RetrieveRingF {
mes "Here's the wedding ring for your groom.";
if ($@wed_ring) delitem $@wed_ring,1;
set $wed_bride_progress,4;
+
if ($wed_groom_progress == 4)
SF_StartCeremony();
else {
@@ -323,13 +330,8 @@ function SF_StartCeremony {
}
set $wed_bride_progress,6;
set $wed_groom_progress,6;
- close2;
initnpctimer;
- if ($@wedding_effect == 1)
- attachnpctimer $wed_bride$;
- if ($@wedding_effect == 2)
- attachnpctimer $wed_groom$;
- end;
+ close;
}
OnTimer1000:
@@ -378,10 +380,14 @@ OnTimer50000:
OnTimer55000:
npctalk "I pronounce you Husband and Wife, you may kiss the bride and exchange rings.";
+ if ($wedding_effect_id && isloggedin($wedding_effect_id))
+ {
+ attachrid($wedding_effect_id);
+ wedding;
+ detachrid;
+ } else
+ wedding;
SF_wed_end();
- wedding;
- if ($@wedding_effect)
- detachnpctimer;
stopnpctimer;
end;
@@ -417,6 +423,7 @@ function SF_wed_end {
set $wed_groom_progress,0;
set $wed_bride_progress,0;
set $wed_progress,0;
+ set $wedding_effect_id,0;
}
OnInit:
@@ -716,10 +723,14 @@ function SF_TryRegister {
set $wed_bride_progress,1;
set $wed_bride$,strcharinfo(0);
set $wed_bride_sex, sex;
+ if ($@wedding_effect == 1) //Store account id for effect.
+ set $wedding_effect_id, getcharid(3);
} else {
set $wed_groom_progress,1;
set $wed_groom$,strcharinfo(0);
set $wed_groom_sex, sex;
+ if ($@wedding_effect == 2) //Store account id for effect.
+ set $wedding_effect_id, getcharid(3);
}
}
@@ -918,8 +929,8 @@ function SF_DivorceEnd {
}
OnTimer60000:
- npctalk "Divorce confirmation timed out. Where did "+$@divorcer$+"'s spouse go...";
+ npctalk "Divorce confirmation time's is up. Where did "+$@divorcer$+"'s spouse go...";
emotion e_what;
SF_DivorceEnd();
end;
-} \ No newline at end of file
+}