用于战神引擎测试奖励Npc脚本，脚本使用方式非常的简单，玩家可以无条件领取经验，书页、装备、金条、元宝、声望等，明文版的脚本可以任意修改里面的内容。脚本牵扯了2分变量文件，需要单独植入到新版本里面。

部分脚本

PROGRAM Mir2;
{$I TaoZhuang.pas}
{$I common.pas}
Procedure _doexit;
begin
   This_Npc.CloseDialog(This_Player);
end;
procedure domain;
begin
    This_NPC.NpcDialog(This_Player,
       '☆☆欢迎来到本传奇☆☆\'
         +'| 能看到我说明这个现在属于测试阶段，可以无限领取!！\'
		    	+'|{cmd}<领取书页100张/@cj110>\'
				+'|{cmd}<领取沃玛装备/@cj2>\'
				+'|{cmd}<领取金条/@cj3>\'
				+'|{cmd}<领取1000元宝/@cj4>\'		
				+'|{cmd}<领取20E经验/@cj5>\'	
              +'|{cmd}<领取100点声望/@cj1>\'					
				);
end;
procedure _cj110;
begin
    if This_Player.FreeBagNum >= 1 then
  begin
	This_Player.Give('书页',100);
    This_Npc.NpcDialog(This_Player,
    +'|{cmd}<继续领取/@cj2>\ \'
    +'|{cmd}<取消/@doexit>\ \'
    );
  end
  else
  begin
    This_Npc.NpcDialog(This_Player,
    '确定你身上还有一个格子在来找我领取！！');
  end;
end;
procedure _cj1;
begin
    if This_Player.FreeBagNum >= 1 then
  begin
	This_Player.Give('100点声望卷',1);
    This_Npc.NpcDialog(This_Player,
    '您已经成功烈焰战熊卷...\'
    +'|{cmd}<继续领取1000元宝/@cj2>\ \'
    +'|{cmd}<取消/@doexit>\ \'
    );
  end
  else
  begin
    This_Npc.NpcDialog(This_Player,
    '确定你身上还有一个格子在来找我领取！！');
  end;
end;
procedure _cj2;
begin
    if This_Player.FreeBagNum >= 1 then
  begin
    This_Player.Give('生命项链',1);
	This_Player.Give('幽灵项链',1);
    This_Player.Give('铂金戒指',1);
	This_Player.Give('天珠项链',1);
	This_Player.Give('思贝儿手镯',1);
	This_Player.Give('记忆项链',1);
	This_Player.Give('记忆头盔',1);
	This_Player.Give('红宝石戒指',1);
	This_Player.Give('幽灵手套',1);
	This_Player.Give('龙之戒指',1);
    This_Npc.NpcDialog(This_Player,
    '您已经成功烈焰战熊卷...\'
    +'|{cmd}<继续领取1000元宝/@cj2>\ \'
    +'|{cmd}<取消/@doexit>\ \'
    );
  end
  else
  begin
    This_Npc.NpcDialog(This_Player,
    '确定你身上还有一个格子在来找我领取！！');
  end;
end;