|
| 软件名称 |
复制装备检测工具 |
大小 |
1020K |
整理时间 |
$Date |
| 说明 |
刚刚完工，在我的小容量Mir.DB上测试通过。
没有安装ActivePerl的请下载.exe版本：
http://renshouren.com/download/myfile/DelStditems2.exe
物品清理套装（批量清除指定物品工具、批量清除复制物品工具、清空所有物品保留等级等属性工具）下载：
http://renshouren.com/download/myfile/DelStditems.rar
#!/usr/bin/perl
my $copy = qq~
#################################
#
# 传奇复制物品自动批量删除工具
# 较耗费系统资源，请先做好备份并停止游戏服务器运行
#
# 本工具需要系统安装perl解析器,将此源码保存为.pl文件，直接运行
#
#################################
~;
print $copy;
print "请回车确认操作开始：";
;
print "\n正在读入数据库，这可能需要几秒种，请稍等..\n";
my $MIRDB = 'D:/MirServer/mud2/DBSrv200/FDB/Mir.DB';
open (MIR,$MIRDB);
binmode(MIR);
my @mir = ;
my $mir = join("",@mir);
undef(@mir);
my (%stditem,%stditem2);
my $insert = "\x00" x 24;
substr($mir,0,124) = '';
my $i = int(length($mir) / 3164);
my $i0 = $i;
print "成功读取$i个角色数据，准备操作...\n";
my $i2 = 0;
while ($i){$i --;
print "搜索并检查第$i2个角色的物品...","\n";
my $this = substr($mir,0,3164);
substr($mir,0,3164) = '';
my $i3 = 49;
my $this1 = substr($this,484,1176);
my $this2 = substr($this,1964,960);
while($i3){
$i3 --;
substr($this1,0,24) = '';
my $a = substr($this1,0,4);
next if $a eq "\x00\x00\x00\x00";
$stditem2{&GetAscByBin($a)} = 1 if exists($stditem{$a});
$stditem{$a} = 1;
}
$i3 = 40;
while($i3){
$i3 --;
substr($this2,0,24) = '';
my $a = substr($this2,0,4);
next if $a eq "\x00\x00\x00\x00";
$stditem2{&GetAscByBin($a)} = 1 if exists($stditem{$a});
$stditem{$a} = 1;
}
$i2 ++;
}
close MIR;
&deleteitem(%stditem2);
#***************************
sub deleteitem
{
my %stditem2 = @_;print "\n";
$stditem2{0} = undef;
open (MIR,"+<$MIRDB");
binmode(MIR);
my @mir = ;
my $mir = join("",@mir);
undef(@mir);
my $insert = "\x00" x 24;
substr($mir,0,124) = '';
my $i = int(length($mir) / 3164);
print "已经得到复制品列表，接下来将准备删除复制物品，请等待...\n";
my ($i2,$i4) = (0,0);
while ($i){$i --;
print "搜索并处理第$i2个角色的物品...","\n";
my $this = substr($mir,0,3164);
substr($mir,0,3164) = '';
seek(MIR,3164 * $i2 + 124,0);
seek(MIR,484 + 24,1);
my $i3 = 49;
my $this1 = substr($this,484,1176);
my $this2 = substr($this,1964,960);
while($i3){
$i3 --;my $seek;
substr($this1,0,24) = '';
my $a = substr($this1,0,4);
if ($stditem2{&GetAscByBin($a)}){$seek = 1;print MIR $insert;$i4 ++;}
seek(MIR,24,1) unless $seek;
}
$i3 = 40;
seek(MIR,304,1);
while($i3){
$i3 --;my $seek;
substr($this2,0,24) = '';
my $a = substr($this2,0,4);
if ($stditem2{&GetAscByBin($a)}){$seek = 1;print MIR $insert;$i4 ++;}
seek(MIR,24,1) unless $seek;
}
$i2 ++;
}
close MIR;
print "总共删除 $i4 件复制物品，按回车退出程序。";
;
}
#***********
sub GetAscByBin
{
my $res = shift;
my $res2 = 0;
my $len = length($res);
while($len){
$len --;
$res2 += ord(substr($res,$len,1)) * (2 ** (8 * $len));
}
return $res2;
}
#********
sub GetStrByNum
{
my ($num,$len) = @_;
my $i = 1;
my $res;
while ($i){
my $a = 2 ** ($i * 8);
last if $a > $num;
$i ++;
}
$len = $i unless $len;
&error("不能转换数字，因为长度超过限定。") if $i > $len;
my $i2 = $len - $i;
while ($i){
my $a = 2 ** (($i - 1) * 8);
my $this = int ($num / $a);
$res = chr($this) . $res;
$num = $num % $a;
$i --;
}
$res .= "\x00" x $i2;
return $res;
}
########## END SCRIPT #############
|
|
| 软件名称 |
GM命令查看修改器 |
大小 |
178K |
整理时间 |
$Date |
| 说明 |
GM命令查看修改器
|
|
| 软件名称 |
动态人物属性修改器 |
大小 |
18K |
整理时间 |
$Date |
| 说明 |
人物属性修改器 v1.1
打开Mir.db文件，读取玩家资料进行修改，不错的绿色软件，功能虽不多但很实用。
|
|
|
| 软件名称 |
asp在线取回密码充值系统 |
大小 |
387K |
整理时间 |
$Date |
| 说明 |
将本文件解压到你的任意目录
在IIS中新建立一个虚拟目录指向本目录
运行reg.bat
修改IDDB.INC中的
将iddbpath改成你的用户数据库ID。DB的实际路径
将feedid 改成你的FEEDIDLIST文件的路径
修改conn。asp
将DBPath下的mirsf.asp修改成另外一个名称，防止别人下载你的数据库
将admin的值改成其他任意名称，防止别人利用COOKIER登陆你的系统
OK了，
充直系统为包月收费后台处理程序在收费系统目录下
功能介绍:
1\支持包月收费的后台处理
2\每天晚上12:00自动处理一次用户的数据
3\稳定可靠
4\请在冲值时用户当月时间计算不可为0或空,最小值为1
使用说明:
下载完毕后解压缩后,打开SETUP.INI文件设置你的收费数据文件地址即可!
例如：[设置]
用户数据文件=E:\mir3\share\FeedIDList.txt （设置成你的FeedIDList.txt文件的路径）
本版本只支持包天数的， 包月(天)不可为0数值！
运行收费系统后台程序，就可以了
--
你只要用管理员用户进入生成卡号就会自动生成100个卡号噶
用户只要进入用户界面，查看未使用卡号就可以知道卡号密码了，当然你如果不希望大家
看到卡号密码，把我留在哪里的’ 去掉。
激活的用户和游戏中的用户是一致的。
密码找回功能是自动把2个问题提出来，只要2个都回答正确就可以得到答案！
因为需要的朋友多，所以再次修正了这个版本
我想BUG肯定多多，大家要碰到什么问题
有什么好的建议都可以到我的网站留言哈。
用ACCESS打开MIRSF.asp把管理员密码，和ID你自己随便改
默认为krish 123456
www.szgame.net
---------------------------------------by krish-----------------------
感谢云中帆，本系统利用了他的2.0控件 |
|
| 软件名称 |
传奇私服修改版,火龙洞,幽灵船,及装备和怪物 |
大小 |
12.6 MB |
整理时间 |
$Date |
| 说明 |
新加入火龙洞、蛮荒部落及两地怪物！
1、加强道士宝宝 神兽招2只 麒麟招1只
2、个人金币上线改为 1500W
3、沙巴克不能刷钱了，每天收入上线改为1500W
4、修改升级经验，怪物部分修改级别，冲到255不是难题 52级以后经验为88888888
5、添加新地图，火龙洞，蛮荒，幽灵船
6、添加新怪物与火龙洞、蛮荒配套N多 包括 火龙神和冰龙神！！
7、怪物暴钱数最大为2W
24小时固定地址：
http://www.lygames.com/down/mirserver.rar
解压密码：6688
不带火龙洞的补丁： http://202.105.131.182:8080/bbs/mir/sf/newwuyouhesui.rar
<<新增物品>>: 宙神头盔,贝迪头盔,道域头盔,勇士头盔,无忧盔甲(男),无忧盔甲(女),无忧战衣(男),无忧战衣(女),无忧魔袍(男),无忧魔袍(女),二环刀,无忧残纹,无忧法仗,天尊之扇,藏月刀,索命,欲望法杖,多情,怒斩,马甲(男),马甲(女),绿色裁决,魔蛇,天道棍,斩月剑,圣战盔甲(男),圣战盔甲(女),天尊战衣(男),天尊战衣(女),法神魔袍(男),法神魔袍(女),斩天,法杖,碧玉权杖,红缨枪,血饮狂刀,疆域之杖,玉竹扇,金域法杖,绿玉裁决,倚天圣剑,圣战头盔(战),圣战头盔(法),圣战头盔(道),圣战项链(战)....... |
|
|
| 软件名称 |
DBCommander 2000和DBC破解程序 |
大小 |
6.50 MB |
整理时间 |
$Date |
| 说明 |
DBC安装说明：
1)安装DBCommander 2000 Pro(就是这个文件)
2) 打开控制面板
3) 打开BDE Administrator‘. 点击 ‘Object‘, ‘New‘.
4) 选择STANDARD点击OK.
5)在左面的面版你可以看到standard1,改名为HeroDB 在右边的面版如下
Type STANDARD
DEFAULT DRIVER PARADOX
ENABLE BCD FALSE
PATH 修改为
Type STANDARD
DEFAULT DRIVER PARADOX
ENABLE BCD FALSE
PATH C:\mirserver\mud2\DB
6)在左边的面版右键点击HeroDB选择‘apply‘.
7)关闭 BDE Administrator. 完成安装.
如何破解：
1.安装完 DBC_200
2.用DB_Commander.exe 替换 C:\Program Files\DB Commander 2000 PRO 下的 DB_Commander.exe
3.使用Keygen.exe 生成注册码.
4.运行 DBC_200 填入注册码,确定,注册破解完成 |
|
| 软件名称 |
传奇私服服务端下载 |
大小 |
18.7 MB |
整理时间 |
$Date |
| 说明 |
说明：
本安装包您可以安装在任何路径，任何分区，自动设置私服名称，私服内外网IP。
安装完成后，您不需要更改以下任何一个地方：“私服名称”、“私服内外网IP”、“私服路径”。
内网IP即是本机的IP地址，没有指定的请重新设置指定IP地址，安装时提示输入外网IP，没有外网IP的必须输入内网IP，不能为空。
一、关于传奇私服版本
版本：“一起玩传奇”私服1224版（加入2.0部分道具）
客户端使用版本：盛大代理的热血传奇1.6即可
所有设置均为"一起玩传奇"原包的中没有任何改变。 |
|
|
