用于战神引擎自动回收装备得经验Npc脚本，脚本有2份文件构成，牵扯到了变量，在LogonQuest.pas里面，帮主已经提取了整个LogonQuest.pas文件，你们添加的时候，不能直接覆盖，要单独提里面对应的脚本段，植入到自己版本里面去，要点技术含量，添加直接记得备份自己版本里面的。

部分脚本

program mir2;
var 
itemList : Array[1..6] of array[1..30]of string;
recyclePrice : array[1..6]of integer;
function MyFunction(str, symbol:string; id : integer):string;
var len, i, j, index : integer;
tempArr : Array[1..100]of string;
begin
    len := length(str);
    j := 1;
    index := 1;
    for i := 1 to len do
    begin
		if i = len then	
		tempArr[j]:=copy(str, index, len);
        if str[i] = symbol then
        begin
        tempArr[j]:=copy(str, index, i-index);       
        index:=i+1;
        j:= j+1;        
        end;
    end;
    result:=tempArr[id];
end;
procedure OnInitialize();
var
templist : Array[1..6]of string;
i, j: integer;
begin
	//回收价格
	recyclePrice[1]:=5;
	recyclePrice[2]:=20;
	recyclePrice[3]:=15;
	recyclePrice[4]:=200;
	recyclePrice[5]:=30;
	recyclePrice[6]:=3;
    templist[1]:='圣战头盔,圣战项链,圣战手镯,圣战戒指,法神项链,法神头盔,法神手镯,法神戒指,天尊头盔,天尊项链,天尊手镯,天尊戒指,钢铁腰带,避魂靴';
    templist[2]:='怒斩,龙牙,龙纹剑,天魔神甲,法神披风,天尊道袍,圣战宝甲,霓裳羽衣,天师长袍';
    templist[3]:='雷霆项链,雷霆护腕,雷霆战戒,雷霆战盔,雷霆腰带,雷霆战靴,烈焰项链,烈焰护腕,烈焰魔戒,烈焰魔盔,烈焰腰带,烈焰魔靴,光芒项链,光芒护腕,光芒道戒,光芒道盔,光芒腰带,光芒道靴';
    templist[4]:='屠龙,嗜魂法杖,逍遥扇,雷霆战甲(女),烈焰魔衣(女),光芒道袍(女),雷霆战甲(男),烈焰魔衣(男),光芒道袍(男)';
    templist[5]:='强化雷霆项链,强化雷霆护腕,强化雷霆战戒,强化雷霆战盔,强化雷霆腰带,强化雷霆战靴,强化烈焰项链,强化烈焰护腕,强化烈焰魔戒,强化烈焰魔盔,强化烈焰腰带,强化烈焰魔靴,强化光芒项链,强化光芒护腕,强化光芒道戒,强化光芒道盔,强化光芒腰带,强化光芒道靴';
    templist[6]:='绿色项链,骑士手镯,力量戒指,恶魔铃铛,龙之手镯,紫碧螺,灵魂项链,三眼手镯,泰坦戒指,黑铁头盔,炼狱,银蛇,魔杖';
    for i := 1 to 6 do
    begin
        for j := 1 to 100 do
        begin
            if MyFunction(templist[i], ',', j) <> '' then
            itemList[i][j]:=MyFunction(templist[i], ',', j)
            else
            break;          
        end;
    end;    
end;