TRiLeZ
2009-12-06 03:38:53
if (array of Byte) = TIntegerArray then IsABug := False
else
IsABug := True;
Since a TIntegerArray isn't an array of Byte then there is a bug with this function. :p
Simple to solve…
else
IsABug := True;
Since a TIntegerArray isn't an array of Byte then there is a bug with this function. :p
[Runtime Error] : Type Mismatch in line 535 in script C:\Program Files\SCAR 3.23\includes\SRL\SRL\Core\Inventory.scar
Simple to solve…
{*******************************************************************************
procedure DropAllExcept(IgnoreInvSlots: TIntegerArray);
By: R1ch
Description: Drops everything in inventory. Ignores slots specified by
IgnoreInvSlots array.
*******************************************************************************}
procedure DropAllExcept(IgnoreInvSlots: TIntegerArray);
var
I: Byte;
begin
for I := 1 to 28 do
if (not InIntArray(IgnoreInvSlots, I)) then
DropItem(I);
end;