战神引擎元宝加防御和魔御属性Npc脚本

用于战神引擎元宝加防御和魔御属性Npc脚本，帮主从火龙三职业里面提取出来的，脚本文件有2份，用到了变量，你们在添加的时候，记得把原先的LogoutQuest.pas文件备份一次，在单独提取对应的变量到里面，脚本界面看着挺有意思。

战神引擎元宝加防御和魔御属性Npc脚本

部分脚本

if This_Player.GMLevel >= 5 then
begin 
  quanxian := '<GM后台/@GM>';  
  end else
  begin
quanxian := '<关闭此页/@doexit>';
end;
  This_NPC.NpcDialog(This_Player,
  +'您当前打通：<'+inttostr(This_Player.GetV(178,2))+'/fcolor=254> 处穴位  <防魔>属性提升  <'+inttostr(getFMNum(This_Player.GetV(178,2)))+'/fcolor=250> 点\'   
  +'|<─────────────────────/fcolor=249>\'  
       +'|'+str9+'   ┈┈┈┈     ┓        ●               ┈┈ '+str10+'\'
       +'|'+str3+'   ┈┈┈┈     ┗━━┃━━┓  ┈┈  '+str4+'\'
       +'|'+str8+'   ┈┈┈┈                  ┃        ┗  ┈┈ '+str6+'\' 
       +'|'+str7+'   ┈┈┈┈     ┏━━┫              ┈┈  '+str5+'\'
       +'|                                  ┃        ┃\' 
       +'|'+str1+'  ┈┈┈┈      ┛        ┗━━┛  ┈┈  '+str2+'\' 
      +'|<─────────────────────/fcolor=249>\'	  
	  +'|<当前穴位:/fcolor=254>    <'+getZBnameById(This_Player.GetV(178,2))+'/fcolor=250>      '+yuanman+'\'	  
	  +'|'+jisheng+''	    
	  +'|{cmd}'+yinchang+'  ^<查看穴位/@cklt> ^ '+quanxian+'\' 
    );  
end;
procedure _GM;
begin
  This_Npc.NpcDialog(This_Player,
   +'<测试充值返还后台/fcolor=242> <当前日期：>\'+ MirDateTimeToStr('yyyy-MM-dd' , GetNow) 
   +'|<────────────────────>\'      
   +'| <1：>重置 <当前玩家/fcolor=250> 可重新炼体！    <重置个人/@geren>|\'  
   +'<────────────────────>\'   
   +'|{cmd}<返回上页/@main>^<关闭此页/@exit>\' 
   );  
end;
 procedure _geren;
begin
This_Player.SetV(178,2,0);
This_Player.AddPlayerAbil(8,This_Player.MaxAC+10,0);
This_Player.AddPlayerAbil(9,This_Player.MaxAC+10,0); 
This_Player.PlayerNotice('重置成功：当前玩家炼体数据清除！',0);//
domain;	
end;
procedure _cklt;
begin 	
   This_NPC.NpcDialog(This_Player,
  +'您当前打通：<'+inttostr(This_Player.GetV(178,2))+'/fcolor=254> 处穴位  <防魔>属性提升  <'+inttostr(getFMNum(This_Player.GetV(178,2)))+'/fcolor=250> 点|\'  
  +'<─────────────────────/fcolor=249>|\'   
  +'<涌泉穴>：<'+inttostr(getZexpNum(1))+'/fcolor=254> 级     <'+inttostr(getZybNum(1))+'/fcolor=254> 元宝   <防魔 + '+inttostr(getFMNum(1))+'/fcolor=250>点|'  
  +'<八风穴>：<'+inttostr(getZexpNum(2))+'/fcolor=254> 级     <'+inttostr(getZybNum(2))+'/fcolor=254> 元宝   <防魔 + '+inttostr(getFMNum(2))+'/fcolor=250>点|'   
  +'<二百穴>：<'+inttostr(getZexpNum(3))+'/fcolor=254> 级     <'+inttostr(getZybNum(3))+'/fcolor=254> 元宝   <防魔 + '+inttostr(getFMNum(3))+'/fcolor=250>点|' 
  +'<夹脊穴>：<'+inttostr(getZexpNum(4))+'/fcolor=254> 级     <'+inttostr(getZybNum(4))+'/fcolor=254> 元宝   <防魔 + '+inttostr(getFMNum(4))+'/fcolor=250>点|'  
  +'<四满穴>：<'+inttostr(getZexpNum(5))+'/fcolor=254> 级     <'+inttostr(getZybNum(5))+'/fcolor=254> 元宝   <防魔 + '+inttostr(getFMNum(5))+'/fcolor=250>点|' 
  +'<横骨穴>：<'+inttostr(getZexpNum(6))+'/fcolor=254> 级   <'+inttostr(getZybNum(6))+'/fcolor=254> 元宝   <防魔 + '+inttostr(getFMNum(6))+'/fcolor=250>点|' 
  +'<商曲穴>：<'+inttostr(getZexpNum(7))+'/fcolor=254> 级   <'+inttostr(getZybNum(7))+'/fcolor=254> 元宝   <防魔 + '+inttostr(getFMNum(7))+'/fcolor=250>点|' 
  +'<通谷穴>：<'+inttostr(getZexpNum(8))+'/fcolor=254> 级   <'+inttostr(getZybNum(8))+'/fcolor=254> 元宝   <防魔 + '+inttostr(getFMNum(8))+'/fcolor=250>点|' 
  +'<幽门穴>：<'+inttostr(getZexpNum(9))+'/fcolor=254> 级   <'+inttostr(getZybNum(9))+'/fcolor=254> 元宝   <防魔 + '+inttostr(getFMNum(9))+'/fcolor=250>点|' 
  +'<神冲穴>：<'+inttostr(getZexpNum(10))+'/fcolor=254> 级   <'+inttostr(getZybNum(10))+'/fcolor=254> 元宝   <防魔 + '+inttostr(getFMNum(10))+'/fcolor=250>点|' 
  +'<─────────────────────/fcolor=249>\'	  
  +'|{cmd}<返回首页/@main>                    ^<关闭此页/@exit>') ;
end;

分享到：

赞(0)