|
@@ -7,7 +7,7 @@
|
|
//=====By================================================
|
|
//=====By================================================
|
|
// AppleGirl and Evera(version 1.0)
|
|
// AppleGirl and Evera(version 1.0)
|
|
//=====Current Version===================================
|
|
//=====Current Version===================================
|
|
-// 1.4
|
|
|
|
|
|
+// 1.45b
|
|
//=====Compatible With:==================================
|
|
//=====Compatible With:==================================
|
|
// Any eAthena Version; RO Episode 6+
|
|
// Any eAthena Version; RO Episode 6+
|
|
//=====Description=======================================
|
|
//=====Description=======================================
|
|
@@ -29,6 +29,8 @@
|
|
// Fixed some minor bugs. Same-sex is disabled by default now.
|
|
// Fixed some minor bugs. Same-sex is disabled by default now.
|
|
// Change $progress variable to $@progress, so it dont screw up the ceremony on a server crash.
|
|
// Change $progress variable to $@progress, so it dont screw up the ceremony on a server crash.
|
|
// Added a Special GM Menu to enable/disable same-sex weddings and reset most variables.
|
|
// Added a Special GM Menu to enable/disable same-sex weddings and reset most variables.
|
|
|
|
+////======= Version 1.45b By Aria =====================
|
|
|
|
+// Added the $progress to $@progress variable change that ShadowLady put in notes, but not in code.
|
|
//=======================================================
|
|
//=======================================================
|
|
// Variable Notes:
|
|
// Variable Notes:
|
|
//
|
|
//
|
|
@@ -45,21 +47,21 @@
|
|
// @outfit - Check if the char already got a dress or tuxedo from the npc
|
|
// @outfit - Check if the char already got a dress or tuxedo from the npc
|
|
// Tristan
|
|
// Tristan
|
|
prt_church.gat,99,125,4 script Tristan the Third 108,{
|
|
prt_church.gat,99,125,4 script Tristan the Third 108,{
|
|
- if($groom$ == strcharinfo(0) && $progress != 3) goto L_GroomCeremony;
|
|
|
|
|
|
+ if($groom$ == strcharinfo(0) && $@progress != 3) goto L_GroomCeremony;
|
|
if(@register == 0) goto L_GroomNeedToRegister;
|
|
if(@register == 0) goto L_GroomNeedToRegister;
|
|
if($bride$ == strcharinfo(0)) goto L_BrideCeremony;
|
|
if($bride$ == strcharinfo(0)) goto L_BrideCeremony;
|
|
menu "Here To Attend",L_Wedding,"Here for another reason",L_OtherReason;
|
|
menu "Here To Attend",L_Wedding,"Here for another reason",L_OtherReason;
|
|
L_GroomCeremony:
|
|
L_GroomCeremony:
|
|
if(@register == 0) goto L_GroomNeedToRegister;
|
|
if(@register == 0) goto L_GroomNeedToRegister;
|
|
- if($progress == 1) goto L_BrideNeedToRegister;
|
|
|
|
- if($progress == 0) goto L_Wedding;
|
|
|
|
|
|
+ if($@progress == 1) goto L_BrideNeedToRegister;
|
|
|
|
+ if($@progress == 0) goto L_Wedding;
|
|
if(countitem(2613) < 1) goto L_NeedRing;//Items: Diamond_Ring,
|
|
if(countitem(2613) < 1) goto L_NeedRing;//Items: Diamond_Ring,
|
|
if((getequipid(2) != 2338) && (getequipid(2) != 7170)) goto L_Attire;
|
|
if((getequipid(2) != 2338) && (getequipid(2) != 7170)) goto L_Attire;
|
|
mes "[Tristan the Third]";
|
|
mes "[Tristan the Third]";
|
|
mes "Everything is ready, it's your call now...";
|
|
mes "Everything is ready, it's your call now...";
|
|
next;
|
|
next;
|
|
menu "Perform Wedding.",-,"Cancel Wedding.",L_CancelWedding;
|
|
menu "Perform Wedding.",-,"Cancel Wedding.",L_CancelWedding;
|
|
- set $progress,3;
|
|
|
|
|
|
+ set $@progress,3;
|
|
mes "[Tristan the Third]";
|
|
mes "[Tristan the Third]";
|
|
mes "Well all you have to do now is the easy part input your bride's name, remember to spell it correctly.";
|
|
mes "Well all you have to do now is the easy part input your bride's name, remember to spell it correctly.";
|
|
input $name2$;
|
|
input $name2$;
|
|
@@ -111,7 +113,7 @@ L_BrideCeremony:
|
|
L_CancelWedding:
|
|
L_CancelWedding:
|
|
mes "[Tristan the Third]";
|
|
mes "[Tristan the Third]";
|
|
mes "The wedding has been cancelled by "+strcharinfo(0)+".";
|
|
mes "The wedding has been cancelled by "+strcharinfo(0)+".";
|
|
- set $progress,0;
|
|
|
|
|
|
+ set $@progress,0;
|
|
set $groom$,"null";
|
|
set $groom$,"null";
|
|
set $bride$,"null";
|
|
set $bride$,"null";
|
|
set @register,0;
|
|
set @register,0;
|
|
@@ -156,7 +158,7 @@ L_OtherReason:
|
|
input $reason$;
|
|
input $reason$;
|
|
next;
|
|
next;
|
|
areaannounce "prt_church.gat",0,0,350,350,""+$reason$+"",0;
|
|
areaannounce "prt_church.gat",0,0,350,350,""+$reason$+"",0;
|
|
- set $progress,0;
|
|
|
|
|
|
+ set $@progress,0;
|
|
set $groom$,"null";
|
|
set $groom$,"null";
|
|
set $bride$,"null";
|
|
set $bride$,"null";
|
|
set $name$,"null";
|
|
set $name$,"null";
|
|
@@ -251,7 +253,7 @@ L_DisableSameSex:
|
|
mes "Same-Sex Weddings are disabled now!";
|
|
mes "Same-Sex Weddings are disabled now!";
|
|
close;
|
|
close;
|
|
L_ResetVariables:
|
|
L_ResetVariables:
|
|
- set $progress,0;
|
|
|
|
|
|
+ set $@progress,0;
|
|
set $groom$,"null";
|
|
set $groom$,"null";
|
|
set $bride$,"null";
|
|
set $bride$,"null";
|
|
set $name$,"null";
|
|
set $name$,"null";
|
|
@@ -377,7 +379,7 @@ L_Marry:
|
|
if($SameSex == 1) menu "I'm gonna be the Groom",-,"I,m gonna be the Bride",L_BrideRegister,"Never mind",L_Bye;
|
|
if($SameSex == 1) menu "I'm gonna be the Groom",-,"I,m gonna be the Bride",L_BrideRegister,"Never mind",L_Bye;
|
|
if(event_wedding == 1) goto L_Married;
|
|
if(event_wedding == 1) goto L_Married;
|
|
if(@register >= 1) goto L_AlreadyRegistered;
|
|
if(@register >= 1) goto L_AlreadyRegistered;
|
|
- if($progress >= 2) goto L_InProgress;
|
|
|
|
|
|
+ if($@progress >= 2) goto L_InProgress;
|
|
if(($samesex == 0) && (sex == 0)) goto L_BrideRegister;
|
|
if(($samesex == 0) && (sex == 0)) goto L_BrideRegister;
|
|
if((countitem(2338) > 0) || (countitem(7170) > 0) || (@outfit == 1)) goto L_GroomRegister2;
|
|
if((countitem(2338) > 0) || (countitem(7170) > 0) || (@outfit == 1)) goto L_GroomRegister2;
|
|
mes "[Marry Happy]";
|
|
mes "[Marry Happy]";
|
|
@@ -393,7 +395,7 @@ L_Marry:
|
|
set $groom$,strcharinfo(0);
|
|
set $groom$,strcharinfo(0);
|
|
set @register,1;
|
|
set @register,1;
|
|
set zeny,zeny-@costgroomA;
|
|
set zeny,zeny-@costgroomA;
|
|
- set $progress,1;
|
|
|
|
|
|
+ set $@progress,1;
|
|
if(sex == 1) getitem 7170,1;
|
|
if(sex == 1) getitem 7170,1;
|
|
if(sex == 0) getitem 2338,1;
|
|
if(sex == 0) getitem 2338,1;
|
|
set @outfit,1;
|
|
set @outfit,1;
|
|
@@ -409,7 +411,7 @@ L_Marry:
|
|
L_BrideRegister:
|
|
L_BrideRegister:
|
|
if ($name$ != strcharinfo(0)) goto L_NotBride;
|
|
if ($name$ != strcharinfo(0)) goto L_NotBride;
|
|
if($groom$ == strcharinfo(0)) goto L_CantMarryYourself;
|
|
if($groom$ == strcharinfo(0)) goto L_CantMarryYourself;
|
|
- if($progress != 1) goto L_GroomNotRegistered;
|
|
|
|
|
|
+ if($@progress != 1) goto L_GroomNotRegistered;
|
|
if(@register >= 1) goto L_AlreadyRegistered;
|
|
if(@register >= 1) goto L_AlreadyRegistered;
|
|
if((countitem(2338) > 0) || (countitem(7170) > 0) || (@outfit == 1)) goto L_BrideRegister2;
|
|
if((countitem(2338) > 0) || (countitem(7170) > 0) || (@outfit == 1)) goto L_BrideRegister2;
|
|
mes "[Marry Happy]";
|
|
mes "[Marry Happy]";
|
|
@@ -425,7 +427,7 @@ L_BrideRegister:
|
|
set $bride$,strcharinfo(0);
|
|
set $bride$,strcharinfo(0);
|
|
set @register,1;
|
|
set @register,1;
|
|
set zeny,zeny-@costbrideA;
|
|
set zeny,zeny-@costbrideA;
|
|
- set $progress,2;
|
|
|
|
|
|
+ set $@progress,2;
|
|
set event_wedding,1;
|
|
set event_wedding,1;
|
|
if(sex == 1) getitem 7170,1;
|
|
if(sex == 1) getitem 7170,1;
|
|
if(sex == 0) getitem 2338,1;
|
|
if(sex == 0) getitem 2338,1;
|
|
@@ -456,7 +458,7 @@ L_GroomRegister2:
|
|
set $groom$,strcharinfo(0);
|
|
set $groom$,strcharinfo(0);
|
|
set @register,1;
|
|
set @register,1;
|
|
set zeny,zeny-@costgroomB;
|
|
set zeny,zeny-@costgroomB;
|
|
- set $progress,1;
|
|
|
|
|
|
+ set $@progress,1;
|
|
mes "[Marry Happy]";
|
|
mes "[Marry Happy]";
|
|
mes "You are now registered "+strcharinfo(0)+", I wish you the best of luck with your marriage.";
|
|
mes "You are now registered "+strcharinfo(0)+", I wish you the best of luck with your marriage.";
|
|
addtimer 300000,"weddinglimit1";
|
|
addtimer 300000,"weddinglimit1";
|
|
@@ -480,7 +482,7 @@ L_BrideRegister2:
|
|
set $bride$,strcharinfo(0);
|
|
set $bride$,strcharinfo(0);
|
|
set @register,1;
|
|
set @register,1;
|
|
set zeny,zeny-@costbrideB;
|
|
set zeny,zeny-@costbrideB;
|
|
- set $progress,2;
|
|
|
|
|
|
+ set $@progress,2;
|
|
set event_wedding,1;
|
|
set event_wedding,1;
|
|
deltimer "weddinglimit1";
|
|
deltimer "weddinglimit1";
|
|
addtimer 300000,"weddinglimit2";
|
|
addtimer 300000,"weddinglimit2";
|
|
@@ -612,7 +614,7 @@ L_DivorceSystem:
|
|
prt_church.gat,99,124,0 script weddinglimit1 -1,{
|
|
prt_church.gat,99,124,0 script weddinglimit1 -1,{
|
|
announce "The bride has not registered within the alotted time frame.",3;
|
|
announce "The bride has not registered within the alotted time frame.",3;
|
|
announce "Your wedding has been cancelled.",3;
|
|
announce "Your wedding has been cancelled.",3;
|
|
- set $progress,0;
|
|
|
|
|
|
+ set $@progress,0;
|
|
set $groom$,"null";
|
|
set $groom$,"null";
|
|
set $name$,"null";
|
|
set $name$,"null";
|
|
set $name2$,"null";
|
|
set $name2$,"null";
|
|
@@ -634,7 +636,7 @@ prt_church.gat,99,124,0 script weddinglimit1 -1,{
|
|
prt_church.gat,99,124,0 script weddinglimit2 -1,{
|
|
prt_church.gat,99,124,0 script weddinglimit2 -1,{
|
|
announce "The groom has not begun the wedding ceremony by speaking to Tristan the Third.",3;
|
|
announce "The groom has not begun the wedding ceremony by speaking to Tristan the Third.",3;
|
|
announce "Your wedding has been cancelled.",3;
|
|
announce "Your wedding has been cancelled.",3;
|
|
- set $progress,0;
|
|
|
|
|
|
+ set $@progress,0;
|
|
set $groom$,"null";
|
|
set $groom$,"null";
|
|
set $bride$,"null";
|
|
set $bride$,"null";
|
|
set $name$,"null";
|
|
set $name$,"null";
|
|
@@ -691,7 +693,7 @@ areaannounce "prt_church.gat",0,0,350,350,"And so be it, by the powers vested in
|
|
prt_church.gat,99,124,0 script a12 -1,{
|
|
prt_church.gat,99,124,0 script a12 -1,{
|
|
areaannounce "prt_church.gat",0,0,350,350,"I pronouce you Husband and Wife, you may kiss the bride.",0;
|
|
areaannounce "prt_church.gat",0,0,350,350,"I pronouce you Husband and Wife, you may kiss the bride.",0;
|
|
wedding;
|
|
wedding;
|
|
- set $progress,0;
|
|
|
|
|
|
+ set $@progress,0;
|
|
set $groom$,"null";
|
|
set $groom$,"null";
|
|
set $bride$,"null";
|
|
set $bride$,"null";
|
|
set $name$,"null";
|
|
set $name$,"null";
|
|
@@ -700,7 +702,7 @@ areaannounce "prt_church.gat",0,0,350,350,"I pronouce you Husband and Wife, you
|
|
prt_church.gat,99,124,0 script a13 -1,{
|
|
prt_church.gat,99,124,0 script a13 -1,{
|
|
|
|
|
|
areaannounce "prt_church.gat",0,0,350,350,"The wedding has been cancelled.",0;
|
|
areaannounce "prt_church.gat",0,0,350,350,"The wedding has been cancelled.",0;
|
|
- set $progress,0;
|
|
|
|
|
|
+ set $@progress,0;
|
|
set $groom$,"null";
|
|
set $groom$,"null";
|
|
set $bride$,"null";
|
|
set $bride$,"null";
|
|
set $name$,"null";
|
|
set $name$,"null";
|