SRL Archive - Bugs

[php]
{*******************************************************************************
procedure R_DropAllItemsNameEx(Names: TStringArray);
By: Drags111
Description: Drops all items with any of the names.
*******************************************************************************}
procedure R_DropAllItemsNameEx(Names: TStringArray);
var
i, z: integer;
begin
for i := 1 to 28 do
for z := 0 to High(Names) do
if not (Pos(Trim(Lowercase(Names[z])), Trim(Lowercase(GetItemNameAt(i)))) > 0)then
R_DropItem(i);
end;
[/php]

should be without the NOT

[php]
{*******************************************************************************
procedure R_DropAllItemsNameEx(Names: TStringArray);
By: Drags111
Description: Drops all items with any of the names.
*******************************************************************************}
procedure R_DropAllItemsNameEx(Names: TStringArray);
var
i, z: integer;
begin
for i := 1 to 28 do
for z := 0 to High(Names) do
if (Pos(Trim(Lowercase(Names[z])), Trim(Lowercase(GetItemNameAt(i)))) > 0)then
R_DropItem(i);
end;
[/php]