Method code for $heart._add_heartbeat()

[Turn off line numbering]

---

  1: arg obj, delay;
  2: var when, h, values;
  3: 
  4: // Only one heartbeat per object
  5: ._del_heartbeat(obj);
  6: when = delay + time();
  7: info = dict_add(info, obj, [delay, time()]);
  8: for h in [1 .. listlen(hearts)] {
  9:     if (hearts[h][2] >= when) {
 10:         hearts = insert(hearts, h, [obj, when]);
 11:         return;
 12:     }
 13: }
 14: hearts += [[obj, when]];

---

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