It loads the with bitmaps.scar, but uses a normal FreeBitmap procedure. Replaced with srl_FreeBitmapEx.
Code:
{*******************************************************************************
function RuneAmount(area, runetype: String): Integer;
By: masquerader and modified by Ron and ZephyrsFury
Description: Returns the amount of a certain rune in the specified area.
*******************************************************************************}
function RuneAmount(Area, RuneType: string): Integer;
var
RuneBmp, II: Integer;
RuneNames: TStringArray;
begin
RuneNames := ['air', 'mind', 'water', 'fire', 'earth', 'law', 'nature', 'chaos', 'death', 'body', 'cosmic', 'soul', 'blood'];
if (InStrArrEx(Lowercase(RuneType), RuneNames, II)) then
begin
srl_GetBitmap(18 + II);
Result := ItemAmount(Area, 'bmp', srl_Bitmaps[18+II], [20]);
srl_FreeBitmapEx(18+II);
end else
srl_Warn('RuneAmount', 'Invalid RuneType: ''' + RuneType + '''', warn_AllVersions);
end;
edit: The rune bitmaps also seems to be outdated, is this function even used?