传奇元宝竞价留言系统脚本

传奇服务端

(@@InPutString)
[@main]
<┏━━━━━┓/SCOLOR=254>  ━━━━━━━━<最新留言/SCOLOR=253>━━━━━━━━\
<┃竞◣︻◢留┃/SCOLOR=254>\
<┃  【版】  ┃/SCOLOR=254>  ★<$STR(A55)>\
<┃价◤︼◥言┃/SCOLOR=254>\
<┗━━━━━┛/SCOLOR=254>  ━━━━━━━━━━━━━━━━━━━━\
　　　　　　　　　　　　　　<保留我的留言[url=]/@O-1>\[/url]
【<竟价元宝数/SCOLOR=151>】：<$STR(G57)>\
支付比目前竟价数多一个元宝，即可让本留言公告板保留您的公告\
全服玩家均可看到，<最多可输入14个汉字/SCOLOR=250>\
[@O-1]
#IF
CHECKGAMEGOLD < <$STR(G57)>
#ACT
MESSAGEBOX [提示]：竞价元宝不够！\
GOTO @liuyanb
BREAK
#IF
CHECKGAMEGOLD = <$STR(G57)>
#ACT
MESSAGEBOX [提示]：你出的元宝和别人出的一样多，不能为你服务。
GOTO @liuyanb
BREAK
#IF
CHECKGAMEGOLD > <$STR(G57)>
#SAY
您必需要比现在的留言方多付出一个元宝才可\
本次留言需要<$STR(G57)>+1个元宝。\
是否确定抹去别人留言写上你的留言？\
<留意/SCOLOR=253>：输入文字中不得包含 <＼/SCOLOR=254> <／/SCOLOR=254> 这两个符号！\
<确定输入留言[url=]/@@InPutString21>\[/url] \
<返回[url=]/@main[/url]>
[@@InPutString21]
#IF
CHECKLEVELEX > 0
#Act
DelaYGoto 1 ~InPutString21
[~InPutString21]
#IF
CHECKGAMEGOLD < <$STR(G57)>
#ACT
MOV S21
GOTO @liuyanb
MESSAGEBOX [提示]：竞价元宝不够！\
BREAK

#IF
CHECKGAMEGOLD = <$STR(G57)>
#ACT
MOV S21
GOTO @liuyanb
MESSAGEBOX [提示]：你出的元宝和别人出的一样多，不能为你服务。
BREAK

#IF
CHECKGAMEGOLD > <$STR(G57)>
#ACT
INC G57 1
GAMEGOLD + <$STR(G57)>
MOV A55 <$USERNAME>
INC A55 说：
INC A55 <$STR(S21)>
MESSAGEBOX [提示]：<$USERNAME>在留言板上留下了<$STR(S21)>
MOV S21
GOTO @liuyanb
BREAK
[@IsInFilterList]
#IF
CHECKLEVELEX > 0
#Act
MessageBox 输入数据中包含了非法符号，请重新编纂。
Goto @liuyanb
Break