广告位

您现在的位置是:主页 > 传奇手游资讯 >

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

2020-05-06 10:12传奇手游资讯 人已围观

简介传奇私服发布网每日更新大量的开区内容...

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

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;

Tags:

广告位
    广告位
    广告位

标签云

站点信息

  • 文章统计27篇文章
  • 标签管理标签云
  • 微信公众号:扫描二维码,关注我们