重新改编后的传奇GM管理后台脚本

一骑当千

[@MAIN]

#IF
  ISADMIN
#SAY
\ \
　　尊敬的管理员:  当前在线人数:<$USERCOUNT>  服务器已启动:<$STATSERVERTIME>\
　　【<封人物机器码/@@InPutString4(请输入人物机器码:)>】  【<解封人物机器码/@@InPutString5(请输入人物机器码:)>】\
　　【<禁止人物登录/@@InPutString6(请输入人物名称:)>】  【<解封禁人物登录/@@InPutString7(请输入人物名称:)>】       【<封小组机器码/@@InPutString8(请输入逗逼小组机器码:)>】\
　　【<输入给予物品的人物名字/@@InPutString10(请输入人物名称:)>】  【<输入物品的名字/@@InPutString11(请输入人物名称:)>】\ \
　　【<添加一级宣传/@@InPutString12(请输入玩家名称:)>】    　　【<添加二级宣传/@@InPutString13(请输入玩家名称:)>】 \
　　【<添加三级宣传/@@InPutString14(请输入玩家名称:)>】    　　【<添加四级宣传/@@InPutString15(请输入玩家名称:)>】 　　　　【<删除宣传奖励/@删除>】\ \
　　【<添加一级赞助/@@InPutString32(请输入玩家名称:)>】    　　【<添加二级赞助/@@InPutString33(请输入玩家名称:)>】 \
　　【<添加三级赞助/@@InPutString34(请输入玩家名称:)>】    　　【<添加四级赞助/@@InPutString35(请输入玩家名称:)>】 　　　　【<删除赞助奖励/@删除>】\ \
　　【<返回土城/@回城>】\
#elsesay
\ \
　　感谢您对游戏的支持.   『<返回土城/@回城>』

[@删除1]
\ \ \ \ \
　　【<删除一级赞助/@@InPutString42(请输入玩家名称:)>】    　　【<删除二级赞助/@@InPutString43(请输入玩家名称:)>】 \
　　【<删除三级赞助/@@InPutString44(请输入玩家名称:)>】    　　【<删除四级赞助/@@InPutString45(请输入玩家名称:)>】 \ \
　　【<返回/@MAIN>】\

[@InPutString42]
#if
#act
DELTextList  ..\QuestDiary\大帅专用\赞助1.txt <$STR(S42)>
GOTO @main
MESSAGEBOX 删除成功

[@InPutString43]
#if
#act
DELTextList  ..\QuestDiary\大帅专用\赞助2.txt <$STR(S43)>
GOTO @main
MESSAGEBOX 删除成功

[@InPutString44]
#if
#act
DELTextList  ..\QuestDiary\大帅专用\赞助3.txt <$STR(S44)>
GOTO @main
MESSAGEBOX 删除成功

[@InPutString45]
#if
#act
DELTextList  ..\QuestDiary\大帅专用\赞助4.txt <$STR(S45)>
GOTO @main
MESSAGEBOX 删除成功


[@InPutString32]
#if
#say
\ \ \ \ \
<>      【<给予[1级赞助]的人物名字>：<$STR(S32)>】 <确定给予/@确定11>    <重新输入/@main> \ \
　　 【<返回/@MAIN>】\


[@确定11]
#IF
#ACT
AddTextList  ..\QuestDiary\大帅专用\赞助1.txt <$STR(S32)>
GOTO @main
MESSAGEBOX 设置成功

[@InPutString33]
#if
#say
\ \ \ \ \
<>      【<给予[2级赞助]的人物名字>：<$STR(S33)>】 <确定给予/@确定12>    <重新输入/@main> \ \
　　 【<返回/@MAIN>】\


[@确定12]
#IF
#ACT
AddTextList  ..\QuestDiary\大帅专用\赞助2.txt <$STR(S33)>
GOTO @main
MESSAGEBOX 设置成功
[@InPutString34]
#if
#say
\ \ \ \ \
<>      【<给予[3级赞助]的人物名字>：<$STR(S34)>】 <确定给予/@确定13>    <重新输入/@main> \ \
　　 【<返回/@MAIN>】\


