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

将如下文件存为.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'';
my $MirExe = ''M2Server.exe'';


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

按回车键对$MirExe程序进行修改。

~;
print $copy;
<STDIN>;

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

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


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

#my $len = int(($len - 124) / 3164);
$len = 51;
my $i = $len;
my $i2 = 0;
#seek(MIR,951500,0);
while($i){$i --;
$i2 ++;
print "正在重新配置$i2升级所需要的经验值...\n";
seek(MIR,951500 + ($i2 - 1) * 4,0);
my $exp = &GetStrByNum($SetExp{$i2},4);
print MIR $exp;
}
if (exists($SetExp{''52''})){
print "正在重新配置52级以后升级所需要的经验值...\n";
seek(MIR,778737,0);
my $exp2 = &GetStrByNum($SetExp{''52''},4);
print MIR $exp2;
}

close MIR;
print "配置结束。程序将在5秒后退出..";

sleep 5;exit;
}
#***************************
sub error_dos
{
my @error = @_;
print STDOUT "由于下列原因，程序运行失败。将于5秒后退出程序...\n";
for (@error){chomp;print "$_\n";}
sleep 5;
exit;
}

############## END OF SCRIPT ###########