武器增加攻魔道和升级幸运脚本(三职业版)

战神引擎三职业升级武器攻击、魔法、道术和加幸运的脚本。帮主从龙川公益手游版本里面提取出来的，升级幸运只需要元宝，攻魔道需要金刚石，脚本是明文版，升级的条件可以任何设置，加入到自己的版本之前，记得把脚本里面的武器名单换成自己的，要不然不支持升级，其他的也没有什么特别要交代的。

部分脚本

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.

分享到：

赞(1)