preliminary juggler code

juggler.zil

<OBJECT JUGGLER
    (DESC "juggler")
    (IN JUGGLER_ROOM)
    (DESCFCN JUGGLER-DESC-F)
    (ADJECTIVE YOUNG)
    (FLAGS CONTBIT SEARCHBIT OPENBIT SURFACEBIT PERSONBIT)
    (SYNONYM JUGGLER MAN)
>

<ROUTINE JUGGLER-DESC-F (ARG)
    <COND (<=? .ARG ,M-OBJDESC?> <RTRUE>)>
	<COND (<OR <VERB? LOOK> <EQUAL? ,MODE ,VERBOSE> <AND <EQUAL? ,MODE ,BRIEF> <NOT <FSET? ,HERE ,TOUCHBIT>>>  >
    <TELL "In front of you is a young, dark-haired man juggling a broken plate, a
lacrosse ball, a cracked candlepin, and a chopstick." CR>)
	(T
		<TELL "The juggler is here, " >
		<COND (<EQUAL? 1 <MOD <DIV ,MOVES 3> 2>>
		        <TELL "dropping things." CR>)
				(T
					<TELL "juggling." CR>)>)>>