>give_prog 100~ if charobj(5377) pmote examines $O closely. identify $o give $o $n chown "note stw" $n mpjunk "note stw" pmote rips up a note to the wizard. endif ~ >greet_prog 100~ if charobj(5377) peer $n say I see you have a note from Penna... I'll tell you what I'll do... say Give me an item, and I'll identify it for you. endif ~ >rand_prog 5~ if rand (30) ponder else meditate endif ~ |