传奇结婚礼堂的焰火脚本

(@storage @getback)
%100
[@main]
%s，欢迎来到红娘庄，是来结婚的吧？你有心上人了？\
只要男方35级以上，女方30级以上的未婚情侣，都可以来这里登记\
结婚的手续很简朴，只要双方同意就可以完婚。但是，无论\
成不成，我都要收取求婚戒指。\ \
<我马上想结婚[url=]/@marry[/url]>     <我现在想离婚[url=]/@unmarry>\[/url]
<婚礼一号火焰[url=]/@ILOVEYOU[/url]>     <婚礼二号火焰[url=]/@LOVEYOU>\[/url]
<婚礼三号火焰/@心>   \
<离开[url=]/@exit[/url]>
[@LOVEYOU]
#IF
  large I31 0
#ACT
  messagebox 该火焰已经放过了...
  break
#IF
  Checkitem 金条 1
#ACT
  take 金条 1
  GMexecute MOBFIREBURN m101 14 38 5 30 0     ;30单位为秒，这个时间看你们自己设置了。
  GMexecute MOBFIREBURN m101 14 37 5 30 0
  GMexecute MOBFIREBURN m101 14 36 5 30 0
  GMexecute MOBFIREBURN m101 14 35 5 30 0
  GMexecute MOBFIREBURN m101 14 34 5 30 0
  GMexecute MOBFIREBURN m101 15 39 5 30 0
  GMexecute MOBFIREBURN m101 15 38  5 30 0
  GMexecute MOBFIREBURN m101 15 37 5 30 0
  GMexecute MOBFIREBURN m101 15 36 5 30 0
  GMexecute MOBFIREBURN m101 15 35 5 30 0
  GMexecute MOBFIREBURN m101 15 33 5 30 0
  GMexecute MOBFIREBURN m101 16 40 5 30 0
  GMexecute MOBFIREBURN m101 17 41 5 30 0
  GMexecute MOBFIREBURN m101 18 42 5 30 0
  GMexecute MOBFIREBURN m101 19 43 5 30 0
  GMexecute MOBFIREBURN m101 20 44 5 30 0
  GMexecute MOBFIREBURN m101 20 43 5 30 0
  GMexecute MOBFIREBURN m101 20 42 5 30 0
  GMexecute MOBFIREBURN m101 19 42 5 30 0
  GMexecute MOBFIREBURN m101 18 41 5 30 0
  GMexecute MOBFIREBURN m101 17 40 5 30 0
  GMexecute MOBFIREBURN m101 16 39 5 30 0
  GMexecute MOBFIREBURN m101 21 43 5 30 0
  GMexecute MOBFIREBURN m101 22 42 5 30 0
  GMexecute MOBFIREBURN m101 23 41 5 30 0
  GMexecute MOBFIREBURN m101 24 40 5 30 0
  GMexecute MOBFIREBURN m101 25 39 5 30 0
  GMexecute MOBFIREBURN m101 24 39 5 30 0
  GMexecute MOBFIREBURN m101 23 40 5 30 0
  GMexecute MOBFIREBURN m101 22 41 5 30 0
  GMexecute MOBFIREBURN m101 21 42 5 30 0
  GMexecute MOBFIREBURN m101 25 38 5 30 0
  GMexecute MOBFIREBURN m101 25 37 5 30 0
  GMexecute MOBFIREBURN m101 25 36 5 30 0
  GMexecute MOBFIREBURN m101 25 35 5 30 0
  GMexecute MOBFIREBURN m101 25 34 5 30 0
  GMexecute MOBFIREBURN m101 25 33 5 30 0
  GMexecute MOBFIREBURN m101 26 34 5 30 0
  GMexecute MOBFIREBURN m101 26 35 5 30 0
  GMexecute MOBFIREBURN m101 26 36 5 30 0
  GMexecute MOBFIREBURN m101 26 37 5 30 0
  GMexecute MOBFIREBURN m101 26 38 5 30 0
  GMexecute MOBFIREBURN m101 24 33 5 30 0
  GMexecute MOBFIREBURN m101 23 33 5 30 0
  GMexecute MOBFIREBURN m101 22 33 5 30 0
  GMexecute MOBFIREBURN m101 21 33 5 30 0
  GMexecute MOBFIREBURN m101 20 33 5 30 0
  GMexecute MOBFIREBURN m101 19 33 5 30 0
  GMexecute MOBFIREBURN m101 18 33 5 30 0
  GMexecute MOBFIREBURN m101 17 33 5 30 0
  GMexecute MOBFIREBURN m101 16 33 5 30 0
  GMexecute MOBFIREBURN m101 15 33 5 30 0
  GMexecute MOBFIREBURN m101 16 32 5 30 0
  GMexecute MOBFIREBURN m101 17 32 5 30 0
  GMexecute MOBFIREBURN m101 18 32 5 30 0
  GMexecute MOBFIREBURN m101 19 32 5 30 0
  GMexecute MOBFIREBURN m101 20 32 5 30 0
  GMexecute MOBFIREBURN m101 21 32 5 30 0
  GMexecute MOBFIREBURN m101 22 32 5 30 0
  GMexecute MOBFIREBURN m101 23 32 5 30 0
  GMexecute MOBFIREBURN m101 24 32 5 30 0
  GMexecute MOBFIREBURN m101 19 34 5 30 0
  GMexecute MOBFIREBURN m101 18 35 5 30 0
  GMexecute MOBFIREBURN m101 17 36 5 30 0
  GMexecute MOBFIREBURN m101 17 37 5 30 0
  GMexecute MOBFIREBURN m101 18 38 5 30 0
  GMexecute MOBFIREBURN m101 19 39 5 30 0
  GMexecute MOBFIREBURN m101 20 40 5 30 0
  GMexecute MOBFIREBURN m101 21 39 5 30 0
  GMexecute MOBFIREBURN m101 22 38 5 30 0
  GMexecute MOBFIREBURN m101 23 37 5 30 0
  GMexecute MOBFIREBURN m101 22 36 5 30 0
  GMexecute MOBFIREBURN m101 22 35 5 30 0
  GMexecute MOBFIREBURN m101 21 34 5 30 0
  GMexecute MOBFIREBURN m101 20 34 5 30 0
  GMexecute MOBFIREBURN m101 18 36 5 30 0
  GMexecute MOBFIREBURN m101 19 36 5 30 0
  GMexecute MOBFIREBURN m101 20 36 5 30 0
  GMexecute MOBFIREBURN m101 21 36 5 30 0
  GMexecute MOBFIREBURN m101 22 36 5 30 0
  GMexecute MOBFIREBURN m101 20 37 5 30 0
  GMexecute MOBFIREBURN m101 19 38 5 30 0
  GMexecute MOBFIREBURN m101 20 38 5 30 0
  GMexecute MOBFIREBURN m101 21 38 5 30 0
  mov I31 1
  close
  break
