传奇私服发布网提供-升级奖励脚本

2021-05-16 22:34:04 作者:首艺秀传奇网 阅读:102 标签:
下面是(www.syxiu.cn)小编搜集整理的关于传奇私服发布网提供-升级奖励脚本网游攻略,希望能够给大家以帮助。

手游传奇私服发布网提供的升级奖励脚本内容如下:

 

procedure _GetFreeGold;  
var Snum : Integer;//局部语法变量声明
begin
   Snum := GetG(3,2)
     if Snum < 50 then
      begin 
        if This_Player.GetV(13,4) <> 1 then
        begin
            if This_Player.Level >= 50 then
          begin
            if This_Player.FreeBagNum >= 2 then
            begin 
                This_Player.Give('100元宝',2);
                This_Player.Give('50灵符礼包',1);
                This_Player.SetV(13,4,1);
                SetG(3,2,Snum + 1);
                This_NPC.NpcDialog(This_Player,
                '恭喜你领取成功');
            end else
            This_NPC.NpcDialog(This_Player,'你的包裹不足2格') 
          end else
          This_NPC.NpcDialog(This_Player,'你的等级不足50级'); 
        end  else
        This_NPC.NpcDialog(This_Player,'你已领取了奖励');
      end  else
      This_NPC.NpcDialog(This_Player,'50级奖励已全部领取!');
end;

procedure _GetFreeGold1;  //方法
var  Snum1 : Integer;
begin 
   Snum1 := GetG(4,2)
    if Snum1 < 30 then
    begin 
         if This_Player.GetV(14,4) <> 1 then
        begin
          if This_Player.Level >= 52 then
           begin
             if This_Player.FreeBagNum >= 3 then
             begin 
                This_Player.Give('100元宝',3);
                This_Player.Give('100灵符礼包',1);
                This_Player.SetV(14,4,1);
                SetG(4,2,Snum1 + 1);
                This_NPC.NpcDialog(This_Player,
               '恭喜你领取成功');
             end else
             This_NPC.NpcDialog(This_Player,'你的包裹剩余不足3格') 
           end else
            This_NPC.NpcDialog(This_Player,'你的等级不足52级'); 
        end else
        This_NPC.NpcDialog(This_Player,'你已领取了奖励');
    end else
    This_NPC.NpcDialog(This_Player,'52级奖励已全部领取!');
end;

 

 

 

 

procedure _GetFreeGold2;  //方法
var  Snum2: Integer;//局部语法变量声明
begin 
    Snum2 := GetG(5,2)
    if Snum2 < 20 then
    begin 
        if This_Player.GetV(15,4) <> 1 then
        begin
          if This_Player.Level >= 54 then
          begin
            if This_Player.FreeBagNum >= 3 then
            begin 
                This_Player.Give('绑定书页',200);
                This_Player.Give('100灵符礼包',1);
                This_Player.SetV(15,4,1);
                SetG(5,2,Snum2 + 1);
                This_NPC.NpcDialog(This_Player,
               '恭喜你领取成功');
            end else
            This_NPC.NpcDialog(This_Player,'你的包裹剩余不足3格')
          end else
          This_NPC.NpcDialog(This_Player,'你的等级不足54级'); 
        end else
        This_NPC.NpcDialog(This_Player,'你已领取了奖励');
    end else
    This_NPC.NpcDialog(This_Player,'54级奖励已全部领取!');
end;

 

procedure _GetFreeGold3;  //方法
var  Snum3: Integer;//局部语法变量声明
begin
    Snum3 := GetG(6,2)
    if Snum3 < 10 then
    begin 
        if This_Player.GetV(16,4) <> 1 then
        begin
          if This_Player.Level >= 56 then
          begin
            if This_Player.FreeBagNum >= 3 then
            begin 
                This_Player.Give('绑定书页',200);
                This_Player.Give('100灵符礼包',1);
                This_Player.SetV(16,4,1);
                SetG(6,2,Snum3 + 1); 
                This_NPC.NpcDialog(This_Player,
               '恭喜你领取成功');
            end else
            This_NPC.NpcDialog(This_Player,'你的包裹剩余不足3格')
          end else
          This_NPC.NpcDialog(This_Player,'你的等级不足56级'); 
        end else
        This_NPC.NpcDialog(This_Player,'你已领取了奖励');
    end else
    This_NPC.NpcDialog(This_Player,'56级奖励已全部领取!');
