7U游戏社区

标题: 盘点GM在传奇服务端中增加GM后台管理的功能脚本 [打印本页]

作者: 人在旅途 时间: 2013-9-24 21:01
标题: 盘点GM在传奇服务端中增加GM后台管理的功能脚本
盘点在传奇服务端中增加GM后台管理的功能
综合了很多引擎而制作的GM后台管理系统，里面包括：
1、GM后台加密码脚本密码长度无限制
2、GM上线就到GM后台地图
3、GM在线给玩家装备和取走玩家装备的脚本
以后都是GM在开区的时间最需要的管理脚本，防止BUG的成在。

1、GM后台加密码脚本密码长度无限制

(@@InPutString @@InPutInteger )
[@main]
输入密码进入后台\
<填写密码[url=]/@@InPutInteger1>\[/url]
[@InPutInteger1]
#IF
#act
MOV N2 <$QQ>
break
goto @密码验证
[@密码验证]
#if
EQUAL N1 <$STR(N2)>
#SAY
欢迎进入GM后台管理\
<返回[url=]/@main>\[/url]
#ELSEACT
MESSAGEBOX [失败]:密码输入失败请重新输入!!
注释:
MOV N2 <$QQ> 此处修改密码 D:\Mirserver\Mir200\String.ini 或者直接将<$QQ>改成数字密码，长度无限制!
有技术不明白，请找 7UC论坛我们在哪等您的到来，为您处理游戏技术问题。

2 GM上线就到GM后台地图
添加在Mir200EnvirMapQuest_def目录下的QManage.txt里
#IF
ISADMIN
#ACT
SETRANKLEVELNAME %s
CHANGEMODE 1 1
CHANGEMODE 2 1
CHANGEMODE 3 1
mapmove G005 66 39
Break

后面地图号要改了
有技术不明白，请找 7uC论坛我们在哪等您的到来，为您处理游戏技术问题。

3 GM在线给玩家装备和取走玩家装备的脚本
以下脚本放在处理变量

VAR String GLOBAL Z11
VAR String GLOBAL Z12
VAR String GLOBAL Z13
VAR String GLOBAL Z14
LOADVAR GLOBAL Z11 ..\QuestDiary\数据文件\zsave.txt
LOADVAR GLOBAL Z12 ..\QuestDiary\数据文件\zsave.txt
LOADVAR GLOBAL Z13 ..\QuestDiary\数据文件\zsave.txt
LOADVAR GLOBAL Z14 ..\QuestDiary\数据文件\zsave.txt

=================================

以下脚本放在NPC里面，最好放GM地图NPC里面，防止被非法利用

[@拿走玩家东西]
#ACT
queryvalue 清除玩家身上物品：请输入你想清除的玩家名字 2 20 629
break

[@getstring629]
#ACT
Getstring S1
goto @清除的1
break

[@清除的1]
#ACT
queryvalue 请输入玩家身上装备的名字[必是穿戴在身上的物品] 2 20 630
break

[@getstring630]
#ACT
Getstring S2
CALCVAR GLOBAL Z11 = $STR(S2)
SAVEVAR GLOBAL Z11 ..\QuestDiary\数据文件\ZSave.txt
goto @清除的2
break

[@清除的2]
#IF
CHECKONLINE $STR(s1)
#ACT
hcall $STR(S1) @拿走物品
SENDMSG 7 清除[<$STR(s1)>]玩家身上佩带的物品[<$GLOBAL(Z11)>]成功...
goto @main
break
#ELSEACT
SENDMSG 7 玩家<$STR(s1)>当前不在线...
break

[@交易玩家东西]
#ACT
queryvalue 请输入你想给玩家的[装备名字] 2 20 411
break

[@getstring411]
#ACT
Getstring S1
goto @装备数量1
break

[@装备数量1]
#ACT
queryvalue 请输入你想给玩家的[装备数量] 2 20 412
break

[@getstring412]
#ACT
Getstring S2
goto @玩家的名字1
break

[@玩家的名字1]
#ACT
queryvalue 请输入你想给的玩家的[人物名字] 2 20 413
break

[@getstring413]
#ACT
Getstring S3
goto @发送物品1
break

[@发送物品1]
#IF
CHECKONLINE $STR(s3)
#ACT
CALCVAR GLOBAL Z12 = $STR(S1)
CALCVAR GLOBAL Z13 = $STR(S2)
SAVEVAR GLOBAL Z12 ..\QuestDiary\数据文件\ZSave.txt
SAVEVAR GLOBAL Z13 ..\QuestDiary\数据文件\ZSave.txt
hcall $STR(S3) @给与物品
SENDMSG 7 发送物品成功...
goto @main
break
#ELSEACT
messagebox 你所输入的玩家当前不在线\
break

============================

以下脚本放在QManage.txt里

[@拿走物品]
#ACT
take $GLOBAL(Z11) 1
takew $GLOBAL(Z11) 1
messagebox 你的物品:<$GLOBAL(Z11)>　已经被[系统]强制收取
SENDMSG 7 你的物品:<$GLOBAL(Z11)>　已经被[系统]强制收取
SENDMSG 7 你的物品:<$GLOBAL(Z11)>　已经被[系统]强制收取
break
[@给与物品]
#ACT
give $GLOBAL(Z12) $GLOBAL(Z13)
SENDMSG 7 收到来自[系统]发送的物品17ut.net:<$GLOBAL(Z12)>　数量:<$GLOBAL(Z13)>个
messagebox 收到来自[系统]发送的物品:<$GLOBAL(Z12)>　数量:<$GLOBAL(Z13)>个
break

；有技术不明白，请找 7uC论坛我们在哪等您的到来，为您处理游戏技术问题。

作者: 7U游戏社区 时间: 2013-9-24 21:06

好东西，顶起

作者: 爱浪漫的 时间: 2013-9-27 20:55
LZ帖子不给力，勉强给回复下吧

作者: game0921 时间: 2013-10-10 17:24
谢谢分享.收藏了

欢迎光临 7U游戏社区 (https://7uuc.com/)