战神引擎玩家领取装备+元宝+等级+技能等Npc脚本

用于战神引擎玩家无条件领取装备+元宝+等级+技能+提升技能等级Npc脚本，脚本主要用于新作的版本，邀请玩家前来测试，无条件领取这些装备，然后开始测试，正式运营肯定要删除这个NPC，脚本牵扯到了2份文件，添加的时候，记得单独操作，不能把原先版本里面的文件覆盖掉。

部分脚本

This_Player.ScriptRequestAddYBNum(10000);    
 end;
  procedure _shengwang; 
  begin
This_Player.MyShengwan := This_Player.MyShengwan + 10000;
 end;
procedure _goToMonMap; 
  begin
		if This_Player.FreeBagNum > 8 then
	begin	  
case This_Player.Job of
               0 : 
               begin
			 This_Player.Give('龙啸',1);
			 This_Player.Give('火龙头盔(战)',1);
			 This_Player.Give('火龙项链(战)',1);
			 This_Player.Give('火龙护腕(战)',2);
			 This_Player.Give('火龙戒指(战)',2);
			 This_Player.Give('火龙靴子(战)',1);
			 This_Player.Give('火龙腰带(战)',1);
			 This_Player.Give('火龙勋章',1);
			 This_Player.Give('火龙盾',1);
                   if This_Player.Gender = 0 then
                   This_Player.Give('火龙战甲(男)',1)
                   else
                   This_Player.Give('火龙战甲(女)',1);
               end;
               1 : 
               begin
			 This_Player.Give('龙吟',1);
			 This_Player.Give('火龙头盔(法)',1);
			 This_Player.Give('火龙项链(法)',1);
			 This_Player.Give('火龙护腕(法)',2);
			 This_Player.Give('火龙戒指(法)',2);
			 This_Player.Give('火龙靴子(法)',1);
			 This_Player.Give('火龙腰带(法)',1);
			 This_Player.Give('火龙勋章',1);
			 This_Player.Give('火龙盾',1);
                   if This_Player.Gender = 0 then
                   This_Player.Give('火龙魔铠(男)',1)
                   else
                   This_Player.Give('火龙魔铠(女)',1);
               end;
               2 : 
               begin
			 This_Player.Give('龙魄',1);
			 This_Player.Give('火龙头盔(道)',1);
			 This_Player.Give('火龙项链(道)',1);
			 This_Player.Give('火龙护腕(道)',2);
			 This_Player.Give('火龙戒指(道)',2);
			 This_Player.Give('火龙靴子(道)',1);
			 This_Player.Give('火龙腰带(道)',1);
			 This_Player.Give('火龙勋章',1);
			 This_Player.Give('火龙盾',1);
                   if This_Player.Gender = 0 then
                   This_Player.Give('火龙道衣(男)',1)
                   else
                   This_Player.Give('火龙道衣(女)',1);
               end;
           end;
   end else
    This_Npc.NpcDialog(This_Player,
    '你的背包不足12个格子。\ \|{cmd}<返回/@main>');
      end; 
procedure domain;  
begin 
     This_NPC.NpcDialog(This_Player,  
  '|赠送物品：76级，1万元宝，1万声望！\\'+
  '|赠送装备：<各职业火龙装备一套/SCOLOR=70>\\'+
    +'|{cmd}<领取装备/@goToMonMap> <领取等级/@jingyan> \' 
    +'|{cmd}<领取元宝/@yuanbao> <领取声望/@shengwang> \' 
    +'|{cmd}<领取技能/@lqjineng> <升级技能/@jineng> \' 
    );  
end;  
begin 
 domain;  
end.

分享到：

赞(0)