傳奇GM在線給玩家裝備和取走玩家裝備的腳本

你下載的是我長期收集的一些腳本和認為比較好的物品排序器。
我不是什么 高手但是從這些腳本里我的確得到一些東西，
9月要開始上學了這些腳本放給塌架使用，希望大家也能得到一些幫助。
我03年開始架設SF，到現在已經5年了。每次都是只有寒假和暑假才能研究，
喜歡交流的可以找我交流，你下載了說明很給我面子，先謝謝大家了，希望能給大家一定的幫助。
不多說了喜歡的都下吧。
以下腳本放在處理變量

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 收到來自[系統]發送的物品:<$GLOBAL(Z12)>　數量:<$GLOBAL(Z13)>個
messagebox 收到來自[系統]發送的物品:<$GLOBAL(Z12)>　數量:<$GLOBAL(Z13)>個
break