Initial commit: server + serverfiles

serverfiles/share/locale/english/quest/object/9011/chat/marriage_manage.start.0.arg

@@ -0,0 +1 @@
+gameforge.marriage_manage._410_npcChat

serverfiles/share/locale/english/quest/object/9011/chat/marriage_manage.start.0.script

@@ -0,0 +1,48 @@
+if not npc . lock ( ) then 
+say_title ( gameforge . marriage_manage . _420_sayTitle ) 
+say ( gameforge . marriage_manage . _430_say ) 
+return 
+end 
+say_title ( gameforge . marriage_manage . _420_sayTitle ) 
+say ( gameforge . marriage_manage . _440_say ) 
+local sname = input ( ) 
+local u_vid = find_pc_by_name ( sname ) 
+local m_vid = pc . get_vid ( ) 
+if u_vid == 0 then 
+say_title ( gameforge . marriage_manage . _420_sayTitle ) 
+say ( gameforge . marriage_manage . _450_say ) 
+say_reward ( string . format ( gameforge . marriage_manage . _200_sayReward , sname ) ) 
+npc . unlock ( ) 
+return 
+end 
+if not npc . is_near_vid ( u_vid , 10 ) then 
+say_title ( gameforge . marriage_manage . _420_sayTitle ) 
+say ( gameforge . marriage_manage . _460_say ) 
+say_reward ( string . format ( gameforge . marriage_manage . _470_sayReward , sname ) ) 
+npc . unlock ( ) 
+return 
+end 
+if u_vid == m_vid then 
+say_title ( gameforge . marriage_manage . _420_sayTitle ) 
+say ( gameforge . marriage_manage . _480_say ) 
+npc . unlock ( ) 
+return 
+end 
+if u_vid ~= marriage . find_married_vid ( ) then 
+say_title ( gameforge . marriage_manage . _490_sayTitle ) 
+say ( gameforge . marriage_manage . _500_say ) 
+npc . unlock ( ) 
+return 
+end 
+local ok_sign = confirm ( u_vid , string . format ( gameforge . marriage_manage . _365_confirm_chat , pc . name ) , 30 ) 
+if ok_sign ~= CONFIRM_OK then 
+say_title ( gameforge . marriage_manage . _490_sayTitle ) 
+say ( gameforge . marriage_manage . _510_say ) 
+npc . unlock ( ) 
+return 
+end 
+say_title ( gameforge . marriage_manage . _420_sayTitle ) 
+say ( gameforge . marriage_manage . _520_say ) 
+marriage . set_to_marriage ( ) 
+say ( gameforge . marriage_manage . _530_say ) 
+npc . unlock ( ) 

serverfiles/share/locale/english/quest/object/9011/chat/marriage_manage.start.0.when

@@ -0,0 +1 @@
+return pc . is_engaged ( ) and marriage . in_my_wedding ( )

serverfiles/share/locale/english/quest/object/9011/chat/marriage_manage.start.1.arg

@@ -0,0 +1 @@
+gameforge.marriage_manage._540_npcChat

serverfiles/share/locale/english/quest/object/9011/chat/marriage_manage.start.1.script

@@ -0,0 +1,2 @@
+marriage . wedding_music ( true , "wedding.mp3" ) 
+setskin ( NOWINDOW ) 

serverfiles/share/locale/english/quest/object/9011/chat/marriage_manage.start.1.when

@@ -0,0 +1 @@
+return ( pc . is_engaged ( ) or pc . is_married ( ) ) and marriage . in_my_wedding ( ) and not marriage . wedding_is_playing_music ( )

serverfiles/share/locale/english/quest/object/9011/chat/marriage_manage.start.2.arg

@@ -0,0 +1 @@
+gameforge.marriage_manage._550_npcChat

serverfiles/share/locale/english/quest/object/9011/chat/marriage_manage.start.2.script

@@ -0,0 +1,2 @@
+marriage . wedding_music ( false , "default" ) 
+setskin ( NOWINDOW ) 

serverfiles/share/locale/english/quest/object/9011/chat/marriage_manage.start.2.when

@@ -0,0 +1 @@
+return ( pc . is_engaged ( ) or pc . is_married ( ) ) and marriage . in_my_wedding ( ) and marriage . wedding_is_playing_music ( )

serverfiles/share/locale/english/quest/object/9011/chat/marriage_manage.start.3.arg

@@ -0,0 +1 @@
+gameforge.marriage_manage._560_npcChat

serverfiles/share/locale/english/quest/object/9011/chat/marriage_manage.start.3.script

@@ -0,0 +1,2 @@
+marriage . wedding_dark ( true ) 
+setskin ( NOWINDOW ) 

serverfiles/share/locale/english/quest/object/9011/chat/marriage_manage.start.3.when

@@ -0,0 +1 @@
+return pc . is_married ( ) and marriage . in_my_wedding ( )

serverfiles/share/locale/english/quest/object/9011/chat/marriage_manage.start.4.arg

@@ -0,0 +1 @@
+gameforge.marriage_manage._570_npcChat

serverfiles/share/locale/english/quest/object/9011/chat/marriage_manage.start.4.script

@@ -0,0 +1,2 @@
+marriage . wedding_snow ( true ) 
+setskin ( NOWINDOW ) 

serverfiles/share/locale/english/quest/object/9011/chat/marriage_manage.start.4.when

@@ -0,0 +1 @@
+return pc . is_married ( ) and marriage . in_my_wedding ( )

serverfiles/share/locale/english/quest/object/9011/chat/marriage_manage.start.5.arg

@@ -0,0 +1 @@
+gameforge.marriage_manage._580_npcChat

serverfiles/share/locale/english/quest/object/9011/chat/marriage_manage.start.5.script

@@ -0,0 +1,27 @@
+if not npc . lock ( ) then 
+say_title ( gameforge . marriage_manage . _490_sayTitle ) 
+say ( gameforge . marriage_manage . _590_say ) 
+return 
+end 
+say_title ( gameforge . marriage_manage . _420_sayTitle ) 
+say ( gameforge . marriage_manage . _600_say ) 
+local s = select ( gameforge . marriage_manage . _610_select , gameforge . marriage_manage . _620_select ) 
+if s == 2 then 
+local u_vid = marriage . find_married_vid ( ) 
+if u_vid == 0 then 
+say_title ( gameforge . marriage_manage . _420_sayTitle ) 
+say ( gameforge . marriage_manage . _630_say ) 
+npc . unlock ( ) 
+return 
+end 
+say_title ( gameforge . marriage_manage . _420_sayTitle ) 
+say ( gameforge . marriage_manage . _640_say ) 
+local ok_sign = confirm ( u_vid , gameforge . marriage_manage . _650_confirm_chat , 30 ) 
+if ok_sign == CONFIRM_OK then 
+marriage . end_wedding ( ) 
+else 
+say_title ( gameforge . marriage_manage . _490_sayTitle ) 
+say ( gameforge . marriage_manage . _660_say ) 
+end 
+end 
+npc . unlock ( ) 

serverfiles/share/locale/english/quest/object/9011/chat/marriage_manage.start.5.when

@@ -0,0 +1 @@
+return pc . is_married ( ) and marriage . in_my_wedding ( )

serverfiles/share/locale/english/quest/object/9011/click/marriage_manage.start

@@ -0,0 +1,3 @@
+if not pc . is_engaged ( ) and not pc . is_married ( ) then say_title ( gameforge . marriage_manage . _420_sayTitle ) 
+say ( gameforge . marriage_manage . _1020_say ) 
+ return end