>give_prog 100~
if number($o) == 776
	say Bring me the answer to this riddle:
        say Exhauster of men, retarder of words, yet originator of speech.
        mpjunk $o
	load obj 777
	say Give me the answer with this clue in your inventory.
	gi clue $n
endif
if number($o) == 649
if charobj(777)
        say Good job, you should go see my youngest cousin next.
        mpjunk $o
	chown 'clue #8' $n
	mpjunk clue
	load obj 778
	gi clue $n
endif
endif
if number($o) == 1123
if charobj(777)
        say good job, you should go see my youngest cousin next.
        mpjunk $o
	chown 'clue #8' $n
	mpjunk clue
	load obj 778
	gi clue $n
endif
endif
if number($o) == 1652
if charobj(777)
        say good job, you should go see my youngest cousin next.
        mpjunk $o
	chown 'clue #8' $n
	mpjunk clue
	load obj 778
	gi clue $n
endif
endif
if number($o) == 4513
if charobj(777)
        say good job, you should go see my youngest cousin next.
        mpjunk $o
	chown 'clue #8' $n
	mpjunk clue
	load obj 778
	gi clue $n
endif
endif
if number($o) == 4514
if charobj(777)
        say good job, you should go see my youngest cousin next.
        mpjunk $o
	chown 'clue #8' $n
	mpjunk clue
	load obj 778
	gi clue $n
endif
endif
if number($o) == 5344
if charobj(777)
        say good job, you should go see my youngest cousin next.
        mpjunk $o
	chown 'clue #8' $n
	mpjunk clue
	load obj 778
	gi clue $n
endif
endif
if number($o) == 10011
if charobj(777)
        say good job, you should go see my youngest cousin next.
        mpjunk $o
	chown 'clue #8' $n
	mpjunk clue
	load obj 778
	gi clue $n
endif
endif
~
|