Re: Question about the Archipeligo code base..

From: Tony Robbins (tonyr@NWPACLINK.COM)
Date: 04/01/98


fight.c, void make_corpse

  sprintf(buf2, "The corpse of %s is lying here.", GET_NAME(ch));
  corpse->description = str_dup(buf2);

  sprintf(buf2, "the corpse of %s", GET_NAME(ch));
  corpse->short_description = str_dup(buf2);
+
+ sprintf(buf2, "The stench of the rotting corpse makes your gorge rise.");
+ corpse->action_description = str_dup(buf2);

  GET_OBJ_TYPE(corpse) = ITEM_CONTAINER;

Then your little code bitlet would go in limits.c, void point_update

    /* If this is a corpse */
    if ((GET_OBJ_TYPE(j) == ITEM_CONTAINER) && GET_OBJ_VAL(j, 3)) {
      /* timer count down */
      if (GET_OBJ_TIMER(j) > 0)
        GET_OBJ_TIMER(j)--;

      if (!GET_OBJ_TIMER(j)) {

        if (j->carried_by)
          act("$p decays in your hands.", FALSE, j->carried_by, j, 0, TO_CHAR);
        else if ((j->in_room != NOWHERE) && (world[j->in_room].people)) {
          act("A quivering horde of maggots consumes $p.",
              TRUE, world[j->in_room].people, j, 0, TO_ROOM);
          act("A quivering horde of maggots consumes $p.",
              TRUE, world[j->in_room].people, j, 0, TO_CHAR);
-     }
+       } else {
+       if (obj->action_description && !number(0,5))
+         act(obj->action_description,FALSE,ch,obj,obj,TO_CHAR);
      }


I wonder if that answered a question.


At 03:37 PM 4/1/98 -0500, you wrote:
>Nope, sigh, i as actually looking for an example of this.  the obj is a
corpse
>with and action desc.  A little while later i hit apon the brain storm of
>looking in fight.c for make_corpse.  I saw the line:
>"The stench of the rotting corpse makes your gorge rise."
>there is an object_activity like mobile_activity that is called every 10
>seconds.  I was looking for the above string and hoping the originators of
the
>code would have it. (thought it was in the world files that weren't
included in
>the tgz.) archipeligo was based off of circle 2.2 with many improvements.
>
>--Angus


     +------------------------------------------------------------+
     | Ensure that you have read the CircleMUD Mailing List FAQ:  |
     | http://democracy.queensu.ca/~fletcher/Circle/list-faq.html |
     +------------------------------------------------------------+



This archive was generated by hypermail 2b30 : 12/15/00 PST