战神引擎玩家花元宝一键满血脚本

program mir2; 

procedure _Exit;  

begin  

  This_Npc.CloseDialog(This_Player);  

end; 

procedure _reHMP;  

begin 

if This_Player.YBNum >= 1 then

begin

   This_Player.PsYBConsum(This_NPC,'DecYbNumber',20001,1,1); 

   This_Player.DoScriptHpMpRecover(This_Player.MaxHP,This_Player.MaxMP,This_Player.MaxHP,This_Player.MaxMP);

  // This_Player.CallOut(This_Npc,1,'controlList');

   _Exit;

end else This_NPc.NPcDialog(This_Player,'你没有1元宝');

end;  

begin

This_NPc.NPcDialog(This_Player,'|{cmd}<1元宝一键满血/@reHMP>');

end.