;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
[@CHANGESEX]
{
#IF
CheckMarriage

#SAY
你已经结婚,无法改变性别,请离婚在来找我!
<退出系统/@exit>\

#ELSESAY
要更改性别吗？仅需150点积分\\
<[ 确 认 ]/@CHANGESEXto> \
<[ 返 回 ]/@main>

[@CHANGESEXto]
#IF
checkcmd CHECKUSERJF 150
#SAY
_想清楚了吗？确认要更改性别吗？需150积分\\
<[ 更改性别 ]/@CHANGESEXto0>\\
<[ 返    回 ]/@main>
#elseact
sysmsg "您的积分不足150."

[@CHANGESEXto0]
#IF
checkcmd CHECKUSERJF 150
#ACT
changegender
actcmd SETUSERJF - 150 
Sysmsg "恭喜您改变性别成功,积分被扣除150!"
#ELSEACT
sysmsg "您的积分不足150."
}
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
