传奇GM后台管理脚本，GOM引擎GM秘书脚本范例

(@@InPutString @@InPutInteger)

[@main]
　\
<请您输入管理密码/@@InPutString2>\ \
<返回盟重土城/@回盟重土城>

[@回盟重土城]
#ACT
MAPMOVE 3 330 329

[@CallInPutString2]
#IF
ADMIN
#ACT
#ELSEACT
close
MESSAGEBOX 输入密码错误!!!
break

#IF
EQUAL S2 FENGBINJIN
#ACT
GOTO @功能列表
#ELSEACT
close
MESSAGEBOX 输入密码错误
break

[@功能列表]
当前服务器玩家人数:<$USERCOUNT>人　　　<刷新/@功能列表>\ \
<增加玩家声望值/@增加玩家声望值1>　　<清理包裹/@清理包裹>\ \
<增加玩家元宝/@增加玩家元宝>　　　<制造装备/@制造装备>\ \
<禁止人物聊天/@@InPutString5>　　　<解除禁止/@@InPutString7>　　<内测模式/@neice>\ \
<辅助封号处理/@辅助封号处理>　　　<修改变量/@修改变量>　　<关闭对话/@exit>\ \　

[@neice]
　\
当前模式为:<$STR(A100)>\ \
<开启内测区模式/@开启内测区模式>　　　<返回/@功能列表>\ \
<关闭内测区模式/@关闭内测区模式>　　　<关闭/@EXIT>\

[@开启内测区模式]
#IF
#ACT
MOV A100 内测区模式
GOTO @neice
break

[@关闭内测区模式]
#IF
#ACT
MOV A100
GOTO @neice
break

[@辅助封号处理]
　\
辅助封号处理\ \
<封号/@@InPutString8>　　　<第一步解封/@@InPutString9>　　　<第二步解封/@@InPutString10>\ \
<返回/@功能列表>　　　<关闭/@EXIT>\

[@@InPutString9]
#IF
#ACT
DelayGoto 1 ~InPutString9

[~InPutString9]
#IF
#ACT
AddTextList .\QuestDiary\游戏登陆\禁止登陆人物.txt <$STR(S9)>
GOTO @功能列表
break

[@@InPutString10]
#IF
#ACT
DelayGoto 1 ~InPutString10

[~InPutString10]
#IF
CheckOnline <$STR(S10)>
#ACT
S10.SET [030] 0
GOTO @功能列表
#ELSEACT
MESSAGEBOX 你输入的人物不在线或者输入的是错误信息
GOTO @功能列表
break

[@@InPutString8]
#IF
#ACT
DelayGoto 1 ~InPutString8

