• 中文
  • 注册
  • 战神引擎
  • 今日 0
  • 帖子 136
  • 关注 22
  • 脚本 脚本 关注:22 内容:136

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

  • 查看作者
  • 打赏作者
  • 拉黑名单
  • 当前位置: 35博客圈子 > 战神引擎 > 脚本 > 正文
    • 脚本
    • Lv.8 心有灵茜
      博主

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

      {     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.

      -
      Lv.6 亦如芳菲

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

      回复
      Lv.7 亦见倾心
      你端坐在那里,我才知道我有多么浅薄,我曾忘情于两汉的歌赋,我曾惊讶于唐宋诗词,也曾流连于宋元的曲牌。如今而你才是人世间真正的圣人。
      回复

      请登录之后再进行评论

      登录
    • 做任务
    • 偏好设置
    • 到底部
    • 帖子间隔 侧栏位置: