文章

千年修改仓库 80格子方法

适用于神武奇章
打开deftype.pas

找到如下代码

TItemLogRecord = record
Header: TItemRecordHeader;
rsize: integer;
data: array[0..10 * 4 - 1] of TItemLogData;

修改蓝色位置为8即可 ---------------------------------------------数据库扩充

打开uuser case ItemData.rKind of
ITEM_KIND_ITEMLOG:
begin //扩展仓库 物品
if SpecialWindow <> 0 then exit; //我的记录 仓库最大数量
n := ItemLog.GetCount();
if n >= 40 then
begin
SendClass.SendChatMessage(format('%s的福袋数量已满', [Name]), SAY_COLOR_SYSTEM);
exit;
end;

修改40 为80即可~!!-------------------------------------------系统限制取消

打开uusersub.pas

function TItemLog.CreateRoom: Boolean;
var
i: integer;
begin
result := false;
if FLogData.rsize < (high(FLogData.data) + 1) then
begin
for i := FLogData.rsize to high(FLogData.data) do
begin
fillchar(FLogData.data, sizeof(TItemLogData), 0);
end;
FLogData.rsize := FLogData.rsize + 1;
if FLogData.rsize > (high(FLogData.data) + 1) then
FLogData.rsize := high(FLogData.data) + 1;
result := true;
分享:

原文来自:千年修改仓库 80格子方法,尊重自己,尊重每一个人;转发请注明来源!
0 0

发表评论