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

75kf论坛

给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 输入数据中包含了非法字符,请重新编辑!