<stdin>

function int unusedTID(int start, int end)
{
    int ret = start - 1;
    int tidNum;

    if (start > end) { start ^= end; end ^= start; start ^= end; }  // good ol' XOR swap

    while (ret++ != end)
    {
        if (ThingCount(0, ret) == 0)
        {
            return ret;
        }
    }

    return -1;
}

function int defaultTID(int def)
{
    int tid = ActivatorTID();
    int i;

    if (ThingCount(0, tid) == 1) { return tid; }

    tid = def;
    if (def <= 0)
    {
        i = random(13, 23);
        tid = unusedTID(i*1000, (i+10)*1000);
    }

    Thing_ChangeTID(0, tid);
    ACS_ExecuteAlways(DEFAULTTID_SCRIPT, 0, tid,0,0);

    return tid;
}

script DEFAULTTID_SCRIPT (int tid) clientside
{
    if (ConsolePlayerNumber() == -1) { terminate; }
    Thing_ChangeTID(0, tid);
}