传奇一条龙开区时给GM在线留言的特色功能变量脚本

给GM在线留言的特色功能传奇变量脚本

检测的TXT文本，大家自己在在对应目录建立

[@main]
#IF
CHECKACCOUNTLIST 特色功能\GM帐号.txt
#act
#SAY
管理员：{<$USERNAME>/AUTOCOLOR=80}您好，欢迎到在线留言\
1条.玩家【{<$STR(A100)>/AUTOCOLOR=100}】→留言【{<$STR(A101)>/AUTOCOLOR=253}】\
2条.玩家【{<$STR(A102)>/AUTOCOLOR=100}】→留言【{<$STR(A103)>/AUTOCOLOR=253}】\
3条.玩家【{<$STR(A104)>/AUTOCOLOR=100}】→留言【{<$STR(A105)>/AUTOCOLOR=253}】\
4条.玩家【{<$STR(A106)>/AUTOCOLOR=100}】→留言【{<$STR(A107)>/AUTOCOLOR=253}】\
5条.玩家【{<$STR(A108)>/AUTOCOLOR=100}】→留言【{<$STR(A109)>/AUTOCOLOR=253}】\
6条.玩家【{<$STR(A110)>/AUTOCOLOR=100}】→留言【{<$STR(A111)>/AUTOCOLOR=253}】\
7条.玩家【{<$STR(A112)>/AUTOCOLOR=100}】→留言【{<$STR(A113)>/AUTOCOLOR=253}】\
<在线留言/@@InPutString5> <下一页/@2> <清除留言数据/@清除留言1> \
#ELSEACT
goto @main0
break
[@main0]
#if
#ACT
#say
玩家：{<$USERNAME>/AUTOCOLOR=80}您好，欢迎到在线留言\
1条.玩家【{<$STR(A100)>/AUTOCOLOR=100}】→留言【{<$STR(A101)>/AUTOCOLOR=253}】\
2条.玩家【{<$STR(A102)>/AUTOCOLOR=100}】→留言【{<$STR(A103)>/AUTOCOLOR=253}】\
3条.玩家【{<$STR(A104)>/AUTOCOLOR=100}】→留言【{<$STR(A105)>/AUTOCOLOR=253}】\
4条.玩家【{<$STR(A106)>/AUTOCOLOR=100}】→留言【{<$STR(A107)>/AUTOCOLOR=253}】\
5条.玩家【{<$STR(A108)>/AUTOCOLOR=100}】→留言【{<$STR(A109)>/AUTOCOLOR=253}】\
6条.玩家【{<$STR(A110)>/AUTOCOLOR=100}】→留言【{<$STR(A111)>/AUTOCOLOR=253}】\
7条.玩家【{<$STR(A112)>/AUTOCOLOR=100}】→留言【{<$STR(A113)>/AUTOCOLOR=253}】\
<在线留言/@@InPutString5> <下一页/@1> <取消自己留言/@取消> <花1000元宝给GM留言/@@InPutString65> \
[@1]
玩家：{<$USERNAME>/AUTOCOLOR=80}您好，欢迎到在线留言\
8条.玩家【{<$STR(A114)>/AUTOCOLOR=100}】→留言【{<$STR(A115)>/AUTOCOLOR=253}】\
9条.玩家【{<$STR(A116)>/AUTOCOLOR=100}】→留言【{<$STR(A117)>/AUTOCOLOR=253}】\
10条.玩家【{<$STR(A118)>/AUTOCOLOR=100}】→留言【{<$STR(A119)>/AUTOCOLOR=253}】\
<在线留言/@@InPutString5> <上一页/@留言> <取消自己留言/@取消> <花1000元宝给GM留言/@@InPutString65> \
[@2]
管理员：{<$USERNAME>/AUTOCOLOR=80}您好，欢迎到在线留言\
8条.玩家【{<$STR(A114)>/AUTOCOLOR=100}】→留言【{<$STR(A115)>/AUTOCOLOR=253}】\
9条.玩家【{<$STR(A116)>/AUTOCOLOR=100}】→留言【{<$STR(A117)>/AUTOCOLOR=253}】\
10条.玩家【{<$STR(A118)>/AUTOCOLOR=100}】→留言【{<$STR(A119)>/AUTOCOLOR=253}】\
<在线留言/@@InPutString5> <上一页/@留言> <清除留言数据/@清除留言1> \

