竞价留言，新改写的，很美观。。。。。。。不实用  随你骂
——————————————————
(@@InPutString @@InPutInteger )
[@main]
#if
ISADMIN
#say
楼主→ {<$STR(A101)>=FCOLOR=125}: <$STR(A111)> \
<$STR(A102)>: <$STR(A112)>  \
<$STR(A103)>: <$STR(A113)>  \
<$STR(A104)>: <$STR(A114)>  \
<$STR(A105)>: <$STR(A115)>  \
<$STR(A106)>: <$STR(A116)>  \
<$STR(A107)>: <$STR(A117)>  \
<$STR(A108)>: <$STR(A118)>  \
　　　　　　　　　　　　　　<清理留言/@ql> <查看规则/@gz> <发表留言/@fb>


#elsesay
楼主→ {<$STR(A101)>=FCOLOR=125}: <$STR(A111)> \
<$STR(A102)>: <$STR(A112)>  \
<$STR(A103)>: <$STR(A113)>  \
<$STR(A104)>: <$STR(A114)>  \
<$STR(A105)>: <$STR(A115)>  \
<$STR(A106)>: <$STR(A116)>  \
<$STR(A107)>: <$STR(A117)>  \
<$STR(A108)>: <$STR(A118)>  \
　　　　　　　　　　　　　　              <查看规则/@gz> <发表留言/@fb>


[@gz]
#act
messagebox 留言规则:\1.普通留言10元宝，按次序排挤消失\2.置顶留言,价高者扬名\3.骂GM的,发现就删号\4.每句话最多15个字

[@fb]
\ \
<置顶留言/@ding> \ \
<普通留言/@pt> \ \ \
<返回/@main>

[@ding]
\
当前置顶留言竞标价格: <$STR(G101)> 元宝 \ \
<输入竞标价格/@@InPutInteger70>

[@InPutInteger70]
#if
large n70 <$STR(G101)>
#act
goto @ding2
#elseact
messagebox 对不起，你的出价太低！

[@ding2]
#if
CHECKGAMEGOLD < <$STR(n70)>
#act
messagebox 对不起，你没有那么多元宝！
#elsesay
\
你的竞标价格为: <$STR(n70)> 元宝\ \
<输入留言内容/@@InPutString70>

[@InPutString70]
你输入的留言内容为: \
<$STR(s70)>\ \
<重新输入/@@InPutString70>\ \
<发表留言/@ding3>
[@ding3]
#if
CHECKGAMEGOLD < <$STR(n70)>
#act
messagebox 对不起，你没有那么多元宝！
#elseact
GAMEGOLD - <$STR(n70)>
mov g101 <$STR(n70)>
mov a101 <$USERNAME>
mov a111 <$STR(s70)>
messagebox 您的留言发表成功！
goto @main

[@pt]
#if
CHECKGAMEGOLD > 9
#say
\ \ \
<输入你的留言内容/@@InPutString71>\
#elseact
messagebox 抱歉，普通留言要10个元宝！
[@InPutString71]
你输入的留言内容为: \
<$STR(s71)> \ \
<重新输入/@@InPutString71>\ \
<发表留言/@pt2>

[@pt2]
#if
CHECKGAMEGOLD > 9
#act
GAMEGOLD - 10
mov a102 <$STR(a103)>
mov a103 <$STR(a104)>
mov a104 <$STR(a105)>
mov a105 <$STR(a106)>
mov a106 <$STR(a107)>
mov a107 <$STR(a108)>
mov a108 <$USERNAME>
mov a112 <$STR(a113)>
mov a113 <$STR(a114)>
mov a114 <$STR(a115)>
mov a115 <$STR(a116)>
mov a116 <$STR(a117)>
mov a117 <$STR(a118)>
mov a118 <$STR(s71)>
messagebox 您的留言发表成功！
goto @main
#elseact
messagebox 抱歉，普通留言要10个元宝！

[@ql]
#act
mov g101 0
mov a101
mov a102
mov a103
mov a104
mov a105
mov a106
mov a107
mov a108
mov a111
mov a112
mov a113
mov a114
mov a115
mov a116
mov a117
mov a118
messagebox 留言信息清理完毕！
goto @main