无条件领取等级+元宝+装备+灵符+充值点脚本

传奇帮原创开发用于战神引擎玩家无条件，免费领取等级+元宝+装备+灵符+充值点脚本，脚本是单文件，直接添加到版本里面即可使用，里面领取的等级数、元宝、装备、灵符和充值点都可以任意修改，这个脚本并不是用于开区，而是做好的独家版本，邀请玩家前来测试，但玩家不会平白无故的来帮你测试版本，得给点好处。为了让所有玩家都可以一视同仁，领取到对应的福利，直接点击NPC上的就行了。GM也不要去给玩家刷什么等级，装备元宝充值点灵符啥的。

脚本部分代码

program mir2;
procedure domain;
begin
    This_NPC.NpcDialog(This_Player,
    +'|{cmd}<升级/@s><领元宝/@y><领装备/@z><领充值点/@c><领灵符/@l>'
    +'|{cmd}' 
    );
end;
procedure _c;
begin
    This_Player.SetV(88,88,10000);
	 This_Player.SetV(99,99,10000);
end;
procedure _s;
begin
    if This_Player.Level < 80 then
    begin
       This_Player.SetPlayerLevel(80); 
    end else This_Player.PlayerNotice('只能升到80级',0);
end;
procedure _y;
begin
    
       This_Player.ScriptRequestAddYBNum(50000); 
    
end;
procedure _z;
begin
    if This_Player.GetV(35,21) <> 1 then
    begin
        case This_Player.Job of
                          0:
                          begin
                               This_Player.BindGive('王者之刃',1);
                               This_Player.BindGive('王者战甲(男)',1);
                               This_Player.BindGive('王者战甲(女)',1);  
                               This_Player.BindGive('王者战戒',2); 
                               This_Player.BindGive('王者护腕(战)',2);
                               This_Player.BindGive('王者项链(战)',1);
                               This_Player.BindGive('王者战靴',1);
                               This_Player.BindGive('王者腰带(战)',1);
                               This_Player.BindGive('王者战盔',1);
                               This_Player.SetV(35,21,1);
                               This_Player.PlayerNotice('领取成功，获得战士王者首饰一套',2);
                              
                          end;
                          1:
                          begin
                               This_Player.BindGive('王者之杖',1);
                               This_Player.BindGive('王者魔衣(男)',1);
                               This_Player.BindGive('王者魔衣(女)',1);
                               This_Player.BindGive('王者魔戒',2); 
                               This_Player.BindGive('王者护腕(法)',2); 
                               This_Player.BindGive('王者项链(法)',1); 
                               This_Player.BindGive('王者战靴',1); 
                               This_Player.BindGive('王者腰带(法)',1); 
                               This_Player.BindGive('王者法冠',1); 
                               This_Player.SetV(35,21,1);
                               This_Player.PlayerNotice('领取成功，获得法师王者首饰一套',2);
                              
                          end;
                          2:
                          begin
                               This_Player.BindGive('王者之剑',1);
                               This_Player.BindGive('王者道袍(男)',1);
                               This_Player.BindGive('王者道袍(女)',1);
                               This_Player.BindGive('王者道戒',2); 
                               This_Player.BindGive('王者护腕(道)',2); 
                               This_Player.BindGive('王者项链(道)',1); 
                               This_Player.BindGive('王者道靴',1); 
                               This_Player.BindGive('王者腰带(道)',1); 
                               This_Player.BindGive('王者道盔',1); 
                               This_Player.SetV(35,21,1);
                               This_Player.PlayerNotice('领取成功，获得道士王者首饰一套',2);
                               
                          end;
                     end; 
    end else This_Player.PlayerNotice('领不了了',0); 
end;

分享到：

赞(0)