SRL Archive - SRL Suggestions

This is in amount in the core folder.

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
    RuneBmp := srl_GetBitmap(18 + II);
    Result := ItemAmount(Area, 'bmp', RuneBmp, [20]);
    FreeBitmap(RuneBmp);
  end else
    srl_Warn('RuneAmount', 'Invalid RuneType: ''' + RuneType + '''', warn_AllVersions);
end;                           

Currently, it doesn't have support for armadyl runes or astral runes. Considering there are no extra bitmaps to be added, it's just a pretty simple change.

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', 'astral', 'armadyl'];
  if (InStrArrEx(Lowercase(RuneType), RuneNames, II)) then
  begin
    RuneBmp := srl_GetBitmap(18 + II);
    Result := ItemAmount(Area, 'bmp', RuneBmp, [20]);
    FreeBitmap(RuneBmp);
  end else
    srl_Warn('RuneAmount', 'Invalid RuneType: ''' + RuneType + '''', warn_AllVersions);
end;                           

Thanks for your time!s

The bitmaps already exist, the function just didn't support them?

Oh wait they don't. Disregard this until I grab some bitmaps.

What happened? I just noticed this was missing astral support myself.