|
以下脚本放在处理变量
VARStringGLOBALZ11
VARStringGLOBALZ12
VARStringGLOBALZ13
VARStringGLOBALZ14
LOADVARGLOBALZ11..\QuestDiary\数据文件\zsave.txt
LOADVARGLOBALZ12..\QuestDiary\数据文件\zsave.txt
LOADVARGLOBALZ13..\QuestDiary\数据文件\zsave.txt
LOADVARGLOBALZ14..\QuestDiary\数据文件\zsave.txt
=================================
以下脚本放在NPC里面，最好放GM地图NPC里面，防止被非法利用
[@拿走玩家东西]
#ACT
q神曲脚本ueryvalue清除玩家身上物品：请输入你想清除的玩家名字220629
break
[@getstring629]
#ACT
GetstringS1
goto@清除的1
break
[@清除的1]
#ACT
queryvalue请输入玩家身上装备的名字[必是穿戴在身上的物品]220韩版中变传奇新服网630
break
[@getstring630]
#ACT
GetstringS2
CALCVARGLOBALZ11=$STR(S2)
SAVEVARGLOBALZ11..\QuestDiary\数据文件\ZSave.txt
goto@清除的2
break
[@清除的2]
#IF
CHECKONLINE$STR(s1)
#ACT
hcall$1 80火龙元素STR(S1)@拿走物品
SENDMSG7清除[$STR(s1)]玩家身上佩带的物品[$GLOBAL(Z11)]成功...
goto@main
break
#ELSEACT
SENDMSG7玩家$STR(s1)当前不在线...
break
[@交易玩家东西]
#ACT
queryvalue请输入你想给玩家的[装备名字]220411
break
[@getstring411]
#ACT
GetstringS1
go今日新开传奇新服网to@装备数量1
break
[@装备数量1]
#ACT
queryvalue请输入你想给玩家的[装备数量]220412
break
[@getstring412]
#ACT
GetstringS2
goto@玩家的名字1
break
[@玩家的名字1]
#ACT
queryvalue请输入你想给的玩家的[人物名字]220413
break
[@getstring413]
#ACT
GetstringS3
goto@发送物品1
break
[@发送物品1]
#IF
CHECKONLINE$STR(s3)
#ACT
CALCVARGLOBALZ12=$STR(S1)
CALCVARGLOBALZ13=$STR(S2)
SAVEVARGLOBALZ12..\QuestDiary\数据文件\ZSave.txt
SAVEVARGLOBALZ13..\QuestDiary\数据文件\ZSave.txt
hcall$STR(S3)@给与物品
SENDMSG7发送物品成功...
goto@main
break
#ELSEACT
messagebox你所输入的玩家当前不在线\
break
============================
以下脚本放在QManage.txt里
[@拿走物品]
#ACT
take$GLOBAL(Z11)1
takew$GLOBAL(Z11)1
messagebox你的物品:$GLOBAL(Z11) 已经被[系统]强制收取
SENDMSG7你的物品:$GLOBAL(Z11) 已经被[系统]强制收取
SENDMSG7你的物品:$GLOBAL(Z11) 已经被[系统]强制收取
break
[@给与物品]
#ACT
give$GLOBAL(Z12)$GLOBAL(Z13)
SENDMSG7收到来自[系统]发送我本沉默吧的物品5uwl.net:$GLOBAL(Z12) 数量:$单职业传奇GLOBAL(Z13)个
messagebox收到来自[系统]发送的物品:$GLOBAL(Z12) 数量:$GLOBAL(Z13)个
break
|