[@InPutString65]
#IF
CheckGAMEGOLD > 999
#ACT
GmExeCute 留言 <$STR(S65)>
#ELSEACT
GAMEGOLD - 1000
messagebox  没有1000元宝\给GM留言\注意!
break

[@清除留言1]
#IF
#ACT
MOV G81
MOV A100 暂无
MOV A101 暂无
MOV A102 暂无
MOV A103 暂无
MOV A104 暂无
MOV A105 暂无
MOV A106 暂无
MOV A107 暂无
MOV A108 暂无
MOV A109 暂无
MOV A110 暂无
MOV A111 暂无
MOV A112 暂无
MOV A113 暂无
MOV A114 暂无
MOV A115 暂无
MOV A116 暂无
MOV A117 暂无
MOV A118 暂无
MOV A119 暂无
CLEARNAMELIST ..\QuestDiary\在线留言.txt
MESSAGEBOX [成功]清理了留言！
goto @留言
break

[@InPutString5]
#IF
checknamelist ..\QuestDiary\在线留言.txt
#act
MESSAGEBOX [失败]:您已经留言了，请不要重留言!
break

#IF
SMALL G81 10
#ELSEACT
MESSAGEBOX [失败]:在线留言已经满了
break

#if
EQUAL A100 暂无
#ACT
INC G81 1
MOV A100 <$USERNAME>
MOV A101 <$STR(S5)>
MESSAGEBOX [成功]:在线留言!
addnamelist ..\QuestDiary\在线留言.txt
goto @留言
break

#if
EQUAL A102 暂无
#ACT
INC G81 1
MOV A102 <$USERNAME>
MOV A103 <$STR(S5)>
MESSAGEBOX [成功]:在线留言!
addnamelist ..\QuestDiary\在线留言.txt
goto @留言
break

#if
EQUAL A104 暂无
#ACT
INC G81 1
MOV A104 <$USERNAME>
MOV A105 <$STR(S5)>
MESSAGEBOX [成功]:在线留言!
addnamelist ..\QuestDiary\在线留言.txt
goto @留言
break

#if
EQUAL A106 暂无
#ACT
INC G81 1
MOV A106 <$USERNAME>
MOV A107 <$STR(S5)>
MESSAGEBOX [成功]:在线留言!
addnamelist ..\QuestDiary\在线留言.txt
goto @留言
break

#if
EQUAL A108 暂无
#ACT
INC G81 1
MOV A108 <$USERNAME>
MOV A109 <$STR(S5)>
MESSAGEBOX [成功]:在线留言!
addnamelist ..\QuestDiary\在线留言.txt
goto @留言
break

#if
EQUAL A110 暂无
#ACT
INC G81 1
MOV A110 <$USERNAME>
MOV A111 <$STR(S5)>
MESSAGEBOX [成功]:在线留言!
addnamelist ..\QuestDiary\在线留言.txt
goto @留言
break

#if
EQUAL A112 暂无
#ACT
INC G81 1
MOV A112 <$USERNAME>
MOV A113 <$STR(S5)>
MESSAGEBOX [成功]:在线留言!
addnamelist ..\QuestDiary\在线留言.txt
goto @留言
break

#if
EQUAL A114 暂无
#ACT
INC G81 1
MOV A114 <$USERNAME>
MOV A115 <$STR(S5)>
MESSAGEBOX [成功]:在线留言!
addnamelist ..\QuestDiary\在线留言.txt
goto @1
break

#if
EQUAL A116 暂无
#ACT
INC G81 1
MOV A116 <$USERNAME>
MOV A117 <$STR(S5)>
MESSAGEBOX [成功]:在线留言!
addnamelist ..\QuestDiary\在线留言.txt
goto @1
break

