如何写允许结婚后也可以去变性的脚本

大家想想，如果你的服务器开放了结婚功能，那结过婚的人又去变性别，那不得乱套啊!!
所以下边这个脚本就解决了这个问题!!
;---------------------------------------------------------------------------------------------------------
[@main]
#IF
checkpkpoint 2
#SAY
我们这里不和罪犯做生意的！\ 
<关闭/@exit>
#ELSEACT
goto @mainbx

[@mainbx]
#if
checklevel 45
#act
goto @bianx-1
#elsesay
你不到45级别,不能享受我的服务！<关闭/@exit>

[@bianx-1]
#if
checkmarry 已婚
#say
对不起，你是个有家室的人，凡事请以家庭为重！如果你一定要变性，请先离婚!!\ <关闭/@exit>
#ELSEACT
goto @main12

[@main12]
所以做妖和做人一样,要有一颗仁慈的心.....前些时候去海外，遇到了一个医术超群的医生，学会了这种技术,回来为玛珐大陆的英雄服务，可是我不是免费的哦，首先你要<没有结婚>，还需要<一根金条>的手术费!!\ 
<换性别/@ChangGender><关闭/@exit>

[@ChangGender]
#IF
gender man
#SAY
是不是做猛男没什么意思呀，想不想尝尝做淑女的滋味呀！！！\ 
<尝尝/@towoman>\ 
<返回/@main>
#ELSESAY
是不是做淑女挺累的，想不想尝尝做猛男的滋味呀！！！\ 
<尝尝/@toman><返回/@main>

[@toman]
#IF
checkitem 金条 1
#ACT
TAKE 金条 1
FREEPK GENDER
#SAY
呵呵，你已经变成一位猛男了。\ 
请下线在进来看看！\<返回/@main>
#ELSESAY
钱都没有，想做手术？我这不是慈善机构!!\ <离开/@exit>

[@towoman]
#IF
checkitem 金条 1
#ACT
TAKE 金条 1
FREEPK GENDER
#SAY
呵呵，你已经变成一位淑女了。\ 
请下线在进来看看！\<返回/@main>
#ELSESAY
钱都没有，想做手术？我这不是慈善机构!!\ <离开/@exit>

好了，脚本就是以上，建议自己去写上测试一下。多多关注67pp，你会学到更多！