[~InPutString8]
#IF
CheckOnline <$STR(S8)>
#ACT
S8.SET [030] 1
GMEXECUTE T <$STR(S8)>
DELTEXTLIST .\QuestDiary\游戏登陆\禁止登陆人物.txt <$STR(S8)>
SENDMSG 0 [封挂提示]:玩家“<$STR(S8)>”使用辅助已被永久封号处理！！！
SENDMSG 0 [封挂提示]:玩家“<$STR(S8)>”使用辅助已被永久封号处理！！！
SENDMSG 0 [封挂提示]:玩家“<$STR(S8)>”使用辅助已被永久封号处理！！！
SENDMSG 0 [封挂提示]:玩家“<$STR(S8)>”使用辅助已被永久封号处理！！！
SENDMSG 0 [封挂提示]:玩家“<$STR(S8)>”使用辅助已被永久封号处理！！！
SENDMSG 0 [封挂提示]:玩家“<$STR(S8)>”使用辅助已被永久封号处理！！！
SENDMSG 0 [封挂提示]:玩家“<$STR(S8)>”使用辅助已被永久封号处理！！！
SENDMSG 0 [封挂提示]:玩家“<$STR(S8)>”使用辅助已被永久封号处理！！！
SENDMSG 0 [封挂提示]:玩家“<$STR(S8)>”使用辅助已被永久封号处理！！！
SENDMSG 0 [封挂提示]:玩家“<$STR(S8)>”使用辅助已被永久封号处理！！！
SENDMSG 0 [封挂提示]:玩家“<$STR(S8)>”使用辅助已被永久封号处理！！！
SENDMSG 0 [封挂提示]:玩家“<$STR(S8)>”使用辅助已被永久封号处理！！！
SENDMSG 0 [封挂提示]:玩家“<$STR(S8)>”使用辅助已被永久封号处理！！！
SENDMSG 0 [封挂提示]:玩家“<$STR(S8)>”使用辅助已被永久封号处理！！！
SENDMSG 0 [封挂提示]:玩家“<$STR(S8)>”使用辅助已被永久封号处理！！！
SENDMSG 0 [封挂提示]:玩家“<$STR(S8)>”使用辅助已被永久封号处理！！！
SENDMSG 0 [封挂提示]:玩家“<$STR(S8)>”使用辅助已被永久封号处理！！！
SENDMSG 0 [封挂提示]:玩家“<$STR(S8)>”使用辅助已被永久封号处理！！！
SENDMSG 0 [封挂提示]:玩家“<$STR(S8)>”使用辅助已被永久封号处理！！！
SENDMSG 0 [封挂提示]:玩家“<$STR(S8)>”使用辅助已被永久封号处理！！！
SENDMSG 0 [封挂提示]:玩家“<$STR(S8)>”使用辅助已被永久封号处理！！！
SENDMSG 0 [封挂提示]:玩家“<$STR(S8)>”使用辅助已被永久封号处理！！！
SENDMSG 0 [封挂提示]:玩家“<$STR(S8)>”使用辅助已被永久封号处理！！！
SENDMSG 0 [封挂提示]:玩家“<$STR(S8)>”使用辅助已被永久封号处理！！！
SENDMSG 0 [封挂提示]:玩家“<$STR(S8)>”使用辅助已被永久封号处理！！！
SENDMSG 0 [封挂提示]:玩家“<$STR(S8)>”使用辅助已被永久封号处理！！！
GOTO @功能列表
#ELSEACT
MESSAGEBOX 你输入的人物不在线或者输入的是错误信息
GOTO @功能列表
break

[@修改变量]
#IF
#ACT
MOV S6
GOTO @修改变量1

[@修改变量1]
修改服务器变量,请谨慎操作！只支持修改G90变量。\ \
变量名称: G90　　　　当前G90=<$STR(G90)>\
变量名称: <A70/@A70>　　　　当前A70=<$STR(A70)>\
<变量数值/@@InPutString6>: <$STR(S6)>\ \
<确定/@确定修改变量>　　　　　　　　<返回/@功能列表>

[@A70]
#IF
#ACT
MOV A70 老区
GOTO @功能列表
break

[@确定修改变量]
#IF
#ACT
MOV G90 <$STR(S6)>
GOTO @功能列表
break

[@@InPutString6]
#IF
#ACT
DelayGoto 1 ~InPutString6

[~InPutString6]
#IF
#ACT
GOTO @修改变量1
break

[@制造装备]
#IF
#ACT
MESSAGEBOX 待完成此功能
GOTO @功能列表
break

[@增加玩家声望值1]
#IF
#ACT
MOV S3
MOV N3 0
GOTO @增加玩家声望值

[@增加玩家声望值]
给玩家增加声望值功能\ \
<玩家名字/@@InPutString3>: <$STR(S3)>\
<增加数量/@@InPutInteger3>: <$STR(N3)>\ \
<确定/@确定声望值>　　　　　　　　<返回/@功能列表>

[@确定声望值]
#IF
LARGE S3 1
#ACT
#ELSEACT
MESSAGEBOX 玩家名字不能为空
GOTO @增加玩家声望值
break

#IF
CheckOnline <$STR(S3)>
#ACT
#ELSEACT
MESSAGEBOX 玩家已经不在线了
GOTO @增加玩家声望值
break

