物品整理Pascal复刻版代码

KG

本代码用于《小猪3-金庸水浒传》中的物品整理，白绣的特殊技能，根据物品序号排列物品
使用算法是冒泡排序

另有50指令版本：http://www.txdx.net/viewthread.php?tid=429936&page=1#pid1596589


procedure ReSort;
var
  amount, i, j, inum: smallint;
begin
  for I := 0 to MAX_ITEM_AMOUNT - 2 do
  begin
    for J := MAX_ITEM_AMOUNT - 1 downto i + 1 do
    begin
      if (Ritemlist[j].Number < Ritemlist[j - 1].Number) and (Ritemlist[j].Number > -1) then
      begin
        amount := Ritemlist[j].Amount;
        inum := Ritemlist[j].Number;
        Ritemlist[j].Amount := Ritemlist[j - 1].Amount;
        Ritemlist[j].Number := Ritemlist[j - 1].Number;
        Ritemlist[j - 1].Amount := amount;
        Ritemlist[j - 1].Number := inum;
      end;
    end;
  end;
end;

[发帖际遇]: KG溜进皇宫偷东西碰到建宁公主，被毒打一顿，损失医药费银两29两。

南宫梦

程序设计基础……………

[发帖际遇]: 南宫梦溜进皇宫偷东西碰到建宁公主，被毒打一顿，损失医药费银两28两。

孤魂野鬼

恩，太熟悉的东西了