www.001gm.net网站地图TAGRSS设为首页
传奇一条龙
无法在这个位置找到: 热搜.htm
您当前的位置: 主页 > 传奇一条龙技术 >

传奇一条龙GM在线发装备以及拿走装备脚本技术

更新时间:2015-11-12 07:27来源: http://www.001gm.net 作者:传奇一条龙 阅读次数:
传奇一条龙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
 
下面传奇一条龙服务拿走玩家装备的脚本。
 
以下脚本放在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
 
以下传奇脚本放在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
 

(责任编辑:admin)