Function start_glob_timeout

src/mkobj.c:1472–1491

schedule a timer that will shrink the target glob by 1 unit of weight */

/* schedule a timer that will shrink the target glob by 1 unit of weight */
void
start_glob_timeout(
    struct obj *obj, /* glob */
    long when)       /* when to shrink; if 0L, use random value close to 25 */
{
    if (!obj->globby) {
        impossible("start_glob_timeout for non-glob [%d: %s]?",
                   obj->otyp, simpleonames(obj));
        return; /* skip timer creation */
    }
    /* sanity precaution */
    if (obj->timed)
        (void) stop_timer(SHRINK_GLOB, obj_to_any(obj));

    if (when < 1L) /* caller usually passes 0L; should never be negative */
        when = 25L + (long) rn2(5) - 2L; /* 25+[0..4]-2 => 23..27, avg 25 */
    /* 1 new glob weighs 20 units and loses 1 unit every 25 turns,
       so lasts for 500 turns, twice as long as the average corpse */
    (void) start_timer(when, TIMER_OBJECT, SHRINK_GLOB, obj_to_any(obj));
}

/* globs have quantity 1 and size which varies by multiples of 20 in owt;
   they don't become tainted with age, but every 25 turns this timer runs