Method code for $time.realm_time()

[Turn on line numbering]

---

arg realm, @season;
var d, lt, hr, pm, min, tm;

d = realm.get_setting("weather-time", $realm);
lt = d[5].local_time() + d[6];
hr = (lt / 3600 + d[6]) % 24;
if (hr >= 12) {
    pm = "PM";
    if (hr > 12)
        hr -= 12;
} else {
    pm = "AM";
}
min = lt / 60 % 60;
tm = strfmt("%2{0}r:%2{0}r ", hr, min) + pm;
return [tm + (season ? " (" + d[2] + "time)" : ""), d[3].realm()];

---

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