• 注册
  • 投稿
    • 中文
    • English
  • 注册
  • 【技术教程】 【技术教程】 关注:9 内容:367

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

  • 查看作者
  • 打赏作者
    • 【技术教程】
    • Lv.14
      永久会员
      大富豪

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

      1
      2
      3
      4
      5
      6
      7
      8
      9
      10
      11
      12
      13
      14
      15
      16
      17
      18
      19
      20
      21
      22
      23
      24
      25
      26
      27
      28
      29
      30
      31
      32
      33
      34
      35
      36
      37
      38
      39
      40
      41
      42
      43
      44
      45
      46
      47
      48
      49
      50
      51
      52
      53
      54
      55
      56
      57
      58
      59
      60
      61
      62
      63
      64
      65
      66
      67
      68
      69
      70
      71
      72
      73
      74
      75
      76
      77
      78
      79
      80
      81
      82
      83
      84
      85
      86
      87
      88
      89
      90
      91
      92
      93
      94
      95
      96
      97
      98
      99
      100
      101
      102
      103
      104
      105
      106
      107
      108
      109
      110
      111
      112
      113
      114
      115
      116
      117
      118
      119
      120
      121
      122
      123
      124
      125
      126
      127
      128
      129
      130
      131
      132
      133
      134
      135
      136
      137
      138
      139
      140
      141
      142
      143
      144
      145
      146
      147
      148
      {     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 >= 50then
             begin 
              case This_Player.Job of
                     0 //0是战士
                     begin
                        This_Player.AddPlayerAbil(4, AddHP, 65535);
        This_Player.AddHeroAbil(4, AddHP, 65535);
                        This_Player.DecLF(050false);
                        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(050false); 
                         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(050false);
                        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.

      请登录之后再进行评论

      登录
    • 做任务
    • 帖子间隔 侧栏位置: