Method code for $heart._del_heartbeat()

[Turn on line numbering]

---

arg obj;
var x, pos;

if (info.contains(obj))
    info = info.del(obj);
for x in [1 .. listlen(hearts)] {
    if (hearts[x][1] == obj) {
        hearts = delete(hearts, x);
        return 1;
    }
}
return 0;

---

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