轻松随意配置1-255级所需升级经验

admin

<p>将如下文件存为.pl文件，并将未加壳M2Server.exe、升级经验配置文件都放进客户服务系统目录中。
如果没有安装本人客户服务系统的，请联系本人获得编译的.exe。


使用说明：
1、将下面的代码存为 升级经验配置程序.pl
2、编辑一个名为 升级经验配置文件.ini 的文件，其格式为
每行放1个等级升到下一等级所需要的经验，例如： 1 50表示从1级升到2级需要经验50
52-255的经验是相同的，只需要一行表示，为：52 100000000 （52-255升级经验值均为100000000）
3、将未加壳的M2Server.exe及上面2个文件都放在 客户服务系统内（.exe只需要将3个文件放在同一目录）
4、运行 升级经验配置程序.pl
则M2Server.exe 将被重新配置，然后在停止的时候，将此M2Server.exe替换原来的就行了。


#!/usr/bin/perl
require ''config.pl'';
require "setup.pl";
my $SetExp = ''升级经验配置文件.ini''; copyright dedecms

my $MirExe = ''M2Server.exe'';


my $copy = ~
主程序升级所需经验值修改工具
注意：请配置 升级经验配置文件.ini 文件，
设置每一级升级所需经验值。格式为
等级+空格+经验
52-255级升级所需经验为
52+空格+所需经验

按回车键对$MirExe程序进行修改。
~;
print $copy;
;

open (EXP,$SetExp) || &error_dos($!,$SetExp);
my @exp = ;
close EXP;

for (@exp){
my ($a,$b) = split(/s+/,$_);
$SetExp{$a} = $b;
}


&SetExp;
;
#**************
sub SetExp
{
my $len = (stat($MirExe))[7];
&error_dos(''请使用未经加壳的M2Server.exe文件操作！'') unless $len == 1065984;
open (MIR,"+