[@确定13]
#IF
#ACT
AddTextList  ..\QuestDiary\大帅专用\赞助3.txt <$STR(S34)>
GOTO @main
MESSAGEBOX 设置成功
[@InPutString35]
#if
#say
\ \ \ \ \
<>      【<给予[4级赞助]的人物名字>：<$STR(S35)>】 <确定给予/@确定14>    <重新输入/@main> \ \
　    【<返回/@MAIN>】\


[@确定14]
#IF
#ACT
AddTextList  ..\QuestDiary\大帅专用\赞助4.txt <$STR(S35)>
GOTO @main
MESSAGEBOX 设置成功

[@删除]
\ \ \ \ \
　　【<删除一级宣传/@@InPutString22(请输入玩家名称:)>】    　　【<删除二级宣传/@@InPutString23(请输入玩家名称:)>】 \
　　【<删除三级宣传/@@InPutString24(请输入玩家名称:)>】    　　【<删除四级宣传/@@InPutString25(请输入玩家名称:)>】 \ \
　　【<返回/@MAIN>】\

[@InPutString22]
#if
#act
DELTextList  ..\QuestDiary\大帅专用\宣传1.txt <$STR(S22)>
GOTO @main
MESSAGEBOX 删除成功

[@InPutString23]
#if
#act
DELTextList  ..\QuestDiary\大帅专用\宣传2.txt <$STR(S23)>
GOTO @main
MESSAGEBOX 删除成功

[@InPutString24]
#if
#act
DELTextList  ..\QuestDiary\大帅专用\宣传3.txt <$STR(S24)>
GOTO @main
MESSAGEBOX 删除成功

[@InPutString25]
#if
#act
DELTextList  ..\QuestDiary\大帅专用\宣传4.txt <$STR(S25)>
GOTO @main
MESSAGEBOX 删除成功


[@InPutString12]
#if
#say
\ \ \ \ \
<>      【<给予[1级宣传]的人物名字>：<$STR(S12)>】 <确定给予/@确定1>    <重新输入/@main> \ \
　　 【<返回/@MAIN>】\


[@确定1]
#IF
#ACT
AddTextList  ..\QuestDiary\大帅专用\宣传1.txt <$STR(S12)>
GOTO @main
MESSAGEBOX 设置成功

[@InPutString13]
#if
#say
\ \ \ \ \
<>      【<给予[1级宣传]的人物名字>：<$STR(S13)>】 <确定给予/@确定2>    <重新输入/@main> \ \
　　 【<返回/@MAIN>】\


[@确定2]
#IF
#ACT
AddTextList  ..\QuestDiary\大帅专用\宣传2.txt <$STR(S13)>
GOTO @main
MESSAGEBOX 设置成功
[@InPutString14]
#if
#say
\ \ \ \ \
<>      【<给予[1级宣传]的人物名字>：<$STR(S14)>】 <确定给予/@确定3>    <重新输入/@main> \ \
　　 【<返回/@MAIN>】\


[@确定3]
#IF
#ACT
AddTextList  ..\QuestDiary\大帅专用\宣传3.txt <$STR(S14)>
GOTO @main
MESSAGEBOX 设置成功
[@InPutString15]
#if
#say
\ \ \ \ \
<>      【<给予[1级宣传]的人物名字>：<$STR(S15)>】 <确定给予/@确定4>    <重新输入/@main> \ \
　    【<返回/@MAIN>】\


[@确定4]
#IF
#ACT
AddTextList  ..\QuestDiary\大帅专用\宣传4.txt <$STR(S15)>
GOTO @main
MESSAGEBOX 设置成功

[@InPutString10]
#if
s10.checkonline
#act
goto @zs111
#elseact
messagebox <$STR(S10)>不在线。
goto @main
[@zs111]
#IF
#SAY
\ \
　　尊敬的管理员:  当前在线人数:<$USERCOUNT>  服务器已启动:<$STATSERVERTIME>\
　　\
　　\ \ \
　　【<给予物品的人物名字>：<$STR(S10)>】  【<输入物品的名字/@@InPutString11(请输入人物名称:)>】\
　　　　　　【<返回土城/@回城>】\



[@InPutString11]
#if
equal s11
#act
messagebox 物品不可以为空
BREAK
#IF
#SAY
\ \
　　尊敬的管理员:  当前在线人数:<$USERCOUNT>  服务器已启动:<$STATSERVERTIME>\
　　\
　　\ \ \
　　【给予物品的人物名字：<$STR(S10)>】  【物品的名字：<$STR(S11)>】  \
　　　　　　<确定赠送/@ZENGSONG11>\ \
　　　　　　【<返回土城/@回城>】\


