isActivePackage ~ Darren

function isActivePackage(%opt)
{
    %packnum = GetNumActivePackages();
    for(%i = 0 ; %i < %packnum - 1 ; %i++)
    {
        %p = getActivePackage(%i);
        if(%p $= %opt)
            return 1;
    }
    return 0;
}