玩家把多余的装备，通过npc分解，获得或者换取一些其他的材料的战神引擎脚本。这样可以增加游戏的可玩性，玩家打到装备以后，不但可以通过回收换取元宝，还可以换取材料，这样对一些不想充值的玩家，比较友好。脚本是明文版的，默认是分解之后得到金刚石，可以任意修改里面的分解装备名单和金刚石数量。
部分脚本
PROGRAM Mir2;
{$I common.pas}
Procedure _doexit;
begin
This_Npc.CloseDialog(This_Player);
end;
procedure domain;
begin
This_Npc.NpcDialog(This_Player,
'|< ¤╭⌒╮╭⌒╮ 战神传奇>\'+
'|<╱◥██◣ ╭⌒╮>\'+
'|<︱田︱田田丨╰------------->\'+
'|<╬╬╬╬╬╬╬╬╬╬╬╬╬>\'+
'|<熔炼装备可以获得金刚石:>\'+
'| <传奇剑甲>:<30金刚石> <一键分解/@1>\'+
'| <玉兔装备>:<15金刚石> <一键分解/@2>\'+
'| <玉兔剑甲>:<100金刚石> <一键分解/@3>\'+
'| <刺影装备>:<60金刚石> <一键分解/@4>\'+
'| <刺影剑甲>:<500金刚石> <一键分解/@5>\'+
'| <多余的装备可以在我这里分解掉/c=250>\'+
'| <分解后能获得一定的金刚石数量/c=250>\'+
'|<温馨提示:重要的装备请放仓库分解后果自负>\');
end;
function getZBnameById(ZBid : integer) : string;
var ZBlv , ZBlvId : integer;
begin
ZBlv := ZBid div 100;
ZBlvId := ZBid mod 100;
result := '';
case ZBlv of
1 :
begin
case ZBlvId of
1 : result := '传奇神甲(男)';
2 : result := '传奇神甲(女)';
3 : result := '传奇战刃';
4 : result := '传奇魔杖';
5 : result := '传奇道扇';
end;
end;
2 :
begin
case ZBlvId of
4 : result := '玉兔战戒';
5 : result := '玉兔魔戒';
6 : result := '玉兔道戒';
7 : result := '玉兔战镯';
8 : result := '玉兔魔镯';
9 : result := '玉兔道镯';
10 : result := '玉兔勋章(战)';
11 : result := '玉兔勋章(魔)';
12 : result := '玉兔勋章(道)';
13 : result := '玉兔战链';
14 : result := '玉兔魔链';
15 : result := '玉兔道链';
16 : result := '玉兔战盔';
17 : result := '玉兔魔盔';
18 : result := '玉兔道盔';
19 : result := '玉兔战带';
20 : result := '玉兔魔带';
21 : result := '玉兔道带';
22 : result := '玉兔战靴';
23 : result := '玉兔魔靴';
24 : result := '玉兔道靴';
25 : result := '玉兔神石';
end;
end;
3 :
begin
case ZBlvId of
1 : result := '玉兔神甲(男)';
2 : result := '玉兔神甲(女)';
3 : result := '玉兔战刃';
4 : result := '玉兔魔杖';
5 : result := '玉兔道扇';
end;
end;
4 :
begin
case ZBlvId of
4 : result := '刺影战戒';
5 : result := '刺影魔戒';
6 : result := '刺影道戒';
7 : result := '刺影战镯';
8 : result := '刺影魔镯';
9 : result := '刺影道镯';
10 : result := '刺影勋章(战)';
11 : result := '刺影勋章(魔)';
12 : result := '刺影勋章(道)';
13 : result := '刺影战链';
14 : result := '刺影魔链';
15 : result := '刺影道链';
16 : result := '刺影战盔';
17 : result := '刺影魔盔';
18 : result := '刺影道盔';
19 : result := '刺影战带';
20 : result := '刺影魔带';
21 : result := '刺影道带';
22 : result := '刺影战靴';
23 : result := '刺影魔靴';
24 : result := '刺影道靴';
25 : result := '刺影神石';
end;
end;
5 :
begin
case ZBlvId of
1 : result := '刺影战甲';
2 : result := '刺影战袍';
3 : result := '刺影战刃';
4 : result := '刺影魔杖';
5 : result := '刺影道扇';
6 : result := '刺影魔甲';
7 : result := '刺影魔袍';
8 : result := '刺影道甲';
9 : result := '刺影道袍';
end;
end;
6 :
begin
case ZBlvId of
1 : result := '主宰神甲(男)';
2 : result := '主宰神甲(女)';
3 : result := '主宰神剑';
4 : result := '主宰战戒';
5 : result := '主宰魔戒';
6 : result := '主宰道戒';
7 : result := '主宰战镯';
8 : result := '主宰魔镯';
9 : result := '主宰道镯';
10 : result := '主宰勋章(战)';
11 : result := '主宰勋章(魔)';
12 : result := '主宰勋章(道)';
13 : result := '主宰战链';
14 : result := '主宰魔链';
15 : result := '主宰道链';
16 : result := '主宰战盔';
17 : result := '主宰魔盔';
18 : result := '主宰道盔';
19 : result := '主宰战带';
20 : result := '主宰魔带';
21 : result := '主宰道带';
22 : result := '主宰战靴';
23 : result := '主宰魔靴';
24 : result := '主宰道靴';
25 : result := '主宰神石';
end;
end;
7 :
begin
case ZBlvId of
1 : result := '传奇神甲(男)';
2 : result := '传奇神甲(女)';
3 : result := '传奇战刃';
4 : result := '传奇魔杖';
5 : result := '传奇道扇';
6 : result := '传奇道戒';
7 : result := '传奇战镯';
8 : result := '传奇魔镯';
9 : result := '传奇道镯';
10 : result := '传奇勋章(战)';
11 : result := '传奇勋章(魔)';
12 : result := '传奇勋章(道)';
13 : result := '传奇战链';
14 : result := '传奇魔链';
15 : result := '传奇道链';
16 : result := '传奇战盔';
17 : result := '传奇魔盔';
18 : result := '传奇道盔';
19 : result := '传奇战带';
20 : result := '传奇魔带';
21 : result := '传奇道带';
22 : result := '传奇战靴';
23 : result := '传奇魔靴';
24 : result := '传奇道靴';
25 : result := '传奇神石';
26 : result := '传奇魔杖';
27 : result := '传奇道扇';
end;
end;
8 :
begin
case ZBlvId of
1 : result := '玉兔神甲(男)';
2 : result := '玉兔神甲(女)';
3 : result := '玉兔战刃';
4 : result := '玉兔战戒';
5 : result := '玉兔魔戒';
6 : result := '玉兔道戒';
7 : result := '玉兔战镯';
8 : result := '玉兔魔镯';
9 : result := '玉兔道镯';
10 : result := '玉兔勋章(战)';
11 : result := '玉兔勋章(魔)';
12 : result := '玉兔勋章(道)';
13 : result := '玉兔战链';
14 : result := '玉兔魔链';
15 : result := '玉兔道链';
16 : result := '玉兔战盔';
17 : result := '玉兔魔盔';
18 : result := '玉兔道盔';
19 : result := '玉兔战带';
20 : result := '玉兔魔带';
21 : result := '玉兔道带';
22 : result := '玉兔战靴';
23 : result := '玉兔魔靴';
24 : result := '玉兔道靴';
25 : result := '玉兔神石';
26 : result := '玉兔魔杖';
27 : result := '玉兔道扇';
end;
end;
9 :
begin
case ZBlvId of
1 : result := '刺影战甲';
2 : result := '刺影战袍';
3 : result := '刺影战刃';
4 : result := '刺影战戒';
5 : result := '刺影魔戒';
6 : result := '刺影道戒';
7 : result := '刺影战镯';
8 : result := '刺影魔镯';
9 : result := '刺影道镯';
10 : result := '刺影勋章(战)';
11 : result := '刺影勋章(魔)';
12 : result := '刺影勋章(道)';
13 : result := '刺影战链';
14 : result := '刺影魔链';
15 : result := '刺影道链';
16 : result := '刺影战盔';
17 : result := '刺影魔盔';
18 : result := '刺影道盔';
19 : result := '刺影战带';
20 : result := '刺影魔带';
21 : result := '刺影道带';
22 : result := '刺影战靴';
23 : result := '刺影魔靴';
24 : result := '刺影道靴';
25 : result := '刺影神石';
26 : result := '刺影魔杖';
27 : result := '刺影道扇';
28 : result := '刺影魔甲';
29 : result := '刺影魔袍';
30 : result := '刺影道甲';
31 : result := '刺影道袍';
end;
end;
10 :
begin
case ZBlvId of
1 : result := '麻痹戒指';
2 : result := '护身戒指';
3 : result := '复活戒指';
4 : result := '高级麻痹神戒';
5 : result := '高级复活神戒';
6 : result := '高级护身神戒';
7 : result := '精品麻痹神戒';
8 : result := '精品护身神戒';
9 : result := '精品复活神戒';
10 : result := '终极麻痹神戒';
11 : result := '终极护身神戒';
12 : result := '终极复活神戒';
end;
end;
11 :
begin
case ZBlvId of
1 : result := '一级神力符文';
2 : result := '二级神力符文';
3 : result := '三级神力符文';
4 : result := '四级神力符文';
5 : result := '五级神力符文';
6 : result := '六级神力符文';
7 : result := '七级神力符文';
8 : result := '八级神力符文';
9 : result := '九级神力符文';
10 : result := '十级神力符文';
end;
end;
12 :
begin
case ZBlvId of
1 : result := '荣耀神剑';
2 : result := '荣耀神甲(男)';
3 : result := '荣耀神甲(女)';
4 : result := '金牛战剑';
5 : result := '金牛道扇';
6 : result := '金牛魔杖';
7 : result := '金牛战甲(男)';
8 : result := '金牛战甲(女)';
9 : result := '金牛魔衣(男)';
10 : result := '金牛魔衣(女)';
11 : result := '金牛道袍(男)';
12 : result := '金牛道袍(女)';
end;
end;
end;
end;
function getZexpNum(Zlv : integer) : integer;
begin
case Zlv of
1 : result := 0;
2 : result := 0;
3 : result := 0;
4 : result := 0;
5 : result := 0;
end;
end;
function getZYBNum(Zlv : integer) : integer;
begin
case Zlv of
1 : result := 30;
2 : result := 15;
3 : result := 100;
4 : result := 60;
5 : result := 500;
6 : result := 100;
7 : result := 300;
8 : result := 800;
9 : result := 3000;
10 : result := 10000;
11 : result := 1500;
12 : result := 100;
end;
end;
