Skip to content

Instantly share code, notes, and snippets.

@roodyyogurt

roodyyogurt/juggler.zil

Last active January 11, 2016 20:35
Download ZIP

Revisions

  1. roodyyogurt revised this gist Jan 11, 2016. 1 changed file with 1 addition and 2 deletions.
    3 changes: 1 addition & 2 deletions juggler.zil
    View file
    Original file line number Diff line number Diff line change
    @@ -17,5 +17,4 @@ lacrosse ball, a cracked candlepin, and a chopstick." CR>)
    <COND (<EQUAL? 1 <MOD <DIV ,MOVES 3> 2>>
    <TELL "dropping things." CR>)
    (T
    <TELL "juggling." CR>)>)>
    >
    <TELL "juggling." CR>)>)>>
  2. roodyyogurt created this gist Jan 11, 2016.
    21 changes: 21 additions & 0 deletions juggler.zil
    View file
    Original file line number Diff line number Diff line change
    @@ -0,0 +1,21 @@
    <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>)>)>
    >