Revided olist/mlist Version 1.0 by Xerves
Xerves is the admin/owner of Rafermand (mud.rafermand.net port 3002)
Website: http://www.rafermand.net
Contact: xerves@rafermand.net

This is a short and simple addition that is quite useful when you
use the olist/mlist function (in particular when dealing with
non-prototype areas).  Typically when you type olist you will get

21076   leather shirt        (a leather shirt)
21077   pants leather        (some leather pants)
21078   leather sleeves      (some leather sleeves)
21079   leather boots        (some leather boots)

Instead, you will get something that looks like this

21076 (NP) leather shirt        (a leather shirt)
21077 (P ) pants leather        (some leather pants)
21078 (P ) leather sleeves      (some leather sleeves)
21079 (NP) leather boots        (some leather boots)

NP is if the item is not prototype, and P is if the item is prototype.
Sorta useful, and if it should help you to save from making mistakes

That is all, and if you have any questions/bugs please contact me at

rafermand@home.net


---------------------
in do_olist
---------------------
right after
     int trange;
add
     char *pro;

Find
for ( vnum = lrange; vnum <= trange; vnum++ )
    {
	if ( (obj = get_obj_index( vnum )) == NULL )
	  continue;
	pager_printf( ch, "%5d) %-20s (%s)\n\r", vnum,
					     obj->name,
					     obj->short_descr );
    }


And Change it to
    for ( vnum = lrange; vnum <= trange; vnum++ )
    {
	if ( (obj = get_obj_index( vnum )) == NULL )
	  continue;

    if (IS_OBJ_STAT(obj, ITEM_PROTOTYPE) )
    pro = "P";
        else
    pro = "NP";
	pager_printf( ch, "&G%5d (%-2s) %-20s (%s)\n\r",
                                   vnum,
                                   pro,
					     obj->name,
					     obj->short_descr );
    }

--------------------
In do_mlist
--------------------

Find
    for ( vnum = lrange; vnum <= trange; vnum++ )
    {
	  if ( (mob = get_mob_index( vnum )) == NULL )
	    continue;
	  pager_printf( ch, "%5d) %-20s '%s'\n\r", vnum,
					 mob->player_name,
					 mob->short_descr );
    }
And change it to

    for ( vnum = lrange; vnum <= trange; vnum++ )
    {
	  if ( (mob = get_mob_index( vnum )) == NULL )
	    continue;
	  pager_printf( ch, "&G%5d (%-2s) %-20s '%s'\n\r", 
                               vnum,
        xIS_SET(mob->act, ACT_PROTOTYPE)  ? "P"
                                          : "NP",
					 mob->player_name,
					 mob->short_descr );
    }

---------------------------------------------

This version has not been tested, but should run ok from
the instructions provided, if it does not, please contact me.
This version was installed into a 1.4 version of SMAUG and should
run without any problems.  If you come into any problems, please
contact me, the info is above.