三职业锻体师Npc脚本(可加血量20次)

用于战神引擎手游三职业锻体师Npc脚本，玩家通过元宝和金刚石，锻体以后，可以获得50血量的额外增加，总共可以锻体20次，脚本是明文版的，可以任意修改里面的需要的元宝、材料还要血量，经过帮主亲自测试，确实有效。

补发脚本

procedure _lianti1; 
var today , num,AddHP,AddHP1,AddHP2: integer;
begin
   num := This_Player.GetV(68,2);
    begin
       case This_Player.Job of
               0 : //战士
               begin
                  This_Player.AddPlayerAbil(4, AddHP, 36000);
				  This_Player.AddHeroAbil(4,AddHP,36000);
                  ServerSay('玩家<' + This_Player.Name + '>炼体属性开启成功！', 2);						  
                  This_Npc.NpcDialog(This_Player,
                  '恭喜你炼体成功开启成功\'
               );
			   end;
               1 : //法师
               begin
                   This_Player.AddPlayerAbil(4, AddHP1, 36000);
                   This_Player.AddHeroAbil(4,AddHP1,36000); 
                   ServerSay('玩家<' + This_Player.Name + '>炼体属性开启成功！', 2);					   
                   This_Npc.NpcDialog(This_Player,
                   '恭喜你开启成功\'
               );               
               end;
               2 : //道士
               begin
                  This_Player.AddPlayerAbil(4, AddHP2, 36000);
                 This_Player.AddHeroAbil(4,AddHP2,36000); 
                   ServerSay('玩家<' + This_Player.Name + '>炼体属性开启成功！', 2);					 
                  This_Npc.NpcDialog(This_Player,
                  '恭喜你开启成功\'
                  );
               end;
           end;
    end else
    This_Npc.NpcDialog(This_Player,
                  '你没有炼体，无法开启属性\'
                  );
 end;    
begin
       begin 
     if This_Player.YBNum >= 500 then
       begin 
        case This_Player.Job of
               0 : //0是战士
               begin
				  This_Player.ScriptRequestSubYBNum(500);
				  This_Player.Take('金刚石' , 100);
                  This_Player.SetV(68,2, num + 1); //领取变量每领取一次加一
				   num := This_Player.GetV(68,2);
				  ServerSay('恭喜玩家<' + This_Player.Name + '>炼体成功，当前炼体层数'+inttostr(num)+'层！', 2);																
                  This_Npc.NpcDialog(This_Player,
                  '恭喜你炼体成功，当前炼体层数<'+inttostr(num)+'/c=red>层！\'
               );
               end;
               1 : //法师
               begin
				   This_Player.ScriptRequestSubYBNum(500);
				   This_Player.Take('金刚石' , 100);
                   This_Player.SetV(68,2, num + 1); //领取变量每领取一次加一 
				    num := This_Player.GetV(68,2);
				   ServerSay('恭喜玩家<' + This_Player.Name + '>炼体成功，当前炼体层数'+inttostr(num)+'层！', 2);
                   This_Npc.NpcDialog(This_Player,
                   '恭喜你炼体成功，当前炼体层数<'+inttostr(num)+'/c=red>层！\'
               );               
               end;
               2 : //道士
               begin
				  This_Player.ScriptRequestSubYBNum(500);
				  This_Player.Take('金刚石' , 100);
                  This_Player.SetV(68,2, num + 1); //领取变量每领取一次加一
				   num := This_Player.GetV(68,2);
				  ServerSay('恭喜玩家<' + This_Player.Name + '>炼体成功，当前炼体层数'+inttostr(num)+'层！', 2);
                  This_Npc.NpcDialog(This_Player,
                  '恭喜你炼体成功，当前炼体层数<'+inttostr(num) +'/c=red>层！\'
                  );
               end;
           end;
       end else
        This_Npc.NpcDialog(This_Player,
        '元宝不足500，无法炼体\'
               );
			    end else
        This_Npc.NpcDialog(This_Player,
        '金刚石不足100，无法炼体\'
               );
    end else
   This_Player.PlayerDialog(
      '<你的炼体层数已经达到顶级，无法继续/c=red>'
      );
end;
 '|你当前的元宝总数是：<' + inttostr(This_Player.YBnum)+'/c=251>个\'+ 
 '|当前炼体层数：<'+inttostr(num)+'/c=58>层，共20层\'+ 
  +'|☆☆☆欢迎光临【夜雨传奇】☆☆☆\'              
  +'|<战士/c=red>每次增加<HP50点/c=244>，当前层数可加血<'+inttostr(num*50)+'/c=red>点\'+ 
  +'|<道士/c=red>每次增加<HP30点/c=244>，当前层数可加血<'+inttostr(num*30)+'/c=red>点\'+ 
  +'|<法师/c=red>每次增加<HP15点/c=244>，当前层数可加血<'+inttostr(num*15)+'/c=red>点\'+ 
  +'|<每次炼体需要500元宝+100金刚石/c=146>\'
  +'|<HP属性，有效时间为10小时/c=224>\'
  +'|<10小时后/c=58>免费<再次激活10小时/c=70>\'
  +'|{cmd}<开始炼体/@lianti>   ^<开启属性/@lianti1>' 
  );
 end else
 begin
 '|你当前的元宝总数是：<' + inttostr(This_Player.YBnum)+'/c=251>个\'+ 
 '|当前炼体层数：<'+inttostr(num)+'/c=58>层，共20层\'+ 
  +'|☆☆☆欢迎光临【夜雨传奇】☆☆☆\'              
  +'|<战士/c=red>每次增加<HP50点/c=244>，当前层数可加血<'+inttostr(num*50)+'/c=red>点\'+ 
  +'|<道士/c=red>每次增加<HP30点/c=244>，当前层数可加血<'+inttostr(num*30)+'/c=red>点\'+ 
  +'|<法师/c=red>每次增加<HP15点/c=244>，当前层数可加血<'+inttostr(num*15)+'/c=red>点\'+ 
  +'|<每次炼体需要500元宝+100金刚石/c=146>\'
  +'|<HP属性，有效时间为10小时/c=224>\'
  +'|<10小时后/c=58>免费<再次激活10小时/c=70>\'
  +'|{cmd}<开始炼体/@lianti>   ^<开启属性/@lianti1>' 
  );
end;
end.

分享到：

赞(0)