#! set name <<<<QUEST_NAME>>>>> set wait 30 set interval 1 set spawnable true #quiet import items item.xml set area set room set mobgroup set mob <<<<DELIVERER_NAME>>>>> give behavior Scriptable LOAD=deliverer.script load item give item set area set room set mobgroup set mob <<<<DELIVEREE_NAME>>>>> give behavior Scriptable LOAD=deliveree.script set duration <<<<DURATION>>>>> #!~!BEGINFILEXML!~! <FILE><NAME>item.xml</NAME><DATA><<<<DELIVERABLE ITEM DEFINED HERE>>>>></DATA></FILE> <FILE><NAME>deliverer.script</NAME> <DATA> # this script is for the human chosen to be the note bearer GREET_PROG 100 if has($n '$[* 0]') sayto "$n" What are you doing back here? Deliver $[* 0] to ${2 *}! else if has($i '$[* 0]') sayto "$n" I have something I need to be delivered to ${2 *}. If you'll deliver it for me, say 'I accept', and I will give you the details. A small stipend is involved. endif 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($n '$[* 0]') sayto "$n" Just deliver $[* 0] to ${2 *}! else if has($i '$[* 0]') sayto "$n" I have something I need to be delivered to ${2 *}. If you'll deliver it for me, say 'I accept', and I will give you the details. A small stipend is involved. endif endif ~ SPEECH_PROG p i accept if has($i '$[* 0]') and !has($n '$[* 0]') mpoload '$[* 0]' give "$[* 0]" "$n" sayto "$n" This is for ${2 *}. Thanks for doing this for us! mpqset REMAINING <<<<DURATION>>>>> else if has($n '$[* 0]') sayto "$n" Yes, I know. Now deliver it to ${2 *}. endif endif ~ GIVE_PROG any if EVAL($o == '$[* 0]') sayto "$n" So, you refuse? Help me find someone else then. Ok? mpjunk $o endif ~ </DATA></FILE> <FILE><NAME>deliveree.script</NAME> <DATA> ENTER_PROG 100 if has($n '$[* 0]') say "$n" Ah, I see you are here to deliver endif ~ GIVE_PROG any if EVAL($o == '$[* 0]') sayto "$n" Thank you. Here's the stipend you were promised. if !QUESTWINNER($n *) mpexp $n 10% mpoload QuestPoint give "a quest point" "$n" mpquestwin $n * endif mpoload 100 give 100 "$n" mpendquest * else sayto "$n" What's this? give "$o" "$n" endif ~ </DATA></FILE>