传奇私服版本结婚脚本制作教程

结婚脚本
% S9 F" }  ~: r( ]2 x

8 `0 p5 Y& o* u3 G[@main]
<我想结婚/@marry>\
# i7 W$ p# [3 T" A: n<我想离婚/@unmarry>\ \
<离开/@exit>


[@marry]
求婚者必须是男性且拥有求婚戒指，\
! Q( x& c7 L8 P1 Y你准备好求婚了吗？\ \
<准备好了/@agree>\
' {9 a# A5 q, ]<下次再来/@exit>\ \ \
- J% K. o- P7 X3 O) `) Z5 e<返回/@main>
, `1 c- n) q- T4 ?  q' b3 M. R
; h& F1 G$ s2 R& e- ^
[@agree]
4 h8 n- h. g  \& V' ?#if
   checkmarry
& h# B) r4 e- H& W0 E- i  A#act
/ m) Y. T: ]1 n9 j   break
#say
5 o" T! A2 y% F* G+ Z* Q/ o你都结过婚了，还来注册结婚，想犯重婚罪呀！！！ \ \
4 A2 q7 }3 ?& N! B9 U3 m<返回/@main>
#if
2 x1 \' h( @5 D1 y" H9 h3 }& y  checkposemarry
#say
对方已经结过婚了，是不是想犯重婚罪呀！！！\ \
) I- i: \2 F2 h$ r! s8 _3 w% c<返回/@main>
#act
- u: C/ }# L' o( b. d: Q  break
( X2 @# ~  S+ o, Y  {/ }* K. @

( l3 v3 v% v) [; E#if
   gender man
8 q- i& k, s2 N5 o. P" c/ u( I#elsesay
只有男的向女的求婚，还没见过大姑娘向小伙子求婚的。\ \
<返回/@main>
* i+ |- X! U9 m% p* r. D#elseact
8 b% \- o5 H" j5 j1 ]   break
& N5 u0 k* t* G$ U; D3 A: j; k6 J+ k
4 X" S, i& t! k% w5 K

8 S- b3 x" a+ K; `! l% R8 ~
( I& R! Z! \1 L/ l0 N#if
  checkposegender 男
) m7 I: o% y/ C9 @. @$ q' H#say
你变态呀！！！想搞同性恋！！！ \ \
5 l. ?+ l9 {. W- ?<返回/@main>
#act
  break
' M' Z$ H2 g) {: B# w$ B/ Z$ L

#if
# h3 C& b  C  ^! U/ R   checkposedir 2
#elsesay
你们二个面对面站好呀，不要乱动。\ \
<返回/@main>
#elseact
  break
! k5 J% a; ?/ q: x# P9 X3 m

#if
" T  @5 f3 [" q# [, }  checklevel 40
#elsesay
9 a5 B9 R2 w4 _9 F! o; P结婚要求你的等级必须40级或以上，小伙子努力练好级再来找我。\ \
, @- q* N4 K: P% I% @: Q<返回/@main>
#elseact
  break
#if
  checkposelevel > 34
0 Z4 }9 d+ |$ J! \2 T, n. ]#elsesay
你的对象还没成年，等她长大点再来吧！小伙子不要心急嘛！\ \
<返回/@main>
#elseact
1 r- N5 _( Y; S9 ^' s: j7 m! B  break
& W% p3 E8 c1 C1 x- g( {#if
   checkitemw 求婚戒指 1
2 R& c7 n4 Q2 N, U4 J  z#elsesay
你没求婚戒指，弄到求婚戒指再来找我吧！！！\ \
<返回/@main>
#elseact
   break


#if
- i7 ~( f5 s( A4 m9 P7 a+ C4 Q* c# k8 H#act
2 m2 J, L3 p" l" I! T- Y. E# {0 K   takew 求婚戒指 1
$ S1 V  K  y6 r; F0 I& F- L( M+ k# j/ ~   marry
% \8 t( e, v/ S; `. }5 ^6 m1 T
; @9 _1 L, R" V, R0 V
* |8 s- y: x6 x" j* P
. r4 s4 c: N& F( t" x" ?; _7 O
$ m$ n3 U3 M' d1 B2 E& T
3 P& ^! g1 t  U0 O: i[@StartMarry]
#if
+ |5 n4 i) O* W& l0 ^- Q   checkmarry
#say
你都结过婚了，还来注册结婚，想犯重婚罪呀！！！ \ \
# ]+ H8 w0 o* H, Z  V5 ]5 ~  U+ i<返回/@main>
#act
6 F2 E, ^$ S$ Q4 i( g( I8 }, P; S1 b   break
* ~% ?. v4 s6 V! _! m# D- D, a, \' p

#if
) K7 h3 {( a- O5 X2 a   gender man
#act
   break
#say
; M* k* L7 ?% x8 o8 X1 C; y婚礼现在正式开始。\ \
你愿意娶对方为妻，并照顾她一生一世吗？\ \
<我愿意/@RequestMarry>

+ z. U; d; ?. i. y# Z
#if
5 |$ C6 d% C' z8 d9 a. H2 f' _   gender
#act
+ C4 Z+ z/ _( W. _   break
#say
婚礼现在正式开始。\ \
4 d% X  y; H5 F' u8 |( N: E请耐心等待你心爱的人向你求婚\ \

, q% f" {9 j/ a( M2 ?: m# T
; q$ ?4 U. [; D) H) i* [
9 _' l/ O' F  I* }0 M
[@RequestMarry]
#if
- {- g9 m7 l- _& k: E% T   checkmarry
" Z/ K4 z! T2 q' ?) y  [; f- h#act
   break
#say
你都结过婚了，还来注册结婚，想犯重婚罪呀！！！ \ \
<返回/@main>
: U$ q: i$ V: n9 y

* c$ g; x' x2 Z/ X% R3 C#if
#act
  marry requestmarry
[@WateMarry]
( `7 ]  t0 q/ `1 c! E. @你已向对方求婚，请耐心等待对方的答复。


% c1 {# }2 U5 L1 q! d[@RevMarry]
#if
8 q/ b6 _/ E' l; [6 _   checkmarry
! v: z( J, \, C* b& ~6 B' U#act
   break
+ q' p& w2 `; x) }+ g#say
& A* }3 p* x7 N' b1 X你都结过婚了，还来注册结婚，想犯重婚罪呀！！！ \ \
. Q5 H3 C: u& a% `* d<返回/@main>
" w5 u. D/ L5 U% a4 o& H

#if
' _( G, p- }( i& ?7 S#say
对方向你求婚，你是否答应嫁给他？ \ \
<我愿意/@ResposeMarry> \
. C$ b0 [; m2 s<我不愿意/@ResposeMarryFail>
0 V* ^0 j* E3 {8 g[@ResposeMarry]
" C0 a' Z1 l7 J' A7 a- f, @9 L#if
+ d8 z+ G/ N+ c3 l& a2 y9 [" w   checkmarry
- l9 S2 D: u5 a' w#act
   break
#say
你都结过婚了，还来注册结婚，想犯重婚罪呀！！！ \ \
<返回/@main>
+ T  f% n0 i, K' r% j2 t1 A
+ |0 t% z& C7 p' n4 |
/ }' o0 A) `; Z. g#if
# d0 j; K8 k' h4 m#act
  marry responsemarry ok
0 x6 u  y4 e& E) g( F
+ w' U* `9 p+ @& e; D
# p" i+ ~+ C" N8 a+ y[@ResposeMarryFail]
. f( k! Z5 c" k' t8 i#if
   checkmarry
" N, Y7 k$ ?  y& y#act
' D( @9 t) O8 }' w  ^3 x   break
#say
你都结过婚了，还来注册结婚，想犯重婚罪呀！！！ \ \
1 p0 j! U% E0 \; `<返回/@main>
4 [1 m. ?' q: t  x. F

#if
- Z8 o' k& N3 u6 X#act
  marry responsemarry fail
7 n: o0 o& x: E4 z( A[@EndMarry]
你们二个已经成为了一对全法夫妻了。\ \
<关闭/@exit>
  o! G1 K( r0 n# w/ s% J[@EndMarryFail]
结婚失败！\ \
, D2 k2 X# B! R& g' P<关闭/@exit>
. m; w0 k$ P) f, X[@MarryDirErr]
对方没站好位置
8 b( Z+ e6 l% O
5 T! c8 Y6 @7 S" |) o6 L! Z/ T
( ~( [8 w3 j8 D. U[@MarryCheckDir]
" s7 F9 r$ S5 v9 \, J请站好位置\\
$ x  M7 U1 C% q. W

[@HumanTypeErr]
& _6 B2 q' I/ E. ]4 O你变态呀，既然选择一个非人类作为结婚对象。
1 V- B. [3 k5 I6 o
# L* y0 `5 V( R( B% j: z( r8 }
[@MarrySexErr]
# H0 L; I6 K/ w( \+ t你变态呀，既然同性恋。
" g9 C) G: P# g, ^2 m6 F( A

' g# v! j3 t; z3 K9 V;==========================================
* h4 }# B2 `7 }- S, a' m2 `离婚开始
[@unmarry]
4 ~- ?0 b! M4 Z6 i: t* q#if
   checkmarry
#act
5 A8 c* r/ ~1 p9 f3 N/ r1 A& ^   unmarry
8 Y9 r* D; d5 W. D7 |8 j( O#elsesay
5 p# t  O" U4 c# H& u: B你都没结婚离什么婚？？\ \
<返回/@main>
" z7 d( z4 Z9 p$ ^7 m# R

! U$ H' f/ h; C4 e. i: O
. ?9 Z4 f! i/ i! s! X6 J& Q
: M) ]9 X' ^9 r; T
;=======================================================
;双方离婚时没面对面站好显示的信息
1 f5 `4 ?% w' S[@UnMarryCheckDir]
, H8 I2 j7 j% ?( Y要离婚是吧？离婚是二个人的事，必须二个人对面对站好位置，\
如果人来不了你只能选择强行离婚姻了。\ \
<我要强行离婚/@fUnMarry>\
' y( Q3 _$ }- p% U$ ^, n<返回/@main>
6 h' x" ~3 x3 [' v;=======================================================
# x2 `# j' O( R1 Z, G8 L) e- L2 @;对面位置不是人物时显示的信息
[@UnMarryTypeErr]
! I( ?7 Z8 G' S. W6 Z) B5 E你对面站了个什么东西，怎么不太象人来的。\ \
+ W/ f, Q+ h' w3 I9 |! s<返回/@main>
9 I, e8 z2 ?1 q  m

# n/ C; u/ L0 \- c8 u( q/ }0 l) U# e;=======================================================
;开始离婚程序后，双方显示的信息
# |' `3 u% }/ l6 |# B) g0 U% d' g[@StartUnMarry]
#if
9 e) c; w6 }) O" l; o; W   gender man
#act
9 c4 L) f; n; R, [& e* T   BREAK
#say
是否确定真的要与你共事多年的妻子离婚吗？\ \
" N6 R! y; u0 K7 _5 Z; r2 Z' E<确定/@RequestUnMarry>
5 u# P* P; _8 e% W6 v4 q5 H8 Z
4 P" `  k, Z# K# Z% R
' l! ]( k+ j5 d1 x& o#if
  gender
#say
) F% g5 x! l+ N( U* L你的老公现在向我请求离婚，是不是愿意协议离婚？ \ \
<确定/@RequestUnMarry>
5 g6 q9 J' I( G8 z#act
6 q3 j" e; t/ m: W/ ^  b  break
) D- T: Y7 d( v* q
8 a( h/ d" x; \1 D6 B% a
7 {6 b8 J+ ?9 f/ o7 s3 E. u, s;=======================================================
  _+ r% [: [7 @# \;发出离婚请求
( M8 M+ E$ z: w[@RequestUnMarry]
#if
  checkmarry
: ~5 T4 [% }$ Z0 B% ?#act
: p# s+ |$ a' \" N, e: U9 P  unmarry requestunmarry
;=======================================================
;回应离婚请求
$ R. h) X' Y4 w! v# s1 I[@ResposeUnMarry]
) Z0 E6 j5 Q( p3 ~9 L4 A) |#if
  checkmarry
#act
  unmarry responseunmarry
) M$ s2 X# q. m/ v$ e

4 H$ O+ o% ~! ?: p( `# g;===============================================
;请求离婚后显示的信息
! ]( ^3 e6 \& [1 f0 `[@WateUnMarry]
2 V5 J+ z% J% t6 n你已向对方发出离婚请求，请耐心等待对方的答复。
* [; a# c$ S3 T7 U8 g3 S8 c) c

/ p; ~. J, b/ U;===============================================
;请求离婚后对方显示的信息
2 t6 w. q/ B/ ]2 ]/ g) P- b[@RevUnMarry]
对方向你离婚请求，你是否答应离婚？ \ \
<我愿意/@RequestUnMarry>
+ R7 e  ~5 J0 }' y( H. s<返回/@main>
' K7 p0 J+ N2 D; q* F* m; G

;===============================================
; E/ G" c# S) N( Y  Y;没结过婚的人点离婚后出的提示信息
; z+ ^9 j  ~* ~# @( N& {3 @[@ExeMarryFail]
你都没结过婚，跑来做什么？ \ \
+ x0 a! n" W: q/ K[返回/@main]


9 I. P# f9 v- u  F) X) o9 v& X;==============================================
;强行离婚
[@fUnMarry]
) M$ Q3 f$ t0 o8 p% q4 r( \$ }#if
  checkitem 金条 1
0 \+ m, O2 X" p/ K  I% ~  checkmarry
#act
3 t" \6 t2 P& A/ F% e' o& Q  take 金条 1
3 `- a$ `7 N2 r6 b9 p1 e' L/ ?. U: O! z0 F  unmarry requestunmarry force
7 u# n7 B* J* C5 p! B, P% w7 D4 H#elsesay
要收一根金条的手续费，你没有金条，\
我不能让你离婚。\
) v: Z$ E& ~6 `<确定/@exit>
6 |9 D& F+ q/ g4 a% o7 U) Z3 ^;==============================================
* h3 S2 I7 r8 ^+ c4 K7 A;离婚完成后的提示信息
: F) F2 ]: l5 W- Q% Q1 z[@UnMarryEnd]
3 u& p9 ^2 y8 S! J0 A: J2 K8 X呵呵，你已经脱离苦海了！！！ \ \
<退出/@exit>
[@asktime]
6 k& {! n2 |6 ]$ _" o/ m你调查结婚时间的请求已发出，\
请稍后。\
<确定/@exit>