# this script is for the human chosen to be the note bearer GREET_PROG 50 if has($i 'a post-marked package') sayto "$n" I have a package I need to be delivered to ${2 *}. If you'll deliver it, say 'I accept', and I will give you the details. A small stipend is involved. mpsetvar $i DELIVERY '' endif ~ SPEECH_PROG mission problem package quest help delivery deliver 'me to do' 'to do' mission? problem? package? quest? help? delivery? delive?r 'me to do?' 'to do?' if has($i 'a post-marked package') sayto "$n" I have a package I need to be delivered to ${2 *}. If you'll deliver it, say 'I accept', and I will give you the details. A small stipend is involved. mpsetvar $i DELIVERY '' endif ~ QUEST_TIME_PROG * -1 if !has($i 'a post-marked package') and var('$<$i DELIVERY>' delivery != 'didit') tell "$<$i DELIVERY>" "Never mind. The package is worthless now, and I found someone else to deliver for me." endif if EVAL('$<$i DELIVERY>' != '') mpsetvar '$<$i DELIVERY>' DELIVERY '' endif mpsetvar $i DELIVERY '' ~ SPEECH_PROG p i accept if has($i 'a post-marked package') give "a post-marked package" "$n" sayto "$n" Find ${2 *}. Say these words: "I have a delivery from ${1 *}" and, if he responds, give it to him. Understood? Off you go then.. mpsetvar $i DELIVERY $n mpsetvar $n delivery endif ~ GIVE_PROG p a post-marked package sayto "$n" So, you refuse? Help me find someone else then. Ok? mpsetvar $i DELIVERY '' ~