SRL Archive - Bugs

R_DumpItems errors

Bad Boy JH

2010-06-01 04:20:11

procedure R_DumpItems(Items: TInvItemArray);
var
  i: integer;
begin
  for i := 0 to High(Items)do
  begin
    Writeln('Slot: '+ToStr(Items[i].Slot));
    Writeln('   '+Items[i].Name);
    Writeln('   ID:'+ToStr(Items[i].ID));
    Writeln('   Stack Size:'+ToStr(Items[i].ID));
    Writeln('   Actions:'+ToStr(Items[i].Actions));
  end;
end;

The 4th Writeln is Incorrect and should be
Writeln(' Stack Size:'+ToStr(Items[1].StackSize));

Drakan

2010-06-01 09:16:46

Thanks for pointing it out and continuing to find bugs for us :)

Bad Boy JH

2010-06-01 10:00:27

Considering the amount of stuff I am trying out, I will enevitably find a few.

Sir R. M8gic1an

2010-06-02 06:46:48


procedure R_DumpItems(Items: TInvItemArray);
var
  i: integer;
begin
  for i := 0 to High(Items)do
    with Items[i] do
    begin
      Writeln('Slot: '+ToStr(Slot));
      Writeln('   '+Name);
      Writeln('   ID:'+ToStr(ID));
      Writeln('   Stack Size:'+ToStr(ID));
      Writeln('   Actions:'+ToStr(Actions));
    end;
end;

~RM

Gu3st...

2010-06-02 08:07:12

From: Rasta Magician


procedure R_DumpItems(Items: TInvItemArray);
var
  i: integer;
begin
  for i := 0 to High(Items)do
    with Items[i] do
    begin
      Writeln('Slot: '+ToStr(Slot));
      Writeln('   '+Name);
      Writeln('   ID:'+ToStr(ID));
      Writeln('   Stack Size:'+ToStr(StackSize));
      Writeln('   Actions:'+ToStr(Actions));
    end;
end;

~RM

Fixed