战神引擎传奇手游私服设置开区补偿脚本

大部分游戏管理员都会在开区前先测试，等正式开区后就会清理数据。但是这样的弊端就是会流失部分玩家，为了更好的留住传奇私服玩家，那么添加这个脚本的意义就很明显了。

言归正传，这里就跟大家介绍下此脚本的用法。

1  需要在客户端Mir200\Envir下面新建3个空白txt ：32.txt  35.txt 38.txt，
通过函数接口把玩家名字加入txt中
即使重新开区G,V,S变量全部初始化也对其无影响。
2  测试区使用  测试奖励-3.pas    正式区使用 测试奖励-3.pas，改成同一个名字

3 本人只测试了函数接口，都是能够有效添加名字进txt中及删除
其他的请大家自己测试，这个脚本功能可以衍生出很多的脚本用途哟。

 测试奖励-3.pas  这个NPC脚本的代码如下，复制进去即可：

PROGRAM Mir2;

Procedure _doexit;
begin
   This_Npc.CloseDialog(This_Player);
end;

procedure domain;
begin
    This_NPC.NpcDialog(This_Player,
    '欢迎来到战神热血传奇！现在是测试阶段 在测试阶段\'
 +'|等级到达32级，35级，38级在我这里登记，开区就可以在我这里领取 \'
  +'|32级30W，35级80W，38级150万补偿！\'
 +'|{cmd}<我到了32级/@se>        ^<我到了35级/@sw>    ^<我到了38级/@sb> \');
end;
procedure _se;
begin
      if This_Player.Level >=32 then //检测文档有有该玩家名字 
       begin 
      if This_Npc.ChkStrInFile('32.txt', This_Player.Name) = false  then  //检测文档没有有该玩家名字 
        begin                           
      This_Npc.AddStrToFile('32.txt', This_Player.Name); {添加该玩家名字到 
         Mir200\Envir下的32.txt中 ，32.txt需要自己建一个 
         } 
        end
       else
         This_NPC.NpcDialog(This_Player,'你已经登记过了!');
       end
       else  This_NPC.NpcDialog(This_Player,'你的等级没有达到32级'); 
 end; 
procedure _sw;
begin
      if This_Player.Level >=35 then //检测文档有有该玩家名字 
       begin 
      if This_Npc.ChkStrInFile('35.txt', This_Player.Name) = false  then  //检测文档没有有该玩家名字 
        begin                           
      This_Npc.AddStrToFile('35.txt', This_Player.Name); {添加该玩家名字到 
         Mir200\Envir下的35.txt中 ，35.txt需要自己建一个 
         } 
        end
       else
         This_NPC.NpcDialog(This_Player,'你已经登记过了！');
       end
       else  This_NPC.NpcDialog(This_Player,'你的等级没有达到35级!'); 
 end; 
 
procedure _sb;
begin
      if This_Player.Level >=38 then //检测文档有有该玩家名字 
       begin 
      if This_Npc.ChkStrInFile('38.txt', This_Player.Name) = false  then  //检测文档没有有该玩家名字 
        begin                           
      This_Npc.AddStrToFile('38.txt', This_Player.Name); {添加该玩家名字到 
         Mir200\Envir下的38.txt中 ，38.txt需要自己建一个 
         } 
        end
       else
         This_NPC.NpcDialog(This_Player,'你已经登记过了！');
       end
       else  This_NPC.NpcDialog(This_Player,'你的等级没有达到38级!'); 
 end; 
begin
domain;
end.