Method code for $heart._add_heartbeat()

[Turn on line numbering]

---

arg obj, delay;
var when, h, values;

// Only one heartbeat per object
._del_heartbeat(obj);
when = delay + time();
info = dict_add(info, obj, [delay, time()]);
for h in [1 .. listlen(hearts)] {
    if (hearts[h][2] >= when) {
        hearts = insert(hearts, h, [obj, when]);
        return;
    }
}
hearts += [[obj, when]];

---

// Created 27-Mar-1995 as a part of ColdCore, see: @help Credit