#IF
#ACT
  messagebox 放婚礼火焰需要一根金条....
[@ILOVEYOU]
#IF
  large I32 0
#ACT
  messagebox 该火焰已经放过了...
  break
#IF
  Checkitem 金条 1
#ACT
  take 金条 1
  mov I32 1
  GMexecute MOBFIREBURN m101 10 31 5 30 0
  GMexecute MOBFIREBURN m101 14 39 5 30 0
  GMexecute MOBFIREBURN m101 11 31 5 30 0
  GMexecute MOBFIREBURN m101 12 31 5 30 0
  GMexecute MOBFIREBURN m101 11 32 5 30 0
  GMexecute MOBFIREBURN m101 11 33 5 30 0
  GMexecute MOBFIREBURN m101 11 34 5 30 0
  GMexecute MOBFIREBURN m101 11 35 5 30 0
  GMexecute MOBFIREBURN m101 10 35 5 30 0
  GMexecute MOBFIREBURN m101 12 35 5 30 0
  GMexecute MOBFIREBURN m101 14 31 5 30 0
  GMexecute MOBFIREBURN m101 14 32 5 30 0
  GMexecute MOBFIREBURN m101 14 33 5 30 0
  GMexecute MOBFIREBURN m101 14 34 5 30 0
  GMexecute MOBFIREBURN m101 14 35 5 30 0
  GMexecute MOBFIREBURN m101 15 35 5 30 0
  GMexecute MOBFIREBURN m101 16 35 5 30 0
  GMexecute MOBFIREBURN m101 16 34 5 30 0
  GMexecute MOBFIREBURN m101 16 33 5 30 0
  GMexecute MOBFIREBURN m101 16 32 5 30 0
  GMexecute MOBFIREBURN m101 16 31 5 30 0
  GMexecute MOBFIREBURN m101 17 31 5 30 0
  GMexecute MOBFIREBURN m101 18 31 5 30 0
  GMexecute MOBFIREBURN m101 18 32 5 30 0
  GMexecute MOBFIREBURN m101 18 33 5 30 0
  GMexecute MOBFIREBURN m101 18 34 5 30 0
  GMexecute MOBFIREBURN m101 18 35 5 30 0
  GMexecute MOBFIREBURN m101 17 35 5 30 0
  GMexecute MOBFIREBURN m101 19 31 5 30 0
  GMexecute MOBFIREBURN m101 19 32 5 30 0
  GMexecute MOBFIREBURN m101 19 33 5 30 0
  GMexecute MOBFIREBURN m101 19 34 5 30 0
  GMexecute MOBFIREBURN m101 20 35 5 30 0
  GMexecute MOBFIREBURN m101 21 31 5 30 0
  GMexecute MOBFIREBURN m101 21 32 5 30 0
  GMexecute MOBFIREBURN m101 21 33 5 30 0
  GMexecute MOBFIREBURN m101 21 34 5 30 0
  GMexecute MOBFIREBURN m101 22 31 5 30 0
  GMexecute MOBFIREBURN m101 22 34 5 30 0
  GMexecute MOBFIREBURN m101 22 35 5 30 0
  GMexecute MOBFIREBURN m101 14 40 5 30 0
  GMexecute MOBFIREBURN m101 23 33 5 30 0
  GMexecute MOBFIREBURN m101 23 31 5 30 0
  GMexecute MOBFIREBURN m101 22 32 5 30 0
  GMexecute MOBFIREBURN m101 24 31 5 30 0
  GMexecute MOBFIREBURN m101 22 33 5 30 0
  GMexecute MOBFIREBURN m101 24 33 5 30 0
  GMexecute MOBFIREBURN m101 23 35 5 30 0
  GMexecute MOBFIREBURN m101 24 35 5 30 0
  GMexecute MOBFIREBURN m101 13 37 5 30 0
  GMexecute MOBFIREBURN m101 15 37 5 30 0
  GMexecute MOBFIREBURN m101 14 38 5 30 0
  GMexecute MOBFIREBURN m101 14 41 5 30 0
  GMexecute MOBFIREBURN m101 16 38 5 30 0
  GMexecute MOBFIREBURN m101 16 39 5 30 0
  GMexecute MOBFIREBURN m101 17 40 5 30 0
  GMexecute MOBFIREBURN m101 18 41 5 30 0
  GMexecute MOBFIREBURN m101 19 40 5 30 0
  GMexecute MOBFIREBURN m101 20 39 5 30 0
  GMexecute MOBFIREBURN m101 20 38 5 30 0
  GMexecute MOBFIREBURN m101 19 37 5 30 0
  GMexecute MOBFIREBURN m101 18 38 5 30 0
  GMexecute MOBFIREBURN m101 17 37 5 30 0
  GMexecute MOBFIREBURN m101 21 37 5 30 0
  GMexecute MOBFIREBURN m101 21 38 5 30 0
  GMexecute MOBFIREBURN m101 21 39 5 30 0
  GMexecute MOBFIREBURN m101 21 40 5 30 0
  GMexecute MOBFIREBURN m101 21 41 5 30 0
  GMexecute MOBFIREBURN m101 23 37 5 30 0
  GMexecute MOBFIREBURN m101 23 38 5 30 0
  GMexecute MOBFIREBURN m101 23 39 5 30 0
  GMexecute MOBFIREBURN m101 23 40 5 30 0
  GMexecute MOBFIREBURN m101 23 41 5 30 0
  GMexecute MOBFIREBURN m101 22 41 5 30 0
  break
  close
