Method code for $time.realm_time()

[Turn off line numbering]

---

  1: arg realm, @season;
  2: var d, lt, hr, pm, min, tm;
  3: 
  4: d = realm.get_setting("weather-time", $realm);
  5: lt = d[5].local_time() + d[6];
  6: hr = (lt / 3600 + d[6]) % 24;
  7: if (hr >= 12) {
  8:     pm = "PM";
  9:     if (hr > 12)
 10:         hr -= 12;
 11: } else {
 12:     pm = "AM";
 13: }
 14: min = lt / 60 % 60;
 15: tm = strfmt("%2{0}r:%2{0}r ", hr, min) + pm;
 16: return [tm + (season ? " (" + d[2] + "time)" : ""), d[3].realm()];

---

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