;****************************************************************************** ;* Module: VERBERR.BOA Version: 1.02 * ;* Last Updated: 21/08/87 By: Bruce MacKay * ;* * ;****************************************************************************** ;;; ;;; Verberr --- handle missing objects. ;;; (action take-err (verb take remove get (pick up)) (code (print "Take what?\n"))) (action drop-err (verb drop (put down)) (code (print "Drop what?\n"))) (action give-err (verb give) (direct-object optional) (code (if $dobject (complain "Give the " $dobject " to who?\n")) (print "Give what?\n"))) (action put-err (verb put) (direct-object optional) (code (if $dobject (complain "Put the " $dobject " where?\n")) (print "Put what?\n"))) (action open-err (verb open) (code (print "Open what?\n"))) (action lock-err (verb lock) (direct-object optional) (code (if $dobject (complain "Lock the " $dobject " with what?\n")) (print "Lock what?\n"))) (action unlock-err (verb unlock) (direct-object optional) (code (if $dobject (complain "Unlock the " $dobject " with what?\n")) (print "Unlock what?\n"))) ;(action eat-err ; (verb eat) ; (code ; (print "Eat what?\n"))) (action drink-err (verb drink quaff) (code (print "Consume what?\n"))) (action light-err (verb light) (code (print "Light what?\n"))) (action extinguish-err (verb extinguish) (code (print "Turn off what?\n"))) (action read-err (verb read) (code (print "Read what?\n"))) ;(action rub-err ; (verb read) ; (code ; (print "Rub what?\n"))) (action close-err (verb close) (code (print "Close what?\n "))) (action examine-err (verb examine (look at)) (code (print "Examine what?\n"))) (action look-in-err (verb (look in)) (direct-object) (code (print "What did you want to look in?\n"))) (action tie-err (verb tie) (direct-object optional) (code (if $dobject (complain "Tie the " $dobject " to what?\n")) (print "Tie what?\n"))) (action untie-err (verb untie) (code (print "Untie what?\n"))) (action climb-err (verb climb) (code (print "Climb what?\n")))