#IF
#ACT
  messagebox 放婚礼火焰需要一根金条....
[@心]
#IF
  large I33 0
#ACT
  messagebox 该火焰已经放过了...
  break
#IF
  Checkitem 金条 1
#ACT
  take 金条 1
  mov I33 1
  GMexecute MOBFIREBURN m1
01 19 42 5 30 0
  GMexecute MOBFIREBURN m101 20 41 5 30 0
  GMexecute MOBFIREBURN m101 21 40 5 30 0
  GMexecute MOBFIREBURN m101 22 39 5 30 0
  GMexecute MOBFIREBURN m101 23 38 5 30 0
  GMexecute MOBFIREBURN m101 24 37 5 30 0
  GMexecute MOBFIREBURN m101 24 36 5 30 0
  GMexecute MOBFIREBURN m101 24 35 5 30 0
  GMexecute MOBFIREBURN m101 23 34 5 30 0
  GMexecute MOBFIREBURN m101 22 34 5 30 0
  GMexecute MOBFIREBURN m101 21 34 5 30 0
  GMexecute MOBFIREBURN m101 20 35 5 30 0
  GMexecute MOBFIREBURN m101 19 36 5 30 0
  GMexecute MOBFIREBURN m101 18 35 5 30 0
  GMexecute MOBFIREBURN m101 17 34 5 30 0
  GMexecute MOBFIREBURN m101 16 34 5 30 0
  GMexecute MOBFIREBURN m101 15 34 5 30 0
  GMexecute MOBFIREBURN m101 14 35 5 30 0
  GMexecute MOBFIREBURN m101 14 36 5 30 0
  GMexecute MOBFIREBURN m101 14 37 5 30 0
  GMexecute MOBFIREBURN m101 15 38 5 30 0
  GMexecute MOBFIREBURN m101 16 39 5 30 0
  GMexecute MOBFIREBURN m101 17 40 5 30 0
  GMexecute MOBFIREBURN m101 18 41 5 30 0
  break
