Function cleanup_burn

src/timeout.c:1827–1844

* Cleanup a burning object if timer stopped. */

 * Cleanup a burning object if timer stopped.
 */
staticfn void
cleanup_burn(anything *arg, long expire_time)
{
    struct obj *obj = arg->a_obj;

    if (!obj->lamplit) {
        impossible("cleanup_burn: obj %s not lit", xname(obj));
        return;
    }

    del_light_source(LS_OBJECT, obj_to_any(obj));
    /* restore unused time */
    obj->age += expire_time - svm.moves;
    obj->lamplit = 0;

    if (obj->where == OBJ_INVENT)
        update_inventory();
}

void
do_storms(void)