用于战神引擎服务端的强身健体Npc脚本，脚本的功能在于玩家提供对应的材料和元宝，给自己增加额外的血量，支持三职业，每天可以修炼5层，总共100层，每天一次，需要持续20天才能到达100层，脚本是明文版的，可以任意修改里面所需要的材料和元宝还要最早加血的数量。

部分脚本

procedure _gmai;
var today , num , nun , Rdm_int : integer; 
begin
    today := GetDateNum(GetNow);// 获取当前日期
    if This_Player.GetV(52,1) <> today then    
    begin
    This_Player.SetV(52,1,today);
    This_Player.SetV(51,2,0);
    end;
 nun := This_Player.GetV(51,2);
 if nun < 5  then
begin
    num := This_Player.GetV(52,25);  //获取已领取次数，**取值时切记写在初始化之后
    if num < 100 then begin if (This_Player.GetBagItemCount ('精力神石') >= 3) and (This_Player.YBnum >= 3000) then	
    begin  
	   Rdm_int := random(100);
       if Rdm_int < 30 then
        begin  		 
	     This_Player.ScriptRequestSubYBNum(3000);
         This_Player.Take('精力神石',3);
	     This_Player.PlayerNotice('很遗憾！强化失败了！', 2);			
         end else
         if Rdm_int < 99 then
         begin 
		 case This_Player.Job of
         0 : 
         begin
		 This_Player.SetV(23,5,(This_Player.GetV(23,5)+50));		 //战士 永久高级血量血量	
         end;
         1 : 
         begin		 
		 This_Player.SetV(23,5,(This_Player.GetV(23,5)+20));		 //法师 永久高级血量血量		
         end;
         2 : 
         begin		 
		 This_Player.SetV(23,5,(This_Player.GetV(23,5)+30));		 //道士 永久高级血量血量			
         end;
         end;		 
	     This_Player.ScriptRequestSubYBNum(3000);
         This_Player.Take('精力神石',3);
         This_Player.PlayerNotice('恭喜你！强化成功！', 0);		 
         This_Player.SetV(52,25, num + 1);                       //计算总进阶次数	
         This_Player.SetV(51,2, nun + 1);                        //计算当天进阶次数	
	     ServerSay('恭喜：' + This_Player.Name + ' :完成了[ '+inttostr(This_Player.GetV(52,25))+' ]层炼体！', 2);			 
         end;		 
    end else
    This_NPC.NpcDialog(This_Player,'你材料不够：需要2个精力神石+2000元宝！')	
    end else
    This_NPC.NpcDialog(This_Player,'你炼体已经达到100层了！')	
    end else
    This_NPC.NpcDialog(This_Player,'每天炼体只能进阶五层！')
    TZJH_NPC;
end;
begin
 if This_Player.GetV(52,25) = -1 then This_Player.SetV(52,25,0);
	domain;
end.