end;

procedure _GetFreeGold4;  //方法
var Snum4: Integer;//局部语法变量声明
begin
    Snum4 := GetG(7,2)
    if Snum4 < 5 then
    begin 
        if This_Player.GetV(17,4) <> 1 then
        begin
            if This_Player.Level >= 58 then
          begin
            if This_Player.FreeBagNum >= 3 then
            begin 
                This_Player.Give('绑定书页',200);
                This_Player.Give('100灵符礼包',1);
                This_Player.SetV(17,4,1);
                SetG(7,2,Snum4 + 1);
                This_NPC.NpcDialog(This_Player,
               '恭喜你领取成功');
            end else
            This_NPC.NpcDialog(This_Player,'你的包裹剩余不足3格')
          end else
          This_NPC.NpcDialog(This_Player,'你的等级不足58级'); 
        end else
        This_NPC.NpcDialog(This_Player,'你已领取了奖励');
    end else
    This_NPC.NpcDialog(This_Player,'58级奖励已全部领取!');
end;


procedure _GetFreeGold5;  //方法
var    Snum5: Integer;//局部语法变量声明
begin
    Snum5 := GetG(8,2)
    if Snum5 < 2 then
    begin 
        if This_Player.GetV(18,4) <> 1 then
        begin
            if This_Player.Level >= 60 then
          begin
            if This_Player.FreeBagNum >= 3 then
            begin 
                This_Player.Give('绑定书页',200);
                This_Player.Give('100灵符礼包',1);
                This_Player.SetV(18,4,1);
                SetG(8,2,Snum5 + 1);
                This_NPC.NpcDialog(This_Player,
               '恭喜你领取成功');
            end else
            This_NPC.NpcDialog(This_Player,'你的包裹剩余不足3格')
          end else
          This_NPC.NpcDialog(This_Player,'你的等级不足60级'); 
        end else
        This_NPC.NpcDialog(This_Player,'你已领取了奖励');
    end else
    This_NPC.NpcDialog(This_Player,'60级奖励已全部领取!');
end;

 

 


var Snum , Snum1 , Snum2 , Snum3 , Snum4 , Snum5 : Integer; //主函数入口
begin
    begin
     Snum := GetG(3,2)
     Snum1 := GetG(4,2)
     Snum2 := GetG(5,2)
     Snum3 := GetG(6,2)
     Snum4 := GetG(7,2)
     Snum5 := GetG(8,2)
    end;
    This_NPC.NpcDialog( This_Player,
    '50级奖励:200元宝,50灵符当前剩余数量:   ' + inttostr(50 - Snum) + '\|' +
    '52级奖励:300元宝,100灵符当前剩余数量:  ' + inttostr(30 - Snum1) + '\|' +
    '54级奖励:200书页,100灵符当前剩余数量:  ' + inttostr(20 - Snum2) + '\|' +
    '56级奖励:200书页,100灵符当前剩余数量:  ' + inttostr(10 - Snum3) + '\|' +
    '58级奖励:200书页,100灵符当前剩余数量:  ' + inttostr(5 - Snum4) + '\|' +
    '60级奖励:200书页,100灵符当前剩余数量:  ' + inttostr(2 - Snum5) + '\|' +
    '|{cmd}<50级冲级奖励/@GetFreeGold> ^<52级冲级奖励/@GetFreeGold1>\'  +
    '|{cmd}<54级冲级奖励/@GetFreeGold2> ^<56级冲级奖励/@GetFreeGold3>\' + 
    '|{cmd}<58级冲级奖励/@GetFreeGold4> ^<60级冲级奖励/@GetFreeGold5>'
 );
end.

 

复制以上内容,然后新建一个传奇私服升级奖励NPC,把内容复制进去即可!希望对小伙伴们有所帮助!


本编文章链接:http://www.syxiu.cn/gaobao/508.html
郑重声明:部分文章来源于网络,仅作为参考,如果网站中图片和文字侵犯了您的版权,请联系我们处理!

上一篇:手游传奇SF新手攻略

下一篇:传奇公益服,手机游戏sf发布网

相关推荐


关注我们

    养殖诗词网
返回顶部