#if
EQUAL A118 暂无
#ACT
INC G81 1
MOV A118 <$USERNAME>
MOV A119 <$STR(S5)>
MESSAGEBOX [成功]:在线留言!
addnamelist ..\QuestDiary\在线留言.txt
goto @1
break

[@取消]
#IF
checknamelist ..\QuestDiary\在线留言.txt
#elseact
MESSAGEBOX [失败]:您没有留言怎么取消?
break

#IF
EQUAL A100 <$USERNAME>
#act
DEC G81 1
mov A100 暂无
mov A101 暂无
MESSAGEBOX [成功]:取消留言!
CLEARNAMELIST ..\QuestDiary\\在线留言.txt
goto @main0
break

#IF
EQUAL A102 <$USERNAME>
#act
DEC G81 1
mov A102 暂无
mov A103 暂无
MESSAGEBOX [成功]:取消留言!
CLEARNAMELIST ..\QuestDiary\\在线留言.txt
goto @main0
break

#IF
EQUAL A104 <$USERNAME>
#act
DEC G81 1
mov A104 暂无
mov A105 暂无
MESSAGEBOX [成功]:取消留言!
CLEARNAMELIST ..\QuestDiary\\在线留言.txt
goto @main0
break

#IF
EQUAL A106 <$USERNAME>
#act
DEC G81 1
mov A106 暂无
mov A107 暂无
MESSAGEBOX [成功]:取消留言!
CLEARNAMELIST ..\QuestDiary\\在线留言.txt
goto @main0
break

#IF
EQUAL A108 <$USERNAME>
#act
DEC G81 1
mov A108 暂无
mov A109 暂无
MESSAGEBOX [成功]:取消留言!
CLEARNAMELIST ..\QuestDiary\\在线留言.txt
goto @main0
break

#IF
EQUAL A110 <$USERNAME>
#act
DEC G81 1
mov A110 暂无
mov A111 暂无
MESSAGEBOX [成功]:取消留言!
CLEARNAMELIST ..\QuestDiary\\在线留言.txt
goto @main0
break

#IF
EQUAL A112 <$USERNAME>
#act
DEC G81 1
mov A112 暂无
mov A113 暂无
MESSAGEBOX [成功]:取消留言!
CLEARNAMELIST ..\QuestDiary\\在线留言.txt
goto @main0
break

#IF
EQUAL A114 <$USERNAME>
#act
DEC G81 1
mov A114 暂无
mov A115 暂无
MESSAGEBOX [成功]:取消留言!
CLEARNAMELIST ..\QuestDiary\\在线留言.txt
goto @main0
break

#IF
EQUAL A116 <$USERNAME>
#act
DEC G81 1
mov A116 暂无
mov A117 暂无
MESSAGEBOX [成功]:取消留言!
CLEARNAMELIST ..\QuestDiary\\在线留言.txt
goto @main0
break

#IF
EQUAL A118 <$USERNAME>
#act
DEC G81 1
mov A118 暂无
mov A119 暂无
MESSAGEBOX [成功]:取消留言!
CLEARNAMELIST ..\QuestDiary\\在线留言.txt
goto @main0
break

[@IsInFilterList]
#ACT
MESSAGEBOX 输入数据中包含了非法字符,请重新编辑!

版权声明

1、本站所有内容均由互联网收集整理、网友上传，仅供大家参考、学习研究使用，不存在任何商业目的与商业用途。

2、论坛的所有内容都不保证其准确性，完整性，有效性，因本站内容因误导等因素而造成的损失本站不承担连带责任。

3、本站以《2013 中华人民共和国计算机软件保护条例》第二章 “软件著作权” 第十七条为原则：为了学习和研究软件内含的设计思想和原理，通过安装、显示、传输或者存储软件等方式使用软件的，可以不经软件著作权人许可，若有用户需要商用本站资源，请务必联系版权方购买正版授权！