a Clock

a Clock (#2558)

(an instance of Generic Performance Room made by Marcus)

     A grandfather clock, precise as time itself.
     It shows it's now --
      #### a Clockime o'clock ####
      in the daytime --
      (that's in MOO-time....)
      The cow chomps happy all frisking.

Go to location of this object, a peregrination.

This place has a certain ambiance...
      BONG! It's a Clockime.
      ticktock!

VERB SOURCE CODE:

telltime:

" This routine returns a string giving the present MOO-time ";
" (In 12-hour time, no seconds or date) ";
" On the clock, the verb is called by :description and :get_amb ";
time = ctime(time());
hour = tonum(time[12..13]);
(hour > 12) ? hour = hour - 12 | hour;
return tostr(hour, time[14..16]);
.

description:

(typeof(description = pass(@args)) == LIST) ? description | {description};
for l in [1..length(description)]
    line = #932:moon_phase(description[l], this);
    description[l] = strsub(line, "%time", this:telltime());
endfor
return description;
.

get_amb:

if (caller != this)
    return E_PERM;
endif
time = this:telltime();
minute = time[length(time) - 1..length(time)];
(minute == "00") ? amb = this.amb_noise[1] | (amb = this.amb_noise[2]);
return strsub(amb, "%time", time);
.

start_amb:

this.initial_amb_delay = this.ring_interval - (time() % this.ring_interval);
pass(@args);
.

PROPERTY DATA:
      full_moon_msg
      new_moon_msg
      half_moon_msg
      gibbous_moon_msg
      crescent_moon_msg
      moon_waxing_msg
      moon_waning_msg
      ring_interval