项链增加幸运脚本，新手直接复制修改即可

haoda

{********************************************************************

*******************************************************************}

program mir2;

procedure _DoExit;
begin
  This_Npc.CloseDialog(This_Player);
end;

procedure _Exit;
begin
  This_Npc.CloseDialog(This_Player);
end;

var
ck_name : array[1..15 ]of string;
ck_value : array[1..15] 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_value[1] :=500;
ck_value[2] :=500;
ck_value[3] :=500;
ck_value[4] :=1000;
ck_value[5] :=1000;
ck_value[6] :=1000;
ck_value[7] :=2000;
ck_value[8] :=2000;
ck_value[9] :=2000;




end;



procedure _Checkup;
begin
  This_Npc.NpcDialog(This_Player,
  '可以升级的项链(最高升三点)： |\'
  +'<雷霆系列:500元宝升一点/c=red> |\'
  +'<强化雷霆系列:1000元宝升一点/c=red> |\'
  +'<升级项链幸运可是百分百的哦/c=yellow> |\'
  +'|{cmd}<开始升级项链幸运/@Checkup_1> \' );     
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 9 do
     begin
       if ck_name[ck_kind] = This_Item.ItemName then
       begin                             
         ck_num := This_Item.AddPa2;
         ck_gold := ck_value[ck_kind];
         if (ck_num > 0) and (ck_num < 9) then
         begin
           for i:= 1 to ck_num do
           begin
           ck_gold := ck_gold;
           end;
         end;  
       end;
     end;

     if ck_num > 2 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 < 99 then
         begin
         This_Item.AddPa2 := This_Item.AddPa2 + 1;   //幸运+1
         ck_str :='幸运+1';

         end;  
       This_Player.PsYBConsum(This_NPC,'ForgeDiaYB',20151,ck_gold,1);
         if ck_str <> '' then
         begin
         This_Player.NotifyClientCommitItem(0,'鉴定成功：你的'+This_Item.ItemName+'提升了'+ck_str+'！');
         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(9, 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
  This_Npc.NpcDialog(This_Player,
  '少侠在我这里可以给你的高级项链提升幸运属性 | \'
  +'<听说三大职业达到运九.有通天之威/c=red>。|\'
  +'当然.我提升项链幸运可以要收费的哦|\'
  +'少侠.确定要提高项链的幸运?|\'
  +'|{cmd}<确定提升项链幸运/@Checkup>|\'
  );
end.