>PT公平分配のバグ
Common.pas PartyDistribution内の
l := (tpa.EXP + (tpa.EXP div 10) * (m - 1)) div m + 1; //適当〜
w := (tpa.JEXP + (tpa.JEXP div 10) * (m - 1)) div m + 1; //適当〜
この二行を
l := (tpa.EXP + 1) div (m - 1);
w := (tpa.JEXP + 1) div (m - 1);
if 2 < m then begin
l := l + (tpa.EXP div 4) * (m - 2) div (m - 1);
w := w + (tpa.JEXP div 4) * (m - 2) div (m - 1);
end;
これに差し替えると、公平分配が正常に動作します。