#IF
LARGE N3 1
#ACT
S3.CREDITPOINT + <$STR(N3)>
S3.MESSAGEBOX 你获得声望值[<$STR(N3)>]个
MESSAGEBOX 成功给玩家[<$STR(S3)>]增加声望值[<$STR(N3)>]个
GOTO @增加玩家声望值1
#ELSEACT
MESSAGEBOX 数量不能小于1
GOTO @增加玩家声望值
break

[@@InPutString3]
#IF
#ACT
DelayGoto 1 ~InPutString3

[~InPutString3]
#IF
CheckOnline <$STR(S3)>
#ACT
GOTO @增加玩家声望值
#ELSEACT
MOV S3
MESSAGEBOX 你输入的人物不在线或者输入的是错误信息
GOTO @增加玩家声望值
break

[@@InPutInteger3]
#IF
#ACT
DelayGoto 1 ~InPutInteger3

[~InPutInteger3]
#IF
#ACT
GOTO @增加玩家声望值
break

[@增加玩家元宝1]
#IF
#ACT
MOV S4
MOV N4 0
GOTO @增加玩家元宝

[@增加玩家元宝]
给玩家增加元宝功能\ \
<玩家名字/@@InPutString4>: <$STR(S4)>\
<增加数量/@@InPutInteger4>: <$STR(N4)>\ \
<确定/@确定元宝>　　　　　　　　<返回/@功能列表>

[@确定元宝]
#IF
LARGE S4 1
#ACT
#ELSEACT
MESSAGEBOX 玩家名字不能为空
GOTO @增加玩家元宝
break

#IF
CheckOnline <$STR(S4)>
#ACT
#ELSEACT
MESSAGEBOX 玩家已经不在线了
GOTO @增加玩家元宝
break

#IF
LARGE N4 1
#ACT
S4.GAMEGOLD + <$STR(N4)>
S4.MESSAGEBOX 你获得元宝[<$STR(N4)>]个
MESSAGEBOX 成功给玩家[<$STR(S4)>]增加元宝[<$STR(N4)>]个
GOTO @增加玩家元宝1
#ELSEACT
MESSAGEBOX 数量不能小于1
GOTO @增加玩家元宝
break

[@@InPutString4]
#IF
#ACT
DelayGoto 1 ~InPutString4

[~InPutString4]
#IF
CheckOnline <$STR(S4)>
#ACT
GOTO @增加玩家元宝
#ELSEACT
MOV S4
MESSAGEBOX 你输入的人物不在线或者输入的是错误信息
GOTO @增加玩家元宝
break

[@@InPutInteger4]
#IF
#ACT
DelayGoto 1 ~InPutInteger4

[~InPutInteger4]
#IF
#ACT
GOTO @增加玩家元宝
break

[@清理包裹]
#IF
#ACT
GMEXECUTE 清理垃圾 <$USERNAME>
GOTO @功能列表
break

[@@InPutString5]
#IF
#ACT
DelayGoto 1 ~InPutString5

[~InPutString5]
#IF
CheckOnline <$STR(S5)>
#ACT
GMEXECUTE +jy <$STR(S5)>
SENDMSG 5 禁止[<$STR(S5)>]聊天成功，他现在聊天只能自己看见，别的玩家看不见。
GOTO @功能列表
#ELSEACT
MOV S3
MESSAGEBOX 你输入的人物不在线或者输入的是错误信息
GOTO @功能列表
break

[@@InPutString7]
#IF
#ACT
DelayGoto 1 ~InPutString7

[~InPutString7]
#IF
CheckOnline <$STR(S7)>
#ACT
GMEXECUTE -jy <$STR(S7)>
SENDMSG 5 解除[<$STR(S7)>]聊天成功，他现在可以正常聊天了。
GOTO @功能列表
#ELSEACT
MOV S3
MESSAGEBOX 你输入的人物不在线或者输入的是错误信息
GOTO @功能列表
break