[@ZENGSONG11]
#IF
s10.checkonline
#ACT
S10.MOVEX S11 <$STR(S11)>
S10.GIVE <$STR(S11)> 1
S10.sendmsg 6 管理员老赵向你赠送了物品[<$STR(S11)>].
S10.sendmsg 6 管理员老赵向你赠送了物品[<$STR(S11)>].
S10.sendmsg 6 管理员老赵向你赠送了物品[<$STR(S11)>].
S10.messagebox 管理员老赵向你赠送了物品[<$STR(S11)>].
messagebox 赠送成功
close

[@回城]
#IF
#ACT
MAPMOVE 3 333 333
BREAK
[@InPutString4]
#IF
Equal S4
#ACT
SENDMSG 6 尊敬的管理阁下,您输入的内容错误.
BREAK

#IF
CheckTextList ..\QuestDiary\后台管理\机器码.txt <$STR(S4)>
#ACT
SENDMSG 5 尊敬的管理阁下,该机器码已经在禁止列表中了!
BREAK


#IF
NOT Equal S4
#ACT
AddTextList ..\QuestDiary\后台管理\机器码.txt <$STR(S4)>
SENDMSG 5 尊敬的管理阁下,机器码添加成功!
GMEXECUTE 开始提问 @封帐号全局触发
BREAK



[@InPutString5]
#IF
Equal S5
#ACT
SENDMSG 6 尊敬的管理阁下,您输入的内容错误.
BREAK

#IF
NOT Equal S5
#ACT
DELTextList ..\QuestDiary\后台管理\机器码.txt <$STR(S5)>
SENDMSG 5 尊敬的管理阁下,机器码删除成功!
BREAK

[@InPutString6]
#IF
Equal S6
#ACT
SENDMSG 6 尊敬的管理阁下,您输入的内容错误.
BREAK

#IF
CheckTextList ..\QuestDiary\后台管理\人物.txt <$STR(S6)>
#ACT
SENDMSG 5 尊敬的管理阁下,该人物已经在禁止列表中了!
BREAK

#IF
NOT Equal S6
#ACT
addTextList ..\QuestDiary\后台管理\人物.txt <$STR(S6)>
SENDMSG 5 尊敬的管理阁下,[<$STR(S6)>]人物已经禁止登录!
GMEXECUTE 开始提问 @封帐号全局触发
BREAK

[@InPutString7]
#IF
Equal S7
#ACT
SENDMSG 6 尊敬的管理阁下,您输入的内容错误.
BREAK

#IF
NOT Equal S7
#ACT
DELTextList ..\QuestDiary\后台管理\人物.txt <$STR(S7)>
SENDMSG 5 尊敬的管理阁下,[<$STR(S7)>]禁止登录人物已经解除!
BREAK

[@InPutString8]
#IF
Equal S8
#ACT
SENDMSG 6 尊敬的管理阁下,您输入的内容错误.
BREAK

#IF
CheckTextList ..\QuestDiary\后台管理\小组机器码.txt <$STR(S8)>
#ACT
SENDMSG 5 尊敬的管理阁下,小组机器码已经在禁止列表中了!
BREAK

#IF
NOT Equal S8
#ACT
addTextList ..\QuestDiary\后台管理\小组机器码.txt <$STR(S8)>
SENDMSG 5 尊敬的管理阁下,[<$STR(S6)>]已经禁止登录!
GMEXECUTE 开始提问 @封帐号全局触发
BREAK

家世界小陶

看帖要回，回帖才健康，在踩踩，楼主辛苦了！

只爱-宁静

是爷们的娘们的都帮顶！大力支持

张秦

啊啊啊啊啊啊啊啊啊啊啊

她是冰美人

看起来好像不错的样子

fly128jt

打酱油的人拉，回复下赚取积分

dgyuexian1

众里寻他千百度，蓦然回首在这里！

WCLOVESUNLILI

楼主呀，，，您太有才了。。。

火星恐龙

我只是路过，不发表意见

yechou4672

我也来顶一下..