I wanted to drop all items except a few, and noticed there wasn't a procedure made for that. You can use DropArray but I thought this is quicker.
It can probably be improved. Would anyone use this?
Code:{******************************************************************************* procedure DropAllEx(Skip: TIntegerArray); By: r!ch!e Description: Drops all items in inventory except values of Skip. *******************************************************************************} procedure DropAllEx(Skip: TIntegerArray); var i: Integer; begin for i := 1 to 28 do if not InIntArray(Skip, i) then DropItem(i); end;















