诅咒洗炼Npc脚本(用元宝清理武器诅咒)

用于战神引擎的诅咒洗炼Npc脚本，脚本的功能主要是给玩家把自己的已经加诅咒的武器清理掉，当热，有祝福油，直接喝也可以，脚本默认需要2000元宝洗炼一次。明文版的，可以根据gm的要求，任意修改脚本里面的洗练条件。

部分脚本

program mir2;
var
ck_name:  array[1..30] of string;
ck_value: array[1..30] of integer;
procedure _DoExit;
begin
This_Npc.CloseDialog(This_Player);
end;
procedure _Exit;
begin
This_Npc.CloseDialog(This_Player);
end;
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_name[19] :='上古·鬼王·残';
ck_name[20] :='上古·耀光·残';
ck_name[21] :='上古·流光·残';
ck_name[22] :='上古·诛仙';
ck_name[23] :='上古·鬼王';
ck_name[24] :='上古·耀光';
ck_name[25] :='上古·流光';
ck_name[26] :='起源·刃';
ck_name[27] :='烈焰魔靴';
ck_name[28] :='光芒道靴';
ck_name[29] :='雷霆战盔';
ck_name[30] :='烈焰魔盔';
ck_value[1] :=2000;
ck_value[2] :=2000;
ck_value[3] :=2000;
ck_value[4] :=2000;
ck_value[5] :=2000;
ck_value[6] :=2000;
ck_value[7] :=2000;
ck_value[8] :=2000;
ck_value[9] :=2000;
ck_value[10] :=2000;
ck_value[11] :=2000;
ck_value[12] :=2000;
ck_value[13] :=2000;
ck_value[14] :=2000;
ck_value[15] :=2000;
ck_value[16] :=2000;
ck_value[17] :=2000;
ck_value[18] :=2000;
ck_value[19] :=2000;
ck_value[20] :=2000;
ck_value[21] :=2000;
ck_value[22] :=2000;
ck_value[23] :=2000;
ck_value[24] :=2000;
ck_value[25] :=2000;
ck_value[26] :=2000;
ck_value[27] :=2000;
ck_value[28] :=2000;
ck_value[29] :=2000;
ck_value[30] :=2000;
end;
procedure _CheckUp1;
begin
This_NPC.Click_CommitItem(This_Player,1,'待洗炼装备');
end;
{if ck_num >= 0 then
begin
This_Player.NotifyClientCommitItem(0, '无法洗炼：你的<' + This_Item.ItemName + '>并没有+诅咒！');
exit;
end else}
if ck_gold > 0 then
begin
if This_Player.YBNum >= ck_gold then
begin
This_Player.PsYBConsum(This_NPC, 'jiand', 20151, ck_gold, 1);
This_Player.TakeByClientID(This_Item.ClientItemID);
This_Player.NotifyClientCommitItem(1,'');
This_Player.Give(This_Item.ItemName,1);
This_Player.PlayerNotice('洗炼成功：你的' + This_Item.ItemName + '已经被我洗白白了！',2);
function jiand(price, num: Integer): boolean;
begin
result := true;
end;
begin
This_Npc.NpcDialog(This_Player,
+'|每次洗炼需要<2000元宝>。 \'
+'|洗炼后<诅咒值>会被清除。\'
+'|  \'
+'|{cmd}<开始洗炼/@Checkup1>\');
end.

分享到：

赞(0)