实现GM在线给玩家装备和取走玩家装备的脚本 传奇教程

实现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 收到来自[系统]发送的物品5uwl.net:<$GLOBAL(Z12)>　数量:<$GLOBAL(Z13)>个 

messagebox 收到来自[系统]发送的物品:<$GLOBAL(Z12)>　数量:<$GLOBAL(Z13)>个 

break