close
#IF
#ACT
  messagebox 放婚礼火焰需要一根金条....
[@marry]
求婚者必需是男性且拥有求婚戒指，\
你预备好求婚了吗？\ \
<预备好了[url=]/@agree>\[/url]
<下次再来[url=]/@exit>\[/url] \ \
<返回[url=]/@main[/url]>
[@agree]
#if
   checkmarry
#act
   break
#say
你都结过婚了，还来注册结婚，想犯重婚罪呀！！！ \ \
<返回[url=]/@main[/url]>
#if
  checkposemarry
#say
对方已经结过婚了，是不是想犯重婚罪呀！！！\ \
<返回[url=]/@main[/url]>
#act
  break
#if
   gender man
#elsesay
只有男的向女的求婚，还没见过大姑娘向小伙子求婚的。\ \
<返回[url=]/@main[/url]>
#elseact
   break
#if
  checkposegender man
#say
你反常呀！！！想搞同性恋！！！ \ \
<返回[url=]/@main[/url]>
#act
  break
#if
   checkposedir 2
#elsesay
你们二个面临面站好呀，不要乱动。\ \
<返回[url=]/@main[/url]>
#elseact
  break
#if
  CHECKLEVELEX > 34
#elsesay
结婚要求你的等级必需35级或以上，小伙子努力练好级再来找我。\ \
<返回[url=]/@main[/url]>
#elseact
  break
#if
  checkposelevel > 29
#elsesay
你的对象还没成年，等她长大点再来吧！小伙子不要心急嘛！\ \
<返回[url=]/@main[/url]>
#elseact
  break
#if
   checkitemw 求婚戒指 1
#elsesay
你没求婚戒指，弄到求婚戒指再来找我吧！！！\ \
<返回[url=]/@main[/url]>
#elseact
   break
#if
#act
   takew 求婚戒指 1
   marry
[@Startmarry]
#if
   checkmarry
#say
你都结过婚了，还来注册结婚，想犯重婚罪呀！！！ \ \
<返回[url=]/@main[/url]>
#act
   break
#if
   gender man
#act
   break
#say
婚礼现在正式开始。\ \
你愿意娶对方为妻，并照顾她一生一世吗？\ \
<我愿意[url=]/@Requestmarry[/url]>
#if
   gender
#act
   break
#say
婚礼现在正式开始。\ \
请耐心等待你心爱的人向你求婚\ \
[@Requestmarry]
#if
   checkmarry
#act
   break
