修改装备书籍等所需要等级超大的问题普升
//添加物品functionAddItemBag (cu: TClientItem): Boolean;
var
i: integer;
begin
if cu.S.NeedLevel>65536 then
cu.S.NeedLevel:=HiWord(cu.S.NeedLevel);
if cu.S.DuraMax>65536 then
cu.S.DuraMax:=HiWord(cu.S.DuraMax);
Result := FALSE;
//检查要添加的物品是否已经存在
for i:=0 to MAXBAGITEMCL-1 do begin
if (g_ItemArr.MakeIndex = cu.MakeIndex) and (g_ItemArr.S.Name = cu.S.Name) then begin
exit;
end;
end;
if cu.S.Name = '' then exit;
if cu.S.StdMode <= 3 then begin //可以使用的物品,首先放在快捷物品栏
for i:=0 to 5 do
if g_ItemArr.S.Name = '' then begin //找一个空档放下
g_ItemArr := cu;
Result := TRUE;
exit;
end;
end;
for i:=6 to MAXBAGITEMCL-1 do begin
if g_ItemArr.S.Name = '' then begin
g_ItemArr := cu;
Result := TRUE;
break;
end;
end;
ArrangeItembag;
end;
页:
[1]