[@main]
#IF
EQUAL G11 0
#act
MOV G11 1
MOV G12 50000000
MOV G13 0
#IF
#ACT
CloseBigDialogBox
OPENMERCHANTBIGDLG 14 382 1 4 1 1 1 488 44
#SAY
\ \ \ \ \
<> <因老板元宝稀缺困恼和散人打金玩家的权益，特此推出限购商行/SCOLOR=250>\
<> <本商行可使用RMB点限购元宝和回收元宝，单区购买额度为500万/SCOLOR=254>\
<> <玩家购买元宝数量等于提供给玩家回收的数量，由此循环！/SCOLOR=254>\
<> <商行回收价格为600万元宝=100RMB，够买元宝为100RMB=500万元宝/SCOLOR=253>\
<> <新区开区后开启商行/SCOLOR=253> \ \
<> <购买元宝/@购111> <10RMB点=50万元宝/SCOLOR=250> <当前可够买额度为：<$STR(G12)>元宝/SCOLOR=251>\
<> <购买元宝/@购110> <100RMB点=500万元宝/SCOLOR=250> \ \
<> <回收元宝/@回121> <60万元宝=10RMB点/SCOLOR=250> <当前可回收额度为：<$STR(G13)>元宝/SCOLOR=251>\
<> <回收元宝/@回120> <600万元宝=100RMB点/SCOLOR=250> \ \
[@购111]
#if
CheckContainsText <$SERVERNAME> 测试
#ACT
MESSAGEBOX [操作失败]：\ \测试区无法使用此功能!
break
#IF
CHECKGamePoint < 9
#act
MESSAGEBOX [操作失败]：\ \你当前Rmb点不够.
BREAK
#IF
SMALL G12 500000
#act
MESSAGEBOX [操作失败]：\ \商行当前购买额度不够.
BREAK
#IF
LARGE G12 499999
CHECKGamePoint > 9
#act
GameGold + 500000
GamePoint - 10
DEC G12 500000
INC G13 500000
INC G16 10
goto @main
SENDMSG 0 恭喜玩家：[<$USERNAME>]通过商行购买50万元宝！
Break
[@购110]
#if
CheckContainsText <$SERVERNAME> 测试
#ACT
MESSAGEBOX [操作失败]：\ \测试区无法使用此功能!
break
#IF
CHECKGamePoint < 99
#act
MESSAGEBOX [操作失败]：\ \你当前Rmb点不够.
BREAK
#IF
SMALL G12 5000000
#act
MESSAGEBOX [操作失败]：\ \商行当前购买额度不够.
BREAK
#IF
LARGE G12 4999999
CHECKGamePoint > 99
#act
GameGold + 5000000
GamePoint - 100
DEC G12 5000000
INC G13 5000000
INC G16 100
goto @main
SENDMSG 0 恭喜玩家：[<$USERNAME>]通过商行购买500万元宝！
Break
[@回121]
#if
CheckContainsText <$SERVERNAME> 测试
#ACT
MESSAGEBOX [操作失败]：\ \测试区无法使用此功能!
break
#IF
CHECKGameGold < 600000
#act
MESSAGEBOX [操作失败]：\ \你当前元宝不够.
BREAK
#IF
SMALL G13 600000
#act
MESSAGEBOX [操作失败]：\ \商行当前可回收额度不足.
BREAK
#IF
LARGE G13 599999
CHECKGameGold > 599999
#act
GameGold - 600000
GamePoint + 10
INC G12 600000
DEC G13 600000
INC G17 10
goto @main
SENDMSG 0 恭喜玩家：[<$USERNAME>]通过商行回收60万元宝获得10RMB点！
Break
[@回120]
#if
CheckContainsText <$SERVERNAME> 测试
#ACT
MESSAGEBOX [操作失败]：\ \测试区无法使用此功能!
break
#IF
CHECKGameGold < 6000000
#act
MESSAGEBOX [操作失败]：\ \你当前元宝不够.
BREAK
#IF
SMALL G13 6000000
#act
MESSAGEBOX [操作失败]：\ \商行当前可回收额度不足.
BREAK
#IF
LARGE G13 5999999
CHECKGameGold > 5999999
#act
GameGold - 6000000
GamePoint + 100
INC G12 6000000
DEC G13 6000000
INC G17 100
goto @main
SENDMSG 0 恭喜玩家：[<$USERNAME>]通过商行回收600万元宝获得100RMB点！
Break
