English 简体 繁體
  • 注册
  • 手游教程 手游教程 关注:423 内容:1338

    战神引擎炼体脚本支持主号英雄脚本

  • 查看作者
  • 打赏作者
  • 此版块是用户分享手游资源相关内容的论坛,其中包含了作者原创、搬砖、转载,以及可能存在网盘失效的情况。

    如果需要联系楼主,请点击帖子右侧聊天。如果发现虚假资源,请举报!

    当前位置: 35博客圈 > 手游分享 > 手游教程 > 正文
    • 4
    • 手游教程
    • 战神引擎炼体脚本支持主号英雄脚本

      {     35博客35boke.com
      *******************************************************************}
      Procedure _doexit;
      begin
         This_Npc.CloseDialog(This_Player);
      end;
      procedure _lianti1; 
      var today , num,AddHP,AddHP1,AddHP2: integer;
      begin
          if This_Player.GetV(99,1) <> today then     
          begin
             This_Player.SetV(99,1,today);
              This_Player.SetV(99,2,0);
          end;
                   //初始化变量值,每天首次触发,将领取变量设置为0
            num := This_Player.GetV(99,2);
            AddHP := 60*num; 
            AddHP1 := 40*num;
            AddHP2 := 20*num;
          if num > 1 then
          begin
             case This_Player.Job of
                      0 : //战士
                     begin
                         This_Player.AddPlayerAbil(4, AddHP, 65535);
         This_Player.AddHeroAbil(4, AddHP, 65535);
                         This_Npc.NpcDialog(This_Player,
                         '恭喜你开启成功\'
                     );               
                     end;
                     1 : //法师
                     begin
                         This_Player.AddPlayerAbil(4, AddHP1, 65535);
         This_Player.AddHeroAbil(4, AddHP1, 65535);
                         This_Npc.NpcDialog(This_Player,
                         '恭喜你开启成功\'
                     );               
                     end;
                     2 : //道士
                     begin
                         
                        This_Player.AddPlayerAbil(4, AddHP2, 65535);
        This_Player.AddHeroAbil(4, AddHP2, 65535);
                       
                        This_Npc.NpcDialog(This_Player,
                        '恭喜你开启成功\'
                        );
                     end;
                 end;
          end else
          This_Npc.NpcDialog(This_Player,
                        '你没有转生,无法开启属性\'
                        );
       end;    
          
      procedure _lianti; 
      var today , num,AddHP,AddHP1,AddHP2: integer;
      begin
                                                                                                                                                                                                                                                                                                                                                                                                                    
          if This_Player.GetV(99,1) <> today then     
          begin
             This_Player.SetV(99,1,today);
              This_Player.SetV(99,2,0);
          end;
                   //初始化变量值,每天首次触发,将领取变量设置为0
            num := This_Player.GetV(99,2);
            AddHP := 60*num; 
            AddHP1 := 40*num;
            AddHP2 := 20*num;
          if num < 10 then
          begin
             if (This_Player.MyLFnum >= 50) then
             begin 
              case This_Player.Job of
                     0 : //0是战士
                     begin
                        This_Player.AddPlayerAbil(4, AddHP, 65535);
        This_Player.AddHeroAbil(4, AddHP, 65535);
                        This_Player.DecLF(0, 50, false);
                        This_Player.SetV(99,2, num + 1); //领取变量每领取一次加一
                        This_Npc.NpcDialog(This_Player,
                        '恭喜你炼体成功,当前炼体层数<'+inttostr(num)+'/c=red>层!\'
          +'|{cmd}<继续/@lianti>\'
          +'|{cmd}<取消/@doexit>\'
          );
                     end;
                     1 : //法师
                     begin
                         This_Player.AddPlayerAbil(4, AddHP1, 65535);
        This_Player.AddHeroAbil(4, AddHP1, 65535);
                        This_Player.DecLF(0, 50, false); 
                         This_Player.SetV(99,2, num + 1); //领取变量每领取一次加一 
                         This_Npc.NpcDialog(This_Player,
                         '恭喜你炼体成功,当前炼体层数<'+inttostr(num)+'/c=red>层!\'
          +'|{cmd}<继续/@lianti>\'
          +'|{cmd}<取消/@doexit>\'
          );          
                     end;
                     2 : //道士
                     begin
                         
                        This_Player.AddPlayerAbil(4, AddHP2, 65535);
        This_Player.AddHeroAbil(4, AddHP2, 65535);
                        This_Player.DecLF(0, 50, false);
                        This_Player.SetV(99,2, num + 1); //领取变量每领取一次加一
                        This_Npc.NpcDialog(This_Player,
                        '恭喜你炼体成功,当前炼体层数<'+inttostr(num)+'/c=red>层!\'
          +'|{cmd}<继续/@lianti>\'
          +'|{cmd}<取消/@doexit>\'
          );
                     end;
                 end;
          
             end else
              This_Npc.NpcDialog(This_Player,
              '灵符不足50,无法炼体\'
                     );
          end else
         This_Player.PlayerDialog(
            '<你的炼体层数已经达到顶级,无法继续/c=red>'
            );
      end;
      var today , num,AddHP,AddHP1,AddHP2: integer;
      begin
                                                                                                                                                                                                                                                                                                                                                                                                                    
          if This_Player.GetV(99,1) <> today then     
          begin
             This_Player.SetV(99,1,today);
              This_Player.SetV(99,2,0);
          end;
                   //初始化变量值,每天首次触发,将领取变量设置为0
            num := This_Player.GetV(99,2);
            AddHP := 60*num; 
            AddHP1 := 40*num;
            AddHP2 := 20*num;
          if num < 12 then
       This_Npc.NpcDialog(This_Player,
       '当前炼体层数<'+inttostr(num)+'/c=red>层 封顶<10/c=254>层!\'
        +'|<战士每级增加60点HP/c=251> 当前可获得HP<'+inttostr(num*2)+'/c=red>点\'
        +'|<道士每级增加40点HP/c=252> 当前可获得HP<'+inttostr(num*2)+'/c=red>点\'
        +'|<法师每级增加20点HP/c=253> 当前可获得HP<'+inttostr(num*2)+'/c=red>点\'
        +'|<每次炼体灵符50/c=254>\'
        +'|<人物可获得属性/c=250>\'  
        +'|<属性有限时间10小时,可重复领取/c=251>\'    
        +'|<开启炼体功能需要50灵符:第一次开启不会增加生命值/c=red>\'
       +'|{cmd}<开始炼体/@lianti>   ^<开启属性/@lianti1>' 
        );
      end.

      -
      LV12
      水晶之恋

      自己写的?不是吧,大佬!

      如果巅锋留不住,不如来35学技术

      回复
      LV7
      你端坐在那里,我才知道我有多么浅薄,我曾忘情于两汉的歌赋,我曾惊讶于唐宋诗词,也曾流连于宋元的曲牌。如今而你才是人世间真正的圣人。
      回复
      LV11
      水晶之恋

      这个逼装的我给82分,剩下的用666的方式打给你!

      回复
      LV10
      水晶之恋

      666 感谢大佬分享

      回复

      手游分享板块严查恶意、辱骂、讽刺等评论,如发现此类评论轻则小黑屋,重则永久封禁!

      如果发现帖子违规,用户可以点击帖子标题旁的向下箭头,选择举报内容

      如果联系请站内私信联系,禁止留下QQ,微信等联系方式否则会被系统拦截

      如果想挣取水币,请在[手游分享] [端游分享]版块分享资源赚取水币

      请登录之后再进行评论

      登录
      • 热门排行
    • 任务
    • 管理
    • 回底部
    • 帖子间隔 侧栏位置: