用于战神引擎的测试奖励NPC脚本，GM可以在NPC上直接切换正式和测试模式，如果要记录玩家测试数据，记得开启测试模式，脚本为明文版，需要脚本、盘古、记录文件都配置对了才能正常工作。

部分脚本

procedure P1504;
var
accstr,raccstr:string;
i:integer;
begin
    accstr:=This_NPC.InputStr;
	raccstr:=This_NPC.InputStr;
	for i:=52 to 56 do
	begin
	if This_Npc.ChkStrInFile('\one\zh.txt',raccstr) = true then
		begin
		This_Player.SetV(77,78,i); //检测最高等级
		//This_Npc.DelStrFromFile('\one\'+inttostr(This_Player.getv(77,76))+'.txt', raccstr);
		end
	end
	if (This_Player.Level = 52) and (This_Npc.ChkStrInFile('\one\zh.txt',raccstr) = true) then
	begin
	//This_Npc.DelStrFromFile('\one\52.txt', raccstr);
	This_Npc.AddStrtoFile('\one\52.txt', accstr);
	This_NPC.NpcDialog(This_Player,'刷新成功，你登记等级为<52>级！'
);
end else
	if (This_Player.Level = 54) and (This_Npc.ChkStrInFile('\one\zh.txt',raccstr) = true) then
	begin
	This_Npc.DelStrFromFile('\one\52.txt', raccstr);
	//This_Npc.DelStrFromFile('\one\49.txt', raccstr);
	This_Npc.AddStrtoFile('\one\54.txt', accstr);
	This_NPC.NpcDialog(This_Player,'刷新成功，你登记等级为<54>级！'
);
end else
	if (This_Player.Level = 56) and (This_Npc.ChkStrInFile('\one\zh.txt',raccstr) = true) then
	begin
	This_Npc.DelStrFromFile('\one\52.txt', raccstr);
	This_Npc.DelStrFromFile('\one\54.txt', raccstr);
	//	This_Npc.DelStrFromFile('\one\5.txt', raccstr);
	This_Npc.AddStrtoFile('\one\56.txt', accstr);
	This_NPC.NpcDialog(This_Player,'刷新成功，你登记等级为<56>级！'
);
end else
	if (This_Player.Level >= 100) and (This_Npc.ChkStrInFile('\one\zh.txt',raccstr) = true) then
	begin
	This_Npc.DelStrFromFile('\one\47.txt', raccstr);
	This_Npc.DelStrFromFile('\one\49.txt', raccstr);
		This_Npc.DelStrFromFile('\one\51.txt', raccstr);
			This_Npc.DelStrFromFile('\one\53.txt', raccstr);
	This_Npc.AddStrtoFile('\one\55.txt', accstr);
		This_Npc.DelStrFromFile('\one\zh.txt', raccstr);
	This_NPC.NpcDialog(This_Player,'刷新成功，你登记等级为<55>级！'
);
	end else
	This_NPC.NpcDialog(This_Player,'没有找到你的账号或者你没有登记');
end; 
procedure _GMchange1; 
begin
	SetG(79,10,0);
	This_NPC.NpcDialog(This_Player,'切换为测试区');
end;
procedure _GMchange2; 
begin
	SetG(79,10,1);
	This_NPC.NpcDialog(This_Player,'切换为正式区');
end;
procedure _recodimg; 
  begin
 	This_Npc.InputDialog(This_Player,'输入你的账号登记',0,1303);
end;	
procedure P1303; //记录
var
accstr:string;
i,zh:integer;
Begin
	accstr:=This_NPC.InputStr;
	for i:=52 to 56 do
	begin
	if This_Player.Level >= i then
		begin
		This_Player.SetV(77,78,i);   //检测最高等级
		end
	end
	if (This_Player.GetV(77,78) >= 52) and (This_Player.getv(77,75) <> 1) then
	begin
	This_Npc.AddStrtoFile('\one\'+inttostr(This_Player.getv(77,78))+'.txt', accstr);
	This_Npc.AddStrtoFile('\one\zh.txt', accstr);
	This_NPC.NpcDialog(This_Player,'登记成功');
	This_Player.SetV(77,75,1);  //记录标识标量
	end else
	This_NPC.NpcDialog(This_Player,'等级不足或已经登记过了！');
end;