一休论坛

 找回密码
 立即注册

QQ登录

只需一步,快速开始

查看: 99|回复: 0

[常用脚本] 玩家在线留言脚本

[复制链接]
  • TA的每日心情
    开心
    2015-2-10 22:09
  • 签到天数: 1 天

    [LV.1]初来乍到

    发表于 2014-9-12 15:04:53 | 显示全部楼层 |阅读模式
    网络广告风险自担 网络广告风险自担
    网络广告风险自担
    [@main]
    #IF
      ISADMIN
    #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> <清除留言数据/@清除留言> \
    #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> <上一页/@main> <取消自己留言/@取消> <花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> <上一页/@main> <清除留言数据/@清除留言> \
    [@InPutString65]
    #IF
    CheckGAMEGOLD > 999
    #ACT
    GmExeCute 留言 <$STR(S65)>
    #ELSEACT
    GAMEGOLD - 1000
    messagebox  没有1000元宝\给GM留言\注意!
    break
    [@清除留言]
    #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 @main
    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
    AddTextList .\QuestDiary\玩家留言.txt <$USERNAME>:<$STR(A101)>
    goto @main
    break
    #if
    EQUAL A102 暂无
    #ACT
    INC G81 1
    MOV A102 <$USERNAME>
    MOV A103 <$STR(S5)>
    MESSAGEBOX [成功]:在线留言!
    addnamelist ..\QuestDiary\在线留言.txt
    AddTextList .\QuestDiary\玩家留言.txt <$USERNAME>:<$STR(A103)>
    goto @main
    break
    #if
    EQUAL A104 暂无
    #ACT
    INC G81 1
    MOV A104 <$USERNAME>
    MOV A105 <$STR(S5)>
    MESSAGEBOX [成功]:在线留言!
    addnamelist ..\QuestDiary\在线留言.txt
    AddTextList .\QuestDiary\玩家留言.txt <$USERNAME>:<$STR(A105)>
    goto @main
    break
    #if
    EQUAL A106 暂无
    #ACT
    INC G81 1
    MOV A106 <$USERNAME>
    MOV A107 <$STR(S5)>
    MESSAGEBOX [成功]:在线留言!
    addnamelist ..\QuestDiary\在线留言.txt
    AddTextList .\QuestDiary\玩家留言.txt <$USERNAME>:<$STR(A107)>
    goto @main
    break
    #if
    EQUAL A108 暂无
    #ACT
    INC G81 1
    MOV A108 <$USERNAME>
    MOV A109 <$STR(S5)>
    MESSAGEBOX [成功]:在线留言!
    addnamelist ..\QuestDiary\在线留言.txt
    AddTextList .\QuestDiary\玩家留言.txt <$USERNAME>:<$STR(A109)>
    goto @main
    break
    #if
    EQUAL A110 暂无
    #ACT
    INC G81 1
    MOV A110 <$USERNAME>
    MOV A111 <$STR(S5)>
    MESSAGEBOX [成功]:在线留言!
    addnamelist ..\QuestDiary\在线留言.txt
    AddTextList .\QuestDiary\玩家留言.txt <$USERNAME>:<$STR(A111)>
    goto @main
    break
    #if
    EQUAL A112 暂无
    #ACT
    INC G81 1
    MOV A112 <$USERNAME>
    MOV A113 <$STR(S5)>
    MESSAGEBOX [成功]:在线留言!
    addnamelist ..\QuestDiary\在线留言.txt
    AddTextList .\QuestDiary\玩家留言.txt <$USERNAME>:<$STR(A113)>
    goto @main
    break
    #if
    EQUAL A114 暂无
    #ACT
    INC G81 1
    MOV A114 <$USERNAME>
    MOV A115 <$STR(S5)>
    MESSAGEBOX [成功]:在线留言!
    addnamelist ..\QuestDiary\在线留言.txt
    AddTextList .\QuestDiary\玩家留言.txt <$USERNAME>:<$STR(A115)>
    goto @1
    break

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

    #if
    EQUAL A118 暂无
    #ACT
    INC G81 1
    MOV A118 <$USERNAME>
    MOV A119 <$STR(S5)>
    MESSAGEBOX [成功]:在线留言!
    addnamelist ..\QuestDiary\在线留言.txt
    AddTextList .\QuestDiary\玩家留言.txt <$USERNAME>:<$STR(A119)>
    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 @1
    break
    #IF
    EQUAL A116 <$USERNAME>
    #act
    DEC G81 1
    mov A116 暂无
    mov A117 暂无
    MESSAGEBOX [成功]:取消留言!
    CLEARNAMELIST ..\QuestDiary\\在线留言.txt
    goto @1
    break
    #IF
    EQUAL A118 <$USERNAME>
    #act
    DEC G81 1
    mov A118 暂无
    mov A119 暂无
    MESSAGEBOX [成功]:取消留言!
    CLEARNAMELIST ..\QuestDiary\\在线留言.txt
    goto @1
    break
    [@IsInFilterList]
    #ACT
    MESSAGEBOX 输入数据中包含了非法字符,请重新编辑!



    上一篇:传奇地图Objects.wil与map文件的对应关系
    下一篇:无限仓库-3这里存放的物品不受限制
    您需要登录后才可以回帖 登录 | 立即注册

    本版积分规则

    网络广告风险自担

    小黑屋|传奇一条龙|GM基地|GM版本库|一休论坛

    GMT+8, 2016-12-5 08:26 , Processed in 0.826802 second(s), 81 queries , Gzip On.

    传奇一条龙 GM基地 版本库 传奇论坛 传奇漏洞论坛 传奇服务端下载 传奇版本

    站长QQ:1921249589 一休论坛资料来自网络仅供学习交流之用,用于商业后果自负

    快速回复 返回顶部 返回列表