增加叠加物品OverLap=3时，叠加物品重量不变(不管叠加多少个，物品重量不变)

看下其它引擎
看到有这样的功能..
增加叠加物品OverLap=3时，叠加物品重量不变(不管叠加多少个，物品重量不变)
随手试下如何更改这个..

在源码里查找 Overlap 定位到UsrEngn单元 ,有如下代码 ...

//获取物品重量的函数
function TUserEngine.GetStdItemWeight(nItemIdx: Integer; TakeBackCnt: Integer): Integer;
var
  StdItem                   : pTStdItem;
begin
  Dec(nItemIdx);
  if (nItemIdx >= 0) and (StdItemList.Count > nItemIdx) then begin
    StdItem := StdItemList.Items[nItemIdx];
    if StdItem.Overlap = 1 then//OverLap为1时 OverLap=1 重量=重叠数量*单物品重量/10
      Result := StdItem.Weight + StdItem.Weight * (TakeBackCnt div 10)
    else if StdItem.Overlap >= 2 then //OverLap大于2时 重量=重叠数量*单物品重量
      Result := StdItem.Weight * TakeBackCnt
    else
      Result := StdItem.Weight;
  end else
    Result := 0;
end;

这个看起来就很容易修改的了.. 上面部分内容修改为如下..不知道有没有语法错误吧..应是这样的吧..

    //else if StdItem.Overlap >= 2 then 改为等于2 重量=重叠数量*单物品重量
      else if StdItem.Overlap = 2 then 
      Result := StdItem.Weight * TakeBackCnt
    else if StdItem.Overlap = 3 then //增加一个检测是不是3
      Result := StdItem.Weight;
    else
    Result := StdItem.Weight
    end else
    Result := 0;
  end;

相关推荐