适用于神武奇章
打开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;
分享:

发表回复

后才能评论