Автор: MiRoTVoReZ: Дата: 06.20.2008
//////////////////////////////////////////////////////////
// Wedding Script Alpha (v1.4) //
//////////////////////////////////////////////////////////
//
//=====eAthena Script====================================
// Wedding Script
//=====By================================================
// AppleGirl and Evera(version 1.0)
//=====Current Version===================================
// 1.45b
//=====Compatible With:==================================
// Any eAthena Version; RO Episode 6+
//=====Description=======================================
// Fully working wedding script for all kind of weddings
//=====Additional Comments:==============================
// Tested and debugged by whocares (maybe 1-2 bugs.gif left)(version 1.1)
//======= Version 1.2 By ShadowLady =====================
// Same Sex Weddings.
// Now the script(npcs) tell the players how they must perform exactly.
//======= Version 1.3 By ShadowLady =====================
// You might need to update the wedding rings in item_db
// Same for the tux/dress, so all classes and lvs can use it ^^
// And check if they are wearing the tux/dress and not only have it on the inventory.
//======= Version 1.4 By ShadowLady =====================
// Added some code ideas. Thanks to Jbain for help me debbuging
// Added @outfit variable, to check if you already bought a tux/dress
// Fixed "part" of the divorce npc. The code is bugged by itself sleep.gif Need both chars to be online yet.
////======= Version 1.45 By ShadowLady =====================
// Fixed some minor bugs.gif. Same-sex is disabled by default now.
// 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.
////======= Version 1.45b By Aria =====================
// Added the $progress to $@progress variable change that ShadowLady put in notes, but not in code.
//=====================================================
// Variable Notes:
//
// event_wedding - 1 signifies marriage
// $groom$ - Groom's name storage
// $bride$ - Bride's name storage
// $@progress - Sets global restriction upon wedding
// @register - Temporary registration check
// @zleft - Temporary zeny needed check
// $name$ - Insert name for bride
// $name2$ - Insert name for groom
// $get_ring - Check so you can't get ring twice
// $reason$ - Objection to wedding
// @outfit - Check if the char already got a dress or tuxedo from the npc
prt_church.gat,99,125,4 script Святой Отец 60,{
if($groom$ == strcharinfo(0) && $@progress != 3) goto L_GroomCeremony;
if(@register == 0) goto L_GroomNeedToRegister;
if($bride$ == strcharinfo(0)) goto L_BrideCeremony;
menu "Я гость свадьбы",L_Wedding,"Я хочу отменить свадьбу",L_OtherReason;
L_GroomCeremony:
if(@register == 0) goto L_GroomNeedToRegister;
if($@progress == 1) goto L_BrideNeedToRegister;
if($@progress == 0) goto L_Wedding;
if(countitem(2613) < 1) goto L_NeedRing;//Items: Diamond_Ring,
if((getequipid(2) != 2338) && (getequipid(2) != 7170)) goto L_Attire;
mes "^0000FF<^FFFF00<^800080<^004040Святой Отец^004040>^800080>^FFFF00>^0000FF>^000000";
mes "Всё готово сын мой, теперь дело за тобой...";
next;
menu "Начинаем свадьбу.",-,"Я хочу отменить свадьбу.",L_CancelWedding;
set $@progress,3;
mes "^0000FF<^FFFF00<^800080<^004040Святой Отец^004040>^800080>^FFFF00>^0000FF>^000000";
mes "Чтож, тогда единственное что тебе осталось сделать, это сказать имя своей невесты. Будь внимателен! Пиши его правильно.";
input $name2$;
next;
if($name2$ != $bride$) goto L_WrongBrideName;
deltimer "a13";
marriage $name2$;
mes "^0000FF<^FFFF00<^800080<^004040Святой Отец^004040>^800080>^FFFF00>^0000FF>^000000";
mes "Пожалуйста скажи своей невесте чтобы она поговорила со мной, и после этого мы начнем обмен кольцами.";
delitem 2613,1;//Items: Diamond_Ring,
if (sex == 0) getitem 2635,1;//Items: Wedding_Ring_F,
if (sex == 1) getitem 2634,1;//Items: Wedding_Ring_M,
set @get_ring,1;
next;
mes "^0000FF<^FFFF00<^800080<^004040Святой Отец^004040>^800080>^FFFF00>^0000FF>^000000";
mes "Подойдите вместе с невестой ко мне поближе. Сейчас я начну свадебную церемонию!";
set event_wedding,1;
deltimer "weddinglimit1";
deltimer "weddinglimit2";
announce "Сейчас в Церкви Пронтеры будет скреплен брачный союз между "+$groom$+" и "+$bride$+".",5;
addtimer 50000,"a1";
addtimer 55000,"a2";
addtimer 60000,"a3";
addtimer 65000,"a4";
addtimer 70000,"a5";
addtimer 75000,"a6";
addtimer 80000,"a7";
addtimer 85000,"a8";
addtimer 90000,"a9";
addtimer 95000,"a10";
addtimer 100000,"a11";
addtimer 105000,"a12";
close;
L_BrideCeremony:
if(countitem(2613) < 1) goto L_NeedRing;//Items: Diamond_Ring,
if((getequipid(2) != 2338) && (getequipid(2) != 7170)) goto L_Attire;
mes "^0000FF<^FFFF00<^800080<^004040Святой Отец^004040>^800080>^FFFF00>^0000FF>^000000";
mes "Какая красивая невеста ^800080=)^000000 Все что тебе осталось сделать чтобы стать женой этого человека, назвать мне его имя. Пиши вниметельнее, не ошибись!";
input $name$;
next;
if($name$ != $groom$) goto L_WrongGroomName;
deltimer "a13";
deltimer "weddinglimit1";
deltimer "weddinglimit2";
marriage $name$;
delitem 2613,1;//Items: Diamond_Ring,
if (sex == 0) getitem 2635,1;//Items: Wedding_Ring_F,
if (sex == 1) getitem 2634,1;//Items: Wedding_Ring_M,
set @get_ring,1;
close;
L_CancelWedding:
mes "^0000FF<^FFFF00<^800080<^004040Святой Отец^004040>^800080>^FFFF00>^0000FF>^000000";
mes ""+strcharinfo(0)+" прервал свадьбу.";
set $@progress,0;
set $groom$,"null";
set $bride$,"null";
set @register,0;
set event_wedding,0;
set @get_ring,0;
deltimer "a1";
deltimer "a2";
deltimer "a3";
deltimer "a4";
deltimer "a5";
deltimer "a6";
deltimer "a7";
deltimer "a8";
deltimer "a9";
deltimer "a10";
deltimer "a11";
deltimer "a12";
deltimer "a13";
close;
L_GroomNeedToRegister:
mes "^0000FF<^FFFF00<^800080<^004040Святой Отец^004040>^800080>^FFFF00>^0000FF>^000000";
mes "Здравствуй, если ты здесь чтобы вступить в брак, пожалуйста зарегистрируйтесь у представителя ЗАГСа.";
close;
L_Wedding:
if(event_wedding != 1) goto L_Guest;
mes "^0000FF<^FFFF00<^800080<^004040Святой Отец^004040>^800080>^FFFF00>^0000FF>^000000";
mes "Еще раз приветствую тебя "+strcharinfo(0)+", я тебе желаю чтобы твоя жизнь сложилась самым наилучщим образом.";
close;
L_BrideNeedToRegister:
mes "^0000FF<^FFFF00<^800080<^004040Святой Отец^004040>^800080>^FFFF00>^0000FF>^000000";
mes "Извиняюсь, но я не могу начать церемонию пока невеста не зарегистрирована у работника ЗАГСа.";
close;
L_OtherReason:
if(@get_ring == 1) goto L_Wedding;
mes "^0000FF<^FFFF00<^800080<^004040Святой Отец^004040>^800080>^FFFF00>^0000FF>^000000";
mes "Что? Вы знаете какую то причину по которой эти люди не могут быть связаны узами брака?";
next;
menu "Да, знаю.",-,"Нет, все в порядке, извините.",L_NoReason;
areaannounce "prt_church.gat",0,0,350,350,"Дамы и Господа,"+strcharinfo(0)+" говорит что эта свадьба не может состояться, по следующей причине - ",0;
mes "^0000FF<^FFFF00<^800080<^004040Святой Отец^004040>^800080>^FFFF00>^0000FF>^000000";
mes "Чтож, скажи нам что это за причина...";
input $reason$;
next;
areaannounce "prt_church.gat",0,0,350,350,""+$reason$+"",0;
set $@progress,0;
set $groom$,"null";
set $bride$,"null";
set $name$,"null";
set $name2$,"null";
set @register,0;
set event_wedding,0;
set @get_ring,0;
deltimer "a1";
deltimer "a2";
deltimer "a3";
deltimer "a4";
deltimer "a5";
deltimer "a6";
deltimer "a7";
deltimer "a8";
deltimer "a9";
deltimer "a10";
deltimer "a11";
deltimer "a12";
mes "Свадьба прервана.";
close;
L_NoReason:
if($groom$ == strcharinfo(0)) goto L_InProgress;
if($bride$ == strcharinfo(0)) goto L_InProgress;
mes "^0000FF<^FFFF00<^800080<^004040Святой Отец^004040>^800080>^FFFF00>^0000FF>^000000";
mes "Тогда пожалуйста присядь и мы продолжим церемонию бракосочитания!";
close;
L_Guest:
mes "^0000FF<^FFFF00<^800080<^004040Святой Отец^004040>^800080>^FFFF00>^0000FF>^000000";
mes "Добро пожаловать! Наслаждайся церемонией.";
mes "Присаживайся куда нибудь.";
close;
L_InProgress:
mes "^0000FF<^FFFF00<^800080<^004040Святой Отец^004040>^800080>^FFFF00>^0000FF>^000000";
mes "Идет процесс вашего бракосочетания, не отвлекайте меня, поговорим позже.";
close;
L_WrongBrideName:
mes "[Marry Happy]";
mes "Как ты мог забыть имя своей невесты!? Приходи в другой раз, когда будешь точно знать на ком ты хочешь жениться.";
close;
L_WrongGroomName:
mes "[Marry Happy]";
mes "Как ты могла забыть имя своего жениха!? Приходи в другой раз, когда будешь точно знать за кого хочешь выйти замуж.";
close;
L_NeedRing:
mes "^0000FF<^FFFF00<^800080<^004040Святой Отец^004040>^800080>^FFFF00>^0000FF>^000000";
mes "Вам нужно бриллиантовое кольцо.";
close;
L_Attire:
if(sex == 1) goto L_NeedTuxedo;
if(sex == 0) goto L_NeedDress;
close;
L_NeedTuxedo:
mes "^0000FF<^FFFF00<^800080<^004040Святой Отец^004040>^800080>^FFFF00>^0000FF>^000000";
mes "Чтобы продолжить церемонию, вы должны быть в костюме.";
close;
L_NeedDress:
mes "^0000FF<^FFFF00<^800080<^004040Святой Отец^004040>^800080>^FFFF00>^0000FF>^000000";
mes "О, это ведь вашу свадьбу сегодня играют?";
mes "Прости меня, но сначала ты должна надеть свадебное платье.";
mes "Иначе мы не сможем продолжить церемонию.";
close;
}
// Marry
prt_church.gat,96,100,4 script Представитель ЗАГСа 833,{
// Set the ceremony prices here. A for @outfit==0 and B for @outfit==1.
// Real prices are 1,3m for males and 1,2m for females. Set at your own will.
set @costgroomA,120000;
set @costgroomB,60000;
set @costbrideA,100000;
set @costbrideB,50000;
mes "^0000FF<^FFFF00<^800080<^004040Представитель ЗАГСа^004040>^800080>^FFFF00>^0000FF>^000000";
mes "Бракосочетание это очень ответственный шаг.";
mes "Вы здесь для того чтобы вступить в законный брак?";
next;
menu "Объясните мне принцип церемонии.",L_Principles,"Как работает система бракосочетания?",L_WeddingSystem,"Я хочу зарегистрироваться на свадьбу.",L_Marry,"Нет, мне и так хорошо!",L_LiveSolo,"Спец Меню",L_GmMenu;
L_GmMenu:
set @gmlevel,getgmlevel(99);
if(@gmlevel < 99) goto L_NotGM;
mes "Hello " + strcharinfo(0) + " How i can serve you?";
menu "Enable Same-Sex Weddings",L_EnableSameSex,"Disable Same-Sex Weddings",L_DisableSameSex,"Reset the Variables",L_ResetVariables,"Just Checking...",L_Bye;
L_NotGM:
mes "У вас нету доступа к этому меню "+ strcharinfo(0) +"";
mes "Только ГМы могут работать со спец меню.";
close;
L_EnableSameSex:
set $samesex,1;
mes "Same-Sex Weddings are enabled now!";
close;
L_DisableSameSex:
set $samesex,0;
mes "Same-Sex Weddings are disabled now!";
close;
L_ResetVariables:
set $@progress,0;
set $groom$,"null";
set $bride$,"null";
set $name$,"null";
set $name2$,"null";
set @register,0;
set event_wedding,0;
set @get_ring,0;
set @outfit,0;
deltimer "weddinglimit1";
deltimer "weddinglimit2";
deltimer "a1";
deltimer "a2";
deltimer "a3";
deltimer "a4";
deltimer "a5";
deltimer "a6";
deltimer "a7";
deltimer "a8";
deltimer "a9";
deltimer "a10";
deltimer "a11";
deltimer "a12";
deltimer "a13";
mes "All variables are reseted and timers off!";
close;
L_Principles:
mes "^0000FF<^FFFF00<^800080<^004040Представитель ЗАГСа^004040>^800080>^FFFF00>^0000FF>^000000";
mes "Святой Отец оффициально заключит ваш брачный союз, даст вам свое благославение и объявит о вашей свадьбе на всё королевство.";
next;
mes "^0000FF<^FFFF00<^800080<^004040Представитель ЗАГСа^004040>^800080>^FFFF00>^0000FF>^000000";
mes "Свадьбу могут сыграть только мужчина и женщина. Никакие гомосексуальные или лесбийские свадьбы тут не проводятся.";
close;
L_WeddingSystem:
mes "^0000FF<^FFFF00<^800080<^004040Представитель ЗАГСа^004040>^800080>^FFFF00>^0000FF>^000000";
mes "Для начала удостоверьтесь что оба молодожена зарегистрированы у меня.";
mes "И разумеется вы должны знать имена друг друга.";
mes "После того как я вас зарегистрируя, подойдите к святому отцу у алтаря.";
next;
mes "^0000FF<^FFFF00<^800080<^004040Представитель ЗАГСа^004040>^800080>^FFFF00>^0000FF>^000000";
mes "Когда подойдете к святому отцу, первым с ним должен поговорить мужчина.";
mes "И он должен будет сказать ему имя своей невесты.";
mes "Удостоверьтесь что написали имя правильно!";
next;
mes "^0000FF<^FFFF00<^800080<^004040Представитель ЗАГСа^004040>^800080>^FFFF00>^0000FF>^000000";
mes "После мужчины, со святым отцом должна поговорить невеста и назвать ему имя своего жениха.";
mes "После этого вы получите кольца и святой отец начнет церемонию бракосочитания.";
next;
mes "^0000FF<^FFFF00<^800080<^004040Представитель ЗАГСа^004040>^800080>^FFFF00>^0000FF>^000000";
mes "После церемонии, когда вы обменяетесь кольцами и наденете их вы окончательно и навечно укрепите свой брачный союз.";
next;
mes "^0000FF<^FFFF00<^800080<^004040Представитель ЗАГСа^004040>^800080>^FFFF00>^0000FF>^000000";
mes "И последнее, после того как вы зарегистрируетесь, идти к алтарю нужно как можно быстрее, в противном случае свадьба отменится.";
mes "Когда жених подтвердит намерение жениться, у невесты будет 3 минуты чтобы сделать тоже самое, или свадьба прервется и больше никогда не сможет состояться.";
close;
L_Marry:
mes "^0000FF<^FFFF00<^800080<^004040Представитель ЗАГСа^004040>^800080>^FFFF00>^0000FF>^000000";
mes "Если вы хотите сочетаться браком, сначала вы должны зарегистрироваться.";
mes "Стоимость регистрации для мужчины ^FF00FF" + @costgroomA + "^000000 зени, а для женщины ^FF00FF" + @costbrideA + "^000000 зени.";
if((countitem(2338) > 0) || (countitem(7170) > 0) || (@outfit == 1)) mes "Но если вы уже регистрировались раньше, то ^FF00FF" + @costgroomB + "^000000 зени для мужчины и ^FF00FF" + @costbrideB + "^000000 зени для женщины.";
mes "Оба должны зарегистрироваться,";
mes "а так же иметь бриллиантовые кольца!";
mes "В обмен на регистрационную плату ЗАГС предоставляет невесте Свадебное Платье, а жениху Свадебный Костюм.";
next;
mes "^0000FF<^FFFF00<^800080<^004040Представитель ЗАГСа^004040>^800080>^FFFF00>^0000FF>^000000";
mes "Итак, вы хотите зарегистрироваться?";
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(@register >= 1) goto L_AlreadyRegistered;
if($@progress >= 2) goto L_InProgress;
if(($samesex == 0) && (sex == 0)) goto L_BrideRegister;
if((countitem(2338) > 0) || (countitem(7170) > 0) || (@outfit == 1)) goto L_GroomRegister2;
mes "^0000FF<^FFFF00<^800080<^004040Представитель ЗАГСа^004040>^800080>^FFFF00>^0000FF>^000000";
if(sex == 1) mes "Нет проблем сэр, напишите вот здесь пожалуйста имя.";
if(sex == 0) mes "Нет проблем мисс ^800080=)^000000 Напишите вот здесь пожалуйста имя.";
next;
mes "Как зовут вашу невесту?";
input $name$;
next;
if(zeny < @costgroomA) goto L_NeedZeny1;
set $groom$,strcharinfo(0);
set @register,1;
set zeny,zeny-@costgroomA;
set $@progress,1;
if(sex == 1) getitem 7170,1;
if(sex == 0) getitem 2338,1;
set @outfit,1;
mes "^0000FF<^FFFF00<^800080<^004040Представитель ЗАГСа^004040>^800080>^FFFF00>^0000FF>^000000";
mes "Поздравляю "+strcharinfo(0)+", вы зарегистрированы. Искренне желаю вам счастья в этом браке.";
addtimer 300000,"weddinglimit1";
areaannounce "prt_church.gat",0,0,350,350,strcharinfo(0)+" зарегистрировался(лась) на свадьбу.",0;
next;
mes "Поторопитесь к алтарю! Через 5 минут мы должны быть готовы к следующей свадьбе.";
deltimer "a13";
addtimer 300000,"a13";
close;
L_BrideRegister:
if ($name$ != strcharinfo(0)) goto L_NotBride;
if($groom$ == strcharinfo(0)) goto L_CantMarryYourself;
if($@progress != 1) goto L_GroomNotRegistered;
if(@register >= 1) goto L_AlreadyRegistered;
if((countitem(2338) > 0) || (countitem(7170) > 0) || (@outfit == 1)) goto L_BrideRegister2;
mes "^0000FF<^FFFF00<^800080<^004040Представитель ЗАГСа^004040>^800080>^FFFF00>^0000FF>^000000";
if(sex == 1) mes "Нет проблем сэр, напишите вот здесь пожалуйста имя.";
if(sex == 0) mes "Нет проблем мисс ^800080=)^000000 Напишите вот здесь пожалуйста имя.";
mes "И внесите пожалуйста плату 100,000z за расходы на свадебную одежду.";
next;
if(zeny < @costbrideA) goto L_NeedZeny2;
mes "^0000FF<^FFFF00<^800080<^004040Представитель ЗАГСа^004040>^800080>^FFFF00>^0000FF>^000000";
mes "Введите пожалуйста имя вашего жениха";
input $name2$;
if($name2$ != $groom$) goto L_WrongName;
set $bride$,strcharinfo(0);
set @register,1;
set zeny,zeny-@costbrideA;
set $@progress,2;
set event_wedding,1;
if(sex == 1) getitem 7170,1;
if(sex == 0) getitem 2338,1;
set @outfit,1;
deltimer "weddinglimit1";
addtimer 300000,"weddinglimit2";
next;
mes "^0000FF<^FFFF00<^800080<^004040Представитель ЗАГСа^004040>^800080>^FFFF00>^0000FF>^000000";
mes "Поздравляю "+strcharinfo(0)+", вы зарегистрированы. Искренне желаю вам счастья в этом браке.";
areaannounce "prt_church.gat",0,0,350,350,strcharinfo(0)+" зарегистрировался(лась) на свадьбу.",0;
next;
mes "Поторопитесь к алтарю! Через 5 минут мы должны быть готовы к следующей свадьбе.";
deltimer "a13";
addtimer 300000,"a13";
close;
L_GroomRegister2:
mes "^0000FF<^FFFF00<^800080<^004040Представитель ЗАГСа^004040>^800080>^FFFF00>^0000FF>^000000";
if(sex == 1) mes "Нет проблем сэр, напишите вот здесь пожалуйста имя.";
if(sex == 0) mes "Нет проблем мисс ^800080=)^000000 Напишите вот здесь пожалуйста имя.";
mes "И внесите пожалуйста плату 60,000z за расходы ЗАГСа.";
next;
mes "^0000FF<^FFFF00<^800080<^004040Представитель ЗАГСа^004040>^800080>^FFFF00>^0000FF>^000000";
mes "Как зовут вашу невесту?";
input $name$;
next;
if(zeny < @costgroomB) goto L_NeedZeny3;
set $groom$,strcharinfo(0);
set @register,1;
set zeny,zeny-@costgroomB;
set $@progress,1;
mes "^0000FF<^FFFF00<^800080<^004040Представитель ЗАГСа^004040>^800080>^FFFF00>^0000FF>^000000";
mes "Поздравляю "+strcharinfo(0)+", вы зарегистрированы. Искренне желаю вам счастья в этом браке.";
addtimer 300000,"weddinglimit1";
areaannounce "prt_church.gat",0,0,350,350,strcharinfo(0)+" зарегистрировался(лась) на свадьбу.",0;
next;
mes "Поторопитесь к алтарю! Через 5 минут мы должны быть готовы к следующей свадьбе.";
deltimer "a13";
addtimer 300000,"a13";
close;
L_BrideRegister2:
mes "^0000FF<^FFFF00<^800080<^004040Представитель ЗАГСа^004040>^800080>^FFFF00>^0000FF>^000000";
if(sex == 1) mes "Нет проблем сэр, напишите вот здесь пожалуйста имя.";
if(sex == 0) mes "Нет проблем мисс ^800080=)^000000 Напишите вот здесь пожалуйста имя.";
mes "И внесите пожалуйста плату 50,000z за расходы ЗАГСа.";
next;
if(zeny < @costbrideB) goto L_NeedZeny4;
mes "^0000FF<^FFFF00<^800080<^004040Представитель ЗАГСа^004040>^800080>^FFFF00>^0000FF>^000000";
mes "Введите пожалуйста имя вашего жениха";
input $name2$;
if($name2$ != $groom$) goto L_WrongName;
set $bride$,strcharinfo(0);
set @register,1;
set zeny,zeny-@costbrideB;
set $@progress,2;
set event_wedding,1;
deltimer "weddinglimit1";
addtimer 300000,"weddinglimit2";
next;
mes "^0000FF<^FFFF00<^800080<^004040Представитель ЗАГСа^004040>^800080>^FFFF00>^0000FF>^000000";
mes "Поздравляю "+strcharinfo(0)+", вы зарегистрированы. Искренне желаю вам счастья в этом браке.";
areaannounce "prt_church.gat",0,0,350,350,strcharinfo(0)+" зарегистрировался(лась) на свадьбу.",0;
next;
mes "Поторопитесь к алтарю! Через 5 минут мы должны быть готовы к следующей свадьбе.";
deltimer "a13";
addtimer 300000,"a13";
close;
L_NeedZeny1:
set @zleft,@costgroomA-zeny;
mes "^0000FF<^FFFF00<^800080<^004040Представитель ЗАГСа^004040>^800080>^FFFF00>^0000FF>^000000";
mes "Мне очень жаль, но я не смогу зарегистрировать вас. У вас не хватает "+@zleft+"зени.";
set @zleft,0;
close;
L_NeedZeny2:
set @zleft,@costbrideA-zeny;
mes "^0000FF<^FFFF00<^800080<^004040Представитель ЗАГСа^004040>^800080>^FFFF00>^0000FF>^000000";
mes "Мне очень жаль, но я не смогу зарегистрировать вас. У вас не хватает "+@zleft+"зени.";
set @zleft,0;
close;
L_NeedZeny3:
set @zleft,@costgroomB-zeny;
mes "^0000FF<^FFFF00<^800080<^004040Представитель ЗАГСа^004040>^800080>^FFFF00>^0000FF>^000000";
mes "Мне очень жаль, но я не смогу зарегистрировать вас. У вас не хватает "+@zleft+"зени.";
set @zleft,0;
close;
L_NeedZeny4:
set @zleft,@costbrideB-zeny;
mes "^0000FF<^FFFF00<^800080<^004040Представитель ЗАГСа^004040>^800080>^FFFF00>^0000FF>^000000";
mes "Мне очень жаль, но я не смогу зарегистрировать вас. У вас не хватает "+@zleft+"зени.";
set @zleft,0;
close;
L_AlreadyRegistered:
mes "^0000FF<^FFFF00<^800080<^004040Представитель ЗАГСа^004040>^800080>^FFFF00>^0000FF>^000000";
mes "Вы уже зарегистрированы.";
close;
L_Bye:
mes "^0000FF<^FFFF00<^800080<^004040Представитель ЗАГСа^004040>^800080>^FFFF00>^0000FF>^000000";
mes "Ладно, буду ждать вашего возвращения!";
close;
L_InProgress:
mes "^0000FF<^FFFF00<^800080<^004040Представитель ЗАГСа^004040>^800080>^FFFF00>^0000FF>^000000";
mes "Я не могу регистрировать во время проведения свадьбы. Пожалуйста подходите позже.";
close;
L_WrongName:
mes "^0000FF<^FFFF00<^800080<^004040Представитель ЗАГСа^004040>^800080>^FFFF00>^0000FF>^000000";
mes "Под таким именем никто не зарегистрирован. Извините.";
close;
L_GroomNotRegistered:
mes "^0000FF<^FFFF00<^800080<^004040Представитель ЗАГСа^004040>^800080>^FFFF00>^0000FF>^000000";
mes "По правилам первым должен зарегистрироваться жених.";
close;
L_Married:
mes "^0000FF<^FFFF00<^800080<^004040Представитель ЗАГСа^004040>^800080>^FFFF00>^0000FF>^000000";
mes "Еще раз здравствуй "+strcharinfo(0)+", надеюсь твоя жизнь хорошо сложится.";
close;
L_LiveSolo:
mes "^0000FF<^FFFF00<^800080<^004040Представитель ЗАГСа^004040>^800080>^FFFF00>^0000FF>^000000";
mes "Чтож, тогда желаю тебе счастливой холостяцкой жизни.";
close;
L_NotBride:
mes "^0000FF<^FFFF00<^800080<^004040Представитель ЗАГСа^004040>^800080>^FFFF00>^0000FF>^000000";
mes "Вы не являетесь невестой.";
close;
L_YouCantMarryYourself:
mes "^0000FF<^FFFF00<^800080<^004040Представитель ЗАГСа^004040>^800080>^FFFF00>^0000FF>^000000";
mes "Какого черта вы пытаетесь сделать? Жениться на самом себе? O_O";
close;
}
prt_church.gat,92,100,4 script Marry Sad 71,{
mes "[Marry Sad]";
mes "Здравствуйте. Моя работа заключается в разводах женатых пар. Не смотря на всю грустность этого события, иногда это просто необходимая мера открывающая дорогу дальнейшей счастливой жизни.";
mes "Вы пришли сюда чтобы с кем то развестись?";
next;
menu "Да",L_FirstDivorce,"Что нужно сделать чтобы развестись?",L_DivorceSystem;
L_FirstDivorce:
if(divorce > 0) goto L_AlreadyDivorced;
mes "[Marry Sad]";
mes "Я так и думала. Чтож, я сама разводилась 2 раза.";
mes "Чтобы не говорили, но жизнь после развода точно так же продолжается и возможно это даже к лучщему.";
mes "Так... учитите, чтобы развестись с кем то, ваш партнер должен быть в онлайне.";
next;
menu "Да, он в онлайне, разведите нас",-,"Нет, я пока не буду разводиться",L_No;
mes "[Marry Sad]";
mes "Вы сделали ваш выбор,";
mes "надеюсь вы не ошиблись и это к лучщему.";
next;
mes "Вы разведены!";
set event_wedding,0;
set divorce,1;
set @register,0;
divorce;
close;
L_AlreadyDivorced:
mes "[Marry Sad]";
mes "Вы снова пришли разводиться? Надо же... наверное вы пытаетесь найти свою настоящую любовь?";
mes "Ладно, не волнуйтесь об этом, это не ваша ошибка, а ошибка ваших партнеров.";
next;
menu "Разведите нас",-,"Нет, я пока не буду разводиться",L_No;
mes "[Marry Sad]";
mes "Вы сделали ваш выбор,";
mes "надеюсь вы не ошиблись и это к лучщему.";
next;
mes "Вы разведены!";
set event_wedding,0;
set divorce,2;
set @register,0;
divorce;
close;
L_No:
mes "[Marry Sad]";
mes "Конечно, вы должны быть полностью уверены делая такой важный шаг.";
close;
L_DivorceSystem:
mes "[Marry Sad]";
mes "Ну чтобы развестись достаточно вашего желания.";
mes "И оба партнера должны быть в онлайне.";
close;
}
prt_church.gat,99,124,0 script weddinglimit1 -1,{
announce "Невеста не зарегистрировалась за отведенное время.",3;
announce "Свадьба отменена.",3;
set $@progress,0;
set $groom$,"null";
set $name$,"null";
set $name2$,"null";
set @register,0;
deltimer "a1";
deltimer "a2";
deltimer "a3";
deltimer "a4";
deltimer "a5";
deltimer "a6";
deltimer "a7";
deltimer "a8";
deltimer "a9";
deltimer "a10";
deltimer "a11";
deltimer "a12";
}
prt_church.gat,99,124,0 script weddinglimit2 -1,{
announce "Жених не подтвердил начало свадебной церемонии и не поговорил со святым отцом.",3;
announce "Свадьба прервана.",3;
set $@progress,0;
set $groom$,"null";
set $bride$,"null";
set $name$,"null";
set $name2$,"null";
set @register,0;
set event_wedding,0;
deltimer "a1";
deltimer "a2";
deltimer "a3";
deltimer "a4";
deltimer "a5";
deltimer "a6";
deltimer "a7";
deltimer "a8";
deltimer "a9";
deltimer "a10";
deltimer "a11";
deltimer "a12";
}
prt_church.gat,99,124,0 script a1 -1,{
areaannounce "prt_church.gat",0,0,350,350,"Дамы и Господа, сейчас вы станете свидетелями святой церемонии объединения этих двух возлюбленных сердец.",0;
}
prt_church.gat,99,124,0 script a2 -1,{
areaannounce "prt_church.gat",0,0,350,350,"С этого момента ваши жизни будут не раздельны друг от друга, так же как и ваши души.",0;
}
prt_church.gat,99,124,0 script a3 -1,{
areaannounce "prt_church.gat",0,0,350,350,"Вы оба должны будете чтить и любить друг друга как в хорошие, так и в не удачные моменты вашей жизни.",0;
}
prt_church.gat,99,124,0 script a4 -1,{
areaannounce "prt_church.gat",0,0,350,350,"Теперь вы будете ответственны друг за друга, и друг перед другом.",0;
}
prt_church.gat,99,124,0 script a5 -1,{
areaannounce "prt_church.gat",0,0,350,350,"В здравии и болезни, в богатстве и бедности пусть любовь ваша горит так же ярко, как солнце.",0;
}
prt_church.gat,99,124,0 script a6 -1,{
areaannounce "prt_church.gat",0,0,350,350,"Вступая в брак вы так же накладываете на себя определенные обязаности, которые всегда должны соблюдать.",0;
}
prt_church.gat,99,124,0 script a7 -1,{
areaannounce "prt_church.gat",0,0,350,350,"На этой земле вы не более чем смертные, но пусть любовь ваша живет вечно.",0;
}
prt_church.gat,99,124,0 script a8 -1,{
areaannounce "prt_church.gat",0,0,350,350,"И сегодня мне представляется уникальная возможность навсегда объединить ваши бессмертные души, чтобы любовь ваша жила в веках.",0;
}
prt_church.gat,99,124,0 script a9 -1,{
areaannounce "prt_church.gat",0,0,350,350,$groom$+", хочешь ли ты взять в жены "+$bride$+" и любить ее вечно?",0;
}
prt_church.gat,99,124,0 script a10 -1,{
areaannounce "prt_church.gat",0,0,350,350,"А ты "+$bride$+", хочешь ли взять в мужья "+$groom$+" и вечно любить его?",0;
}
prt_church.gat,99,124,0 script a11 -1,{
areaannounce "prt_church.gat",0,0,350,350,"Да будет так, властью данной мне господом...",0;
}
prt_church.gat,99,124,0 script a12 -1,{
areaannounce "prt_church.gat",0,0,350,350,"Объявляю вас мужем и женой! Можете поцеловать невесту.",0;
wedding;
set $@progress,0;
set $groom$,"null";
set $bride$,"null";
set $name$,"null";
set $name2$,"null";
}
prt_church.gat,99,124,0 script a13 -1,{
areaannounce "prt_church.gat",0,0,350,350,"Свадьба отменена.",0;
set $@progress,0;
set $groom$,"null";
set $bride$,"null";
set $name$,"null";
set $name2$,"null";
set @register,0;
set event_wedding,0;
set @get_ring,0;
}Автор: MiRoTVoReZ: Дата: 10.31.2008
вендинг
Автор: Мяфк: Дата: 11.01.2008
А расположение? npc/ а дальше хз))
Автор: Даниил: Дата: 05.07.2010
EA\npc\other\marriage.txt
Автор: Мяфк: Дата: 05.07.2010
Даниил, РО 1 день, за некропост, зае...