Gm版本库

 找回密码
 立即注册

传奇服务端GOM引擎结婚红娘脚本 - 传奇私服脚本

查看: 519|回复: 0

传奇服务端GOM引擎结婚红娘脚本

[复制链接]
发表于 2019-8-15 00:25:31 | 显示全部楼层 |阅读模式
[@Main]
#IF
#ACT
CloseBigDialogBox
#SAY
\ \ \ \
 <我想结婚/@marry> 结婚后夫妻双方均可获得和1.1倍攻击,小退生效!\ \
 <我想离婚/@unmarry> 离婚后夫妻双方均失去倍攻\ \
 <离开/@EXIT>\ \
 夫妻传送命令 @允许夫妻传送 @夫妻传送 所有打宝地图均不可传送!

[@marry]
\ \ \
 求婚者必须是男性且拥有求婚戒指,\
 你准备好求婚了吗?\ \
 <准备好了/@agree>\
 <下次再来/@exit>\ \ \
 <返回/@main>

[@agree]
#if
   checkmarry
#act
   break
#say
\ \ \
 你都结过婚了,还来注册结婚,想犯重婚罪呀!!! \ \
 <返回/@main>
#if
  checkposemarry
#say
\ \ \
 对方已经结过婚了,是不是想犯重婚罪呀!!!\ \
 <返回/@main>
#act
  break

#if
   gender man
#elsesay
 只有男的向女的求婚,还没见过大姑娘向小伙子求婚的。\ \
 <返回/@main>
#elseact
   break


#if
  checkposegender 男
#say
\ \ \
 你变态呀!!!想搞同性恋!!! \ \
 <返回/@main>
#act
  break

#if
   checkposedir 2
#elsesay
 你们二个面对面站好呀,不要乱动。\ \
 <返回/@main>
#elseact
  break

#if
  checklevel 40
#elsesay
 结婚要求你的等级必须40级或以上,小伙子努力练好级再来找我。\ \
 <返回/@main>
#elseact
  break
#if
  checkposelevel > 34
#elsesay
 你的对象还没成年,等她长大点再来吧!小伙子不要心急嘛!\ \
 <返回/@main>
#elseact
  break
#if
   checkitemw 求婚戒指 1
#elsesay
 你没求婚戒指,弄到求婚戒指再来找我吧!!!\ \
 <返回/@main>
#elseact
   break

#if
#act
   takew 求婚戒指 1
   marry



[@StartMarry]
#if
   checkmarry
#say
\ \ \
 你都结过婚了,还来注册结婚,想犯重婚罪呀!!! \ \
 <返回/@main>
#act
   break

#if
   gender man
#act
   break
#say
\ \ \
 婚礼现在正式开始。\ \
 你愿意娶对方为妻,并照顾她一生一世吗?\ \
 <我愿意/@RequestMarry>

#if
   gender
#act
   break
#say
\ \ \
 婚礼现在正式开始。\ \
 请耐心等待你心爱的人向你求婚\ \


[@RequestMarry]
#if
   checkmarry
#act
   break
#say
\ \ \
 你都结过婚了,还来注册结婚,想犯重婚罪呀!!! \ \
 <返回/@main>

#if
#act
  marry requestmarry
[@WateMarry]
 你已向对方求婚,请耐心等待对方的答复。

[@RevMarry]
#if
   checkmarry
#act
   break
#say
\ \ \
 你都结过婚了,还来注册结婚,想犯重婚罪呀!!! \ \
 <返回/@main>

#if
#say
\ \ \
 对方向你求婚,你是否答应嫁给他? \ \
 <我愿意/@ResposeMarry> \
 <我不愿意/@ResposeMarryFail>
[@ResposeMarry]
#if
   checkmarry
#act
   break
#say
\ \ \
 你都结过婚了,还来注册结婚,想犯重婚罪呀!!! \ \
 <返回/@main>

#if
#act
  marry responsemarry ok

[@ResposeMarryFail]
#if
   checkmarry
#act
   break
#say
\ \ \
 你都结过婚了,还来注册结婚,想犯重婚罪呀!!! \ \
 <返回/@main>

#if
#act
  marry responsemarry fail
[@EndMarry]
 你们二个已经成为了一对全法夫妻了。\ \
 <关闭/@exit>
[@EndMarryFail]
 结婚失败!\ \
 <关闭/@exit>
[@MarryDirErr]
 对方没站好位置

[@MarryCheckDir]
 请站好位置\\

[@HumanTypeErr]
 你变态呀,既然选择一个非人类作为结婚对象。

[@MarrySexErr]
 你变态呀,既然同性恋。

;==========================================
离婚开始
[@unmarry]
#if
   checkmarry
#act
   unmarry
#elsesay
 你都没结婚离什么婚??\ \
 <返回/@main>



;=======================================================
;双方离婚时没面对面站好显示的信息
[@UnMarryCheckDir]
 要离婚是吧?离婚是二个人的事,必须二个人对面对站好位置,\
 如果人来不了你只能选择强行离婚姻了。\ \
 <我要强行离婚/@fUnMarry>\
 <返回/@main>
;=======================================================
;对面位置不是人物时显示的信息
[@UnMarryTypeErr]
 你对面站了个什么东西,怎么不太象人来的。\ \
 <返回/@main>

;=======================================================
;开始离婚程序后,双方显示的信息
[@StartUnMarry]
#if
   gender man
#act
   BREAK
#say
\ \ \
 是否确定真的要与你共事多年的妻子离婚吗?\ \
 <确定/@RequestUnMarry>

#if
  gender
#say
\ \ \
 你的老公现在向我请求离婚,是不是愿意协议离婚? \ \
 <确定/@RequestUnMarry>
#act
  break

;=======================================================
;发出离婚请求
[@RequestUnMarry]
#if
  checkmarry
#act
  unmarry requestunmarry
;=======================================================
;回应离婚请求
[@ResposeUnMarry]
#if
  checkmarry
#act
  unmarry responseunmarry

;===============================================
;请求离婚后显示的信息
[@WateUnMarry]
 你已向对方发出离婚请求,请耐心等待对方的答复。

;===============================================
;请求离婚后对方显示的信息
[@RevUnMarry]
 对方向你离婚请求,你是否答应离婚? \ \
 <我愿意/@RequestUnMarry>
 <返回/@main>

;===============================================
;没结过婚的人点离婚后出的提示信息
[@ExeMarryFail]
 你都没结过婚,跑来做什么? \ \
 [返回/@main]

;==============================================
;强行离婚
[@fUnMarry]
#if
  checkitem 金条 1
  checkmarry
#act
  take 金条 1
  unmarry requestunmarry force
#elsesay
 要收一根金条的手续费,你没有金条,\
 我不能让你离婚。\
 <确定/@exit>
;==============================================
;离婚完成后的提示信息
[@UnMarryEnd]
 呵呵,你已经脱离苦海了!!! \ \
 <退出/@exit>
 [@asktime]
 你调查结婚时间的请求已发出,\
 请稍后。\
 <确定/@exit>


回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

Archiver/手机版/Gm版本库 ( 蜀ICP备20007044号-1 )|网站地图

GMT+8, 2021-9-21 17:12 , Processed in 0.124801 second(s), 19 queries .

Powered by GM版本库 X3.4

© 2001-2011 Comsenz Inc.>  template by gmbbk.com