SRL Archive - SRL Archives

{*******************************************************************************
Procedure DropAllExcept(A : Array of Integer);
By: Sand Storm
Description: Drops everything except the user defined inventory spaces.
*******************************************************************************}
 
procedure DropAllExcept(A : Array of Integer);
var
  i: Integer;
begin
For I:=1 To 28 Do
    if not(InIntArray(a, i)) then
      DropItem(i);
end;
 

Also, I'd like to thank Metagen/Lee Lok Hin for pointing me in the right direction towards InIntArray :P.

So say I didn't want to drop 3 and 5, this would be used like

DropAllExcept(3, 5);

?

No, like this:

DropAllExcept([3, 5]);

simple and easy
could come in quite useful
well done

~shut

Thanks. It was simple once I knew InIntArray :P.

From: Sand Storm
No, like this:

DropAllExcept([3, 5]);

Would this be dropping variables?
like defining 3 and 5 as certain inven slots?

Yea.

Grid like this:

1 2 3 4
5 6 7 8
9 10 11 12

Etc.