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();

// $#Edited: 20 Feb 98 07:33 $user_bruce

---

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