gom引擎自动加人行会竞价脚本带留言功能

75kf

(@@InPutString)
[@MAIN]
<★━━━━★/AUTOCOLOR=5,250,252,191,150,70,245,249,253> 　{━━━━━━行会自助※招人系统━━━━━/AUTOCOLOR=154}\
<┃ 行会板 ┃/AUTOCOLOR=5,250,252,191,150,70,245,249,253> 　　{【<$STR(A30)>】/AUTOCOLOR=249}正在招收成员,<加入此行会/@jrxh>\
<★━━━━★/AUTOCOLOR=5,250,252,191,150,70,245,249,253> 　{━━━━━━━━━━━━━━━━━━━━/AUTOCOLOR=154}\
\  <参加竞技/@cyjj>     [竞技元宝数]:<$STR(G30)>→[竞得行会名]:<$STR(A30)>\ \
<★━━━━★/AUTOCOLOR=5,250,252,191,150,70,245,249,253> 　{━━━━━━━━最新※留言━━━━━━━/AUTOCOLOR=154}\
<┃ 留言板 ┃/AUTOCOLOR=5,250,252,191,150,70,245,249,253> 　　 <$STR(A37)>\
<★━━━━★/AUTOCOLOR=5,250,252,191,150,70,245,249,253> 　{━━━━━━━━━━━━━━━━━━━━/AUTOCOLOR=154}\
<保存我的留言/@@InPutString50>   [竞技元宝数]:<$STR(G34)>→[最新留言者]:<$STR(A36)>\

[@cyjj]
#IF
HAVEGUILD
CHECKGAMEGOLD > <$STR(G30)>
#ACT
INC G30 1
GAMEGOLD - <$STR(G30)>
mov A30 <$GUILDNAME>
mov G31 1
Messagebox [成功]：你在行会竞技板上花了【<$STR(G30)>】个元宝竞得。
SENDMSG 0 恭喜【<$USERNAME>】在行会竞技板【<$STR(A30)>】竞得行会，大家赶快来加入这个有实力的行会吧!
GOTO @MAIN
BREAK
#ELSEACT
Messagebox [失败]：你的元宝不足或者你没有行会

[@jrxh]
#IF
equal G31 1
#ACT
AddGuildMember <$STR(A30)> <$USERNAME>
Messagebox [成功]：恭喜【<$USERNAME>】加入了行会【<$STR(A30)>】。
SENDMSG 0 【<$USERNAME>】在受到【<$STR(A30)>】行会的指引下，加入了【<$STR(A30)>】行会!
BREAK
#ELSEACT
Messagebox [失败]：目前没有行会竞得行会竞技板


[@@InPutString50]
#IF
EQUAL S50
#ACT
Messagebox [失败]：请输入所要发表的文字。不能发空消息。
GOTO @MAIN
BREAK

#IF
CHECKGAMEGOLD > <$STR(G34)>
#ACT
INC G34 1
GAMEGOLD - <$STR(G34)>
MOV A38 <$STR(S50)>
MOV A36 <$USERNAME>
MOV S3 <
INC S3 <$STR(S50)>
INC S3 /AUTOCOLOR=
GetRandomText .\QuestDiary\变量\颜色.txt S30
INC S3 <$STR(S30)>
INC S3 >
MOV A37 <$STR(S3)>
MOV A39 ╚┄┄┄┄┄┄┄╝\留言者：<$USERNAME>\　\╔┄┄┄┄┄┄┄╗\┊玩家公开留言板┊\
MOV S50
Messagebox [成功]：你在留言板上写下了以下一段话。\　\　　　　<$STR(A38)>
SENDMSG 0 【<$USERNAME>】在留言竞技板留下一句话，大家赶快来去查看把!
GOTO @MAIN
BREAK
#ELSEACT
MOV S50
Messagebox [失败]：你的元宝不足！\　\　　　　必须支付比<$STR(G34)>多1个元宝才可以留言。
GOTO @MAIN
BREAK

[@IsInFilterList]
#IF
#ACT
MESSAGEBOX [提示]：输入数据中包含了非法字符，请重新编辑！
BREAK