Generic Post-Apocalypse Room (#110)

     The Generic Post-Apocalypse Room Class (PARC) allows room descriptions and details 
to depend on the time of day and the weather.  It has eight settable messages:
     
      day_msg       - substituted for day in the room description
                      during the hours of 9am to 6pm.
      evening_msg   - substituted for day from 6pm to 9pm.
      night_msg     - substituted for day from 9pm to 6am.
      morning_msg   - substituted for day from 6am to 9am.
     
      cool_msg      - substituted for raining in the room description
                      when the weather is cool.
      warm_msg      - substituted for raining when it is warm.
      raining_msg   - substituted for raining when it is warm and raining.
      snowing_msg   - substituted for raining when it is cold and snowing.
     
     raining is substituted first, then day.  So the weather messages can contain day.
     Time of day messages are useful indoors and out.  Weather messages are most often 
used in outdoor rooms, but an indoor room's description could contain a sentence 
like:
     
        Through an open window, day raining.
     
     Which, given the right message definitions, could result in:
     
        Through an open window, the night-time sky is silhouetted by a snow-covered fire 
escape.
     
     PARC also supports basic details that can be looked at:
     
      @det*ail  is    - add or replace a detail description
      @rmd*etail              - remove a detail
      @details                      - show all the detail names
     
     Note that detail strings can contain raining and day.  It is often wise to keep the 
associated time and weather messages simple (like their default values) so they can 
be useful in a variety of detail strings as well as in the room description.
     PARC is a child of the Generic Ambient Noise Room, so see also: help #176

if (player != this.owner)
    player:tell(E_PERM);
    return;
endif
player:tell("Details here are: ", $string_utils:print(this.detail_names));
.

if (player != this.owner)
    player:tell(E_PERM);
    return;
endif
name = dobjstr;
desc = iobjstr;
if (i = name in this.detail_names)
    this.detail_descriptions = listset(this.detail_descriptions, desc, i);
    player:tell("Detail ", name, " replaced.");
else
    this.detail_names = {@this.detail_names, name};
    this.detail_descriptions = {@this.detail_descriptions, desc};
    player:tell("Detail ", name, " added.");
endif
.

if (player != this.owner)
    player:tell(E_PERM);
    return;
endif
if (i = dobjstr in this.detail_names)
    this.detail_names = listdelete(this.detail_names, i);
    this.detail_descriptions = listdelete(this.detail_descriptions, i);
    player:tell("Detail ", dobjstr, " deleted.");
else
    player:tell("Detail ", dobjstr, " not found.");
endif
.

if ((length(args) != 1) || valid($string_utils:match_object(dobjstr, this)))
    pass(@args);
elseif (i = $string_utils:match_stringlist(dobjstr, this.detail_names))
    player:tell(this:weather_daytime(this.detail_descriptions[i]));
else
    player:tell("I see no \"", dobjstr, "\" here.");
endif
.

hour = tonum(ctime(clock = time())[12..13]);
if ((hour < 6) || (hour > 20))
    daytime = this.night_msg;
elseif (hour < 9)
    daytime = this.morning_msg;
elseif (hour < 18)
    daytime = this.day_msg;
else
    daytime = this.evening_msg;
endif
noise = abs((((clock / 3600) / 8) * 1103515245) + 12345) % 3;
climate = abs(((clock / 3600) / 24) + noise) % 11;
if (climate == 2)
    weather = this.raining_msg;
elseif (climate < 6)
    weather = this.warm_msg;
elseif (climate == 8)
    weather = this.snowing_msg;
else
    weather = this.cool_msg;
endif
if (typeof(args[1]) == STR)
    s = strsub(args[1], "%weather", weather);
    return strsub(s, "%daytime", daytime);
elseif (typeof(args[1]) == LIST)
    l = {};
    for s in (args[1])
        s = strsub(s, "%weather", weather);
        s = strsub(s, "%daytime", daytime);
        l = {@l, s};
    endfor
    return l;
else
    return args[1];
endif
.

return this:weather_daytime(pass(@args));
.

dobj = $string_utils:match_object(dobjstr, player.location);
if (valid(dobj) && $object_utils:has_callable_verb(dobj, "break_self"))
    dobj:break_self();
else
    player:tell("Either ", dobjstr, " is not here, or it is unbreakable.");
endif
.

"Allows note editors to set these props. Doesn't check for proper value";
if ((!$perm_utils:controls(caller_perms(), this)) && (caller != this))
    return E_PERM;
elseif (args)
    which = verb[5..length(verb)];
    return this.(which) = args[1];
else
    return E_INVARG;
endif
.