新手领取开荒装备Npc脚本(三职业+祖玛套)

用于战神引擎的新手领取开荒装备Npc脚本，脚本支持三职业，默认是祖玛套，无条件领取，每一个角色可以领取一次，用于给玩家开荒使用，脚本是明文版，可以任意修改里面的物品名单，适合大部分复古微变的版本，脚本带了进入游戏欢迎语。

部分脚本

procedure _moveBQ;
begin
   if (This_Player.level >= 35 ) and (This_Player.GetV(398,1) >= 1 ) then
begin
     This_Player.Flyto('3',335 + random(3) - 1,372 + random(3) - 1);
	 ServerSayPlus('★★★欢迎玩家     <' + This_Player.Name + '>     登录武易传奇，官方网址www.8h4.com！★★★');
end else
   begin
      This_NPC.NpcDialog(This_Player,
      '前方的道路很是凶险，\'+
      '你还没有领取装备或等级没到35级，无法前往。');
  end;
end;
procedure _LetGet;
begin
   if This_Player.GetV(25,1) <> 1 then
begin
    if This_Player.FreeBagNum > 8 then
    begin
			This_Player.SetV(25,1,1);
      case This_Player.Job of
        0: 
        begin 
				  This_Player.SysGiveGift('召唤天兵',2,true);
		          This_Player.SysGiveGift('金盒',1,true);
				  This_Player.Give('裁决之杖',1);
				  This_Player.Give('骷髅头盔',1);
		          This_Player.Give('绿色项链',1);
				  This_Player.Give('骑士手镯',2);
				  This_Player.Give('力量戒指',2);
		          //This_Player.SysGiveGift('助力礼包(1)',1,true);	
                  This_Player.SetV(398,1,1);				  
                   if This_Player.Gender = 0 then
                   This_Player.Give('战神盔甲(男)',1)
                   else
                   This_Player.Give('战神盔甲(女)',1);
        end;
        1: 
        begin
                  This_Player.SysGiveGift('召唤天兵',2,true);
		          This_Player.SysGiveGift('金盒',1,true);
				  This_Player.Give('骨玉权杖',1);
				  This_Player.Give('法神头盔',1);
		          This_Player.Give('法神项链',1);
				  This_Player.Give('水域手镯',2);
				  This_Player.Give('法神戒指',2);
		          //This_Player.SysGiveGift('助力礼包(1)',1,true);
                  This_Player.SetV(398,1,1);					  
                   if This_Player.Gender = 0 then
                   This_Player.Give('恶魔长袍(男)',1)
                   else
                   This_Player.Give('恶魔长袍(女)',1);
        end;
        2: 
        begin
		          This_Player.SysGiveGift('召唤天兵',2,true);
		          This_Player.SysGiveGift('金盒',1,true);
				  This_Player.Give('龙纹剑',1);
				  This_Player.Give('天尊头盔',1);
		          This_Player.Give('土域项链',1);
				  This_Player.Give('土域手镯',2);
				  This_Player.Give('泰坦戒指',2);				  
		          //This_Player.SysGiveGift('助力礼包(1)',1,true);
                  This_Player.SetV(398,1,1);	
                   if This_Player.Gender = 0 then
                   This_Player.Give('幽灵战衣(男)',1)
                   else
                   This_Player.Give('幽灵战衣(女)',1);
        end;
      end; 
    end 
    else
    begin
      This_Player.PlayerDialog(
      '对不起，包裹空间不足，请预留8个以上再次开启！'
      ); 
	  		end;
	  		end else
		begin
		This_Player.PlayerNotice('您已经领取过装备！',2);
    end; 
end;
   begin
      This_NPC.NpcDialog(This_Player,
     +'|<欢迎来到/fcolor=100><江湖武易传奇!><在这里,您将体验到最精彩的手游/fcolor=100>\'
     +'|<关注传奇帮官网：www.8h4.com> <惊喜不断！/fcolor=100>\'
     +'|<我们为您提供了新鲜的玩法/fcolor=100><20级><之前，您可/fcolor=100>\'
     +'|<以在本地图锻炼自己。/fcolor=100>\'
     +'|<请带上我们为您精心准备的/fcolor=100><新手装备><马上领取→/@LetGet>\'
     +'|{cmd}<前往盟重土城/@MoveBQ>'
      );
   end.

分享到：

赞(0)