#say
你都结过婚了，还来注册结婚，想犯重婚罪呀！！！ \ \
<返回[url=]/@main[/url]>
#if
#act
  marry requestmarry
[@Watemarry]
你已向对方求婚，请耐心等待对方的答复。
[@Revmarry]
#if
   checkmarry
#act
   break
#say
你都结过婚了，还来注册结婚，想犯重婚罪呀！！！ \ \
<返回[url=]/@main[/url]>
#if
#say
对方向你求婚，你是否允许嫁给他？ \ \
<我愿意[url=]/@Resposemarry[/url]> \
<我不愿意[url=]/@ResposemarryFail[/url]>
[@Resposemarry]
#if
   checkmarry
#act
   break
#say
你都结过婚了，还来注册结婚，想犯重婚罪呀！！！ \ \
<返回[url=]/@main[/url]>
#if
#act
  marry responsemarry ok
[@ResposemarryFail]
#if
   checkmarry
#act
   break
#say
你都结过婚了，还来注册结婚，想犯重婚罪呀！！！ \ \
<返回[url=]/@main[/url]>
#if
#act
  marry responsemarry fail
[@Endmarry]
你们二个已经成为了一对全法夫妻了。\ \
<封闭[url=]/@exit[/url]>
[@EndmarryFail]
结婚失败！\ \
<封闭[url=]/@exit[/url]>
[@marryDirErr]
对方没站好位置
[@marryCheckDir]
请站好位置\\
[@HumanTypeErr]
你反常呀，既然选择一个非人类作为结婚对象。
[@marrySexErr]
你反常呀，既然同性恋。
;==========================================
离婚开始
[@unmarry]
#if
   checkmarry
#act
   unmarry
#elsesay
你都没结婚离什么婚？？\ \
<返回[url=]/@main[/url]>
;=======================================================
;双方离婚时没面临面站好显示的信息
[@UnmarryCheckDir]
要离婚是吧？离婚是二个人的事，必需二个人对面临站好位置，\
假如人来不了你只能选择强行离婚姻了。\ \
<我要强行离婚[url=]/@fUnmarry>\[/url]
<返回[url=]/@main[/url]>
;=======================================================
;对面位置不是人物时显示的信息
[@UnmarryTypeErr]
你对面站了个什么东西，怎么不太象人来的。\ \
<返回[url=]/@main[/url]>
;=======================================================
;开始离婚程序后，双方显示的信息
[@StartUnmarry]
#if
   gender man
#act
   BREAK
#say
是否确定真的要与你共事多年的妻子离婚吗？\ \
<确定[url=]/@RequestUnmarry[/url]>
#if
  gender
#say
你的老公现在向我哀求离婚，是不是愿意协议离婚？ \ \
<确定[url=]/@RequestUnmarry[/url]>
#act
  break
;=======================================================
;发出离婚哀求
[@RequestUnmarry]
#if
  checkmarry
#act
  unmarry requestunmarry
;=======================================================
;回应离婚哀求
[@ResposeUnmarry]
#if
  checkmarry
#act
  unmarry responseunmarry
;===============================================
;哀求离婚后显示的信息
[@WateUnmarry]
你已向对方发出离婚哀求，请耐心等待对方的答复。
;===============================================
;哀求离婚后对方显示的信息
[@RevUnmarry]
对方向你离婚哀求，你是否允许离婚？ \ \
<我愿意[url=]/@RequestUnmarry[/url]>
<返回[url=]/@main[/url]>
;===============================================
;没结过婚的人点离婚后出的提示信息
[@ExemarryFail]
你都没结过婚，跑来做什么？ \ \
[返回[url=]/@main[/url]]
;==============================================
;强行离婚
[@fUnmarry]
#if
  checkitem 金条 1
  checkmarry
#act
  take 金条 1
unmarry requestunmarry force
#elsesay
要收一根金条的手续费，你没有金条，\
我不能让你离婚。\
<确定[url=]/@exit[/url]>
;==============================================
;离婚完成后的提示信息
[@UnmarryEnd]
呵呵，你已经脱离苦海了！！！ \ \
<退出[url=]/@exit[/url]>
[@asktime]
你调查结婚时间的哀求已发出，\
请稍后。\
<确定[url=]/@exit[/url]>