A really cool SPEC from Archipelago

angus@EDGIL.CCMAIL.COMPUSERVE.COM
Date: 07/21/97


     just thought it was really cool...  essentially, when a Char tries to
     get an item named "book" it turns into a mobs... .YOUCH!
     --Angus


     SPECIAL(animate_book)
     {
         char arg3[MAX_INPUT_LENGTH];
         struct obj_data *obj=0, *book=0;
         struct char_data *mob=0;

         if (cmd < 0)
             return(0);

         strcpy(arg3,arg);

         book = (struct obj_data *)me;

         if (cmd != 10 && cmd != 167)
             return(FALSE);

         if (!strstr(arg3,"book") && !strstr(arg3,"all"))
             return(FALSE);
         if (!(obj = get_obj_in_list_vis(ch, "book",
     world[ch->in_room].contents)))
             return(FALSE);
         if (obj != book)
             return(FALSE);
         extract_obj(book,0);
         mob = read_mobile(2127,VIRTUAL);
         char_to_room(mob,ch->in_room, FALSE);
         act("$p suddenly animates!",FALSE,ch,obj,0,TO_ROOM);
         act("$p suddenly animates!",FALSE,ch,obj,0,TO_CHAR);
         hit(mob,ch,0);
         return(FALSE);
     }


     +------------------------------------------------------------+
     | 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/08/00 PST