3Garrett3
2010-06-11 21:21:48
Basically counts the items except the ids specified. I needed this for my fishing script and figured it might be useful.
and
Function R_CountItemsExceptEx(IDs : TIntegerArray) : Integer;
Var
i : Integer;
Begin
Result := 0;
For i := 1 To 28 Do
If Not (InIntArray(IDs, GetItemIDAt(i))) Then
Inc(Result);
End;
and
Function R_CountItemsExcept(ID : Integer) : Integer;
Begin
Result := R_CountItemsExceptEx([ID]);
End;