>give_prog 100~ if number($o) == 780 say Bring me the answer to this riddle: say What force or strength cannot get through. say I, with gentle touch, can do. say And many in the street could stand. say Were I not, as a friend, at hand. mpjunk $o load obj 781 say Give me the answer with this clue in your inventory. gi clue $n endif if objtype($o) == 18 if charobj(781) say Take your clue to my cousin, who is currently pondering the question to be asked of you. mpjunk $o chown 'clue #12' $n mpjunk clue load obj 782 gi clue $n endif endif ~ |