Method code for $world_time.from_unit_list()

[Turn on line numbering]

---

arg time, ulist;
var t, s, i;

s = [];
for i in (ulist) {
    t = time / time_units[i][1];
    if (t)
        s += [t + " " + time_units[i][2] + (t != 1 ? "s" : "")];
    time = time % time_units[i][1];
}
return s.to_english();

---

// Created 19-Nov-1996 as a part of ColdCore, see: @help Credit