战神引擎三职业升级武器攻击、魔法、道术和加幸运的脚本。小鱼从龙川公益手游版本里面提取出来的，升级幸运只需要元宝，攻魔道需要金刚石，脚本是明文版，升级的条件可以任何设置，加入到自己的版本之前，记得把脚本里面的武器名单换成自己的，要不然不支持升级，其他的也没有什么特别要交代的。
部分脚本
program mir2;
{$I TaoZhuang.pas}
procedure _DoExit;
begin
This_Npc.CloseDialog(This_Player);
end;
procedure _Exit;
begin
This_Npc.CloseDialog(This_Player);
end;
var
ck_name : array[1..100]of string;
ck_value : array[1..100] of integer;
procedure OnInitialize;
begin
ck_name[1] :='银蛇'
ck_name[2] :='炼狱';
ck_name[3] :='魔杖';
ck_name[4] :='裁决之杖';
ck_name[5] :='无极棍';
ck_name[6] :='骨玉权杖';
ck_name[7] :='龙纹剑';
ck_name[8] :='龙牙';
ck_name[9] :='怒斩';
ck_name[10] :='逍遥扇';
ck_name[11] :='霸者之刃';
ck_name[12] :='血饮';
ck_name[13] :='屠龙';
ck_name[14] :='嗜魂法杖';
ck_name[15] :='命运之刃';
ck_name[16] :='开天';
ck_name[17] :='镇天';
ck_name[18] :='玄天';
ck_value[1] :=888;
ck_value[2] :=888;
ck_value[3] :=888;
ck_value[4] :=888;
ck_value[5] :=888;
ck_value[6] :=888;
ck_value[7] :=888;
ck_value[8] :=888;
ck_value[9] :=888;
ck_value[10] :=888;
ck_value[11] :=888;
ck_value[12] :=888;
ck_value[13] :=888;
ck_value[14] :=888;
ck_value[15] :=888;
ck_value[16] :=888;
ck_value[17] :=888;
ck_value[18] :=888;
end;
procedure _Checkup_1;
begin
This_NPC.Click_CommitItem(This_Player,1,'待祝福装备：');
end;
procedure CommitItem(AType:word);
var
i,ck_num,ck_kind,ck_gold,ck_rand:integer;
ck_str,ck_red:string;
begin
ck_gold := 0; //初始化
ck_str := ''; //初始化
ck_red := ''; //初始化
for ck_kind := 1 to 100 do
begin
if ck_name[ck_kind] = This_Item.ItemName then
begin
ck_num := This_Item.AddPa4;
ck_gold := ck_value[ck_kind];
if (ck_num > 0) and (ck_num < 15) then begin for i:= 1 to ck_num do begin ck_gold := ck_gold; end; end; end; end; if ck_num = 7 then begin This_Player.NotifyClientCommitItem(0,'无法鉴定：你的'+This_Item.ItemName+'已激发出所有属性！'); end else if ck_gold > 0 then
begin
if This_Player.YBNum>= ck_gold then
begin
ck_rand := random(100);
if ck_rand < 100 then
begin
This_Item.AddPa4 := This_Item.AddPa4 + 1; //幸运+1
ck_str :='3';
end
//This_Player.PsYBConsum(This_NPC,'ForgeDiaYB',20151,ck_gold,1);
This_Player.ScriptRequestSubYBNum(ck_gold);
if ck_str = '3' then
begin
This_Player.NotifyClientCommitItem(0,'你的武器获得了祝福！');
This_NPC.NotifyClientUPdBagItem(This_Player,This_Item);
end
else
if ck_str = '2' then
begin
This_Player.NotifyClientCommitItem(0,'你的武器被诅咒了！');
This_NPC.NotifyClientUPdBagItem(This_Player,This_Item);
end
else
if ck_str = '1' then
begin
This_Player.NotifyClientCommitItem(0,'无效！');
This_NPC.NotifyClientUPdBagItem(This_Player,This_Item);
end;
if ck_red <> '' then This_NPC.NpcNotice('恭喜：'+This_Player.Name+'在幸运武器升级'+This_Item.ItemName+'时提升了'+ck_str+'！');
This_Player.AddLogRec(6, This_Item.ItemName, 811152, ck_gold, ck_str);
end
else
begin
This_Player.NotifyClientCommitItem(0,'无法升级：你的元宝不足，需要'+inttostr(ck_gold)+'元宝。');
end;
end
else
begin
This_Player.NotifyClientCommitItem(0,'我只能为沃玛以后的武器加幸运！！');
end;
end;
begin
TZJH_NPC;
This_Npc.NpcDialog(This_Player,
+'<我可以提升武器幸运(最高升7点) /color=70>| \'
+'<但我听说也有民间高手能用普通祝福油喝到运7/color=242>|\'
+'<如果你也能做到，此武器可是价值连城！/color=250>|\'
+'<三大职业达到运九.有通天之威/color=243>|\'
+'<每次扣取888元宝.百分百成功哦！/color=244>|\'
+'|{cmd}<开始升级武器幸运/@Checkup_1> \'
);
end.