| 以下脚本放在解决变量 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 |
