[@准备能量]
你当前的能量数为：<$GAMEPOINT>个\
兑换标准。1个能量可以用以兑换一张灵符，\
我也可以把你传送到天庭将你的能量点兑换成灵符；\
兑换标准：500能量点可以用以兑换一张灵符，\
如您进行灵符的兑换，则视您已经同意以上的兑换规则\
<查询灵符
你打算兑换：<$str(P3)>张灵符。\
<加一张> <加五张> <加十张>　　<减一张> <减五张> <减十张
<确定使用能量兑换/@确定兑换>        <任意兑换灵符>          <返回>

[@InPutInteger3]
#ACT
MOV P3 <$str(N3)>
break
goto @确定兑换

[@ybdh1]
#act
inc P3 1
break
goto @准备能量

[@ybdh5]
#act
inc P3 5
break
goto @准备能量

[@ybdh10]
#act
inc P3 10
break
goto @准备能量

[@ybdhJ1]
#if
large P3 0
#act
dec P3 1
break
goto @准备能量
#elseact
mov P3 0
break
goto @能量兑换

[@ybdhJ5]
#if
large P3 4
#act
dec P3 5
break
goto @准备能量
#elseact
mov P3 0
break
goto @能量兑换

[@ybdhJ10]
#if
large P3 9
#act
dec P3 10
break
goto @准备能量
#elseact
mov P3 0
break
goto @能量兑换

[@确定兑换]
#if
large P3 0
#ACT
set [120] 1
MUL N2 <$STR(P3)> <$str(P4)>
MOV N4 <$STR(N2)>
dec N4 1
goto @得到灵符
#elseact
break
goto @yesdh

[@得到灵符]
#IF
Check [120] 0
#act
mapmove B311
break
#IF
CHECKGAMEPOINT > <$STR(N4)>
#ACT
set [120] 0
GAMEPOINT - <$STR(N2)>
GAMEGIRD + <$STR(P3)>
SENDMSG 7 交易成功！
SENDMSG 7 你花了：<$STR(N2)>点能量，兑换<$str(P3)>张灵符
SENDMSG 7 您当前的灵符数量为：<$GAMEGIRD>个
break
goto @能量兑换
#ELSEACT
SENDMSG 6 提示：交易失败！
SENDMSG 6 你帐号中的能量数不够
SENDMSG 6 请去庄园找灵符仙子用元宝兑换灵符
break
goto @能量兑换
}